home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / LIBSRC.ZOO / libsrc / local / close.c < prev    next >
Text File  |  1992-02-16  |  500b  |  35 lines
  1. #define INCL_DOSFILEMGR
  2. #define INCL_DOSERRORS
  3. #include <os2.h>
  4. #include <errno.h>
  5.  
  6. ULONG Dos32Close() asm ("Dos32Close");
  7.  
  8. int close (int fd)
  9. {
  10.    ULONG rc;
  11.  
  12.    rc = Dos32Close (fd);
  13.  
  14.    if (rc)
  15.    {
  16.       if (rc == ERROR_INVALID_HANDLE)
  17.       {
  18.          errno = EBADF;
  19.          return (-1);
  20.       }
  21.  
  22.       if (rc == ERROR_ACCESS_DENIED)
  23.       {
  24.          errno = EACCES;
  25.          return (-1);
  26.       }
  27.  
  28.       errno = EIO;
  29.       return (-1);
  30.    }
  31.  
  32.    return (0);
  33. }
  34.  
  35.