# line 2 "cdgram.y" /* Yacc grammar for ANSI and C++ cdecl. */ /* The output of this file is included */ /* into the C file cdecl.c. */ char cdgramsccsid[] = "@(#)cdgram.y 2.2 3/30/88"; # line 8 "cdgram.y" typedef union { char *dynstr; struct { char *left; char *right; char *type; } halves; } YYSTYPE; # define ARRAY 257 # define AS 258 # define CAST 259 # define COMMA 260 # define DECLARE 261 # define DOUBLECOLON 262 # define EXPLAIN 263 # define FUNCTION 264 # define HELP 265 # define INTO 266 # define OF 267 # define MEMBER 268 # define POINTER 269 # define REFERENCE 270 # define RETURNING 271 # define SET 272 # define TO 273 # define CHAR 274 # define CLASS 275 # define CONSTVOLATILE 276 # define DOUBLE 277 # define ENUM 278 # define FLOAT 279 # define INT 280 # define LONG 281 # define NAME 282 # define NUMBER 283 # define SHORT 284 # define SIGNED 285 # define STRUCT 286 # define UNION 287 # define UNSIGNED 288 # define VOID 289 # define AUTO 290 # define EXTERN 291 # define REGISTER 292 # define STATIC 293 #define yyclearin yychar = -1 #define yyerrok yyerrflag = 0 extern int yychar; extern short yyerrflag; #ifndef YYMAXDEPTH #define YYMAXDEPTH 150 #endif YYSTYPE yylval, yyval; # define YYERRCODE 256 # line 855 "cdgram.y" short yyexca[] ={ -1, 1, 0, -1, -2, 0, -1, 27, 282, 81, 40, 81, 42, 81, 38, 81, -2, 87, -1, 37, 260, 31, 41, 31, -2, 81, -1, 87, 282, 82, 40, 82, 42, 82, 38, 82, -2, 80, -1, 92, 260, 31, 41, 31, -2, 81, }; # define YYNPROD 89 # define YYLAST 322 short yyact[]={ 67, 79, 28, 69, 72, 68, 66, 76, 159, 13, 77, 75, 78, 73, 74, 70, 79, 16, 17, 18, 19, 16, 17, 18, 19, 67, 129, 78, 69, 103, 68, 66, 125, 25, 76, 39, 23, 77, 75, 128, 70, 74, 118, 22, 115, 137, 117, 118, 85, 115, 86, 117, 83, 23, 152, 25, 30, 100, 23, 10, 22, 56, 25, 23, 47, 22, 60, 59, 37, 97, 22, 121, 25, 40, 41, 123, 58, 25, 20, 34, 139, 110, 25, 161, 144, 93, 145, 92, 94, 32, 24, 57, 147, 71, 126, 29, 81, 21, 42, 55, 8, 136, 108, 150, 12, 135, 33, 106, 11, 114, 31, 10, 62, 151, 132, 134, 44, 45, 48, 49, 156, 43, 35, 2, 63, 15, 53, 1, 54, 14, 50, 64, 27, 65, 52, 101, 26, 46, 87, 82, 61, 38, 0, 90, 80, 88, 0, 0, 89, 0, 95, 96, 98, 108, 91, 108, 0, 0, 108, 0, 11, 0, 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 109, 0, 111, 104, 102, 0, 0, 0, 105, 112, 107, 0, 122, 99, 0, 113, 0, 119, 120, 0, 0, 0, 0, 127, 0, 0, 0, 0, 0, 0, 0, 124, 131, 0, 133, 0, 0, 0, 0, 142, 0, 0, 130, 143, 0, 0, 0, 0, 0, 0, 0, 138, 146, 140, 141, 148, 0, 149, 0, 0, 0, 0, 127, 0, 0, 0, 153, 0, 0, 25, 158, 0, 0, 127, 0, 128, 155, 160, 16, 17, 18, 19, 154, 0, 0, 0, 0, 157, 0, 0, 0, 0, 0, 25, 0, 0, 0, 0, 0, 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 116, 0, 0, 0, 0, 116, 84, 0, 0, 0, 0, 0, 0, 36, 0, 0, 145, 145, 92, 9, 0, 0, 5, 0, 4, 0, 6, 0, 3, 0, 0, 0, 0, 0, 0, 7 }; short yypact[]={ -1000, 49,-1000, 101,-273,-204, -38,-226,-1000, 101, -1000,-1000,-1000,-169,-194,-1000,-1000,-1000,-1000,-1000, -187, 101, 28,-248,-196,-214,-212,-214,-214, 101, -1000,-1000,-269, 101,-194,-1000,-194,-221,-191,-1000, -206,-207,-1000,-274,-1000,-1000, 10,-214, 10,-1000, -1000,-194,-1000, 101,-1000, 44,-170,-1000,-194,-199, -194,-1000,-249,-1000,-225,-247,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, 10, 101, 67,-214,-181,-214, 10,-1000, 101, 9, 101,-1000,-221,-200,-194,-1000,-1000,-192,-1000,-1000, -1000,-1000,-1000,-1000, 101,-1000, -9,-1000, -67, 10, 72, 10, 74,-1000, 64, 4,-182, 9, 9,-1000, -173,-194,-1000,-259,-1000,-1000, 43,-1000,-1000,-1000, -1,-1000, 10,-1000,-1000,-226,-1000,-1000, 62, 71, 11, 11,-1000,-228,-1000,-243, 9,-1000,-1000, 101, 80, 9,-194,-174, 11,-1000, -33, 11,-1000,-1000, 42,-1000 }; short yypgo[]={ 0, 99, 141, 140, 109, 94, 96, 139, 101, 137, 93, 112, 135, 133, 90, 95, 129, 125, 131, 124, 98, 91, 127, 123, 100, 121 }; short yyr1[]={ 0, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 15, 15, 6, 6, 6, 6, 7, 7, 7, 7, 7, 5, 5, 5, 1, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 8, 8, 21, 21, 21, 21, 21, 21, 21, 2, 2, 20, 25, 3, 3, 3, 3, 18, 18, 18, 10, 10, 19, 19, 19, 19, 19, 11, 11, 12, 12, 13, 13, 13, 13, 14, 14, 9, 17, 17, 17, 17, 16, 16 }; short yyr2[]={ 0, 0, 2, 2, 6, 4, 5, 3, 6, 5, 5, 8, 3, 1, 2, 1, 1, 1, 0, 1, 3, 4, 3, 3, 4, 2, 3, 1, 3, 3, 1, 0, 3, 1, 1, 3, 0, 2, 5, 6, 3, 4, 2, 2, 2, 2, 3, 3, 6, 4, 4, 8, 4, 2, 0, 1, 2, 0, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 0, 2, 1, 1, 1, 1, 1, 0 }; short yychk[]={ -1000, -22, -23, 265, 261, 259, 263, 272, -24, 256, 10, 59, -24, 282, -16, -17, 290, 291, 292, 293, 282, -21, 264, 257, -14, 276, -16, -17, 40, -15, 282, -24, 258, -21, 266, -24, 271, 40, -2, 283, 269, 270, -20, -25, -14, -14, -9, 276, -14, -14, -24, -16, -24, -21, -21, -1, 282, -21, 267, 273, 273, -3, -11, -19, -18, -13, 280, 274, 279, 277, 289, -10, 278, 287, 288, 285, 281, 284, 286, 275, -20, -6, -7, 42, 282, 38, 40, -14, -6, -20, -21, -24, 260, 41, 258, -21, -21, 268, -21, -19, 282, -12, -11, 276, -6, -24, 40, -8, 91, -14, 262, -14, -6, -24, -4, 40, 282, 42, 38, -24, -1, 271, -21, 267, -24, 41, -5, -14, 282, 93, 283, -6, 42, -6, 41, 41, -8, 41, -4, 262, -4, -4, -21, -10, 41, 260, -20, 93, -6, -15, 41, 42, 282, -5, -4, -24, 40, -4, -21, 41, -5, 41 }; short yydef[]={ 1, -2, 2, 0, 88, 81, 88, 18, 13, 0, 15, 16, 3, 0, 81, 87, 83, 84, 85, 86, 0, 0, 0, 54, 57, 81, 81, -2, 81, 0, 17, 14, 88, 0, 81, 7, 81, -2, 0, 55, 0, 0, 53, 0, 80, 57, 0, 81, 0, 57, 12, 81, 5, 0, 47, 0, 33, 34, 81, 81, 81, 56, 58, 59, 0, 73, 67, 68, 69, 70, 71, 62, 63, 64, 76, 77, 78, 79, 65, 66, 0, 0, 19, 81, 27, 81, 0, -2, 0, 36, 0, 6, -2, 0, 81, 49, 50, 0, 52, 60, 61, 72, 74, 75, 0, 10, 81, 25, 0, 0, 0, 0, 0, 9, 0, 36, 0, 36, 36, 4, 32, 81, 35, 0, 8, 23, 0, 57, 30, 45, 0, 20, 0, 22, 26, 18, 44, 37, 0, 0, 42, 43, 48, 0, 24, 81, 36, 46, 21, 0, 40, 36, 81, 28, 29, 11, 81, 41, 51, 38, 0, 39 }; #ifndef lint static char yaccpar_sccsid[] = "@(#)yaccpar 1.2 86/07/18 SMI"; /* from UCB 4.1 83/02/11 */ #endif # # define YYFLAG -1000 # define YYERROR goto yyerrlab # define YYACCEPT return(0) # define YYABORT return(1) /* parser for yacc output */ #ifdef YYDEBUG int yydebug = 0; /* 1 for debugging */ #endif YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */ int yychar = -1; /* current input token number */ int yynerrs = 0; /* number of errors */ short yyerrflag = 0; /* error recovery flag */ yyparse() { short yys[YYMAXDEPTH]; short yyj, yym; register YYSTYPE *yypvt; register short yystate, *yyps, yyn; register YYSTYPE *yypv; register short *yyxi; yystate = 0; yychar = -1; yynerrs = 0; yyerrflag = 0; yyps= &yys[-1]; yypv= &yyv[-1]; yystack: /* put a state and value onto the stack */ #ifdef YYDEBUG if( yydebug ) printf( "state %d, char 0%o\n", yystate, yychar ); #endif if( ++yyps>= &yys[YYMAXDEPTH] ) { yyerror( "yacc stack overflow" ); return(1); } *yyps = yystate; ++yypv; *yypv = yyval; yynewstate: yyn = yypact[yystate]; if( yyn<= YYFLAG ) goto yydefault; /* simple state */ if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0; if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault; if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */ yychar = -1; yyval = yylval; yystate = yyn; if( yyerrflag > 0 ) --yyerrflag; goto yystack; } yydefault: /* default state action */ if( (yyn=yydef[yystate]) == -2 ) { if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0; /* look through exception table */ for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */ while( *(yyxi+=2) >= 0 ){ if( *yyxi == yychar ) break; } if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */ } if( yyn == 0 ){ /* error */ /* error ... attempt to resume parsing */ switch( yyerrflag ){ case 0: /* brand new error */ yyerror( "syntax error" ); yyerrlab: ++yynerrs; case 1: case 2: /* incompletely recovered error ... try again */ yyerrflag = 3; /* find a state where "error" is a legal shift action */ while ( yyps >= yys ) { yyn = yypact[*yyps] + YYERRCODE; if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){ yystate = yyact[yyn]; /* simulate a shift of "error" */ goto yystack; } yyn = yypact[*yyps]; /* the current yyps has no shift onn "error", pop stack */ #ifdef YYDEBUG if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] ); #endif --yyps; --yypv; } /* there is no state on the stack with an error shift ... abort */ yyabort: return(1); case 3: /* no shift yet; clobber input char */ #ifdef YYDEBUG if( yydebug ) printf( "error recovery discards char %d\n", yychar ); #endif if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */ yychar = -1; goto yynewstate; /* try again in the same state */ } } /* reduction by production yyn */ #ifdef YYDEBUG if( yydebug ) printf("reduce %d\n",yyn); #endif yyps -= yyr2[yyn]; yypvt = yypv; yypv -= yyr2[yyn]; yyval = yypv[1]; yym=yyn; /* consult goto table to find next state */ yyn = yyr1[yyn]; yyj = yypgo[yyn] + *yyps + 1; if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]]; switch(yym){ case 2: # line 33 "cdgram.y" { prompt(); prev = 0; } break; case 3: # line 40 "cdgram.y" { Debug((stderr, "stmt: help\n")); dohelp(); } break; case 4: # line 46 "cdgram.y" { Debug((stderr, "stmt: DECLARE NAME AS opt_storage adecl\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-4].dynstr)); Debug((stderr, "\topt_storage='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tacdecl.left='%s'\n", yypvt[-1].halves.left)); Debug((stderr, "\tacdecl.right='%s'\n", yypvt[-1].halves.right)); Debug((stderr, "\tacdecl.type='%s'\n", yypvt[-1].halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); dodeclare(yypvt[-4].dynstr, yypvt[-2].dynstr, yypvt[-1].halves.left, yypvt[-1].halves.right, yypvt[-1].halves.type); } break; case 5: # line 58 "cdgram.y" { Debug((stderr, "stmt: DECLARE opt_storage adecl\n")); Debug((stderr, "\topt_storage='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tacdecl.left='%s'\n", yypvt[-1].halves.left)); Debug((stderr, "\tacdecl.right='%s'\n", yypvt[-1].halves.right)); Debug((stderr, "\tacdecl.type='%s'\n", yypvt[-1].halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); dodeclare(NullCP, yypvt[-2].dynstr, yypvt[-1].halves.left, yypvt[-1].halves.right, yypvt[-1].halves.type); } break; case 6: # line 69 "cdgram.y" { Debug((stderr, "stmt: CAST NAME AS adecl\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tacdecl.left='%s'\n", yypvt[-1].halves.left)); Debug((stderr, "\tacdecl.right='%s'\n", yypvt[-1].halves.right)); Debug((stderr, "\tacdecl.type='%s'\n", yypvt[-1].halves.type)); docast(yypvt[-3].dynstr, yypvt[-1].halves.left, yypvt[-1].halves.right, yypvt[-1].halves.type); } break; case 7: # line 79 "cdgram.y" { Debug((stderr, "stmt: CAST adecl\n")); Debug((stderr, "\tacdecl.left='%s'\n", yypvt[-1].halves.left)); Debug((stderr, "\tacdecl.right='%s'\n", yypvt[-1].halves.right)); Debug((stderr, "\tacdecl.type='%s'\n", yypvt[-1].halves.type)); docast(NullCP, yypvt[-1].halves.left, yypvt[-1].halves.right, yypvt[-1].halves.type); } break; case 8: # line 88 "cdgram.y" { Debug((stderr, "stmt: EXPLAIN opt_storage opt_constvol_list type cdecl\n")); Debug((stderr, "\topt_storage='%s'\n", yypvt[-4].dynstr)); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\ttype='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tcdecl='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); dodexplain(yypvt[-4].dynstr, yypvt[-3].dynstr, yypvt[-2].dynstr, yypvt[-1].dynstr); } break; case 9: # line 99 "cdgram.y" { Debug((stderr, "stmt: EXPLAIN storage opt_constvol_list cdecl\n")); Debug((stderr, "\tstorage='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tcdecl='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); dodexplain(yypvt[-3].dynstr, yypvt[-2].dynstr, NullCP, yypvt[-1].dynstr); } break; case 10: # line 109 "cdgram.y" { Debug((stderr, "stmt: EXPLAIN opt_storage constvol_list cdecl\n")); Debug((stderr, "\topt_storage='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tconstvol_list='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tcdecl='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); dodexplain(yypvt[-3].dynstr, yypvt[-2].dynstr, NullCP, yypvt[-1].dynstr); } break; case 11: # line 119 "cdgram.y" { Debug((stderr, "stmt: EXPLAIN ( opt_constvol_list type cast ) optNAME\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-5].dynstr)); Debug((stderr, "\ttype='%s'\n", yypvt[-4].dynstr)); Debug((stderr, "\tcast='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tNAME='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); docexplain(yypvt[-5].dynstr, yypvt[-4].dynstr, yypvt[-3].dynstr, yypvt[-1].dynstr); } break; case 12: # line 130 "cdgram.y" { Debug((stderr, "stmt: SET optNAME\n")); Debug((stderr, "\toptNAME='%s'\n", yypvt[-1].dynstr)); doset(yypvt[-1].dynstr); } break; case 14: # line 138 "cdgram.y" { yyerrok; } break; case 15: # line 144 "cdgram.y" { doprompt(); } break; case 16: # line 148 "cdgram.y" { noprompt(); } break; case 17: # line 154 "cdgram.y" { Debug((stderr, "optNAME: NAME\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 18: # line 161 "cdgram.y" { Debug((stderr, "optNAME: EMPTY\n")); yyval.dynstr = ds(unknown_name); } break; case 20: # line 169 "cdgram.y" { Debug((stderr, "cdecl: * opt_constvol_list cdecl\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tcdecl='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-0].dynstr,yypvt[-1].dynstr,ds(strlen(yypvt[-1].dynstr)?" pointer to ":"pointer to "),NullCP); prev = 'p'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 21: # line 179 "cdgram.y" { Debug((stderr, "cdecl: NAME DOUBLECOLON '*' cdecl\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tcdecl='%s'\n", yypvt[-0].dynstr)); if (!CplusplusFlag) unsupp("pointer to member of class", NullCP); yyval.dynstr = cat(yypvt[-0].dynstr,ds("pointer to member of class "),yypvt[-3].dynstr,ds(" "),NullCP); prev = 'p'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 22: # line 191 "cdgram.y" { Debug((stderr, "cdecl: & opt_constvol_list cdecl\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tcdecl='%s'\n", yypvt[-0].dynstr)); if (!CplusplusFlag) unsupp("reference", NullCP); yyval.dynstr = cat(yypvt[-0].dynstr,yypvt[-1].dynstr,ds(strlen(yypvt[-1].dynstr)?" reference to ":"reference to "),NullCP); prev = 'r'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 23: # line 204 "cdgram.y" { Debug((stderr, "cdecl1: cdecl1()\n")); Debug((stderr, "\tcdecl1='%s'\n", yypvt[-2].dynstr)); yyval.dynstr = cat(yypvt[-2].dynstr,ds("function returning "),NullCP); prev = 'f'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 24: # line 213 "cdgram.y" { Debug((stderr, "cdecl1: cdecl1(castlist)\n")); Debug((stderr, "\tcdecl1='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tcastlist='%s'\n", yypvt[-1].dynstr)); yyval.dynstr = cat(yypvt[-3].dynstr, ds("function ("), yypvt[-1].dynstr, ds(") returning "), NullCP); prev = 'f'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 25: # line 224 "cdgram.y" { Debug((stderr, "cdecl1: cdecl1 cdims\n")); Debug((stderr, "\tcdecl1='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tcdims='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-1].dynstr,ds("array "),yypvt[-0].dynstr,NullCP); prev = 'a'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 26: # line 234 "cdgram.y" { Debug((stderr, "cdecl1: (cdecl)\n")); Debug((stderr, "\tcdecl='%s'\n", yypvt[-1].dynstr)); yyval.dynstr = yypvt[-1].dynstr; /* prev = prev; */ Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 27: # line 243 "cdgram.y" { Debug((stderr, "cdecl1: NAME\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-0].dynstr)); savedname = yypvt[-0].dynstr; yyval.dynstr = ds(""); prev = 'n'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 28: # line 254 "cdgram.y" { Debug((stderr, "castlist: castlist1, castlist2\n")); Debug((stderr, "\tcastlist1='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tcastlist2='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-2].dynstr, ds(", "), yypvt[-0].dynstr, NullCP); } break; case 29: # line 262 "cdgram.y" { Debug((stderr, "castlist: opt_constvol_list type cast\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\ttype='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tcast='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-0].dynstr, yypvt[-2].dynstr, ds(strlen(yypvt[-2].dynstr) ? " " : ""), yypvt[-1].dynstr, NullCP); } break; case 30: # line 271 "cdgram.y" { yyval.dynstr = yypvt[-0].dynstr; } break; case 31: # line 277 "cdgram.y" { Debug((stderr, "adecllist: EMPTY\n")); yyval.dynstr = ds(""); } break; case 32: # line 283 "cdgram.y" { Debug((stderr, "adecllist: adecllist1, adecllist2\n")); Debug((stderr, "\tadecllist1='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tadecllist2='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-2].dynstr, ds(", "), yypvt[-0].dynstr, NullCP); } break; case 33: # line 291 "cdgram.y" { Debug((stderr, "adecllist: NAME\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 34: # line 298 "cdgram.y" { Debug((stderr, "adecllist: adecl\n")); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); yyval.dynstr = cat(yypvt[-0].halves.type, ds(" "), yypvt[-0].halves.left, yypvt[-0].halves.right, NullCP); } break; case 35: # line 307 "cdgram.y" { Debug((stderr, "adecllist: NAME AS adecl\n")); Debug((stderr, "\tNAME='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); yyval.dynstr = cat(yypvt[-0].halves.type, ds(" "), yypvt[-0].halves.left, yypvt[-2].dynstr, yypvt[-0].halves.right, NullCP); } break; case 36: # line 318 "cdgram.y" { Debug((stderr, "cast: EMPTY\n")); yyval.dynstr = ds(""); /* prev = prev; */ Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 37: # line 326 "cdgram.y" { Debug((stderr, "cast: ()\n")); yyval.dynstr = ds("function returning "); prev = 'f'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 38: # line 334 "cdgram.y" { Debug((stderr, "cast: (cast)()\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-3].dynstr)); yyval.dynstr = cat(yypvt[-3].dynstr,ds("function returning "),NullCP); prev = 'f'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 39: # line 343 "cdgram.y" { Debug((stderr, "cast: (cast)(castlist)\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-4].dynstr)); Debug((stderr, "\tcastlist='%s'\n", yypvt[-1].dynstr)); yyval.dynstr = cat(yypvt[-4].dynstr,ds("function ("),yypvt[-1].dynstr,ds(") returning "),NullCP); prev = 'f'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 40: # line 353 "cdgram.y" { Debug((stderr, "cast: (cast)\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-1].dynstr)); yyval.dynstr = yypvt[-1].dynstr; /* prev = prev; */ Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 41: # line 362 "cdgram.y" { Debug((stderr, "cast: NAME::*cast\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-0].dynstr)); if (!CplusplusFlag) unsupp("pointer to member of class", NullCP); yyval.dynstr = cat(yypvt[-0].dynstr,ds("pointer to member of class "),yypvt[-3].dynstr,ds(" "),NullCP); prev = 'p'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 42: # line 373 "cdgram.y" { Debug((stderr, "cast: *cast\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-0].dynstr,ds("pointer to "),NullCP); prev = 'p'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 43: # line 382 "cdgram.y" { Debug((stderr, "cast: &cast\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-0].dynstr)); if (!CplusplusFlag) unsupp("reference", NullCP); yyval.dynstr = cat(yypvt[-0].dynstr,ds("reference to "),NullCP); prev = 'r'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 44: # line 393 "cdgram.y" { Debug((stderr, "cast: cast cdims\n")); Debug((stderr, "\tcast='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tcdims='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-1].dynstr,ds("array "),yypvt[-0].dynstr,NullCP); prev = 'a'; Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 45: # line 404 "cdgram.y" { Debug((stderr, "cdims: []\n")); yyval.dynstr = ds("of "); } break; case 46: # line 410 "cdgram.y" { Debug((stderr, "cdims: [NUMBER]\n")); Debug((stderr, "\tNUMBER='%s'\n", yypvt[-1].dynstr)); yyval.dynstr = cat(yypvt[-1].dynstr,ds(" of "),NullCP); } break; case 47: # line 418 "cdgram.y" { Debug((stderr, "adecl: FUNCTION RETURNING adecl\n")); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); if (prev == 'f') unsupp("Function returning function", "function returning pointer to function"); else if (prev=='A' || prev=='a') unsupp("Function returning array", "function returning pointer"); yyval.halves.left = yypvt[-0].halves.left; yyval.halves.right = cat(ds("()"),yypvt[-0].halves.right,NullCP); yyval.halves.type = yypvt[-0].halves.type; prev = 'f'; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 48: # line 441 "cdgram.y" { Debug((stderr, "adecl: FUNCTION (adecllist) RETURNING adecl\n")); Debug((stderr, "\tadecllist='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); if (prev == 'f') unsupp("Function returning function", "function returning pointer to function"); else if (prev=='A' || prev=='a') unsupp("Function returning array", "function returning pointer"); yyval.halves.left = yypvt[-0].halves.left; yyval.halves.right = cat(ds("("),yypvt[-3].dynstr,ds(")"),yypvt[-0].halves.right,NullCP); yyval.halves.type = yypvt[-0].halves.type; prev = 'f'; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 49: # line 465 "cdgram.y" { Debug((stderr, "adecl: ARRAY adims OF adecl\n")); Debug((stderr, "\tadims='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); if (prev == 'f') unsupp("Array of function", "array of pointer to function"); else if (prev == 'a') unsupp("Inner array of unspecified size", "array of pointer"); else if (prev == 'v') unsupp("Array of void", "pointer to void"); if (arbdims) prev = 'a'; else prev = 'A'; yyval.halves.left = yypvt[-0].halves.left; yyval.halves.right = cat(yypvt[-2].dynstr,yypvt[-0].halves.right,NullCP); yyval.halves.type = yypvt[-0].halves.type; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 50: # line 495 "cdgram.y" { char *op = "", *cp = "", *sp = ""; Debug((stderr, "adecl: opt_constvol_list POINTER TO adecl\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); if (prev == 'a') unsupp("Pointer to array of unspecified dimension", "pointer to object"); if (prev=='a' || prev=='A' || prev=='f') { op = "("; cp = ")"; } if (strlen(yypvt[-3].dynstr) != 0) sp = " "; yyval.halves.left = cat(yypvt[-0].halves.left,ds(op),ds("*"), ds(sp),yypvt[-3].dynstr,ds(sp),NullCP); yyval.halves.right = cat(ds(cp),yypvt[-0].halves.right,NullCP); yyval.halves.type = yypvt[-0].halves.type; prev = 'p'; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 51: # line 525 "cdgram.y" { char *op = "", *cp = "", *sp = ""; Debug((stderr, "adecl: opt_constvol_list POINTER TO MEMBER OF ClassStruct NAME adecl\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-7].dynstr)); Debug((stderr, "\tClassStruct='%s'\n", yypvt[-2].dynstr)); Debug((stderr, "\tNAME='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); if (!CplusplusFlag) unsupp("pointer to member of class", NullCP); if (prev == 'a') unsupp("Pointer to array of unspecified dimension", "pointer to object"); if (prev=='a' || prev=='A' || prev=='f') { op = "("; cp = ")"; } if (strlen(yypvt[-7].dynstr) != 0) sp = " "; yyval.halves.left = cat(yypvt[-0].halves.left,ds(op),yypvt[-1].dynstr,ds("::*"), ds(sp),yypvt[-7].dynstr,ds(sp),NullCP); yyval.halves.right = cat(ds(cp),yypvt[-0].halves.right,NullCP); yyval.halves.type = yypvt[-0].halves.type; prev = 'p'; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 52: # line 559 "cdgram.y" { char *op = "", *cp = "", *sp = ""; Debug((stderr, "adecl: opt_constvol_list REFERENCE TO adecl\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-3].dynstr)); Debug((stderr, "\tadecl.left='%s'\n", yypvt[-0].halves.left)); Debug((stderr, "\tadecl.right='%s'\n", yypvt[-0].halves.right)); Debug((stderr, "\tadecl.type='%s'\n", yypvt[-0].halves.type)); if (!CplusplusFlag) unsupp("reference", NullCP); if (prev == 'v') unsupp("Reference to void", "pointer to void"); else if (prev == 'a') unsupp("Reference to array of unspecified dimension", "reference to object"); if (prev=='a' || prev=='A' || prev=='f') { op = "("; cp = ")"; } if (strlen(yypvt[-3].dynstr) != 0) sp = " "; yyval.halves.left = cat(yypvt[-0].halves.left,ds(op),ds("&"), ds(sp),yypvt[-3].dynstr,ds(sp),NullCP); yyval.halves.right = cat(ds(cp),yypvt[-0].halves.right,NullCP); yyval.halves.type = yypvt[-0].halves.type; prev = 'r'; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 53: # line 594 "cdgram.y" { Debug((stderr, "adecl: opt_constvol_list type\n")); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\ttype='%s'\n", yypvt[-0].dynstr)); yyval.halves.left = ds(""); yyval.halves.right = ds(""); yyval.halves.type = cat(yypvt[-1].dynstr,ds(strlen(yypvt[-1].dynstr)?" ":""),yypvt[-0].dynstr,NullCP); if (strcmp(yypvt[-0].dynstr, "void") == 0) prev = 'v'; else if ((strncmp(yypvt[-0].dynstr, "struct", 6) == 0) || (strncmp(yypvt[-0].dynstr, "class", 5) == 0)) prev = 's'; else prev = 't'; Debug((stderr, "\n\tadecl now =\n")); Debug((stderr, "\t\tadecl.left='%s'\n", yyval.halves.left)); Debug((stderr, "\t\tadecl.right='%s'\n", yyval.halves.right)); Debug((stderr, "\t\tadecl.type='%s'\n", yyval.halves.type)); Debug((stderr, "\tprev = '%s'\n", visible(prev))); } break; case 54: # line 617 "cdgram.y" { Debug((stderr, "adims: EMPTY\n")); arbdims = 1; yyval.dynstr = ds("[]"); } break; case 55: # line 624 "cdgram.y" { Debug((stderr, "adims: NUMBER\n")); Debug((stderr, "\tNUMBER='%s'\n", yypvt[-0].dynstr)); arbdims = 0; yyval.dynstr = cat(ds("["),yypvt[-0].dynstr,ds("]"),NullCP); } break; case 56: # line 633 "cdgram.y" { Debug((stderr, "type: tinit c_type\n")); Debug((stderr, "\ttinit=''\n")); Debug((stderr, "\tc_type='%s'\n", yypvt[-0].dynstr)); mbcheck(); yyval.dynstr = yypvt[-0].dynstr; } break; case 57: # line 643 "cdgram.y" { Debug((stderr, "tinit: EMPTY\n")); modbits = 0; } break; case 58: # line 650 "cdgram.y" { Debug((stderr, "c_type: mod_list\n")); Debug((stderr, "\tmod_list='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 59: # line 657 "cdgram.y" { Debug((stderr, "c_type: tname\n")); Debug((stderr, "\ttname='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 60: # line 664 "cdgram.y" { Debug((stderr, "c_type: mod_list tname\n")); Debug((stderr, "\tmod_list='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\ttname='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-1].dynstr,ds(" "),yypvt[-0].dynstr,NullCP); } break; case 61: # line 672 "cdgram.y" { Debug((stderr, "c_type: StrClaUniEnum NAME\n")); Debug((stderr, "\tStrClaUniEnum='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tNAME='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-1].dynstr,ds(" "),yypvt[-0].dynstr,NullCP); } break; case 64: # line 683 "cdgram.y" { yyval.dynstr = yypvt[-0].dynstr; } break; case 66: # line 690 "cdgram.y" { yyval.dynstr = yypvt[-0].dynstr; } break; case 67: # line 696 "cdgram.y" { Debug((stderr, "tname: INT\n")); Debug((stderr, "\tINT='%s'\n", yypvt[-0].dynstr)); modbits |= MB_INT; yyval.dynstr = yypvt[-0].dynstr; } break; case 68: # line 703 "cdgram.y" { Debug((stderr, "tname: CHAR\n")); Debug((stderr, "\tCHAR='%s'\n", yypvt[-0].dynstr)); modbits |= MB_CHAR; yyval.dynstr = yypvt[-0].dynstr; } break; case 69: # line 710 "cdgram.y" { Debug((stderr, "tname: FLOAT\n")); Debug((stderr, "\tFLOAT='%s'\n", yypvt[-0].dynstr)); modbits |= MB_FLOAT; yyval.dynstr = yypvt[-0].dynstr; } break; case 70: # line 717 "cdgram.y" { Debug((stderr, "tname: DOUBLE\n")); Debug((stderr, "\tDOUBLE='%s'\n", yypvt[-0].dynstr)); modbits |= MB_DOUBLE; yyval.dynstr = yypvt[-0].dynstr; } break; case 71: # line 724 "cdgram.y" { Debug((stderr, "tname: VOID\n")); Debug((stderr, "\tVOID='%s'\n", yypvt[-0].dynstr)); modbits |= MB_VOID; yyval.dynstr = yypvt[-0].dynstr; } break; case 72: # line 732 "cdgram.y" { Debug((stderr, "mod_list: modifier mod_list1\n")); Debug((stderr, "\tmodifier='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\tmod_list1='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = cat(yypvt[-1].dynstr,ds(" "),yypvt[-0].dynstr,NullCP); } break; case 73: # line 740 "cdgram.y" { Debug((stderr, "mod_list: modifier\n")); Debug((stderr, "\tmodifier='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 74: # line 748 "cdgram.y" { Debug((stderr, "mod_list1: mod_list\n")); Debug((stderr, "\tmod_list='%s'\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 75: # line 755 "cdgram.y" { Debug((stderr, "mod_list1: CONSTVOLATILE\n")); Debug((stderr, "\tCONSTVOLATILE='%s'\n", yypvt[-0].dynstr)); if (PreANSIFlag) notsupported(" (Pre-ANSI Compiler)", yypvt[-0].dynstr, NullCP); else if (RitchieFlag) notsupported(" (Ritchie Compiler)", yypvt[-0].dynstr, NullCP); else if ((strcmp(yypvt[-0].dynstr, "noalias") == 0) && CplusplusFlag) unsupp(yypvt[-0].dynstr, NullCP); yyval.dynstr = yypvt[-0].dynstr; } break; case 76: # line 769 "cdgram.y" { Debug((stderr, "modifier: UNSIGNED\n")); Debug((stderr, "\tUNSIGNED='%s'\n", yypvt[-0].dynstr)); modbits |= MB_UNSIGNED; yyval.dynstr = yypvt[-0].dynstr; } break; case 77: # line 776 "cdgram.y" { Debug((stderr, "modifier: SIGNED\n")); Debug((stderr, "\tSIGNED='%s'\n", yypvt[-0].dynstr)); modbits |= MB_SIGNED; yyval.dynstr = yypvt[-0].dynstr; } break; case 78: # line 783 "cdgram.y" { Debug((stderr, "modifier: LONG\n")); Debug((stderr, "\tLONG='%s'\n", yypvt[-0].dynstr)); modbits |= MB_LONG; yyval.dynstr = yypvt[-0].dynstr; } break; case 79: # line 790 "cdgram.y" { Debug((stderr, "modifier: SHORT\n")); Debug((stderr, "\tSHORT='%s'\n", yypvt[-0].dynstr)); modbits |= MB_SHORT; yyval.dynstr = yypvt[-0].dynstr; } break; case 80: # line 798 "cdgram.y" { Debug((stderr, "opt_constvol_list: CONSTVOLATILE opt_constvol_list\n")); Debug((stderr, "\tCONSTVOLATILE='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-0].dynstr)); if (PreANSIFlag) notsupported(" (Pre-ANSI Compiler)", yypvt[-1].dynstr, NullCP); else if (RitchieFlag) notsupported(" (Ritchie Compiler)", yypvt[-1].dynstr, NullCP); else if ((strcmp(yypvt[-1].dynstr, "noalias") == 0) && CplusplusFlag) unsupp(yypvt[-1].dynstr, NullCP); yyval.dynstr = cat(yypvt[-1].dynstr,ds(strlen(yypvt[-0].dynstr) ? " " : ""),yypvt[-0].dynstr,NullCP); } break; case 81: # line 812 "cdgram.y" { Debug((stderr, "opt_constvol_list: EMPTY\n")); yyval.dynstr = ds(""); } break; case 82: # line 819 "cdgram.y" { Debug((stderr, "constvol_list: CONSTVOLATILE opt_constvol_list\n")); Debug((stderr, "\tCONSTVOLATILE='%s'\n", yypvt[-1].dynstr)); Debug((stderr, "\topt_constvol_list='%s'\n", yypvt[-0].dynstr)); if (PreANSIFlag) notsupported(" (Pre-ANSI Compiler)", yypvt[-1].dynstr, NullCP); else if (RitchieFlag) notsupported(" (Ritchie Compiler)", yypvt[-1].dynstr, NullCP); else if ((strcmp(yypvt[-1].dynstr, "noalias") == 0) && CplusplusFlag) unsupp(yypvt[-1].dynstr, NullCP); yyval.dynstr = cat(yypvt[-1].dynstr,ds(strlen(yypvt[-0].dynstr) ? " " : ""),yypvt[-0].dynstr,NullCP); } break; case 86: # line 837 "cdgram.y" { Debug((stderr, "storage: AUTO,EXTERN,STATIC,REGISTER (%s)\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 87: # line 844 "cdgram.y" { Debug((stderr, "opt_storage: storage=%s\n", yypvt[-0].dynstr)); yyval.dynstr = yypvt[-0].dynstr; } break; case 88: # line 850 "cdgram.y" { Debug((stderr, "opt_storage: EMPTY\n")); yyval.dynstr = ds(""); } break; } goto yystack; /* stack new state and value */ }