compiler/clib/close.c

   1 /*
   2     Copyright © 1995-2009, 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 "__open.h"
  16 #include "__errno.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <unistd.h>
  22
  23         int close (
  24
  25 /*  SYNOPSIS */
  26         int fd)
  27
  28 /*  FUNCTION
  29         Closes an open file. If this is the last file descriptor
  30         associated with this file, then all allocated resources
  31         are freed, too.
  32
  33     INPUTS
  34         fd - The result of a successful open()
  35
  36     RESULT
  37         -1 for error or zero on success.
  38
  39     NOTES
  40         This function must not be used in a shared library or
  41         in a threaded application.
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         open(), read(), write(), fopen()
  49
  50     INTERNALS
  51
  52 ******************************************************************************/
  53 {
  54     fdesc *fdesc;
  55
  56     if (!(fdesc = __getfdesc(fd)))
  57     {
  58         errno = EBADF;
  59
  60         return -1;
  61     }
  62
  63     if (--fdesc->fcb->opencount == 0)
  64     {
  65         /* Due to a *stupid* behaviour of the dos.library we cannot handle closing failures cleanly :-(
  66         if (
  67             !(fdesc->fcb->privflags & _FCB_DONTCLOSE_FH) &&
  68             !Close(fdesc->fh)
  69         )
  70         {
  71             fdesc->opencount++;
  72             errno = IoErr2errno(IoErr());
  73
  74             return -1;
  75         }
  76         */
  77 #warning Damn dos.library! We cannot report the error code correctly! This oughta change someday...
  78         /* Since the dos.library destroyes the file handle anyway, even if the closing fails, we cannot
  79            report the error code correctly, so just close the file and get out of here */
  80
  81         if (!(fdesc->fcb->privflags & _FCB_DONTCLOSE_FH))
  82         {
  83             (void)Close(fdesc->fcb->fh);
  84         }
  85
  86         FreeVec(fdesc->fcb);
  87     }
  88
  89     __free_fdesc(fdesc);
  90     __setfdesc(fd, NULL);
  91
  92     return 0;
  93 } /* close */
  94