ref: 65e0e1c3e37c966d0c18178ad8a4c54c0c0fbce9
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; }