--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/cstdlib/LSTDIO/UNGETC.C	Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,151 @@
+/* UNGETC.C
+ * 
+ * Portions Copyright (c) 1990-1999 Nokia Corporation and/or its subsidiary(-ies).
+ * All rights reserved.
+ */
+
+/*
+ * Copyright (c) 1990 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, Berkeley.  The name of the
+ * University may not be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
+#include <stdio_r.h>
+#include <stdlib_r.h>
+#include <string.h>
+#include "LOCAL.H"
+
+/*
+ * Expand the ungetc buffer `in place'.  That is, adjust fp->_p when
+ * the buffer moves, so that it points the same distance from the end,
+ * and move the bytes in the buffer around as necessary so that they
+ * are all at the end (stack-style).
+ */
+
+/*static*/
+int
+__submore (register FILE *fp)
+{
+  register int i;
+  register unsigned char *p;
+
+  if (fp->_ub._base == fp->_ubuf)
+    {
+      /*
+       * Get a new buffer (rather than expanding the old one).
+       */
+      if ((p = (unsigned char *) _malloc_r (fp->_data, (size_t) BUFSIZ)) == NULL)
+	return EOF;
+      fp->_ub._base = p;
+      fp->_ub._size = BUFSIZ;
+      p += BUFSIZ - sizeof (fp->_ubuf);
+      for (i = sizeof (fp->_ubuf); --i >= 0;)
+	p[i] = fp->_ubuf[i];
+      fp->_p = p;
+      return 0;
+    }
+  i = fp->_ub._size;
+  p = (unsigned char *) _realloc_r (fp->_data, (void*) (fp->_ub._base), i << 1);
+  if (p == NULL)
+    return EOF;
+  (void) memcpy ((void *) (p + i), (void *) p, (size_t) i);
+  fp->_p = p + i;
+  fp->_ub._base = p;
+  fp->_ub._size = i << 1;
+  return 0;
+}
+
+/**
+Push a character back into stream.
+@return If successful, the character putted is returned.
+Otherwise EOF is returned and the stream remains unchanged.
+@param c character to be pushed. 
+@param fp pointer to an open file.
+*/
+EXPORT_C int
+ungetc (int c,register FILE *fp)
+{
+  if (c == EOF)
+    return (EOF);
+
+  /* Ensure stdio has been initialized.
+     ??? Might be able to remove this as some other stdio routine should
+     have already been called to get the char we are un-getting.  */
+
+  CHECK_INIT (fp);
+
+  /* After ungetc, we won't be at eof anymore */
+  fp->_flags &= ~__SEOF;
+
+  if ((fp->_flags & __SRD) == 0)
+    {
+      /*
+       * Not already reading: no good unless reading-and-writing.
+       * Otherwise, flush any current write stuff.
+       */
+      if ((fp->_flags & __SRW) == 0)
+	return EOF;
+      if (fp->_flags & __SWR)
+	{
+	  if (fflush (fp))
+	    return EOF;
+	  fp->_flags &= ~__SWR;
+	  fp->_w = 0;
+	  fp->_lbfsize = 0;
+	}
+      fp->_flags |= __SRD;
+    }
+  c = (unsigned char) c;
+
+  /*
+   * If we are in the middle of ungetc'ing, just continue.
+   * This may require expanding the current ungetc buffer.
+   */
+
+  if (HASUB (fp))
+    {
+      if (fp->_r >= fp->_ub._size && __submore (fp))
+	return EOF;
+      *--fp->_p = (unsigned char)c;
+      fp->_r++;
+      return c;
+    }
+
+  /*
+   * If we can handle this by simply backing up, do so,
+   * but never replace the original character.
+   * (This makes sscanf() work when scanning `const' data.)
+   */
+
+  if (fp->_bf._base != NULL && fp->_p > fp->_bf._base && fp->_p[-1] == c)
+    {
+      fp->_p--;
+      fp->_r++;
+      return c;
+    }
+
+  /*
+   * Create an ungetc buffer.
+   * Initially, we will use the `reserve' buffer.
+   */
+
+  fp->_ur = fp->_r;
+  fp->_up = fp->_p;
+  fp->_ub._base = fp->_ubuf;
+  fp->_ub._size = sizeof (fp->_ubuf);
+  fp->_ubuf[sizeof (fp->_ubuf) - 1] = (unsigned char)c;
+  fp->_p = &fp->_ubuf[sizeof (fp->_ubuf) - 1];
+  fp->_r = 1;
+  return c;
+}