compiler/clib/close.c

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