libbb/dirname.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * Mini dirname function.
   4  *
   5  * Copyright (C) 2001  Matt Kraai.
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  15  * General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  20  */
  21
  22 #include <string.h>
  23 #include "libbb.h"
  24
  25 #if defined __UCLIBC__ || __GNU_LIBRARY___ < 5
  26
  27 /* Return a string containing the path name of the parent
  28  * directory of PATH.  */
  29
  30 char *dirname(char *path)
  31 {
  32         char *s;
  33
  34         /* Go to the end of the string.  */
  35         s = path + strlen(path) - 1;
  36
  37         /* Strip off trailing /s (unless it is also the leading /).  */
  38         while (path < s && s[0] == '/')
  39                 s--;
  40
  41         /* Strip the last component.  */
  42         while (path <= s && s[0] != '/')
  43                 s--;
  44
  45         while (path < s && s[0] == '/')
  46                 s--;
  47
  48         if (s < path)
  49                 return ".";
  50
  51         s[1] = '\0';
  52         return path;
  53 }
  54
  55 #endif