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 #ifdef HAVE_CONFIG_H
  16 #include "config.h"
  17 #endif
  18 #include "ansidecl.h"
  19 #include "libiberty.h"
  20 #include "safe-ctype.h"
  21
  22 #ifndef DIR_SEPARATOR
  23 #define DIR_SEPARATOR '/'
  24 #endif
  25
  26 #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \
  27   defined (__OS2__)
  28 #define HAVE_DOS_BASED_FILE_SYSTEM
  29 #ifndef DIR_SEPARATOR_2
  30 #define DIR_SEPARATOR_2 '\\'
  31 #endif
  32 #endif
  33
  34 /* Define IS_DIR_SEPARATOR.  */
  35 #ifndef DIR_SEPARATOR_2
  36 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
  37 #else /* DIR_SEPARATOR_2 */
  38 # define IS_DIR_SEPARATOR(ch) \
  39         (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
  40 #endif /* DIR_SEPARATOR_2 */
  41
  42 char *
  43 basename (const char *name)
  44 {
  45   const char *base;
  46
  47 #if defined (HAVE_DOS_BASED_FILE_SYSTEM)
  48   /* Skip over the disk name in MSDOS pathnames. */
  49   if (ISALPHA (name[0]) && name[1] == ':')
  50     name += 2;
  51 #endif
  52
  53   for (base = name; *name; name++)
  54     {
  55       if (IS_DIR_SEPARATOR (*name))
  56         {
  57           base = name + 1;
  58         }
  59     }
  60   return (char *) base;
  61 }
  62