ING_DB

WEGA/contrib/ingres/dbs/src/pqr/rc_cmap.c

@@ -0,0 +1,46 @@
+/*
+** ---  RC_CMAP.C ------- CHARACTER TYPE MAP  ---------------------------------
+**
+**	Version: @(#)rc_cmap.c		4.0	02/05/89
+**
+*/
+
+# include	"rc.h"
+
+
+char	Cmap[] =
+{
+	CNTRL,	CNTRL,	CNTRL,	CNTRL,	/* \0 ^A ^B ^C	*/
+	CNTRL,	CNTRL,	CNTRL,	CNTRL,	/* ^D ^E ^F ^G	*/
+	CNTRL,	PUNCT,	PUNCT,	CNTRL,	/* \b \t \n ^K	*/
+	CNTRL,	PUNCT,	CNTRL,	CNTRL,	/* ^L \r ^N ^O	*/
+	CNTRL,	CNTRL,	CNTRL,	CNTRL,	/* ^P ^Q ^R ^S	*/
+	CNTRL,	CNTRL,	CNTRL,	CNTRL,	/* ^T ^U ^V ^W	*/
+	CNTRL,	CNTRL,	CNTRL,	CNTRL,	/* ^X ^Y ^Z ^[	*/
+	CNTRL,	CNTRL,	CNTRL,	CNTRL,	/* ^\ ^] ^^ ^_	*/
+	PUNCT,	OPATR,	OPATR,	OPATR,	/*     !  "  #	*/
+	OPATR,	OPATR,	OPATR,	OPATR,	/*  $  %  &  '	*/
+	OPATR,	OPATR,	OPATR,	OPATR,	/*  (  )  *  +	*/
+	OPATR,	OPATR,	OPATR,	OPATR,	/*  ,  -  .  /	*/
+	NUMBR,	NUMBR,	NUMBR,	NUMBR,	/*  0  1  2  3	*/
+	NUMBR,	NUMBR,	NUMBR,	NUMBR,	/*  4  5  6  7	*/
+	NUMBR,	NUMBR,	OPATR,	OPATR,	/*  8  9  :  ;	*/
+	OPATR,	OPATR,	OPATR,	OPATR,	/*  <  =  >  ?	*/
+	OPATR,	ALPHA,	ALPHA,	ALPHA,	/*  @  A  B  C	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  D  E  F  G	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  H  I  J  K	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  L  M  N  O	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  P  Q  R  S	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  T  U  V  W	*/
+	ALPHA,	ALPHA,	ALPHA,	OPATR,	/*  X  Y  Z  [	*/
+	OPATR,	OPATR,	OPATR,	ALPHA,	/*  \  ]  ^  _	*/
+	OPATR,	ALPHA,	ALPHA,	ALPHA,	/*  `  a  b  c	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  d  e  f  g	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  h  i  j  k	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  l  m  n  o	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  p  q  r  s	*/
+	ALPHA,	ALPHA,	ALPHA,	ALPHA,	/*  t  u  v  w	*/
+	ALPHA,	ALPHA,	ALPHA,	OPATR,	/*  x  y  z  {	*/
+	OPATR,	OPATR,	OPATR,	CNTRL,	/*  |  }  ~ del	*/
+	0
+};

WEGA/contrib/ingres/dbs/src/pqr/rg_case.c

