123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596 |
- /* $Header$ */
- #include "tokenname.h"
- #include "Lpars.h"
- #include "position.h"
- #include "file.h"
- #include "idf.h"
- /* To centralize the declaration of %tokens, their presence in this
- file is taken as their declaration. The Makefile will produce
- a grammar file (tokenfile.g) from this file. This scheme ensures
- that all tokens have a printable name.
- Also, the "token2str.c" file is produced from this file.
- */
- #if 0
- struct tokenname tkspec[] = { /* the names of the special tokens */
- {NAME, "name"},
- {STRING, "string"},
- {INTEGER, "number"},
- {EXPRESSION, "<expression>"},
- {REAL, "real"},
- {CHAR, "char"},
- {BIN_OP, "<operator>"},
- {PREF_OR_BIN_OP, "<operator>"},
- {PREF_OP, "<operator>"},
- {POST_OP, "<operator>"},
- {SEL_OP, "<operator>"},
- {0, ""}
- };
- #endif
- struct tokenname tkidf[] = { /* names of the identifier tokens */
- {LIST, "list"},
- {XFILE, "file"},
- {RUN, "run"},
- {RERUN, "rerun"},
- {STOP, "stop"},
- {WHEN, "when"},
- {AT, "at"},
- {IN, "in"},
- {ON, "on"},
- {IF, "if"},
- {CONT, "cont"},
- {STEP, "step"},
- {NEXT, "next"},
- {REGS, "regs"},
- {WHERE, "where"},
- {STATUS, "status"},
- {DELETE, "delete"},
- {PRINT, "print"},
- {DUMP, "dump"},
- {RESTORE, "restore"},
- {TRACE, "trace"},
- {SET, "set"},
- {TO, "to"},
- {FIND, "find"},
- {DISPLAY, "display"},
- {WHICH, "which"},
- {HELP, "help"},
- {DISABLE,"disable"},
- {ENABLE,"enable"},
- {SOURCE, "source"},
- {FRAME, "frame"},
- {LOG, "log"},
- {-1, "quit"},
- {0, ""}
- };
- #if 0
- struct tokenname tkinternal[] = { /* internal keywords */
- {0, "0"}
- };
- struct tokenname tkstandard[] = { /* standard identifiers */
- {0, ""}
- };
- #endif
- /* Some routines to handle tokennames */
- reserve(resv)
- register struct tokenname *resv;
- {
- /* The names of the tokens described in resv are entered
- as reserved words.
- */
- register struct idf *p;
- while (resv->tn_symbol) {
- p = str2idf(resv->tn_name, 0);
- if (!p) fatal("out of Memory");
- p->id_reserved = resv->tn_symbol;
- resv++;
- }
- }
|