toaruos/libc/stdlib/realpath.c

103 lines
2.1 KiB
C

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <limits.h>
#include <unistd.h>
#include <errno.h>
#ifndef __toaru__
#undef realpath
#define realpath _realpath_toaru
#endif
#define SYMLINK_MAX 5
static void _append_dir(char *out, char *element) {
strcat(out,"/");
strcat(out,element);
}
static void _remove_last(char * out) {
char * last = strrchr(out,'/');
if (last) {
*last = '\0';
}
}
/**
* This is accurate to how we handle paths in ToaruOS.
* It's not correct for real symbolic link handling,
* so it needs some work for that.
*/
char *realpath(const char *path, char *resolved_path) {
/*
* Basically the same as what we do in the kernel for canonicalize_path
* but slightly more complicated because of the requirement to check
* symlinks... this is going to get interesting.
*/
if (!path) {
errno = -EINVAL;
return NULL;
}
if (!resolved_path) {
/* Can't support this yet. */
errno = -EINVAL;
return NULL;
}
/* If we're lucky, we can do this with no allocations, so let's start here... */
char working_path[PATH_MAX+1];
memcpy(working_path, path, strlen(path)+1);
*resolved_path = 0;
if (working_path[0] != '/') {
/* Begin by retreiving the current working directory */
char cwd[PATH_MAX+1];
if (!getcwd(cwd, PATH_MAX)) {
/* Not actually sure if this is the right choice for this, but whatever. */
errno = -ENOTDIR;
return NULL;
}
char *save;
char *tok = strtok_r(cwd,"/",&save);
do {
_append_dir(resolved_path, tok);
} while ((tok = strtok_r(NULL,"/",&save)));
}
char *save;
char *tok = strtok_r(working_path,"/",&save);
do {
if (!strcmp(tok,".")) continue;
if (!strcmp(tok,"..")) {
_remove_last(resolved_path);
continue;
} else {
_append_dir(resolved_path, tok);
}
} while ((tok = strtok_r(NULL,"/",&save)));
if (resolved_path[0] == '\0') {
strcat(resolved_path,"/");
}
return resolved_path;
}
#ifndef __toaru__
int main(int argc, char * argv[]) {
char tmp[PATH_MAX+1];
if (!realpath(argv[1], tmp)) {
fprintf(stderr, "invalid path, errno=%d\n", errno);
return 1;
}
fprintf(stderr, "%s=%s\n", argv[1], tmp);
return 0;
}
#endif