Mercurial > hg > octave-lyh

comparison scripts/miscellaneous/fileparts.m @ 4265:48897c78c52b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-01-03 06:04:29 by jwe]
author jwe
date Fri, 03 Jan 2003 06:06:33 +0000
parents 4e2d2516da22
children 1086ac09a411
comparison
equal deleted inserted replaced
4264:4e2d2516da22 4265:48897c78c52b
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 directory = filename(1:ds-1); 32 directory = filename(1:ds-1);
33 name = filename(ds+1:es-1); 33 name = filename(ds+1:es-1);
34 extension = filename(es+1:length (filename)); 34 extension = filename(es+1:end);
35 version = ""; 35 version = "";
36 else 36 else
37 error ("filesep: expecting filename argument to be a string"); 37 error ("filesep: expecting filename argument to be a string");
38 endif 38 endif
39 else 39 else