Integrate mainline
[p5sagit/p5-mst-13.2.git] / ext / Cwd / Cwd.xs
CommitLineData
0d2079fa 1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4
c70498c1 5#ifdef I_UNISTD
6# include <unistd.h>
7#endif
8
03d70c89 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)
50static 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 */
66static
67char *
68bsd_realpath(path, resolved)
69 const char *path;
70 char *resolved;
71{
e3d944f4 72#ifdef VMS
32af7c23 73 dTHX;
74 return Perl_rmsexpand(aTHX_ (char*)path, resolved, NULL, 0);
e3d944f4 75#else
03d70c89 76 struct stat sb;
bae06e14 77 int n, rootd, serrno;
03d70c89 78 char *p, *q, wbuf[MAXPATHLEN];
79 int symlinks = 0;
80
81 /* Save the starting point. */
e3d944f4 82#ifdef HAS_FCHDIR
bae06e14 83 int fd;
84
03d70c89 85 if ((fd = open(".", O_RDONLY)) < 0) {
86 (void)strcpy(resolved, ".");
87 return (NULL);
88 }
e3d944f4 89#else
90 char wd[MAXPATHLEN];
91
92 if (getcwd(wd, MAXPATHLEN - 1) == NULL) {
93 (void)strcpy(resolved, ".");
94 return (NULL);
95 }
96#endif
03d70c89 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';
108loop:
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
bae06e14 126#if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK)
03d70c89 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 }
e3d944f4 146#endif
03d70c89 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. */
e3d944f4 176#ifdef HAS_FCHDIR
03d70c89 177 if (fchdir(fd) < 0) {
178 serrno = errno;
179 goto err2;
180 }
e3d944f4 181#else
182 if (chdir(wd) < 0) {
183 serrno = errno;
184 goto err2;
185 }
186#endif
03d70c89 187
188 /* It's okay if the close fails, what's an fd more or less? */
9cad6237 189#ifdef HAS_FCHDIR
03d70c89 190 (void)close(fd);
9cad6237 191#endif
03d70c89 192 return (resolved);
193
194err1: serrno = errno;
29ab7413 195#ifdef HAS_FCHDIR
03d70c89 196 (void)fchdir(fd);
29ab7413 197#else
198 (void)chdir(wd);
199#endif
89423764 200
201err2:
202#ifdef HAS_FCHDIR
203 (void)close(fd);
204#endif
03d70c89 205 errno = serrno;
206 return (NULL);
e3d944f4 207#endif
03d70c89 208}
209
f22d8e4b 210MODULE = Cwd PACKAGE = Cwd
0d2079fa 211
f22d8e4b 212PROTOTYPES: ENABLE
0d2079fa 213
f22d8e4b 214void
215fastcwd()
216PPCODE:
217{
218 dXSTARG;
89423764 219 getcwd_sv(TARG);
f22d8e4b 220 XSprePUSH; PUSHTARG;
0d2079fa 221}
222
f22d8e4b 223void
03d70c89 224abs_path(pathsv=Nullsv)
225 SV *pathsv
f22d8e4b 226PPCODE:
2ae52c40 227{
f22d8e4b 228 dXSTARG;
229 char *path;
00536bfc 230 char buf[MAXPATHLEN];
03d70c89 231
ea715489 232 path = pathsv ? SvPV_nolen(pathsv) : ".";
03d70c89 233
00536bfc 234 if (bsd_realpath(path, buf)) {
235 sv_setpvn(TARG, buf, strlen(buf));
236 SvPOK_only(TARG);
ea715489 237 SvTAINTED_on(TARG);
2ae52c40 238 }
03d70c89 239 else
ea715489 240 sv_setsv(TARG, &PL_sv_undef);
2ae52c40 241
f22d8e4b 242 XSprePUSH; PUSHTARG;
ea715489 243#ifndef INCOMPLETE_TAINTS
244 SvTAINTED_on(TARG);
245#endif
2ae52c40 246}