PDP-10 Archive: c/lib5/stdio/fclose.c from SRI_NIC_PERM_FS_1

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/lib5/stdio/fclose.c

There are 9 other files named fclose.c in the archive. Click here to see a list.

/*
 *	FCLOSE - close a file
 *
 *	Copyright (c) 1986 by Ian Macky, SRI International
 */

#include "stdio.h"

int fclose(f)
register FILE *f;
{
    if (f->siocheck != _SIOF_OPEN)		/* validate block */
	return EOF;
    if (!(f->sioflgs & _SIOF_STR)) {
	if (f->sioflgs & _SIOF_BUF) {
	    fflush(f);
	    if (f->sioflgs & _SIOF_DYNAMBUF)
		free((char *) f->siopbuf);
	    f->siopbuf = NULL;
	}
	close(f->siofd);
    }
    _freeFILE(f);
    return 0;
}