Retro68/gcc/newlib/libc/sys/linux/realpath.c
2012-03-27 01:51:53 +02:00

93 lines
1.8 KiB
C

/* realpath.c - Return the canonicalized absolute pathname */
/* Written 2000 by Werner Almesberger */
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <limits.h>
#include <errno.h>
#include <sys/stat.h>
/* FIXME: buffer overrun possible, loops forever on cyclic symlinks */
/*
* Canonical name: never ends with a slash
*/
static int resolve_path(char *path,char *result,char *pos)
{
if (*path == '/') {
*result = '/';
pos = result+1;
path++;
}
*pos = 0;
if (!*path) return 0;
while (1) {
char *slash;
struct stat st;
slash = *path ? strchr(path,'/') : NULL;
if (slash) *slash = 0;
if (!path[0] || (path[0] == '.' &&
(!path[1] || (path[1] == '.' && !path[2])))) {
pos--;
if (pos != result && path[0] && path[1])
while (*--pos != '/');
}
else {
strcpy(pos,path);
if (lstat(result,&st) < 0) return -1;
if (S_ISLNK(st.st_mode)) {
char buf[PATH_MAX];
if (readlink(result,buf,sizeof(buf)) < 0) return -1;
*pos = 0;
if (slash) {
*slash = '/';
strcat(buf,slash);
}
strcpy(path,buf);
if (*path == '/') result[1] = 0;
pos = strchr(result,0);
continue;
}
pos = strchr(result,0);
}
if (slash) {
*pos++ = '/';
path = slash+1;
}
*pos = 0;
if (!slash) break;
}
return 0;
}
char *realpath(const char *path,char *resolved_path)
{
char cwd[PATH_MAX];
char *path_copy;
int res;
if (!*path) {
errno = ENOENT; /* SUSv2 */
return NULL;
}
if (!getcwd(cwd,sizeof(cwd))) return NULL;
strcpy(resolved_path,"/");
if (resolve_path(cwd,resolved_path,resolved_path)) return NULL;
strcat(resolved_path,"/");
path_copy = strdup(path);
if (!path_copy) return NULL;
res = resolve_path(path_copy,resolved_path,strchr(resolved_path,0));
free(path_copy);
if (res) return NULL;
return resolved_path;
}