![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lookup.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / eqn / common_source|
Return to lookup.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / eqn / common_source |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)lookup.c 4.2 8/11/83";
3: #endif
4:
5: # include "e.h"
6: #include "e.def"
7:
8: #define TBLSIZE 100
9:
10: tbl *keytbl[TBLSIZE]; /* key words */
11: tbl *restbl[TBLSIZE]; /* reserved words */
12: tbl *deftbl[TBLSIZE]; /* user-defined names */
13:
14: struct {
15: char *key;
16: int keyval;
17: } keyword[] ={
18: "sub", SUB,
19: "sup", SUP,
20: ".EN", EOF,
21: "from", FROM,
22: "to", TO,
23: "sum", SUM,
24: "hat", HAT,
25: "vec", VEC,
26: "dyad", DYAD,
27: "dot", DOT,
28: "dotdot", DOTDOT,
29: "bar", BAR,
30: "tilde", TILDE,
31: "under", UNDER,
32: "prod", PROD,
33: "int", INT,
34: "integral", INT,
35: "union", UNION,
36: "inter", INTER,
37: "pile", PILE,
38: "lpile", LPILE,
39: "cpile", CPILE,
40: "rpile", RPILE,
41: "over", OVER,
42: "sqrt", SQRT,
43: "above", ABOVE,
44: "size", SIZE,
45: "font", FONT,
46: "fat", FAT,
47: "roman", ROMAN,
48: "italic", ITALIC,
49: "bold", BOLD,
50: "left", LEFT,
51: "right", RIGHT,
52: "delim", DELIM,
53: "define", DEFINE,
54:
55: #ifdef NEQN /* make ndefine synonym for define, tdefine a no-op */
56:
57: "tdefine", TDEFINE,
58: "ndefine", DEFINE,
59:
60: #else /* tdefine = define, ndefine = no-op */
61:
62: "tdefine", DEFINE,
63: "ndefine", NDEFINE,
64:
65: #endif
66:
67: "gsize", GSIZE,
68: ".gsize", GSIZE,
69: "gfont", GFONT,
70: "include", INCLUDE,
71: "up", UP,
72: "down", DOWN,
73: "fwd", FWD,
74: "back", BACK,
75: "mark", MARK,
76: "lineup", LINEUP,
77: "matrix", MATRIX,
78: "col", COL,
79: "lcol", LCOL,
80: "ccol", CCOL,
81: "rcol", RCOL,
82: 0, 0
83: };
84:
85: struct {
86: char *res;
87: char *resval;
88: } resword[] ={
89: ">=", "\\(>=",
90: "<=", "\\(<=",
91: "==", "\\(==",
92: "!=", "\\(!=",
93: "+-", "\\(+-",
94: "->", "\\(->",
95: "<-", "\\(<-",
96: "inf", "\\(if",
97: "infinity", "\\(if",
98: "partial", "\\(pd",
99: "half", "\\f1\\(12\\fP",
100: "prime", "\\f1\\(fm\\fP",
101: "dollar", "\\f1$\\fP",
102: "nothing", "",
103: "times", "\\(mu",
104: "del", "\\(gr",
105: "grad", "\\(gr",
106: #ifdef NEQN
107: "<<", "<<",
108: ">>", ">>",
109: "approx", "~\b\\d~\\u",
110: "cdot", "\\v'-.5'.\\v'.5'",
111: "...", "...",
112: ",...,", ",...,",
113: #else
114: "<<", "<\\h'-.3m'<",
115: ">>", ">\\h'-.3m'>",
116: "approx", "\\v'-.2m'\\z\\(ap\\v'.25m'\\(ap\\v'-.05m'",
117: "cdot", "\\v'-.3m'.\\v'.3m'",
118: "...", "\\v'-.3m'\\ .\\ .\\ .\\ \\v'.3m'",
119: ",...,", ",\\ .\\ .\\ .\\ ,\\|",
120: #endif
121:
122: "alpha", "\\(*a",
123: "beta", "\\(*b",
124: "gamma", "\\(*g",
125: "GAMMA", "\\(*G",
126: "delta", "\\(*d",
127: "DELTA", "\\(*D",
128: "epsilon", "\\(*e",
129: "EPSILON", "\\f1E\\fP",
130: "omega", "\\(*w",
131: "OMEGA", "\\(*W",
132: "lambda", "\\(*l",
133: "LAMBDA", "\\(*L",
134: "mu", "\\(*m",
135: "nu", "\\(*n",
136: "theta", "\\(*h",
137: "THETA", "\\(*H",
138: "phi", "\\(*f",
139: "PHI", "\\(*F",
140: "pi", "\\(*p",
141: "PI", "\\(*P",
142: "sigma", "\\(*s",
143: "SIGMA", "\\(*S",
144: "xi", "\\(*c",
145: "XI", "\\(*C",
146: "zeta", "\\(*z",
147: "iota", "\\(*i",
148: "eta", "\\(*y",
149: "kappa", "\\(*k",
150: "rho", "\\(*r",
151: "tau", "\\(*t",
152: "omicron", "\\(*o",
153: "upsilon", "\\(*u",
154: "UPSILON", "\\(*U",
155: "psi", "\\(*q",
156: "PSI", "\\(*Q",
157: "chi", "\\(*x",
158: "and", "\\f1and\\fP",
159: "for", "\\f1for\\fP",
160: "if", "\\f1if\\fP",
161: "Re", "\\f1Re\\fP",
162: "Im", "\\f1Im\\fP",
163: "sin", "\\f1sin\\fP",
164: "cos", "\\f1cos\\fP",
165: "tan", "\\f1tan\\fP",
166: "sec", "\\f1sec\\fP",
167: "csc", "\\f1csc\\fP",
168: "arc", "\\f1arc\\fP",
169: "asin", "\\f1asin\\fP",
170: "acos", "\\f1acos\\fP",
171: "atan", "\\f1atan\\fP",
172: "asec", "\\f1asec\\fP",
173: "acsc", "\\f1acsc\\fP",
174: "sinh", "\\f1sinh\\fP",
175: "coth", "\\f1coth\\fP",
176: "tanh", "\\f1tanh\\fP",
177: "cosh", "\\f1cosh\\fP",
178: "lim", "\\f1lim\\fP",
179: "log", "\\f1log\\fP",
180: "max", "\\f1max\\fP",
181: "min", "\\f1min\\fP",
182: "ln", "\\f1ln\\fP",
183: "exp", "\\f1exp\\fP",
184: "det", "\\f1det\\fP",
185: 0, 0
186: };
187:
188: tbl *lookup(tblp, name, defn) /* find name in tbl. if defn non-null, install */
189: tbl **tblp;
190: char *name, *defn;
191: {
192: register tbl *p;
193: register int h;
194: register char *s = name;
195: char *malloc();
196:
197: for (h = 0; *s != '\0'; )
198: h += *s++;
199: h %= TBLSIZE;
200:
201: for (p = tblp[h]; p != NULL; p = p->next)
202: if (strcmp(name, p->name) == 0) { /* found it */
203: if (defn != NULL)
204: p->defn = defn;
205: return(p);
206: }
207: /* didn't find it */
208: if (defn == NULL)
209: return(NULL);
210: p = (tbl *) malloc(sizeof (tbl));
211: if (p == NULL)
212: error(FATAL, "out of space in lookup");
213: p->name = name;
214: p->defn = defn;
215: p->next = tblp[h];
216: tblp[h] = p;
217: return(p);
218: }
219:
220: init_tbl() /* initialize all tables */
221: {
222: int i;
223:
224: for (i = 0; keyword[i].key != NULL; i++)
225: lookup(keytbl, keyword[i].key, keyword[i].keyval);
226: for (i = 0; resword[i].res != NULL; i++)
227: lookup(restbl, resword[i].res, resword[i].resval);
228: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.