setpaths.m

function setpaths(option)

%
% USAGE: 
%
%   setpaths
%   setpaths(1)
%   setpaths(0)
%

if ~exist('option','var')
    option = 1;
end
setpathsPath = which('setpaths');
rootdir = fileparts(setpathsPath);
p = { 
    'Snirf';
    'Snirf/Examples';
    'Utils';
    'Utils/Hdf5';
    };
    
for ii = 1:length(p)
    pname = [rootdir, '/', p{ii}];
    if option
        addpath(pname, '-end');
    else
        rmpath(pname);
    end
end