ref: 9c2e8e2b13b0d01b7adf88b61af6edfbddd872c1
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; }