Mercurial > octave-nkf

comparison scripts/miscellaneous/fullfile.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents eb63fbe60fab
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
29 varargin(cellfun (@isempty, varargin)) = []; 29 varargin(cellfun (@isempty, varargin)) = [];
30 nargs = numel (varargin); 30 nargs = numel (varargin);
31 if (nargs > 1) 31 if (nargs > 1)
32 filename = varargin{1}; 32 filename = varargin{1};
33 if (strcmp (filename(end), filesep)) 33 if (strcmp (filename(end), filesep))
34 filename(end) = ""; 34 filename(end) = "";
35 endif 35 endif
36 for i = 2:nargs 36 for i = 2:nargs
37 tmp = varargin{i}; 37 tmp = varargin{i};
38 if (i < nargs && strcmp (tmp(end), filesep)) 38 if (i < nargs && strcmp (tmp(end), filesep))
39 tmp(end) = ""; 39 tmp(end) = "";
40 elseif (i == nargs && strcmp (tmp, filesep)) 40 elseif (i == nargs && strcmp (tmp, filesep))
41 tmp = ""; 41 tmp = "";
42 endif 42 endif
43 filename = cstrcat (filename, filesep, tmp); 43 filename = cstrcat (filename, filesep, tmp);
44 endfor 44 endfor
45 elseif (nargs == 1) 45 elseif (nargs == 1)
46 filename = varargin{1}; 46 filename = varargin{1};
47 else 47 else
48 filename = ""; 48 filename = "";