ref: 26e00d014cebde8bc07725700b5ac9c0cade8171
dir: /sys/src/libstdio/sclose.c/
/* * pANS stdio -- sclose */ #include "iolib.h" char *sclose(FILE *f){ switch(f->state){ default: /* ERR CLOSED */ if(f->buf && f->flags&BALLOC) free(f->buf); f->flags=0; return NULL; case OPEN: f->buf=malloc(1); f->buf[0]='\0'; break; case RD: case END: f->flags=0; break; case RDWR: case WR: if(f->wp==f->rp){ if(f->flags&BALLOC) f->buf=realloc(f->buf, f->bufl+1); if(f->buf==NULL) return NULL; } *f->wp='\0'; f->flags=0; break; } f->state=CLOSED; f->flags=0; return f->buf; }