@@ -0,0 +1,79 @@
+/*
+** ---  RG_CASE.C ------- CASE PROCESSOR  -------------------------------------
+**
+**	Version: @(#)rg_case.c		4.0	02/05/89
+**
+*/
+
+# include	"rg_int.h"
+
+
+/* |      |							*/
+/* |r-code|							*/
+/* |======|							*/
+/* |prVAR |	entry:	R_rc points to &jumptable		*/
+/* | var# |		(& = R-CODE offset)			*/
+/* |------|							*/
+/* |rcCASE|		R_val =	case#				*/
+/* |------|							*/
+/* |case# |	exit:	pointer	to R-CODE after	case		*/
+/* |------|							*/
+/* |&jmptb|	 values	after statment number			*/
+/* |======|  +-+   +-+   +-+	 +-+   +-+   +-+		*/
+/* |case 1|  |1|   |2|   |3|	 |4|   |5|   |6|		*/
+/* |RETURN|  +-+   +-+   +-+	 +-+   +-+   +-+		*/
+/* |------|							*/
+/* |	..  |							*/
+/* |------|							*/
+/* |case i|<-------------------------R_rc			*/
+/* |RETURN|							*/
+/* |------|							*/
+/* |	..  |							*/
+/* |------|							*/
+/* |case n|							*/
+/* |RETURN|							*/
+/* |------|		   [rc]---+				*/
+/* | out  |			  |				*/
+/* |RETURN|			  |				*/
+/* |======|			|				*/
+/*-|&case1|<-R_rc<-R_rc<-R_rc<--+-----jt			*/
+/*j|------|  =jt   =jt   =jt	  |				*/
+/*u|	..  |  =rc   =rc	  |				*/
+/*m|------|  =df		  |				*/
+/*p|&casei|<--------------rc<---rc  RC_WORD			*/
+/*t|------|			  |   (rc+=sizeof (short))	*/
+/*a|	..  |<--------------------+-----rc			*/
+/*b|------|			  |				*/
+/*l|&casen| if rc out	of range->|				*/
+/*e|------|			  |				*/
+/*-| &out |<--------df<---df<---df<---df			*/
+/* |======|		      =[rc]				*/
+/* | next |<--------------------+---------return		*/
+/* |	    |							*/
+
+
+char	*rg_case()
+{
+	register char		*rc;	/* R-CODE pointer                */
+	register char		*jt;	/* pointer to case jump	table    */
+	register char		*df;	/* pointer to default (out) case */
+	register union anytype	*any;
+
+/*1*/	df = R_rc;
+	rc = df;
+	jt = rc;
+
+/*2*/	df += sizeof (short) * R_val;
+
+	any = &Print->sy_val;
+/*3*/	rc += sizeof (short) * (int) any->f8type;
+
+	if (rc < jt || rc > df)
+/*4*/		rc = df;
+
+	RC_WORD;
+/*5*/	R_rc = R_word + jt;	/* first read offset, and then update	!!! */
+
+/*6*/	return (df + sizeof (short));
+
+}

WEGA/contrib/ingres/dbs/src/pqr/rg_col.c

@@ -0,0 +1,35 @@
+/*
+** ---  RG_COL.C -------- COLUMN PROCESSOR  -----------------------------------
+**
+**	Version: @(#)rg_col.c		4.0	02/05/89
+**
+*/
+
+# include	"rg.h"
+
+
+set_col(col)
+register int	col;
+{
+	register int	len;
+	extern char	*AApad();
+
+	if (--col < 0)
+		return;
+
+	if ((len = Col_begin + col - SYS_col) < 0)
+	{
+		if (RUNline)
+			goto ign_col;
+		new_line();
+		if (RUN)
+		{
+ign_col:
+			RUN++;
+			return;
+		}
+		len = Col_begin	- Line + col;
+	}
+	if (len)
+		SYS_col = AApad(SYS_col, len);
+}

WEGA/contrib/ingres/dbs/src/pqr/rg_file.h

@@ -0,0 +1,33 @@
+/*
+** ---  RG_FILE.H ------- FILE DESCRIPTIONS  ----------------------------------
+**
+**	Version: @(#)rg_file.h		4.0	02/05/89
+**
+*/
+
+
+# include	"rg.h"
+
+# undef FILEMODE
+# define	FILEMODE	0644
+
+struct rg_file
+{
+	char		rf_file;	/* logical file	description	  */
+					/* see above			  */
+	BOOL		rf_open;	/* file	really open ?		  */
+	int		rf_fd;		/* the file descriptor,if open	  */
+	char		*rf_name;	/* the BS file name		  */
+	int		rf_type;	/* type	for open, read/write	  */
+};
+typedef struct rg_file	FILETYPE;
+
+extern FILETYPE		Rg_file[];
+
+
+/* logical file descriptions */
+# define	F_TUPLE		1	/* the tupel file        */
+# define	F_R_CODE	2	/* the R-CODE file       */
+# define	F_DESC		3	/* the tupel description */
+# define	F_REPORT	4	/* the report file       */
+

