/* fclose.c - close file  stdio.h *//* Copyright 1992-1993 Wind River Systems, Inc. *//*modification history--------------------01d,05feb99,dgp  document errno values01c,05mar93,jdi  documentation cleanup for 5.1.01b,20sep92,smb  documentation additions01a,29jul92,jcf  added OBJ_VERIFY and memory reclaimation.	   +smb  taken from UCB stdio*//*DESCRIPTION * * Copyright (c) 1990 The Regents of the University of California. * All rights reserved. * * This code is derived from software contributed to Berkeley by * Chris Torek. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright *    notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright *    notice, this list of conditions and the following disclaimer in the *    documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software *    must display the following acknowledgement: *	This product includes software developed by the University of *	California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors *    may be used to endorse or promote products derived from this software *    without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE.INCLUDE FILE: stdio.h, stdlib.h, error.hSEE ALSO: American National Standard X3.159-1989NOMANUAL*/#include "vxWorks.h"#include "stdio.h"#include "errno.h"#include "stdlib.h"#include "objLib.h"#include "private/stdioP.h"/******************************************************************************** fclose - close a stream (ANSI)** This routine flushes a specified stream and closes the associated file.* Any unwritten buffered data is delivered to the host environment to be* written to the file; any unread buffered data is discarded.  The stream* is disassociated from the file.  If the associated buffer was allocated* automatically, it is deallocated.* * INCLUDE FILES: stdio.h ** RETURNS:* Zero if the stream is closed successfully, or EOF if errors occur.** ERRNO: EBADF** SEE ALSO: fflush()*/int fclose    (    FAST FILE * fp	/* stream to close */    )    {    FAST int r;    if (OBJ_VERIFY (fp, fpClassId) != OK)	return (EOF);    if (fp->_flags == 0)		/* not open! */	{		errno = EBADF;	return (EOF);	}    r = (fp->_flags & __SWR) ? (__sflush(fp)) : (0);    if (__sclose (fp) < 0)	r = EOF;    if (fp->_flags & __SMBF)	free ((char *)fp->_bf._base);    if (HASUB(fp))			/* ungetc buffer? */	FREEUB(fp);    if (HASLB(fp))			/* fgetline buffer? */	FREELB(fp);    fp->_flags = 0;			/* release this FILE for reuse */    stdioFpDestroy (fp);		/* destroy the file pointer */    return (r);    }