/* stat.c -- for Lattice 4.01 */#include <exec/types.h>#include <exec/exec.h>#include <libraries/dos.h>#include <libraries/dosextens.h>#include <proto/exec.h>#include <proto/dos.h>#include <sys/types.h>#include <sys/stat.h>/* I can't find the defines for DirEntryType or EntryType... */#define DOSDIR  (2L)#define DOSFILE (-3L)   /* actually, < 0 */#ifndef SUCCESS#define SUCCESS (-1)#define FAILURE (0)#endifextern int stat(char *file,struct stat *buf);stat(file,buf)char *file;struct stat *buf;{        struct FileInfoBlock *inf;        struct FileLock *lock;        long ftime;        if( (lock = (struct FileLock *)Lock(file,SHARED_LOCK))==0 )                /* file not found */                return(-1);        if( !(inf = (struct FileInfoBlock *)AllocMem(                (long)sizeof(struct FileInfoBlock),MEMF_PUBLIC|MEMF_CLEAR)) )        {                UnLock((BPTR)lock);                return(-1);        }        if( Examine((BPTR)lock,inf)==FAILURE )        {                FreeMem((char *)inf,(long)sizeof(*inf));                UnLock((BPTR)lock);                return(-1);        }        /* fill in buf */        buf->st_dev                =        buf->st_nlink        =        buf->st_uid                =        buf->st_gid                =        buf->st_rdev        = 0;                buf->st_ino                = inf->fib_DiskKey;        buf->st_blocks        = inf->fib_NumBlocks;        buf->st_size        = inf->fib_Size;        buf->st_blksize        = 512;        /* now the date.  AmigaDOG has weird datestamps---         *      ds_Days is the number of days since 1-1-1978;         *      however, as Unix wants date since 1-1-1970...         */        ftime =                (inf->fib_Date.ds_Days * 86400 )                +                (inf->fib_Date.ds_Minute * 60 )                 +                (inf->fib_Date.ds_Tick / TICKS_PER_SECOND )     +                (86400 * 8 * 365 )                              +                (86400 * 2 );  /* two leap years, I think *//*  ftime += timezone;  */        buf->st_ctime =        buf->st_atime =        buf->st_mtime =        buf->st_mtime = ftime;        switch( inf->fib_DirEntryType )        {        case DOSDIR:                buf->st_mode = S_IFDIR;                break;        case DOSFILE:                buf->st_mode = S_IFREG;                break;        default:                buf->st_mode = S_IFDIR | S_IFREG;                /* an impossible combination?? */        }        /* lastly, throw in the protection bits */        if((inf->fib_Protection & FIBF_READ) == 0)                buf->st_mode |= S_IREAD;        if((inf->fib_Protection & FIBF_WRITE) == 0)                buf->st_mode |= S_IWRITE;        if((inf->fib_Protection & FIBF_EXECUTE) == 0)                buf->st_mode |= S_IEXECUTE;        if((inf->fib_Protection & FIBF_DELETE) == 0)                buf->st_mode |= S_IDELETE;        if((inf->fib_Protection & (long)FIBF_ARCHIVE))                buf->st_mode |= S_IARCHIVE;        if((inf->fib_Protection & (long)FIBF_PURE))                buf->st_mode |= S_IPURE;        if((inf->fib_Protection & (long)FIBF_SCRIPT))                buf->st_mode |= S_ISCRIPT;        FreeMem((char *)inf, (long)sizeof(*inf));        UnLock((BPTR)lock);        return(0);}