compiler/clib/fclose.c

   1 /*
   2     Copyright © 1995-2003, 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 <errno.h>
  13 #include "__errno.h"
  14 #include "__stdio.h"
  15
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <stdio.h>
  21
  22         int fclose (
  23
  24 /*  SYNOPSIS */
  25         FILE * stream)
  26
  27 /*  FUNCTION
  28         Closes a stream.
  29
  30     INPUTS
  31         stream - Stream to close.
  32
  33     RESULT
  34         Upon successful completion 0 is returned. Otherwise, EOF is
  35         returned and the global variable errno is set to indicate the
  36         error. In either case no further access to the stream is possible.
  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         fopen(), open(), close()
  48
  49     INTERNALS
  50
  51 ******************************************************************************/
  52 {
  53     FILENODE * fn;
  54     AROS_GET_SYSBASE_OK
  55
  56     if (close(stream->fd) == -1)
  57         return EOF;
  58
  59     fn = FILE2FILENODE (stream);
  60     Remove ((struct Node *)fn);
  61
  62     free(fn);
  63
  64     return 0;
  65 } /* fclose */
  66