ING_DB
This commit is contained in:
Oliver Lehmann
parent
1b36e945e3
commit
46f7f3dc7b
|
|
@ -0,0 +1,71 @@
|
|||
/*
|
||||
** --- RC_ERROR.C ------ YYERROR --------------------------------------------
|
||||
**
|
||||
** Version: @(#)rc_error.c 4.0 02/05/89
|
||||
**
|
||||
*/
|
||||
|
||||
# include "rc.h"
|
||||
|
||||
|
||||
static char *ERROR[] =
|
||||
{
|
||||
/* 000 */ "SYNTAX ERROR",
|
||||
/* 001 */ "Illegal PROC `%d'",
|
||||
/* 002 */ "PROC `%d' declared twice",
|
||||
/* 003 */ "PROC `%d' not declared",
|
||||
/* 004 */ "Cannot create R_CODE file `%s'",
|
||||
/* 005 */ "Cannot write to R_CODE file `%s'",
|
||||
/* 006 */ "Illegal VAR `%d'",
|
||||
/* 007 */ "Illegal SWITCH `%d'",
|
||||
/* 008 */ "VALUE `%d' < 0 not expected",
|
||||
/* 009 */ "Symbol Table OVERFLOW",
|
||||
/* 010 */ "Non terminated COMMENT",
|
||||
/* 011 */ "Non terminated STRING",
|
||||
/* 012 */ "STRING too long (>255)",
|
||||
/* 013 */ "Unknown OPERATOR `%s'",
|
||||
/* 014 */ "NUMBER too long (> 255)",
|
||||
/* 015 */ "FLOATING conversion error `%s'",
|
||||
/* 016 */ "INTEGER conversion error `%s'",
|
||||
/* 017 */ "NAME `%s' to long (>12)",
|
||||
/* 018 */ "BACKUP peek buffer overflow (>2)",
|
||||
/* 019 */ "CASE in CASE not allowed",
|
||||
/* 020 */ "Cannot print two objects",
|
||||
/* 021 */ "No object to print",
|
||||
/* 022 */ "NUMBER out of range (%d..%d)",
|
||||
/* 023 */ "Too many CASES",
|
||||
/* 024 */ "Too many MACROS",
|
||||
/* 025 */ "Illegal DOMAIN %d, expected %d",
|
||||
/* 026 */ "Too many DOMAINS",
|
||||
/* 027 */ "ILLEGAL field length %d",
|
||||
};
|
||||
|
||||
|
||||
# ifdef P8000
|
||||
rc_error(a0, a1, a2)
|
||||
register int a0;
|
||||
register char *a1;
|
||||
register char *a2;
|
||||
{
|
||||
# else
|
||||
rc_error(av)
|
||||
int av;
|
||||
{
|
||||
register int *a;
|
||||
|
||||
a = &av;
|
||||
# endif
|
||||
|
||||
if (Sflag)
|
||||
printf("\n****: ");
|
||||
else
|
||||
printf("\n%4d: ", Line);
|
||||
# ifdef P8000
|
||||
printf(ERROR[a0], a1, a2);
|
||||
# else
|
||||
printf(ERROR[a[0]], a[1], a[2]);
|
||||
# endif
|
||||
if (Sflag)
|
||||
printf("\n%4d: . . . ", Line);
|
||||
S_error++;
|
||||
}
|
||||
|
|
@ -0,0 +1,214 @@
|
|||
/*
|
||||
** --- RP_CODE.C ------- PRINT R_CODE NUMBER --------------------------------
|
||||
**
|
||||
** Version: @(#)rp_code.c 4.0 02/05/89
|
||||
**
|
||||
*/
|
||||
|
||||
# include <stdio.h>
|
||||
# include "r_code.h"
|
||||
|
||||
# define print(m, c) printf("|%5x\t|%5d\t|%5o\t|\t%s\n", c, c, c, m); fflush(stdout)
|
||||
|
||||
main()
|
||||
{
|
||||
# ifdef SETBUF
|
||||
char buf[BUFSIZ];
|
||||
|
||||
setbuf(stdout, buf);
|
||||
# endif
|
||||
|
||||
PQR_system = "r_code printer";
|
||||
PQR();
|
||||
|
||||
printf("R_CODE:\n");
|
||||
printf("--------------------------------------------\n");
|
||||
printf("| hex\t| dec\t| oct\t|\tcode\n");
|
||||
printf("--------------------------------------------\n");
|
||||
print("bdLT", bdLT);
|
||||
print("bdEQ", bdEQ);
|
||||
print("bdLE", bdLE);
|
||||
print("bdGT", bdGT);
|
||||
print("bdNE", bdNE);
|
||||
print("bdGE", bdGE);
|
||||
print("pushFALSE", pushFALSE);
|
||||
print("pushTRUE", pushTRUE);
|
||||
print("pushNULL", pushNULL);
|
||||
print("push1INT", push1INT);
|
||||
print("push2INT", push2INT);
|
||||
print("push4INT", push4INT);
|
||||
print("pushREAL", pushREAL);
|
||||
print("pushSTRING", pushSTRING);
|
||||
print("pushCONST", pushCONST);
|
||||
print("pushCOL", pushCOL);
|
||||
print("pushLINE", pushLINE);
|
||||
print("pushALLINES", pushALLINES);
|
||||
print("pushPAGE", pushPAGE);
|
||||
print("pushTUPLE", pushTUPLE);
|
||||
print("pushLAST", pushLAST);
|
||||
print("pushVALUE", pushVALUE);
|
||||
print("pushNEXT", pushNEXT);
|
||||
print("pushVAR", pushVAR);
|
||||
print("pushSWITCH", pushSWITCH);
|
||||
print("rcNOT", rcNOT);
|
||||
print("rcOR", rcOR);
|
||||
print("rcAND", rcAND);
|
||||
print("rcEND_SET", rcEND_SET);
|
||||
print("rcMIN", rcMIN);
|
||||
print("rcADD", rcADD);
|
||||
print("rcSUB", rcSUB);
|
||||
print("rcMUL", rcMUL);
|
||||
print("rcDIV", rcDIV);
|
||||
print("rcDIV_R", rcDIV_R);
|
||||
print("rcMOD", rcMOD);
|
||||
print("rcRC_END", rcRC_END);
|
||||
print("rcRETURN", rcRETURN);
|
||||
print("rcRTTS", rcRTTS);
|
||||
print("rcEOTUP", rcEOTUP);
|
||||
print("rcALL", rcALL);
|
||||
print("rcONE", rcONE);
|
||||
print("rcDATE", rcDATE);
|
||||
print("rcTIME", rcTIME);
|
||||
print("prCOL", prCOL);
|
||||
print("prLINE", prLINE);
|
||||
print("prALLINES", prALLINES);
|
||||
print("prNEWPAGE", prNEWPAGE);
|
||||
print("prPAGE", prPAGE);
|
||||
print("prTUPLE", prTUPLE);
|
||||
print("prVAR", prVAR);
|
||||
print("prCONST", prCONST);
|
||||
print("prSPACE", prSPACE);
|
||||
print("prNEWLINE", prNEWLINE);
|
||||
print("prNEWCOL", prNEWCOL);
|
||||
print("prLAST", prLAST);
|
||||
print("prVALUE", prVALUE);
|
||||
print("prNEXT", prNEXT);
|
||||
print("fmtB_BIT", fmtB_BIT);
|
||||
print("fmtW_BIT", fmtW_BIT);
|
||||
print("fmtB_OCT", fmtB_OCT);
|
||||
print("fmtW_OCT", fmtW_OCT);
|
||||
print("fmtB_DEC", fmtB_DEC);
|
||||
print("fmtW_DEC", fmtW_DEC);
|
||||
print("fmtB_HEX", fmtB_HEX);
|
||||
print("fmtW_HEX", fmtW_HEX);
|
||||
print("prSTRING", prSTRING);
|
||||
print("prINPUT", prINPUT);
|
||||
print("fmtINT", fmtINT);
|
||||
print("fmtREAL", fmtREAL);
|
||||
print("fmtCHAR", fmtCHAR);
|
||||
print("fmtGRAPH", fmtGRAPH);
|
||||
print("rcCASE", rcCASE);
|
||||
print("rcREPEAT", rcREPEAT);
|
||||
print("onBATCH", onBATCH);
|
||||
print("onB_LINE", onB_LINE);
|
||||
print("onE_LINE", onE_LINE);
|
||||
print("onB_PAGE", onB_PAGE);
|
||||
print("onE_PAGE", onE_PAGE);
|
||||
print("rcJUMP", rcJUMP);
|
||||
print("rcCALL", rcCALL);
|
||||
print("setVAR", setVAR);
|
||||
print("setSWITCH", setSWITCH);
|
||||
print("rcIF", rcIF);
|
||||
print("rcTHEN", rcTHEN);
|
||||
printf("--------------------------------------------\n");
|
||||
printf("| hex\t| dec\t| oct\t|\tcode\n");
|
||||
printf("--------------------------------------------\n");
|
||||
main1();
|
||||
}
|
||||
|
||||
main1()
|
||||
{
|
||||
printf("\fR_CODE:\n");
|
||||
printf("--------------------------------------------\n");
|
||||
printf("| hex\t| dec\t| oct\t|\tcode\n");
|
||||
printf("--------------------------------------------\n");
|
||||
print("bdEQ", bdEQ);
|
||||
print("bdGE", bdGE);
|
||||
print("bdGT", bdGT);
|
||||
print("bdLE", bdLE);
|
||||
print("bdLT", bdLT);
|
||||
print("bdNE", bdNE);
|
||||
print("fmtB_BIT", fmtB_BIT);
|
||||
print("fmtB_DEC", fmtB_DEC);
|
||||
print("fmtB_HEX", fmtB_HEX);
|
||||
print("fmtB_OCT", fmtB_OCT);
|
||||
print("fmtCHAR", fmtCHAR);
|
||||
print("fmtGRAPH", fmtGRAPH);
|
||||
print("fmtINT", fmtINT);
|
||||
print("fmtREAL", fmtREAL);
|
||||
print("fmtW_BIT", fmtW_BIT);
|
||||
print("fmtW_DEC", fmtW_DEC);
|
||||
print("fmtW_HEX", fmtW_HEX);
|
||||
print("fmtW_OCT", fmtW_OCT);
|
||||
print("onBATCH", onBATCH);
|
||||
print("onB_LINE", onB_LINE);
|
||||
print("onB_PAGE", onB_PAGE);
|
||||
print("onE_LINE", onE_LINE);
|
||||
print("onE_PAGE", onE_PAGE);
|
||||
print("rcADD", rcADD);
|
||||
print("rcAND", rcAND);
|
||||
print("rcDIV", rcDIV);
|
||||
print("rcDIV_R", rcDIV_R);
|
||||
print("rcMIN", rcMIN);
|
||||
print("rcMOD", rcMOD);
|
||||
print("rcMUL", rcMUL);
|
||||
print("rcNOT", rcNOT);
|
||||
print("rcOR", rcOR);
|
||||
print("rcSUB", rcSUB);
|
||||
print("prCOL", prCOL);
|
||||
print("prCONST", prCONST);
|
||||
print("prINPUT", prINPUT);
|
||||
print("prLAST", prLAST);
|
||||
print("prLINE", prLINE);
|
||||
print("prALLINES", prALLINES);
|
||||
print("prNEWCOL", prNEWCOL);
|
||||
print("prNEWLINE", prNEWLINE);
|
||||
print("prNEWPAGE", prNEWPAGE);
|
||||
print("prNEXT", prNEXT);
|
||||
print("prPAGE", prPAGE);
|
||||
print("prSPACE", prSPACE);
|
||||
print("prSTRING", prSTRING);
|
||||
print("prTUPLE", prTUPLE);
|
||||
print("prVALUE", prVALUE);
|
||||
print("prVAR", prVAR);
|
||||
print("push1INT", push1INT);
|
||||
print("push2INT", push2INT);
|
||||
print("push4INT", push4INT);
|
||||
print("pushALLINES", pushALLINES);
|
||||
print("pushCOL", pushCOL);
|
||||
print("pushCONST", pushCONST);
|
||||
print("pushFALSE", pushFALSE);
|
||||
print("pushLAST", pushLAST);
|
||||
print("pushLINE", pushLINE);
|
||||
print("pushNEXT", pushNEXT);
|
||||
print("pushNULL", pushNULL);
|
||||
print("pushPAGE", pushPAGE);
|
||||
print("pushREAL", pushREAL);
|
||||
print("pushSTRING", pushSTRING);
|
||||
print("pushSWITCH", pushSWITCH);
|
||||
print("pushTRUE", pushTRUE);
|
||||
print("pushTUPLE", pushTUPLE);
|
||||
print("pushVALUE", pushVALUE);
|
||||
print("pushVAR", pushVAR);
|
||||
print("rcALL", rcALL);
|
||||
print("rcCALL", rcCALL);
|
||||
print("rcCASE", rcCASE);
|
||||
print("rcDATE", rcDATE);
|
||||
print("rcEND_SET", rcEND_SET);
|
||||
print("rcEOTUP", rcEOTUP);
|
||||
print("rcIF", rcIF);
|
||||
print("rcJUMP", rcJUMP);
|
||||
print("rcONE", rcONE);
|
||||
print("rcRC_END", rcRC_END);
|
||||
print("rcREPEAT", rcREPEAT);
|
||||
print("rcRETURN", rcRETURN);
|
||||
print("rcRTTS", rcRTTS);
|
||||
print("rcTHEN", rcTHEN);
|
||||
print("rcTIME", rcTIME);
|
||||
print("setSWITCH", setSWITCH);
|
||||
print("setVAR", setVAR);
|
||||
printf("--------------------------------------------\n");
|
||||
printf("| hex\t| dec\t| oct\t|\tcode\n");
|
||||
printf("--------------------------------------------\n");
|
||||
fflush(stdout);
|
||||
}
|
||||
Loading…
Reference in New Issue