ref: 137533bd69847030d716658e1772c6320f9282bb
dir: /sys/src/libstdio/fclose.c/
/* * pANS stdio -- fclose */ #include "iolib.h" int fclose(FILE *f){ int error=0; if(f->state==CLOSED) return EOF; if(fflush(f)==EOF) error=EOF; if(f->flags&BALLOC) free(f->buf); if(!(f->flags&STRING) && close(f->fd)<0) error=EOF; f->state=CLOSED; f->flags=0; return error; }