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