Import sources from 2011-03-30 iso image

1 files changed, 15 insertions, 0 deletions

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;
+}