1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
function p = genpathKPM(d)
% genpathKPM Like built-in genpath, but omits directories whose name is 'Old', 'old' or 'CVS'
% function p = genpathKPM(d)
if nargin==0,
p = genpath(fullfile(matlabroot,'toolbox'));
if length(p) > 1, p(end) = []; end % Remove trailing pathsep
return
end
% initialise variables
methodsep = '@'; % qualifier for overloaded method directories
p = ''; % path to be returned
% Generate path based on given root directory
files = dir(d);
if isempty(files)
return
end
% Add d to the path even if it is empty.
p = [p d pathsep];
% set logical vector for subdirectory entries in d
isdir = logical(cat(1,files.isdir));
%
% Recursively descend through directories which are neither
% private nor "class" directories.
%
dirs = files(isdir); % select only directory entries from the current listing
for i=1:length(dirs)
dirname = dirs(i).name;
if ~strcmp( dirname,'.') && ...
~strcmp( dirname,'..') && ...
~strcmp( dirname,'.svn') && ...
~strncmp( dirname,methodsep,1)&& ...
~strcmp( dirname,'private') && ...
~strcmp( dirname, 'CVS') && ...
isempty(strfind(dirname, 'Old')) && ...
isempty(strfind(dirname, 'old'))
p = [p genpathKPM(fullfile(d,dirname))]; % recursive calling of this function.
end
end
%------------------------------------------------------------------------------
|
