diff options
Diffstat (limited to 'src/cmd/eqn/lookup.c')
| -rw-r--r-- | src/cmd/eqn/lookup.c | 219 |
1 files changed, 219 insertions, 0 deletions
diff --git a/src/cmd/eqn/lookup.c b/src/cmd/eqn/lookup.c new file mode 100644 index 00000000..4eb94373 --- /dev/null +++ b/src/cmd/eqn/lookup.c @@ -0,0 +1,219 @@ +#include "e.h" +#include "y.tab.h" + +tbl *keytbl[TBLSIZE]; /* key words */ +tbl *restbl[TBLSIZE]; /* reserved words */ +tbl *deftbl[TBLSIZE]; /* user-defined names */ + +struct keyword { + char *key; + int keyval; +} keyword[] ={ + "sub", SUB, + "sup", SUP, + ".EN", DOTEN, + ".EQ", DOTEQ, + "from", FROM, + "to", TO, + "sum", SUM, + "hat", HAT, + "vec", VEC, + "dyad", DYAD, + "dot", DOT, + "dotdot", DOTDOT, + "bar", BAR, + "lowbar", LOWBAR, + "highbar", HIGHBAR, + "tilde", TILDE, + "utilde", UTILDE, + "under", UNDER, + "prod", PROD, + "int", INT, + "integral", INT, + "union", UNION, + "inter", INTER, + "matrix", MATRIX, + "col", COL, + "lcol", LCOL, + "ccol", CCOL, + "rcol", RCOL, + "pile", COL, /* synonyms ... */ + "lpile", LCOL, + "cpile", CCOL, + "rpile", RCOL, + "over", OVER, + "sqrt", SQRT, + "above", ABOVE, + "size", SIZE, + "font", FONT, + "fat", FAT, + "roman", ROMAN, + "italic", ITALIC, + "bold", BOLD, + "left", LEFT, + "right", RIGHT, + "delim", DELIM, + "define", DEFINE, + "tdefine", DEFINE, + "ndefine", NDEFINE, + "ifdef", IFDEF, + "gsize", GSIZE, + ".gsize", GSIZE, + "gfont", GFONT, + "include", INCLUDE, + "copy", INCLUDE, + "space", SPACE, + "up", UP, + "down", DOWN, + "fwd", FWD, + "back", BACK, + "mark", MARK, + "lineup", LINEUP, + 0, 0 +}; + +struct resword { + char *res; + char *resval; +} resword[] ={ + ">=", "\\(>=", + "<=", "\\(<=", + "==", "\\(==", + "!=", "\\(!=", + "+-", "\\(+-", + "->", "\\(->", + "<-", "\\(<-", + "inf", "\\(if", + "infinity", "\\(if", + "partial", "\\(pd", + "half", "\\f1\\(12\\fP", + "prime", "\\f1\\v'.5m'\\s+3\\(fm\\s-3\\v'-.5m'\\fP", + "dollar", "\\f1$\\fP", + "nothing", "", + "times", "\\(mu", + "del", "\\(gr", + "grad", "\\(gr", + "approx", "\\v'-.2m'\\z\\(ap\\v'.25m'\\(ap\\v'-.05m'", + "cdot", "\\v'-.3m'.\\v'.3m'", + "...", "\\v'-.25m'\\ .\\ .\\ .\\ \\v'.25m'", + ",...,", "\\f1,\\fP\\ .\\ .\\ .\\ \\f1,\\fP\\|", + "alpha", "α", + "ALPHA", "Α", + "beta", "β", + "BETA", "Β", + "gamma", "γ", + "GAMMA", "Γ", + "delta", "δ", + "DELTA", "Δ", + "epsilon", "ε", + "EPSILON", "Ε", + "omega", "ω", + "OMEGA", "Ω", + "lambda", "λ", + "LAMBDA", "Λ", + "mu", "μ", + "MU", "Μ", + "nu", "ν", + "NU", "Ν", + "theta", "θ", + "THETA", "Θ", + "phi", "φ", + "PHI", "Φ", + "pi", "π", + "PI", "Π", + "sigma", "σ", + "SIGMA", "Σ", + "xi", "ξ", + "XI", "Ξ", + "zeta", "ζ", + "ZETA", "Ζ", + "iota", "ι", + "IOTA", "Ι", + "eta", "η", + "ETA", "Η", + "kappa", "κ", + "KAPPA", "Κ", + "rho", "ρ", + "RHO", "Ρ", + "tau", "τ", + "TAU", "Τ", + "omicron", "ο", + "OMICRON", "Ο", + "upsilon", "υ", + "UPSILON", "Υ", + "psi", "ψ", + "PSI", "Ψ", + "chi", "χ", + "CHI", "Χ", + "and", "\\f1and\\fP", + "for", "\\f1for\\fP", + "if", "\\f1if\\fP", + "Re", "\\f1Re\\fP", + "Im", "\\f1Im\\fP", + "sin", "\\f1sin\\fP", + "cos", "\\f1cos\\fP", + "tan", "\\f1tan\\fP", + "arc", "\\f1arc\\fP", + "sinh", "\\f1sinh\\fP", + "coth", "\\f1coth\\fP", + "tanh", "\\f1tanh\\fP", + "cosh", "\\f1cosh\\fP", + "lim", "\\f1lim\\fP", + "log", "\\f1log\\fP", + "ln", "\\f1ln\\fP", + "max", "\\f1max\\fP", + "min", "\\f1min\\fP", + "exp", "\\f1exp\\fP", + "det", "\\f1det\\fP", + 0, 0 +}; + +int hash(char *s) +{ + register unsigned int h; + + for (h = 0; *s != '\0'; ) + h += *s++; + h %= TBLSIZE; + return h; +} + +tbl *lookup(tbl **tblp, char *name) /* find name in tbl */ +{ + register tbl *p; + + for (p = tblp[hash(name)]; p != NULL; p = p->next) + if (strcmp(name, p->name) == 0) + return(p); + return(NULL); +} + +void install(tbl **tblp, char *name, char *cval, int ival) /* install name, vals in tblp */ +{ + register tbl *p; + int h; + + if ((p = lookup(tblp, name)) == NULL) { + p = (tbl *) malloc(sizeof(tbl)); + if (p == NULL) + ERROR "out of space in install" FATAL; + h = hash(name); /* bad visibility here */ + p->name = name; + p->next = tblp[h]; + tblp[h] = p; + } + p->cval = cval; + p->ival = ival; +} + +void init_tbl(void) /* initialize tables */ +{ + int i; + extern int init_tune(void); + + for (i = 0; keyword[i].key != NULL; i++) + install(keytbl, keyword[i].key, (char *) 0, keyword[i].keyval); + for (i = 0; resword[i].res != NULL; i++) + install(restbl, resword[i].res, resword[i].resval, 0); + init_tune(); /* tuning table done in tuning.c */ +} |