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 / close.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  334b  |  27 lines
  1. #include "amiga.h"
  2. #include "files.h"
  3. #include <fcntl.h>
  4.  
  5. #undef close
  6.  
  7. int __close(int fd)
  8. {
  9.   struct fileinfo *fi;
  10.  
  11.   chkabort();
  12.   if (fi = _find_fd(fd))
  13.     {
  14.       int err = fi->close(fi->userinfo, fi->flags & O_NO_CLOSE);
  15.  
  16.       _free_fd(fd);
  17.       return err;
  18.     }
  19.   return -1;
  20. }
  21.  
  22. int close(int fd)
  23. {
  24.   return __close(fd);
  25. }
  26.  
  27.