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