From 3a3c2a6e27e7a2598600e16ec4e02c120f9b8ad8 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Thu, 20 Apr 1989 17:31:18 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/sys/pager.c | 235 ++++++++++++++++++++++++
 1 file changed, 235 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/sys/pager.c

diff --git a/WEGA/contrib/ingres/dbs/src/sys/pager.c b/WEGA/contrib/ingres/dbs/src/sys/pager.c
new file mode 100644
index 0000000..27a2060
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/sys/pager.c
@@ -0,0 +1,235 @@
+# include	<stdio.h>
+# include	"../conf/gen.h"
+# include	"../h/dbs.h"
+# include	"../h/aux.h"
+# include	"../h/access.h"
+# include	"../h/bs.h"
+
+# ifdef P8000
+ret_buf		AAjmp_buf;
+# else
+jmp_buf		AAjmp_buf;
+# endif
+
+int		Dflag;		/* print descriptor	*/
+int		Lflag;		/* print line table	*/
+short		Tflag;		/* print tuple		*/
+extern int	AAdbstat;
+
+main(argc, argv)
+int	argc;
+char 	*argv[];
+{
+	register char		**av;
+	register char		*p;
+	register int		i;
+	register int		badf;
+	extern char		*AAdbpath;
+	extern char		*AAproc_name;
+	extern char		*Parmvect[];
+	extern char		*Flagvect[];
+# ifdef SETBUF
+	char			stdbuf[BUFSIZ];
+
+	setbuf(stdout, stdbuf);
+# endif
+
+	AAproc_name = "PAGER";
+
+#	ifdef xSTR1
+	AAtTrace(&argc, argv, 'X');
+#	endif
+
+	badf = 0;
+	switch (i = initucode(argc, argv, TRUE, (char *) 0, -1))
+	{
+	  case 0:
+	  case 5:
+		break;
+
+	  case 1:
+	  case 6:
+		AAsyserr(0, "Die Datenbank '%s' existiert nicht", Parmvect[0]);
+
+	  case 2:
+		AAsyserr(0, "Sie duerfen auf die Datenbank '%s' nicht zugreifen", Parmvect[0]);
+
+	  case 3:
+		AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
+
+	  case 4:
+		printf("Sie haben keinen Datenbanknamen angegeben\n");
+		badf++;
+		break;
+
+	  default:
+		AAsyserr(22200, AAproc_name, i);
+	}
+
+	for (av = Flagvect; p = *av; av++)
+	{
+		if (p[0] != '-')
+			goto badflag;
+		switch (p[1])
+		{
+		  case 'd':
+		  case 'D':
+			Dflag++;
+			break;
+
+		  case 'l':
+		  case 'L':
+			Lflag++;
+			break;
+
+		  case '1':
+		  case '2':
+		  case '3':
+		  case '4':
+		  case '5':
+		  case '6':
+		  case '7':
+		  case '8':
+		  case '9':
+			AA_atoi(&p[1], &Tflag);
+			Lflag++;
+			break;
+
+		  default:
+badflag:
+			printf("Unbekanntes Flag '%s'\n", p);
+			badf++;
+		}
+	}
+	if (badf)
+	{
+		flush();
+		exit(-1);
+	}
+
+	/*
+	**  Check for usage errors.
+	*/
+	for (i = 1; Parmvect[i]; i++)
+		continue;
+	if (i < 2)
+		AAsyserr(0, "HINWEIS: pager [-d] [-l] [-no] db_name {relation}");
+
+	/*
+	**  Check for superuser
+	*/
+	if (!(AAdbstat & U_SUPER))
+		AAsyserr(0, "Sie duerfen PAGER nicht verwenden");
+
+	p = Parmvect[0];	/* data base is first parameter */
+	if (chdir(AAdbpath) < 0)
+		AAsyserr(22201, AAproc_name, p);
+
+	/* initialize access methods (and AAdmin struct) for user_ovrd test */
+	AAam_start();
+
+	av = &Parmvect[1];
+	while (p = *av++)
+		pager(p);
+	fflush(stdout);
+	exit(0);
+}
+
+
+# ifdef STACK
+static ACCBUF		pg_buf;
+# endif
+
+pager(name)
+register char	*name;
+{
+	register int		i;
+	register ACCBUF		*b;
+	register DESC		*d;
+	register int		f;
+	register int		k;
+	long			page;
+	DESC			desc;
+# ifndef STACK
+	ACCBUF			pg_buf;
+# endif
+
+	if ((i = AArelopen(d = &desc, 0, name)) == 1)
+	{
+		printf("PAGER: relation '%s' does not exist\n", name);
+		return;
+	}
+	else if (i < 0)
+		AAsyserr(22202, name, i);
+
+	printf("\n\nPAGES for ");
+	switch (abs(d->reldum.relspec))
+	{
+	  case M_HEAP:
+		printf("HEAP");
+		break;
+
+	  case M_HASH:
+		printf("HASH");
+		break;
+
+	  case M_ISAM:
+		printf("ISAM");
+		break;
+
+	  default:
+		printf("%4d", d->reldum.relspec);
+	}
+	printf("-relation %s: %5ld\n", name, d->reldum.relprim);
+	printf("---------------------------------------\n\n");
+	f = d->relfp;		/* file descriptor for relation file */
+	page = 0;
+	b = &pg_buf;
+
+	if (Dflag)
+	{
+		AAprdesc(d);
+		printf("\n");
+	}
+	if (d->reldum.relatts > Tflag)
+		d->reldum.relatts = Tflag;
+
+	while (read(f, b, AApgsize) == AApgsize)
+	{
+		printf("%5ld(%4d|%4d):%5ld->%5ld\n", page, b->nxtlino,
+			b->linetab[LINETAB(b->nxtlino)], b->mainpg, b->ovflopg);
+		if (Lflag)
+		{
+			if (Tflag)
+			{
+				for (i = 0; i < b->nxtlino; i++)
+					if (k = b->linetab[LINETAB(i)])
+					{
+						printf("%5ld/%4d|%4d: ", page, i, k);
+						AAprtup(d, ((char *) b) + k);
+					}
+			}
+			else
+			{
+				printf("     ");
+				for (i = 0; i < b->nxtlino; i++)
+					if (b->linetab[LINETAB(i)])
+						printf("%5d", i);
+				printf("\n     ");
+				for (i = 0; i < b->nxtlino; i++)
+					if (k = b->linetab[LINETAB(i)])
+						printf("%5d", k);
+				printf("\n");
+			}
+		}
+		page++;
+	}
+	AArelclose(d);
+}
+
+
+rubproc()
+{
+	fflush(stdout);
+	exit(0);
+}