diff options
Diffstat (limited to 'contrib/one-true-awk/proctab.c')
| -rw-r--r-- | contrib/one-true-awk/proctab.c | 205 |
1 files changed, 205 insertions, 0 deletions
diff --git a/contrib/one-true-awk/proctab.c b/contrib/one-true-awk/proctab.c new file mode 100644 index 0000000..def5b67 --- /dev/null +++ b/contrib/one-true-awk/proctab.c @@ -0,0 +1,205 @@ +#include <stdio.h> +#include "awk.h" +#include "ytab.h" + +static char *printname[92] = { + (char *) "FIRSTTOKEN", /* 57346 */ + (char *) "PROGRAM", /* 57347 */ + (char *) "PASTAT", /* 57348 */ + (char *) "PASTAT2", /* 57349 */ + (char *) "XBEGIN", /* 57350 */ + (char *) "XEND", /* 57351 */ + (char *) "NL", /* 57352 */ + (char *) "ARRAY", /* 57353 */ + (char *) "MATCH", /* 57354 */ + (char *) "NOTMATCH", /* 57355 */ + (char *) "MATCHOP", /* 57356 */ + (char *) "FINAL", /* 57357 */ + (char *) "DOT", /* 57358 */ + (char *) "ALL", /* 57359 */ + (char *) "CCL", /* 57360 */ + (char *) "NCCL", /* 57361 */ + (char *) "CHAR", /* 57362 */ + (char *) "OR", /* 57363 */ + (char *) "STAR", /* 57364 */ + (char *) "QUEST", /* 57365 */ + (char *) "PLUS", /* 57366 */ + (char *) "AND", /* 57367 */ + (char *) "BOR", /* 57368 */ + (char *) "APPEND", /* 57369 */ + (char *) "EQ", /* 57370 */ + (char *) "GE", /* 57371 */ + (char *) "GT", /* 57372 */ + (char *) "LE", /* 57373 */ + (char *) "LT", /* 57374 */ + (char *) "NE", /* 57375 */ + (char *) "IN", /* 57376 */ + (char *) "ARG", /* 57377 */ + (char *) "BLTIN", /* 57378 */ + (char *) "BREAK", /* 57379 */ + (char *) "CLOSE", /* 57380 */ + (char *) "CONTINUE", /* 57381 */ + (char *) "DELETE", /* 57382 */ + (char *) "DO", /* 57383 */ + (char *) "EXIT", /* 57384 */ + (char *) "FOR", /* 57385 */ + (char *) "FUNC", /* 57386 */ + (char *) "SUB", /* 57387 */ + (char *) "GSUB", /* 57388 */ + (char *) "IF", /* 57389 */ + (char *) "INDEX", /* 57390 */ + (char *) "LSUBSTR", /* 57391 */ + (char *) "MATCHFCN", /* 57392 */ + (char *) "NEXT", /* 57393 */ + (char *) "NEXTFILE", /* 57394 */ + (char *) "ADD", /* 57395 */ + (char *) "MINUS", /* 57396 */ + (char *) "MULT", /* 57397 */ + (char *) "DIVIDE", /* 57398 */ + (char *) "MOD", /* 57399 */ + (char *) "ASSIGN", /* 57400 */ + (char *) "ASGNOP", /* 57401 */ + (char *) "ADDEQ", /* 57402 */ + (char *) "SUBEQ", /* 57403 */ + (char *) "MULTEQ", /* 57404 */ + (char *) "DIVEQ", /* 57405 */ + (char *) "MODEQ", /* 57406 */ + (char *) "POWEQ", /* 57407 */ + (char *) "PRINT", /* 57408 */ + (char *) "PRINTF", /* 57409 */ + (char *) "SPRINTF", /* 57410 */ + (char *) "ELSE", /* 57411 */ + (char *) "INTEST", /* 57412 */ + (char *) "CONDEXPR", /* 57413 */ + (char *) "POSTINCR", /* 57414 */ + (char *) "PREINCR", /* 57415 */ + (char *) "POSTDECR", /* 57416 */ + (char *) "PREDECR", /* 57417 */ + (char *) "VAR", /* 57418 */ + (char *) "IVAR", /* 57419 */ + (char *) "VARNF", /* 57420 */ + (char *) "CALL", /* 57421 */ + (char *) "NUMBER", /* 57422 */ + (char *) "STRING", /* 57423 */ + (char *) "REGEXPR", /* 57424 */ + (char *) "GETLINE", /* 57425 */ + (char *) "RETURN", /* 57426 */ + (char *) "SPLIT", /* 57427 */ + (char *) "SUBSTR", /* 57428 */ + (char *) "WHILE", /* 57429 */ + (char *) "CAT", /* 57430 */ + (char *) "NOT", /* 57431 */ + (char *) "UMINUS", /* 57432 */ + (char *) "POWER", /* 57433 */ + (char *) "DECR", /* 57434 */ + (char *) "INCR", /* 57435 */ + (char *) "INDIRECT", /* 57436 */ + (char *) "LASTTOKEN", /* 57437 */ +}; + + +Cell *(*proctab[92])(Node **, int) = { + nullproc, /* FIRSTTOKEN */ + program, /* PROGRAM */ + pastat, /* PASTAT */ + dopa2, /* PASTAT2 */ + nullproc, /* XBEGIN */ + nullproc, /* XEND */ + nullproc, /* NL */ + array, /* ARRAY */ + matchop, /* MATCH */ + matchop, /* NOTMATCH */ + nullproc, /* MATCHOP */ + nullproc, /* FINAL */ + nullproc, /* DOT */ + nullproc, /* ALL */ + nullproc, /* CCL */ + nullproc, /* NCCL */ + nullproc, /* CHAR */ + nullproc, /* OR */ + nullproc, /* STAR */ + nullproc, /* QUEST */ + nullproc, /* PLUS */ + boolop, /* AND */ + boolop, /* BOR */ + nullproc, /* APPEND */ + relop, /* EQ */ + relop, /* GE */ + relop, /* GT */ + relop, /* LE */ + relop, /* LT */ + relop, /* NE */ + instat, /* IN */ + arg, /* ARG */ + bltin, /* BLTIN */ + jump, /* BREAK */ + closefile, /* CLOSE */ + jump, /* CONTINUE */ + awkdelete, /* DELETE */ + dostat, /* DO */ + jump, /* EXIT */ + forstat, /* FOR */ + nullproc, /* FUNC */ + sub, /* SUB */ + gsub, /* GSUB */ + ifstat, /* IF */ + sindex, /* INDEX */ + nullproc, /* LSUBSTR */ + matchop, /* MATCHFCN */ + jump, /* NEXT */ + jump, /* NEXTFILE */ + arith, /* ADD */ + arith, /* MINUS */ + arith, /* MULT */ + arith, /* DIVIDE */ + arith, /* MOD */ + assign, /* ASSIGN */ + nullproc, /* ASGNOP */ + assign, /* ADDEQ */ + assign, /* SUBEQ */ + assign, /* MULTEQ */ + assign, /* DIVEQ */ + assign, /* MODEQ */ + assign, /* POWEQ */ + printstat, /* PRINT */ + awkprintf, /* PRINTF */ + awksprintf, /* SPRINTF */ + nullproc, /* ELSE */ + intest, /* INTEST */ + condexpr, /* CONDEXPR */ + incrdecr, /* POSTINCR */ + incrdecr, /* PREINCR */ + incrdecr, /* POSTDECR */ + incrdecr, /* PREDECR */ + nullproc, /* VAR */ + nullproc, /* IVAR */ + getnf, /* VARNF */ + call, /* CALL */ + nullproc, /* NUMBER */ + nullproc, /* STRING */ + nullproc, /* REGEXPR */ + getline, /* GETLINE */ + jump, /* RETURN */ + split, /* SPLIT */ + substr, /* SUBSTR */ + whilestat, /* WHILE */ + cat, /* CAT */ + boolop, /* NOT */ + arith, /* UMINUS */ + arith, /* POWER */ + nullproc, /* DECR */ + nullproc, /* INCR */ + indirect, /* INDIRECT */ + nullproc, /* LASTTOKEN */ +}; + +char *tokname(int n) +{ + static char buf[100]; + + if (n < FIRSTTOKEN || n > LASTTOKEN) { + sprintf(buf, "token %d", n); + return buf; + } + return printname[n-FIRSTTOKEN]; +} |
