/* 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;
}