compiler/clib/fclose.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function fclose().
   6 */
   7
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <stdlib.h>
  11 #include <unistd.h>
  12 #include "__stdio.h"
  13
  14 #include "__arosc_privdata.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19 #include <stdio.h>
  20
  21         int fclose (
  22
  23 /*  SYNOPSIS */
  24         FILE * stream)
  25
  26 /*  FUNCTION
  27         Closes a stream.
  28
  29     INPUTS
  30         stream - Stream to close.
  31
  32     RESULT
  33         Upon successful completion 0 is returned. Otherwise, EOF is
  34         returned and the global variable errno is set to indicate the
  35         error. In either case no further access to the stream is possible.
  36
  37     NOTES
  38         This function must not be used in a shared library or
  39         in a threaded application.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         fopen(), open(), close()
  47
  48     INTERNALS
  49
  50 ******************************************************************************/
  51 {
  52     struct aroscbase *aroscbase = __aros_getbase();
  53     FILENODE * fn;
  54
  55     if (close(stream->fd) == -1)
  56         return EOF;
  57
  58     fn = FILE2FILENODE (stream);
  59     Remove ((struct Node *)fn);
  60
  61     FreePooled(aroscbase->acb_internalpool, fn, sizeof(FILENODE));
  62
  63     return 0;
  64 } /* fclose */
  65