1*526d9427Schristos /* $NetBSD: fclose.c,v 1.18 2012/03/15 18:22:30 christos Exp $ */
2255db7b2Sjtc
361f28255Scgd /*-
4255db7b2Sjtc * Copyright (c) 1990, 1993
5255db7b2Sjtc * The Regents of the University of California. All rights reserved.
661f28255Scgd *
761f28255Scgd * This code is derived from software contributed to Berkeley by
861f28255Scgd * Chris Torek.
961f28255Scgd *
1061f28255Scgd * Redistribution and use in source and binary forms, with or without
1161f28255Scgd * modification, are permitted provided that the following conditions
1261f28255Scgd * are met:
1361f28255Scgd * 1. Redistributions of source code must retain the above copyright
1461f28255Scgd * notice, this list of conditions and the following disclaimer.
1561f28255Scgd * 2. Redistributions in binary form must reproduce the above copyright
1661f28255Scgd * notice, this list of conditions and the following disclaimer in the
1761f28255Scgd * documentation and/or other materials provided with the distribution.
18eb7c1594Sagc * 3. Neither the name of the University nor the names of its contributors
1961f28255Scgd * may be used to endorse or promote products derived from this software
2061f28255Scgd * without specific prior written permission.
2161f28255Scgd *
2261f28255Scgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
2361f28255Scgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2461f28255Scgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2561f28255Scgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
2661f28255Scgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2761f28255Scgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2861f28255Scgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
2961f28255Scgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
3061f28255Scgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
3161f28255Scgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
3261f28255Scgd * SUCH DAMAGE.
3361f28255Scgd */
3461f28255Scgd
3523312f88Schristos #include <sys/cdefs.h>
3661f28255Scgd #if defined(LIBC_SCCS) && !defined(lint)
37255db7b2Sjtc #if 0
38255db7b2Sjtc static char sccsid[] = "@(#)fclose.c 8.1 (Berkeley) 6/4/93";
39255db7b2Sjtc #endif
40*526d9427Schristos __RCSID("$NetBSD: fclose.c,v 1.18 2012/03/15 18:22:30 christos Exp $");
4161f28255Scgd #endif /* LIBC_SCCS and not lint */
4261f28255Scgd
43b48252f3Slukem #include <assert.h>
4461f28255Scgd #include <errno.h>
4561f28255Scgd #include <stdio.h>
4661f28255Scgd #include <stdlib.h>
4717f3654aSyamt #include <wchar.h>
48da2013acSjtc #include "reentrant.h"
493fdac2b8Sthorpej #include "local.h"
5061f28255Scgd
5158f143a5Sjtc int
fclose(FILE * fp)52*526d9427Schristos fclose(FILE *fp)
5361f28255Scgd {
54c8bafd62Sperry int r;
5561f28255Scgd
56b48252f3Slukem _DIAGASSERT(fp != NULL);
57b48252f3Slukem
5861f28255Scgd if (fp->_flags == 0) { /* not open! */
5961f28255Scgd errno = EBADF;
60*526d9427Schristos return EOF;
6161f28255Scgd }
620b24b655Smycroft FLOCKFILE(fp);
6317f3654aSyamt WCIO_FREE(fp);
6461f28255Scgd r = fp->_flags & __SWR ? __sflush(fp) : 0;
6561f28255Scgd if (fp->_close != NULL && (*fp->_close)(fp->_cookie) < 0)
6661f28255Scgd r = EOF;
6761f28255Scgd if (fp->_flags & __SMBF)
6861f28255Scgd free((char *)fp->_bf._base);
6961f28255Scgd if (HASUB(fp))
7061f28255Scgd FREEUB(fp);
7161f28255Scgd FREELB(fp);
720b24b655Smycroft FUNLOCKFILE(fp);
730b24b655Smycroft fp->_file = -1;
74255db7b2Sjtc fp->_flags = 0; /* Release this FILE for reuse. */
75255db7b2Sjtc fp->_r = fp->_w = 0; /* Mess up if reaccessed. */
76*526d9427Schristos return r;
7761f28255Scgd }
78