5 /* The realpath() implementation from OpenBSD 2.9 (realpath.c 1.4)
6 * Renamed here to bsd_realpath() to avoid library conflicts.
11 * The Regents of the University of California. All rights reserved.
13 * This code is derived from software contributed to Berkeley by
16 * Redistribution and use in source and binary forms, with or without
17 * modification, are permitted provided that the following conditions
19 * 1. Redistributions of source code must retain the above copyright
20 * notice, this list of conditions and the following disclaimer.
21 * 2. Redistributions in binary form must reproduce the above copyright
22 * notice, this list of conditions and the following disclaimer in the
23 * documentation and/or other materials provided with the distribution.
24 * 3. All advertising materials mentioning features or use of this software
25 * must display the following acknowledgement:
26 * This product includes software developed by the University of
27 * California, Berkeley and its contributors.
28 * 4. Neither the name of the University nor the names of its contributors
29 * may be used to endorse or promote products derived from this software
30 * without specific prior written permission.
32 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
33 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
34 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
35 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
36 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
37 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
38 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
39 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
40 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
41 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
45 #if defined(LIBC_SCCS) && !defined(lint)
46 static char *rcsid = "$OpenBSD: realpath.c,v 1.4 1998/05/18 09:55:19 deraadt Exp $";
47 #endif /* LIBC_SCCS and not lint */
49 /* OpenBSD system #includes removed since the Perl ones should do. --jhi */
56 * char *realpath(const char *path, char resolved_path[MAXPATHLEN]);
58 * Find the real name of path, by removing all ".", ".." and symlink
59 * components. Returns (resolved) on success, or (NULL) on failure,
60 * in which case the path which caused trouble is left in (resolved).
64 bsd_realpath(path, resolved)
70 int fd, n, rootd, serrno;
71 char *p, *q, wbuf[MAXPATHLEN];
74 /* Save the starting point. */
75 if ((fd = open(".", O_RDONLY)) < 0) {
76 (void)strcpy(resolved, ".");
81 * Find the dirname and basename from the path to be resolved.
82 * Change directory to the dirname component.
83 * lstat the basename part.
84 * if it is a symlink, read in the value and loop.
85 * if it is a directory, then change to that directory.
86 * get the current directory name and append the basename.
88 (void)strncpy(resolved, path, MAXPATHLEN - 1);
89 resolved[MAXPATHLEN - 1] = '\0';
91 q = strrchr(resolved, '/');
99 } while (q > resolved && *q == '/');
108 /* Deal with the last component. */
109 if (lstat(p, &sb) == 0) {
110 if (S_ISLNK(sb.st_mode)) {
111 if (++symlinks > MAXSYMLINKS) {
115 n = readlink(p, resolved, MAXPATHLEN-1);
121 if (S_ISDIR(sb.st_mode)) {
129 * Save the last component name and get the full pathname of
130 * the current directory.
132 (void)strcpy(wbuf, p);
133 if (getcwd(resolved, MAXPATHLEN) == 0)
137 * Join the two strings together, ensuring that the right thing
138 * happens if the last component is empty, or the dirname is root.
140 if (resolved[0] == '/' && resolved[1] == '\0')
146 if (strlen(resolved) + strlen(wbuf) + rootd + 1 > MAXPATHLEN) {
147 errno = ENAMETOOLONG;
151 (void)strcat(resolved, "/");
152 (void)strcat(resolved, wbuf);
155 /* Go back to where we came from. */
156 if (fchdir(fd) < 0) {
161 /* It's okay if the close fails, what's an fd more or less? */
165 err1: serrno = errno;
167 err2: (void)close(fd);
173 return Perl_rmsexpand((char*)path, resolved, NULL, 0);
175 #endif /* ifndef VMS */
178 MODULE = Cwd PACKAGE = Cwd
192 abs_path(pathsv=Nullsv)
201 New(0, buf, MAXPATHLEN, char);
205 path = SvPV(pathsv, len);
211 if (bsd_realpath(path, buf)) {
212 sv_setpvn(TARG, buf, strlen(buf));
216 sv_setsv(TARG, &PL_sv_undef);
221 sv_setsv(TARG, &PL_sv_undef);