home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / unixlib / src / pseudo_c.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  262b  |  19 lines
  1. #include "amiga.h"
  2. #include "files.h"
  3. #include <fcntl.h>
  4.  
  5. int _pseudo_close(int fd)
  6. {
  7.   struct fileinfo *fi;
  8.  
  9.   chkabort();
  10.   if (fi = _find_fd(fd))
  11.     {
  12.       int err = fi->close(fi->userinfo, TRUE);
  13.  
  14.       _free_fd(fd);
  15.       return err;
  16.     }
  17.   return -1;
  18. }
  19.