% newpath = remove_svn_from_matlabpath(oldpath)
%
% An utility function to remove .svn folders from the given path
% If no output is provided, it will use and set the current Matlab path
% 
% D Nicolodi 25/03/2011
%
% VERSION:    $Id: remove_svn_from_matlabpath.m,v 1.2 2011/03/25 15:11:40 mauro Exp $
%

function newpath = remove_svn_from_matlabpath(oldpath)
  
  % if no path given load current matlab path
  if nargin < 1
    oldpath = matlabpath();
  end
  
  newpath = '';
  while true
    % split path definition into components
    [p, oldpath] = strtok(oldpath,pathsep);
    if isempty(p)
      break;
    end
    % remove components if it contais .svn
    if isempty(findstr(p,'.svn'))
      newpath = [newpath,pathsep,p];
    end
  end
  % remove initial pathsep
  newpath = newpath(2:end);
  
  % if no path given set the new path as the current one
  if nargin < 1
    path(newpath);
  end
  
end