blob: d55396a3a3745c031ba745545858f7a1c4aef8f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
/*
* pANS stdio -- sclose
*/
#include "iolib.h"
#include <stdlib.h>
char *_IO_sclose(FILE *f){
switch(f->state){
default: /* ERR CLOSED */
if(f->buf && f->flags&BALLOC)
free(f->buf);
f->state=CLOSED;
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;
}
|
