Mercurial > hg > octave-nkf
changeset 4424:ab82d3a27d96
[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