From e32309d10a7a184871b5a378bc8347e80db6a3bd Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Mon, 17 Jul 1989 09:52:00 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/pqr/rg_error.c | 51 ++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/pqr/rg_error.c

diff --git a/WEGA/contrib/ingres/dbs/src/pqr/rg_error.c b/WEGA/contrib/ingres/dbs/src/pqr/rg_error.c
new file mode 100644
index 0000000..bbb01d8
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/pqr/rg_error.c
@@ -0,0 +1,51 @@
+/*
+** ---  RG_ERROR.C ------ ERROR MESSAGE PRINTER  ------------------------------
+**
+**	Version: @(#)rg_error.c		4.0	02/05/89
+**
+*/
+
+# include	<stdio.h>
+# include	"rg.h"
+
+/*ARGSUSED*/
+# ifdef P8000
+rg_error(msg, a0, a1, a2, a3, a4, a5)
+register char	*msg;
+register int	a0;
+register int	a1;
+register int	a2;
+register int	a3;
+register int	a4;
+register int	a5;
+{
+	extern int	errno;
+# else
+rg_error(msg, av)
+register char	*msg;
+int		av;
+{
+	register int	*a;
+	extern int	errno;
+
+	a = &av;
+# endif
+
+	rg_flush();
+	fprintf(stderr, "\n******* PQR ---\tPAGE %3d\tLINE %3d\tTUPLE %3d\n\t",
+		SYS_page, SYS_line, SYS_tuple);
+
+# ifdef P8000
+	fprintf(stderr, msg, a0, a1, a2, a3, a4, a5);
+# else
+	fprintf(stderr, msg, a[0], a[1], a[2], a[3], a[4], a[5]);
+# endif
+
+	fprintf(stderr, "\007\n");
+
+	if (errno)
+	{
+		fprintf(stderr, "\tBS	error %d\n", errno);
+		errno =	0;
+	}
+}