2 * Copyright (c) 2018, 2019 Stefan Sperling <stsp@openbsd.org>
3 * Copyright (c) 2015 Theo de Raadt <deraadt@openbsd.org>
4 * Copyright (c) 1997 Todd C. Miller <millert@openbsd.org>
6 * Permission to use, copy, modify, and distribute this software for any
7 * purpose with or without fee is hereby granted, provided that the above
8 * copyright notice and this permission notice appear in all copies.
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
32 #include "got_compat.h"
34 #include "got_error.h"
38 #define MIN(_a,_b) ((_a) < (_b) ? (_a) : (_b))
42 got_path_is_absolute(const char *path)
44 return path[0] == '/';
47 /* based on canonpath() from kern_pledge.c */
48 const struct got_error *
49 got_canonpath(const char *input, char *buf, size_t bufsize)
54 /* can't canon relative paths, don't bother */
55 if (!got_path_is_absolute(input)) {
56 if (strlcpy(buf, input, bufsize) >= bufsize)
57 return got_error(GOT_ERR_NO_SPACE);
63 while (*p && (q - buf < bufsize)) {
64 if (p[0] == '/' && (p[1] == '/' || p[1] == '\0')) {
67 } else if (p[0] == '/' && p[1] == '.' &&
68 (p[2] == '/' || p[2] == '\0')) {
71 } else if (p[0] == '/' && p[1] == '.' && p[2] == '.' &&
72 (p[3] == '/' || p[3] == '\0')) {
74 if (q != buf) /* "/../" at start of buf */
82 if ((*p == '\0') && (q - buf < bufsize)) {
86 return got_error(GOT_ERR_NO_SPACE);
89 const struct got_error *
90 got_path_skip_common_ancestor(char **child, const char *parent_abspath,
93 const struct got_error *err = NULL;
94 size_t len_parent, len, bufsize;
98 len_parent = strlen(parent_abspath);
99 len = strlen(abspath);
100 if (len_parent >= len)
101 return got_error_path(abspath, GOT_ERR_BAD_PATH);
102 if (strncmp(parent_abspath, abspath, len_parent) != 0)
103 return got_error_path(abspath, GOT_ERR_BAD_PATH);
104 if (!got_path_is_root_dir(parent_abspath) && abspath[len_parent] != '/')
105 return got_error_path(abspath, GOT_ERR_BAD_PATH);
106 while (abspath[len_parent] == '/')
108 bufsize = len - len_parent + 1;
109 *child = malloc(bufsize);
111 return got_error_from_errno("malloc");
112 if (strlcpy(*child, abspath + len_parent, bufsize) >= bufsize) {
113 err = got_error_from_errno("strlcpy");
121 const struct got_error *
122 got_path_strip(char **out, const char *path, int n)
129 while (n > 0 && (c = strchr(p, '/')) != NULL) {
135 return got_error_fmt(GOT_ERR_BAD_PATH,
136 "can't strip %d path-components from %s", n, path);
138 if ((*out = strdup(p)) == NULL)
139 return got_error_from_errno("strdup");
144 got_path_is_root_dir(const char *path)
148 return (*path == '\0');
152 got_path_is_current_dir(const char *path)
154 return (path[0] == '.' && path[1] == '\0');
158 got_path_is_child(const char *child, const char *parent, size_t parent_len)
160 if (parent_len == 0 || got_path_is_root_dir(parent))
163 if (strncmp(parent, child, parent_len) != 0)
165 if (child[parent_len] != '/')
172 got_path_cmp(const char *path1, const char *path2, size_t len1, size_t len2)
177 /* Leading directory separators are insignificant. */
178 while (path1[0] == '/') {
182 while (path2[0] == '/') {
187 min_len = MIN(len1, len2);
189 /* Skip over common prefix. */
190 while (i < min_len && path1[i] == path2[i])
193 /* Are the paths exactly equal (besides path separators)? */
194 if (len1 == len2 && i >= min_len)
197 /* Skip over redundant trailing path seperators. */
198 while (path1[i] == '/' && path1[i + 1] == '/')
200 while (path2[i] == '/' && path2[i + 1] == '/')
203 /* Trailing path separators are insignificant. */
204 if (path1[i] == '/' && path1[i + 1] == '\0' && path2[i] == '\0')
206 if (path2[i] == '/' && path2[i + 1] == '\0' && path1[i] == '\0')
209 /* Order children in subdirectories directly after their parents. */
210 if (path1[i] == '/' && path2[i] == '\0')
212 if (path2[i] == '/' && path1[i] == '\0')
214 if (path1[i] == '/' && path2[i] != '\0')
216 if (path2[i] == '/' && path1[i] != '\0')
219 /* Next character following the common prefix determines order. */
220 return (unsigned char)path1[i] < (unsigned char)path2[i] ? -1 : 1;
223 const struct got_error *
224 got_pathlist_insert(struct got_pathlist_entry **inserted,
225 struct got_pathlist_head *pathlist, const char *path, void *data)
227 struct got_pathlist_entry *new, *pe;
232 new = malloc(sizeof(*new));
234 return got_error_from_errno("malloc");
236 new->path_len = strlen(path);
240 * Many callers will provide paths in a somewhat sorted order while
241 * constructing a path list from inputs such as tree objects or
242 * dirents. Iterating backwards from the tail of the list should
243 * be more efficient than traversing through the entire list each
244 * time an element is inserted.
246 pe = TAILQ_LAST(pathlist, got_pathlist_head);
248 int cmp = got_path_cmp(pe->path, new->path,
249 pe->path_len, new->path_len);
251 free(new); /* duplicate */
253 } else if (cmp < 0) {
254 TAILQ_INSERT_AFTER(pathlist, pe, new, entry);
259 pe = TAILQ_PREV(pe, got_pathlist_head, entry);
262 TAILQ_INSERT_HEAD(pathlist, new, entry);
268 const struct got_error *
269 got_pathlist_append(struct got_pathlist_head *pathlist,
270 const char *path, void *data)
272 struct got_pathlist_entry *new;
274 new = malloc(sizeof(*new));
276 return got_error_from_errno("malloc");
278 new->path_len = strlen(path);
280 TAILQ_INSERT_TAIL(pathlist, new, entry);
285 got_pathlist_free(struct got_pathlist_head *pathlist)
287 struct got_pathlist_entry *pe;
289 while ((pe = TAILQ_FIRST(pathlist)) != NULL) {
290 TAILQ_REMOVE(pathlist, pe, entry);
295 static const struct got_error *
296 make_parent_dirs(const char *abspath)
298 const struct got_error *err = NULL;
301 err = got_path_dirname(&parent, abspath);
305 if (mkdir(parent, GOT_DEFAULT_DIR_MODE) == -1) {
306 if (errno == ENOENT) {
307 err = make_parent_dirs(parent);
310 if (mkdir(parent, GOT_DEFAULT_DIR_MODE) == -1) {
311 err = got_error_from_errno2("mkdir", parent);
315 err = got_error_from_errno2("mkdir", parent);
322 const struct got_error *
323 got_path_mkdir(const char *abspath)
325 const struct got_error *err = NULL;
327 if (mkdir(abspath, GOT_DEFAULT_DIR_MODE) == -1) {
328 if (errno == ENOENT) {
329 err = make_parent_dirs(abspath);
332 if (mkdir(abspath, GOT_DEFAULT_DIR_MODE) == -1)
333 err = got_error_from_errno2("mkdir", abspath);
335 err = got_error_from_errno2("mkdir", abspath);
343 got_path_dir_is_empty(const char *dir)
353 while ((dent = readdir(d)) != NULL) {
354 if (strcmp(dent->d_name, ".") == 0 ||
355 strcmp(dent->d_name, "..") == 0)
366 const struct got_error *
367 got_path_dirname(char **parent, const char *path)
372 if (strlcpy(buf, path, sizeof(buf)) >= sizeof(buf))
373 return got_error(GOT_ERR_NO_SPACE);
377 return got_error_from_errno2("dirname", path);
379 if (p[0] == '.' && p[1] == '\0')
380 return got_error_path(path, GOT_ERR_BAD_PATH);
384 return got_error_from_errno("strdup");
389 const struct got_error *
390 got_path_dirent_type(int *type, const char *path_parent, struct dirent *dent)
392 const struct got_error *err = NULL;
396 if (dent->d_type != DT_UNKNOWN) {
397 *type = dent->d_type;
404 * This is a fallback to accommodate filesystems which do not
405 * provide directory entry type information. DT_UNKNOWN directory
406 * entries occur on NFS mounts without "readdir plus" RPC.
409 if (asprintf(&path_child, "%s/%s", path_parent, dent->d_name) == -1)
410 return got_error_from_errno("asprintf");
412 if (lstat(path_child, &sb) == -1) {
413 err = got_error_from_errno2("lstat", path_child);
417 if (S_ISFIFO(sb.st_mode))
419 else if (S_ISCHR(sb.st_mode))
421 else if (S_ISDIR(sb.st_mode))
423 else if (S_ISBLK(sb.st_mode))
425 else if (S_ISLNK(sb.st_mode))
427 else if (S_ISREG(sb.st_mode))
429 else if (S_ISSOCK(sb.st_mode))
436 const struct got_error *
437 got_path_basename(char **s, const char *path)
442 if (strlcpy(buf, path, sizeof(buf)) >= sizeof(buf))
443 return got_error(GOT_ERR_NO_SPACE);
445 base = basename(buf);
447 return got_error_from_errno2("basename", path);
451 return got_error_from_errno("strdup");
457 got_path_strip_trailing_slashes(char *path)
462 while (x-- > 0 && path[x] == '/')
466 /* based on findprog() from usr.bin/which/which.c */
467 const struct got_error *
468 got_path_find_prog(char **filename, const char *prog)
470 const struct got_error *err = NULL;
474 char *path, *pathcpy;
478 path = getenv("PATH");
480 path = _PATH_DEFPATH;
482 /* Special case if prog contains '/' */
483 if (strchr(prog, '/')) {
484 if ((stat(prog, &sbuf) == 0) && S_ISREG(sbuf.st_mode) &&
485 access(prog, X_OK) == 0) {
486 *filename = strdup(prog);
487 if (*filename == NULL)
488 return got_error_from_errno("strdup");
493 if ((path = strdup(path)) == NULL)
494 return got_error_from_errno("strdup");
497 while ((p = strsep(&pathcpy, ":")) != NULL) {
502 while (len > 0 && p[len-1] == '/')
503 p[--len] = '\0'; /* strip trailing '/' */
505 if (asprintf(filename, "%s/%s", p, prog) == -1) {
506 err = got_error_from_errno("asprintf");
509 if ((stat(*filename, &sbuf) == 0) && S_ISREG(sbuf.st_mode) &&
510 access(*filename, X_OK) == 0)
520 const struct got_error *
521 got_path_create_file(const char *path, const char *content)
523 const struct got_error *err = NULL;
526 fd = open(path, O_RDWR | O_CREAT | O_EXCL | O_NOFOLLOW | O_CLOEXEC,
527 GOT_DEFAULT_FILE_MODE);
529 err = got_error_from_errno2("open", path);
534 int len = dprintf(fd, "%s\n", content);
535 if (len != strlen(content) + 1) {
536 err = got_error_from_errno("dprintf");
542 if (fd != -1 && close(fd) == -1 && err == NULL)
543 err = got_error_from_errno("close");