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 "libbb.h"
  23
  24 /* Return a string on the heap containing the directory component of PATH.  */
  25
  26 char *dirname(const char *path)
  27 {
  28         const char *s;
  29
  30         /* Go to the end of the string.  */
  31         s = path + strlen(path) - 1;
  32
  33         /* Strip off trailing /s (unless it is also the leading /).  */
  34         while (path < s && s[0] == '/')
  35                 s--;
  36
  37         /* Strip the last component.  */
  38         while (path <= s && s[0] != '/')
  39                 s--;
  40
  41         while (path < s && s[0] == '/')
  42                 s--;
  43
  44         if (s < path)
  45                 return xstrdup (".");
  46         else
  47                 return strdup_substr (path, 0, s - path + 1);
  48 }