compiler/posixc/close.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     POSIX.1-2008 function close().
   6 */
   7
   8 #include <unistd.h>
   9 #include <stdlib.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <errno.h>
  13 #include "__fdesc.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <unistd.h>
  19
  20         int close (
  21
  22 /*  SYNOPSIS */
  23         int fd)
  24
  25 /*  FUNCTION
  26         Closes an open file. If this is the last file descriptor
  27         associated with this file, then all allocated resources
  28         are freed, too.
  29
  30     INPUTS
  31         fd - The result of a successful open()
  32
  33     RESULT
  34         -1 for error or zero on success.
  35
  36     NOTES
  37         This function must not be used in a shared library or
  38         in a threaded application.
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45         open(), read(), write(), fopen()
  46
  47     INTERNALS
  48
  49 ******************************************************************************/
  50 {
  51     fdesc *fdesc;
  52
  53     if (!(fdesc = __getfdesc(fd)))
  54     {
  55         errno = EBADF;
  56
  57         return -1;
  58     }
  59
  60     if (--fdesc->fcb->opencount == 0)
  61     {
  62         /* Due to a *stupid* behaviour of the dos.library we cannot handle closing failures cleanly :-(
  63         if (
  64             !(fdesc->fcb->privflags & _FCB_DONTCLOSE_FH) &&
  65             !Close(fdesc->fh)
  66         )
  67         {
  68             fdesc->opencount++;
  69             errno = __stdc_ioerr2errno(IoErr());
  70
  71             return -1;
  72         }
  73         */
  74         /* FIXME: Damn dos.library! We cannot report the error code correctly! This oughta change someday... */
  75         /* Since the dos.library destroys the file handle anyway, even if the closing fails, we cannot
  76            report the error code correctly, so just close the file and get out of here */
  77
  78         if (!(fdesc->fcb->privflags & _FCB_DONTCLOSE_FH))
  79         {
  80             // don't close directories because we don't Open() them.
  81             if (fdesc->fcb->privflags & _FCB_ISDIR)
  82             {
  83                 UnLock(fdesc->fcb->handle);
  84             }
  85             else
  86             {
  87                 Close(fdesc->fcb->handle);
  88             }
  89         }
  90
  91         FreeVec(fdesc->fcb);
  92     }
  93
  94     __free_fdesc(fdesc);
  95     __setfdesc(fd, NULL);
  96
  97     return 0;
  98 } /* close */
  99