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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [libiberty/] [lbasename.c] - Blame information for rev 578

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

Line No. Rev Author Line
1 578 markom
/* Libiberty basename.  Like basename, but is not overridden by the
2
   system C library.
3
   Copyright (C) 2001 Free Software Foundation, Inc.
4
 
5
This file is part of the libiberty library.
6
Libiberty is free software; you can redistribute it and/or
7
modify it under the terms of the GNU Library General Public
8
License as published by the Free Software Foundation; either
9
version 2 of the License, or (at your option) any later version.
10
 
11
Libiberty is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14
Library General Public License for more details.
15
 
16
You should have received a copy of the GNU Library General Public
17
License along with libiberty; see the file COPYING.LIB.  If
18
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19
Boston, MA 02111-1307, USA.  */
20
 
21
/*
22
NAME
23
        lbasename -- return pointer to last component of a pathname
24
 
25
SYNOPSIS
26
        char *lbasename (const char *name)
27
 
28
DESCRIPTION
29
        Given a pointer to a string containing a typical pathname
30
        (/usr/src/cmd/ls/ls.c for example), returns a pointer to the
31
        last component of the pathname ("ls.c" in this case).  The
32
        returned pointer is guaranteed to lie within the original
33
        string.  This latter fact is not true of many vendor C
34
        libraries, which return special strings or modify the passed
35
        strings for particular input.
36
 
37
        In particular, the empty string returns the same empty string,
38
        and a path ending in '/' returns the empty string after it.
39
*/
40
 
41
#include "ansidecl.h"
42
#include "libiberty.h"
43
#include "safe-ctype.h"
44
 
45
#ifndef DIR_SEPARATOR
46
#  define DIR_SEPARATOR '/'
47
#endif
48
 
49
#if defined (_WIN32) || defined (__MSDOS__) \
50
    || defined (__DJGPP__) || defined (__OS2__)
51
#  define HAVE_DOS_BASED_FILE_SYSTEM
52
#  ifndef DIR_SEPARATOR_2 
53
#    define DIR_SEPARATOR_2 '\\'
54
#  endif
55
#endif
56
 
57
/* Define IS_DIR_SEPARATOR. VMS uses '::', ':', '[...]' and '<...>' to
58
   separate the different components of a file specification.  It's a
59
   bit of a stretch to call ':', ']' and '>' directory separators, so
60
   just define the test to find the file name component.  */
61
#ifdef VMS
62
#  define IS_DIR_SEPARATOR(ch) ((ch) == ':' || (ch) == ']' || (ch) == '>')
63
#else
64
#  ifndef DIR_SEPARATOR_2
65
#    define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
66
#  else
67
#    define IS_DIR_SEPARATOR(ch) \
68
        (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
69
#  endif
70
#endif
71
 
72
char *
73
lbasename (name)
74
     const char *name;
75
{
76
  const char *base;
77
 
78
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
79
  /* Skip over a possible disk name.  */
80
  if (ISALPHA (name[0]) && name[1] == ':')
81
    name += 2;
82
#endif
83
 
84
  for (base = name; *name; name++)
85
    if (IS_DIR_SEPARATOR (*name))
86
      base = name + 1;
87
 
88
  return (char *) base;
89
}

powered by: WebSVN 2.1.0

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