![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to y.tab.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / pico|
Return to y.tab.c CVS log | Up to [Research Unix] / researchv10no / cmd / pico |
1.1 root 1:
2: # line 2 "x.y"
3: #include <stdio.h>
4: #include "pico.h"
5: #include "pico2.h"
6:
7: #define usedboth usedold=usednew=1
8:
9: #define YYDEBUG 1
10:
11: extern short CURSCRATCH, CUROLD;
12: extern char *progr;
13: extern struct SRC src[MANY];
14: extern int nsrc, nrparams, LO, linenumber, whichdevice;
15: extern char usednew, usedold, faster, frameb, metheus;
16: extern char isglobal, seetree, optim, touchedcmap;
17: extern FILE *INPUT;
18:
19: # line 19 "x.y"
20: typedef union {
21: Node *node;
22: Symbol *sym;
23: int resu;
24: struct SNode *snode;
25: } YYSTYPE;
26: # define VARIABLE 257
27: # define AUTO 258
28: # define ARRAY 259
29: # define FCT 260
30: # define BLTN 261
31: # define NAME 262
32: # define VAL 263
33: # define STRING 264
34: # define A 265
35: # define WINDOW 266
36: # define C 267
37: # define DEF 268
38: # define DEL 269
39: # define SCOM 270
40: # define ECOM 271
41: # define UP 272
42: # define DOWN 273
43: # define RUN 274
44: # define F 275
45: # define H 276
46: # define Q 277
47: # define R 278
48: # define SET 279
49: # define SETF 280
50: # define GET 281
51: # define W 282
52: # define PCONST 283
53: # define RETURN 284
54: # define OPEN 285
55: # define CLOSE 286
56: # define DECL 287
57: # define INT 288
58: # define GLOBAL 289
59: # define X 290
60: # define Y 291
61: # define I 292
62: # define OLD 293
63: # define TMP 294
64: # define CMAP 295
65: # define FOR 296
66: # define DO 297
67: # define WHILE 298
68: # define JUMP 299
69: # define IF 300
70: # define ELSE 301
71: # define COLOR 302
72: # define NOCOLOR 303
73: # define ZAP 304
74: # define FASTER 305
75: # define SLOWER 306
76: # define HELP 307
77: # define FRAMEBUFFER 308
78: # define METHEUS 309
79: # define BLIND 310
80: # define SEETREE 311
81: # define OPTIM 312
82: # define ASSIGN 313
83: # define OPER 314
84: # define OROR 315
85: # define ANDAND 316
86: # define OR 317
87: # define AND 318
88: # define EQ 319
89: # define NE 320
90: # define GT 321
91: # define GE 322
92: # define LT 323
93: # define LE 324
94: # define LSH 325
95: # define RSH 326
96: # define POST 327
97: # define UNARYMINUS 328
98: # define NOT 329
99: # define RCHAN 330
100: # define GCHAN 331
101: # define BCHAN 332
102: # define BW 333
103: # define RGB 334
104: # define POW 335
105: #define yyclearin yychar = -1
106: #define yyerrok yyerrflag = 0
107: extern int yychar;
108: extern short yyerrflag;
109: #ifndef YYMAXDEPTH
110: #define YYMAXDEPTH 150
111: #endif
112: YYSTYPE yylval, yyval;
113: # define YYERRCODE 256
114:
115: # line 316 "x.y"
116:
117: short yyexca[] ={
118: -1, 1,
119: 0, -1,
120: -2, 0,
121: -1, 108,
122: 58, 79,
123: -2, 135,
124: -1, 109,
125: 58, 80,
126: -2, 136,
127: -1, 112,
128: 58, 83,
129: -2, 137,
130: -1, 113,
131: 58, 84,
132: -2, 125,
133: -1, 114,
134: 58, 67,
135: -2, 131,
136: -1, 115,
137: 58, 68,
138: -2, 132,
139: -1, 116,
140: 58, 69,
141: -2, 133,
142: -1, 134,
143: 286, 50,
144: -2, 55,
145: };
146: # define YYNPROD 180
147: # define YYLAST 1448
148: short yyact[]={
149:
150: 62, 66, 178, 270, 176, 269, 138, 137, 338, 174,
151: 172, 265, 173, 264, 175, 263, 262, 62, 163, 176,
152: 136, 92, 63, 64, 174, 172, 238, 173, 176, 175,
153: 171, 140, 139, 174, 104, 266, 104, 176, 175, 156,
154: 104, 214, 174, 172, 213, 173, 212, 175, 333, 334,
155: 335, 332, 331, 221, 222, 223, 220, 219, 119, 73,
156: 133, 177, 320, 207, 152, 232, 199, 200, 201, 130,
157: 198, 102, 97, 39, 96, 301, 7, 21, 303, 23,
158: 8, 41, 42, 82, 302, 3, 9, 11, 6, 5,
159: 19, 20, 10, 22, 68, 71, 72, 69, 70, 67,
160: 330, 74, 39, 329, 39, 230, 118, 166, 39, 328,
161: 135, 327, 326, 17, 16, 141, 12, 13, 18, 210,
162: 325, 104, 14, 15, 209, 324, 284, 75, 76, 77,
163: 62, 282, 62, 39, 123, 215, 104, 283, 260, 127,
164: 281, 82, 280, 68, 71, 72, 69, 70, 67, 151,
165: 74, 279, 75, 76, 77, 146, 278, 202, 143, 274,
166: 273, 148, 64, 339, 236, 176, 25, 104, 107, 272,
167: 174, 172, 27, 173, 167, 175, 75, 76, 77, 150,
168: 149, 164, 268, 62, 271, 124, 234, 58, 154, 39,
169: 101, 169, 193, 100, 99, 98, 84, 267, 89, 208,
170: 147, 78, 24, 103, 39, 106, 203, 28, 165, 26,
171: 316, 289, 290, 288, 275, 293, 142, 162, 161, 145,
172: 128, 109, 112, 113, 110, 111, 108, 143, 74, 120,
173: 153, 144, 27, 117, 211, 39, 104, 235, 109, 112,
174: 113, 110, 111, 108, 206, 74, 40, 30, 36, 38,
175: 231, 90, 2, 52, 114, 115, 116, 61, 60, 37,
176: 33, 35, 44, 105, 43, 36, 38, 28, 233, 26,
177: 52, 114, 115, 116, 61, 60, 37, 33, 35, 44,
178: 105, 43, 186, 185, 187, 188, 183, 184, 179, 180,
179: 181, 182, 189, 190, 55, 56, 57, 53, 54, 309,
180: 310, 81, 178, 1, 39, 4, 291, 189, 190, 86,
181: 168, 55, 56, 57, 53, 54, 191, 178, 48, 306,
182: 194, 195, 196, 34, 32, 197, 178, 132, 208, 121,
183: 204, 205, 300, 134, 0, 178, 0, 217, 218, 62,
184: 0, 0, 104, 123, 0, 228, 305, 0, 127, 307,
185: 308, 50, 51, 59, 41, 42, 49, 125, 126, 81,
186: 0, 340, 0, 0, 239, 240, 241, 242, 243, 244,
187: 245, 246, 247, 248, 249, 250, 251, 252, 253, 254,
188: 255, 256, 257, 258, 45, 46, 47, 61, 60, 61,
189: 60, 176, 0, 0, 124, 337, 174, 172, 0, 173,
190: 0, 175, 0, 0, 50, 51, 59, 41, 42, 49,
191: 39, 0, 341, 0, 0, 0, 0, 171, 0, 0,
192: 0, 0, 0, 129, 55, 56, 57, 53, 54, 128,
193: 292, 36, 38, 0, 0, 0, 52, 45, 46, 47,
194: 61, 60, 37, 33, 35, 44, 0, 43, 177, 179,
195: 180, 181, 182, 189, 190, 296, 297, 298, 299, 0,
196: 0, 0, 176, 178, 0, 122, 0, 174, 172, 29,
197: 173, 0, 175, 0, 319, 0, 0, 55, 56, 57,
198: 53, 54, 0, 0, 321, 176, 322, 323, 171, 0,
199: 174, 172, 0, 173, 0, 175, 0, 0, 29, 62,
200: 29, 0, 0, 0, 29, 0, 294, 0, 82, 0,
201: 0, 171, 176, 0, 336, 0, 277, 174, 172, 177,
202: 173, 0, 175, 0, 0, 0, 0, 0, 0, 29,
203: 0, 0, 0, 0, 0, 0, 0, 0, 171, 0,
204: 0, 0, 177, 0, 176, 0, 0, 0, 276, 174,
205: 172, 0, 173, 0, 175, 0, 0, 0, 0, 0,
206: 50, 51, 59, 41, 42, 49, 125, 126, 0, 177,
207: 171, 0, 176, 0, 0, 0, 0, 174, 172, 261,
208: 173, 0, 175, 0, 0, 29, 0, 0, 0, 0,
209: 0, 0, 0, 45, 46, 47, 61, 60, 171, 176,
210: 29, 177, 0, 259, 174, 172, 0, 173, 0, 175,
211: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
212: 0, 0, 0, 0, 0, 171, 0, 0, 0, 177,
213: 0, 29, 129, 55, 56, 57, 53, 54, 176, 0,
214: 0, 0, 0, 174, 172, 0, 173, 0, 175, 0,
215: 0, 0, 0, 0, 0, 0, 177, 0, 0, 0,
216: 237, 0, 0, 0, 171, 0, 0, 0, 0, 186,
217: 185, 187, 188, 183, 184, 179, 180, 181, 182, 189,
218: 190, 0, 176, 0, 0, 0, 0, 174, 172, 178,
219: 173, 0, 175, 0, 0, 177, 0, 0, 0, 0,
220: 29, 0, 0, 0, 170, 176, 0, 0, 171, 0,
221: 174, 172, 0, 173, 0, 175, 0, 0, 0, 0,
222: 68, 71, 72, 69, 70, 67, 81, 74, 0, 0,
223: 0, 171, 95, 0, 0, 0, 0, 0, 0, 177,
224: 186, 185, 187, 188, 183, 184, 179, 180, 181, 182,
225: 189, 190, 0, 75, 76, 77, 61, 60, 0, 0,
226: 178, 0, 177, 186, 185, 187, 188, 183, 184, 179,
227: 180, 181, 182, 189, 190, 0, 131, 0, 0, 176,
228: 31, 0, 0, 178, 174, 172, 0, 173, 0, 175,
229: 186, 185, 187, 188, 183, 184, 179, 180, 181, 182,
230: 189, 190, 0, 0, 0, 0, 29, 82, 176, 31,
231: 178, 31, 0, 174, 172, 31, 173, 62, 175, 0,
232: 0, 0, 186, 185, 187, 188, 183, 184, 179, 180,
233: 181, 182, 189, 190, 0, 0, 177, 0, 176, 0,
234: 31, 0, 178, 174, 172, 0, 173, 0, 175, 0,
235: 186, 185, 187, 188, 183, 184, 179, 180, 181, 182,
236: 189, 190, 0, 176, 0, 177, 0, 0, 174, 172,
237: 178, 173, 0, 175, 0, 0, 0, 186, 185, 187,
238: 188, 183, 184, 179, 180, 181, 182, 189, 190, 0,
239: 0, 0, 0, 176, 0, 177, 31, 178, 174, 172,
240: 0, 173, 0, 175, 0, 0, 0, 0, 0, 62,
241: 0, 31, 0, 0, 0, 0, 186, 185, 187, 188,
242: 183, 184, 179, 180, 181, 182, 189, 190, 0, 176,
243: 0, 0, 0, 0, 174, 172, 178, 173, 0, 175,
244: 0, 0, 31, 0, 68, 71, 72, 69, 70, 67,
245: 177, 74, 0, 0, 0, 0, 0, 0, 0, 192,
246: 186, 185, 187, 188, 183, 184, 179, 180, 181, 182,
247: 189, 190, 0, 0, 0, 0, 0, 75, 76, 77,
248: 178, 0, 0, 186, 185, 187, 188, 183, 184, 179,
249: 180, 181, 182, 189, 190, 0, 0, 0, 0, 0,
250: 0, 0, 0, 178, 0, 0, 0, 0, 0, 0,
251: 0, 31, 0, 0, 0, 0, 0, 0, 0, 68,
252: 71, 72, 69, 70, 67, 81, 74, 0, 0, 0,
253: 0, 0, 0, 0, 0, 0, 0, 0, 68, 71,
254: 72, 69, 70, 67, 85, 74, 304, 304, 0, 0,
255: 304, 304, 75, 76, 77, 0, 0, 186, 185, 187,
256: 188, 183, 184, 179, 180, 181, 182, 189, 190, 0,
257: 0, 75, 76, 77, 61, 60, 0, 178, 0, 0,
258: 0, 0, 0, 0, 0, 0, 0, 185, 187, 188,
259: 183, 184, 179, 180, 181, 182, 189, 190, 0, 0,
260: 0, 0, 216, 0, 0, 0, 178, 224, 225, 0,
261: 0, 0, 0, 0, 0, 0, 0, 31, 187, 188,
262: 183, 184, 179, 180, 181, 182, 189, 190, 0, 0,
263: 68, 71, 72, 69, 70, 67, 178, 74, 0, 0,
264: 0, 0, 0, 0, 188, 183, 184, 179, 180, 181,
265: 182, 189, 190, 0, 0, 0, 0, 0, 0, 0,
266: 65, 178, 0, 75, 76, 77, 61, 60, 79, 83,
267: 0, 87, 91, 80, 188, 183, 184, 179, 180, 181,
268: 182, 189, 190, 94, 88, 0, 0, 0, 0, 0,
269: 0, 178, 0, 0, 0, 93, 0, 0, 0, 0,
270: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
271: 0, 183, 184, 179, 180, 181, 182, 189, 190, 0,
272: 0, 295, 0, 0, 0, 0, 0, 178, 0, 0,
273: 0, 0, 0, 0, 0, 0, 0, 0, 311, 312,
274: 313, 314, 315, 0, 0, 0, 0, 0, 0, 0,
275: 0, 158, 0, 0, 155, 0, 160, 0, 0, 0,
276: 0, 0, 157, 0, 0, 0, 0, 159, 0, 0,
277: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
278: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
279: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
280: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
281: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
282: 0, 0, 0, 0, 0, 0, 0, 0, 0, 226,
283: 0, 227, 0, 229, 0, 0, 0, 0, 0, 0,
284: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
285: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
286: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
287: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
288: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
289: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
290: 285, 286, 0, 287, 0, 0, 0, 0, 0, 0,
291: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
292: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
293: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
294: 0, 0, 0, 0, 0, 0, 317, 318 };
295: short yypact[]={
296:
297: -189,-1000, 143, 147, 103,-163, 142, 762, 781,-1000,
298: 463,-163,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-163,
299: -1000, 38, 687,-188,-1000,-1000,-1000, 136, 135, 134,
300: -1000, 131, -19, 193, -19, 103, 303, 14, -19,-307,
301: -256, 176, 176, 191, 179,-1000,-1000,-1000,-1000,-1000,
302: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, 109, 70,
303: -1000,-1000,-114, 147,-1000, 129,-1000,-1000,-1000,-1000,
304: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
305: 38,-1000,-224,-1000,-1000,-1000,-1000,-1000, 38,-1000,
306: -163,-1000,-1000, 38,-1000,-163, 178, 177,-1000,-1000,
307: -1000,-1000,-283, 122, 150,-163,-1000, 115,-1000,-1000,
308: 176, 176,-1000, 70,-1000,-1000,-1000, 303,-1000, -19,
309: 645,-1000,-1000, 303, 303,-1000,-1000, 303, 303, 303,
310: -307,-1000, 303,-264, -36,-1000,-1000, 303, 303,-138,
311: -218,-1000, 94,-1000, 303, 303,-277, 303, 303,-1000,
312: -1000,-1000,-1000,-1000,-1000, 38,-1000, 96,-1000, 38,
313: -1000,-197,-197, 103,-1000, -19, 105,-1000, 601,-272,
314: -1000, 303, 303, 303, 303, 303, 303, 303, 303, 303,
315: 303, 303, 303, 303, 303, 303, 303, 303, 303, 303,
316: 303, 562, 45, 535,-333,-333,-333, 668,-297,-298,
317: -300,-302,-251,-1000, 742, 668, 138,-1000,-1000,-308,
318: -310, 125,-1000, 69, 68,-1000, 173, 507, 475, 65,
319: 60, 51, 49, 40, 44, 33, 38, 38,-1000, 38,
320: 172, 167,-1000, 171, -19,-1000,-1000, 303, 175, 448,
321: -9, -9,-333,-333,-333, 826,-333, -18, -18, -18,
322: -18, 128, 128, 801, 771, 856, 892, 0, 0,-1000,
323: -1000, 303, 303, 303, 303, 303,-1000,-1000,-138,-179,
324: -179,-1000,-218,-179,-179,-1000, 103, 103, 303, 303,
325: 303, 303, 303, 164,-1000,-163, 873,-1000,-1000,-200,
326: -1000,-1000, 425, 303, 303,-1000, 668, 668, 668, 668,
327: -1000,-1000,-1000,-1000,-1000,-1000,-1000, 32, 27,-1000,
328: -1000, 19, 18, 16, 10, 7,-282,-1000,-1000,-1000,
329: -1000, 303, 354, 668,-1000,-1000,-1000,-1000,-1000,-1000,
330: -1000,-1000,-1000,-1000,-1000,-1000, -33, 104, 103,-1000,
331: -19,-1000 };
332: short yypgo[]={
333:
334: 0, 71, 205, 203, 333, 329, 465, 324, 323, 115,
335: 776, 959, 192, 168, 318, 69, 187, 166, 75,1173,
336: 309, 1, 59,1160, 305, 303, 252, 22, 105, 251,
337: 250, 247, 246, 244, 234, 63, 46 };
338: short yyr1[]={
339:
340: 0, 25, 25, 25, 25, 25, 24, 24, 26, 26,
341: 26, 26, 26, 26, 26, 26, 26, 26, 26, 26,
342: 26, 26, 26, 26, 26, 26, 26, 26, 26, 26,
343: 26, 26, 26, 20, 20, 20, 29, 29, 28, 28,
344: 30, 30, 17, 17, 17, 13, 13, 13, 13, 13,
345: 27, 27, 31, 31, 32, 32, 33, 33, 34, 34,
346: 35, 35, 35, 35, 35, 36, 36, 22, 22, 22,
347: 3, 4, 4, 9, 9, 11, 11, 7, 8, 21,
348: 21, 21, 21, 21, 21, 21, 21, 23, 1, 1,
349: 1, 1, 1, 2, 2, 2, 2, 2, 2, 2,
350: 2, 2, 14, 14, 14, 14, 14, 14, 14, 14,
351: 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,
352: 14, 14, 14, 14, 14, 14, 6, 6, 6, 5,
353: 5, 15, 15, 15, 15, 15, 15, 15, 10, 10,
354: 19, 19, 18, 18, 18, 12, 12, 12, 12, 12,
355: 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
356: 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
357: 12, 12, 12, 12, 16, 16, 16, 16, 16, 16 };
358: short yyr2[]={
359:
360: 0, 2, 2, 3, 3, 2, 5, 5, 0, 2,
361: 6, 2, 2, 2, 1, 1, 2, 2, 6, 2,
362: 1, 1, 1, 1, 1, 1, 1, 1, 2, 1,
363: 5, 2, 3, 1, 3, 5, 1, 2, 0, 1,
364: 1, 3, 1, 2, 2, 3, 5, 5, 5, 5,
365: 0, 1, 4, 4, 1, 0, 1, 3, 1, 3,
366: 1, 1, 1, 3, 3, 4, 4, 1, 1, 1,
367: 4, 1, 2, 2, 3, 1, 3, 5, 5, 1,
368: 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
369: 3, 1, 2, 2, 1, 2, 2, 5, 10, 2,
370: 8, 3, 1, 1, 1, 1, 1, 1, 3, 3,
371: 3, 3, 3, 4, 6, 6, 6, 6, 6, 6,
372: 6, 6, 6, 6, 4, 1, 2, 3, 3, 1,
373: 1, 1, 1, 1, 1, 1, 1, 1, 2, 2,
374: 1, 2, 1, 1, 1, 1, 1, 3, 3, 1,
375: 1, 5, 2, 2, 2, 3, 3, 3, 3, 3,
376: 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
377: 3, 3, 3, 3, 1, 1, 2, 2, 2, 2 };
378: short yychk[]={
379:
380: -1000, -25, -26, 274, -24, 278, 277, 265, 269, 275,
381: 281, 276, 305, 306, 311, 312, 303, 302, 307, 279,
382: 280, 266, 282, 268, 59, -17, -2, -13, -3, -6,
383: -31, -10, -7, 296, -8, 297, 284, 295, 285, -15,
384: -32, 260, 261, 300, 298, 290, 291, 292, -14, 262,
385: 257, 258, 289, 333, 334, 330, 331, 332, -16, 259,
386: 294, 293, 36, -27, 59, -23, -21, 262, 257, 260,
387: 261, 258, 259, -22, 264, 290, 291, 292, 59, -23,
388: -19, 263, 45, -23, -16, 263, -20, -23, -19, -16,
389: -29, -23, -21, -19, -23, 45, 262, 260, 59, 59,
390: 59, 59, -1, -3, -21, 299, -2, -13, 262, 257,
391: 260, 261, 258, 259, 290, 291, 292, 40, -1, -27,
392: -12, -5, -6, 40, 91, 263, 264, 45, 126, 329,
393: -15, -10, 313, 46, -4, -1, 327, 314, 313, 288,
394: 287, -9, 40, -9, 40, 40, 46, 91, 91, 294,
395: 293, 263, -21, -17, 59, -19, 263, -19, -23, -19,
396: -23, 40, 40, 301, 59, 58, -21, 59, -12, -1,
397: 59, 63, 43, 45, 42, 47, 37, 94, 335, 321,
398: 322, 323, 324, 319, 320, 316, 315, 317, 318, 325,
399: 326, -12, -11, -12, -12, -12, -12, -12, 334, 330,
400: 331, 332, -27, -1, -12, -12, -33, -35, -22, 262,
401: 257, -34, -36, 262, 259, 41, -11, -12, -12, 334,
402: 333, 330, 331, 332, -11, -11, -19, -19, -16, -19,
403: -28, -30, 262, -28, -27, -1, 59, 59, 298, -12,
404: -12, -12, -12, -12, -12, -12, -12, -12, -12, -12,
405: -12, -12, -12, -12, -12, -12, -12, -12, -12, 41,
406: 93, 44, 313, 313, 313, 313, 286, 59, 44, 313,
407: 313, 59, 44, 91, 91, 41, 41, 41, 91, 91,
408: 91, 91, 91, 93, 93, -19, -19, -19, 41, 44,
409: 41, -1, -12, 40, 58, -11, -12, -12, -12, -12,
410: -35, -18, 263, 257, -10, -18, -36, -18, -18, -27,
411: -27, -11, -11, -11, -11, -11, 46, -23, -23, -16,
412: 262, 59, -12, -12, 93, 93, 93, 93, 93, 93,
413: 93, 334, 333, 330, 331, 332, -12, 41, 41, 59,
414: -27, -1 };
415: short yydef[]={
416:
417: 8, -2, 0, 55, 50, 0, 0, 0, 0, 14,
418: 15, 0, 20, 21, 22, 23, 24, 25, 26, 27,
419: 29, 0, 0, 0, 1, 2, 42, 0, 0, 0,
420: 94, 0, 55, 0, 55, 50, 0, 0, 55, 0,
421: 0, 0, 0, 0, 0, 131, 132, 133, 134, 135,
422: 136, 137, 54, 102, 103, 104, 105, 106, 107, 125,
423: 174, 175, 0, 55, 51, 0, 87, 79, 80, 81,
424: 82, 83, 84, 85, 86, 67, 68, 69, 5, 9,
425: 0, 140, 0, 11, 12, 13, 16, 17, 0, 33,
426: 19, 36, 28, 0, 31, 0, 0, 0, 43, 44,
427: 93, 95, 96, 0, 0, 0, 91, 0, -2, -2,
428: 81, 82, -2, -2, -2, -2, -2, 0, 99, 55,
429: 0, 145, 146, 0, 0, 149, 150, 0, 0, 0,
430: 129, 130, 0, 0, -2, 71, 126, 0, 0, 0,
431: 0, 138, 0, 139, 0, 0, 0, 0, 0, 176,
432: 177, 178, 179, 3, 4, 0, 141, 0, 37, 0,
433: 32, 38, 38, 50, 88, 55, 0, 92, 0, 0,
434: 101, 0, 0, 0, 0, 0, 0, 0, 0, 0,
435: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
436: 0, 0, 0, 75, 152, 153, 154, 45, 0, 0,
437: 0, 0, 0, 72, 127, 128, 0, 56, 60, 61,
438: 62, 0, 58, 0, 0, 73, 0, 0, 0, 108,
439: 109, 110, 111, 112, 0, 0, 0, 0, 34, 0,
440: 0, 39, 40, 0, 55, 89, 90, 0, 0, 0,
441: 155, 156, 157, 158, 159, 160, 161, 162, 163, 164,
442: 165, 166, 167, 168, 169, 170, 171, 172, 173, 147,
443: 148, 0, 0, 0, 0, 0, 70, 52, 0, 0,
444: 0, 53, 0, 0, 0, 74, 50, 50, 0, 0,
445: 0, 0, 0, 113, 124, 0, 0, 30, 6, 0,
446: 7, 97, 0, 0, 0, 76, 46, 47, 48, 49,
447: 57, 63, 142, 143, 144, 64, 59, 0, 0, 77,
448: 78, 0, 0, 0, 0, 0, 0, 10, 18, 35,
449: 41, 0, 0, 151, 65, 66, 119, 120, 121, 122,
450: 123, 114, 115, 116, 117, 118, 0, 0, 50, 100,
451: 55, 98 };
452: # ifdef YYDEBUG
453: # include "y.debug"
454: # endif
455:
456: # define YYFLAG -1000
457: # define YYERROR goto yyerrlab
458: # define YYACCEPT return(0)
459: # define YYABORT return(1)
460:
461: /* parser for yacc output */
462:
463: #ifdef YYDEBUG
464: int yydebug = 0; /* 1 for debugging */
465: #endif
466: YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */
467: int yychar = -1; /* current input token number */
468: int yynerrs = 0; /* number of errors */
469: short yyerrflag = 0; /* error recovery flag */
470:
471: yyparse()
472: { short yys[YYMAXDEPTH];
473: int yyj, yym;
474: register YYSTYPE *yypvt;
475: register int yystate, yyn;
476: register short *yyps;
477: register YYSTYPE *yypv;
478: register short *yyxi;
479:
480: yystate = 0;
481: yychar = -1;
482: yynerrs = 0;
483: yyerrflag = 0;
484: yyps= &yys[-1];
485: yypv= &yyv[-1];
486:
487: yystack: /* put a state and value onto the stack */
488: #ifdef YYDEBUG
489: if(yydebug >= 3)
490: if(yychar < 0 || yytoknames[yychar] == 0)
491: printf("char %d in %s", yychar, yystates[yystate]);
492: else
493: printf("%s in %s", yytoknames[yychar], yystates[yystate]);
494: #endif
495: if( ++yyps >= &yys[YYMAXDEPTH] ) {
496: yyerror( "yacc stack overflow" );
497: return(1);
498: }
499: *yyps = yystate;
500: ++yypv;
501: *yypv = yyval;
502: yynewstate:
503: yyn = yypact[yystate];
504: if(yyn <= YYFLAG) goto yydefault; /* simple state */
505: if(yychar<0) {
506: yychar = yylex();
507: #ifdef YYDEBUG
508: if(yydebug >= 2) {
509: if(yychar <= 0)
510: printf("lex EOF\n");
511: else if(yytoknames[yychar])
512: printf("lex %s\n", yytoknames[yychar]);
513: else
514: printf("lex (%c)\n", yychar);
515: }
516: #endif
517: if(yychar < 0)
518: yychar = 0;
519: }
520: if((yyn += yychar) < 0 || yyn >= YYLAST)
521: goto yydefault;
522: if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */
523: yychar = -1;
524: yyval = yylval;
525: yystate = yyn;
526: if( yyerrflag > 0 ) --yyerrflag;
527: goto yystack;
528: }
529: yydefault:
530: /* default state action */
531: if( (yyn=yydef[yystate]) == -2 ) {
532: if(yychar < 0) {
533: yychar = yylex();
534: #ifdef YYDEBUG
535: if(yydebug >= 2)
536: if(yychar < 0)
537: printf("lex EOF\n");
538: else
539: printf("lex %s\n", yytoknames[yychar]);
540: #endif
541: if(yychar < 0)
542: yychar = 0;
543: }
544: /* look through exception table */
545: for(yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate);
546: yyxi += 2 ) ; /* VOID */
547: while( *(yyxi+=2) >= 0 ){
548: if( *yyxi == yychar ) break;
549: }
550: if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */
551: }
552: if( yyn == 0 ){ /* error */
553: /* error ... attempt to resume parsing */
554: switch( yyerrflag ){
555: case 0: /* brand new error */
556: #ifdef YYDEBUG
557: yyerror("syntax error\n%s", yystates[yystate]);
558: if(yytoknames[yychar])
559: yyerror("saw %s\n", yytoknames[yychar]);
560: else if(yychar >= ' ' && yychar < '\177')
561: yyerror("saw `%c'\n", yychar);
562: else if(yychar == 0)
563: yyerror("saw EOF\n");
564: else
565: yyerror("saw char 0%o\n", yychar);
566: #else
567: yyerror( "syntax error" );
568: #endif
569: yyerrlab:
570: ++yynerrs;
571: case 1:
572: case 2: /* incompletely recovered error ... try again */
573: yyerrflag = 3;
574: /* find a state where "error" is a legal shift action */
575: while ( yyps >= yys ) {
576: yyn = yypact[*yyps] + YYERRCODE;
577: if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){
578: yystate = yyact[yyn]; /* simulate a shift of "error" */
579: goto yystack;
580: }
581: yyn = yypact[*yyps];
582: /* the current yyps has no shift onn "error", pop stack */
583: #ifdef YYDEBUG
584: if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] );
585: #endif
586: --yyps;
587: --yypv;
588: }
589: /* there is no state on the stack with an error shift ... abort */
590: yyabort:
591: return(1);
592: case 3: /* no shift yet; clobber input char */
593: #ifdef YYDEBUG
594: if( yydebug ) {
595: printf("error recovery discards ");
596: if(yytoknames[yychar])
597: printf("%s\n", yytoknames[yychar]);
598: else if(yychar >= ' ' && yychar < '\177')
599: printf("`%c'\n", yychar);
600: else if(yychar == 0)
601: printf("EOF\n");
602: else
603: printf("char 0%o\n", yychar);
604: }
605: #endif
606: if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */
607: yychar = -1;
608: goto yynewstate; /* try again in the same state */
609: }
610: }
611: /* reduction by production yyn */
612: #ifdef YYDEBUG
613: if(yydebug) { char *s;
614: printf("reduce %d in:\n\t", yyn);
615: for(s = yystates[yystate]; *s; s++) {
616: putchar(*s);
617: if(*s == '\n' && *(s+1))
618: putchar('\t');
619: }
620: }
621: #endif
622: yyps -= yyr2[yyn];
623: yypvt = yypv;
624: yypv -= yyr2[yyn];
625: yyval = yypv[1];
626: yym=yyn;
627: /* consult goto table to find next state */
628: yyn = yyr1[yyn];
629: yyj = yypgo[yyn] + *yyps + 1;
630: if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]];
631: switch(yym){
632:
633: case 1:
634: # line 64 "x.y"
635: { return 1; } break;
636: case 2:
637: # line 65 "x.y"
638: { munge(yypvt[-0].resu); return 1; } break;
639: case 3:
640: # line 66 "x.y"
641: { postfunct(yypvt[-2].sym); return 1; } break;
642: case 4:
643: # line 67 "x.y"
644: { redirect(yypvt[-1].sym->name);
645: checkit();
646: return 1;
647: } break;
648: case 5:
649: # line 71 "x.y"
650: { return 0; } break;
651: case 6:
652: # line 73 "x.y"
653: { prefunct(yypvt[-3].sym, nrparams); yyval.sym = yypvt[-3].sym; } break;
654: case 7:
655: # line 74 "x.y"
656: { prefunct(yypvt[-3].sym, nrparams); yyval.sym = yypvt[-3].sym; } break;
657: case 8:
658: # line 76 "x.y"
659: { /* if (INPUT == stdin) linenumber--; */ } break;
660: case 9:
661: # line 77 "x.y"
662: { append( 0, 0, 0, 0, yypvt[-0].sym->name); } break;
663: case 10:
664: # line 78 "x.y"
665: { append(yypvt[-4].resu, yypvt[-3].resu, yypvt[-2].resu, yypvt[-1].resu, yypvt[-0].sym->name); } break;
666: case 11:
667: # line 79 "x.y"
668: { discard(yypvt[-0].sym->name); } break;
669: case 12:
670: # line 80 "x.y"
671: { if (yypvt[-0].resu > 1 && yypvt[-0].resu <= nsrc-1)
672: discard(src[yypvt[-0].resu].fname);
673: else
674: yyerror("unknown file number %d", yypvt[-0].resu);
675: } break;
676: case 13:
677: # line 85 "x.y"
678: { if (yypvt[-0].resu > 1 && yypvt[-0].resu <= nsrc-1)
679: discard(src[yypvt[-0].resu].fname);
680: else
681: yyerror("unknown file number %d", yypvt[-0].resu);
682: } break;
683: case 14:
684: # line 90 "x.y"
685: { files(); } break;
686: case 15:
687: # line 91 "x.y"
688: { getscreen(Old); } break;
689: case 16:
690: # line 92 "x.y"
691: { getter(yypvt[-0].resu); } break;
692: case 17:
693: # line 93 "x.y"
694: { getter(append( 0, 0, 0, 0, yypvt[-0].sym->name)); } break;
695: case 18:
696: # line 94 "x.y"
697: { getter(append(yypvt[-4].resu, yypvt[-3].resu, yypvt[-2].resu, yypvt[-1].resu, yypvt[-0].sym->name)); } break;
698: case 20:
699: # line 96 "x.y"
700: { faster = 1; } break;
701: case 21:
702: # line 97 "x.y"
703: { faster = 0; } break;
704: case 22:
705: # line 98 "x.y"
706: { seetree = 1 - seetree; } break;
707: case 23:
708: # line 99 "x.y"
709: { optim = 1 - optim; } break;
710: case 24:
711: # line 100 "x.y"
712: { Old->nchan = Scratch->nchan = 1; } break;
713: case 25:
714: # line 101 "x.y"
715: { Old->nchan = Scratch->nchan = 3;
716: checkpix(Old); checkpix(Scratch);
717: } break;
718: case 26:
719: # line 104 "x.y"
720: { dohelp(); } break;
721: case 27:
722: # line 105 "x.y"
723: { showvars(); } break;
724: case 28:
725: # line 106 "x.y"
726: { showsym(yypvt[-0].sym); } break;
727: case 29:
728: # line 107 "x.y"
729: { showfcts(); } break;
730: case 30:
731: # line 108 "x.y"
732: { setwindow(yypvt[-3].resu, yypvt[-2].resu, yypvt[-1].resu, yypvt[-0].resu); } break;
733: case 31:
734: # line 109 "x.y"
735: { putdpix(yypvt[-0].sym->name, PICO); } break;
736: case 32:
737: # line 110 "x.y"
738: { putdpix(yypvt[-0].sym->name, 0); } break;
739: case 33:
740: # line 112 "x.y"
741: { yyval.resu = yypvt[-0].resu; } break;
742: case 34:
743: # line 113 "x.y"
744: { yyval.resu = append(yypvt[-2].resu, yypvt[-1].resu, 0, 0, src[yypvt[-0].resu].fname); } break;
745: case 35:
746: # line 114 "x.y"
747: { yyval.resu = append(yypvt[-4].resu, yypvt[-3].resu, yypvt[-2].resu, yypvt[-1].resu, src[yypvt[-0].resu].fname); } break;
748: case 36:
749: # line 116 "x.y"
750: { interpret(yypvt[-0].sym->name); } break;
751: case 37:
752: # line 117 "x.y"
753: { interpret(yypvt[-0].sym->name); } break;
754: case 40:
755: # line 122 "x.y"
756: { automa(yypvt[-0].sym, nrparams++); } break;
757: case 41:
758: # line 123 "x.y"
759: { automa(yypvt[-0].sym, nrparams++); } break;
760: case 42:
761: # line 125 "x.y"
762: { compile(yypvt[-0].node, progr); yyval.resu = BLOOP; } break;
763: case 43:
764: # line 126 "x.y"
765: { compile(yypvt[-1].node, progr); yyval.resu = SLOOP; } break;
766: case 44:
767: # line 127 "x.y"
768: { compile(yypvt[-1].node, progr); yyval.resu = NLOOP; } break;
769: case 45:
770: # line 129 "x.y"
771: { yyval.node = mapall(cast(yypvt[-0].node)); } break;
772: case 46:
773: # line 130 "x.y"
774: { yyval.node = mapall(yypvt[-0].node); } break;
775: case 47:
776: # line 131 "x.y"
777: { yyval.node = mapred(cast(yypvt[-0].node)); } break;
778: case 48:
779: # line 132 "x.y"
780: { yyval.node = mapgrn(cast(yypvt[-0].node)); } break;
781: case 49:
782: # line 133 "x.y"
783: { yyval.node = mapblu(cast(yypvt[-0].node)); } break;
784: case 54:
785: # line 141 "x.y"
786: { isglobal = 1; } break;
787: case 55:
788: # line 142 "x.y"
789: { isglobal = 0; } break;
790: case 61:
791: # line 151 "x.y"
792: { decvar(yypvt[-0].sym, 0); } break;
793: case 62:
794: # line 152 "x.y"
795: { decvar(yypvt[-0].sym, 0); } break;
796: case 63:
797: # line 153 "x.y"
798: { decvar(yypvt[-2].sym, yypvt[-0].resu); } break;
799: case 64:
800: # line 154 "x.y"
801: { decvar(yypvt[-2].sym, yypvt[-0].resu); } break;
802: case 65:
803: # line 156 "x.y"
804: { decarray(yypvt[-3].sym, yypvt[-1].resu); } break;
805: case 66:
806: # line 157 "x.y"
807: { decarray(yypvt[-3].sym, yypvt[-1].resu); } break;
808: case 67:
809: # line 159 "x.y"
810: { yyval.sym = newsym("x"); } break;
811: case 68:
812: # line 160 "x.y"
813: { yyval.sym = newsym("y"); } break;
814: case 69:
815: # line 161 "x.y"
816: { yyval.sym = newsym("i"); } break;
817: case 70:
818: # line 163 "x.y"
819: { yyval.node = yypvt[-2].node; } break;
820: case 71:
821: # line 165 "x.y"
822: { yyval.node = yypvt[-0].node; } break;
823: case 72:
824: # line 166 "x.y"
825: { yyval.node = new(OCOMMA, yypvt[-1].node, yypvt[-0].node, Z); } break;
826: case 73:
827: # line 168 "x.y"
828: { yyval.node = Z; } break;
829: case 74:
830: # line 169 "x.y"
831: { yyval.node = yypvt[-1].node; } break;
832: case 75:
833: # line 171 "x.y"
834: { yyval.node = cast(yypvt[-0].node); } break;
835: case 76:
836: # line 172 "x.y"
837: { yyval.node = new(ACOMMA, cast(yypvt[-2].node), yypvt[-0].node, Z); } break;
838: case 77:
839: # line 174 "x.y"
840: { yyval.node = yypvt[-2].node; } break;
841: case 78:
842: # line 175 "x.y"
843: { yyval.node = yypvt[-2].node; } break;
844: case 79:
845: # line 177 "x.y"
846: { yyval.sym = yypvt[-0].sym; } break;
847: case 80:
848: # line 178 "x.y"
849: { yyval.sym = yypvt[-0].sym; } break;
850: case 81:
851: # line 179 "x.y"
852: { yyval.sym = yypvt[-0].sym; } break;
853: case 82:
854: # line 180 "x.y"
855: { yyval.sym = yypvt[-0].sym; } break;
856: case 83:
857: # line 181 "x.y"
858: { yyval.sym = yypvt[-0].sym; } break;
859: case 84:
860: # line 182 "x.y"
861: { yyval.sym = yypvt[-0].sym; } break;
862: case 85:
863: # line 183 "x.y"
864: { yyval.sym = yypvt[-0].sym; } break;
865: case 86:
866: # line 184 "x.y"
867: { yyval.sym = lookup(yypvt[-0].resu); } break;
868: case 87:
869: # line 186 "x.y"
870: { yyval.sym = yypvt[-0].sym; } break;
871: case 88:
872: # line 188 "x.y"
873: { yyval.node = yypvt[-1].node; } break;
874: case 89:
875: # line 189 "x.y"
876: { yyval.node = new(LABL,yypvt[-0].node, Z, yypvt[-2].sym); } break;
877: case 90:
878: # line 190 "x.y"
879: { yyval.node = new(GOTO, Z, Z, yypvt[-1].sym); } break;
880: case 91:
881: # line 191 "x.y"
882: { yyval.node = yypvt[-0].node; } break;
883: case 92:
884: # line 192 "x.y"
885: { yyval.node = yypvt[-1].node; } break;
886: case 93:
887: # line 194 "x.y"
888: { yyval.node = yypvt[-1].node; } break;
889: case 94:
890: # line 195 "x.y"
891: { yyval.node = Z; } break;
892: case 95:
893: # line 196 "x.y"
894: { yyval.node = yypvt[-1].node; } break;
895: case 96:
896: # line 197 "x.y"
897: { yyval.node = new(CONDI, yypvt[-0].node, Z, yypvt[-1].node); } break;
898: case 97:
899: # line 198 "x.y"
900: { yyval.node = new(CONDI, yypvt[-3].node, yypvt[-0].node, yypvt[-4].node); } break;
901: case 98:
902: # line 199 "x.y"
903: {
904: yyval.node = newloop(yypvt[-7].node, yypvt[-5].node, yypvt[-3].node, yypvt[-0].node); } break;
905: case 99:
906: # line 201 "x.y"
907: { yyval.node = newhile(yypvt[-1].node, yypvt[-0].node); } break;
908: case 100:
909: # line 202 "x.y"
910: { yyval.node = newuntil(yypvt[-5].node, yypvt[-2].node); } break;
911: case 101:
912: # line 203 "x.y"
913: { yyval.node = new(ORETURN, yypvt[-1].node, Z, Z); } break;
914: case 102:
915: # line 205 "x.y"
916: { usedboth; yyval.snode = super(CURSCRATCH, Z, BW); } break;
917: case 103:
918: # line 206 "x.y"
919: { usedboth; yyval.snode = super(CURSCRATCH, Z, RGB); } break;
920: case 104:
921: # line 207 "x.y"
922: { usedboth; yyval.snode = super(CURSCRATCH, Z, RCHAN); } break;
923: case 105:
924: # line 208 "x.y"
925: { usedboth; yyval.snode = super(CURSCRATCH, Z, GCHAN); } break;
926: case 106:
927: # line 209 "x.y"
928: { usedboth; yyval.snode = super(CURSCRATCH, Z, BCHAN); } break;
929: case 107:
930: # line 210 "x.y"
931: { yyval.snode = super(yypvt[-0].resu, Z, (src[yypvt[-0].resu].nchan == 1)?BW:RGB); } break;
932: case 108:
933: # line 211 "x.y"
934: { yyval.snode = super(yypvt[-2].resu, Z, RGB); } break;
935: case 109:
936: # line 212 "x.y"
937: { yyval.snode = super(yypvt[-2].resu, Z, BW); } break;
938: case 110:
939: # line 213 "x.y"
940: { yyval.snode = super(yypvt[-2].resu, Z, RCHAN); } break;
941: case 111:
942: # line 214 "x.y"
943: { yyval.snode = super(yypvt[-2].resu, Z, GCHAN); } break;
944: case 112:
945: # line 215 "x.y"
946: { yyval.snode = super(yypvt[-2].resu, Z, BCHAN); } break;
947: case 113:
948: # line 216 "x.y"
949: { yyval.snode = super(yypvt[-3].resu, yypvt[-1].node,(src[yypvt[-3].resu].nchan == 1)?BW:RGB); } break;
950: case 114:
951: # line 217 "x.y"
952: { yyval.snode = super(yypvt[-5].resu, yypvt[-3].node, RGB); } break;
953: case 115:
954: # line 218 "x.y"
955: { yyval.snode = super(yypvt[-5].resu, yypvt[-3].node, BW); } break;
956: case 116:
957: # line 219 "x.y"
958: { yyval.snode = super(yypvt[-5].resu, yypvt[-3].node, RCHAN); } break;
959: case 117:
960: # line 220 "x.y"
961: { yyval.snode = super(yypvt[-5].resu, yypvt[-3].node, GCHAN); } break;
962: case 118:
963: # line 221 "x.y"
964: { yyval.snode = super(yypvt[-5].resu, yypvt[-3].node, BCHAN); } break;
965: case 119:
966: # line 222 "x.y"
967: { yyval.snode = super(yypvt[-5].resu, yypvt[-1].node, RGB); } break;
968: case 120:
969: # line 223 "x.y"
970: { yyval.snode = super(yypvt[-5].resu, yypvt[-1].node, BW); } break;
971: case 121:
972: # line 224 "x.y"
973: { yyval.snode = super(yypvt[-5].resu, yypvt[-1].node, RCHAN); } break;
974: case 122:
975: # line 225 "x.y"
976: { yyval.snode = super(yypvt[-5].resu, yypvt[-1].node, GCHAN); } break;
977: case 123:
978: # line 226 "x.y"
979: { yyval.snode = super(yypvt[-5].resu, yypvt[-1].node, BCHAN); } break;
980: case 124:
981: # line 227 "x.y"
982: { yyval.snode=nsup(RL((yypvt[-3].sym->u.ar->base),Index(yypvt[-1].node)),0,0,128);} break;
983: case 125:
984: # line 228 "x.y"
985: { yyval.snode=nsup(RL((yypvt[-0].sym->u.ar->base),DII), 0,0,128); } break;
986: case 126:
987: # line 230 "x.y"
988: { yyval.node = weird(yypvt[-1].snode, notnew(LO, yypvt[-1].snode->n, NR(1))); } break;
989: case 127:
990: # line 231 "x.y"
991: { yyval.node = weird(yypvt[-2].snode, notnew(LO, yypvt[-2].snode->n, yypvt[-0].node)); } break;
992: case 128:
993: # line 232 "x.y"
994: { yyval.node = weird(yypvt[-2].snode, yypvt[-0].node); } break;
995: case 129:
996: # line 234 "x.y"
997: { yyval.node = yypvt[-0].snode->n; } break;
998: case 130:
999: # line 235 "x.y"
1000: { yyval.node = yypvt[-0].node; } break;
1001: case 131:
1002: # line 237 "x.y"
1003: { yyval.snode = nsup(new(REG, Z, Z, XREG), 0, 0, 128); } break;
1004: case 132:
1005: # line 238 "x.y"
1006: { yyval.snode = nsup(new(REG, Z, Z, YREG), 0, 0, 128); } break;
1007: case 133:
1008: # line 239 "x.y"
1009: { yyval.snode = nsup(new(REG, Z, Z, IREG), 0, 0, 128); } break;
1010: case 134:
1011: # line 240 "x.y"
1012: { yyval.snode = yypvt[-0].snode; } break;
1013: case 135:
1014: # line 241 "x.y"
1015: { yyerror("undeclared variable %s", yypvt[-0].sym->name); } break;
1016: case 136:
1017: # line 242 "x.y"
1018: { yyval.snode = nsup(new(VAR, Z, Z, &yypvt[-0].sym->u.val), 0,0,128);} break;
1019: case 137:
1020: # line 243 "x.y"
1021: { yyval.snode = nsup(new(OARG, Z, Z, yypvt[-0].sym->u.val), 0,0,128);} break;
1022: case 138:
1023: # line 245 "x.y"
1024: { if (yypvt[-1].sym->u.fu->usednew == -1 && notrecurcall(yypvt[-1].sym))
1025: yyerror("undefined function %s", yypvt[-1].sym->name);
1026: argcount(yypvt[-1].sym->u.fu->nrparams, yypvt[-0].node, yypvt[-1].sym->name);
1027: usednew += yypvt[-1].sym->u.fu->usednew;
1028: usedold += yypvt[-1].sym->u.fu->usedold;
1029: yyval.node = new(OCALL, yypvt[-0].node, Z, yypvt[-1].sym->u.fu->fct);
1030: } break;
1031: case 139:
1032: # line 252 "x.y"
1033: { argcount(yypvt[-1].sym->u.bl->nrparams, yypvt[-0].node, yypvt[-1].sym->name);
1034: usednew += yypvt[-1].sym->u.bl->usednew;
1035: yyval.node = new(CCALL, yypvt[-0].node, Z, yypvt[-1].sym->u.bl->faddr);
1036: } break;
1037: case 140:
1038: # line 257 "x.y"
1039: { yyval.resu = yypvt[-0].resu; } break;
1040: case 141:
1041: # line 258 "x.y"
1042: { yyval.resu = -yypvt[-0].resu; } break;
1043: case 142:
1044: # line 260 "x.y"
1045: { yyval.resu = yypvt[-0].resu; } break;
1046: case 143:
1047: # line 261 "x.y"
1048: { yyval.resu = yypvt[-0].sym->u.val; } break;
1049: case 144:
1050: # line 262 "x.y"
1051: { compile(yypvt[-0].node, progr); yyval.resu = callit(); } break;
1052: case 145:
1053: # line 264 "x.y"
1054: { yyval.node = yypvt[-0].node; } break;
1055: case 146:
1056: # line 265 "x.y"
1057: { yyval.node = yypvt[-0].node; } break;
1058: case 147:
1059: # line 266 "x.y"
1060: { yyval.node = yypvt[-1].node; } break;
1061: case 148:
1062: # line 267 "x.y"
1063: { yyval.node = new(COMP, yypvt[-1].node, Z, Z); } break;
1064: case 149:
1065: # line 268 "x.y"
1066: { yyval.node = NR(yypvt[-0].resu); } break;
1067: case 150:
1068: # line 269 "x.y"
1069: { yyval.node = NR(yypvt[-0].resu); } break;
1070: case 151:
1071: # line 270 "x.y"
1072: { yyval.node = new(CONDI, yypvt[-2].node, yypvt[-0].node, yypvt[-4].node); } break;
1073: case 152:
1074: # line 271 "x.y"
1075: { yyval.node = new(OMINUS, yypvt[-0].node, Z, Z); } break;
1076: case 153:
1077: # line 272 "x.y"
1078: { yyval.node = new(ONEG, yypvt[-0].node, Z, Z); } break;
1079: case 154:
1080: # line 273 "x.y"
1081: { yyval.node = new(ONOT, yypvt[-0].node, Z, Z); } break;
1082: case 155:
1083: # line 274 "x.y"
1084: { yyval.node = notnew(OADD, yypvt[-2].node, yypvt[-0].node); } break;
1085: case 156:
1086: # line 275 "x.y"
1087: { yyval.node = notnew(OSUB, yypvt[-2].node, yypvt[-0].node); } break;
1088: case 157:
1089: # line 276 "x.y"
1090: { yyval.node = notnew(OMUL, yypvt[-2].node, yypvt[-0].node); } break;
1091: case 158:
1092: # line 277 "x.y"
1093: { yyval.node = notnew(DIVV, yypvt[-2].node, yypvt[-0].node); } break;
1094: case 159:
1095: # line 278 "x.y"
1096: { yyval.node = notnew(MODU, yypvt[-2].node, yypvt[-0].node); } break;
1097: case 160:
1098: # line 279 "x.y"
1099: { yyval.node = notnew(OXOR, yypvt[-2].node, yypvt[-0].node); } break;
1100: case 161:
1101: # line 280 "x.y"
1102: { yyval.node = notnew(OPOW, yypvt[-2].node, yypvt[-0].node); } break;
1103: case 162:
1104: # line 281 "x.y"
1105: { yyval.node = notnew(OGT, yypvt[-2].node, yypvt[-0].node); } break;
1106: case 163:
1107: # line 282 "x.y"
1108: { yyval.node = notnew(OGE, yypvt[-2].node, yypvt[-0].node); } break;
1109: case 164:
1110: # line 283 "x.y"
1111: { yyval.node = notnew(OLT, yypvt[-2].node, yypvt[-0].node); } break;
1112: case 165:
1113: # line 284 "x.y"
1114: { yyval.node = notnew(OLE, yypvt[-2].node, yypvt[-0].node); } break;
1115: case 166:
1116: # line 285 "x.y"
1117: { yyval.node = notnew(OEQ, yypvt[-2].node, yypvt[-0].node); } break;
1118: case 167:
1119: # line 286 "x.y"
1120: { yyval.node = notnew(ONE, yypvt[-2].node, yypvt[-0].node); } break;
1121: case 168:
1122: # line 287 "x.y"
1123: { yyval.node = notnew(OANDAND, yypvt[-2].node, yypvt[-0].node); } break;
1124: case 169:
1125: # line 288 "x.y"
1126: { yyval.node = notnew(OOROR, yypvt[-2].node, yypvt[-0].node); } break;
1127: case 170:
1128: # line 289 "x.y"
1129: { yyval.node = notnew(OOR, yypvt[-2].node, yypvt[-0].node); } break;
1130: case 171:
1131: # line 290 "x.y"
1132: { yyval.node = notnew(OAND, yypvt[-2].node, yypvt[-0].node); } break;
1133: case 172:
1134: # line 291 "x.y"
1135: { yyval.node = notnew(OLSH, yypvt[-2].node, yypvt[-0].node); } break;
1136: case 173:
1137: # line 292 "x.y"
1138: { yyval.node = notnew(OLSH, yypvt[-2].node, notnew(OMINUS, yypvt[-0].node, Z)); } break;
1139: case 174:
1140: # line 294 "x.y"
1141: { usednew=usedold=1; yyval.resu = CURSCRATCH; } break;
1142: case 175:
1143: # line 295 "x.y"
1144: { usedold=1; yyval.resu = CUROLD; } break;
1145: case 176:
1146: # line 296 "x.y"
1147: { usednew=usedold=1; yyval.resu = CURSCRATCH; } break;
1148: case 177:
1149: # line 297 "x.y"
1150: { usedold=1; yyval.resu = CUROLD; } break;
1151: case 178:
1152: # line 298 "x.y"
1153: { int x = yypvt[-0].resu;
1154: if (x < 0 || x > nsrc-2)
1155: yyerror("unknown file number %d", x);
1156: x = (x == 0) ? CUROLD : x+1;
1157: if (x == CUROLD)
1158: usedold=1;
1159: else
1160: src[x].used = 1;
1161: yyval.resu = x;
1162: } break;
1163: case 179:
1164: # line 308 "x.y"
1165: { int x = whatarray(yypvt[-0].sym->name);
1166: if (x <= 0)
1167: x = prepare(yypvt[-0].sym->name);
1168: if (x <= 0)
1169: yyerror("unknown file %s", yypvt[-0].sym->name);
1170: src[x].used = 1;
1171: yyval.resu = x;
1172: } break;
1173: }
1174: goto yystack; /* stack new state and value */
1175: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.