WEGA/contrib/ingres/dbs/src/pqr/rg_init.c

@@ -0,0 +1,97 @@
+/*
+** ---  RG_INIT.C ------- INIT PROCEDURES  ------------------------------------
+**
+**	Version: @(#)rg_init.c		4.0	02/05/89
+**
+*/
+
+# include	"rg.h"
+
+
+struct init_t
+{
+	int		ip_low;
+	int		ip_high;
+	int		ip_default;
+	char		*ip_error;
+};
+
+static struct init_t	Initialize[] =
+{
+/*	-----------------------------------------------
+**	   low	   high	      default	 error
+**	-----------------------------------------------	*/
+	     1,	    512,       D_COLS,	 "COLUMNS",
+	     1,	    512,      D_LINES,	 "LINES",
+	     1,	    512,  D_ALL_LINES,	 "ALL LINES",
+	MIN_I2,	 MAX_I2,    D_FOR_ALL,	 "FOR ALL END",
+  D_FIRST_PAGE,	 MAX_I2, D_FIRST_PAGE,	 "FIRST	PAGE",
+  D_FIRST_PAGE,	 MAX_I2,  D_LAST_PAGE,	 "LAST PAGE",
+  D_FROM_TUPLE,	 MAX_I2, D_FROM_TUPLE,	 "FROM TUPLE",
+  D_FROM_TUPLE,	 MAX_I2,   D_TO_TUPLE,	 "TO TUPLE",
+/*	-----------------------------------------------	*/
+	     0,	      0,	    0,	 (char *) 0,
+};
+
+
+rg_init()
+{
+	register struct	init_t	*i;
+	register int		*ip;	/* param to check */
+	register char		*msg;	/* error message  */
+
+	/* go through R-CODE header, beginning with R_cols */
+	ip = &R_cols;
+
+	/* initialize parameters */
+	for (i = Initialize; i->ip_error; i++)
+	{
+		msg = (char *) 0;
+		if (*ip	< i->ip_low)
+			msg = "SMALL";
+		else if (*ip > i->ip_high)
+			msg = "HIGH";
+		if (msg)
+		{
+			rg_error("parameter %s = `%d' is too %s\n\tSET to `%d'",
+				i->ip_error, *ip, msg, i->ip_default);
+			*ip = i->ip_default;
+		}
+		ip++;
+	}
+
+	if (R_first_page > R_last_page)
+		/* nothing to print */
+		rg_exit(EXIT_END);
+
+	/* adjust R_all_lines */
+	if (*(ip = &R_all_lines) < R_lines)
+		*ip *= R_lines / *ip + 1;
+
+	/* rest	of initialization, see rg.c */
+	R_rc = &R_code[1];
+	Line_end = R_lines;
+	Col_end	= &Line[R_cols];
+}
+
+
+ck_arg(a, i, c)
+register char	*a;	/* the ASCII string	    */
+/*register*/ int	*i;	/* holds the integer result */
+int		*c;	/* error count		    */
+{
+	register int	err;
+	short		ix;
+	extern int	AA_atoi();
+
+	err = AA_atoi(a, &ix);
+	*i = ix;
+	if (err)
+	{
+		if (err	< 0)
+			rg_error("%d: VALUE `%s' not numeric", *c, a);
+		else
+			rg_error("%d: VALUE `%s' out of range", *c, a);
+		(*c)++;
+	}
+}

WEGA/contrib/ingres/dbs/src/pqr/rg_int.h

@@ -0,0 +1,28 @@
+/*
+** ---  RG_INT.H -------- INTERPRETER DECLARATIONS  ---------------------------
+**
+**	Version: @(#)rg_int.h		4.0	02/05/89
+**
+*/
+
+# include	"rg.h"
+
+# define	MAX_STACK		50
+
+struct symbol
+{
+	char		sy_frmt;	/* format */
+	char		sy_frml;	/* length */
+	union anytype	sy_val;	/* value  */
+};
+typedef struct symbol	SYMBOL;
+
+extern struct symbol	Stack[];
+extern struct symbol	*Print;
+extern char		*rc_word();
+
+/* inline procedure to read R-CODE */
+# define	RC_BYTE		((short) ctou(*rc++))
+# define	RC_WORD		rc = rc_word(rc)
+
+# define	RANGE(l, x, h)	((x) >= ((int) (l)) && (x) <= ((int) (h)))

