Import sources from 2011-03-30 iso image

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/src/libstdio/ungetc.c b/sys/src/libstdio/ungetc.c
new file mode 100755
index 000000000..4c12c5869
--- /dev/null
+++ b/sys/src/libstdio/ungetc.c
@@ -0,0 +1,28 @@
+/*
+ * pANS stdio -- ungetc
+ */
+#include "iolib.h"
+int ungetc(int c, FILE *f){
+	if(c==EOF) return EOF;
+	switch(f->state){
+	default:	/* WR */
+		f->state=ERR;
+		return EOF;
+	case CLOSED:
+	case ERR:
+		return EOF;
+	case OPEN:
+		_IO_setvbuf(f);
+	case RDWR:
+	case END:
+		f->rp=f->wp=f->buf+(f->bufl==0?1:f->bufl);
+		f->state=RD;
+	case RD:
+		if(f->rp==f->buf) return EOF;
+		if(f->flags&STRING)
+			f->rp--;
+		else
+			*--f->rp=c;
+		return (char)c;
+	}
+}