merge from gcc
[external/binutils.git] / libiberty / basename.c
1 /* Return the basename of a pathname.
2    This file is in the public domain. */
3
4 /*
5
6 @deftypefn Supplemental char* basename (const char *@var{name})
7
8 Returns a pointer to the last component of pathname @var{name}.
9 Behavior is undefined if the pathname ends in a directory separator.
10
11 @end deftypefn
12
13 */
14
15 #include "ansidecl.h"
16 #include "libiberty.h"
17 #include "safe-ctype.h"
18
19 #ifndef DIR_SEPARATOR
20 #define DIR_SEPARATOR '/'
21 #endif
22
23 #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \
24   defined (__OS2__)
25 #define HAVE_DOS_BASED_FILE_SYSTEM
26 #ifndef DIR_SEPARATOR_2 
27 #define DIR_SEPARATOR_2 '\\'
28 #endif
29 #endif
30
31 /* Define IS_DIR_SEPARATOR.  */
32 #ifndef DIR_SEPARATOR_2
33 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
34 #else /* DIR_SEPARATOR_2 */
35 # define IS_DIR_SEPARATOR(ch) \
36         (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
37 #endif /* DIR_SEPARATOR_2 */
38
39 char *
40 basename (name)
41      const char *name;
42 {
43   const char *base;
44
45 #if defined (HAVE_DOS_BASED_FILE_SYSTEM)
46   /* Skip over the disk name in MSDOS pathnames. */
47   if (ISALPHA (name[0]) && name[1] == ':') 
48     name += 2;
49 #endif
50
51   for (base = name; *name; name++)
52     {
53       if (IS_DIR_SEPARATOR (*name))
54         {
55           base = name + 1;
56         }
57     }
58   return (char *) base;
59 }
60