StdLib/PosixLib/Gen/dirname.c

   1 /** @file
   2
   3  * Copyright (c) 1997, 2002 The NetBSD Foundation, Inc.
   4  * All rights reserved.
   5  *
   6  * This code is derived from software contributed to The NetBSD Foundation
   7  * by Klaus Klein and Jason R. Thorpe.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  *
  18  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  19  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  20  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  21  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  22  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  23  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  24  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  25  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  26  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28  * POSSIBILITY OF SUCH DAMAGE.
  29
  30     NetBSD: dirname.c,v 1.10 2008/05/10 22:39:40 christos Exp
  31  */
  32 #include  <LibConfig.h>
  33
  34 #include <sys/cdefs.h>
  35
  36 //#include "namespace.h"
  37 //#include <libgen.h>
  38 #include <limits.h>
  39 #include <string.h>
  40
  41 #ifdef __weak_alias
  42 __weak_alias(dirname,_dirname)
  43 #endif
  44
  45 #if !HAVE_DIRNAME
  46 char *
  47 dirname(char *path)
  48 {
  49   static char singledot[] = ".";
  50   static char result[PATH_MAX];
  51   const char *lastp;
  52   size_t len;
  53
  54   /*
  55    * If `path' is a null pointer or points to an empty string,
  56    * return a pointer to the string ".".
  57    */
  58   if ((path == NULL) || (*path == '\0'))
  59     return (singledot);
  60
  61   /* Strip trailing slashes, if any. */
  62   lastp = path + strlen(path) - 1;
  63   while (lastp != path && *lastp == '/')
  64     lastp--;
  65
  66   /* Terminate path at the last occurence of '/'. */
  67   do {
  68     if (*lastp == '/') {
  69       /* Strip trailing slashes, if any. */
  70       while (lastp != path && *lastp == '/')
  71         lastp--;
  72
  73       /* ...and copy the result into the result buffer. */
  74       len = (lastp - path) + 1 /* last char */;
  75       if (len > (PATH_MAX - 1))
  76         len = PATH_MAX - 1;
  77
  78       memcpy(result, path, len);
  79       result[len] = '\0';
  80
  81       return (result);
  82     }
  83   } while (--lastp >= path);
  84
  85   /* No /'s found, return a pointer to the string ".". */
  86   return (singledot);
  87 }
  88 #endif