compiler/posixc/dirname.c

   1 /*
   2     Copyright © 2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX.1-2008 function dirname().
   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 *dirname(
  19
  20 /*  SYNOPSIS */
  21         char *filename)
  22
  23 /*  FUNCTION
  24         Returns the string up to the latest '/'.
  25
  26     INPUTS
  27         filename - Path which should be split
  28
  29     RESULT
  30         Directory part of the path.
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39         basename()
  40
  41     INTERNALS
  42
  43 ******************************************************************************/
  44 {
  45     char *uname;
  46     char *pos;
  47
  48     if (!filename || *filename == '\0')
  49     {
  50         D(bug("dirname()=.\n"));
  51         return ".";
  52     }
  53
  54     uname = (char *)__path_a2u(filename);
  55
  56     pos = uname;
  57
  58     if (pos[0] == '/' && pos[1] == '\0')
  59     {
  60         D(bug("dirname(/)=/\n"));
  61         return uname;
  62     }
  63
  64     D(bug("dirname(%s)=", filename));
  65
  66     pos = uname + strlen(uname);
  67     while (pos[-1] == '/')
  68     {
  69         --pos;
  70         pos[0] = '\0';
  71     }
  72     while (--pos > uname)
  73     {
  74         if (pos[0] == '/')
  75         {
  76             pos[0] = '\0';
  77             break;
  78         }
  79     }
  80
  81     if (pos == uname)
  82         uname = ".";
  83
  84     D(bug("%s\n", uname));
  85     return uname;
  86 }
  87