/* * fclose.c - flush a stream and close the file *//* $Header: /cvsup/minix/src/lib/stdio/fclose.c,v 1.1.1.1 2005/04/21 14:56:35 beng Exp $ */#include	<stdio.h>#include	<stdlib.h>#include	"loc_incl.h"int _close(int d);intfclose(FILE *fp){	register int i, retval = 0;	for (i=0; i<FOPEN_MAX; i++)		if (fp == __iotab[i]) {			__iotab[i] = 0;			break;		}	if (i >= FOPEN_MAX)		return EOF;	if (fflush(fp)) retval = EOF;	if (_close(fileno(fp))) retval = EOF;	if ( io_testflag(fp,_IOMYBUF) && fp->_buf )		free((void *)fp->_buf);	if (fp != stdin && fp != stdout && fp != stderr)		free((void *)fp);	return retval;}