Mercurial > hg > octave-jordi

changeset 4424:ab82d3a27d96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-06-13 14:35:25 by jwe]
author jwe
date Fri, 13 Jun 2003 14:35:25 +0000
parents 961d9767275f
children 82f8aae8cf20
files scripts/ChangeLog scripts/miscellaneous/fileparts.m
diffstat 2 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-13  Alois Schloegl <alois.schloegl@tugraz.at>
+
+	* miscellaneous/fileparts.m: For compatibility with Matlab,
+	return "." with extension.
+
 2003-06-04  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* control/base/__stepimp__.m, control/base/nichols.m,
@@ -69,7 +74,7 @@
 
  	* mkpkgadd: Scan C++ files as well
 
-2003-02-13  Schloegl Alois <alois.schloegl@tugraz.at>
+2003-02-13  Alois Schloegl <alois.schloegl@tugraz.at>
 
 	* strings/findstr.m: Return empty set for zero-length target.
 
--- a/scripts/miscellaneous/fileparts.m
+++ b/scripts/miscellaneous/fileparts.m
@@ -31,13 +31,13 @@
       es = rindex (filename, ".");
       directory = filename(1:ds-1);
       name = filename(ds+1:es-1);
-      extension = filename(es+1:end);
+      extension = filename(es:end);
       version = "";
     else
-      error ("filesep: expecting filename argument to be a string");
+      error ("fileparts: expecting filename argument to be a string");
     endif
   else
-    usage ("filesep (filename)");
+    usage ("fileparts (filename)");
   endif
 
 endfunction