WEGA/contrib/ingres/dbs/src/pqr/rg_rept.c

@@ -0,0 +1,44 @@
+/*
+** ---  RG_REPT.C ------- REPEAT PROCESSOR  -----------------------------------
+**
+**	Version: @(#)rg_rept.c		4.0	02/05/89
+**
+*/
+
+# include	"rg.h"
+
+/* the repeat	table */
+static REPEATYPE	R_repeat[MAX_REPEAT];	/* rr_code =  (char *) 0 */
+						/* rr_count = 0          */
+
+
+rg_repeat(rc)
+register char	*rc;
+{
+	register REPEATYPE	*r;
+	register int		i;
+
+	for (r = R_repeat; r->rr_count; r++)
+	{
+		if (r == &R_repeat[MAX_REPEAT])
+		{
+			rg_error("REPEAT TABLE OVERFLOW");
+			rg_exit(EXIT_R_CODE);
+		}
+		if (r->rr_code == rc)
+			break;
+	}
+
+	if (!r->rr_code)
+	{
+		r->rr_code = rc;
+		if ((i = R_val) < A_REPEAT)
+			i = A_REPEAT;
+		r->rr_count = i;
+	}
+
+	if (--(r->rr_count))
+		return (TRUE);
+	r->rr_code = 0;
+	return (FALSE);
+}

WEGA/contrib/ingres/dbs/src/pqr/rg_time.c

@@ -0,0 +1,82 @@
+/*
+** ---  RG_TIME.C ------- GET AND PRINT TIME  ---------------------------------
+**
+**	Version: @(#)rg_time.c		4.0	02/05/89
+**
+*/
+
+# include	"rg.h"
+
+
+extern long	time();
+static long	rg_time;
+extern char	*ctime();
+static char	*rg_ctime;
+extern int	*localtime();
+static int	*rg_localtime;
+
+
+rg_prtime(tflag)
+register int	tflag;
+/*		tflag == FALSE:  DATE  */
+/*			 TRUE:   TIME  */
+{
+	register char	*t;
+	register char	*p;
+	extern char	*AAbmove();
+
+	if (!rg_time)
+	{
+		time(&rg_time);
+# ifdef ESER_VMX
+		rg_ctime = ctime(rg_time);
+		rg_localtime = localtime(rg_time);
+# else
+		rg_ctime = ctime(&rg_time);
+		rg_localtime = localtime(&rg_time);
+# endif
+	}
+	t = rg_ctime;
+	p = SYS_col;
+
+	if (tflag)
+		SYS_col = AAbmove(&t[11], p, 8);
+	else
+	{
+		p = AAbmove(&t[8], p, 2);
+		*p++ = '-';
+		p = AAbmove(&t[4], p, 3);
+		*p++ = '-';
+		SYS_col = AAbmove(&t[22], p, 2);
+	}
+}
+
+
+rg_getime(which)
+/*----------------------------------------------*/
+register int	which;
+/*----------------------------------------------*/
+/*	SECOND	==  0				*/
+/*	MINUTE	==  1				*/
+/*	HOUR	==  2				*/
+/*	M_DAY	==  3	month day		*/
+/*	MONTH	==  4				*/
+/*	YEAR	==  5				*/
+/*	W_DAY	==  6	week day 		*/
+/*	Y_DAY	==  7	year day 		*/
+/*	IS_DST	==  8	day light saving flag	*/
+/*----------------------------------------------*/
+{
+	if (!rg_time)
+	{
+		time(&rg_time);
+# ifdef ESER_VMX
+		rg_ctime = ctime(rg_time);
+		rg_localtime = localtime(rg_time);
+# else
+		rg_ctime = ctime(&rg_time);
+		rg_localtime = localtime(&rg_time);
+# endif
+	}
+	return (rg_localtime[which]);
+}