kolibri-libc:

Move to folder with tcc. Part 1

git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/ktcc/trunk/libc.obj/source/stdio/ungetc.c

@@ -0,0 +1,28 @@
+#include <stdio.h>
+#include <errno.h>
+// non standard realization - support for virtually change ONLY ONE char
+
+int ungetc(int c, FILE* file)
+{
+	int res;
+
+    if(!file){
+        errno = EBADF;
+        return EOF;
+    }
+
+	if (file->mode != _FILEMODE_R){
+        errno = EACCES;
+        return EOF;
+    }
+
+	if (file->position == 0 || c == EOF)
+	{
+	    errno = EOF;
+		return EOF;
+	}
+	
+	file->__ungetc_emu_buff = c;
+	file->position--;
+	return c;
+}