Mercurial > octave-nkf
diff scripts/miscellaneous/fileparts.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | eb63fbe60fab |
children | 1740012184f9 |
line wrap: on
line diff
--- a/scripts/miscellaneous/fileparts.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/miscellaneous/fileparts.m Fri Apr 23 11:28:50 2010 -0700 @@ -29,25 +29,25 @@ if (ischar (filename)) ds = strchr (filename, filesep ("all"), 1, "last"); if (isempty (ds)) - ds = 0; + ds = 0; endif es = rindex (filename, "."); ## These can be the same if they are both 0 (no dir or ext). if (es <= ds) - es = length(filename)+1; + es = length(filename)+1; endif if (ds == 0) - directory = ""; + directory = ""; elseif (ds == 1) - directory = filename(1); + directory = filename(1); else - directory = filename(1:ds-1); + directory = filename(1:ds-1); endif name = filename(ds+1:es-1); if (es > 0 && es <= length (filename)) - extension = filename(es:end); + extension = filename(es:end); else - extension = ""; + extension = ""; endif version = ""; else