![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to proctab.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / prefer / prefawk|
Return to proctab.c CVS log | Up to [Research Unix] / researchv10no / cmd / prefer / prefawk |
1.1 root 1: #include "awk.h"
2: #include "y.tab.h"
3:
4: Cell *nullproc();
5: extern Cell *program();
6: extern Cell *boolop();
7: extern Cell *relop();
8: extern Cell *array();
9: extern Cell *indirect();
10: extern Cell *substr();
11: extern Cell *sub();
12: extern Cell *gsub();
13: extern Cell *sindex();
14: extern Cell *asprintf();
15: extern Cell *arith();
16: extern Cell *incrdecr();
17: extern Cell *cat();
18: extern Cell *pastat();
19: extern Cell *dopa2();
20: extern Cell *matchop();
21: extern Cell *intest();
22: extern Cell *aprintf();
23: extern Cell *print();
24: extern Cell *closefile();
25: extern Cell *delete();
26: extern Cell *split();
27: extern Cell *assign();
28: extern Cell *condexpr();
29: extern Cell *ifstat();
30: extern Cell *whilestat();
31: extern Cell *forstat();
32: extern Cell *dostat();
33: extern Cell *instat();
34: extern Cell *jump();
35: extern Cell *bltin();
36: extern Cell *call();
37: extern Cell *arg();
38: extern Cell *getnf();
39: extern Cell *getline();
40: static uchar *printname[93] = {
41: (uchar *) "FIRSTTOKEN", /* 257 */
42: (uchar *) "FATAL", /* 258 */
43: (uchar *) "PROGRAM", /* 259 */
44: (uchar *) "PASTAT", /* 260 */
45: (uchar *) "PASTAT2", /* 261 */
46: (uchar *) "XBEGIN", /* 262 */
47: (uchar *) "XEND", /* 263 */
48: (uchar *) "NL", /* 264 */
49: (uchar *) "ARRAY", /* 265 */
50: (uchar *) "MATCH", /* 266 */
51: (uchar *) "NOTMATCH", /* 267 */
52: (uchar *) "MATCHOP", /* 268 */
53: (uchar *) "FINAL", /* 269 */
54: (uchar *) "DOT", /* 270 */
55: (uchar *) "ALL", /* 271 */
56: (uchar *) "CCL", /* 272 */
57: (uchar *) "NCCL", /* 273 */
58: (uchar *) "CHAR", /* 274 */
59: (uchar *) "OR", /* 275 */
60: (uchar *) "STAR", /* 276 */
61: (uchar *) "QUEST", /* 277 */
62: (uchar *) "PLUS", /* 278 */
63: (uchar *) "AND", /* 279 */
64: (uchar *) "BOR", /* 280 */
65: (uchar *) "APPEND", /* 281 */
66: (uchar *) "EQ", /* 282 */
67: (uchar *) "GE", /* 283 */
68: (uchar *) "GT", /* 284 */
69: (uchar *) "LE", /* 285 */
70: (uchar *) "LT", /* 286 */
71: (uchar *) "NE", /* 287 */
72: (uchar *) "IN", /* 288 */
73: (uchar *) "ARG", /* 289 */
74: (uchar *) "BLTIN", /* 290 */
75: (uchar *) "BREAK", /* 291 */
76: (uchar *) "CLOSE", /* 292 */
77: (uchar *) "CONTINUE", /* 293 */
78: (uchar *) "DELETE", /* 294 */
79: (uchar *) "DO", /* 295 */
80: (uchar *) "EXIT", /* 296 */
81: (uchar *) "FOR", /* 297 */
82: (uchar *) "FUNC", /* 298 */
83: (uchar *) "SUB", /* 299 */
84: (uchar *) "GSUB", /* 300 */
85: (uchar *) "IF", /* 301 */
86: (uchar *) "INDEX", /* 302 */
87: (uchar *) "LSUBSTR", /* 303 */
88: (uchar *) "MATCHFCN", /* 304 */
89: (uchar *) "NEXT", /* 305 */
90: (uchar *) "ADD", /* 306 */
91: (uchar *) "MINUS", /* 307 */
92: (uchar *) "MULT", /* 308 */
93: (uchar *) "DIVIDE", /* 309 */
94: (uchar *) "MOD", /* 310 */
95: (uchar *) "ASSIGN", /* 311 */
96: (uchar *) "ASGNOP", /* 312 */
97: (uchar *) "ADDEQ", /* 313 */
98: (uchar *) "SUBEQ", /* 314 */
99: (uchar *) "MULTEQ", /* 315 */
100: (uchar *) "DIVEQ", /* 316 */
101: (uchar *) "MODEQ", /* 317 */
102: (uchar *) "POWEQ", /* 318 */
103: (uchar *) "PRINT", /* 319 */
104: (uchar *) "PRINTF", /* 320 */
105: (uchar *) "SPRINTF", /* 321 */
106: (uchar *) "ELSE", /* 322 */
107: (uchar *) "INTEST", /* 323 */
108: (uchar *) "CONDEXPR", /* 324 */
109: (uchar *) "POSTINCR", /* 325 */
110: (uchar *) "PREINCR", /* 326 */
111: (uchar *) "POSTDECR", /* 327 */
112: (uchar *) "PREDECR", /* 328 */
113: (uchar *) "VAR", /* 329 */
114: (uchar *) "IVAR", /* 330 */
115: (uchar *) "VARNF", /* 331 */
116: (uchar *) "CALL", /* 332 */
117: (uchar *) "NUMBER", /* 333 */
118: (uchar *) "STRING", /* 334 */
119: (uchar *) "FIELD", /* 335 */
120: (uchar *) "REGEXPR", /* 336 */
121: (uchar *) "GETLINE", /* 337 */
122: (uchar *) "RETURN", /* 338 */
123: (uchar *) "SPLIT", /* 339 */
124: (uchar *) "SUBSTR", /* 340 */
125: (uchar *) "WHILE", /* 341 */
126: (uchar *) "CAT", /* 342 */
127: (uchar *) "NOT", /* 343 */
128: (uchar *) "UMINUS", /* 344 */
129: (uchar *) "POWER", /* 345 */
130: (uchar *) "DECR", /* 346 */
131: (uchar *) "INCR", /* 347 */
132: (uchar *) "INDIRECT", /* 348 */
133: (uchar *) "LASTTOKEN", /* 349 */
134: };
135:
136:
137: Cell *(*proctab[93])() = {
138: nullproc, /* FIRSTTOKEN */
139: nullproc, /* FATAL */
140: program, /* PROGRAM */
141: pastat, /* PASTAT */
142: dopa2, /* PASTAT2 */
143: nullproc, /* XBEGIN */
144: nullproc, /* XEND */
145: nullproc, /* NL */
146: array, /* ARRAY */
147: matchop, /* MATCH */
148: matchop, /* NOTMATCH */
149: nullproc, /* MATCHOP */
150: nullproc, /* FINAL */
151: nullproc, /* DOT */
152: nullproc, /* ALL */
153: nullproc, /* CCL */
154: nullproc, /* NCCL */
155: nullproc, /* CHAR */
156: nullproc, /* OR */
157: nullproc, /* STAR */
158: nullproc, /* QUEST */
159: nullproc, /* PLUS */
160: boolop, /* AND */
161: boolop, /* BOR */
162: nullproc, /* APPEND */
163: relop, /* EQ */
164: relop, /* GE */
165: relop, /* GT */
166: relop, /* LE */
167: relop, /* LT */
168: relop, /* NE */
169: instat, /* IN */
170: arg, /* ARG */
171: bltin, /* BLTIN */
172: jump, /* BREAK */
173: closefile, /* CLOSE */
174: jump, /* CONTINUE */
175: delete, /* DELETE */
176: dostat, /* DO */
177: jump, /* EXIT */
178: forstat, /* FOR */
179: nullproc, /* FUNC */
180: sub, /* SUB */
181: gsub, /* GSUB */
182: ifstat, /* IF */
183: sindex, /* INDEX */
184: nullproc, /* LSUBSTR */
185: matchop, /* MATCHFCN */
186: jump, /* NEXT */
187: arith, /* ADD */
188: arith, /* MINUS */
189: arith, /* MULT */
190: arith, /* DIVIDE */
191: arith, /* MOD */
192: assign, /* ASSIGN */
193: nullproc, /* ASGNOP */
194: assign, /* ADDEQ */
195: assign, /* SUBEQ */
196: assign, /* MULTEQ */
197: assign, /* DIVEQ */
198: assign, /* MODEQ */
199: assign, /* POWEQ */
200: print, /* PRINT */
201: aprintf, /* PRINTF */
202: asprintf, /* SPRINTF */
203: nullproc, /* ELSE */
204: intest, /* INTEST */
205: condexpr, /* CONDEXPR */
206: incrdecr, /* POSTINCR */
207: incrdecr, /* PREINCR */
208: incrdecr, /* POSTDECR */
209: incrdecr, /* PREDECR */
210: nullproc, /* VAR */
211: nullproc, /* IVAR */
212: getnf, /* VARNF */
213: call, /* CALL */
214: nullproc, /* NUMBER */
215: nullproc, /* STRING */
216: nullproc, /* FIELD */
217: nullproc, /* REGEXPR */
218: getline, /* GETLINE */
219: jump, /* RETURN */
220: split, /* SPLIT */
221: substr, /* SUBSTR */
222: whilestat, /* WHILE */
223: cat, /* CAT */
224: boolop, /* NOT */
225: arith, /* UMINUS */
226: arith, /* POWER */
227: nullproc, /* DECR */
228: nullproc, /* INCR */
229: indirect, /* INDIRECT */
230: nullproc, /* LASTTOKEN */
231: };
232:
233: uchar *tokname(n)
234: {
235: static uchar buf[100];
236:
237: if (n < FIRSTTOKEN || n > LASTTOKEN) {
238: sprintf(buf, "token %d", n);
239: return buf;
240: }
241: return printname[n-257];
242: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.