ext/Cwd/Cwd.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 #ifdef I_UNISTD
   6 #   include <unistd.h>
   7 #endif
   8
   9 /* The realpath() implementation from OpenBSD 2.9 (realpath.c 1.4)
  10  * Renamed here to bsd_realpath() to avoid library conflicts.
  11  * --jhi 2000-06-20 */
  12
  13 /*
  14  * Copyright (c) 1994
  15  *      The Regents of the University of California.  All rights reserved.
  16  *
  17  * This code is derived from software contributed to Berkeley by
  18  * Jan-Simon Pendry.
  19  *
  20  * Redistribution and use in source and binary forms, with or without
  21  * modification, are permitted provided that the following conditions
  22  * are met:
  23  * 1. Redistributions of source code must retain the above copyright
  24  *    notice, this list of conditions and the following disclaimer.
  25  * 2. Redistributions in binary form must reproduce the above copyright
  26  *    notice, this list of conditions and the following disclaimer in the
  27  *    documentation and/or other materials provided with the distribution.
  28  * 3. All advertising materials mentioning features or use of this software
  29  *    must display the following acknowledgement:
  30  *      This product includes software developed by the University of
  31  *      California, Berkeley and its contributors.
  32  * 4. Neither the name of the University nor the names of its contributors
  33  *    may be used to endorse or promote products derived from this software
  34  *    without specific prior written permission.
  35  *
  36  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  37  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  38  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  39  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  40  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  41  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  42  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  43  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  44  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  45  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  46  * SUCH DAMAGE.
  47  */
  48
  49 #if defined(LIBC_SCCS) && !defined(lint)
  50 static char *rcsid = "$OpenBSD: realpath.c,v 1.4 1998/05/18 09:55:19 deraadt Exp $";
  51 #endif /* LIBC_SCCS and not lint */
  52
  53 /* OpenBSD system #includes removed since the Perl ones should do. --jhi */
  54
  55 #ifndef MAXSYMLINKS
  56 #define MAXSYMLINKS 8
  57 #endif
  58
  59 /*
  60  * char *realpath(const char *path, char resolved_path[MAXPATHLEN]);
  61  *
  62  * Find the real name of path, by removing all ".", ".." and symlink
  63  * components.  Returns (resolved) on success, or (NULL) on failure,
  64  * in which case the path which caused trouble is left in (resolved).
  65  */
  66 static
  67 char *
  68 bsd_realpath(path, resolved)
  69         const char *path;
  70         char *resolved;
  71 {
  72 #ifdef VMS
  73        dTHX;
  74        return Perl_rmsexpand(aTHX_ (char*)path, resolved, NULL, 0);
  75 #else
  76         struct stat sb;
  77         int n, rootd, serrno;
  78         char *p, *q, wbuf[MAXPATHLEN];
  79         int symlinks = 0;
  80
  81         /* Save the starting point. */
  82 #ifdef HAS_FCHDIR
  83         int fd;
  84
  85         if ((fd = open(".", O_RDONLY)) < 0) {
  86                 (void)strcpy(resolved, ".");
  87                 return (NULL);
  88         }
  89 #else
  90         char wd[MAXPATHLEN];
  91
  92         if (getcwd(wd, MAXPATHLEN - 1) == NULL) {
  93                 (void)strcpy(resolved, ".");
  94                 return (NULL);
  95         }
  96 #endif
  97
  98         /*
  99          * Find the dirname and basename from the path to be resolved.
 100          * Change directory to the dirname component.
 101          * lstat the basename part.
 102          *     if it is a symlink, read in the value and loop.
 103          *     if it is a directory, then change to that directory.
 104          * get the current directory name and append the basename.
 105          */
 106         (void)strncpy(resolved, path, MAXPATHLEN - 1);
 107         resolved[MAXPATHLEN - 1] = '\0';
 108 loop:
 109         q = strrchr(resolved, '/');
 110         if (q != NULL) {
 111                 p = q + 1;
 112                 if (q == resolved)
 113                         q = "/";
 114                 else {
 115                         do {
 116                                 --q;
 117                         } while (q > resolved && *q == '/');
 118                         q[1] = '\0';
 119                         q = resolved;
 120                 }
 121                 if (chdir(q) < 0)
 122                         goto err1;
 123         } else
 124                 p = resolved;
 125
 126 #if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK)
 127         /* Deal with the last component. */
 128         if (lstat(p, &sb) == 0) {
 129                 if (S_ISLNK(sb.st_mode)) {
 130                         if (++symlinks > MAXSYMLINKS) {
 131                                 errno = ELOOP;
 132                                 goto err1;
 133                         }
 134                         n = readlink(p, resolved, MAXPATHLEN-1);
 135                         if (n < 0)
 136                                 goto err1;
 137                         resolved[n] = '\0';
 138                         goto loop;
 139                 }
 140                 if (S_ISDIR(sb.st_mode)) {
 141                         if (chdir(p) < 0)
 142                                 goto err1;
 143                         p = "";
 144                 }
 145         }
 146 #endif
 147
 148         /*
 149          * Save the last component name and get the full pathname of
 150          * the current directory.
 151          */
 152         (void)strcpy(wbuf, p);
 153         if (getcwd(resolved, MAXPATHLEN) == 0)
 154                 goto err1;
 155
 156         /*
 157          * Join the two strings together, ensuring that the right thing
 158          * happens if the last component is empty, or the dirname is root.
 159          */
 160         if (resolved[0] == '/' && resolved[1] == '\0')
 161                 rootd = 1;
 162         else
 163                 rootd = 0;
 164
 165         if (*wbuf) {
 166                 if (strlen(resolved) + strlen(wbuf) + rootd + 1 > MAXPATHLEN) {
 167                         errno = ENAMETOOLONG;
 168                         goto err1;
 169                 }
 170                 if (rootd == 0)
 171                         (void)strcat(resolved, "/");
 172                 (void)strcat(resolved, wbuf);
 173         }
 174
 175         /* Go back to where we came from. */
 176 #ifdef HAS_FCHDIR
 177         if (fchdir(fd) < 0) {
 178                 serrno = errno;
 179                 goto err2;
 180         }
 181 #else
 182         if (chdir(wd) < 0) {
 183                 serrno = errno;
 184                 goto err2;
 185         }
 186 #endif
 187
 188         /* It's okay if the close fails, what's an fd more or less? */
 189 #ifdef HAS_FCHDIR
 190         (void)close(fd);
 191 #endif
 192         return (resolved);
 193
 194 err1:   serrno = errno;
 195 #ifdef HAS_FCHDIR
 196         (void)fchdir(fd);
 197 #else
 198         (void)chdir(wd);
 199 #endif
 200
 201 err2:
 202 #ifdef HAS_FCHDIR
 203         (void)close(fd);
 204 #endif
 205         errno = serrno;
 206         return (NULL);
 207 #endif
 208 }
 209
 210 MODULE = Cwd            PACKAGE = Cwd
 211
 212 PROTOTYPES: ENABLE
 213
 214 void
 215 fastcwd()
 216 PPCODE:
 217 {
 218     dXSTARG;
 219     getcwd_sv(TARG);
 220     XSprePUSH; PUSHTARG;
 221 }
 222
 223 void
 224 abs_path(pathsv=Nullsv)
 225     SV *pathsv
 226 PPCODE:
 227 {
 228     dXSTARG;
 229     char *path;
 230     char buf[MAXPATHLEN];
 231
 232     path = pathsv ? SvPV_nolen(pathsv) : ".";
 233
 234     if (bsd_realpath(path, buf)) {
 235         sv_setpvn(TARG, buf, strlen(buf));
 236         SvPOK_only(TARG);
 237         SvTAINTED_on(TARG);
 238     }
 239     else
 240         sv_setsv(TARG, &PL_sv_undef);
 241
 242     XSprePUSH; PUSHTARG;
 243 #ifndef INCOMPLETE_TAINTS
 244     SvTAINTED_on(TARG);
 245 #endif
 246 }