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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
/**
* slibc — Yet another C library
* Copyright © 2015, 2016 Mattias Andrée (maandree@member.fsf.org)
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
/* TODO temporary contants from other headers { */
#define _CS_PATH 1
/* } */
/**
* The default value for the PATH environment variable.
*/
#ifndef DEFAULT_PATH
# define DEFAULT_PATH "/usr/local/bin:/bin:/usr/bin"
#endif
/**
* Search the environment variable $PATH for an executable
* file whose name is the specified name. Slashes are ignored
* and treated as any other character. $PATH is searched
* for left to right, and ':' is used as the path-delimiter.
* If $PATH is not defined, a fallback value for $PATH will be
* used.
*
* $PATH is not inspected if `name` starts with './', '../', or '/'.
*
* This function was added because it was useful in implementing
* the `exec`-function family.
*
* This is a slibc extension.
*
* @etymology Variant of (searchpath) that takes (2) arguments.
*
* @param name The name of the sought executable. Must not be `NULL`.
* @param fallback Value to use instead of the value of $PATH, if
* path is not defined. If `NULL` the default value
* for $PATH is used.
* @param first If $PATH is not defined, and `fallback` is `NULL`,
* these directories are tested before the default
* directories. May be `NULL`.
* @return The pathname of the sought file, `NULL` on error,
* or if not found. Files that are not executable
* are (almost) ignored.
*
* @throws ENOMEM The process cannot allocate enough memory.
* @throws ENOENT There are no directories listed in $PATH, or
* the sought file is not exist inside $PATH.
* @throws EACCES None of the candidates (with at least one candidate)
* are executable by the current user.
* @throws Any exception defined for access(3), except for `EROFS`,
* these when encountered, the search is aborted, unless
* the error is `ENOENT` or `EACCES`.
*
* @since Always.
*/
char* searchpath3(const char* name, const char* fallback, const char* first)
{
char* path;
size_t len = 0;
char* pathname = NULL;
char* p;
char* q;
int eacces = 0;
int saved_errno;
if (strstarts(name, "./") || strstarts(name, "../") || strstarts(name, "/"))
{
if (access(name, X_OK) == 0)
return strdup(name);
return NULL;
}
path = getenv("PATH");
if ((path == NULL) && (fallback == NULL))
{
if (first == NULL)
first = "";
if ((len = confstr(_CS_PATH, NULL, 0)))
{
path = malloc((strlen(first) + 1 + len) * sizeof(char));
if (path == NULL)
goto fail;
if (!confstr(_CS_PATH, stpcpy(stpcpy(path, first), ":"), len))
free(path), path = NULL;
}
if (path == NULL)
{
path = malloc(strlen(first) * sizeof(char) + sizeof(":" DEFAULT_PATH));
if (path == NULL)
goto fail;
stpcpy(stpcpy(path, first), ":" DEFAULT_PATH);
}
}
else
path = strdup(path == NULL ? fallback : path);
if (path == NULL)
goto fail;
pathname = malloc((strlen(path) + strlen(name) + 2) * sizeof(char));
if (pathname == NULL)
goto fail;
for (p = path; *p; p = q + 1)
{
if (p == (q = strchr(p, ':')))
continue;
*q = '\0';
stpcpy(stpcpy(stpcpy(pathname, p), "/"), name);
if (access(pathname, X_OK) == 0)
{
char* truncated = realloc(pathname, (strlen(pathname) + 1) * sizeof(char));
return truncated == NULL ? pathname : truncated;
}
else if (errno == EACCES) eacces = 1;
else if (errno != ENOENT) goto fail;
}
free(path);
free(pathname);
return errno = (eacces ? EACCES : ENOENT), -1;
fail:
saved_errno = errno;
free(path);
free(pathname);
errno = saved_errno;
return -1;
}
|
