ref: 51d7d3eb6aee563d489f52258f6bc16d43cc50de
dir: /sys/src/cmd/eqn/lookup.c/
#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 */ }