Removes extra slashes from path string.

cleanPath.m

function fixedPath = cleanPath(inPath)
% FORMAT fixedPath = cleanPath(inPath)
% Removes extra slashed from inPath.

[filePath, fileName, fileSuffix] = fileparts(inPath);

if isempty(fileSuffix)
  splitFile = regexp(filePath, '/', 'split');
else
  splitFile = regexp(inPath, '/', 'split');
end

splitFile = splitFile(~cellfun('isempty', splitFile));
fixedPath = '';
for iFolder = 1:length(splitFile)
  fixedPath = [fixedPath '/' splitFile{iFolder}];
end
fixedPath = [fixedPath '/'];

if ~isempty(fileSuffix)
  fixedPath = [fixedPath fileName fileSuffix];
end
end