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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.3/] [libiberty/] [basename.c] - Blame information for rev 1776

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

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

powered by: WebSVN 2.1.0

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