Merged PDPCLIB and Therx code.

[pdclib] / functions / stdio / ungetc.c

diff --git a/functions/stdio/ungetc.c b/functions/stdio/ungetc.c
index c355afcd0c7c4b9f7f5336f3ac5ad94a93a470db..f15d8a3b8a66de75ab1bcff32a4085ddbcd0c945 100644 (file)
--- a/functions/stdio/ungetc.c
+++ b/functions/stdio/ungetc.c
@@ -6,3 +6,15 @@
 // ----------------------------------------------------------------------------
 
 int ungetc( int c, FILE * stream ) { /* TODO */ };
+
+/* PDPC code - unreviewed
+{
+    if ((stream->ungetCh != -1) || (c == EOF))
+    {
+        return (EOF);
+    }
+    stream->ungetCh = (unsigned char)c;
+    stream->quickText = 0;
+    return ((unsigned char)c);
+}
+*/