1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
/* $Id: pathpath.c,v 1.1.1.1 2004/12/23 04:04:21 ellson Exp $ $Revision: 1.1.1.1 $ */
/* vim:set shiftwidth=4 ts=8: */
/**********************************************************
* This software is part of the graphviz package *
* http://www.graphviz.org/ *
* *
* Copyright (c) 1994-2004 AT&T Corp. *
* and is licensed under the *
* Common Public License, Version 1.0 *
* by AT&T Corp. *
* *
* Information and Software Systems Research *
* AT&T Research, Florham Park NJ *
**********************************************************/
/*
* Glenn Fowler
* AT&T Research
*
* return full path to p with mode access using $PATH
* if a!=0 then it and $0 and $_ with $PWD are used for
* related root searching
* the related root must have a bin subdir
* p==0 sets the cached relative dir to a
* p==0 a=="" disables $0 $_ $PWD relative search
* full path returned in path buffer
* if path==0 then the space is malloc'd
*/
#include <ast.h>
#include <string.h>
#include <unistd.h>
/* #include <option.h> */
extern char **environ;
char **opt_info_argv;
char *pathpath(register char *path, const char *p, const char *a, int mode)
{
register char *s;
char *x;
char buf[PATH_MAX];
static char *cmd;
if (!path)
path = buf;
if (!p) {
if (cmd)
free(cmd);
cmd = a ? strdup(a) : (char *) 0;
return 0;
}
if (strlen(p) < PATH_MAX) {
strcpy(path, p);
if (pathexists(path, mode))
return (path == buf) ? strdup(path) : path;
}
if (*p == '/')
a = 0;
else if ((s = (char *) a)) {
x = s;
if (strchr(p, '/')) {
a = p;
p = "..";
} else
a = 0;
if ((!cmd || *cmd) &&
(strchr(s, '/') ||
(((s = cmd) || (opt_info_argv && (s = *opt_info_argv))) &&
strchr(s, '/') && !strchr(s, '\n') && !access(s, F_OK)) ||
(environ && (s = *environ) && *s++ == '_' &&
*s++ == '=' && strchr(s, '/') && !strneq(s, "/bin/", 5) &&
!strneq(s, "/usr/bin/", 9)) ||
(*x && !access(x, F_OK) && (s = getenv("PWD")) && *s == '/')
)
) {
if (!cmd)
cmd = strdup(s);
if (strlen(s) < (sizeof(buf) - 6)) {
s = strcopy(path, s);
for (;;) {
do
if (s <= path)
goto normal;
while (*--s == '/');
do
if (s <= path)
goto normal;
while (*--s != '/');
strcpy(s + 1, "bin");
if (pathexists(path, PATH_EXECUTE)) {
if ((s = pathaccess(path, path, p, a, mode)))
return path == buf ? strdup(s) : s;
goto normal;
}
}
normal:;
}
}
}
x = !a && strchr(p, '/') ? "" : pathbin();
if (!(s = pathaccess(path, x, p, a, mode)) && !*x
&& (x = getenv("FPATH")))
s = pathaccess(path, x, p, a, mode);
return (s && path == buf) ? strdup(s) : s;
}
|
