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