#ifdef AMIGA

#include "types.h"
#include "stat.h"

#include <libraries/dos.h>	/* For FileInfo struct */
#include <exec/memory.h>	/* For MEMF defines ... */

/*
 *  Manx stat() currently isn't very unix compatible, so we roll our
 *  own...
 */

stat (path, buf)
char *path;
struct stat *buf;
{
    long lck;
    struct FileInfoBlock *fp;
    register long prot;
    register long ftime;
    extern long Lock ();
    extern void *AllocMem ();

    if ((lck = Lock (path, ACCESS_READ)) == 0) {
	return (-1);
    }
    fp = (struct FileInfoBlock *)
	AllocMem ((long) sizeof (struct FileInfoBlock), 
	(long) (MEMF_CLEAR | MEMF_CHIP));
    Examine (lck, fp);
    if (fp -> fib_DirEntryType > 0) {
	buf -> st_mode = S_IFDIR;
    } else {
	buf -> st_mode = S_IFREG;
    }
    prot = ~(fp -> fib_Protection >> 1);
    prot &= 0x7;
    buf -> st_mode |= (prot << 6 | prot << 3 | prot);
    buf -> st_nlink = 1;
    buf -> st_size = fp -> fib_Size;
    ftime = fp -> fib_Date.ds_Days * (60 * 60 * 24);
    ftime += fp -> fib_Date.ds_Minute * 60;
    ftime += fp -> fib_Date.ds_Tick / TICKS_PER_SECOND;
    buf -> st_atime = ftime;
    buf -> st_mtime = ftime;
    buf -> st_ctime = ftime;
    buf -> st_ino = 0;
    buf -> st_dev = 0;
    buf -> st_rdev = 0;
    buf -> st_uid = 0;
    buf -> st_gid = 0;
    FreeMem (fp, (long) sizeof (struct FileInfoBlock));
    UnLock (lck);
    return (0);
}

#endif	/* AMIGA */