#include "amiga.h"
#include "dir_data.h"
#include <utility/tagitem.h>
#include <sys/stat.h>
#include <string.h>

static int attach(char *dest, int dlen, char *dirname, char *name)
{
    char *dirnamep = dirname;

    while (*dirnamep && --dlen > 0)
	*dest++ = *dirnamep++;
    /* Add '/' if `dirname' doesn't already end with it. */
    if (dirnamep > dirname && dirnamep[-1] != '/' && dirnamep[-1] != ':' && --dlen > 0)
	*dest++ = '/';

    while (*name && --dlen > 0)
	*dest++ = *name++;
    *dest = 0;

    return dlen > 0;
}

static struct FileInfoBlock fakefib;
static char last_name[256];

int stat(const char *name, struct stat *sbuf)
{
    struct FileInfoBlock *fib = 0;
    BPTR lock = 0;
    int ret;

    __chkabort();
    /* See if we want information on the last file returned from readdir */
    if (last_info && last_info->cdir == _get_cd() &&
	attach(last_name, 255, last_info->dirname, last_entry->entry.d_name) &&
	strcmp(last_name, name) == 0) {
	/* We do ! Fake a fib */

	fakefib.fib_DiskKey = last_entry->entry.d_ino;
	fakefib.fib_NumBlocks = last_entry->numblocks;
	fakefib.fib_Size = last_entry->size;
	fakefib.fib_Date = last_entry->date;
	fakefib.fib_DirEntryType = last_entry->type;
	fakefib.fib_Protection = last_entry->protection;

	_fibstat(&fakefib, 0, sbuf, last_entry->handler);
	ret = 0;
    } else if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
	       (lock = Lock(name, SHARED_LOCK)) &&
	       Examine(lock, fib)) {
	BPTR parent = ParentDir(lock);
	int isroot = !parent;
	long handler = (long)((struct FileLock *)((long)lock << 2))->fl_Task;

	if (parent)
	    UnLock(parent);
	_fibstat(fib, isroot, sbuf, handler);
	ret = 0;
    } else if (fib && !lock) {
	char *buf = strdup(name);
	char *p;
	char sc = 0;

	for (p = buf + strlen(buf); p >= buf && *p != ':' && *p != '/'; --p);

	if (p < buf || *p == ':') {
	    ++p;
	    sc = *p;
	}
	*p = 0;
	lock = Lock(buf, SHARED_LOCK);
	if (sc)
	    *p = sc;
	else
	    ++p;

	ret = -1;
	if (lock == NULL) {
	    errno = convert_oserr(IoErr());
	} else {
	    long handler = (long)((struct FileLock *)((long)lock << 2))->fl_Task;
	    if (Examine(lock, fib)) {
		while (ExNext(lock, fib)) {
		    if (stricmp(p, fib->fib_FileName) == 0) {
			_fibstat(fib, 0, sbuf, handler);
			ret = 0;
			break;
		    }
		}
		if (ret == -1)
		    errno = ENOENT;
	    } else {
		errno = convert_oserr(IoErr());
	    }
	}
	free(buf);
    } else {
	ret = -1;
	errno = convert_oserr(IoErr());
    }
    if (lock)
	UnLock(lock);
    if (fib)
	FreeDosObject(DOS_FIB, fib);
    return ret;
}