Dummy dl-procinfo.c file for platforms which don't have one.
[glibc.git] / stdio / fclose.c
blob6af0903f9b6e764da54bbebb46457821e5423812
1 /* Copyright (C) 1991, 1995, 1996, 1998 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, write to the Free
16 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17 02111-1307 USA. */
19 #include <stddef.h>
20 #include <stdio.h>
21 #include <stdlib.h>
22 #include <string.h>
23 #include <errno.h>
26 /* Close a stream. */
27 int
28 fclose (stream)
29 FILE *stream;
31 int status;
33 if (!__validfp (stream))
35 __set_errno (EINVAL);
36 return EOF;
39 if (stream->__mode.__write &&
40 /* Flush the buffer. */
41 __flshfp (stream, EOF) == EOF)
42 return EOF;
44 /* Free the buffer's storage. */
45 if (stream->__buffer != NULL && !stream->__userbuf)
46 free (stream->__buffer);
48 /* Close the system file descriptor. */
49 if (stream->__io_funcs.__close != NULL)
50 status = (*stream->__io_funcs.__close) (stream->__cookie);
51 else if (!stream->__seen && stream->__cookie != NULL)
52 status = __stdio_close (stream->__cookie);
53 else
54 status = 0;
56 /* Nuke the stream, making it available for re-use. */
57 __invalidate (stream);
59 return status < 0 ? EOF : 0;