![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to parse.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / icon / src / tran|
Return to parse.c CVS log | Up to [Research Unix] / researchv10dc / cmd / icon / src / tran |
1.1 root 1: # define CSETLIT 257
2: # define EOFX 258
3: # define IDENT 259
4: # define INTLIT 260
5: # define REALLIT 261
6: # define STRINGLIT 262
7: # define BREAK 263
8: # define BY 264
9: # define CASE 265
10: # define CREATE 266
11: # define DEFAULT 267
12: # define DO 268
13: # define DYNAMIC 269
14: # define ELSE 270
15: # define END 271
16: # define EVERY 272
17: # define FAIL 273
18: # define GLOBAL 274
19: # define IF 275
20: # define INITIAL 276
21: # define LINK 277
22: # define LOCAL 278
23: # define NEXT 279
24: # define NOT 280
25: # define OF 281
26: # define PROCEDURE 282
27: # define RECORD 283
28: # define REPEAT 284
29: # define RETURN 285
30: # define STATIC 286
31: # define SUSPEND 287
32: # define THEN 288
33: # define TO 289
34: # define UNTIL 290
35: # define WHILE 291
36: # define ASSIGN 292
37: # define AT 293
38: # define AUGACT 294
39: # define AUGAND 295
40: # define AUGEQ 296
41: # define AUGEQV 297
42: # define AUGGE 298
43: # define AUGGT 299
44: # define AUGLE 300
45: # define AUGLT 301
46: # define AUGNE 302
47: # define AUGNEQV 303
48: # define AUGSEQ 304
49: # define AUGSGE 305
50: # define AUGSGT 306
51: # define AUGSLE 307
52: # define AUGSLT 308
53: # define AUGSNE 309
54: # define BACKSLASH 310
55: # define BANG 311
56: # define BAR 312
57: # define CARET 313
58: # define CARETASGN 314
59: # define COLON 315
60: # define COMMA 316
61: # define CONCAT 317
62: # define CONCATASGN 318
63: # define CONJUNC 319
64: # define DIFF 320
65: # define DIFFASGN 321
66: # define DOT 322
67: # define EQUIV 323
68: # define INTER 324
69: # define INTERASGN 325
70: # define LBRACE 326
71: # define LBRACK 327
72: # define LCONCAT 328
73: # define LCONCATASGN 329
74: # define LEXEQ 330
75: # define LEXGE 331
76: # define LEXGT 332
77: # define LEXLE 333
78: # define LEXLT 334
79: # define LEXNE 335
80: # define LPAREN 336
81: # define MCOLON 337
82: # define MINUS 338
83: # define MINUSASGN 339
84: # define MOD 340
85: # define MODASGN 341
86: # define NOTEQUIV 342
87: # define NUMEQ 343
88: # define NUMGE 344
89: # define NUMGT 345
90: # define NUMLE 346
91: # define NUMLT 347
92: # define NUMNE 348
93: # define PCOLON 349
94: # define PLUS 350
95: # define PLUSASGN 351
96: # define QMARK 352
97: # define RBRACE 353
98: # define RBRACK 354
99: # define REVASSIGN 355
100: # define REVSWAP 356
101: # define RPAREN 357
102: # define SCANASGN 358
103: # define SEMICOL 359
104: # define SLASH 360
105: # define SLASHASGN 361
106: # define STAR 362
107: # define STARASGN 363
108: # define SWAP 364
109: # define TILDE 365
110: # define UNION 366
111: # define UNIONASGN 367
112:
113: # line 123 "icon.g"
114: #include "itran.h"
115: #include "sym.h"
116: #include "tree.h"
117: #include "../h/keyword.h"
118: #define YYSTYPE nodeptr
119: #define YYMAXDEPTH 500
120: #define yyclearin yychar = -1
121: #define yyerrok yyerrflag = 0
122: extern int yychar;
123: extern short yyerrflag;
124: #ifndef YYMAXDEPTH
125: #define YYMAXDEPTH 150
126: #endif
127: #ifndef YYSTYPE
128: #define YYSTYPE int
129: #endif
130: YYSTYPE yylval, yyval;
131:
132: # line 134 "icon.g"
133: int argcnt;
134: int idflag;
135: int i;
136: int cstack[50]; /* context stack expression lists */
137: int stacktop = 0; /* stack top */
138: nodeptr cswitch();
139: # define YYERRCODE 256
140:
141: # line 443 "icon.g"
142:
143:
144: pushcs(val)
145: int val;
146: {
147: stacktop = stacktop + 1;
148: cstack[stacktop] = val;
149: }
150:
151: popcs()
152: {
153: stacktop = stacktop - 1;
154: }
155:
156: nodeptr cswitch(x,y)
157: nodeptr x, y;
158: {
159: if (cstack[stacktop]) return(CreateNode(y,x));
160: else return(x);
161: }
162: short yyexca[] ={
163: -1, 1,
164: 0, -1,
165: -2, 0,
166: -1, 21,
167: 359, 32,
168: -2, 30,
169: -1, 104,
170: 359, 32,
171: -2, 30,
172: -1, 111,
173: 359, 32,
174: -2, 30,
175: };
176: # define YYNPROD 204
177: # define YYLAST 642
178: short yyact[]={
179:
180: 32, 89, 170, 60, 86, 87, 88, 62, 207, 94,
181: 59, 281, 287, 112, 175, 240, 97, 90, 288, 93,
182: 172, 21, 111, 61, 45, 285, 275, 270, 98, 91,
183: 177, 92, 169, 249, 96, 95, 284, 44, 112, 277,
184: 254, 239, 233, 256, 208, 113, 103, 112, 171, 166,
185: 176, 251, 174, 252, 85, 68, 46, 73, 290, 266,
186: 167, 47, 112, 66, 69, 258, 67, 81, 74, 243,
187: 64, 65, 48, 283, 79, 246, 278, 257, 245, 80,
188: 63, 244, 76, 112, 184, 262, 84, 77, 182, 181,
189: 207, 242, 78, 25, 70, 289, 83, 250, 183, 110,
190: 253, 280, 100, 247, 72, 198, 71, 112, 236, 75,
191: 82, 32, 89, 101, 60, 86, 87, 88, 62, 197,
192: 94, 59, 112, 26, 20, 112, 112, 97, 90, 112,
193: 93, 3, 112, 180, 61, 45, 194, 40, 17, 98,
194: 91, 18, 92, 209, 38, 96, 95, 109, 44, 31,
195: 179, 37, 28, 178, 106, 39, 107, 210, 16, 35,
196: 255, 279, 274, 235, 108, 85, 68, 46, 73, 273,
197: 24, 234, 47, 30, 66, 69, 264, 67, 81, 74,
198: 99, 64, 65, 48, 102, 79, 12, 196, 2, 9,
199: 80, 63, 14, 76, 13, 10, 237, 84, 77, 261,
200: 193, 58, 57, 78, 56, 70, 55, 83, 54, 53,
201: 52, 51, 50, 49, 43, 72, 41, 71, 173, 168,
202: 75, 82, 89, 165, 60, 86, 87, 88, 62, 150,
203: 94, 59, 36, 191, 115, 4, 114, 97, 90, 34,
204: 93, 105, 23, 104, 61, 45, 27, 11, 19, 98,
205: 91, 12, 92, 22, 9, 96, 95, 211, 44, 13,
206: 10, 15, 215, 212, 214, 8, 7, 201, 202, 203,
207: 204, 205, 206, 42, 6, 85, 68, 46, 73, 222,
208: 213, 5, 47, 1, 66, 69, 0, 67, 81, 74,
209: 0, 64, 65, 48, 0, 79, 0, 0, 0, 0,
210: 80, 63, 224, 76, 0, 0, 0, 84, 77, 223,
211: 225, 227, 0, 78, 0, 70, 228, 83, 185, 186,
212: 187, 188, 189, 190, 226, 72, 0, 71, 0, 119,
213: 75, 82, 121, 0, 118, 117, 135, 136, 137, 138,
214: 139, 140, 141, 142, 143, 144, 145, 146, 147, 148,
215: 0, 0, 248, 149, 134, 232, 0, 0, 124, 33,
216: 0, 126, 0, 0, 163, 131, 0, 0, 0, 125,
217: 0, 151, 152, 153, 154, 155, 156, 263, 238, 129,
218: 0, 133, 0, 164, 157, 158, 159, 160, 161, 162,
219: 291, 128, 0, 241, 0, 123, 122, 0, 116, 0,
220: 29, 132, 0, 130, 120, 0, 0, 127, 0, 0,
221: 0, 0, 0, 271, 0, 0, 265, 0, 267, 268,
222: 269, 0, 0, 0, 0, 0, 0, 0, 0, 272,
223: 0, 259, 260, 0, 0, 0, 0, 0, 0, 0,
224: 282, 192, 0, 195, 0, 0, 0, 0, 0, 0,
225: 0, 0, 286, 229, 230, 0, 0, 0, 0, 0,
226: 0, 0, 282, 292, 293, 0, 0, 0, 0, 0,
227: 199, 200, 0, 216, 217, 218, 219, 220, 221, 0,
228: 0, 0, 0, 29, 0, 0, 0, 0, 0, 0,
229: 29, 0, 0, 0, 0, 0, 0, 0, 0, 0,
230: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
231: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
232: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
233: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
234: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
235: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
236: 231, 0, 0, 0, 0, 0, 0, 0, 0, 0,
237: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
238: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
239: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
240: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
241: 0, 0, 0, 0, 0, 0, 0, 0, 0, 195,
242: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
243: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
244: 0, 276 };
245: short yypact[]={
246:
247: -125,-1000, -23,-1000,-1000,-1000,-1000,-1000,-1000,-121,
248: -1000,-235,-1000,-1000, -88,-223,-1000,-1000,-1000,-136,
249: -1000,-145,-157,-146,-1000,-121,-290,-122,-172,-337,
250: -236,-307,-1000,-1000, 40,-1000, 41,-268,-318,-310,
251: -1000,-160,-1000,-238, -35, -35, -35, -35, -35, -35,
252: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-145,
253: -1000,-1000,-145,-1000,-145,-1000,-154,-1000,-1000,-1000,
254: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
255: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
256: -1000,-145,-145,-145,-145,-145,-145,-145,-145,-226,
257: -1000,-292,-1000,-157,-145,-157,-145,-1000,-1000,-1000,
258: -1000,-145, -35, -35, -35, -35, -35, -35, -35, -35,
259: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
260: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
261: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -35,
262: -35,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
263: -1000,-1000,-1000,-1000,-1000, -35,-1000,-1000, -35,-1000,
264: -1000,-1000,-1000, -35,-1000,-1000,-1000,-1000, -35, -35,
265: -35,-145,-311,-1000,-151,-1000,-1000,-1000,-1000,-1000,
266: -1000,-236,-1000,-145,-312,-344,-145,-1000,-1000,-1000,
267: -1000,-197,-212,-187,-190,-193,-236,-156,-157,-324,
268: -226,-174,-308,-306,-1000,-307,-1000,-1000,-1000,-1000,
269: -1000,-1000,-164,-1000,-268,-318,-310,-1000,-1000,-1000,
270: -1000,-314,-272,-1000,-145,-145,-1000,-231,-1000,-1000,
271: -145,-231,-145,-267,-145,-145,-145,-1000,-330,-1000,
272: -1000,-1000,-1000, -35,-1000,-145,-1000,-1000,-1000,-231,
273: -231,-331,-145,-1000,-315,-194,-256,-236,-236,-236,
274: -1000,-1000,-281,-317,-332,-1000,-1000,-1000,-145,-341,
275: -1000,-220,-257,-1000,-1000,-1000,-236,-1000,-256,-145,
276: -145,-1000,-236,-236 };
277: short yypgo[]={
278:
279: 0, 283, 188, 281, 274, 266, 265, 261, 158, 253,
280: 157, 248, 143, 247, 246, 243, 152, 242, 241, 173,
281: 378, 149, 359, 239, 236, 234, 159, 232, 151, 229,
282: 144, 223, 155, 219, 137, 218, 216, 273, 214, 213,
283: 212, 211, 210, 209, 208, 206, 204, 202, 201, 200,
284: 196, 199, 136, 187, 176, 171, 169, 163, 162, 161,
285: 101, 160 };
286: short yyr1[]={
287:
288: 0, 1, 2, 2, 3, 3, 3, 3, 7, 7,
289: 8, 8, 9, 6, 11, 4, 5, 17, 13, 12,
290: 12, 10, 10, 14, 14, 18, 18, 18, 15, 15,
291: 16, 16, 20, 20, 19, 19, 21, 21, 22, 22,
292: 22, 22, 22, 22, 24, 24, 24, 24, 25, 25,
293: 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
294: 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
295: 25, 25, 25, 23, 23, 23, 26, 26, 27, 27,
296: 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
297: 29, 29, 29, 29, 28, 28, 31, 31, 30, 30,
298: 33, 33, 33, 33, 32, 32, 35, 35, 35, 35,
299: 34, 34, 36, 36, 36, 37, 37, 37, 37, 37,
300: 37, 37, 39, 39, 39, 39, 39, 39, 39, 39,
301: 39, 39, 39, 39, 39, 39, 39, 39, 39, 39,
302: 39, 38, 38, 38, 38, 38, 38, 38, 38, 38,
303: 38, 38, 38, 38, 49, 51, 38, 38, 53, 54,
304: 38, 38, 38, 55, 56, 38, 57, 58, 38, 38,
305: 38, 38, 45, 45, 46, 46, 47, 47, 48, 42,
306: 42, 42, 43, 43, 44, 59, 59, 60, 60, 50,
307: 50, 40, 40, 40, 40, 41, 61, 61, 61, 52,
308: 52, 1, 5, 19 };
309: short yyr2[]={
310:
311: 0, 2, 0, 2, 1, 1, 1, 2, 1, 3,
312: 1, 1, 0, 3, 0, 6, 6, 0, 6, 0,
313: 1, 1, 3, 0, 4, 1, 1, 1, 0, 3,
314: 0, 3, 0, 1, 1, 3, 1, 3, 1, 3,
315: 3, 3, 3, 3, 1, 1, 1, 1, 1, 1,
316: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
317: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
318: 1, 1, 1, 1, 3, 5, 1, 3, 1, 3,
319: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
320: 1, 1, 1, 1, 1, 3, 1, 1, 1, 3,
321: 1, 1, 1, 1, 1, 3, 1, 1, 1, 1,
322: 1, 3, 1, 3, 3, 1, 2, 2, 2, 2,
323: 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,
324: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
325: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
326: 2, 1, 1, 2, 0, 0, 5, 3, 0, 0,
327: 5, 4, 3, 0, 0, 6, 0, 0, 6, 3,
328: 2, 2, 2, 4, 2, 4, 2, 4, 2, 1,
329: 2, 2, 4, 6, 6, 1, 3, 3, 3, 1,
330: 3, 1, 1, 1, 1, 6, 1, 1, 1, 1,
331: 3, 3, 4, 1 };
332: short yychk[]={
333:
334: -1000, -1, -2, 256, 258, -3, -4, -5, -6, 277,
335: 283, -13, 274, 282, -2, -7, -8, 259, 262, -11,
336: 359, 256, -9, -17, 258, 316, 259, -14, -16, -20,
337: -19, -21, 256, -22, -23, -26, -27, -28, -30, -32,
338: -34, -36, -37, -38, 293, 280, 312, 317, 328, -39,
339: -40, -41, -42, -43, -44, -45, -46, -47, -48, 266,
340: 259, 279, 263, 336, 326, 327, 319, 322, 311, 320,
341: 350, 362, 360, 313, 324, 365, 338, 343, 348, 330,
342: 335, 323, 366, 352, 342, 310, 260, 261, 262, 257,
343: 273, 285, 287, 275, 265, 291, 290, 272, 284, -10,
344: 259, 259, -8, 336, -15, -18, 276, 278, 286, 269,
345: 271, 359, 319, 352, -24, -25, 358, 295, 294, 289,
346: 364, 292, 356, 355, 318, 329, 321, 367, 351, 339,
347: 363, 325, 361, 341, 314, 296, 297, 298, 299, 300,
348: 301, 302, 303, 304, 305, 306, 307, 308, 309, 312,
349: -29, 330, 331, 332, 333, 334, 335, 343, 344, 345,
350: 346, 347, 348, 323, 342, -31, 317, 328, -33, 350,
351: 320, 366, 338, -35, 362, 324, 360, 340, 313, 310,
352: 293, 327, 326, 336, 322, -37, -37, -37, -37, -37,
353: -37, -19, -20, -49, -52, -20, -53, 273, 259, -20,
354: -20, -19, -19, -19, -19, -19, -19, 316, 336, -12,
355: -10, -16, -10, -19, -16, -21, -22, -22, -22, -22,
356: -22, -22, -26, -26, -28, -30, -32, -34, -34, -37,
357: -37, -20, -19, 353, -55, -57, 259, -50, -20, 353,
358: 359, -50, 288, 281, 268, 268, 268, 259, -12, 357,
359: 271, 359, 359, 264, 354, -61, 315, 349, 337, -50,
360: -50, -51, 316, -52, -54, -19, 326, -19, -19, -19,
361: 357, -26, -19, -56, -58, 357, -20, 354, 270, -59,
362: -60, 267, -19, 354, 353, 357, -19, 353, 359, 315,
363: 315, -60, -19, -19 };
364: short yydef[]={
365:
366: 2, -2, 0, 2, 1, 3, 4, 5, 6, 0,
367: 14, 0, 12, 17, 0, 7, 8, 10, 11, 0,
368: 23, -2, 0, 0, 201, 0, 0, 28, 0, 0,
369: 33, 34, 203, 36, 38, 73, 76, 78, 94, 98,
370: 104, 110, 112, 115, 0, 0, 0, 0, 0, 0,
371: 141, 142, 143, 144, 145, 146, 147, 148, 149, 0,
372: 151, 152, 32, 154, 32, 158, 0, 122, 123, 124,
373: 125, 126, 127, 128, 129, 130, 131, 132, 133, 134,
374: 135, 136, 137, 138, 139, 140, 191, 192, 193, 194,
375: 179, 32, 32, 0, 0, 0, 0, 0, 0, 13,
376: 21, 0, 9, 19, -2, 0, 0, 25, 26, 27,
377: 202, -2, 0, 0, 0, 0, 0, 0, 0, 0,
378: 44, 45, 46, 47, 48, 49, 50, 51, 52, 53,
379: 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
380: 64, 65, 66, 67, 68, 69, 70, 71, 72, 0,
381: 0, 80, 81, 82, 83, 84, 85, 86, 87, 88,
382: 89, 90, 91, 92, 93, 0, 96, 97, 0, 100,
383: 101, 102, 103, 0, 106, 107, 108, 109, 0, 0,
384: 0, 32, 163, 166, 0, 116, 117, 118, 119, 120,
385: 121, 150, 153, 32, 0, 199, 32, 170, 171, 180,
386: 181, 0, 0, 172, 174, 176, 178, 0, 19, 0,
387: 20, 0, 0, 0, 31, 35, 37, 39, 40, 41,
388: 42, 43, 74, 77, 79, 95, 99, 105, 111, 113,
389: 114, 0, 33, 162, 32, 32, 169, 155, 189, 157,
390: 32, 159, 0, 0, 0, 0, 0, 22, 0, 15,
391: 16, 24, 29, 0, 161, 0, 196, 197, 198, 164,
392: 167, 0, 32, 200, 0, 182, 0, 173, 175, 177,
393: 18, 75, 0, 0, 0, 156, 190, 160, 0, 0,
394: 185, 0, 0, 195, 165, 168, 183, 184, 0, 0,
395: 0, 186, 187, 188 };
396: #ifndef lint
397: static char yaccpar_sccsid[] = "@(#)yaccpar 4.1 (Berkeley) 2/11/83";
398: #endif not lint
399:
400: #
401: # define YYFLAG -1000
402: # define YYERROR goto yyerrlab
403: # define YYACCEPT return(0)
404: # define YYABORT return(1)
405:
406: /* parser for yacc output */
407:
408: #ifdef YYDebug
409: int yydebug = 0; /* 1 for debugging */
410: #endif
411: YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */
412: int yychar = -1; /* current input token number */
413: int yynerrs = 0; /* number of errors */
414: short yyerrflag = 0; /* error recovery flag */
415:
416: yyparse() {
417:
418: short yys[YYMAXDEPTH];
419: short yyj, yym;
420: register YYSTYPE *yypvt;
421: register short yystate, *yyps, yyn;
422: register YYSTYPE *yypv;
423: register short *yyxi;
424:
425: yystate = 0;
426: yychar = -1;
427: yynerrs = 0;
428: yyerrflag = 0;
429: yyps= &yys[-1];
430: yypv= &yyv[-1];
431:
432: yystack: /* put a state and value onto the stack */
433:
434: #ifdef YYDebug
435: if( yydebug ) printf( "state %d, char 0%o\n", yystate, yychar );
436: #endif
437: if( ++yyps> &yys[YYMAXDEPTH] ) { syserr( "yacc stack overflow" ); return(1); }
438: *yyps = yystate;
439: ++yypv;
440: *yypv = yyval;
441:
442: yynewstate:
443:
444: yyn = yypact[yystate];
445:
446: if( yyn<= YYFLAG ) goto yydefault; /* simple state */
447:
448: if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0;
449: if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault;
450:
451: if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */
452: yychar = -1;
453: yyval = yylval;
454: yystate = yyn;
455: if( yyerrflag > 0 ) --yyerrflag;
456: goto yystack;
457: }
458:
459: yydefault:
460: /* default state action */
461:
462: if( (yyn=yydef[yystate]) == -2 ) {
463: if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0;
464: /* look through exception table */
465:
466: for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */
467:
468: while( *(yyxi+=2) >= 0 ){
469: if( *yyxi == yychar ) break;
470: }
471: if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */
472: }
473:
474: if( yyn == 0 ){ /* error */
475: /* error ... attempt to resume parsing */
476:
477: switch( yyerrflag ){
478:
479: case 0: /* brand new error */
480:
481: yyerror( yychar, yylval, yystate );
482: yyerrlab:
483: ++yynerrs;
484:
485: case 1:
486: case 2: /* incompletely recovered error ... try again */
487:
488: yyerrflag = 3;
489:
490: /* find a state where "error" is a legal shift action */
491:
492: while ( yyps >= yys ) {
493: yyn = yypact[*yyps] + YYERRCODE;
494: if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){
495: yystate = yyact[yyn]; /* simulate a shift of "error" */
496: goto yystack;
497: }
498: yyn = yypact[*yyps];
499:
500: /* the current yyps has no shift onn "error", pop stack */
501:
502: #ifdef YYDebug
503: if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] );
504: #endif
505: --yyps;
506: --yypv;
507: }
508:
509: /* there is no state on the stack with an error shift ... abort */
510:
511: yyabort:
512: return(1);
513:
514:
515: case 3: /* no shift yet; clobber input char */
516:
517: #ifdef YYDebug
518: if( yydebug ) printf( "error recovery discards char %d\n", yychar );
519: #endif
520:
521: if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */
522: yychar = -1;
523: goto yynewstate; /* try again in the same state */
524:
525: }
526:
527: }
528:
529: /* reduction by production yyn */
530:
531: #ifdef YYDebug
532: if( yydebug ) printf("reduce %d\n",yyn);
533: #endif
534: yyps -= yyr2[yyn];
535: yypvt = yypv;
536: yypv -= yyr2[yyn];
537: yyval = yypv[1];
538: yym=yyn;
539: /* consult goto table to find next state */
540: yyn = yyr1[yyn];
541: yyj = yypgo[yyn] + *yyps + 1;
542: if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]];
543: switch(yym){
544:
545: case 1:
546: # line 142 "icon.g"
547: {gout(globfile);} break;
548: case 4:
549: # line 147 "icon.g"
550: {
551: if (!nocode)
552: rout(globfile, Str0(yypvt[-0]));
553: nocode = 0;
554: loc_init();
555: } break;
556: case 5:
557: # line 153 "icon.g"
558: {
559: if (!nocode)
560: codegen(yypvt[-0]);
561: nocode = 0;
562: treeinit();
563: loc_init();
564: } break;
565: case 10:
566: # line 166 "icon.g"
567: {addlfile(Str0(yypvt[-0]));} break;
568: case 11:
569: # line 167 "icon.g"
570: {addlfile(Str0(yypvt[-0]));} break;
571: case 12:
572: # line 169 "icon.g"
573: {idflag = F_Global;} break;
574: case 14:
575: # line 171 "icon.g"
576: {idflag = F_Argument;} break;
577: case 15:
578: # line 171 "icon.g"
579: {
580: install(Str0(yypvt[-3]),F_Record|F_Global,(int)yypvt[-1]);
581: yyval = yypvt[-3];
582: } break;
583: case 16:
584: # line 176 "icon.g"
585: {
586: yyval = (nodeptr)ProcNode(yypvt[-5],yypvt[-2],yypvt[-1],yypvt[-0]);
587: } break;
588: case 17:
589: # line 180 "icon.g"
590: {idflag = F_Argument;} break;
591: case 18:
592: # line 180 "icon.g"
593: {
594: yyval = yypvt[-3];
595: install(Str0(yypvt[-3]),F_Proc|F_Global,(int)yypvt[-1]);
596: } break;
597: case 19:
598: # line 185 "icon.g"
599: {yyval = (int)0;} break;
600: case 20:
601: # line 186 "icon.g"
602: {yyval = (nodeptr)yypvt[-0];} break;
603: case 21:
604: # line 189 "icon.g"
605: {
606: install(Str0(yypvt[-0]),idflag,0);
607: yyval = (nodeptr)1;
608: } break;
609: case 22:
610: # line 193 "icon.g"
611: {
612: install(Str0(yypvt[-0]),idflag,0);
613: yyval = (nodeptr)((int)yypvt[-2] + 1);
614: } break;
615: case 25:
616: # line 201 "icon.g"
617: {idflag = F_Dynamic;} break;
618: case 26:
619: # line 202 "icon.g"
620: {idflag = F_Static;} break;
621: case 27:
622: # line 203 "icon.g"
623: {idflag = F_Dynamic;} break;
624: case 28:
625: # line 205 "icon.g"
626: {yyval = EmptyNode;} break;
627: case 29:
628: # line 206 "icon.g"
629: {yyval = yypvt[-1];} break;
630: case 30:
631: # line 208 "icon.g"
632: {yyval = EmptyNode;} break;
633: case 31:
634: # line 209 "icon.g"
635: {yyval = SListNode(yypvt[-1], yypvt[-2], yypvt[-0]);} break;
636: case 32:
637: # line 211 "icon.g"
638: {yyval = EmptyNode;} break;
639: case 35:
640: # line 215 "icon.g"
641: {yyval = ConjNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
642: case 37:
643: # line 218 "icon.g"
644: {yyval = ScanNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
645: case 39:
646: # line 221 "icon.g"
647: {binop: yyval = BinopNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
648: case 40:
649: # line 222 "icon.g"
650: {yyval = AugopNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
651: case 41:
652: # line 223 "icon.g"
653: {yyval = ScanNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
654: case 42:
655: # line 224 "icon.g"
656: {yyval = ConjNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
657: case 43:
658: # line 225 "icon.g"
659: {yyval = ActivNode(yypvt[-1],yypvt[-0],yypvt[-2]);} break;
660: case 74:
661: # line 259 "icon.g"
662: {yyval = ToNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
663: case 75:
664: # line 260 "icon.g"
665: {yyval = ToByNode(yypvt[-3],yypvt[-4],yypvt[-2],yypvt[-0]);} break;
666: case 77:
667: # line 263 "icon.g"
668: {yyval = AltNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
669: case 79:
670: # line 266 "icon.g"
671: {goto binop;} break;
672: case 95:
673: # line 284 "icon.g"
674: {goto binop;} break;
675: case 99:
676: # line 290 "icon.g"
677: {goto binop;} break;
678: case 105:
679: # line 298 "icon.g"
680: {goto binop;} break;
681: case 111:
682: # line 306 "icon.g"
683: {goto binop;} break;
684: case 113:
685: # line 309 "icon.g"
686: {yyval = LimitNode(yypvt[-2],yypvt[-0]);} break;
687: case 114:
688: # line 310 "icon.g"
689: {yyval = ActivNode(yypvt[-1], yypvt[-0], yypvt[-2]);} break;
690: case 116:
691: # line 313 "icon.g"
692: {yyval = ActivNode(yypvt[-1], yypvt[-0], EmptyNode);} break;
693: case 117:
694: # line 314 "icon.g"
695: {yyval = NotNode(yypvt[-0]);} break;
696: case 118:
697: # line 315 "icon.g"
698: {yyval = BarNode(yypvt[-0]);} break;
699: case 119:
700: # line 316 "icon.g"
701: {yyval = BarNode(yypvt[-0]);} break;
702: case 120:
703: # line 317 "icon.g"
704: {yyval = BarNode(yypvt[-0]);} break;
705: case 121:
706: # line 318 "icon.g"
707: {yyval = UnopNode(yypvt[-1],yypvt[-0]);} break;
708: case 150:
709: # line 349 "icon.g"
710: {yyval = CreateNode(yypvt[-1],yypvt[-0]);} break;
711: case 151:
712: # line 350 "icon.g"
713: {Val0(yypvt[-0]) = putloc(Str0(yypvt[-0]),0);} break;
714: case 152:
715: # line 351 "icon.g"
716: {yyval = NextNode(yypvt[-0]);} break;
717: case 153:
718: # line 352 "icon.g"
719: {yyval = BreakNode(yypvt[-1],yypvt[-0]);} break;
720: case 154:
721: # line 353 "icon.g"
722: {
723: pushcs(0);
724: } break;
725: case 155:
726: # line 355 "icon.g"
727: {
728: popcs();
729: } break;
730: case 156:
731: # line 357 "icon.g"
732: {
733: if ((yypvt[-2])->n_type == N_Elist)
734: yyval = InvokNode(yypvt[-4],EmptyNode,yypvt[-2]);
735: else
736: yyval = yypvt[-2]; } break;
737: case 157:
738: # line 362 "icon.g"
739: {yyval = yypvt[-1];} break;
740: case 158:
741: # line 363 "icon.g"
742: {
743: pushcs(0);
744: } break;
745: case 159:
746: # line 365 "icon.g"
747: {
748: popcs();
749: } break;
750: case 160:
751: # line 367 "icon.g"
752: {
753: yyval = ListNode(yypvt[-4],yypvt[-2]);} break;
754: case 161:
755: # line 369 "icon.g"
756: {yyval = BinopNode(yypvt[-2],yypvt[-3],yypvt[-1]);} break;
757: case 162:
758: # line 370 "icon.g"
759: {yyval = InvokNode(yypvt[-1],yypvt[-2],ListNode(yypvt[-1],EmptyNode));} break;
760: case 163:
761: # line 371 "icon.g"
762: {
763: pushcs(1);
764: } break;
765: case 164:
766: # line 373 "icon.g"
767: {
768: popcs();
769: } break;
770: case 165:
771: # line 375 "icon.g"
772: {
773: yyval = InvokNode(yypvt[-4],yypvt[-5],ListNode(yypvt[-4],yypvt[-2]));
774: } break;
775: case 166:
776: # line 378 "icon.g"
777: {
778: pushcs(0);
779: } break;
780: case 167:
781: # line 380 "icon.g"
782: {
783: popcs();
784: } break;
785: case 168:
786: # line 382 "icon.g"
787: {
788: yyval = InvokNode(yypvt[-4],yypvt[-5],yypvt[-2]);
789: } break;
790: case 169:
791: # line 385 "icon.g"
792: {yyval = FieldNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
793: case 170:
794: # line 386 "icon.g"
795: {yyval = KeyNode(yypvt[-1], K_FAIL);} break;
796: case 171:
797: # line 387 "icon.g"
798: {
799: if ((i = klocate(Str0(yypvt[-0]))) == NULL)
800: err("invalid keyword",Str0(yypvt[-0]));
801: yyval = KeyNode(yypvt[-1], i);
802: } break;
803: case 172:
804: # line 393 "icon.g"
805: {yyval = LoopNode(yypvt[-1],yypvt[-0],EmptyNode);} break;
806: case 173:
807: # line 394 "icon.g"
808: {yyval = LoopNode(yypvt[-3],yypvt[-2],yypvt[-0]);} break;
809: case 174:
810: # line 396 "icon.g"
811: {yyval = LoopNode(yypvt[-1],yypvt[-0],EmptyNode);} break;
812: case 175:
813: # line 397 "icon.g"
814: {yyval = LoopNode(yypvt[-3],yypvt[-2],yypvt[-0]);} break;
815: case 176:
816: # line 399 "icon.g"
817: {yyval = LoopNode(yypvt[-1],yypvt[-0],EmptyNode);} break;
818: case 177:
819: # line 400 "icon.g"
820: {yyval = LoopNode(yypvt[-3],yypvt[-2],yypvt[-0]);} break;
821: case 178:
822: # line 402 "icon.g"
823: {yyval = LoopNode(yypvt[-1],yypvt[-0],EmptyNode);} break;
824: case 179:
825: # line 404 "icon.g"
826: {yyval = RetNode(yypvt[-0],EmptyNode);} break;
827: case 180:
828: # line 405 "icon.g"
829: {yyval = RetNode(yypvt[-1],yypvt[-0]);} break;
830: case 181:
831: # line 406 "icon.g"
832: {yyval = SuspNode(yypvt[-1],yypvt[-0]);} break;
833: case 182:
834: # line 408 "icon.g"
835: {yyval = IfNode(yypvt[-3],yypvt[-2],yypvt[-0],EmptyNode);} break;
836: case 183:
837: # line 409 "icon.g"
838: {yyval = IfNode(yypvt[-5],yypvt[-4],yypvt[-2],yypvt[-0]);} break;
839: case 184:
840: # line 411 "icon.g"
841: {yyval = CaseNode(yypvt[-5],yypvt[-4],yypvt[-1]);} break;
842: case 186:
843: # line 414 "icon.g"
844: {yyval = ClistNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
845: case 187:
846: # line 416 "icon.g"
847: {yyval = CclsNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
848: case 188:
849: # line 417 "icon.g"
850: {yyval = CclsNode(yypvt[-1],yypvt[-2],yypvt[-0]);} break;
851: case 189:
852: # line 419 "icon.g"
853: {
854: yyval = cswitch(yypvt[-0],yypvt[-0]);
855: } break;
856: case 190:
857: # line 422 "icon.g"
858: {
859: yyval = ElistNode(yypvt[-1],yypvt[-2],cswitch(yypvt[-0],yypvt[-1]));
860: } break;
861: case 191:
862: # line 426 "icon.g"
863: {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_IntLit,0);} break;
864: case 192:
865: # line 427 "icon.g"
866: {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_RealLit,0);} break;
867: case 193:
868: # line 428 "icon.g"
869: {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_StrLit,Val1(yypvt[-0]));} break;
870: case 194:
871: # line 429 "icon.g"
872: {Val0(yypvt[-0]) = putlit(Str0(yypvt[-0]),F_CsetLit,Val1(yypvt[-0]));} break;
873: case 195:
874: # line 431 "icon.g"
875: {yyval = (nodeptr)SectNode(yypvt[-2],yypvt[-5],yypvt[-3],yypvt[-1]);} break;
876: case 200:
877: # line 438 "icon.g"
878: {yyval = SListNode(yypvt[-1], yypvt[-2], yypvt[-0]);} break;
879: }
880: goto yystack; /* stack new state and value */
881:
882: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.