Mercurial > hg > octave-kai > gnulib-hg
annotate lib/basename.c @ 379:0c05dc8a5d05
(basename): Use strrchr, not rindex.
[!STDC_HEADERS && !HAVE_STRING_H]: Define strrchr to rindex.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Fri, 27 Jan 1995 15:23:48 +0000 |
| parents | f8dce34b5ab0 |
| children | 24a13fb1b0c5 |
| rev | line source |
|---|---|
| 9 | 1 /* basename.c -- return the last element in a path |
| 2 Copyright (C) 1990 Free Software Foundation, Inc. | |
| 3 | |
| 4 This program is free software; you can redistribute it and/or modify | |
| 5 it under the terms of the GNU General Public License as published by | |
| 6 the Free Software Foundation; either version 2, or (at your option) | |
| 7 any later version. | |
| 8 | |
| 9 This program is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 GNU General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU General Public License | |
| 15 along with this program; if not, write to the Free Software | |
| 16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
| 17 | |
|
379
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
18 #ifdef HAVE_CONFIG_H |
|
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
19 #include <config.h> |
|
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
20 #endif |
|
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
21 |
|
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
22 #if defined(STDC_HEADERS) || defined(HAVE_STRING_H) |
| 9 | 23 #include <string.h> |
| 24 #else | |
| 25 #include <strings.h> | |
|
379
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
26 #ifndef strrchr |
|
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
27 #define strrchr rindex |
|
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
28 #endif |
| 9 | 29 #endif |
| 30 | |
| 31 /* Return NAME with any leading path stripped off. */ | |
| 32 | |
| 33 char * | |
| 34 basename (name) | |
| 35 char *name; | |
| 36 { | |
| 37 char *base; | |
| 38 | |
|
379
0c05dc8a5d05
(basename): Use strrchr, not rindex.
Jim Meyering <jim@meyering.net>
parents:
9
diff
changeset
|
39 base = strrchr (name, '/'); |
| 9 | 40 return base ? base + 1 : name; |
| 41 } |