Mercurial > hg > octave-lojdl > gnulib-hg
changeset 1737:c6a6decaf2ad
(base_name): If NAME is all slashes, return `/' (in
conformance with the single unix spec). Reported by Peter Moulder.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Sat, 13 Mar 1999 16:09:00 +0000 |
parents | 478d99148421 |
children | 357903689750 |
files | lib/basename.c |
diffstat | 1 files changed, 17 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/basename.c +++ b/lib/basename.c @@ -1,5 +1,5 @@ /* basename.c -- return the last element in a path - Copyright (C) 1990, 1998 Free Software Foundation, Inc. + Copyright (C) 1990, 1998, 1999 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -29,16 +29,28 @@ /* In general, we can't use the builtin `basename' function if available, since it has different meanings in different environments. - In some environments the builtin `basename' modifies its argument. */ + In some environments the builtin `basename' modifies its argument. + If NAME is all slashes, be sure to return `/'. + FIXME: what if NAME is the empty string? */ char * base_name (char const *name) { char const *base = name += FILESYSTEM_PREFIX_LEN (name); + int all_slashes = 1; + char const *p; - for (; *name; name++) - if (ISSLASH (*name)) - base = name + 1; + for (p = name; *p; p++) + { + if (ISSLASH (*p)) + base = p + 1; + else + all_slashes = 0; + } + + /* If NAME is all slashes, arrange to return `/'. */ + if (*base == '\0' && ISSLASH (*name) && all_slashes) + --base; return (char *) base; }