Mercurial > octave-nkf
annotate scripts/miscellaneous/fileparts.m @ 8201:0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 08 Oct 2008 14:10:08 -0400 |
parents | a1dbe9d80eee |
children | cbd6545b0d85 d7d30988b3ea |
rev | line source |
---|---|
7017 | 1 ## Copyright (C) 2003, 2004, 2005, 2006, 2007 John W. Eaton |
4264 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
4264 | 9 ## |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
4264 | 18 |
19 ## -*- texinfo -*- | |
4350 | 20 ## @deftypefn {Function File} {[@var{dir}, @var{name}, @var{ext}, @var{ver}] =} fileparts (@var{filename}) |
4264 | 21 ## Return the directory, name, extension, and version components of |
22 ## @var{filename}. | |
5835 | 23 ## @seealso{fullfile} |
4264 | 24 ## @end deftypefn |
25 | |
26 function [directory, name, extension, version] = fileparts (filename) | |
27 | |
28 if (nargin == 1) | |
5443 | 29 if (ischar (filename)) |
4264 | 30 ds = rindex (filename, filesep); |
31 es = rindex (filename, "."); | |
5073 | 32 ## These can be the same if they are both 0 (no dir or ext). |
33 if (es <= ds) | |
4683 | 34 es = length(filename)+1; |
35 endif | |
8201
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
36 if (ds == 0) |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
37 directory = ""; |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
38 elseif (ds == 1) |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
39 directory = filename(1); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
40 else |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
41 directory = filename(1:ds-1); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
42 endif |
4264 | 43 name = filename(ds+1:es-1); |
8201
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
44 if (es > 0 && es <= length (filename)) |
5073 | 45 extension = filename(es:end); |
46 else | |
47 extension = ""; | |
48 endif | |
4264 | 49 version = ""; |
50 else | |
4424 | 51 error ("fileparts: expecting filename argument to be a string"); |
4264 | 52 endif |
53 else | |
6046 | 54 print_usage (); |
4264 | 55 endif |
56 | |
57 endfunction | |
8201
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
58 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
59 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
60 %! [d, n, e] = fileparts ("file"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
61 %! assert (strcmp (d, "") && strcmp (n, "file") && strcmp (e, "")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
62 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
63 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
64 %! [d, n, e] = fileparts ("file.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
65 %! assert (strcmp (d, "") && strcmp (n, "file") && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
66 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
67 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
68 %! [d, n, e] = fileparts ("/file.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
69 %! assert (strcmp (d, "/") && strcmp (n, "file") && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
70 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
71 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
72 %! [d, n, e] = fileparts ("dir/file.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
73 %! assert (strcmp (d, "dir") && strcmp (n, "file") && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
74 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
75 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
76 %! [d, n, e] = fileparts ("./file.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
77 %! assert (strcmp (d, ".") && strcmp (n, "file") && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
78 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
79 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
80 %! [d, n, e] = fileparts ("d1/d2/file.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
81 %! assert (strcmp (d, "d1/d2") && strcmp (n, "file") && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
82 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
83 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
84 %! [d, n, e] = fileparts ("/d1/d2/file.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
85 %! assert (strcmp (d, "/d1/d2") && strcmp (n, "file") && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
86 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
87 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
88 %! [d, n, e] = fileparts ("/.ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
89 %! assert (strcmp (d, "/") && strcmp (n, char (zeros (1, 0))) && strcmp (e, ".ext")); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
90 |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
91 %!test |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
92 %! [d, n, e] = fileparts (".ext"); |
0ab4eed59455
fileparts.m: handle "/file" correctly; improve compatibilty
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
93 %! assert (strcmp (d, "") && strcmp (n, char (zeros (1, 0))) && strcmp (e, ".ext")); |