diff options
| author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 15:46:40 +0300 |
|---|---|---|
| committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 15:46:40 +0300 |
| commit | e5888a1ffdae813d7575f5fb02275c6bb07e5199 (patch) | |
| tree | d8d51eac403f07814b9e936eed0c9a79195e2450 /sys/src/libstdio/fclose.c | |
Import sources from 2011-03-30 iso image
Diffstat (limited to 'sys/src/libstdio/fclose.c')
| -rwxr-xr-x | sys/src/libstdio/fclose.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/sys/src/libstdio/fclose.c b/sys/src/libstdio/fclose.c new file mode 100755 index 000000000..9f01825e4 --- /dev/null +++ b/sys/src/libstdio/fclose.c @@ -0,0 +1,14 @@ +/* + * 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; +} |