home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / gnu / libnix-0.8-src.lha / libnix-0.8 / sources / nix / extra / stat.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-12  |  1.0 KB  |  52 lines
  1. #include <sys/types.h>
  2. #include <sys/stat.h>
  3. #include <dos/dosextens.h>
  4. #ifdef __GNUC__
  5. #include <inline/dos.h>
  6. #include <inline/exec.h>
  7. #endif
  8. #include <stabs.h>
  9.  
  10. extern int __stat(struct stat *buf,struct FileInfoBlock *fib);
  11. extern void __seterrno(void);
  12. extern char *__amigapath(const char *path);
  13.  
  14. int stat(const char *name,struct stat *buf)
  15. { struct Process *proc=(struct Process *)FindTask(NULL);
  16.   struct FileInfoBlock *fib;
  17.   APTR oldwin;
  18.   BPTR lock;
  19.   int ret=-1;
  20.  
  21. #ifdef IXPATHS
  22.   if((name=__amigapath(name))==NULL)
  23.     return -1;
  24. #endif
  25.  
  26.   /* avoid possible dos-requesters ;-( */
  27.  
  28.   oldwin=proc->pr_WindowPtr; proc->pr_WindowPtr=(APTR)ret;
  29.  
  30.   if((lock=Lock((STRPTR)name,SHARED_LOCK))!=0)
  31.   {
  32.     if((fib=(struct FileInfoBlock *)AllocDosObject(DOS_FIB,NULL))!=NULL)
  33.     { if(Examine(lock,fib)!=DOSFALSE)
  34.         ret=__stat(buf,fib);
  35.       else
  36.         __seterrno();
  37.       FreeDosObject(DOS_FIB,fib);
  38.     }
  39.     else
  40.       __seterrno();
  41.     UnLock(lock);
  42.   }
  43.   else
  44.     __seterrno();
  45.  
  46.   proc->pr_WindowPtr=oldwin;
  47.  
  48.   return ret;
  49. }
  50.  
  51. ALIAS(lstat,stat);
  52.