annotate toolboxes/FullBNT-1.0.7/KPMtools/genpathKPM.m @ 0:e9a9cd732c1e tip

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