compiler/clib/fclose.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ANSI C 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
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <stdio.h>
  19
  20         int fclose (
  21
  22 /*  SYNOPSIS */
  23         FILE * stream)
  24
  25 /*  FUNCTION
  26         Closes a stream.
  27
  28     INPUTS
  29         stream - Stream to close.
  30
  31     RESULT
  32         Upon successful completion 0 is returned. Otherwise, EOF is
  33         returned and the global variable errno is set to indicate the
  34         error. In either case no further access to the stream is possible.
  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         fopen(), open(), close()
  46
  47     INTERNALS
  48
  49 ******************************************************************************/
  50 {
  51     FILENODE * fn;
  52
  53     if (close(stream->fd) == -1)
  54         return EOF;
  55
  56     fn = FILE2FILENODE (stream);
  57     Remove ((struct Node *)fn);
  58
  59     free(fn);
  60
  61     return 0;
  62 } /* fclose */
  63