From bug-octave-request at bevo dot che dot wisc dot edu Sat Dec 20 20:54:06 2003
Subject: [p,f,e]=fileparts('test/dir.001/file') returns empty f
From: Schloegl Alois <alois dot schloegl at tugraz dot at>
To: bug-octave at bevo dot che dot wisc dot edu
Date: Sat, 20 Dec 2003 14:46:37 -0600

Bug report for Octave 2.1.52 configured for i686-pc-linux-gnu

Description:
-----------

The output of FILEPARTS is incorrect, if any directory name contains a dot and
the file has no extension.


Repeat-By:
---------


octave:13> [p,f,e]=fileparts('test/dir.001/filename'), ### note the file has no
extension
p = test/dir.001
f =
e = .001/filename


Fix:
---

This patch solves the problem.

*** fileparts.m.old     Sat Dec 20 21:23:45 2003
--- fileparts.m Sat Dec 20 21:23:35 2003
***************
*** 29,34 ****
--- 29,35 ----
      if (isstr (filename))
        ds = rindex (filename, filesep);
        es = rindex (filename, ".");
+       if es<ds, es = length(filename)+1; end;
        directory = filename(1:ds-1);
        name = filename(ds+1:es-1);
        extension = filename(es:end);




Configuration (please do not edit this section):
-----------------------------------------------

uname output:     Linux Edelweiss 2.4.22-1-k7 #5 Sat Oct 4 14:11:12 EST 2003
i686 GNU/Linux
configure opts:
Fortran compiler: g77
FFLAGS:           -O
F2C:
F2CFLAGS:
FLIBS:            -L/usr/lib/gcc-lib/i486-linux/3.3.2
-L/usr/lib/gcc-lib/i486-linux/3.3.2/../../.. -lhdf5 -lz -lfrtbegin -lg2c -lm
-lgcc_s
CPPFLAGS:
INCFLAGS:         -I. -I. -I./liboctave -I./src -I./libcruft/misc  -I./glob
-I./glob
C compiler:       gcc, version 3.3.2 (Debian)
CFLAGS:           -g -O2
CPICFLAG:         -fPIC
C++ compiler:     g++, version 3.3.2
CXXFLAGS:         -g -O2
CXXPICFLAG:       -fPIC
LD_CXX:           g++
LDFLAGS:
LIBFLAGS:         -L.
RLD_FLAG:         -Wl,-rpath -Wl,/usr/local/lib/octave-2.1.52
BLAS_LIBS:        -lblas
FFTW_LIBS:
LIBS:             -lreadline  -lncurses -lhdf5 -lz -lm
LEXLIB:
LIBPLPLOT:
LIBDLFCN:
LIBGLOB:          ./glob/glob.o ./glob/fnmatch.o
SED:              /bin/sed
DEFS:



-------------------------------------------------------------
Octave is freely available under the terms of the GNU GPL.

Octave's home on the web:  http://www.octave.org
How to fund new projects:  http://www.octave.org/funding.html
Subscription information:  http://www.octave.org/archive.html
-------------------------------------------------------------