blob: b32f27c3836be47b93d7f48384fedb0d98a35264 (
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
38
39
40
41
42
|
/*
* 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;
}
|
