Mercurial > octave-nkf

comparison scripts/miscellaneous/fileparts.m @ 4683:a3a306af7292

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-12-23 05:48:02 by jwe]
author jwe
date Tue, 23 Dec 2003 05:49:30 +0000
parents ab82d3a27d96
children e71be9c548f2
comparison
equal deleted inserted replaced
4682:994f449a1eba 4683:a3a306af7292
27 27
28 if (nargin == 1) 28 if (nargin == 1)
29 if (isstr (filename)) 29 if (isstr (filename))
30 ds = rindex (filename, filesep); 30 ds = rindex (filename, filesep);
31 es = rindex (filename, "."); 31 es = rindex (filename, ".");
32 if (es < ds)
33 es = length(filename)+1;
34 endif
32 directory = filename(1:ds-1); 35 directory = filename(1:ds-1);
33 name = filename(ds+1:es-1); 36 name = filename(ds+1:es-1);
34 extension = filename(es:end); 37 extension = filename(es:end);
35 version = ""; 38 version = "";
36 else 39 else