compiler/posixc/basename.c

   1 /*
   2     Copyright © 2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX.1-2008 function basename().
   6 */
   7
   8 #include "__upath.h"
   9
  10 #define DEBUG 0
  11 #include <aros/debug.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <libgen.h>
  17
  18         char *basename(
  19
  20 /*  SYNOPSIS */
  21         char *filename)
  22
  23 /*  FUNCTION
  24         Returns the part after the latest '/' of a path.
  25         Trailing '/' are not counted as part of the path.
  26
  27     INPUTS
  28         filename - Path which should be split.
  29
  30     RESULT
  31         Rightmost part of the path.
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40         dirname()
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45 {
  46     char *uname;
  47     char *pos;
  48
  49     if (!filename || *filename == '\0')
  50     {
  51         D(bug("basename()=.\n"));
  52         return ".";
  53     }
  54
  55     uname = (char *)__path_a2u(filename);
  56
  57     pos = uname;
  58
  59     if (pos[0] == '/' && pos[1] == '\0')
  60     {
  61         D(bug("basename(/)=/\n"));
  62         return uname;
  63     }
  64
  65     D(bug("basename(%s)=", filename));
  66
  67     pos = uname + strlen(uname);
  68     while (pos[-1] == '/')
  69     {
  70         --pos;
  71         pos[0] = '\0';
  72     }
  73     while (--pos > uname)
  74     {
  75         if (pos[0] == '/')
  76         {
  77             uname = ++pos;
  78             break;
  79         }
  80     }
  81
  82     D(bug("%s\n", uname));
  83     return uname;
  84 }
  85