/*************************************************************
 * File: lib/fclose.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce (pjb@carmel.com)
 * Revision History:
 *	970304	Start of revision history
 */

#include <stdio.h>

/*************************************************************
*  int fclose(fp) close stream
*/
int fclose(fp)
FILE *fp;
{
close(fp->fd);
free(fp->buf);
fp->valid = 0;
return(0);
}