compiler/clib/dirname.c

   1 /*
   2     Copyright © 2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX function dirname().
   6 */
   7
   8 #include "__upath.h"
   9
  10 #define DEBUG 0
  11 #include <aros/debug.h>
  12
  13 char *dirname(char *filename)
  14 {
  15     char *uname;
  16     char *pos;
  17
  18     if (!filename || *filename == '\0')
  19     {
  20         D(bug("dirname()=.\n"));
  21         return ".";
  22     }
  23
  24     uname = (char *)__path_a2u(filename);
  25
  26     pos = uname;
  27
  28     if (pos[0] == '/' && pos[1] == '\0')
  29     {
  30         D(bug("dirname(/)=/\n"));
  31         return uname;
  32     }
  33
  34     D(bug("dirname(%s)=", filename));
  35
  36     pos = uname + strlen(uname);
  37     while (pos[-1] == '/')
  38     {
  39         --pos;
  40         pos[0] = '\0';
  41     }
  42     while (--pos > uname)
  43     {
  44         if (pos[0] == '/')
  45         {
  46             pos[0] = '\0';
  47             break;
  48         }
  49     }
  50
  51     if (pos == uname)
  52         uname = ".";
  53
  54     D(bug("%s\n", uname));
  55     return uname;
  56 }
  57