Mercurial > octave-nkf

diff 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
line wrap: on
line diff
--- a/scripts/miscellaneous/fileparts.m	Fri Dec 19 15:37:14 2003 +0000
+++ b/scripts/miscellaneous/fileparts.m	Tue Dec 23 05:49:30 2003 +0000
@@ -29,6 +29,9 @@
     if (isstr (filename))
       ds = rindex (filename, filesep);
       es = rindex (filename, ".");
+      if (es < ds)
+	es = length(filename)+1;
+      endif
       directory = filename(1:ds-1);
       name = filename(ds+1:es-1);
       extension = filename(es:end);