ING_DB
This commit is contained in:
Oliver Lehmann
parent
4dc8f2e3a3
commit
9ae91f30e5
|
|
@ -0,0 +1,72 @@
|
|||
/*
|
||||
** --- R_DBS.H --------- BASIC DECLARATIONS ---------------------------------
|
||||
**
|
||||
** INTERFACE between
|
||||
** DBS and
|
||||
** REPORT (compiler/interpreter)
|
||||
**
|
||||
** All declarations must match the
|
||||
** corresponding entries in DBS
|
||||
**
|
||||
** Version: @(#)r_dbs.h 4.0 02/05/89
|
||||
**
|
||||
*/
|
||||
|
||||
# ifdef SINGLE
|
||||
|
||||
# define MAX_NAME 12 /* h/dbs.h: MAXNAME */
|
||||
# define MAX_FIELD 255 /* h/aux.h: MAXFIELD */
|
||||
# define INT 30 /* h/dbs.h: INT */
|
||||
# define FLOAT 31 /* h/dbs.h: FLOAT */
|
||||
# define CHAR 32 /* h/dbs.h: CHAR */
|
||||
|
||||
# ifdef MSDOS
|
||||
# define SETBUF
|
||||
# define SIGN_EXT
|
||||
# define AA_atof v6_atof
|
||||
# define AA_atoi v6_atoi
|
||||
# define AA_atol v6_atol
|
||||
# define AAbequal bequal
|
||||
# define AAbmove bmove
|
||||
# define AAi1toi2(x) (x)
|
||||
# define AAlength length
|
||||
# define AAscompare scompare
|
||||
# define AAsequal sequal
|
||||
# define ctoi(x) (x)
|
||||
# define ctou(x) ((x) & 0377)
|
||||
# define sync()
|
||||
# endif
|
||||
|
||||
/* SETEXIT | RESET */
|
||||
/* In version 7, setexit is not defined, reset too: */
|
||||
/* this fakes it. */
|
||||
# ifdef P8000
|
||||
# include <setret.h>
|
||||
extern ret_buf AAjmp_buf;
|
||||
# define setexit() setret(AAjmp_buf)
|
||||
# define reset() longret(AAjmp_buf, 1)
|
||||
# else
|
||||
# include <setjmp.h>
|
||||
extern jmp_buf AAjmp_buf;
|
||||
# define setexit() setjmp(AAjmp_buf)
|
||||
# define reset() longjmp(AAjmp_buf, 1)
|
||||
# endif
|
||||
|
||||
# else
|
||||
|
||||
# include "../conf/conf.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/symbol.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# define MAX_NAME MAXNAME
|
||||
# define MAX_FIELD MAXFIELD
|
||||
# endif
|
||||
|
||||
# define MAX_TUP 7000
|
||||
# define MAX_DOM 300
|
||||
# define BIN 33 /* no match */
|
||||
|
||||
/* IDENTIFICATION STUFF */
|
||||
extern char *PQR_system;
|
||||
|
|
@ -0,0 +1,665 @@
|
|||
/*
|
||||
** --- RP.C ------------ R_CODE PRINTER -------------------------------------
|
||||
**
|
||||
** Version: @(#)rp.c 4.0 02/05/89
|
||||
**
|
||||
*/
|
||||
|
||||
# include <stdio.h>
|
||||
# include "r_code.h"
|
||||
# ifdef MSDOS
|
||||
# include <fcntl.h>
|
||||
# endif
|
||||
|
||||
|
||||
static short Count;
|
||||
static short Length;
|
||||
static short Return;
|
||||
static FILE *Input;
|
||||
|
||||
|
||||
bytes(rc, len)
|
||||
register char *rc;
|
||||
register int len;
|
||||
{
|
||||
register int c;
|
||||
|
||||
Count += len;
|
||||
while (--len >= 0)
|
||||
{
|
||||
if ((c = getc(Input)) < 0)
|
||||
{
|
||||
printf("\nUNEXPECTED *** EOF ***\n");
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
*rc++ = c;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
byte()
|
||||
{
|
||||
char c;
|
||||
|
||||
bytes(&c, sizeof (char));
|
||||
return (ctou(c));
|
||||
}
|
||||
|
||||
|
||||
word()
|
||||
{
|
||||
register int w;
|
||||
|
||||
w = byte() << BYTE_LOG2;
|
||||
return (w | byte());
|
||||
}
|
||||
|
||||
|
||||
i2_4(msg)
|
||||
register char *msg;
|
||||
{
|
||||
int i;
|
||||
|
||||
bytes(&i, sizeof (int));
|
||||
printf(" %s=%d", msg, Length = i);
|
||||
}
|
||||
|
||||
|
||||
i4()
|
||||
{
|
||||
long i;
|
||||
|
||||
bytes(&i, sizeof (long));
|
||||
printf(" long=%ld", i);
|
||||
}
|
||||
|
||||
|
||||
f8(msg)
|
||||
register char *msg;
|
||||
{
|
||||
double i;
|
||||
|
||||
bytes(&i, sizeof (double));
|
||||
printf(" %s=%10.3f", msg, i);
|
||||
}
|
||||
|
||||
|
||||
c0(msg)
|
||||
register char *msg;
|
||||
{
|
||||
char i[MAX_FIELD + 1];
|
||||
|
||||
bytes(i, Length);
|
||||
i[Length] = '\0';
|
||||
printf(" %s=|%s|", msg, i);
|
||||
}
|
||||
|
||||
|
||||
var(msg)
|
||||
register char *msg;
|
||||
{
|
||||
register int v;
|
||||
register int var;
|
||||
|
||||
printf(" %s", msg);
|
||||
v = word();
|
||||
var = v & VAR_MASK;
|
||||
if ((v & VAR_VAR_MASK) == VAR_VAR_MASK)
|
||||
printf(".var$var");
|
||||
else if (var)
|
||||
printf(".var");
|
||||
printf("=%d", Length = v & VAR_VALUE);
|
||||
return (var);
|
||||
}
|
||||
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
# ifdef SETBUF
|
||||
char buf[BUFSIZ];
|
||||
|
||||
setbuf(stdout, buf);
|
||||
# endif
|
||||
|
||||
PQR_system = "r_code decoder";
|
||||
PQR();
|
||||
|
||||
if (argc == 1)
|
||||
*argv = "r_code";
|
||||
else
|
||||
argv++;
|
||||
|
||||
# ifdef MSDOS
|
||||
Input = fopen(*argv, "rb");
|
||||
# else
|
||||
Input = fopen(*argv, "r");
|
||||
# endif
|
||||
if (!Input)
|
||||
{
|
||||
printf("Cannot open *** %s ***\n", *argv);
|
||||
fflush(stdout);
|
||||
exit(2);
|
||||
}
|
||||
|
||||
printf("R_CODE HEADER:\n");
|
||||
printf("--------------\n");
|
||||
Length = sizeof R_res - 1;
|
||||
c0("R_reserved");
|
||||
putchar('\n');
|
||||
i2_4("R_cols");
|
||||
putchar('\n');
|
||||
i2_4("R_lines");
|
||||
putchar('\n');
|
||||
i2_4("R_all_lines");
|
||||
putchar('\n');
|
||||
i2_4("R_for_all");
|
||||
putchar('\n');
|
||||
i2_4("R_first_page");
|
||||
putchar('\n');
|
||||
i2_4("R_last_page");
|
||||
putchar('\n');
|
||||
i2_4("R_from_tuple");
|
||||
putchar('\n');
|
||||
i2_4("R_to_tuple");
|
||||
printf("\n R_big=");
|
||||
if (byte())
|
||||
printf("TRUE");
|
||||
else
|
||||
printf("FALSE");
|
||||
|
||||
printf("\n\nR_CODE: file %s\n-------", *argv);
|
||||
Count = 1;
|
||||
interp();
|
||||
printf("\nUNEXPECTED R_CODE FORMAT\n");
|
||||
}
|
||||
|
||||
|
||||
interp()
|
||||
{
|
||||
register int code;
|
||||
register int i;
|
||||
register int rc;
|
||||
|
||||
for ( ; ; )
|
||||
{
|
||||
fflush(stdout);
|
||||
printf("\n%4d\t", Count);
|
||||
printf("%4d\t", code = byte());
|
||||
switch (code)
|
||||
{
|
||||
case bdLT:
|
||||
printf("bdLT");
|
||||
continue;
|
||||
|
||||
case bdEQ:
|
||||
printf("bdEQ");
|
||||
continue;
|
||||
|
||||
case bdLE:
|
||||
printf("bdLE");
|
||||
continue;
|
||||
|
||||
case bdGT:
|
||||
printf("bdGT");
|
||||
continue;
|
||||
|
||||
case bdNE:
|
||||
printf("bdNE");
|
||||
continue;
|
||||
|
||||
case bdGE:
|
||||
printf("bdGE");
|
||||
continue;
|
||||
|
||||
case pushFALSE:
|
||||
printf("pushFALSE");
|
||||
continue;
|
||||
|
||||
case pushTRUE:
|
||||
printf("pushTRUE");
|
||||
continue;
|
||||
|
||||
case pushNULL:
|
||||
printf("pushNULL");
|
||||
continue;
|
||||
|
||||
case push1INT:
|
||||
printf("push1INT integer=%d", ctoi(byte()));
|
||||
continue;
|
||||
|
||||
case push2INT:
|
||||
printf("push2INT");
|
||||
printf(" integer=%d", Length = word());
|
||||
continue;
|
||||
|
||||
case push4INT:
|
||||
printf("push4INT");
|
||||
i4();
|
||||
continue;
|
||||
|
||||
case pushREAL:
|
||||
printf("pushREAL");
|
||||
f8("real");
|
||||
continue;
|
||||
|
||||
case pushSTRING:
|
||||
printf("pushSTRING");
|
||||
var("length");
|
||||
c0("string");
|
||||
continue;
|
||||
|
||||
case pushCONST:
|
||||
printf("pushCONST = ");
|
||||
konst:
|
||||
switch (code = byte())
|
||||
{
|
||||
case SECOND:
|
||||
printf("SECOND");
|
||||
break;
|
||||
|
||||
case MINUTE:
|
||||
printf("MINUTE");
|
||||
break;
|
||||
|
||||
case HOUR:
|
||||
printf("HOUR");
|
||||
break;
|
||||
|
||||
case M_DAY:
|
||||
printf("M_DAY");
|
||||
break;
|
||||
|
||||
case MONTH:
|
||||
printf("MONTH");
|
||||
break;
|
||||
|
||||
case YEAR:
|
||||
printf("YEAR");
|
||||
break;
|
||||
|
||||
case W_DAY:
|
||||
printf("W_DAY");
|
||||
break;
|
||||
|
||||
case Y_DAY:
|
||||
printf("Y_DAY");
|
||||
break;
|
||||
|
||||
case IS_DST:
|
||||
printf("IS_DST");
|
||||
break;
|
||||
|
||||
default:
|
||||
printf(" unknown CONST %d", code);
|
||||
}
|
||||
continue;
|
||||
|
||||
case pushCOL:
|
||||
printf("pushCOL");
|
||||
continue;
|
||||
|
||||
case pushLINE:
|
||||
printf("pushLINE");
|
||||
continue;
|
||||
|
||||
case pushALLINES:
|
||||
printf("pushALLINES");
|
||||
continue;
|
||||
|
||||
case pushPAGE:
|
||||
printf("pushPAGE");
|
||||
continue;
|
||||
|
||||
case pushTUPLE:
|
||||
printf("pushTUPLE");
|
||||
continue;
|
||||
|
||||
case pushLAST:
|
||||
printf("pushLAST");
|
||||
push_tuple:
|
||||
var("dom");
|
||||
var("from");
|
||||
var("to");
|
||||
continue;
|
||||
|
||||
case pushVALUE:
|
||||
printf("pushVALUE");
|
||||
goto push_tuple;
|
||||
|
||||
case pushNEXT:
|
||||
printf("pushNEXT");
|
||||
goto push_tuple;
|
||||
|
||||
case pushVAR:
|
||||
printf("pushVAR");
|
||||
var("#");
|
||||
continue;
|
||||
|
||||
case pushSWITCH:
|
||||
printf("pushSWITCH");
|
||||
var("#");
|
||||
continue;
|
||||
|
||||
case rcNOT:
|
||||
printf("rcNOT");
|
||||
continue;
|
||||
|
||||
case rcOR:
|
||||
printf("rcOR");
|
||||
continue;
|
||||
|
||||
case rcAND:
|
||||
printf("rcAND");
|
||||
continue;
|
||||
|
||||
case rcEND_SET:
|
||||
printf("rcEND_SET");
|
||||
continue;
|
||||
|
||||
case rcMIN:
|
||||
printf("rcMIN");
|
||||
continue;
|
||||
|
||||
case rcADD:
|
||||
printf("rcADD");
|
||||
continue;
|
||||
|
||||
case rcSUB:
|
||||
printf("rcSUB");
|
||||
continue;
|
||||
|
||||
case rcMUL:
|
||||
printf("rcMUL");
|
||||
continue;
|
||||
|
||||
case rcDIV:
|
||||
printf("rcDIV");
|
||||
continue;
|
||||
|
||||
case rcDIV_R:
|
||||
printf("rcDIV_R");
|
||||
continue;
|
||||
|
||||
case rcMOD:
|
||||
printf("rcMOD");
|
||||
continue;
|
||||
|
||||
case rcRC_END:
|
||||
printf("rcRC_END\n");
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
|
||||
case rcRETURN:
|
||||
printf("rcRETURN");
|
||||
if (Return)
|
||||
{
|
||||
--Return;
|
||||
return;
|
||||
}
|
||||
continue;
|
||||
|
||||
case rcRTTS:
|
||||
printf("rcRTTS");
|
||||
continue;
|
||||
|
||||
case rcEOTUP:
|
||||
printf("rcEOTUP");
|
||||
continue;
|
||||
|
||||
case rcALL:
|
||||
printf("rcALL");
|
||||
continue;
|
||||
|
||||
case rcONE:
|
||||
printf("rcONE");
|
||||
continue;
|
||||
|
||||
case rcDATE:
|
||||
printf("rcDATE");
|
||||
continue;
|
||||
|
||||
case rcTIME:
|
||||
printf("rcTIME");
|
||||
continue;
|
||||
|
||||
case prCOL:
|
||||
printf("prCOL");
|
||||
continue;
|
||||
|
||||
case prLINE:
|
||||
printf("prLINE");
|
||||
continue;
|
||||
|
||||
case prALLINES:
|
||||
printf("prALLINES");
|
||||
continue;
|
||||
|
||||
case prNEWPAGE:
|
||||
printf("prNEWPAGE");
|
||||
continue;
|
||||
|
||||
case prPAGE:
|
||||
printf("prPAGE");
|
||||
continue;
|
||||
|
||||
case prTUPLE:
|
||||
printf("prTUPLE");
|
||||
continue;
|
||||
|
||||
case prVAR:
|
||||
printf("prVAR");
|
||||
var("#");
|
||||
continue;
|
||||
|
||||
case prCONST:
|
||||
printf("prCONST = ");
|
||||
goto konst;
|
||||
|
||||
case prSPACE:
|
||||
printf("prSPACE");
|
||||
var("#");
|
||||
continue;
|
||||
|
||||
case prNEWLINE:
|
||||
printf("prNEWLINE");
|
||||
var("#");
|
||||
continue;
|
||||
|
||||
case prNEWCOL:
|
||||
printf("prNEWCOL");
|
||||
var("col");
|
||||
continue;
|
||||
|
||||
case prLAST:
|
||||
printf("prLAST");
|
||||
print_tuple:
|
||||
var("dom");
|
||||
continue;
|
||||
|
||||
case prVALUE:
|
||||
printf("prVALUE");
|
||||
goto print_tuple;
|
||||
|
||||
case prNEXT:
|
||||
printf("prNEXT");
|
||||
goto print_tuple;
|
||||
|
||||
case fmtB_BIT:
|
||||
printf("fmtB_BIT");
|
||||
format:
|
||||
var("length");
|
||||
continue;
|
||||
|
||||
case fmtW_BIT:
|
||||
printf("fmtW_BIT");
|
||||
goto format;
|
||||
|
||||
case fmtB_OCT:
|
||||
printf("fmtB_OCT");
|
||||
goto format;
|
||||
|
||||
case fmtW_OCT:
|
||||
printf("fmtW_OCT");
|
||||
goto format;
|
||||
|
||||
case fmtB_DEC:
|
||||
printf("fmtB_DEC");
|
||||
goto format;
|
||||
|
||||
case fmtW_DEC:
|
||||
printf("fmtW_DEC");
|
||||
goto format;
|
||||
|
||||
case fmtB_HEX:
|
||||
printf("fmtB_HEX");
|
||||
goto format;
|
||||
|
||||
case fmtW_HEX:
|
||||
printf("fmtW_HEX");
|
||||
goto format;
|
||||
|
||||
case prSTRING:
|
||||
printf("prSTRING");
|
||||
goto input;
|
||||
|
||||
case prINPUT:
|
||||
printf("prINPUT");
|
||||
input:
|
||||
var("length");
|
||||
code = Length;
|
||||
var("batch_length");
|
||||
Length = code;
|
||||
c0("string");
|
||||
continue;
|
||||
|
||||
case fmtINT:
|
||||
printf("fmtINT");
|
||||
var("length");
|
||||
f8("scale");
|
||||
printf(" pic_length=%d", Length = word());
|
||||
c0("pic_string");
|
||||
continue;
|
||||
|
||||
case fmtREAL:
|
||||
printf("fmtREAL");
|
||||
var("length");
|
||||
f8("scale");
|
||||
var("before");
|
||||
var("point");
|
||||
var("ignore");
|
||||
var("norm");
|
||||
printf(" exp_length=%d", Length = word());
|
||||
c0("exp_string");
|
||||
continue;
|
||||
|
||||
case fmtCHAR:
|
||||
printf("fmtCHAR");
|
||||
var("length");
|
||||
var("from");
|
||||
var("to");
|
||||
var("batch_length");
|
||||
continue;
|
||||
|
||||
case fmtGRAPH:
|
||||
printf("fmtGRAPH");
|
||||
var("length");
|
||||
if (!var("from"))
|
||||
f8("value");
|
||||
if (!var("to"))
|
||||
f8("value");
|
||||
printf(" with char=%c", byte());
|
||||
continue;
|
||||
|
||||
case rcCASE:
|
||||
printf("rcCASE");
|
||||
var("#");
|
||||
i = Length;
|
||||
printf(" jumptable %d", Count + word());
|
||||
for (code = 0; code < i; code++)
|
||||
{
|
||||
printf("\n\tCASE %d CODE", code);
|
||||
Return++;
|
||||
interp();
|
||||
}
|
||||
printf("\n\tOUT CODE");
|
||||
Return++;
|
||||
interp();
|
||||
printf("\n\tJUMP_TABLE");
|
||||
rc = Count;
|
||||
for (code = 0; code < i; code++)
|
||||
{
|
||||
printf("\n%4d\t", Count);
|
||||
printf("CASE %d on %d", code, rc + word());
|
||||
}
|
||||
printf("\n%4d\t", Count);
|
||||
printf("OUT on %d", rc + word());
|
||||
continue;
|
||||
|
||||
case rcREPEAT:
|
||||
printf("rcREPEAT");
|
||||
var("#");
|
||||
printf(" jump to %d", Count + word());
|
||||
continue;
|
||||
|
||||
case onBATCH:
|
||||
printf("onBATCH");
|
||||
jump_over:
|
||||
printf(" jump over to %d", Count + word());
|
||||
Return++;
|
||||
interp();
|
||||
continue;
|
||||
|
||||
case onB_LINE:
|
||||
printf("onB_LINE");
|
||||
goto jump_over;
|
||||
|
||||
case onE_LINE:
|
||||
printf("onE_LINE");
|
||||
goto jump_over;
|
||||
|
||||
case onB_PAGE:
|
||||
printf("onB_PAGE");
|
||||
goto jump_over;
|
||||
|
||||
case onE_PAGE:
|
||||
printf("onE_PAGE");
|
||||
goto jump_over;
|
||||
|
||||
case rcJUMP:
|
||||
printf("rcJUMP");
|
||||
printf(" to %d", Count + word());
|
||||
continue;
|
||||
|
||||
case rcCALL:
|
||||
printf("rcCALL");
|
||||
printf(" procedure on %d", Count + word());
|
||||
continue;
|
||||
|
||||
case setVAR:
|
||||
printf("setVAR");
|
||||
expr_end:
|
||||
printf(" end of expression on %d", Count + word());
|
||||
continue;
|
||||
|
||||
case setSWITCH:
|
||||
printf("setSWITCH");
|
||||
goto expr_end;
|
||||
|
||||
case rcIF:
|
||||
printf("rcIF");
|
||||
printf(" then on %d", Count + word());
|
||||
continue;
|
||||
|
||||
case rcTHEN:
|
||||
printf("rcTHEN");
|
||||
printf(" else on %d", Count + word());
|
||||
continue;
|
||||
|
||||
default:
|
||||
printf("unknown code %d", code);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,76 @@
|
|||
/*
|
||||
** --- RP_DESC.C ------- DESCRITION PRINTER ---------------------------------
|
||||
**
|
||||
** Version: @(#)rp_desc.c 4.0 02/05/89
|
||||
**
|
||||
*/
|
||||
|
||||
# include <stdio.h>
|
||||
# include "r_code.h"
|
||||
# ifdef MSDOS
|
||||
# include <fcntl.h>
|
||||
# endif
|
||||
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
register int f;
|
||||
register int c;
|
||||
register char *p;
|
||||
struct desc_t d;
|
||||
# ifdef SETBUF
|
||||
char out_buf[BUFSIZ];
|
||||
|
||||
setbuf(stdout, out_buf);
|
||||
# endif
|
||||
PQR_system = "description printer";
|
||||
PQR();
|
||||
|
||||
if (argc == 1)
|
||||
p = "desc";
|
||||
else
|
||||
p = argv[1];
|
||||
|
||||
# ifdef MSDOS
|
||||
if ((f = open(p, 0 | O_BINARY)) < 0)
|
||||
# else
|
||||
if ((f = open(p, 0)) < 0)
|
||||
# endif
|
||||
{
|
||||
printf("Cannot open *** %s ***\n", p);
|
||||
fflush(stdout);
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
c = 1;
|
||||
printf("| field | type | len | off |\n");
|
||||
printf("+-------+-------+-------+-------+\n");
|
||||
while (read(f, &d, sizeof (struct desc_t)) == sizeof (struct desc_t))
|
||||
{
|
||||
printf("! %2d\t", c++);
|
||||
switch (d.domfrmt)
|
||||
{
|
||||
case INT:
|
||||
printf("| int\t", d.domfrmt);
|
||||
break;
|
||||
|
||||
case FLOAT:
|
||||
printf("| real\t", d.domfrmt);
|
||||
break;
|
||||
|
||||
case CHAR:
|
||||
printf("| char\t", d.domfrmt);
|
||||
break;
|
||||
|
||||
default:
|
||||
printf("| %3d\t", ctou(d.domfrmt));
|
||||
}
|
||||
printf("| %3d\t", ctou(d.domfrml));
|
||||
printf("| %3d\t|\n", d.domoff);
|
||||
fflush(stdout);
|
||||
}
|
||||
printf("+-------+-------+-------+-------+\n");
|
||||
fflush(stdout);
|
||||
}
|
||||
Loading…
Reference in New Issue