82 lines
1.4 KiB
C
82 lines
1.4 KiB
C
/* Amiga - i dont even know where i found this ... */
|
|
/* Ths source i use from ixemul 48.3 http://megacz.back2roots.org/portsbttr.html */
|
|
|
|
#include <limits.h>
|
|
#include <stdlib.h>
|
|
#include <errno.h>
|
|
#include <fcntl.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
|
|
#define PATH_MAX 1024
|
|
|
|
static char *sep(char *path)
|
|
{
|
|
char *tmp, c;
|
|
|
|
tmp = strrchr(path, '/');
|
|
if(tmp) {
|
|
c = tmp[1];
|
|
tmp[1] = 0;
|
|
if (chdir(path)) {
|
|
return NULL;
|
|
}
|
|
tmp[1] = c;
|
|
|
|
return tmp + 1;
|
|
}
|
|
|
|
return path;
|
|
|
|
}
|
|
|
|
char *realpath(const char *_path, char *resolved_path)
|
|
{
|
|
int fd = open(".", O_RDONLY), l;
|
|
char path[PATH_MAX], lnk[PATH_MAX], *tmp = (char *)"";
|
|
|
|
if (fd < 0) {
|
|
return NULL;
|
|
}
|
|
strncpy(path, _path, PATH_MAX);
|
|
|
|
if (chdir(path)) {
|
|
if (errno == ENOTDIR) {
|
|
l = readlink(path, lnk, PATH_MAX);
|
|
if (!(tmp = sep(path))) {
|
|
resolved_path = NULL;
|
|
goto abort;
|
|
}
|
|
if (l < 0) {
|
|
if (errno != EINVAL) {
|
|
resolved_path = NULL;
|
|
goto abort;
|
|
}
|
|
} else {
|
|
lnk[l] = 0;
|
|
if (!(tmp = sep(lnk))) {
|
|
resolved_path = NULL;
|
|
goto abort;
|
|
}
|
|
}
|
|
} else {
|
|
resolved_path = NULL;
|
|
goto abort;
|
|
}
|
|
}
|
|
if (!getcwd(resolved_path, PATH_MAX)) {
|
|
resolved_path = NULL;
|
|
goto abort;
|
|
}
|
|
|
|
if(strcmp(resolved_path, "/") && *tmp) {
|
|
strcat(resolved_path, "/");
|
|
}
|
|
|
|
strcat(resolved_path, tmp);
|
|
abort:
|
|
fchdir(fd);
|
|
close(fd);
|
|
return resolved_path;
|
|
}
|