compiler/posixc/fclose.c

   1 /*
   2     Copyright © 1995-2013, 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 "__posixc_intbase.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
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         fopen(), open(), close()
  45
  46     INTERNALS
  47
  48 ******************************************************************************/
  49 {
  50     struct PosixCIntBase *PosixCBase =
  51         (struct PosixCIntBase *)__aros_getbase_PosixCBase();
  52     FILENODE * fn;
  53
  54     if (close(stream->fd) == -1)
  55         return EOF;
  56
  57     fn = FILE2FILENODE (stream);
  58     Remove ((struct Node *)fn);
  59
  60     FreePooled(PosixCBase->internalpool, fn, sizeof(FILENODE));
  61
  62     return 0;
  63 } /* fclose */
  64