From d527987e1c14f583f9cb83ec6accd58a8703e671 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Mon, 26 Feb 1990 10:44:38 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/amx_cc/.save    |  0
 WEGA/contrib/ingres/dbs/src/amx_cc/gtchar.c | 62 +++++++++++++++++++++
 WEGA/contrib/ingres/dbs/src/lib/.save       |  0
 3 files changed, 62 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/amx_cc/.save
 create mode 100644 WEGA/contrib/ingres/dbs/src/amx_cc/gtchar.c
 create mode 100644 WEGA/contrib/ingres/dbs/src/lib/.save

diff --git a/WEGA/contrib/ingres/dbs/src/amx_cc/.save b/WEGA/contrib/ingres/dbs/src/amx_cc/.save
new file mode 100644
index 0000000..e69de29
diff --git a/WEGA/contrib/ingres/dbs/src/amx_cc/gtchar.c b/WEGA/contrib/ingres/dbs/src/amx_cc/gtchar.c
new file mode 100644
index 0000000..12c842f
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/amx_cc/gtchar.c
@@ -0,0 +1,62 @@
+# include	"amx.h"
+
+/* ONE CHARACTER STACK FOR 'UNGETC' BACKUP */
+static int	Pchar;
+
+/*
+**	GTCHAR
+**		If 'Lcase' is set, all upper-case alphabetics are
+**		mapped into lower-case.
+**		The correct return is > 0; a return = 0 indicates end-of-file.
+*/
+gtchar()
+{
+	register int		chr;
+	extern int		errno;
+
+	errno = 0;
+	/* USE STACKED CHARACTERS IF POSSIBLE */
+	if (chr = Pchar)
+		Pchar = 0;
+	else if ((chr = getc(FILE_inp)) < 0)
+		chr = 0;
+# ifdef AMX_SC
+	if (!chr && !errno  && FILE_exp)
+	{
+		fclose(FILE_inp);
+		FILE_inp = FILE_exp;
+		FILE_exp = (FILE *) 0;
+		Line = Line_exp;
+		return (gtchar());
+	}
+# endif
+
+	/* UPDATE LINE COUNTER */
+	if (chr == '\n')
+		Line++;
+
+	if (Lcase && ((chr >= 'A'
+# ifdef EBCDIC
+	   && chr <= 'I') || (chr >= 'J'
+	   && chr <= 'R') || (chr >= 'S'
+# endif
+	   && chr <= 'Z')))
+		chr += 'a' - 'A';
+
+	return (chr);
+}
+
+
+/*
+**	BACKUP
+**		Saves the character argument in the global stack 'Pchar'
+*/
+backup(chr)
+register int	chr;
+{
+	if (Pchar)
+		yyexit(6);
+	Pchar = chr;
+	if (chr == '\n')
+		Line--;
+}
diff --git a/WEGA/contrib/ingres/dbs/src/lib/.save b/WEGA/contrib/ingres/dbs/src/lib/.save
new file mode 100644
index 0000000..e69de29