basename.c revision 60484 
1/* Return the basename of a pathname.
2   This file is in the public domain. */
3
4/*
5NAME
6	basename -- return pointer to last component of a pathname
7
8SYNOPSIS
9	char *basename (const char *name)
10
11DESCRIPTION
12	Given a pointer to a string containing a typical pathname
13	(/usr/src/cmd/ls/ls.c for example), returns a pointer to the
14	last component of the pathname ("ls.c" in this case).
15
16BUGS
17	Presumes a UNIX or DOS/Windows style path with UNIX or DOS/Windows
18	style separators.
19*/
20
21#include "ansidecl.h"
22#include "libiberty.h"
23#include <ctype.h>
24
25#ifndef DIR_SEPARATOR
26#define DIR_SEPARATOR '/'
27#endif
28
29#if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \
30  defined (__OS2__)
31#define HAVE_DOS_BASED_FILE_SYSTEM
32#ifndef DIR_SEPARATOR_2
33#define DIR_SEPARATOR_2 '\\'
34#endif
35#endif
36
37/* Define IS_DIR_SEPARATOR.  */
38#ifndef DIR_SEPARATOR_2
39# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
40#else /* DIR_SEPARATOR_2 */
41# define IS_DIR_SEPARATOR(ch) \
42	(((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
43#endif /* DIR_SEPARATOR_2 */
44
45char *
46basename (name)
47     const char *name;
48{
49  const char *base;
50
51#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
52  /* Skip over the disk name in MSDOS pathnames. */
53  if (isalpha (name[0]) && name[1] == ':')
54    name += 2;
55#endif
56
57  for (base = name; *name; name++)
58    {
59      if (IS_DIR_SEPARATOR (*name))
60	{
61	  base = name + 1;
62	}
63    }
64  return (char *) base;
65}
66
67