ING_DB
This commit is contained in:
Oliver Lehmann
parent
f9ff36b825
commit
9322ee6870
|
|
@ -0,0 +1,211 @@
|
||||||
|
/*
|
||||||
|
** --- RC_TAB.Y -------- SCANNER TABLES -------------------------------------
|
||||||
|
**
|
||||||
|
** SCANNER KEYWORD AND OPERATOR TABLES
|
||||||
|
**
|
||||||
|
** Keywords, Tokens, and Opcode tuples are included
|
||||||
|
** in this file the keyword table MUST be in sorted
|
||||||
|
** order. The operator table does not need to be
|
||||||
|
** sorted.
|
||||||
|
**
|
||||||
|
** Version: @(#)rc_tab.y 4.0 02/05/89
|
||||||
|
**
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
OPTAB Keyword[] =
|
||||||
|
{
|
||||||
|
/* term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
"all", ALL, 0,
|
||||||
|
"and", LBOP, (int) rcAND,
|
||||||
|
"as", AS, 0,
|
||||||
|
"batch", BATCH, 0,
|
||||||
|
"batchline", EXCEPTION, (int) onBATCH,
|
||||||
|
"before", BEFORE, 0,
|
||||||
|
"big", BIG, 0,
|
||||||
|
"bit", FORMAT, (int) fmtB_BIT,
|
||||||
|
"byte", BYTE, 0,
|
||||||
|
"call", CALL, 0,
|
||||||
|
"case", CASE, 0,
|
||||||
|
"char", F_CHAR, CHAR,
|
||||||
|
"clear", CLEAR, 0,
|
||||||
|
"col", COL, 0,
|
||||||
|
"column", COLUMN, 0,
|
||||||
|
"columns", COLUMN, 0,
|
||||||
|
"complement", COMPLEMENT, 0,
|
||||||
|
"date", DATE, (int) rcDATE,
|
||||||
|
"day", SYS_CONST, M_DAY,
|
||||||
|
"dec", FORMAT, (int) fmtB_DEC,
|
||||||
|
"default", OUT, 0,
|
||||||
|
"define", DEFINE, 0,
|
||||||
|
"do", DO, 0,
|
||||||
|
"else", ELSE, 0,
|
||||||
|
"end", END, 0,
|
||||||
|
"enda", ENDA, 0,
|
||||||
|
"endc", ENDC, 0,
|
||||||
|
"endi", ENDI, 0,
|
||||||
|
"endo", ENDO, 0,
|
||||||
|
"endr", ENDR, 0,
|
||||||
|
"endw", ENDW, 0,
|
||||||
|
"exp", EXP, 0,
|
||||||
|
"false", BCONST, (int) pushFALSE,
|
||||||
|
"for", FOR, 0,
|
||||||
|
"from", FROM_TO, 0,
|
||||||
|
"graphic", GRAPHIC, 0,
|
||||||
|
"groupbegin", GROUPBEGIN, 0,
|
||||||
|
"groupend", GROUPEND, 0,
|
||||||
|
"hex", FORMAT, (int) fmtB_HEX,
|
||||||
|
"hour", SYS_CONST, HOUR,
|
||||||
|
"if", IF, 0,
|
||||||
|
"ignore", IGNORE, 0,
|
||||||
|
"in", IN, 0,
|
||||||
|
"integer", INTEGER, INT,
|
||||||
|
"is_dst", SYS_CONST, IS_DST,
|
||||||
|
"last", DOMAIN, (int) pushLAST,
|
||||||
|
"length", LENGTH, 0,
|
||||||
|
"line", LINE, 0,
|
||||||
|
"linebegin", EXCEPTION, (int) onB_LINE,
|
||||||
|
"lineend", EXCEPTION, (int) onE_LINE,
|
||||||
|
"lines", LINE, 0,
|
||||||
|
"m_day", SYS_CONST, M_DAY,
|
||||||
|
"minute", SYS_CONST, MINUTE,
|
||||||
|
"mod", ABOP, (int) rcMOD,
|
||||||
|
"month", SYS_CONST, MONTH,
|
||||||
|
"new", NEW, 0,
|
||||||
|
"next", DOMAIN, (int) pushNEXT,
|
||||||
|
"norm", NORM, 0,
|
||||||
|
"not", LUOP, (int) rcNOT,
|
||||||
|
"null", ICONST, 0,
|
||||||
|
"oct", FORMAT, (int) fmtB_OCT,
|
||||||
|
"on", ON, 0,
|
||||||
|
"one", ONE, 0,
|
||||||
|
"or", LBOP, (int) rcOR,
|
||||||
|
"out", OUT, 0,
|
||||||
|
"page", PAGE, 0,
|
||||||
|
"pagebegin", EXCEPTION, (int) onB_PAGE,
|
||||||
|
"pageend", EXCEPTION, (int) onE_PAGE,
|
||||||
|
"pic", PIC, 0,
|
||||||
|
"point", POINT, 0,
|
||||||
|
"proc", PROC, 0,
|
||||||
|
"real", REAL, FLOAT,
|
||||||
|
"repeat", REPEAT, 0,
|
||||||
|
"report", REPORT, 0,
|
||||||
|
"return", RETURN, 0,
|
||||||
|
"scale", SCALE, 0,
|
||||||
|
"second", SYS_CONST, SECOND,
|
||||||
|
"set", SET, 0,
|
||||||
|
"space", SPACE, 0,
|
||||||
|
"switch", SWITCH, 0,
|
||||||
|
"terminal", TERMINAL, 0,
|
||||||
|
"then", THEN, 0,
|
||||||
|
"time", DATE, (int) rcTIME,
|
||||||
|
"to", FROM_TO, 1,
|
||||||
|
"true", BCONST, (int) pushTRUE,
|
||||||
|
"tuple", TUPLE, 0,
|
||||||
|
"value", DOMAIN, (int) pushVALUE,
|
||||||
|
"var", NVAR, 0,
|
||||||
|
"w_day", SYS_CONST, W_DAY,
|
||||||
|
"while", WHILE, 0,
|
||||||
|
"with", WITH, 0,
|
||||||
|
"word", WORD, 0,
|
||||||
|
"y_day", SYS_CONST, Y_DAY,
|
||||||
|
"year", SYS_CONST, YEAR
|
||||||
|
/* -------------------------------------- */
|
||||||
|
};
|
||||||
|
int Keyent = sizeof Keyword / sizeof Keyword[0];
|
||||||
|
|
||||||
|
OPTAB Optab[] =
|
||||||
|
{
|
||||||
|
/* PUNCTUATION
|
||||||
|
** --------------------------------------
|
||||||
|
** term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
";", SEMICOL, 0,
|
||||||
|
"(", LPAREN, 0,
|
||||||
|
")", RPAREN, 0,
|
||||||
|
"'", SCONST, 0,
|
||||||
|
"\"", SCONST, 0,
|
||||||
|
"\/\*", BGNCMNT, 0,
|
||||||
|
"\*\/", ENDCMNT, 0,
|
||||||
|
"#", DOMAIN, (int) pushVALUE,
|
||||||
|
"$", NVAR, 0,
|
||||||
|
"^", SWITCH, 0,
|
||||||
|
"@", LENGTH, 0,
|
||||||
|
"\\", COL, 0,
|
||||||
|
"\\\\", SPACE, 0,
|
||||||
|
"\\n", NEWLINE, 0,
|
||||||
|
"\\f", NEWPAGE, 0,
|
||||||
|
/* --------------------------------------
|
||||||
|
**
|
||||||
|
** --------------------------------------
|
||||||
|
** term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
"+", AUOP, (int) rcADD,
|
||||||
|
"-", AUOP, (int) rcMIN,
|
||||||
|
"!", LUOP, (int) rcNOT,
|
||||||
|
/* --------------------------------------
|
||||||
|
**
|
||||||
|
** BINARY ARITHMETIC / LOGICAL OPERATORS
|
||||||
|
** --------------------------------------
|
||||||
|
** term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
"*", ABOP, (int) rcMUL,
|
||||||
|
":", ABOP, (int) rcDIV,
|
||||||
|
"/", ABOP, (int) rcDIV_R,
|
||||||
|
"%", ABOP, (int) rcMOD,
|
||||||
|
"&", LBOP, (int) rcAND,
|
||||||
|
"&&", LBOP, (int) rcAND,
|
||||||
|
"|", LBOP, (int) rcOR,
|
||||||
|
"||", LBOP, (int) rcOR,
|
||||||
|
/* --------------------------------------
|
||||||
|
**
|
||||||
|
** BINARY ASSIGNMENT OPERATORS
|
||||||
|
** --------------------------------------
|
||||||
|
** term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
"+=", ABIS, (int) rcADD,
|
||||||
|
"-=", ABIS, (int) rcSUB,
|
||||||
|
"*=", ABIS, (int) rcMUL,
|
||||||
|
":=", ABIS, (int) rcDIV,
|
||||||
|
"/=", ABIS, (int) rcDIV_R,
|
||||||
|
"%=", ABIS, (int) rcMOD,
|
||||||
|
/* --------------------------------------
|
||||||
|
**
|
||||||
|
** BOUNDS OPERATORS
|
||||||
|
** --------------------------------------
|
||||||
|
** term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
">", BDOP, (int) bdGT,
|
||||||
|
">=", BDOP, (int) bdGE,
|
||||||
|
"<", BDOP, (int) bdLT,
|
||||||
|
"<=", BDOP, (int) bdLE,
|
||||||
|
/* --------------------------------------
|
||||||
|
**
|
||||||
|
** EQUALITY OPERATORS
|
||||||
|
** --------------------------------------
|
||||||
|
** term token opcode
|
||||||
|
** -------------------------------------- */
|
||||||
|
"=", IS, (int) bdEQ,
|
||||||
|
"==", IS, (int) bdEQ,
|
||||||
|
"<>", EOP, (int) bdNE,
|
||||||
|
"!=", EOP, (int) bdNE,
|
||||||
|
/* -------------------------------------- */
|
||||||
|
0
|
||||||
|
};
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Tokens
|
||||||
|
** A structur initialized here to contain the YACC
|
||||||
|
** generated tokens for the indicated terminal symbols.
|
||||||
|
*/
|
||||||
|
struct special Tokens =
|
||||||
|
{
|
||||||
|
/* name = */ NAME,
|
||||||
|
/* sconst = */ SCONST,
|
||||||
|
/* bgncmnt = */ BGNCMNT,
|
||||||
|
/* endcmnt = */ ENDCMNT,
|
||||||
|
/* iconst = */ ICONST,
|
||||||
|
/* lconst = */ LCONST,
|
||||||
|
/* rconst = */ RCONST
|
||||||
|
};
|
||||||
Loading…
Reference in New Issue