![[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 / cfront / ptcfront|
Return to y.tab.c CVS log | Up to [Research Unix] / researchv10no / cmd / cfront / ptcfront |
1.1 root 1:
2: # line 24 "gram.y"
3: #include "cfront.h"
4: #include "size.h"
5: #include "template.h"
6: #include <string.h>
7: // include tqueue.h after YYSTYPE is defined ...
8:
9:
10: struct parstate {
11: Ptype intypedef;
12: int defercheck;
13: Pname intag;
14: } pstate[BLMAX];
15: static int px;
16: static void
17: SAVE_STATE()
18: {
19: //error('d',"save_state: in_typedef%t in_tag%n defer_check %d",in_typedef,in_tag,defer_check);
20: if ( px >= BLMAX ) error('i',"maximum scope depth exceeded");
21: pstate[px].intypedef = in_typedef;
22: in_typedef = 0;
23: pstate[px].defercheck = defer_check;
24: defer_check = 0;
25: pstate[px].intag = in_tag;
26: in_tag = 0;
27: ++px;
28: }
29: static void
30: RESTORE_STATE()
31: {
32: //error('d',"restore_state: in_typedef%t in_tag%n defer_check %d",in_typedef,in_tag,defer_check);
33: if ( --px < 0 ) error('i',"scope stack underflow");
34: in_typedef = pstate[px].intypedef;
35: defer_check = pstate[px].defercheck;
36: in_tag = pstate[px].intag;
37: //error('d'," -> in_typedef%t in_tag%n defer_check %d",in_typedef,in_tag,defer_check);
38: }
39:
40: #define copy_if_need_be(s) ((templp->in_progress || templp->parameters_in_progress) ? strdup(s) : s)
41: #define YYMAXDEPTH 600
42:
43: #ifdef DBG
44: #ifndef YYDEBUG
45: #define YYDEBUG 1
46: #endif
47: #endif
48:
49: static init_seen = 0;
50: static cdi = 0;
51: static Pnlist cd = 0, cd_vec[BLMAX];
52: static char stmt_seen = 0, stmt_vec[BLMAX];
53:
54: //local class
55: static Plist tn_vec[BLMAX], lcl_tn_vec[BLMAX], lcl_blk_vec[BLMAX];
56: extern void local_restore();
57: extern void local_name();
58:
59: //nested class
60: static Plist nested_tn_vec[BLMAX], nested_type_vec[BLMAX];
61: extern void nested_restore();
62:
63: static Pname err_name = 0;
64:
65: // fcts put into norm2.c just to get them out of gram.y
66: void sig_name(Pname);
67: Ptype tok_to_type(TOK);
68: void memptrdcl(Pname, Pname, Ptype, Pname);
69:
70: static Pptr doptr(TOK p, TOK t)
71: {
72: Pptr r = new ptr(p,0);
73: switch (t) {
74: case CONST:
75: r->b_const = 1;
76: // if (p == RPTR) error('w',"redundant `const' after &");
77: break;
78: case VOLATILE:
79: error('w',"\"volatile\" not implemented (ignored)");
80: break;
81: default:
82: error("syntax error: *%k",t);
83: }
84: return r;
85: }
86:
87: static Pbcl dobase(TOK pr, Pname n, TOK v = 0)
88: {
89: Pbcl b = new basecl(0,0);
90:
91: if (pr == PROTECTED) {
92: pr = PUBLIC;
93: error("protectedBC");
94: }
95: b->ppp = pr; // save protection indicator
96:
97: if (n) {
98: if (n->base != TNAME) {
99: error("BN%n not aTN",n);
100: return 0;
101: }
102:
103: Pbase bt = Pbase(n->tp);
104: while (bt->base == TYPE) bt = Pbase(bt->b_name->tp);
105:
106: if (bt->base != COBJ) {
107: error("BN%n not aCN",n);
108: return 0;
109: }
110:
111: if (v) {
112: if (v != VIRTUAL) error("syntax error:%k inBCD",v);
113: b->base = VIRTUAL;
114: }
115: else
116: b->base = NAME;
117:
118: b->bclass = Pclass(bt->b_name->tp);
119: }
120:
121: return b;
122: }
123:
124:
125: #define Ndata(a,b) b->normalize(Pbase(a),0,0)
126: #define Ncast(a,b) b->normalize(Pbase(a),0,1)
127: #define Nfct(a,b,c) b->normalize(Pbase(a),Pblock(c),0)
128: #define Ncopy(n) (n->base==TNAME)?new name(n->string):n
129:
130: #define Finit(p) Pfct(p)->f_init
131: #define Fargdcl(p,q,r) Pfct(p)->argdcl(q,r)
132: #define Freturns(p) Pfct(p)->returns
133: #define Vtype(v) Pvec(v)->typ
134: #define Ptyp(p) Pptr(p)->typ
135:
136: /* avoid redefinitions */
137: #undef EOFTOK
138: #undef ASM
139: #undef BREAK
140: #undef CASE
141: #undef CONTINUE
142: #undef DEFAULT
143: #undef DELETE
144: #undef DO
145: #undef ELSE
146: #undef ENUM
147: #undef FOR
148: #undef FORTRAN
149: #undef FRIEND
150: #undef GOTO
151: #undef IF
152: #undef NEW
153: #undef OPERATOR
154: #undef RETURN
155: #undef SIZEOF
156: #undef SWITCH
157: #undef THIS
158: #undef WHILE
159: #undef LP
160: #undef RP
161: #undef LB
162: #undef RB
163: #undef REF
164: #undef DOT
165: #undef NOT
166: #undef COMPL
167: #undef MUL
168: #undef AND
169: #undef PLUS
170: #undef MINUS
171: #undef ER
172: #undef OR
173: #undef ANDAND
174: #undef OROR
175: #undef QUEST
176: #undef COLON
177: #undef ASSIGN
178: #undef CM
179: #undef SM
180: #undef LC
181: #undef RC
182: #undef ID
183: #undef STRING
184: #undef ICON
185: #undef FCON
186: #undef CCON
187: #undef ZERO
188: #undef ASOP
189: #undef RELOP
190: #undef EQUOP
191: #undef DIVOP
192: #undef SHIFTOP
193: #undef ICOP
194: #undef TYPE
195: #undef TNAME
196: #undef EMPTY
197: #undef NO_ID
198: #undef NO_EXPR
199: #undef FDEF
200: #undef ELLIPSIS
201: #undef AGGR
202: #undef MEM
203: #undef MEMPTR
204: #undef PR
205: #undef TSCOPE
206: #undef DECL_MARKER
207: #undef REFMUL
208: #undef LDOUBLE
209: #undef LINKAGE
210: #undef LOCAL
211: #undef TEMPLATE
212:
213: #undef XVIRT
214: #undef XNLIST
215: #undef XILINE
216: #undef XIA
217: #undef STATEMENT
218: #undef EXPRESSION
219: #undef SM_PARAM
220: #undef TEMPLATE_TEST
221: #undef PTNAME
222: #undef NEW_INIT_KLUDGE
223:
224: # line 246 "gram.y"
225: typedef union {
226: char* s;
227: TOK t;
228: int i;
229: loc l;
230: Pname pn;
231: Ptype pt;
232: Pexpr pe;
233: Pstmt ps;
234: Pbase pb;
235: Pnlist nl;
236: Pslist sl;
237: Pelist el;
238: Pbcl pbc;
239: Pptr pp;
240: PP p; // fudge: pointer to all class node objects
241: Plist pl;
242: toknode* q; // token queue
243: } YYSTYPE;
244:
245: # line 266 "gram.y"
246: #include "tqueue.h"
247: extern YYSTYPE yylval, yyval;
248: extern int yyparse();
249:
250: // in_typedef should allow for nested in_typedef
251: extern int declTag; // !1: inline, virtual mod permitted
252: int in_sizeof = 0;
253: Ptype in_typedef = 0; // catch redefinition of TNAME
254: Pname in_tag = 0; // handle complex typedefs: int (*)()
255: extern int defer_check; // redefinition typedef check delay
256: Pname curr_scope;
257:
258: extern int must_be_id; // !0, TNAME => ID, i.e., int X
259: int DECL_TYPE = 0; // lalex() wants this set for global x(*fp)()
260: int in_arg_list=0; // !0 when parsing argument list
261: static int in_binit_list=0;
262: int in_class_decl=0; // !0 when processing class definition
263: int parsing_class_members=0; // !0 when parsing class def but not member function body
264: int in_mem_fct=0; // !0 when parsing member function definition
265:
266: #define yylex lalex
267: #define NEXTTOK() ( (yychar==-1) ? (yychar=yylex(),yychar) : yychar )
268: #define EXPECT_ID() must_be_id = 1
269: #define NOT_EXPECT_ID() must_be_id = 0
270:
271: Pname syn()
272: {
273: ll:
274: switch (yyparse()) {
275: case 0: return 0; // EOF
276: case 1: goto ll; // no action needed
277: default: return yyval.pn;
278: }
279: }
280:
281: # define EOFTOK 0
282: # define ASM 1
283: # define AUTO 2
284: # define BREAK 3
285: # define CASE 4
286: # define CONTINUE 7
287: # define DEFAULT 8
288: # define DELETE 9
289: # define DO 10
290: # define ELSE 12
291: # define ENUM 13
292: # define FOR 16
293: # define FORTRAN 17
294: # define FRIEND 18
295: # define GOTO 19
296: # define IF 20
297: # define NEW 23
298: # define OPERATOR 24
299: # define RETURN 28
300: # define SIZEOF 30
301: # define SWITCH 33
302: # define THIS 34
303: # define WHILE 39
304: # define LP 40
305: # define RP 41
306: # define LB 42
307: # define RB 43
308: # define REF 44
309: # define DOT 45
310: # define NOT 46
311: # define COMPL 47
312: # define MUL 50
313: # define AND 52
314: # define PLUS 54
315: # define MINUS 55
316: # define LT 58
317: # define GT 60
318: # define ER 64
319: # define OR 65
320: # define ANDAND 66
321: # define OROR 67
322: # define QUEST 68
323: # define COLON 69
324: # define ASSIGN 70
325: # define CM 71
326: # define SM 72
327: # define LC 73
328: # define RC 74
329: # define ID 80
330: # define STRING 81
331: # define ICON 82
332: # define FCON 83
333: # define CCON 84
334: # define NAME 85
335: # define ZERO 86
336: # define ASOP 90
337: # define RELOP 91
338: # define EQUOP 92
339: # define DIVOP 93
340: # define SHIFTOP 94
341: # define ICOP 95
342: # define TYPE 97
343: # define TNAME 123
344: # define EMPTY 124
345: # define NO_ID 125
346: # define NO_EXPR 126
347: # define FDEF 127
348: # define ELLIPSIS 155
349: # define AGGR 156
350: # define MEM 160
351: # define MEMPTR 173
352: # define PR 175
353: # define TSCOPE 178
354: # define DECL_MARKER 179
355: # define REFMUL 180
356: # define LDOUBLE 181
357: # define LINKAGE 182
358: # define LOCAL 183
359: # define TEMPLATE 185
360: # define XVIRT 200
361: # define XNLIST 201
362: # define XILINE 202
363: # define XIA 203
364: # define STATEMENT 205
365: # define EXPRESSION 206
366: # define SM_PARAM 207
367: # define TEMPLATE_TEST 208
368: # define PTNAME 209
369: # define NEW_INIT_KLUDGE 210
370: # define XDELETED_NODE 211
371: # define DUMMY_LAST_NODE 212
372: #define yyclearin yychar = -1
373: #define yyerrok yyerrflag = 0
374: extern int yychar;
375: extern short yyerrflag;
376: #ifndef YYMAXDEPTH
377: #define YYMAXDEPTH 150
378: #endif
379: YYSTYPE yylval, yyval;
380: # define YYERRCODE 256
381:
382: # line 2251 "gram.y"
383:
384:
385: static void
386: check_tag()
387: /*
388: Allow the case of inline/virtual/overload as
389: modifiers of return type of form struct/class/union x foo()
390: SM, COLON, LC ==> real class declaration, not return type
391: */
392: {
393: switch ( NEXTTOK() ) {
394: case SM: case COLON: case LC:
395: declTag = 1;
396: break;
397: default:
398: declTag = 0;
399: break;
400: }
401: }
402:
403: static void
404: end_al( Plist mtn, int rst )
405: // unhide type names hidden by arg names
406: // mtn == saved modified_tn
407: {
408: if ( rst == 0 ) {
409: // not really an arg list, or we are entering a function def
410: // merge modified_tn and don't restore
411: if ( modified_tn == 0 ) modified_tn = mtn;
412: else {
413: for ( Plist l = modified_tn; l->l; l = l->l ) ;
414: l->l = mtn;
415: }
416: } else {
417: restore();
418: modified_tn = mtn;
419: }
420: }
421: static void
422: arg_redec( Pname fn )
423: {
424: if ( fn==0 || fn->tp->base != FCT )
425: error('i',"bad inline rewrite!");
426: Pname al = Pfct(fn->tp)->argtype;
427: Pname n = 0;
428: for ( ; al; al = al->n_list ) {
429: DB( if(Ydebug>=1)error('d',"arg_redec: %n %d",al,al->lex_level); );
430: // nested function args should have lex_level >= 1
431: if ( al->lex_level==1 && (n=ktbl->look(al->string,0)) )
432: n->hide();
433: else if ( al->lex_level>1 && (n=ktbl->look(al->string,LOCAL)) )
434: n->hide();
435: DB( if(Ydebug>=1)error('d'," %n",n); );
436: }
437: }
438:
439:
440: short yyexca[] ={
441: -1, 1,
442: 0, -1,
443: -2, 0,
444: -1, 26,
445: 40, 58,
446: 42, 58,
447: 46, 58,
448: -2, 63,
449: -1, 54,
450: 71, 46,
451: 72, 46,
452: -2, 45,
453: -1, 72,
454: 155, 360,
455: -2, 295,
456: -1, 77,
457: 13, 355,
458: 97, 355,
459: 123, 355,
460: 155, 355,
461: 156, 355,
462: 160, 355,
463: 178, 355,
464: 179, 355,
465: 182, 355,
466: -2, 295,
467: -1, 131,
468: 73, 109,
469: -2, 103,
470: -1, 328,
471: 40, 59,
472: 42, 59,
473: 46, 59,
474: -2, 65,
475: -1, 359,
476: 60, 20,
477: 71, 20,
478: -2, 120,
479: -1, 360,
480: 60, 19,
481: 71, 19,
482: -2, 119,
483: -1, 415,
484: 1, 210,
485: 3, 210,
486: 4, 210,
487: 7, 210,
488: 8, 210,
489: 9, 210,
490: 10, 210,
491: 13, 210,
492: 16, 210,
493: 19, 210,
494: 20, 210,
495: 23, 210,
496: 24, 210,
497: 28, 210,
498: 30, 210,
499: 33, 210,
500: 34, 210,
501: 39, 210,
502: 40, 210,
503: 46, 210,
504: 47, 210,
505: 50, 210,
506: 52, 210,
507: 54, 210,
508: 55, 210,
509: 72, 210,
510: 73, 210,
511: 80, 210,
512: 81, 210,
513: 82, 210,
514: 83, 210,
515: 84, 210,
516: 85, 210,
517: 86, 210,
518: 95, 210,
519: 97, 210,
520: 123, 210,
521: 156, 210,
522: 160, 210,
523: 178, 210,
524: 179, 210,
525: 182, 210,
526: 185, 210,
527: 209, 210,
528: -2, 0,
529: };
530: # define YYNPROD 375
531: # define YYLAST 3383
532: short yyact[]={
533:
534: 181, 532, 154, 558, 49, 525, 469, 69, 212, 16,
535: 70, 343, 184, 9, 190, 11, 156, 73, 344, 167,
536: 405, 362, 531, 10, 306, 240, 194, 210, 331, 234,
537: 76, 193, 311, 516, 541, 28, 17, 78, 318, 209,
538: 131, 165, 94, 208, 466, 328, 95, 233, 34, 83,
539: 35, 128, 60, 54, 218, 127, 127, 32, 128, 517,
540: 86, 89, 145, 314, 183, 12, 64, 151, 479, 76,
541: 93, 418, 407, 220, 129, 199, 78, 34, 185, 35,
542: 31, 196, 34, 138, 35, 309, 44, 126, 196, 50,
543: 125, 211, 201, 211, 180, 88, 302, 585, 76, 624,
544: 142, 570, 235, 500, 43, 78, 351, 363, 27, 444,
545: 413, 407, 415, 85, 256, 570, 341, 236, 309, 568,
546: 569, 34, 593, 35, 88, 59, 33, 20, 351, 88,
547: 506, 350, 39, 147, 148, 45, 213, 557, 450, 16,
548: 367, 368, 211, 224, 576, 211, 226, 315, 46, 82,
549: 84, 211, 243, 225, 185, 271, 83, 262, 576, 285,
550: 286, 287, 288, 289, 290, 291, 292, 293, 295, 44,
551: 515, 37, 282, 307, 308, 284, 296, 435, 34, 82,
552: 35, 294, 355, 283, 250, 237, 338, 43, 246, 337,
553: 82, 84, 304, 44, 252, 330, 227, 305, 365, 352,
554: 37, 501, 436, 286, 356, 37, 329, 45, 204, 329,
555: 247, 43, 81, 30, 249, 357, 333, 316, 45, 300,
556: 566, 60, 250, 301, 564, 216, 467, 329, 563, 80,
557: 553, 552, 60, 211, 309, 325, 45, 339, 231, 91,
558: 326, 45, 45, 144, 37, 143, 358, 361, 60, 92,
559: 206, 39, 370, 149, 372, 373, 374, 375, 376, 377,
560: 378, 379, 380, 381, 382, 383, 384, 385, 386, 387,
561: 388, 389, 366, 390, 334, 369, 349, 391, 396, 60,
562: 45, 256, 399, 354, 353, 254, 255, 80, 44, 215,
563: 638, 32, 393, 296, 59, 395, 402, 285, 371, 403,
564: 74, 37, 82, 394, 75, 59, 43, 550, 414, 520,
565: 71, 211, 74, 494, 31, 82, 75, 411, 412, 298,
566: 397, 59, 400, 196, 262, 82, 498, 74, 134, 424,
567: 211, 75, 60, 347, 327, 360, 423, 45, 30, 559,
568: 410, 408, 299, 422, 464, 409, 420, 205, 463, 432,
569: 438, 32, 59, 443, 417, 458, 82, 340, 457, 427,
570: 428, 433, 429, 419, 437, 439, 243, 38, 451, 431,
571: 324, 312, 238, 448, 31, 297, 39, 34, 39, 35,
572: 447, 442, 38, 446, 214, 38, 449, 74, 189, 587,
573: 561, 75, 34, 454, 35, 441, 66, 503, 38, 302,
574: 303, 65, 26, 232, 296, 59, 47, 62, 637, 275,
575: 455, 590, 30, 44, 474, 44, 629, 51, 83, 460,
576: 74, 83, 319, 459, 75, 275, 604, 461, 462, 565,
577: 90, 43, 602, 43, 133, 471, 601, 599, 424, 424,
578: 476, 477, 555, 132, 140, 423, 423, 554, 480, 141,
579: 39, 432, 473, 491, 489, 44, 492, 481, 44, 482,
580: 448, 485, 45, 472, 45, 586, 465, 447, 484, 150,
581: 274, 187, 434, 43, 26, 495, 43, 81, 497, 459,
582: 459, 187, 490, 336, 275, 502, 496, 44, 248, 251,
583: 416, 505, 26, 281, 26, 277, 510, 278, 280, 508,
584: 37, 504, 507, 445, 45, 43, 296, 45, 519, 513,
585: 239, 511, 523, 524, 497, 37, 514, 145, 521, 48,
586: 471, 549, 512, 8, 551, 60, 509, 16, 7, 556,
587: 522, 530, 26, 38, 342, 74, 45, 230, 560, 75,
588: 562, 478, 242, 26, 313, 187, 26, 187, 276, 483,
589: 588, 45, 26, 191, 486, 549, 549, 187, 591, 595,
590: 597, 16, 77, 425, 74, 530, 603, 195, 75, 26,
591: 549, 549, 549, 549, 549, 549, 549, 549, 549, 549,
592: 549, 549, 549, 549, 549, 549, 549, 549, 592, 122,
593: 625, 310, 596, 626, 598, 71, 600, 74, 59, 166,
594: 192, 75, 605, 606, 607, 608, 609, 610, 611, 612,
595: 613, 614, 615, 616, 617, 618, 619, 620, 621, 622,
596: 623, 526, 347, 518, 499, 146, 55, 30, 640, 222,
597: 53, 36, 642, 631, 26, 632, 633, 130, 635, 549,
598: 40, 645, 646, 359, 51, 175, 22, 36, 137, 650,
599: 649, 18, 347, 1, 36, 36, 468, 30, 38, 475,
600: 74, 52, 63, 641, 75, 39, 470, 32, 643, 63,
601: 63, 644, 2, 0, 0, 79, 24, 187, 52, 0,
602: 398, 0, 401, 0, 0, 652, 26, 52, 52, 0,
603: 31, 0, 24, 72, 0, 39, 0, 0, 0, 24,
604: 24, 140, 44, 23, 0, 0, 347, 0, 0, 178,
605: 19, 30, 26, 0, 0, 188, 187, 440, 198, 0,
606: 43, 0, 426, 85, 0, 188, 58, 0, 42, 298,
607: 72, 26, 44, 87, 19, 38, 198, 71, 198, 74,
608: 0, 0, 124, 75, 0, 34, 0, 35, 0, 39,
609: 43, 45, 299, 36, 32, 179, 0, 0, 0, 187,
610: 0, 36, 72, 0, 0, 72, 83, 67, 52, 68,
611: 38, 0, 42, 0, 0, 319, 229, 31, 36, 0,
612: 34, 45, 35, 0, 0, 297, 44, 198, 0, 188,
613: 198, 188, 88, 63, 0, 0, 198, 26, 0, 38,
614: 0, 188, 0, 44, 43, 0, 24, 0, 0, 34,
615: 21, 35, 25, 198, 0, 30, 36, 0, 39, 0,
616: 570, 43, 52, 24, 568, 569, 219, 36, 83, 0,
617: 0, 63, 217, 0, 36, 45, 0, 0, 39, 319,
618: 19, 0, 52, 36, 30, 0, 0, 26, 0, 63,
619: 335, 0, 45, 39, 0, 44, 57, 19, 52, 0,
620: 187, 24, 42, 576, 574, 44, 0, 0, 37, 0,
621: 0, 41, 321, 43, 36, 44, 0, 52, 198, 24,
622: 0, 0, 39, 43, 81, 0, 124, 52, 52, 52,
623: 44, 135, 0, 43, 29, 58, 187, 186, 0, 187,
624: 320, 0, 0, 37, 45, 0, 317, 0, 43, 51,
625: 51, 0, 0, 19, 45, 41, 332, 0, 0, 44,
626: 26, 188, 317, 219, 45, 0, 72, 36, 0, 0,
627: 198, 281, 37, 277, 39, 278, 280, 43, 61, 45,
628: 0, 348, 52, 176, 52, 52, 25, 364, 0, 0,
629: 0, 36, 335, 317, 26, 0, 198, 0, 0, 0,
630: 188, 0, 0, 335, 0, 0, 52, 136, 45, 0,
631: 0, 44, 39, 152, 135, 198, 71, 430, 74, 71,
632: 207, 74, 75, 134, 0, 75, 276, 155, 176, 43,
633: 135, 52, 52, 0, 164, 335, 321, 321, 173, 174,
634: 406, 0, 72, 188, 179, 41, 317, 0, 124, 44,
635: 161, 162, 0, 0, 157, 0, 158, 39, 160, 159,
636: 45, 0, 0, 0, 320, 320, 0, 43, 29, 0,
637: 0, 186, 0, 39, 347, 0, 332, 335, 335, 30,
638: 0, 198, 39, 0, 174, 171, 169, 170, 172, 30,
639: 168, 346, 0, 0, 44, 348, 348, 0, 45, 163,
640: 0, 177, 52, 0, 0, 0, 0, 0, 364, 0,
641: 44, 279, 43, 139, 0, 0, 36, 39, 0, 44,
642: 0, 0, 52, 0, 52, 0, 52, 39, 43, 133,
643: 570, 22, 0, 0, 568, 569, 0, 43, 579, 0,
644: 578, 256, 0, 45, 188, 254, 255, 0, 256, 0,
645: 406, 406, 254, 255, 44, 0, 264, 0, 265, 45,
646: 36, 24, 0, 0, 153, 0, 348, 0, 45, 345,
647: 0, 577, 43, 576, 574, 63, 0, 0, 0, 0,
648: 188, 0, 43, 188, 262, 260, 348, 52, 348, 263,
649: 348, 262, 260, 52, 52, 19, 0, 0, 0, 0,
650: 0, 0, 0, 45, 198, 24, 72, 0, 546, 0,
651: 542, 539, 0, 45, 543, 540, 547, 545, 0, 0,
652: 42, 0, 0, 535, 570, 72, 544, 533, 568, 569,
653: 155, 176, 579, 0, 578, 528, 0, 164, 198, 58,
654: 536, 173, 0, 0, 0, 0, 534, 179, 0, 0,
655: 0, 348, 0, 161, 162, 0, 0, 157, 0, 158,
656: 0, 160, 159, 0, 0, 577, 575, 576, 574, 0,
657: 118, 0, 0, 0, 0, 0, 0, 0, 0, 527,
658: 415, 0, 0, 0, 117, 0, 0, 537, 171, 169,
659: 170, 172, 30, 168, 0, 0, 0, 0, 0, 0,
660: 0, 110, 163, 111, 529, 119, 0, 112, 113, 0,
661: 0, 98, 0, 99, 0, 96, 97, 0, 0, 106,
662: 0, 107, 0, 0, 0, 101, 100, 108, 109, 0,
663: 538, 116, 120, 570, 0, 571, 0, 568, 569, 42,
664: 0, 579, 0, 578, 0, 0, 30, 573, 572, 580,
665: 0, 115, 105, 103, 104, 102, 114, 0, 123, 0,
666: 0, 0, 0, 41, 0, 0, 0, 548, 0, 0,
667: 0, 0, 0, 0, 577, 575, 576, 574, 0, 0,
668: 0, 0, 0, 0, 39, 43, 29, 152, 0, 186,
669: 0, 42, 0, 0, 0, 0, 0, 0, 0, 0,
670: 0, 155, 176, 42, 0, 0, 0, 0, 164, 0,
671: 0, 0, 173, 0, 0, 0, 45, 0, 179, 0,
672: 0, 44, 0, 25, 161, 162, 0, 0, 157, 0,
673: 158, 0, 160, 159, 0, 0, 0, 0, 0, 43,
674: 0, 121, 0, 0, 0, 0, 0, 0, 0, 39,
675: 0, 182, 0, 152, 0, 0, 0, 42, 174, 171,
676: 169, 170, 172, 30, 168, 0, 0, 155, 176, 0,
677: 45, 0, 0, 163, 164, 197, 0, 0, 173, 0,
678: 0, 0, 241, 0, 179, 0, 44, 25, 0, 0,
679: 161, 162, 0, 0, 157, 0, 158, 0, 160, 159,
680: 0, 39, 0, 0, 43, 29, 0, 0, 186, 0,
681: 570, 0, 571, 39, 568, 569, 0, 0, 579, 0,
682: 578, 0, 0, 0, 174, 171, 169, 170, 172, 30,
683: 168, 244, 245, 0, 41, 45, 0, 0, 153, 163,
684: 0, 197, 0, 0, 0, 421, 41, 0, 0, 0,
685: 44, 577, 575, 576, 574, 0, 43, 29, 0, 0,
686: 186, 0, 0, 0, 152, 0, 0, 39, 43, 29,
687: 0, 0, 186, 0, 0, 0, 256, 0, 155, 176,
688: 254, 255, 0, 0, 264, 164, 265, 45, 0, 173,
689: 0, 0, 0, 0, 0, 179, 0, 0, 0, 45,
690: 41, 161, 162, 0, 153, 157, 0, 158, 0, 160,
691: 159, 0, 0, 0, 0, 0, 0, 263, 261, 262,
692: 260, 0, 43, 29, 0, 0, 186, 0, 182, 0,
693: 547, 0, 0, 0, 0, 174, 171, 169, 170, 172,
694: 30, 168, 0, 0, 155, 176, 0, 0, 0, 0,
695: 163, 164, 177, 45, 0, 173, 0, 0, 0, 0,
696: 0, 179, 0, 155, 176, 0, 0, 161, 162, 0,
697: 164, 157, 0, 158, 173, 160, 159, 0, 39, 0,
698: 179, 0, 627, 0, 0, 0, 161, 162, 0, 0,
699: 157, 0, 158, 0, 160, 159, 0, 0, 0, 0,
700: 0, 174, 171, 169, 170, 172, 30, 168, 0, 0,
701: 0, 0, 0, 0, 0, 153, 163, 0, 177, 0,
702: 174, 171, 169, 170, 172, 30, 168, 0, 0, 155,
703: 176, 0, 0, 43, 0, 163, 164, 177, 0, 0,
704: 173, 0, 0, 0, 39, 0, 179, 0, 589, 0,
705: 0, 0, 161, 162, 0, 0, 157, 0, 158, 0,
706: 160, 159, 0, 39, 45, 0, 0, 0, 256, 0,
707: 257, 0, 254, 255, 0, 0, 264, 0, 265, 0,
708: 0, 548, 259, 258, 266, 0, 174, 171, 169, 170,
709: 172, 30, 168, 0, 0, 0, 0, 0, 0, 43,
710: 273, 163, 0, 177, 0, 0, 0, 0, 0, 263,
711: 261, 262, 260, 0, 155, 176, 0, 0, 43, 0,
712: 0, 164, 0, 0, 0, 173, 0, 0, 0, 39,
713: 45, 179, 0, 392, 0, 0, 0, 161, 162, 0,
714: 0, 157, 0, 158, 0, 160, 159, 0, 0, 45,
715: 570, 0, 571, 0, 568, 569, 0, 0, 579, 0,
716: 578, 0, 0, 0, 573, 572, 273, 0, 0, 0,
717: 0, 174, 171, 169, 170, 172, 30, 168, 155, 176,
718: 0, 0, 0, 0, 43, 164, 163, 0, 177, 173,
719: 0, 577, 575, 576, 574, 179, 0, 272, 0, 0,
720: 0, 161, 162, 0, 0, 157, 0, 158, 0, 160,
721: 159, 0, 0, 0, 39, 45, 0, 0, 0, 256,
722: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
723: 0, 0, 0, 259, 258, 174, 171, 169, 170, 172,
724: 30, 168, 0, 0, 0, 0, 0, 0, 155, 176,
725: 163, 273, 177, 0, 0, 164, 0, 0, 0, 173,
726: 263, 261, 262, 260, 0, 179, 0, 0, 0, 43,
727: 0, 161, 162, 0, 0, 157, 0, 158, 39, 160,
728: 159, 0, 0, 0, 0, 0, 0, 0, 0, 0,
729: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
730: 45, 0, 0, 0, 0, 174, 171, 169, 170, 172,
731: 30, 168, 155, 176, 0, 273, 0, 0, 0, 164,
732: 163, 0, 177, 173, 0, 0, 42, 0, 0, 179,
733: 0, 0, 0, 43, 0, 161, 162, 0, 0, 157,
734: 0, 158, 0, 160, 159, 0, 0, 0, 39, 0,
735: 0, 0, 0, 407, 0, 0, 0, 0, 0, 0,
736: 0, 0, 0, 34, 45, 35, 0, 0, 152, 323,
737: 171, 169, 170, 172, 30, 168, 0, 0, 4, 13,
738: 0, 0, 155, 176, 163, 273, 177, 0, 0, 164,
739: 0, 42, 0, 173, 0, 0, 0, 0, 30, 179,
740: 202, 0, 32, 43, 0, 161, 162, 0, 0, 200,
741: 57, 158, 39, 160, 159, 0, 0, 0, 38, 0,
742: 0, 0, 0, 0, 0, 31, 0, 0, 34, 0,
743: 35, 0, 182, 0, 45, 0, 39, 0, 0, 174,
744: 171, 169, 170, 172, 30, 168, 0, 0, 0, 273,
745: 3, 0, 6, 0, 163, 155, 176, 0, 21, 0,
746: 0, 0, 164, 30, 0, 0, 173, 43, 0, 41,
747: 42, 0, 179, 44, 0, 25, 0, 0, 161, 162,
748: 0, 32, 0, 0, 0, 0, 37, 0, 0, 0,
749: 0, 43, 61, 0, 0, 0, 0, 38, 45, 0,
750: 0, 39, 0, 0, 31, 0, 0, 34, 0, 35,
751: 0, 0, 174, 171, 169, 170, 172, 30, 168, 0,
752: 0, 0, 45, 0, 0, 0, 0, 163, 0, 177,
753: 0, 221, 203, 0, 41, 42, 0, 21, 44, 0,
754: 0, 0, 30, 0, 0, 0, 32, 0, 0, 0,
755: 0, 37, 0, 0, 25, 39, 43, 29, 0, 42,
756: 5, 0, 38, 14, 0, 0, 0, 0, 45, 31,
757: 0, 0, 34, 0, 35, 0, 0, 0, 0, 0,
758: 39, 0, 0, 0, 0, 0, 15, 45, 0, 0,
759: 0, 0, 273, 0, 0, 0, 34, 0, 35, 0,
760: 0, 0, 21, 0, 0, 0, 0, 30, 0, 0,
761: 43, 0, 0, 41, 0, 0, 0, 44, 0, 25,
762: 0, 0, 0, 0, 0, 0, 363, 0, 0, 0,
763: 37, 30, 228, 0, 0, 43, 29, 0, 42, 186,
764: 0, 45, 223, 57, 0, 39, 42, 0, 0, 32,
765: 0, 0, 0, 0, 42, 0, 0, 32, 0, 0,
766: 0, 0, 0, 0, 0, 38, 45, 0, 0, 39,
767: 0, 0, 31, 38, 0, 34, 0, 35, 41, 0,
768: 31, 0, 44, 34, 0, 35, 0, 0, 0, 0,
769: 0, 34, 0, 35, 66, 37, 0, 56, 0, 0,
770: 43, 29, 41, 0, 186, 62, 44, 0, 0, 0,
771: 30, 0, 0, 21, 0, 0, 0, 32, 30, 37,
772: 0, 0, 57, 0, 43, 61, 30, 487, 488, 0,
773: 57, 45, 0, 38, 0, 0, 0, 0, 57, 0,
774: 31, 0, 0, 34, 0, 35, 0, 0, 39, 0,
775: 0, 0, 0, 0, 0, 45, 39, 0, 0, 0,
776: 0, 0, 0, 0, 39, 0, 570, 0, 571, 0,
777: 568, 569, 0, 21, 579, 0, 578, 0, 30, 0,
778: 573, 41, 0, 0, 0, 44, 0, 0, 0, 41,
779: 88, 0, 0, 44, 0, 0, 0, 41, 37, 0,
780: 0, 44, 0, 43, 61, 0, 37, 577, 575, 576,
781: 574, 43, 61, 0, 37, 0, 39, 0, 0, 43,
782: 61, 0, 0, 0, 0, 0, 0, 0, 0, 0,
783: 0, 0, 651, 0, 45, 0, 0, 0, 0, 0,
784: 0, 256, 45, 257, 0, 254, 255, 0, 0, 264,
785: 45, 265, 0, 44, 0, 259, 258, 266, 267, 270,
786: 0, 253, 269, 0, 0, 0, 37, 0, 0, 0,
787: 0, 43, 0, 0, 0, 0, 0, 0, 0, 0,
788: 0, 268, 263, 261, 262, 260, 0, 0, 0, 256,
789: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
790: 0, 0, 45, 259, 258, 266, 267, 270, 0, 253,
791: 269, 648, 0, 0, 0, 256, 0, 257, 0, 254,
792: 255, 0, 0, 264, 0, 265, 0, 647, 0, 268,
793: 263, 261, 262, 260, 256, 0, 257, 0, 254, 255,
794: 0, 0, 264, 0, 265, 0, 0, 0, 259, 258,
795: 266, 267, 270, 0, 253, 269, 263, 261, 262, 260,
796: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
797: 0, 0, 639, 0, 268, 263, 261, 262, 260, 256,
798: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
799: 0, 0, 0, 259, 258, 266, 267, 270, 0, 253,
800: 269, 0, 0, 0, 0, 0, 0, 0, 0, 0,
801: 0, 0, 0, 0, 0, 0, 0, 0, 0, 268,
802: 263, 261, 262, 260, 570, 0, 571, 0, 568, 569,
803: 0, 0, 579, 0, 578, 0, 0, 0, 573, 572,
804: 580, 581, 584, 636, 567, 583, 0, 0, 0, 0,
805: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
806: 0, 0, 0, 0, 582, 577, 575, 576, 574, 256,
807: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
808: 0, 0, 0, 259, 258, 266, 267, 270, 634, 253,
809: 269, 0, 0, 0, 0, 0, 0, 0, 0, 0,
810: 0, 0, 0, 0, 0, 630, 0, 0, 0, 268,
811: 263, 261, 262, 260, 256, 0, 257, 0, 254, 255,
812: 0, 0, 264, 0, 265, 0, 0, 0, 259, 258,
813: 266, 267, 270, 0, 253, 269, 0, 0, 0, 0,
814: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
815: 0, 0, 0, 0, 268, 263, 261, 262, 260, 570,
816: 0, 571, 0, 568, 569, 0, 0, 579, 0, 578,
817: 0, 0, 0, 573, 572, 580, 581, 584, 0, 567,
818: 583, 628, 0, 0, 0, 0, 0, 0, 0, 0,
819: 0, 0, 0, 0, 0, 0, 0, 0, 0, 582,
820: 577, 575, 576, 574, 256, 0, 257, 0, 254, 255,
821: 0, 0, 264, 0, 265, 0, 0, 0, 259, 258,
822: 266, 267, 270, 0, 253, 269, 594, 0, 0, 0,
823: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
824: 0, 0, 493, 0, 268, 263, 261, 262, 260, 256,
825: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
826: 0, 0, 0, 259, 258, 266, 267, 270, 0, 253,
827: 269, 0, 0, 0, 0, 0, 0, 0, 0, 0,
828: 0, 0, 0, 0, 0, 0, 0, 456, 0, 268,
829: 263, 261, 262, 260, 256, 0, 257, 0, 254, 255,
830: 0, 0, 264, 0, 265, 0, 0, 0, 259, 258,
831: 266, 267, 270, 0, 253, 269, 0, 0, 0, 0,
832: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
833: 0, 0, 453, 0, 268, 263, 261, 262, 260, 256,
834: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
835: 0, 0, 0, 259, 258, 266, 267, 270, 0, 253,
836: 269, 0, 0, 0, 0, 0, 0, 0, 0, 0,
837: 0, 0, 0, 0, 0, 0, 0, 0, 0, 268,
838: 263, 261, 262, 260, 256, 0, 257, 0, 254, 255,
839: 0, 0, 264, 0, 265, 0, 0, 0, 259, 258,
840: 266, 267, 270, 452, 253, 269, 0, 0, 0, 0,
841: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
842: 404, 0, 0, 0, 268, 263, 261, 262, 260, 256,
843: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
844: 0, 0, 0, 259, 258, 266, 267, 270, 0, 253,
845: 269, 0, 0, 0, 0, 0, 0, 0, 0, 0,
846: 0, 0, 0, 0, 0, 0, 0, 322, 0, 268,
847: 263, 261, 262, 260, 256, 0, 257, 0, 254, 255,
848: 0, 0, 264, 0, 265, 0, 0, 0, 259, 258,
849: 266, 267, 270, 0, 253, 269, 0, 0, 0, 0,
850: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
851: 0, 0, 0, 0, 268, 263, 261, 262, 260, 570,
852: 0, 571, 0, 568, 569, 0, 0, 579, 0, 578,
853: 0, 0, 0, 573, 572, 580, 581, 584, 0, 567,
854: 583, 0, 0, 0, 0, 0, 0, 0, 0, 0,
855: 0, 0, 0, 0, 0, 0, 0, 0, 0, 582,
856: 577, 575, 576, 574, 570, 0, 571, 0, 568, 569,
857: 0, 0, 579, 0, 578, 0, 0, 0, 573, 572,
858: 580, 581, 584, 256, 567, 257, 0, 254, 255, 0,
859: 0, 264, 0, 265, 0, 0, 0, 259, 258, 266,
860: 267, 270, 0, 253, 582, 577, 575, 576, 574, 0,
861: 0, 0, 0, 0, 256, 0, 257, 0, 254, 255,
862: 0, 0, 264, 268, 263, 261, 262, 260, 259, 258,
863: 266, 267, 270, 570, 253, 571, 0, 568, 569, 0,
864: 0, 579, 0, 578, 0, 0, 0, 573, 572, 580,
865: 581, 584, 0, 0, 268, 263, 261, 262, 260, 256,
866: 0, 257, 0, 254, 255, 0, 0, 264, 0, 265,
867: 0, 0, 0, 259, 577, 575, 576, 574, 256, 0,
868: 257, 0, 254, 255, 0, 0, 264, 0, 265, 0,
869: 0, 0, 259, 258, 266, 267, 270, 0, 0, 0,
870: 263, 261, 262, 260, 0, 0, 0, 0, 0, 0,
871: 0, 0, 0, 0, 0, 0, 0, 0, 0, 263,
872: 261, 262, 260 };
873: short yypact[]={
874:
875: 2038,-1000,-1000,-1000,-1000, 75,-1000,-1000,-1000,-1000,
876: -1000,-1000,-1000, 366,-1000, 9,2285, 697,-1000, 522,
877: -1000, 242, 33,2353, 730,-1000, 181,-1000,-1000,-1000,
878: 191, -53,1221,-1000, -7, -10,-122, -23,-1000,-1000,
879: -1000, 910, 894,-1000,-1000, 181,-1000, 19, 187, 185,
880: -1000,-1000, -74,-123, 555, 62,-1000,-1000, 522,-1000,
881: -1000,-1000, 184, 643,-1000, 181, 964,1515,-1000, 849,
882: -1000, 347,1338,-1000, 964,-1000,-1000,2019,-1000, 849,
883: 267,-1000,-1000,-1000,-1000, 205, 270, 522,-1000, 939,
884: 1404,-1000,1404,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
885: -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
886: 343, 246,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,
887: -1000,-1000, 128,-1000,-1000,-1000,-1000,-1000, -24,-1000,
888: 2117, 169, 181,-1000,-1000,-1000, 22, 44,-1000,-1000,
889: -1000,1404, 331,1286,1404, 849,-1000, 327,-1000,-1000,
890: 1404,3193,1815, 461, 891, 715,1885,1885,1885,1885,
891: 1885,1885,1885,1885,1885,-1000,-1000,1404,-1000,-1000,
892: -1000,-1000,-1000,-1000,-1000, 295,1221, 359, 360,-1000,
893: 120,3193,1515, 49,-1000,2285,-1000, 181, 298,-1000,
894: 330, -8, 146,-1000,-1000,-1000, 759, 359, 705,3084,
895: 1949, 329,-1000, 730,-1000,-1000, 267,-1000, 135,-1000,
896: -1000,3224,2301, 156,-1000,-1000,-1000,-1000,-1000, -2,
897: -1000,-1000,-1000,-1000,-1000, 117, 114,-1000, 168, 33,
898: 43, 954,1404, 57,-1000, 129, 22, 135, 110, 144,
899: -1000, 255, 9,2206,-1000,-1000, 138, 16,1515,-1000,
900: 555, 964, 135, 964, 964, 964, 964, 964, 964, 964,
901: 964, 964, 964, 964, 964, 964, 964, 964, 964, 964,
902: 964, 891, 964, 386,1751, 715,-1000, 964, 919,1885,
903: 919,1515,-1000,-1000,1338, 453, 891, 891, 891, 891,
904: 453, 453, 453, 453,2092,3039,1973,-1000,1221, 811,
905: -1000,-1000,1515,1515,-1000, 36, 39,-1000,-1000,-1000,
906: 1404, -26,-1000, 322,1350,-1000,1515,-1000, 493,-1000,
907: 695, 342,-1000, 321,-1000, -26, 936,-1000,-1000,1404,
908: -1000, 258, -2,-1000,-1000,-115,-1000,-1000,-1000,-1000,
909: 105,-1000, 131,-1000,-1000, 253, 542,-1000,-1000, 135,
910: -1000, 22, 964, 35,-1000,-1000,-1000,1286,-1000, 181,
911: -1000,-1000, 345,-1000, 27, 66, 39,-1000,-1000,-1000,
912: 3193,-1000,3193, 64, 64,-1000,1486,3269,2525, 231,
913: 1058,-1000,1051,1051,1051,1829,1678,3193,3193,2994,
914: 2949, 891, 964,-1000,-1000,1338,2904,-1000,-1000, 453,
915: -1000,-1000, 317, 314,-1000, 378, 32, 71,-1000,-1000,
916: -1000, 307, 303,-1000,-1000, -30, 626, 135,-1000,-1000,
917: -1000,-1000,-1000,-1000,-1000,-1000,-1000, 345, 618, 358,
918: 358,-1000,-1000, 258, -59,-1000, 954,-1000, 572,-1000,
919: 572,-1000,-1000,3193,-1000,2182,-1000,-1000,-1000, 345,
920: -1000,-1000, 964,1885,2859, 272,-1000,-1000, 715,-1000,
921: -1000, 258, 285,-1000,-1000,-1000,-1000, 29, 130,-1000,
922: 1515, 357,-1000, -26,1515,-1000,-1000,-1000,-1000,-1000,
923: -1000,-1000,-1000,-1000,-1000,-1000, 58,-1000,-1000,2293,
924: 270,3288, 891,1885, 715,-1000,-1000, 849, 345, -15,
925: -1000, 626, 268,1515,-1000, 165,-1000, 9, 9, 270,
926: 891,-1000,-1000,-1000,-1000,-1000,-1000,-1000,1167,-1000,
927: -1000, 266, 39, 162, 161,-1000,-1000,-1000, 964, 56,
928: -1000,-1000,-1000, 299, 299, 350, 299, 159, 155,-1000,
929: 151,3129,-1000,-1000, 17,-1000, 349,1666, 402, 891,
930: -1000,-1000,1167,1581,-1000, 50,2814, 39,-1000, 964,
931: -1000,-1000,-1000,-1000,-1000, 964,-1000,1581,1581,1581,
932: 1581,1581,1581,1581,1581,1581,1581,1581,1581,1581,
933: 1581,1581,1581,1581,1581,-1000,-1000, 18, 891, 964,
934: 1600,-1000,2769,-1000,-1000,-1000, 404,2724,-1000,-1000,
935: -1000,-1000,-1000,2679,-1000,3174, 51, 51,-1000,1134,
936: 2376,1420, 65,1040,-1000, 770, 770, 770,1760,1243,
937: 3174,3174,2634, 369, 249,2589, 891, 964,-1000,-1000,
938: -1000, 964,-1000,-1000,-1000,-1000,1581, 299,-1000,1885,
939: 2544,-1000,2499,-1000,3243,-1000, 891,1885, 964, 891,
940: 2451,-1000,-1000 };
941: short yypgo[]={
942:
943: 0, 672, 65, 15, 22, 7, 24, 656, 6, 12,
944: 653, 17, 703, 8, 651, 35, 47, 29, 40, 18,
945: 648, 640, 108, 637, 629, 66, 626, 127, 36, 26,
946: 624, 33, 623, 1, 5, 621, 600, 14, 0, 34,
947: 2, 41, 599, 20, 16, 54, 46, 589, 38, 21,
948: 31, 567, 10, 553, 28, 27, 3, 126, 645, 401,
949: 709, 630, 549, 42, 544, 542, 541, 4, 537, 534,
950: 11, 32, 675, 39, 43, 528, 523, 519, 510, 503,
951: 502, 499, 64, 491, 490, 489, 488, 403, 45, 25,
952: 483, 472, 466, 465, 447, 442, 437, 436, 432, 429,
953: 426, 19, 414 };
954: short yyr1[]={
955:
956: 0, 10, 10, 10, 10, 10, 10, 10, 76, 77,
957: 79, 75, 62, 62, 62, 80, 62, 81, 62, 67,
958: 67, 1, 1, 1, 1, 1, 2, 2, 4, 4,
959: 4, 3, 3, 3, 83, 66, 82, 84, 6, 6,
960: 7, 7, 8, 8, 5, 5, 25, 85, 25, 25,
961: 86, 25, 26, 26, 9, 9, 87, 88, 60, 60,
962: 60, 14, 14, 14, 14, 14, 14, 14, 14, 13,
963: 13, 13, 13, 13, 13, 74, 74, 73, 73, 20,
964: 20, 15, 15, 15, 16, 16, 78, 78, 78, 65,
965: 65, 89, 89, 89, 49, 49, 49, 49, 17, 17,
966: 17, 90, 22, 22, 22, 22, 91, 91, 68, 68,
967: 69, 69, 70, 70, 70, 70, 70, 21, 21, 18,
968: 18, 19, 19, 23, 23, 23, 24, 24, 24, 24,
969: 24, 24, 24, 24, 27, 27, 27, 27, 63, 63,
970: 63, 63, 63, 63, 63, 63, 63, 63, 63, 63,
971: 63, 63, 63, 63, 63, 63, 63, 63, 63, 63,
972: 63, 63, 63, 63, 58, 58, 59, 59, 71, 71,
973: 28, 28, 28, 28, 28, 28, 28, 28, 28, 28,
974: 28, 28, 28, 28, 28, 28, 28, 48, 48, 48,
975: 48, 48, 48, 48, 54, 54, 54, 43, 43, 43,
976: 43, 43, 45, 45, 30, 30, 30, 31, 32, 56,
977: 92, 33, 33, 33, 35, 35, 35, 35, 93, 35,
978: 35, 95, 94, 34, 34, 34, 34, 34, 34, 34,
979: 34, 34, 34, 96, 34, 34, 97, 34, 98, 34,
980: 99, 34, 100, 34, 37, 36, 36, 29, 29, 39,
981: 39, 39, 39, 39, 39, 39, 39, 39, 39, 39,
982: 39, 39, 39, 39, 39, 39, 39, 39, 39, 39,
983: 39, 39, 38, 38, 38, 38, 38, 38, 38, 38,
984: 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
985: 38, 38, 38, 38, 38, 38, 40, 40, 40, 40,
986: 40, 40, 40, 40, 40, 40, 40, 40, 40, 40,
987: 40, 40, 40, 40, 40, 40, 40, 40, 40, 40,
988: 40, 40, 40, 40, 40, 40, 42, 42, 42, 42,
989: 42, 42, 42, 61, 57, 57, 57, 41, 41, 41,
990: 41, 41, 41, 41, 44, 101, 47, 47, 47, 47,
991: 46, 55, 51, 102, 51, 72, 52, 53, 53, 50,
992: 50, 64, 64, 64, 12, 12, 12, 12, 12, 12,
993: 12, 12, 12, 11, 11 };
994: short yyr2[]={
995:
996: 0, 1, 1, 1, 2, 1, 1, 1, 6, 0,
997: 0, 7, 1, 1, 2, 0, 5, 0, 6, 1,
998: 1, 1, 1, 1, 1, 5, 4, 2, 6, 5,
999: 5, 5, 4, 4, 0, 4, 0, 0, 3, 0,
1000: 1, 3, 3, 4, 2, 0, 1, 0, 4, 2,
1001: 0, 4, 1, 3, 3, 2, 1, 1, 1, 4,
1002: 4, 1, 1, 1, 2, 4, 1, 1, 1, 1,
1003: 2, 2, 2, 2, 2, 3, 1, 1, 1, 1,
1004: 1, 4, 5, 2, 1, 3, 3, 1, 0, 1,
1005: 1, 2, 2, 2, 1, 2, 2, 2, 1, 3,
1006: 0, 0, 5, 2, 5, 2, 0, 2, 2, 0,
1007: 1, 3, 1, 2, 2, 3, 3, 2, 4, 1,
1008: 1, 1, 1, 2, 0, 2, 1, 2, 2, 1,
1009: 1, 1, 2, 3, 1, 2, 2, 2, 1, 1,
1010: 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1011: 1, 1, 2, 2, 1, 1, 1, 1, 1, 1,
1012: 1, 1, 1, 1, 1, 2, 2, 1, 0, 2,
1013: 2, 4, 2, 4, 6, 4, 4, 6, 1, 3,
1014: 2, 4, 2, 2, 2, 2, 3, 1, 2, 0,
1015: 2, 2, 2, 3, 0, 2, 2, 0, 2, 2,
1016: 4, 4, 0, 2, 0, 2, 2, 2, 0, 3,
1017: 0, 4, 2, 3, 1, 1, 1, 2, 0, 5,
1018: 4, 0, 2, 2, 1, 3, 3, 1, 1, 1,
1019: 3, 5, 3, 0, 9, 3, 0, 4, 0, 4,
1020: 0, 5, 0, 4, 1, 1, 3, 1, 3, 3,
1021: 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
1022: 3, 3, 3, 3, 3, 3, 5, 2, 5, 3,
1023: 6, 1, 3, 3, 3, 3, 3, 3, 3, 3,
1024: 3, 3, 3, 3, 3, 3, 3, 3, 3, 5,
1025: 2, 5, 3, 6, 1, 0, 2, 2, 3, 3,
1026: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
1027: 2, 4, 3, 3, 3, 3, 3, 1, 1, 3,
1028: 1, 1, 1, 1, 1, 1, 4, 4, 5, 5,
1029: 6, 6, 4, 4, 1, 1, 2, 1, 2, 2,
1030: 3, 2, 3, 3, 4, 1, 1, 1, 2, 2,
1031: 2, 2, 2, 0, 5, 1, 5, 3, 1, 1,
1032: 0, 0, 1, 2, 1, 1, 2, 2, 2, 2,
1033: 1, 3, 2, 3, 1 };
1034: short yychk[]={
1035:
1036: -1000, -10, -1, 72, 0, 182, 74, -75, -76, -9,
1037: -4, -3, -2, 1, 185, 208, -13, -28, -14, -60,
1038: -27, 80, -58, -12, -72, 97, -59, -22, -15, 179,
1039: 85, 47, 24, -57, 50, 52, -61, 173, 40, 123,
1040: -21, 156, 13, 178, 160, 209, 73, 40, -77, -67,
1041: 80, -59, -58, -61, -28, -26, 72, 97, -60, -22,
1042: -15, 179, 80, -58, -25, -59, 69, 70, 72, -5,
1043: -52, 40, -72, -11, 42, 46, -52, 40, -11, -72,
1044: 45, 179, -57, 123, -27, 80, -28, -60, 97, -28,
1045: -87, 58, 58, 123, -63, -46, 54, 55, 50, 52,
1046: 65, 64, 94, 92, 93, 91, 58, 60, 66, 67,
1047: 40, 42, 46, 47, 95, 90, 70, 23, 9, 44,
1048: 71, 180, -47, 97, -60, 97, 97, 178, 173, 97,
1049: -23, -18, -59, 179, 73, 80, 73, -20, -18, 179,
1050: -59, -87, 81, 58, 58, -5, 70, 71, 72, 69,
1051: -87, -38, 9, 160, -40, 23, -44, 50, 52, 55,
1052: 54, 46, 47, 95, 30, -41, -42,-101, 86, 82,
1053: 83, 81, 84, 34, 80, -58, 24, 97, -60, 40,
1054: -29, -38, 73, -82, -9, -13, 182, -59, -58, 41,
1055: -37, -53, -36, -50, -29, -51, -13, 97, -58, -38,
1056: 50, -37, 41, 173, -27, 80, 45, 41, -74, -73,
1057: -55, -38, -13, -74, 41, 43, 97, -60, -45, -12,
1058: 97, 74, -24, 185, -9, -4, -3, -2, 175, -58,
1059: -68, 69, -87, -16, -17, 80, 73, -74, 41, -78,
1060: -89, 156, -65, -13, 205, 206, -74, -82, -86, -25,
1061: -28, -85, -74, 70, 54, 55, 50, 52, 65, 64,
1062: 94, 92, 93, 91, 58, 60, 66, 67, 90, 71,
1063: 68, -40, 42, 160, 9, 23, 95, 42, 44, 180,
1064: 45, 40, -44, -55,-101, -40, -40, -40, -40, -40,
1065: -40, -40, -40, -40, -44, -38, -13, 80, 24, 47,
1066: -63, -46, 40, 40, 72, -37, -6, 124, 125, 69,
1067: -87, -71, 41, -64, 71, 155, 71, -60, -48, 80,
1068: -12, -72, 43, 80, 41, -71, -28, -27, -88, 71,
1069: 60, -54, -12, 60, -45, -61, -90, 72, 72, 69,
1070: -27, 73, -69, -70, -19, 175, 97, 80, -60, -74,
1071: 74, 71, 70, -16, -88, 72, 60, 71, -67, -59,
1072: 80, -67, -49, 80, -12, 60, -6, 124, 125, -29,
1073: -38, -88, -38, -38, -38, -38, -38, -38, -38, -38,
1074: -38, -38, -38, -38, -38, -38, -38, -38, -38, -38,
1075: -38, -40, 42, -44, -55,-101, -38, -41, -59, -40,
1076: -41, -59, -37, -37, 41, -43, -12, 40, -63, -46,
1077: -18, -37, -37, 74, -33, 73, -84, -74, 97, 41,
1078: -50, 155, -29, -11, -52, 70, -59, -48, -48, 41,
1079: 41, -73, -11, -54, -91, 72, 71, -19, 97, -19,
1080: 175, -88, -17, -38, 74, -79, -89, -11, -52, -49,
1081: 72, -33, 69, 43, -38, -37, 43, 41, 41, -11,
1082: 41, -43, -43, 41, 41, -92, 74, 256, -7, -8,
1083: 40, -19, -88, -71,-102, 41, -52, -52, -66, 127,
1084: -70, -19, -19, -62, -4, -3, -22, 205, 206, -13,
1085: -28, -38, -40, 43, 41, -44, -55,-101, 41, -30,
1086: 74, 71, -37, 40, -29, -83, 72, -80, -81, -28,
1087: -40, -44, -55, -52, -11, 185, -31, 74, -32, -8,
1088: 41, -37, -6, -67, -67, -34, -35, 72, 28, 97,
1089: -9, -4, -33, 20, 39, 16, 33, 80, 123, 4,
1090: 8, -39, 3, 7, 19, 10, 1, 9, 160, -40,
1091: 41, -33, 69, 69, -94, -95, -38, 81, -56, 40,
1092: -56, 40, -56, 69, 69, -99, 69, 70, 54, 55,
1093: 50, 52, 65, 64, 94, 92, 93, 91, 60, 58,
1094: 66, 67, 90, 71, 68, 80, -93, 40, -40, 42,
1095: 9, -34, -39, 72, 72, -33, -31, -38, -31, -96,
1096: -31, -97, -98, -38,-100, -39, -39, -39, -39, -39,
1097: -39, -39, -39, -39, -39, -39, -39, -39, -39, -39,
1098: -39, -39, -39, -31, 81, -38, -40, 42, 72, 12,
1099: 41, -31, -31, -31, 69, -31, 69, 39, 41, 43,
1100: -38, -31, -38, -31, -39, -56, -40, 43, 72, -40,
1101: -38, 41, -31 };
1102: short yydef[]={
1103:
1104: 0, -2, 1, 2, 3, 62, 5, 6, 7, 21,
1105: 22, 23, 24, 0, 9, 0, 0, 45, 69, 0,
1106: 178, 134, 0, 0, 0, 61, -2, 66, 67, 68,
1107: 0, 0, 0, 164, 364, 365, 0, 370, 355, 167,
1108: 124, 0, 0, 334, 335, 0, 4, 0, 0, 0,
1109: 19, 20, 0, 0, -2, 0, 55, 70, 71, 72,
1110: 73, 74, 134, 0, 52, 58, 295, 295, 27, 36,
1111: 170, 355, -2, 185, 295, 374, 172, -2, 184, 360,
1112: 0, 64, 165, 166, 180, 134, 182, 183, 367, 0,
1113: 295, 56, 295, 135, 136, 137, 138, 139, 140, 141,
1114: 142, 143, 144, 145, 146, 147, 148, 149, 150, 151,
1115: 0, 0, 154, 155, 156, 157, 158, 159, 160, 161,
1116: 162, 163, 202, 346, 347, 366, 368, 336, 369, 372,
1117: 0, -2, 120, 105, 117, 119, 100, 83, 79, 80,
1118: 120, 295, 0, 88, 295, 36, 50, 0, 54, 47,
1119: 295, 49, 0, 335, 294, 0, 0, 0, 0, 0,
1120: 0, 0, 0, 0, 0, 317, 318, 295, 320, 321,
1121: 322, 323, 324, 325, 337, 0, 0, 0, 0, 345,
1122: 0, 247, 295, 39, 44, 0, 62, 63, 0, 168,
1123: 0, 361, 244, 358, 245, 359, 189, 61, 0, 0,
1124: 0, 0, 168, 0, 179, 134, 0, 186, 0, 76,
1125: 77, 78, 194, 0, 152, 153, 348, 349, 350, 202,
1126: 371, 101, 123, 125, 126, 130, 129, 131, 0, 0,
1127: 0, 0, 295, 0, 84, 98, 100, 0, 0, 0,
1128: 87, 0, 0, 0, 89, 90, 0, 39, 295, 53,
1129: 46, 295, 0, 295, 295, 295, 295, 295, 295, 295,
1130: 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
1131: 295, 290, 295, 335, 0, 0, 300, 295, 0, 0,
1132: 0, 295, 296, 297, 295, 301, 302, 303, 304, 305,
1133: 306, 307, 308, 309, 310, 0, 197, 338, 0, 0,
1134: 339, 341, 295, 295, 26, 0, 0, 32, 33, 37,
1135: 295, 171, 173, 0, 360, 362, 295, 71, 352, 187,
1136: 189, 189, 373, 337, 175, 176, 0, 181, -2, 295,
1137: 57, 351, 194, 60, 203, 0, 106, 127, 128, 132,
1138: 180, 118, 108, 110, 112, 0, 0, 121, 122, 0,
1139: 81, 100, 295, 0, 333, 25, 10, 0, 91, -2,
1140: -2, 92, 93, 94, 0, 0, 0, 29, 30, 51,
1141: 48, 59, 272, 273, 274, 275, 276, 277, 278, 279,
1142: 280, 281, 282, 283, 284, 285, 286, 287, 288, 0,
1143: 0, 292, 295, 298, 299, 295, 0, 312, 314, 313,
1144: 315, 316, 0, 0, 319, 0, 197, 197, 340, 342,
1145: 343, 0, 0, 248, 31, -2, 0, 0, 169, 168,
1146: 357, 363, 246, 191, 192, 353, 188, 190, 0, 0,
1147: 0, 75, 196, 195, 102, 133, 0, 113, 0, 114,
1148: 0, 104, 85, 99, 82, 0, 86, 96, 97, 95,
1149: 8, 28, 295, 0, 0, 0, 311, 332, 0, 199,
1150: 344, 198, 0, 326, 327, 204, 212, 0, 38, 40,
1151: 295, 0, 65, 356, 295, 193, 174, 177, 107, 34,
1152: 111, 115, 116, 11, 12, 13, 66, 15, 17, 0,
1153: 45, 289, 291, 0, 0, 328, 329, 0, 0, 208,
1154: 213, 0, 0, 295, 354, 39, 14, 0, 0, 45,
1155: 293, 330, 331, 200, 201, 205, 206, 211, 0, 41,
1156: 42, 0, 0, 0, 0, 207, 221, 224, 295, 61,
1157: 227, 228, 229, 0, 0, 0, 0, 337, 167, 240,
1158: 0, 214, 215, 216, 0, 218, 0, 0, 335, 271,
1159: 43, 35, 0, 0, 223, 0, 0, 0, 208, 295,
1160: 208, 233, 208, 236, 238, 295, 242, 0, 0, 0,
1161: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1162: 0, 0, 0, 0, 0, 217, 208, 0, 267, 295,
1163: 0, 16, 0, 222, 225, 226, 230, 0, 232, 208,
1164: 235, 208, 208, 0, 208, 249, 250, 251, 252, 253,
1165: 254, 255, 256, 257, 258, 259, 260, 261, 262, 263,
1166: 264, 265, 0, 0, 0, 0, 269, 295, 18, 208,
1167: 209, 295, 237, 239, 208, 243, 0, 0, 220, 0,
1168: 0, 231, 0, 241, 266, 219, 268, 0, 295, 270,
1169: 0, 208, 234 };
1170: # ifdef YYDEBUG
1171: # include "y.debug"
1172: # endif
1173:
1174: # define YYFLAG -1000
1175: # define YYERROR goto yyerrlab
1176: # define YYACCEPT return(0)
1177: # define YYABORT return(1)
1178:
1179: /* parser for yacc output */
1180:
1181: #ifdef YYDEBUG
1182: int yydebug = 0; /* 1 for debugging */
1183: #endif
1184: YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */
1185: int yychar = -1; /* current input token number */
1186: int yynerrs = 0; /* number of errors */
1187: short yyerrflag = 0; /* error recovery flag */
1188:
1189: yyparse()
1190: { short yys[YYMAXDEPTH];
1191: int yyj, yym;
1192: register YYSTYPE *yypvt;
1193: register int yystate, yyn;
1194: register short *yyps;
1195: register YYSTYPE *yypv;
1196: register short *yyxi;
1197:
1198: yystate = 0;
1199: yychar = -1;
1200: yynerrs = 0;
1201: yyerrflag = 0;
1202: yyps= &yys[-1];
1203: yypv= &yyv[-1];
1204:
1205: yystack: /* put a state and value onto the stack */
1206: #ifdef YYDEBUG
1207: if(yydebug >= 3)
1208: if(yychar < 0 || yytoknames[yychar] == 0)
1209: printf("char %d in %s", yychar, yystates[yystate]);
1210: else
1211: printf("%s in %s", yytoknames[yychar], yystates[yystate]);
1212: #endif
1213: if( ++yyps >= &yys[YYMAXDEPTH] ) {
1214: yyerror( "yacc stack overflow" );
1215: return(1);
1216: }
1217: *yyps = yystate;
1218: ++yypv;
1219: *yypv = yyval;
1220: yynewstate:
1221: yyn = yypact[yystate];
1222: if(yyn <= YYFLAG) goto yydefault; /* simple state */
1223: if(yychar<0) {
1224: yychar = yylex();
1225: #ifdef YYDEBUG
1226: if(yydebug >= 2) {
1227: if(yychar <= 0)
1228: printf("lex EOF\n");
1229: else if(yytoknames[yychar])
1230: printf("lex %s\n", yytoknames[yychar]);
1231: else
1232: printf("lex (%c)\n", yychar);
1233: }
1234: #endif
1235: if(yychar < 0)
1236: yychar = 0;
1237: }
1238: if((yyn += yychar) < 0 || yyn >= YYLAST)
1239: goto yydefault;
1240: if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */
1241: yychar = -1;
1242: yyval = yylval;
1243: yystate = yyn;
1244: if( yyerrflag > 0 ) --yyerrflag;
1245: goto yystack;
1246: }
1247: yydefault:
1248: /* default state action */
1249: if( (yyn=yydef[yystate]) == -2 ) {
1250: if(yychar < 0) {
1251: yychar = yylex();
1252: #ifdef YYDEBUG
1253: if(yydebug >= 2)
1254: if(yychar < 0)
1255: printf("lex EOF\n");
1256: else
1257: printf("lex %s\n", yytoknames[yychar]);
1258: #endif
1259: if(yychar < 0)
1260: yychar = 0;
1261: }
1262: /* look through exception table */
1263: for(yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate);
1264: yyxi += 2 ) ; /* VOID */
1265: while( *(yyxi+=2) >= 0 ){
1266: if( *yyxi == yychar ) break;
1267: }
1268: if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */
1269: }
1270: if( yyn == 0 ){ /* error */
1271: /* error ... attempt to resume parsing */
1272: switch( yyerrflag ){
1273: case 0: /* brand new error */
1274: #ifdef YYDEBUG
1275: yyerror("syntax error\n%s", yystates[yystate]);
1276: if(yytoknames[yychar])
1277: yyerror("saw %s\n", yytoknames[yychar]);
1278: else if(yychar >= ' ' && yychar < '\177')
1279: yyerror("saw `%c'\n", yychar);
1280: else if(yychar == 0)
1281: yyerror("saw EOF\n");
1282: else
1283: yyerror("saw char 0%o\n", yychar);
1284: #else
1285: yyerror( "syntax error" );
1286: #endif
1287: yyerrlab:
1288: ++yynerrs;
1289: case 1:
1290: case 2: /* incompletely recovered error ... try again */
1291: yyerrflag = 3;
1292: /* find a state where "error" is a legal shift action */
1293: while ( yyps >= yys ) {
1294: yyn = yypact[*yyps] + YYERRCODE;
1295: if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){
1296: yystate = yyact[yyn]; /* simulate a shift of "error" */
1297: goto yystack;
1298: }
1299: yyn = yypact[*yyps];
1300: /* the current yyps has no shift onn "error", pop stack */
1301: #ifdef YYDEBUG
1302: if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] );
1303: #endif
1304: --yyps;
1305: --yypv;
1306: }
1307: /* there is no state on the stack with an error shift ... abort */
1308: yyabort:
1309: return(1);
1310: case 3: /* no shift yet; clobber input char */
1311: #ifdef YYDEBUG
1312: if( yydebug ) {
1313: printf("error recovery discards ");
1314: if(yytoknames[yychar])
1315: printf("%s\n", yytoknames[yychar]);
1316: else if(yychar >= ' ' && yychar < '\177')
1317: printf("`%c'\n", yychar);
1318: else if(yychar == 0)
1319: printf("EOF\n");
1320: else
1321: printf("char 0%o\n", yychar);
1322: }
1323: #endif
1324: if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */
1325: yychar = -1;
1326: goto yynewstate; /* try again in the same state */
1327: }
1328: }
1329: /* reduction by production yyn */
1330: #ifdef YYDEBUG
1331: if(yydebug) { char *s;
1332: printf("reduce %d in:\n\t", yyn);
1333: for(s = yystates[yystate]; *s; s++) {
1334: putchar(*s);
1335: if(*s == '\n' && *(s+1))
1336: putchar('\t');
1337: }
1338: }
1339: #endif
1340: yyps -= yyr2[yyn];
1341: yypvt = yypv;
1342: yypv -= yyr2[yyn];
1343: yyval = yypv[1];
1344: yym=yyn;
1345: /* consult goto table to find next state */
1346: yyn = yyr1[yyn];
1347: yyj = yypgo[yyn] + *yyps + 1;
1348: if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]];
1349: switch(yym){
1350:
1351: case 1:
1352: # line 480 "gram.y"
1353: { return 2; } break;
1354: case 2:
1355: # line 481 "gram.y"
1356: { return 1; } break;
1357: case 3:
1358: # line 482 "gram.y"
1359: { return 0; } break;
1360: case 4:
1361: # line 484 "gram.y"
1362: {
1363: set_linkage(yypvt[-1].s);
1364: bl_level--;
1365: return 1;
1366: } break;
1367: case 5:
1368: # line 490 "gram.y"
1369: {
1370: set_linkage(0);
1371: bl_level++;
1372: return 1;
1373: } break;
1374: case 6:
1375: # line 495 "gram.y"
1376: { return 1; } break;
1377: case 7:
1378: # line 496 "gram.y"
1379: { return 1 ;} break;
1380: case 8:
1381: # line 501 "gram.y"
1382: { Ptreet t = tree_template::get(yypvt[-4].pn->string) ;
1383: Pexpr e = 0 ;
1384: if (t)
1385: e = t->expand(expr_unlist(yypvt[-2].el)) ;
1386: else error ("%s wasn't an expression template",
1387: yypvt[-4].pn->string) ;
1388: } break;
1389: case 9:
1390: # line 510 "gram.y"
1391: { templp->start() ; } break;
1392: case 10:
1393: # line 512 "gram.y"
1394: {templp->enter_parameters() ; } break;
1395: case 11:
1396: # line 514 "gram.y"
1397: {templp->end(yypvt[-0].pn);
1398: templp->in_progress = false ;
1399: goto mod;} break;
1400: case 12:
1401: # line 520 "gram.y"
1402: { goto mod; } break;
1403: case 13:
1404: # line 522 "gram.y"
1405: { goto mod; } break;
1406: case 14:
1407: # line 524 "gram.y"
1408: { Pname pn = yypvt[-1].pb->aggr();
1409: /* basetype:aggr() does not return the name for a forward */
1410: /* declaration, so extract it directly */
1411: yyval.p = (pn ? pn : yypvt[-1].pb->b_name) ;
1412: DECL_TYPE = 0; } break;
1413: case 15:
1414: # line 531 "gram.y"
1415: {templp->curr_tree_template = yypvt[-0].t ; } break;
1416: case 16:
1417: # line 533 "gram.y"
1418: {yypvt[-2].pn->n_initializer = yypvt[-0].pe ; /* actually a stmt */
1419: yyval.pn = yypvt[-2].pn; } break;
1420: case 17:
1421: # line 536 "gram.y"
1422: {templp->curr_tree_template = yypvt[-0].t ; } break;
1423: case 18:
1424: # line 538 "gram.y"
1425: {yypvt[-3].pn->n_initializer = yypvt[-1].pe ; /* actually a stmt */
1426: yyval.pn = yypvt[-3].pn ; } break;
1427: case 20:
1428: # line 544 "gram.y"
1429: { yyval.pn = Ncopy(yypvt[-0].pn) ;} break;
1430: case 21:
1431: # line 548 "gram.y"
1432: {
1433: /* if function declartion with arguments
1434: * need to make sure modified_tn is traversed */
1435: if ( yypvt[-0].pn != 0
1436: && yypvt[-0].pn->tp->base == FCT
1437: && Pfct(yypvt[-0].pn->tp)->nargs !=0 )
1438: goto mod;
1439: else {
1440: modified_tn = 0;
1441: curr_scope = 0;
1442: if (yypvt[-0].pn==0) yyval.i = 1;
1443: }
1444: } break;
1445: case 22:
1446: # line 562 "gram.y"
1447: { goto mod; } break;
1448: case 23:
1449: # line 564 "gram.y"
1450: { goto mod; } break;
1451: case 24:
1452: # line 566 "gram.y"
1453: { mod: if (modified_tn) {
1454: restore();
1455: modified_tn = 0;
1456: }
1457: local_blk = 0;
1458: curr_scope = 0;
1459: if (local_tn) {
1460: local_restore();
1461: local_tn = 0;
1462: }
1463:
1464: if (nested_tn) { // x::f(){}
1465: nested_restore();
1466: nested_tn = 0;
1467: nested_type = 0;
1468: }
1469: } break;
1470: case 25:
1471: # line 584 "gram.y"
1472: { Pname n = new name(make_name('A'));
1473: n->tp = new basetype(ASM,0);
1474: Pbase(n->tp)->b_name = Pname(yypvt[-2].s);
1475: yyval.p = n;
1476: } break;
1477: case 26:
1478: # line 592 "gram.y"
1479: {
1480: err_name = yypvt[-3].pn;
1481: if(err_name) err_name->n_initializer = yypvt[-1].pe;
1482: goto fix;
1483: } break;
1484: case 27:
1485: # line 598 "gram.y"
1486: {
1487: Ptype t;
1488: err_name = yypvt[-1].pn;
1489: fix:
1490: if (err_name == 0) {
1491: error("syntax error:TX");
1492: yyval.p = Ndata(defa_type,err_name);
1493: }
1494: else if ((t=err_name->tp) == 0) {
1495: error("TX for%n",err_name);
1496: yyval.p = Ndata(defa_type,err_name);
1497: }
1498: else if (t->base==FCT) {
1499: if (Pfct(t)->returns==0)
1500: yyval.p = Nfct(defa_type,err_name,0);
1501: else
1502: yyval.p = Ndata(0,err_name);
1503: }
1504: else {
1505: error("syntax error:TX for%k%n",t->base,err_name);
1506: yyval.p = Ndata(defa_type,err_name);
1507: }
1508: } break;
1509: case 28:
1510: # line 624 "gram.y"
1511: { Pname n = Nfct(yypvt[-5].p,yypvt[-4].pn,yypvt[-0].p);
1512: Fargdcl(n->tp,name_unlist(yypvt[-3].nl),n);
1513: Finit(n->tp) = yypvt[-1].pn;
1514: yyval.p = n;
1515: NOT_EXPECT_ID();
1516: //???POP_SCOPE(); // undef arg names
1517: } break;
1518: case 29:
1519: # line 632 "gram.y"
1520: {
1521: Pname n = Nfct(yypvt[-4].p,yypvt[-3].pn,dummy);
1522: Fargdcl(n->tp,name_unlist(yypvt[-2].nl),n);
1523: yypvt[-0].q->retval.pn = n;
1524: yyval.p = n;
1525: NOT_EXPECT_ID();
1526: } break;
1527: case 30:
1528: # line 640 "gram.y"
1529: {
1530: error(&yypvt[-3].pn->where,"syntax error -- did you forget a ';'?");
1531: Pname n = Nfct(yypvt[-4].p,yypvt[-3].pn,0);
1532: yyval.p = n;
1533: NOT_EXPECT_ID();
1534: //???POP_SCOPE(); // undef arg names
1535: } break;
1536: case 31:
1537: # line 650 "gram.y"
1538: { Pname n = Nfct(defa_type,yypvt[-4].pn,yypvt[-0].p);
1539: Fargdcl(n->tp,name_unlist(yypvt[-3].nl),n);
1540: if ( yypvt[-1].pn && yypvt[-1].pn->n_list &&
1541: ccl && ccl->csu == UNION )
1542: error( "multiple initializers in unionK %s::%n", yypvt[-4].pn->string, yypvt[-4].pn );
1543: Finit(n->tp) = yypvt[-1].pn;
1544: yyval.p = n;
1545: NOT_EXPECT_ID();
1546: //???POP_SCOPE(); // undef arg names
1547: } break;
1548: case 32:
1549: # line 661 "gram.y"
1550: {
1551: Pname n = Nfct(defa_type,yypvt[-3].pn,dummy);
1552: Fargdcl(n->tp,name_unlist(yypvt[-2].nl),n);
1553: yypvt[-0].q->retval.pn = n;
1554: yyval.p = n;
1555: NOT_EXPECT_ID();
1556: } break;
1557: case 33:
1558: # line 669 "gram.y"
1559: {
1560: error(&yypvt[-3].pn->where,"badD of%n -- did you forget a ';'?",yypvt[-3].pn);
1561: Pname n = Nfct(defa_type,yypvt[-3].pn,0);
1562: yyval.p = n;
1563: NOT_EXPECT_ID();
1564: //???POP_SCOPE(); // undef arg names
1565: } break;
1566: case 34:
1567: # line 679 "gram.y"
1568: {//PUSH_ARG_SCOPE
1569: arg_redec(yypvt[-0].pn);
1570: } break;
1571: case 35:
1572: # line 683 "gram.y"
1573: {
1574: Finit(yypvt[-3].pn->tp) = yypvt[-1].pn;
1575: Pfct(yypvt[-3].pn->tp)->body = Pblock(yypvt[-0].p);
1576: yyval.pn = yypvt[-3].pn;
1577: NOT_EXPECT_ID();
1578: //???POP_SCOPE(); // undef arg names
1579: } break;
1580: case 36:
1581: # line 694 "gram.y"
1582: {
1583: // if parsing implicit inline def, save body
1584: // of function for parsing after class def
1585: switch ( NEXTTOK() ) {
1586: case LC: case COLON:
1587: if ( in_class_decl ) {
1588: // mem or friend inline def
1589: // save text of mem_init & ftn
1590: la_backup(yychar,yylval);
1591: // yylval used as dummy...
1592: la_backup(FDEF, yylval);
1593: if ( yylval.q = save_text() )
1594: yychar = EMPTY;
1595: else { // syntax error
1596: // just parse in place
1597: yylex(); // FDEF
1598: yychar = yylex();
1599: }
1600: } // if in_class_decl
1601: break;
1602: default:
1603: la_backup(yychar,yylval);
1604: yychar = NO_ID; // 'graceful' recovery
1605: break;
1606: }
1607: } break;
1608: case 37:
1609: # line 722 "gram.y"
1610: { ++in_binit_list; } break;
1611: case 38:
1612: # line 723 "gram.y"
1613: {
1614: yyval.p = yypvt[-0].p;
1615: in_arg_list = 0;
1616: --in_binit_list;
1617: } break;
1618: case 39:
1619: # line 729 "gram.y"
1620: { yyval.p = 0; } break;
1621: case 40:
1622: # line 733 "gram.y"
1623: { yyval.p = yypvt[-0].p; } break;
1624: case 41:
1625: # line 735 "gram.y"
1626: { yyval.pn = yypvt[-0].pn; yyval.pn->n_list = yypvt[-2].pn; } break;
1627: case 42:
1628: # line 739 "gram.y"
1629: {
1630: yyval.pn = new name;
1631: yyval.pn->n_initializer = yypvt[-1].pe;
1632: } break;
1633: case 43:
1634: # line 744 "gram.y"
1635: {
1636: Pname n = Ncopy(yypvt[-3].pn);
1637: n->base = yypvt[-3].pn->base;
1638: n->tp = yypvt[-3].pn->tp;
1639: n->n_initializer = yypvt[-1].pe;
1640: yyval.pn = n;
1641: } break;
1642: case 44:
1643: # line 768 "gram.y"
1644: { if (yypvt[-0].pn == 0)
1645: error("badAD");
1646: else if (yypvt[-0].pn->tp->base == FCT)
1647: error("FD inAL (%n)",yypvt[-0].pn);
1648: else if (yypvt[-1].p)
1649: yypvt[-1].nl->add_list(yypvt[-0].pn);
1650: else
1651: yyval.nl = new nlist(yypvt[-0].pn);
1652: } break;
1653: case 45:
1654: # line 778 "gram.y"
1655: {
1656: yyval.p = 0;
1657: } break;
1658: case 47:
1659: # line 785 "gram.y"
1660: {
1661: if ( in_typedef ) {
1662: error("Tdef field");
1663: in_typedef = 0;
1664: }
1665: // ENTER_NAME(yypvt[-1].pn);
1666: } break;
1667: case 48:
1668: # line 793 "gram.y"
1669: { yyval.p = yypvt[-3].pn;
1670: yyval.pn->tp = new basetype(FIELD,yypvt[-0].pn);
1671: } break;
1672: case 49:
1673: # line 797 "gram.y"
1674: { yyval.p = new name;
1675: yyval.pn->tp = new basetype(FIELD,yypvt[-0].pn);
1676: if ( in_typedef ) {
1677: error("Tdef field");
1678: in_typedef = 0;
1679: }
1680: } break;
1681: case 50:
1682: # line 805 "gram.y"
1683: {
1684: // ENTER_NAME(yypvt[-1].pn);
1685: } break;
1686: case 51:
1687: # line 809 "gram.y"
1688: { Pexpr e = yypvt[-0].pe;
1689: if (e == dummy) error("emptyIr");
1690: yypvt[-3].pn->n_initializer = e;
1691: init_seen = 0;
1692: } break;
1693: case 52:
1694: # line 817 "gram.y"
1695: {
1696: if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn);
1697: if ( NEXTTOK() == CM && la_look() == TNAME )
1698: EXPECT_ID();
1699: } break;
1700: case 53:
1701: # line 823 "gram.y"
1702: { if (yypvt[-2].p)
1703: if (yypvt[-0].p)
1704: yypvt[-2].nl->add(yypvt[-0].pn);
1705: else
1706: error("DL syntax");
1707: else {
1708: if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn);
1709: error("DL syntax");
1710: }
1711: if ( NEXTTOK() == CM && la_look() == TNAME )
1712: EXPECT_ID();
1713: } break;
1714: case 54:
1715: # line 838 "gram.y"
1716: {
1717: extern int co_hack;
1718: co_hack = 1;
1719: /*$$ = Ndata($1,name_unlist($<nl>2));*/
1720: Pname n = Ndata(yypvt[-2].p,name_unlist(yypvt[-1].nl));
1721: //error('d',"data_dcl:type decl_list sm: %n%t in_typedef%t in_tag%n",n,n->tp,in_typedef,in_tag);
1722: if ( in_typedef && in_tag ) {
1723: if ( n->tp->check( in_tag->tp, 0 ))
1724: error("%nredefined: previous: %t now: %t", in_tag, in_tag->tp, n->tp );
1725: }
1726: in_typedef = 0;
1727: in_tag = 0;
1728: co_hack = 0;
1729: DECL_TYPE = 0;
1730: yyval.p = n;
1731: } break;
1732: case 55:
1733: # line 855 "gram.y"
1734: {
1735: yyval.p = yypvt[-1].pb->aggr();
1736: in_typedef = 0;
1737: in_tag = 0;
1738: DECL_TYPE = 0;
1739: } break;
1740: case 56:
1741: # line 866 "gram.y"
1742: { templp->parameters_in_progress++; } break;
1743: case 57:
1744: # line 867 "gram.y"
1745: { templp->parameters_in_progress--; } break;
1746: case 58:
1747: # line 869 "gram.y"
1748: { yyval.pn = templp->check_tname(yypvt[-0].pn) ; } break;
1749: case 59:
1750: # line 871 "gram.y"
1751: {
1752: yyval.pn = parametrized_typename(yypvt[-3].pn,
1753: (expr_unlist(yypvt[-1].el))) ;
1754: } break;
1755: case 60:
1756: # line 876 "gram.y"
1757: { extern Pbase any_type;
1758: error("%n was not a parametrized type.", yyval.pn) ;
1759: yyval.pn= yypvt[-3].pn->tdef() ;
1760: yyval.pn->tp = any_type ; } break;
1761: case 61:
1762: # line 884 "gram.y"
1763: {
1764: yyval.p = new basetype(yypvt[-0].t,0);
1765: if ( yypvt[-0].t == TYPEDEF ) in_typedef = yyval.pt;
1766: if (DECL_TYPE == -1) DECL_TYPE = 0;
1767: } break;
1768: case 62:
1769: # line 890 "gram.y"
1770: { yyval.p = new basetype(EXTERN,0);
1771: yyval.pb->b_linkage = yypvt[-0].s;
1772: if (DECL_TYPE == -1) DECL_TYPE = 0;
1773: } break;
1774: case 63:
1775: # line 895 "gram.y"
1776: {
1777: templp->check_tname(yypvt[-0].pn);
1778: yyval.p = new basetype(TYPE,yypvt[-0].pn);
1779: if (DECL_TYPE == -1) DECL_TYPE = 0;
1780: } break;
1781: case 64:
1782: # line 901 "gram.y"
1783: { // modified tn_list TNAME
1784: yyval.p = new basetype(TYPE,yypvt[-0].pn);
1785: //xxx qualifier currently ignored...
1786: if (DECL_TYPE == -1) DECL_TYPE = 0;
1787: } break;
1788: case 65:
1789: # line 907 "gram.y"
1790: {
1791: yyval.pb = parametrized_basetype(yypvt[-3].pn,(expr_unlist(yypvt[-1].el)));
1792: } break;
1793: case 68:
1794: # line 913 "gram.y"
1795: {
1796: if (DECL_TYPE == TNAME)
1797: yyval.p = new basetype(TYPE,yypvt[-0].pn);
1798: // else if (DECL_TYPE == TSCOPE)
1799: // yyval.p = 0;
1800: else
1801: if (DECL_TYPE == 0 &&
1802: yypvt[-0].p->base == TNAME)
1803: yyval.p = new basetype(TYPE,yypvt[-0].pn);
1804: else
1805: yyval.p = new basetype(yypvt[-0].t,0);
1806: DECL_TYPE = -1;
1807: } break;
1808: case 70:
1809: # line 930 "gram.y"
1810: {
1811: if ( DECL_TYPE != -1 ) {
1812: switch (yypvt[-1].pb->base) { Pbase bt;
1813: case COBJ: case EOBJ:
1814: bt = new basetype(0,0);
1815: *bt = *yypvt[-1].pb;
1816: DEL(yypvt[-1].pb);
1817: yypvt[-1].pb = bt;
1818: }
1819: yyval.p = yypvt[-1].pb->type_adj(yypvt[-0].t);
1820: }
1821: DECL_TYPE = 0;
1822: } break;
1823: case 71:
1824: # line 944 "gram.y"
1825: {
1826: //error('d',"decl_type: %d $1: %t $2: %n",DECL_TYPE,yypvt[-1].pb,yypvt[-0].pn);
1827: if ( DECL_TYPE != -1 )
1828: yyval.p = yypvt[-1].pb->name_adj(yypvt[-0].pn);
1829: /*XXX*/ else if(yypvt[-1].pb==0) yyval.p=new basetype(TYPE,yypvt[-0].pn);
1830: DECL_TYPE = 0;
1831: } break;
1832: case 72:
1833: # line 951 "gram.y"
1834: { yyval.p = yypvt[-1].pb->base_adj(yypvt[-0].pb); } break;
1835: case 73:
1836: # line 952 "gram.y"
1837: { yyval.p = yypvt[-1].pb->base_adj(yypvt[-0].pb); } break;
1838: case 74:
1839: # line 954 "gram.y"
1840: {
1841: if (DECL_TYPE == TYPE) {
1842: switch (yypvt[-1].pb->base) { Pbase bt;
1843: case COBJ: case EOBJ:
1844: bt = new basetype(0,0);
1845: *bt = *yypvt[-1].pb;
1846: DEL(yypvt[-1].pb);
1847: yypvt[-1].pb = bt;
1848: }
1849: yyval.p = yypvt[-1].pb->type_adj(yypvt[-0].t);
1850: }
1851: /*XXX*/ else if (DECL_TYPE == TSCOPE) {
1852: /*XXX*/ error('i',"type decl_marker(tscope)");
1853: /*XXX*/ // yyval.p = yypvt[-1].p;//ignore(?)
1854: /*XXX*/ }
1855: else
1856: yyval.p = yypvt[-1].pb->name_adj(yypvt[-0].pn);
1857: DECL_TYPE = -1;
1858: } break;
1859: case 75:
1860: # line 976 "gram.y"
1861: {yypvt[-2].el->add(new expr(ELIST,yypvt[-0].pe,NULL)) ; } break;
1862: case 76:
1863: # line 977 "gram.y"
1864: { yyval.el =
1865: new elist(new expr(ELIST,yypvt[-0].pe,NULL)); } break;
1866: case 77:
1867: # line 981 "gram.y"
1868: {yypvt[-0].pn->n_template_arg = template_actual_arg_dummy ;
1869: yyval.pe = yypvt[-0].pn; /* keep yacc happy */ } break;
1870: case 78:
1871: # line 984 "gram.y"
1872: { yyval.pe = yypvt[-0].pe ; } break;
1873: case 79:
1874: # line 989 "gram.y"
1875: { enumcheck:
1876: Ptype tx = yypvt[-0].pn->tp;
1877: yyval.p = yypvt[-0].p;
1878: if ( tx->base == TYPE ) {
1879: yyval.p = Pbase(tx)->b_name;
1880: tx = yyval.pn->tp;
1881: if ( tx->base != EOBJ
1882: || strcmp(yyval.pn->string,yypvt[-0].pn->string)
1883: )
1884: error("%n of type%t redeclared as enum.",yypvt[-0].pn,tx);
1885: } else if ( tx->base != EOBJ )
1886: error("%n of type%t redeclared as enum",yypvt[-0].pn,tx);
1887: } break;
1888: case 80:
1889: # line 1002 "gram.y"
1890: { goto enumcheck; } break;
1891: case 81:
1892: # line 1005 "gram.y"
1893: { yyval.p = end_enum(0,yypvt[-1].nl); } break;
1894: case 82:
1895: # line 1006 "gram.y"
1896: { yyval.p = end_enum(yypvt[-3].pn,yypvt[-1].nl); } break;
1897: case 83:
1898: # line 1007 "gram.y"
1899: { yyval.pb = (Pbase)yypvt[-0].pn->tp; } break;
1900: case 84:
1901: # line 1011 "gram.y"
1902: { if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn); } break;
1903: case 85:
1904: # line 1013 "gram.y"
1905: { if( yypvt[-0].p)
1906: if (yypvt[-2].p)
1907: yypvt[-2].nl->add(yypvt[-0].pn);
1908: else
1909: yyval.nl = new nlist(yypvt[-0].pn);
1910: } break;
1911: case 88:
1912: # line 1023 "gram.y"
1913: { yyval.pn = NULL ;} break;
1914: case 91:
1915: # line 1031 "gram.y"
1916: { templp->collect(yypvt[-1].t, yypvt[-0].pn) ; } break;
1917: case 92:
1918: # line 1033 "gram.y"
1919: { templp->collect(yypvt[-1].t, yypvt[-0].pn) ; } break;
1920: case 93:
1921: # line 1035 "gram.y"
1922: {templp->collect(Ndata(yypvt[-1].p,yypvt[-0].pn)); } break;
1923: case 94:
1924: # line 1041 "gram.y"
1925: { yyval.p = yypvt[-0].pn; } break;
1926: case 95:
1927: # line 1043 "gram.y"
1928: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp;
1929: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p;
1930: yyval.p = yypvt[-0].p;
1931: } break;
1932: case 96:
1933: # line 1048 "gram.y"
1934: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp;
1935: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p;
1936: } break;
1937: case 97:
1938: # line 1052 "gram.y"
1939: { Freturns(yypvt[-0].p) = yypvt[-1].pn->tp;
1940: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p;
1941: } break;
1942: case 98:
1943: # line 1058 "gram.y"
1944: { yyval.p = yypvt[-0].pn; yyval.pn->tp = moe_type; } break;
1945: case 99:
1946: # line 1060 "gram.y"
1947: { yyval.p = yypvt[-2].pn;
1948: yyval.pn->tp = moe_type;
1949: yyval.pn->n_initializer = yypvt[-0].pe;
1950: } break;
1951: case 100:
1952: # line 1065 "gram.y"
1953: { yyval.p = 0; } break;
1954: case 101:
1955: # line 1069 "gram.y"
1956: { parsing_class_members = 0;
1957: RESTORE_STATE();
1958: switch ( NEXTTOK() ) {
1959: case TYPE: case AGGR: case ENUM: case EOFTOK:
1960: error("`;' or declaratorX afterCD");
1961: la_backup(yychar,yylval);
1962: yychar = SM;
1963: break;
1964: }
1965: la_backup(yychar,yylval);
1966: yychar = -1;
1967: restore_text();
1968: ++bl_level; // scope weirdness!
1969: ++in_mem_fct;
1970: } break;
1971: case 102:
1972: # line 1085 "gram.y"
1973: {
1974: --in_mem_fct;
1975: --bl_level; // scope weirdness!
1976: if ( yychar == ID ) {
1977: // (yuk!) adjust lex level
1978: --yylval.pn->lex_level;
1979: }
1980: ccl->mem_list = name_unlist(yypvt[-3].nl);
1981: if ( --in_class_decl ) // nested class
1982: // continue to parse enclosing class
1983: parsing_class_members = 1;
1984: ccl->nest_list = nested_type;
1985: if ( nested_tn ) nested_restore();
1986: nested_type = nested_type_vec[in_class_decl];
1987: nested_tn = nested_tn_vec[in_class_decl];
1988: end_cl();
1989: declTag = 1;
1990: //POP_SCOPE();
1991: } break;
1992: case 103:
1993: # line 1105 "gram.y"
1994: { aggrcheck:
1995: yyval.pb = (Pbase)yypvt[-0].pn->tp;
1996: if ( yyval.p->base == TYPE ) {
1997: Pname nx = yyval.pb->b_name;
1998: yyval.pb = (Pbase)nx->tp;
1999: if ( yyval.p->base != COBJ
2000: || strcmp(nx->string,yypvt[-0].pn->string)
2001: )
2002: error("%n of type%t redeclared as%k.",yypvt[-0].pn,yyval.pb,yypvt[-1].t);
2003: } else if ( yyval.p->base != COBJ )
2004: error("%n of type%t redeclared as%k",yypvt[-0].pn,yyval.pb,yypvt[-1].t);
2005: check_tag();
2006: } break;
2007: case 104:
2008: # line 1119 "gram.y"
2009: {
2010: Pname p = parametrized_typename(yypvt[-3].pn, (expr_unlist(yypvt[-1].el))) ;
2011: yyval.pb = (Pbase)p->tp;
2012: check_tag();
2013: } break;
2014: case 105:
2015: # line 1125 "gram.y"
2016: {
2017: goto aggrcheck;
2018: } break;
2019: case 108:
2020: # line 1135 "gram.y"
2021: { yyval.pbc = yypvt[-0].pbc; } break;
2022: case 109:
2023: # line 1136 "gram.y"
2024: { yyval.pbc = 0; } break;
2025: case 111:
2026: # line 1141 "gram.y"
2027: { if (yypvt[-0].pbc) { yyval.pbc = yypvt[-0].pbc; yyval.pbc->next = yypvt[-2].pbc; } } break;
2028: case 112:
2029: # line 1144 "gram.y"
2030: { yyval.pbc = dobase(0,yypvt[-0].pn); } break;
2031: case 113:
2032: # line 1145 "gram.y"
2033: { yyval.pbc = dobase(yypvt[-1].t,yypvt[-0].pn); } break;
2034: case 114:
2035: # line 1146 "gram.y"
2036: { yyval.pbc = dobase(0,yypvt[-0].pn,yypvt[-1].t); } break;
2037: case 115:
2038: # line 1147 "gram.y"
2039: { yyval.pbc = dobase(yypvt[-2].t,yypvt[-0].pn,yypvt[-1].t); } break;
2040: case 116:
2041: # line 1148 "gram.y"
2042: { yyval.pbc = dobase(yypvt[-1].t,yypvt[-0].pn,yypvt[-2].t); } break;
2043: case 117:
2044: # line 1152 "gram.y"
2045: {//PUSH_CLASS_SCOPE(0);
2046: parsing_class_members = 1;
2047: yyval.p = start_cl(yypvt[-1].t,0,0);
2048: nested_tn_vec[in_class_decl] = nested_tn;
2049: nested_type_vec[in_class_decl++] = nested_type;
2050: nested_tn = nested_type = 0;
2051: SAVE_STATE();
2052: } break;
2053: case 118:
2054: # line 1162 "gram.y"
2055: { //PUSH_CLASS_SCOPE(yypvt[-2].pn->string);
2056: parsing_class_members = 1;
2057: yyval.p = start_cl(yypvt[-3].t,yypvt[-2].pn,yypvt[-1].pbc);
2058: nested_tn_vec[in_class_decl] = nested_tn;
2059: nested_type_vec[in_class_decl++] = nested_type;
2060: nested_tn = nested_type = 0;
2061: SAVE_STATE();
2062: } break;
2063: case 119:
2064: # line 1172 "gram.y"
2065: { yyval.p = yypvt[-0].pn; } break;
2066: case 120:
2067: # line 1173 "gram.y"
2068: { yyval.p=yypvt[-0].p; } break;
2069: case 121:
2070: # line 1176 "gram.y"
2071: { yyval.p = yypvt[-0].pn; } break;
2072: case 122:
2073: # line 1177 "gram.y"
2074: { yyval.p=yypvt[-0].p; } break;
2075: case 123:
2076: # line 1181 "gram.y"
2077: {
2078: if (yypvt[-0].p) {
2079: if (yypvt[-1].p)
2080: yypvt[-1].nl->add_list(yypvt[-0].pn);
2081: else
2082: yyval.nl = new nlist(yypvt[-0].pn);
2083: }
2084: } break;
2085: case 124:
2086: # line 1189 "gram.y"
2087: { yyval.p = 0; } break;
2088: case 125:
2089: # line 1191 "gram.y"
2090: {
2091: error( "ZizedTD must be atG, notC scope" );
2092: error('i', "cannot recover from previous error" );
2093: } break;
2094: case 132:
2095: # line 1204 "gram.y"
2096: { yyval.p = new name;
2097: yyval.pn->base = yypvt[-1].t;
2098: } break;
2099: case 133:
2100: # line 1214 "gram.y"
2101: { Pname n = Ncopy(yypvt[-1].pn);
2102: if (n->n_oper == TYPE) {
2103: error('s',"visibilityD for conversion operator");
2104: // n->tp = Ptype(n->n_initializer);
2105: n->tp = Ptype(n->cond);
2106: n->cond = 0;
2107: // n->n_initializer = 0;
2108: n->n_oper = 0;
2109: sig_name(n);
2110: }
2111: n->n_qualifier = yypvt[-2].pn;
2112: n->base = PR;
2113: yyval.p = n;
2114: } break;
2115: case 134:
2116: # line 1243 "gram.y"
2117: { yyval.p = yypvt[-0].pn; } break;
2118: case 135:
2119: # line 1245 "gram.y"
2120: { yyval.p = Ncopy(yypvt[-0].pn);
2121: yyval.pn->n_oper = DTOR;
2122: } break;
2123: case 136:
2124: # line 1249 "gram.y"
2125: { yyval.p = new name(oper_name(yypvt[-0].t));
2126: yyval.pn->n_oper = yypvt[-0].t;
2127: } break;
2128: case 137:
2129: # line 1253 "gram.y"
2130: { Pname n = yypvt[-0].pn;
2131: n->string = "_type";
2132: n->n_oper = TYPE;
2133: n->cond = Pexpr(n->tp);
2134: // n->n_initializer = Pexpr(n->tp);
2135: n->tp = 0;
2136: yyval.p = n;
2137: } break;
2138: case 152:
2139: # line 1277 "gram.y"
2140: { yyval.t = CALL; } break;
2141: case 153:
2142: # line 1278 "gram.y"
2143: { yyval.t = DEREF; } break;
2144: case 159:
2145: # line 1284 "gram.y"
2146: { yyval.t = NEW; } break;
2147: case 160:
2148: # line 1285 "gram.y"
2149: { yyval.t = DELETE; } break;
2150: case 161:
2151: # line 1286 "gram.y"
2152: { yyval.t = REF; } break;
2153: case 162:
2154: # line 1287 "gram.y"
2155: { yyval.t = CM; } break;
2156: case 163:
2157: # line 1288 "gram.y"
2158: { yyval.t = REFMUL;
2159: if (yypvt[-0].t == DOT) error(".* cannot be overloaded");
2160: } break;
2161: case 164:
2162: # line 1294 "gram.y"
2163: { if ( yypvt[-0].pn != sta_name ) {
2164: // error('d',"tn_list: tscope: pn1: %s", yypvt[-0].pn->string);
2165: Ptype t = yypvt[-0].pn->tp;
2166: while ( t->base == TYPE )
2167: t = Pbase(t)->b_name->tp;
2168: Pname n = Pbase(t)->b_name;
2169: if (NEXTTOK() == TNAME
2170: && strcmp(n->string,yylval.pn->string)==0){
2171: // ctor -- change to ID to avoid
2172: // parsing as type spec
2173: yychar = ID;
2174: yylval.pn = Ncopy(yylval.pn);
2175: yylval.pn->n_oper = TNAME;
2176: }
2177: }
2178: yyval.pn = yypvt[-0].pn;
2179: } break;
2180: case 165:
2181: # line 1312 "gram.y"
2182: { error('s', "CNs do not nest, use typedef x::y y_in_x"); } break;
2183: case 166:
2184: # line 1317 "gram.y"
2185: { yyval.pn = yypvt[-0].pn;
2186: //xxx qualifier currently ignored...
2187: // yyval.pn = Ncopy( yypvt[-0].pn );
2188: // yyval.pn->n_oper = TNAME;
2189: // yyval.pn->n_qualifier = yypvt[-1].pn;
2190: } break;
2191: case 167:
2192: # line 1324 "gram.y"
2193: { yyval.pn = yypvt[-0].pn;
2194: // yyval.pn = Ncopy( yypvt[-0].pn );
2195: // yyval.pn->n_oper = TNAME;
2196: } break;
2197: case 168:
2198: # line 1331 "gram.y"
2199: { yyval.i = 0; } break;
2200: case 169:
2201: # line 1333 "gram.y"
2202: { /* const/volatile function */
2203: switch ( yypvt[-0].t ) {
2204: case VOLATILE:
2205: error('s',"volatile functions");
2206: break;
2207: case CONST:
2208: yyval.i = (yypvt[-1].i | 1);
2209: break;
2210: default:
2211: if ( NEXTTOK() != SM
2212: && yychar != COLON
2213: && yychar != LC ) {
2214: la_backup(yychar,yylval);
2215: yylval.t = yypvt[-0].t;
2216: la_backup(TYPE,yylval);
2217: yylval.t = SM;
2218: yychar = SM;
2219: error("syntax error: unexpected%k (did you forget a `;'?)",yypvt[-0].t);
2220: } else error("FD syntax: unexpected%k",yypvt[-0].t);
2221: break;
2222: }
2223: } break;
2224: case 170:
2225: # line 1358 "gram.y"
2226: { Freturns(yypvt[-0].p) = yypvt[-1].pn->tp;
2227: yypvt[-1].pn->tp = yypvt[-0].pt;
2228: } break;
2229: case 171:
2230: # line 1362 "gram.y"
2231: { /* function with no argument */
2232: yypvt[-3].pn->tp = new fct(yypvt[-3].pn->tp,0,1);
2233: Pfct(yypvt[-3].pn->tp)->f_const = (yypvt[-0].i & 1);
2234: } break;
2235: case 172:
2236: # line 1367 "gram.y"
2237: { Pname n = yypvt[-1].pn;
2238: yyval.p = Ncopy(n);
2239: //??? what if tname is qualified ???
2240: if (ccl && strcmp(n->string,ccl->string)) n->hide();
2241: yyval.pn->n_oper = TNAME;
2242: Freturns(yypvt[-0].p) = yyval.pn->tp;
2243: yyval.pn->tp = yypvt[-0].pt;
2244: } break;
2245: case 173:
2246: # line 1380 "gram.y"
2247: {
2248: yypvt[-3].pn->tp = new fct(yypvt[-3].pn->tp,yypvt[-1].pn,1);
2249: in_arg_list = 0;
2250: end_al(yypvt[-2].pl,0);
2251: //RESTORE_STATE();
2252: //POP_SCOPE(); // similar to end_al()
2253: } break;
2254: case 174:
2255: # line 1388 "gram.y"
2256: {
2257: Pptr p = new ptr( PTR, 0 );
2258: Ptyp(p) = new basetype(TYPE,yypvt[-5].pn);
2259: Freturns( yypvt[-0].p ) = Ptype(p);
2260: yypvt[-2].pn->tp = yypvt[-0].pt;
2261: yyval.p = yypvt[-2].pn;
2262: if (DECL_TYPE == -1) DECL_TYPE = 0;
2263: } break;
2264: case 175:
2265: # line 1397 "gram.y"
2266: { yyval.p = Ncopy(yypvt[-3].pn);
2267: yyval.pn->n_oper = TNAME;
2268: yyval.pn->tp = new fct(0,yypvt[-1].pn,1);
2269: } break;
2270: case 176:
2271: # line 1402 "gram.y"
2272: { /* function with no argument */
2273: yyval.p = Ncopy(yypvt[-3].pn);
2274: yyval.pn->n_oper = TNAME;
2275: yyval.pn->tp = new fct(0,0,1);
2276: Pfct(yypvt[-3].pn->tp)->f_const = (yypvt[-0].i & 1);
2277: } break;
2278: case 177:
2279: # line 1409 "gram.y"
2280: { memptrdcl(yypvt[-3].pn,yypvt[-5].pn,yypvt[-0].pt,yypvt[-2].pn);
2281: yyval.p = yypvt[-2].p;
2282: } break;
2283: case 179:
2284: # line 1414 "gram.y"
2285: { yyval.p = Ncopy(yypvt[-0].pn);
2286: yyval.pn->n_qualifier = yypvt[-2].pn;
2287: error(strict_opt?0:'w',"`.' used for qualification; please use `::' (anachronism)");
2288: } break;
2289: case 180:
2290: # line 1419 "gram.y"
2291: { yyval.p = yypvt[-0].p;
2292: if ( yypvt[-1].pn != sta_name ) {
2293: set_scope(yypvt[-1].pn);
2294: yyval.pn->n_qualifier = yypvt[-1].pn;
2295: }
2296: } break;
2297: case 181:
2298: # line 1426 "gram.y"
2299: { yyval.p = Ncopy(yypvt[-0].pn);
2300: yyval.pn->n_qualifier = yypvt[-2].pn;
2301: error(ansi_opt?0:'w',"anachronism `.' used for qualification; please use `::'");
2302: if ( yypvt[-3].pn != sta_name ) {
2303: set_scope(yypvt[-3].pn);
2304: yypvt[-2].pn->n_qualifier = yypvt[-3].pn;
2305: }
2306: } break;
2307: case 182:
2308: # line 1444 "gram.y"
2309: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp;
2310: yypvt[-0].pn->tp = yypvt[-1].pt;
2311: yyval.p = yypvt[-0].p;
2312: } break;
2313: case 183:
2314: # line 1449 "gram.y"
2315: { yyval.p = Ncopy(yypvt[-0].pn);
2316: yyval.pn->n_oper = TNAME;
2317: // cannot evaluate at this point: defer until data_dcl
2318: if ( in_typedef ) {
2319: defer_check = 1;
2320: in_tag = yypvt[-0].pn;
2321: }
2322: yypvt[-0].pn->hide();
2323: defer_check = 0;
2324: yyval.pn->tp = yypvt[-1].pt;
2325: } break;
2326: case 184:
2327: # line 1461 "gram.y"
2328: { yyval.p = Ncopy(yypvt[-1].pn);
2329: yyval.pn->n_oper = TNAME;
2330: if ( in_typedef ) {
2331: defer_check = 1;
2332: in_tag = yypvt[-1].pn;
2333: }
2334: yypvt[-1].pn->hide();
2335: defer_check = 0;
2336: yyval.pn->tp = yypvt[-0].pt;
2337: } break;
2338: case 185:
2339: # line 1472 "gram.y"
2340: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp;
2341: yypvt[-1].pn->tp = yypvt[-0].pt;
2342: } break;
2343: case 186:
2344: # line 1489 "gram.y"
2345: {
2346: yyval.p = yypvt[-1].p;
2347: in_arg_list = 0;
2348: end_al(yypvt[-2].pl,0);
2349: //RESTORE_STATE();
2350: //POP_SCOPE(); // similar to end_al()
2351: } break;
2352: case 187:
2353: # line 1499 "gram.y"
2354: { yyval.p = yypvt[-0].pn; } break;
2355: case 188:
2356: # line 1501 "gram.y"
2357: { yyval.p = Ncopy(yypvt[-0].pn);
2358: yyval.pn->n_oper = TNAME;
2359: yypvt[-0].pn->hide();
2360: yyval.pn->tp = yypvt[-1].pt;
2361: } break;
2362: case 189:
2363: # line 1507 "gram.y"
2364: {
2365: yyval.p = new name;
2366: NOT_EXPECT_ID();
2367: } break;
2368: case 190:
2369: # line 1512 "gram.y"
2370: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp;
2371: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p;
2372: yyval.p = yypvt[-0].p;
2373: } break;
2374: case 191:
2375: # line 1517 "gram.y"
2376: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp;
2377: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p;
2378: } break;
2379: case 192:
2380: # line 1521 "gram.y"
2381: { Freturns(yypvt[-0].p) = yypvt[-1].pn->tp;
2382: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p;
2383: } break;
2384: case 193:
2385: # line 1537 "gram.y"
2386: {
2387: // error('d', "arg_lp arg_decl rp in_arg_list: %d", in_arg_list );
2388: yyval.p = yypvt[-1].p;
2389: in_arg_list = 0;
2390: end_al(yypvt[-2].pl,0);
2391: //RESTORE_STATE();
2392: //POP_SCOPE(); // similar to end_al()
2393: } break;
2394: case 194:
2395: # line 1548 "gram.y"
2396: { yyval.p = new name; } break;
2397: case 195:
2398: # line 1550 "gram.y"
2399: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp;
2400: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p;
2401: yyval.p = yypvt[-0].p;
2402: NOT_EXPECT_ID();
2403: } break;
2404: case 196:
2405: # line 1556 "gram.y"
2406: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp;
2407: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p;
2408: } break;
2409: case 197:
2410: # line 1561 "gram.y"
2411: { yyval.p = new name; } break;
2412: case 198:
2413: # line 1563 "gram.y"
2414: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp;
2415: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p;
2416: yyval.p = yypvt[-0].p;
2417: NOT_EXPECT_ID();
2418: } break;
2419: case 199:
2420: # line 1569 "gram.y"
2421: { Vtype(yypvt[-0].p) = yypvt[-1].pn->tp;
2422: yypvt[-1].pn->tp = (Ptype)yypvt[-0].p;
2423: } break;
2424: case 200:
2425: # line 1573 "gram.y"
2426: { Freturns(yypvt[-0].p) = yypvt[-2].pn->tp;
2427: yypvt[-2].pn->tp = yypvt[-0].pt;
2428: yyval.p = yypvt[-2].p;
2429: } break;
2430: case 201:
2431: # line 1578 "gram.y"
2432: { Vtype(yypvt[-0].p) = yypvt[-2].pn->tp;
2433: yypvt[-2].pn->tp = yypvt[-0].pt;
2434: yyval.p = yypvt[-2].p;
2435: } break;
2436: case 202:
2437: # line 1585 "gram.y"
2438: { yyval.p = new name; } break;
2439: case 203:
2440: # line 1587 "gram.y"
2441: { Ptyp(yypvt[-1].p) = yypvt[-0].pn->tp;
2442: yypvt[-0].pn->tp = (Ptype)yypvt[-1].p;
2443: yyval.p = yypvt[-0].p;
2444: } break;
2445: case 204:
2446: # line 1597 "gram.y"
2447: {
2448: yyval.p = 0;
2449: } break;
2450: case 205:
2451: # line 1601 "gram.y"
2452: {
2453: error( "ZizedTD must be atG, not local scope" );
2454: error('i', "cannot recover from previous error" );
2455: } break;
2456: case 206:
2457: # line 1606 "gram.y"
2458: {
2459: if (yypvt[-0].p)
2460: if (yypvt[-1].p)
2461: yypvt[-1].sl->add(yypvt[-0].ps);
2462: else {
2463: yyval.sl = new slist(yypvt[-0].ps);
2464: stmt_seen = 1;
2465: }
2466: } break;
2467: case 207:
2468: # line 1617 "gram.y"
2469: {
2470: yyval.p = yypvt[-0].p;
2471: if (yypvt[-0].p) stmt_seen = 1;
2472: } break;
2473: case 208:
2474: # line 1624 "gram.y"
2475: {
2476: yyval.p = 0;
2477: check_decl();
2478: } break;
2479: case 209:
2480: # line 1631 "gram.y"
2481: { yyval.p = yypvt[-1].p;
2482: /* if ($<pe>$ == dummy) error("empty condition");*/
2483: stmt_seen = 1;
2484: } break;
2485: case 210:
2486: # line 1638 "gram.y"
2487: {//PUSH_BLOCK_SCOPE
2488: cd_vec[cdi] = cd;
2489: stmt_vec[cdi] = stmt_seen;
2490: tn_vec[cdi] = modified_tn;
2491: lcl_blk_vec[cdi++] = local_blk;
2492: lcl_tn_vec[cdi] = local_tn;
2493: local_blk = 0;
2494: local_tn = 0;
2495: cd = 0;
2496: stmt_seen = 0;
2497: modified_tn = 0;
2498: } break;
2499: case 211:
2500: # line 1651 "gram.y"
2501: { Pname n = name_unlist(cd);
2502: Pstmt ss = stmt_unlist(yypvt[-1].sl);
2503: yyval.p = new block(yypvt[-3].l,n,ss,yypvt[-0].l);
2504: if ( local_tn ) local_restore();
2505: if ( local_blk ) local_name();
2506: if (modified_tn) restore();
2507: cd = cd_vec[--cdi];
2508: stmt_seen = stmt_vec[cdi];
2509: modified_tn = tn_vec[cdi];
2510: local_tn = lcl_tn_vec[cdi];
2511: local_blk = lcl_blk_vec[cdi];
2512: if (cdi < 0) error('i',"block level(%d)",cdi);
2513: NOT_EXPECT_ID();
2514: //POP_SCOPE(); // similar to end_al()
2515: } break;
2516: case 212:
2517: # line 1667 "gram.y"
2518: { yyval.p = new block(yypvt[-1].l,0,0,yypvt[-0].l); NOT_EXPECT_ID();} break;
2519: case 213:
2520: # line 1669 "gram.y"
2521: { yyval.p = new block(yypvt[-2].l,0,0,yypvt[-0].l); NOT_EXPECT_ID();} break;
2522: case 214:
2523: # line 1673 "gram.y"
2524: { yyval.p = new estmt(SM,curloc,yypvt[-0].pe,0); } break;
2525: case 215:
2526: # line 1675 "gram.y"
2527: { yyval.p = new stmt(BREAK,yypvt[-0].l,0); } break;
2528: case 216:
2529: # line 1677 "gram.y"
2530: { yyval.p = new stmt(CONTINUE,yypvt[-0].l,0); } break;
2531: case 217:
2532: # line 1679 "gram.y"
2533: { yyval.p = new lstmt(GOTO,yypvt[-1].l,yypvt[-0].pn,0); } break;
2534: case 218:
2535: # line 1680 "gram.y"
2536: { stmt_seen=1; } break;
2537: case 219:
2538: # line 1681 "gram.y"
2539: { yyval.p = new estmt(DO,yypvt[-4].l,yypvt[-0].pe,yypvt[-2].ps); } break;
2540: case 220:
2541: # line 1683 "gram.y"
2542: {
2543: if (stmt_seen)
2544: yyval.p = new estmt(ASM,curloc,(Pexpr)yypvt[-1].s,0);
2545: else {
2546: Pname n = new name(make_name('A'));
2547: n->tp = new basetype(ASM,(Pname)yypvt[-1].s);
2548: if (cd)
2549: cd->add_list(n);
2550: else
2551: cd = new nlist(n);
2552: yyval.p = 0;
2553: }
2554: } break;
2555: case 221:
2556: # line 1698 "gram.y"
2557: {
2558: if ( NEXTTOK() != SM ) {
2559: error("`;' missing afterS");
2560: la_backup(yychar,yylval);
2561: yychar = SM;
2562: }
2563: } break;
2564: case 224:
2565: # line 1709 "gram.y"
2566: { yyval.p = new estmt(SM,yypvt[-0].l,dummy,0); } break;
2567: case 225:
2568: # line 1711 "gram.y"
2569: { yyval.p = new estmt(RETURN,yypvt[-2].l,yypvt[-1].pe,0); } break;
2570: case 226:
2571: # line 1713 "gram.y"
2572: {
2573: error("local linkage specification");
2574: yyval.p = yypvt[-0].pn;
2575: } break;
2576: case 227:
2577: # line 1718 "gram.y"
2578: { Pname n = yypvt[-0].pn;
2579: if (n) {
2580: //error('d',"adding local dcl of%n%t ll %d in_typedef%t",n,n->tp,n->lex_level,in_typedef);
2581: if (stmt_seen) {
2582: yyval.p = new block(n->where,n,0);
2583: yyval.ps->base = DCL;
2584: }
2585: else {
2586: if (cd)
2587: cd->add_list(n);
2588: else
2589: cd = new nlist(n);
2590: yyval.p = 0;
2591: }
2592: } // if n
2593: } break;
2594: case 228:
2595: # line 1735 "gram.y"
2596: {
2597: Pname n = yypvt[-0].pn;
2598: error(&n->where,"%n's definition is nested (did you forget a ``}''?)",n);
2599: if (cd)
2600: cd->add_list(n);
2601: else
2602: cd = new nlist(n);
2603: yyval.p = 0;
2604: } break;
2605: case 230:
2606: # line 1746 "gram.y"
2607: { yyval.p = new ifstmt(yypvt[-2].l,yypvt[-1].pe,yypvt[-0].ps,0); } break;
2608: case 231:
2609: # line 1748 "gram.y"
2610: { yyval.p = new ifstmt(yypvt[-4].l,yypvt[-3].pe,yypvt[-2].ps,yypvt[-0].ps); } break;
2611: case 232:
2612: # line 1750 "gram.y"
2613: { yyval.p = new estmt(WHILE,yypvt[-2].l,yypvt[-1].pe,yypvt[-0].ps); } break;
2614: case 233:
2615: # line 1751 "gram.y"
2616: { stmt_seen=1; } break;
2617: case 234:
2618: # line 1752 "gram.y"
2619: { yyval.p = new forstmt(yypvt[-8].l,yypvt[-5].ps,yypvt[-4].pe,yypvt[-2].pe,yypvt[-0].ps); } break;
2620: case 235:
2621: # line 1754 "gram.y"
2622: { yyval.p = new estmt(SWITCH,yypvt[-2].l,yypvt[-1].pe,yypvt[-0].ps); } break;
2623: case 236:
2624: # line 1755 "gram.y"
2625: { yyval.p = yypvt[-1].pn; stmt_seen=1; } break;
2626: case 237:
2627: # line 1756 "gram.y"
2628: { Pname n = yypvt[-1].pn;
2629: yyval.p = new lstmt(LABEL,n->where,n,yypvt[-0].ps);
2630: } break;
2631: case 238:
2632: # line 1759 "gram.y"
2633: { yyval.p = new name(yypvt[-1].pn->string); stmt_seen=1; } break;
2634: case 239:
2635: # line 1760 "gram.y"
2636: { Pname n = yypvt[-1].pn;
2637: yyval.p = new lstmt(LABEL,n->where,n,yypvt[-0].ps);
2638: } break;
2639: case 240:
2640: # line 1763 "gram.y"
2641: { stmt_seen=1; } break;
2642: case 241:
2643: # line 1764 "gram.y"
2644: { if (yypvt[-2].pe == dummy) error("empty case label");
2645: yyval.p = new estmt(CASE,yypvt[-4].l,yypvt[-2].pe,yypvt[-0].ps);
2646: } break;
2647: case 242:
2648: # line 1767 "gram.y"
2649: { stmt_seen=1; } break;
2650: case 243:
2651: # line 1768 "gram.y"
2652: { yyval.p = new stmt(DEFAULT,yypvt[-3].l,yypvt[-0].ps); } break;
2653: case 244:
2654: # line 1775 "gram.y"
2655: { Pexpr e = expr_unlist(yypvt[-0].el);
2656: while (e && e->e1==dummy) {
2657: register Pexpr ee2 = e->e2;
2658: if (ee2) error("EX inEL");
2659: delete e;
2660: e = ee2;
2661: }
2662: yyval.p = e;
2663: } break;
2664: case 245:
2665: # line 1787 "gram.y"
2666: { yyval.el = new elist(new expr(ELIST,yypvt[-0].pe,0)); } break;
2667: case 246:
2668: # line 1789 "gram.y"
2669: { yypvt[-2].el->add(new expr(ELIST,yypvt[-0].pe,0)); } break;
2670: case 248:
2671: # line 1794 "gram.y"
2672: {
2673: if ( in_arg_list )
2674: error( "syntax error: IrL not permitted in AL" );
2675: else if ( in_binit_list )
2676: error( "syntax error: IrL not permitted inMIr" );
2677: else
2678: init_seen = 1;
2679: Pexpr e;
2680: if (yypvt[-1].p)
2681: e = yypvt[-1].pe;
2682: else
2683: e = new expr(ELIST,dummy,0);
2684: yyval.p = new expr(ILIST,e,0);
2685: } break;
2686: case 249:
2687: # line 1811 "gram.y"
2688: { bbinop: yyval.p = new expr(yypvt[-1].t,yypvt[-2].pe,yypvt[-0].pe); } break;
2689: case 250:
2690: # line 1812 "gram.y"
2691: { goto bbinop; } break;
2692: case 251:
2693: # line 1813 "gram.y"
2694: { goto bbinop; } break;
2695: case 252:
2696: # line 1814 "gram.y"
2697: { goto bbinop; } break;
2698: case 253:
2699: # line 1815 "gram.y"
2700: { goto bbinop; } break;
2701: case 254:
2702: # line 1816 "gram.y"
2703: { goto bbinop; } break;
2704: case 255:
2705: # line 1817 "gram.y"
2706: { goto bbinop; } break;
2707: case 256:
2708: # line 1818 "gram.y"
2709: { goto bbinop; } break;
2710: case 257:
2711: # line 1819 "gram.y"
2712: { goto bbinop; } break;
2713: case 258:
2714: # line 1820 "gram.y"
2715: { goto bbinop; } break;
2716: case 259:
2717: # line 1821 "gram.y"
2718: { goto bbinop; } break;
2719: case 260:
2720: # line 1822 "gram.y"
2721: { goto bbinop; } break;
2722: case 261:
2723: # line 1823 "gram.y"
2724: { goto bbinop; } break;
2725: case 262:
2726: # line 1824 "gram.y"
2727: { goto bbinop; } break;
2728: case 263:
2729: # line 1825 "gram.y"
2730: { goto bbinop; } break;
2731: case 264:
2732: # line 1826 "gram.y"
2733: { goto bbinop; } break;
2734: case 265:
2735: # line 1827 "gram.y"
2736: { goto bbinop; } break;
2737: case 266:
2738: # line 1829 "gram.y"
2739: { yyval.p = new qexpr(yypvt[-4].pe,yypvt[-2].pe,yypvt[-0].pe); } break;
2740: case 267:
2741: # line 1831 "gram.y"
2742: { yyval.p = new expr(DELETE,yypvt[-0].pe,0); } break;
2743: case 268:
2744: # line 1833 "gram.y"
2745: {
2746: if(yypvt[-2].pe != dummy) {
2747: if ( warning_opt || strict_opt )
2748: error(strict_opt?0:'w',"v in `delete[v]' is redundant; use `delete[] instead (anachronism)");
2749: }
2750: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe);
2751: } break;
2752: case 269:
2753: # line 1841 "gram.y"
2754: { yyval.p = new expr(GDELETE,yypvt[-0].pe,0); } break;
2755: case 270:
2756: # line 1843 "gram.y"
2757: {
2758: if(yypvt[-2].pe != dummy) {
2759: if ( warning_opt || strict_opt )
2760: error(strict_opt?0:'w',"v in `::delete[v]' is redundant; use `::delete[] instead (anachronism)");
2761: }
2762: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe);
2763: } break;
2764: case 272:
2765: # line 1854 "gram.y"
2766: { binop: yyval.p = new expr(yypvt[-1].t,yypvt[-2].pe,yypvt[-0].pe); } break;
2767: case 273:
2768: # line 1855 "gram.y"
2769: { goto binop; } break;
2770: case 274:
2771: # line 1856 "gram.y"
2772: { goto binop; } break;
2773: case 275:
2774: # line 1857 "gram.y"
2775: { goto binop; } break;
2776: case 276:
2777: # line 1858 "gram.y"
2778: { goto binop; } break;
2779: case 277:
2780: # line 1859 "gram.y"
2781: { goto binop; } break;
2782: case 278:
2783: # line 1860 "gram.y"
2784: { goto binop; } break;
2785: case 279:
2786: # line 1861 "gram.y"
2787: { goto binop; } break;
2788: case 280:
2789: # line 1862 "gram.y"
2790: { goto binop; } break;
2791: case 281:
2792: # line 1863 "gram.y"
2793: { goto binop; } break;
2794: case 282:
2795: # line 1864 "gram.y"
2796: { goto binop; } break;
2797: case 283:
2798: # line 1865 "gram.y"
2799: { goto binop; } break;
2800: case 284:
2801: # line 1866 "gram.y"
2802: { goto binop; } break;
2803: case 285:
2804: # line 1867 "gram.y"
2805: { goto binop; } break;
2806: case 286:
2807: # line 1868 "gram.y"
2808: { goto binop; } break;
2809: case 287:
2810: # line 1869 "gram.y"
2811: { goto binop; } break;
2812: case 288:
2813: # line 1870 "gram.y"
2814: { goto binop; } break;
2815: case 289:
2816: # line 1872 "gram.y"
2817: { yyval.p = new qexpr(yypvt[-4].pe,yypvt[-2].pe,yypvt[-0].pe); } break;
2818: case 290:
2819: # line 1874 "gram.y"
2820: { yyval.p = new expr(DELETE,yypvt[-0].pe,0); } break;
2821: case 291:
2822: # line 1876 "gram.y"
2823: {
2824: if(yypvt[-2].pe != dummy) {
2825: if ( warning_opt || strict_opt )
2826: error(strict_opt?0:'w',"v in `delete[v]' is redundant; use `delete[] instead (anachronism)");
2827: }
2828: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe);
2829: } break;
2830: case 292:
2831: # line 1884 "gram.y"
2832: { yyval.p = new expr(GDELETE,yypvt[-0].pe,0); } break;
2833: case 293:
2834: # line 1886 "gram.y"
2835: {
2836: if(yypvt[-2].pe != dummy) {
2837: if ( warning_opt || strict_opt )
2838: error(strict_opt?0:'w',"v in `::delete[v]' is redundant; use `::delete[] instead (anachronism)");
2839: }
2840: yyval.p = new expr(DELETE,yypvt[-0].pe,yypvt[-2].pe);
2841: } break;
2842: case 294:
2843: # line 1893 "gram.y"
2844: {
2845: init_seen = 0;
2846: } break;
2847: case 295:
2848: # line 1897 "gram.y"
2849: { yyval.p = dummy; } break;
2850: case 296:
2851: # line 1900 "gram.y"
2852: { goto new1; } break;
2853: case 297:
2854: # line 1902 "gram.y"
2855: { new1:
2856: Ptype t = yypvt[-0].pn->tp;
2857: yyval.p = new texpr(NEW,t,0);
2858: } break;
2859: case 298:
2860: # line 1906 "gram.y"
2861: { goto new3; } break;
2862: case 299:
2863: # line 1908 "gram.y"
2864: { new3:
2865: Ptype t = yypvt[-0].pn->tp;
2866: yyval.p = new texpr(GNEW,t,0);
2867: } break;
2868: case 300:
2869: # line 1913 "gram.y"
2870: { yyval.p = new expr(yypvt[-0].t,yypvt[-1].pe,0); } break;
2871: case 301:
2872: # line 1915 "gram.y"
2873: { yyval.p = new texpr(CAST,yypvt[-1].pn->tp,yypvt[-0].pe); } break;
2874: case 302:
2875: # line 1917 "gram.y"
2876: { yyval.p = new expr(DEREF,yypvt[-0].pe,0); } break;
2877: case 303:
2878: # line 1919 "gram.y"
2879: { yyval.p = new expr(ADDROF,0,yypvt[-0].pe); } break;
2880: case 304:
2881: # line 1921 "gram.y"
2882: { yyval.p = new expr(UMINUS,0,yypvt[-0].pe); } break;
2883: case 305:
2884: # line 1923 "gram.y"
2885: { yyval.p = new expr(UPLUS,0,yypvt[-0].pe); } break;
2886: case 306:
2887: # line 1925 "gram.y"
2888: { yyval.p = new expr(NOT,0,yypvt[-0].pe); } break;
2889: case 307:
2890: # line 1927 "gram.y"
2891: { yyval.p = new expr(COMPL,0,yypvt[-0].pe); } break;
2892: case 308:
2893: # line 1929 "gram.y"
2894: { yyval.p = new expr(yypvt[-1].t,0,yypvt[-0].pe); } break;
2895: case 309:
2896: # line 1931 "gram.y"
2897: {
2898: yyval.p = new texpr(SIZEOF,0,yypvt[-0].pe);
2899: in_sizeof = 0;
2900: } break;
2901: case 310:
2902: # line 1936 "gram.y"
2903: {
2904: yyval.p = new texpr(SIZEOF,yypvt[-0].pn->tp,0);
2905: in_sizeof = 0;
2906: } break;
2907: case 311:
2908: # line 1941 "gram.y"
2909: { yyval.p = new expr(DEREF,yypvt[-3].pe,yypvt[-1].pe); } break;
2910: case 312:
2911: # line 1943 "gram.y"
2912: { yyval.p = new ref(REF,yypvt[-2].pe,yypvt[-0].pn); } break;
2913: case 313:
2914: # line 1945 "gram.y"
2915: { yyval.p = new expr(yypvt[-1].t,yypvt[-2].pe,yypvt[-0].pe); } break;
2916: case 314:
2917: # line 1947 "gram.y"
2918: { yyval.p = new ref(REF,yypvt[-2].pe,Ncopy(yypvt[-0].pn)); } break;
2919: case 315:
2920: # line 1949 "gram.y"
2921: { yyval.p = new ref(DOT,yypvt[-2].pe,yypvt[-0].pn); } break;
2922: case 316:
2923: # line 1951 "gram.y"
2924: { yyval.p = new ref(DOT,yypvt[-2].pe,Ncopy(yypvt[-0].pn)); } break;
2925: case 318:
2926: # line 1954 "gram.y"
2927: {
2928: if ( init_seen )
2929: error( "syntax error:IrL illegal within ()");
2930: } break;
2931: case 319:
2932: # line 1960 "gram.y"
2933: {
2934: if ( yypvt[-1].p == dummy )
2935: error("syntax error: nullE");
2936: yyval.p = yypvt[-1].p;
2937: } break;
2938: case 320:
2939: # line 1966 "gram.y"
2940: { yyval.p = zero; } break;
2941: case 321:
2942: # line 1968 "gram.y"
2943: { yyval.p = new expr(ICON,0,0);
2944: yyval.pe->string = copy_if_need_be(yypvt[-0].s);
2945: } break;
2946: case 322:
2947: # line 1972 "gram.y"
2948: { yyval.p = new expr(FCON,0,0);
2949: yyval.pe->string = copy_if_need_be(yypvt[-0].s);
2950: } break;
2951: case 323:
2952: # line 1976 "gram.y"
2953: { yyval.p = new expr(STRING,0,0);
2954: yyval.pe->string = copy_if_need_be(yypvt[-0].s);
2955: } break;
2956: case 324:
2957: # line 1980 "gram.y"
2958: { yyval.p = new expr(CCON,0,0);
2959: yyval.pe->string = copy_if_need_be(yypvt[-0].s);
2960: } break;
2961: case 325:
2962: # line 1984 "gram.y"
2963: { yyval.p = new expr(THIS,0,0); } break;
2964: case 326:
2965: # line 1988 "gram.y"
2966: { yyval.p = new texpr(VALUE,tok_to_type(yypvt[-3].t),yypvt[-1].pe); } break;
2967: case 327:
2968: # line 1993 "gram.y"
2969: { yyval.p = new texpr(VALUE,yypvt[-3].pn->tp,yypvt[-1].pe); } break;
2970: case 328:
2971: # line 1994 "gram.y"
2972: { goto new2; } break;
2973: case 329:
2974: # line 1996 "gram.y"
2975: { new2:
2976: Ptype t = yypvt[-0].pn->tp;
2977: yyval.p=new texpr(NEW,t,0);
2978: yyval.pe->e2 = yypvt[-2].pe;
2979: } break;
2980: case 330:
2981: # line 2001 "gram.y"
2982: { goto new4; } break;
2983: case 331:
2984: # line 2003 "gram.y"
2985: { new4:
2986: Ptype t = yypvt[-0].pn->tp;
2987: yyval.p = new texpr(GNEW,t,0);
2988: yyval.pe->e2 = yypvt[-2].pe;
2989: } break;
2990: case 332:
2991: # line 2009 "gram.y"
2992: {
2993: Pexpr ee = yypvt[-1].pe;
2994: Pexpr e = yypvt[-3].pe;
2995: if (e->base==NEW || e->base==GNEW)
2996: e->e1 = ee;
2997: else
2998: yyval.p = new call(e,ee);
2999: } break;
3000: case 333:
3001: # line 2021 "gram.y"
3002: {
3003: yyval.pn =parametrized_typename(yypvt[-3].pn,(expr_unlist(yypvt[-1].el)));
3004: } break;
3005: case 334:
3006: # line 2027 "gram.y"
3007: {
3008: yyval.pn = yypvt[-0].pn;
3009: curr_scope = yypvt[-0].pn;
3010: } break;
3011: case 335:
3012: # line 2031 "gram.y"
3013: { yyval.pn = sta_name; } break;
3014: case 336:
3015: # line 2032 "gram.y"
3016: { yyval.pn = yypvt[-1].pn; } break;
3017: case 337:
3018: # line 2037 "gram.y"
3019: { yyval.p = yypvt[-0].pn; } break;
3020: case 338:
3021: # line 2039 "gram.y"
3022: { yyval.p = Ncopy(yypvt[-0].pn);
3023: yyval.pn->n_qualifier = yypvt[-1].pn;
3024: } break;
3025: case 339:
3026: # line 2043 "gram.y"
3027: { yyval.p = new name(oper_name(yypvt[-0].t));
3028: yyval.pn->n_oper = yypvt[-0].t;
3029: } break;
3030: case 340:
3031: # line 2047 "gram.y"
3032: { yyval.p = new name(oper_name(yypvt[-0].t));
3033: yyval.pn->n_oper = yypvt[-0].t;
3034: yyval.pn->n_qualifier = yypvt[-2].pn;
3035: } break;
3036: case 341:
3037: # line 2052 "gram.y"
3038: { yyval.p = yypvt[-0].p;
3039: sig_name(yyval.pn);
3040: } break;
3041: case 342:
3042: # line 2056 "gram.y"
3043: { yyval.p = yypvt[-0].p;
3044: sig_name(yyval.pn);
3045: yyval.pn->n_qualifier = yypvt[-2].pn;
3046: } break;
3047: case 343:
3048: # line 2061 "gram.y"
3049: {
3050: if (strcmp(yypvt[-2].pn->string,yypvt[-0].pn->string)) error("syntax error: inconsistent destructor notation");
3051: yyval.p = new name(oper_name(DTOR));
3052: yyval.pn->n_oper = DTOR;
3053: yyval.pn->n_qualifier = yypvt[-2].pn;
3054: } break;
3055: case 344:
3056: # line 2073 "gram.y"
3057: { yyval.p = Ncast(yypvt[-2].p,yypvt[-1].pn); } break;
3058: case 345:
3059: # line 2076 "gram.y"
3060: { check_cast(); } break;
3061: case 346:
3062: # line 2080 "gram.y"
3063: {
3064: TOK t = yypvt[-0].t;
3065:
3066: switch (t) {
3067: case FRIEND:
3068: case OVERLOAD:
3069: case REGISTER:
3070: case STATIC:
3071: case EXTERN:
3072: case AUTO:
3073: case VIRTUAL:
3074: error("%k in operatorT",t);
3075: t = INT;
3076:
3077: }
3078:
3079: yyval.p = new basetype(t,0);
3080:
3081: } break;
3082: case 347:
3083: # line 2099 "gram.y"
3084: { yyval.p = new basetype(TYPE,yypvt[-0].pn); } break;
3085: case 348:
3086: # line 2101 "gram.y"
3087: {
3088: if ( DECL_TYPE != -1 ) {
3089: switch (yypvt[-1].pb->base) { Pbase bt;
3090: case COBJ: case EOBJ:
3091: bt = new basetype(0,0);
3092: *bt = *yypvt[-1].pb;
3093: DEL(yypvt[-1].pb);
3094: yypvt[-1].pb = bt;
3095: }
3096: yyval.p = yypvt[-1].pb->type_adj(yypvt[-0].t);
3097: }
3098: DECL_TYPE = 0;
3099: } break;
3100: case 349:
3101: # line 2115 "gram.y"
3102: {
3103: if ( DECL_TYPE != -1 )
3104: yyval.p = yypvt[-1].pb->name_adj(yypvt[-0].pn);
3105: DECL_TYPE = 0;
3106: } break;
3107: case 350:
3108: # line 2122 "gram.y"
3109: { yyval.p = Ncast(yypvt[-1].p,yypvt[-0].pn); } break;
3110: case 351:
3111: # line 2125 "gram.y"
3112: { yyval.p = Ncast(yypvt[-1].p,yypvt[-0].pn); } break;
3113: case 352:
3114: # line 2128 "gram.y"
3115: {
3116: // ENTER_NAME(yypvt[-0].pn);
3117: yyval.p = Ndata(yypvt[-1].p,yypvt[-0].pn);
3118: } break;
3119: case 353:
3120: # line 2133 "gram.y"
3121: {
3122: // ENTER_NAME(yypvt[-1].pn);
3123: } break;
3124: case 354:
3125: # line 2137 "gram.y"
3126: { yyval.p = Ndata(yypvt[-4].p,yypvt[-3].pn);
3127: yyval.pn->n_initializer = yypvt[-0].pe;
3128: } break;
3129: case 355:
3130: # line 2143 "gram.y"
3131: {//PUSH_ARG_SCOPE
3132: //SAVE_STATE();
3133: check_decl();
3134: in_arg_list=1;
3135: yyval.pl = modified_tn;
3136: modified_tn = 0;
3137: } break;
3138: case 356:
3139: # line 2153 "gram.y"
3140: {
3141: yyval.p = new fct(0,name_unlist(yypvt[-3].nl),yypvt[-2].t);
3142: if ( NEXTTOK() != COLON ) in_arg_list=0;
3143: //in_arg_list=0;
3144: Pfct(yyval.pt)->f_const = (yypvt[-0].i & 1);
3145: if ( parsing_class_members
3146: || (NEXTTOK()!=LC && yychar!=COLON)) {
3147: end_al(yypvt[-4].pl,1);
3148: //POP_SCOPE(); // similar to end_al()
3149: } else
3150: end_al(yypvt[-4].pl,0);
3151: //RESTORE_STATE();
3152: } break;
3153: case 357:
3154: # line 2169 "gram.y"
3155: {
3156: if (yypvt[-0].p)
3157: if (yypvt[-2].p)
3158: yypvt[-2].nl->add(yypvt[-0].pn);
3159: else {
3160: error("AD syntax");
3161: yyval.nl = new nlist(yypvt[-0].pn);
3162: }
3163: else
3164: error("AD syntax");
3165: } break;
3166: case 358:
3167: # line 2181 "gram.y"
3168: {
3169: if (yypvt[-0].p) yyval.nl = new nlist(yypvt[-0].pn);
3170: } break;
3171: case 360:
3172: # line 2187 "gram.y"
3173: { yyval.p = 0; } break;
3174: case 361:
3175: # line 2191 "gram.y"
3176: { yyval.t = 1; } break;
3177: case 362:
3178: # line 2193 "gram.y"
3179: { yyval.t = ELLIPSIS; } break;
3180: case 363:
3181: # line 2195 "gram.y"
3182: { yyval.t = ELLIPSIS; } break;
3183: case 364:
3184: # line 2199 "gram.y"
3185: {
3186: yyval.p = new ptr(PTR,0);
3187: EXPECT_ID();
3188: } break;
3189: case 365:
3190: # line 2204 "gram.y"
3191: {
3192: yyval.p = new ptr(RPTR,0);
3193: EXPECT_ID();
3194: } break;
3195: case 366:
3196: # line 2209 "gram.y"
3197: { yyval.p = doptr(PTR,yypvt[-0].t); } break;
3198: case 367:
3199: # line 2211 "gram.y"
3200: {
3201: switch ( yypvt[-0].t ) {
3202: case CONST:
3203: yypvt[-1].pp->b_const = 1; break;
3204: case VOLATILE:
3205: error('w',"\"volatile\" not implemented (ignored)");
3206: break;
3207: default:
3208: error( "syntax error: *%k", yypvt[-0].t );
3209: }
3210: yyval.p = yypvt[-1].pp;
3211: } break;
3212: case 368:
3213: # line 2224 "gram.y"
3214: { yyval.p = doptr(RPTR,yypvt[-0].t); } break;
3215: case 369:
3216: # line 2226 "gram.y"
3217: { goto memptr1; } break;
3218: case 370:
3219: # line 2228 "gram.y"
3220: {
3221: memptr1:
3222: yyval.p = new ptr(PTR,0);
3223: yyval.pp->memof = Pclass(Pbase(yypvt[-0].pn->tp)->b_name->tp);
3224: EXPECT_ID();
3225: } break;
3226: case 371:
3227: # line 2235 "gram.y"
3228: {
3229: yypvt[-1].t = yypvt[-0].t;
3230: goto memptr2;
3231: } break;
3232: case 372:
3233: # line 2240 "gram.y"
3234: {
3235: memptr2:
3236: yyval.p = doptr(PTR,yypvt[-0].t);
3237: yyval.pp->memof = Pclass(Pbase(yypvt[-1].pn->tp)->b_name->tp);
3238: } break;
3239: case 373:
3240: # line 2247 "gram.y"
3241: { yyval.p = new vec(0,yypvt[-1].pe!=dummy?yypvt[-1].pe:0 ); } break;
3242: case 374:
3243: # line 2248 "gram.y"
3244: { yyval.p = new vec(0,0); } break;
3245: }
3246: goto yystack; /* stack new state and value */
3247: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.