From e5888a1ffdae813d7575f5fb02275c6bb07e5199 Mon Sep 17 00:00:00 2001 From: Taru Karttunen Date: Wed, 30 Mar 2011 15:46:40 +0300 Subject: Import sources from 2011-03-30 iso image --- sys/src/ape/lib/ap/stdio/fclose.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100755 sys/src/ape/lib/ap/stdio/fclose.c (limited to 'sys/src/ape/lib/ap/stdio/fclose.c') diff --git a/sys/src/ape/lib/ap/stdio/fclose.c b/sys/src/ape/lib/ap/stdio/fclose.c new file mode 100755 index 000000000..d14e83746 --- /dev/null +++ b/sys/src/ape/lib/ap/stdio/fclose.c @@ -0,0 +1,15 @@ +/* + * pANS stdio -- fclose + */ +#include "iolib.h" +int fclose(FILE *f){ + int error=0; + if(!f) return EOF; + 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; +} -- cgit v1.2.3