Commit | Line | Data |
---|---|---|
c9be6cfe KB |
1 | /*- |
2 | * Copyright (c) 1990 The Regents of the University of California. | |
3 | * All rights reserved. | |
4 | * | |
5 | * This code is derived from software contributed to Berkeley by | |
6 | * Chris Torek. | |
7 | * | |
8 | * %sccs.include.redist.c% | |
9 | */ | |
10 | ||
11 | #if defined(LIBC_SCCS) && !defined(lint) | |
12 | static char sccsid[] = "@(#)fclose.c 5.1 (Berkeley) %G%"; | |
13 | #endif /* LIBC_SCCS and not lint */ | |
14 | ||
15 | #include <errno.h> | |
16 | #include <stdio.h> | |
17 | #include <stdlib.h> | |
18 | #include "local.h" | |
19 | ||
20 | fclose(fp) | |
21 | register FILE *fp; | |
22 | { | |
23 | register int r; | |
24 | ||
25 | if (fp->_flags == 0) { /* not open! */ | |
26 | errno = EBADF; | |
27 | return (EOF); | |
28 | } | |
29 | r = fp->_flags & __SWR ? fflush(fp) : 0; | |
30 | if (fp->_close != NULL && (*fp->_close)(fp->_cookie) < 0) | |
31 | r = EOF; | |
32 | if (fp->_flags & __SMBF) | |
33 | free((char *)fp->_bf._base); | |
34 | if (HASUB(fp)) | |
35 | FREEUB(fp); | |
36 | if (HASLB(fp)) | |
37 | FREELB(fp); | |
38 | fp->_flags = 0; /* release this FILE for reuse */ | |
39 | return (r); | |
40 | } |