OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [libiberty/] [basename.c] - Blame information for rev 866

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
/* 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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.