Mercurial > octave-nkf

comparison scripts/miscellaneous/fileparts.m @ 5073:e71be9c548f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-11-09 18:31:25 by jwe]
author jwe
date Tue, 09 Nov 2004 18:31:26 +0000
parents a3a306af7292
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5072:97b62f0c1bee 5073:e71be9c548f2
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) 32 ## These can be the same if they are both 0 (no dir or ext).
33 if (es <= ds)
33 es = length(filename)+1; 34 es = length(filename)+1;
34 endif 35 endif
35 directory = filename(1:ds-1); 36 directory = filename(1:ds-1);
36 name = filename(ds+1:es-1); 37 name = filename(ds+1:es-1);
37 extension = filename(es:end); 38 if (es > 0)
39 extension = filename(es:end);
40 else
41 extension = "";
42 endif
38 version = ""; 43 version = "";
39 else 44 else
40 error ("fileparts: expecting filename argument to be a string"); 45 error ("fileparts: expecting filename argument to be a string");
41 endif 46 endif
42 else 47 else