/* line 2 bailey2.y */ /*********************************************************************** * Parser for the Bailey-Makeham model * * * * This file is processed through YACC, "yet another compiler-compiler" * * which is available on UNIX systems and is available through public * * domain sources. * * * * The input comes in four segments: * * 1. General includes (This section) * * 2. A list of tokens * * 3. Syntax rules and actions * * 4. Supporting C code, which in this case consists of calls to * * establish the lexical reserved words. * * * * Author: Bill Rogers; RAND & CRC * ***********************************************************************/ #include #include #include "bailey.h" int i; #define DEPEND 257 #define ASCII 258 #define STATA 259 #define OPTIONS 260 #define VARLIST 261 #define SV_ALPHA 262 #define SV_GAMMA 263 #define SV_DELTA 264 #define FX_ALPHA 265 #define FX_GAMMA 266 #define FX_DELTA 267 #define NOCONS 268 #define RESCALE 269 #define LOGFILE 270 #define DEBUG 271 #define RHOMAX 272 #define YYDEBUG 273 #define TRACE 274 #define NSF 275 #define LAMBDA 276 #define SSEXP 277 #define AUTOFIX 278 #define FORMAT 279 #define READ 280 #define OUTPUT 281 #define ALTQUOTE 282 #define INTERVAL 283 #define INSIGHT 284 #define ONESTEP 285 #define WEIGHT 286 #define MAXITER 287 #define IDENTIFIER 857 #define CONSTANT 858 #define PTR 888 #define LESSEQ 889 #define GRTEQ 890 #define RSHIFT 891 #define LSHIFT 892 #define EQL 893 #define NOTEQ 894 #define PLUSEQ 895 #define MINUSEQ 896 #define TIMESEQ 897 #define DIVEQ 898 #define MODEQ 899 #define RSHIFTEQ 900 #define LSHIFTEQ 901 #define INC 902 #define DEC 903 #define STRING 904 #define TOLERANCE 905 #define MISSING 906 #define LABHEADS 907 #define yyclearin yychar = -1 #define yyerrok yyerrflag = 0 extern int yychar; extern short yyerrflag; #ifndef YYMAXDEPTH #define YYMAXDEPTH 150 #endif #ifndef YYSTYPE #define YYSTYPE int #endif YYSTYPE yylval, yyval; #define YYERRCODE 256 /* line 189 bailey2.y */ ck_var(i) int i; { if (i<0 || i>=256 || var_number[i] == (-1)) { yyerror2("Bad variable: ", ident[i]); } } AddToParmList(i) int i; { parm_number[vars]=i; var_number[i]=(vars++); } void KeywordInstall(){ lexinstall("depend", DEPEND); lexinstall("ascii", ASCII); lexinstall("stata", STATA); lexinstall("options", OPTIONS); lexinstall("varlist", VARLIST); lexinstall("format", FORMAT); lexinstall("read", READ); lexinstall("nocons", NOCONS); lexinstall("rescale", RESCALE); lexinstall("logfile", LOGFILE); lexinstall("rhomax", RHOMAX); lexinstall("debug", DEBUG); lexinstall("yydebug", YYDEBUG); lexinstall("autofix", AUTOFIX); lexinstall("altquote", ALTQUOTE); lexinstall("onestep", ONESTEP); lexinstall("trace", TRACE); lexinstall("nsf", NSF); lexinstall("ssexp", SSEXP); lexinstall("lambda", LAMBDA); lexinstall("weight", WEIGHT); lexinstall("maxiter", MAXITER); lexinstall("interval", INTERVAL); lexinstall("tolerance", TOLERANCE); lexinstall("missing", MISSING); lexinstall("labheads", LABHEADS); lexinstall("output", OUTPUT); lexinstall("sv_alpha", SV_ALPHA); lexinstall("sv_gamma", SV_GAMMA); lexinstall("sv_delta", SV_DELTA); lexinstall("fx_alpha", FX_ALPHA); lexinstall("fx_gamma", FX_GAMMA); lexinstall("fx_delta", FX_DELTA); } short yyexca[] ={ -1, 1, 0, -1, -2, 0, }; #define YYNPROD 100 #define YYLAST 1327 short yyact[]={ 112, 141, 118, 117, 116, 115, 114, 133, 143, 132, 32, 18, 22, 19, 25, 26, 27, 28, 29, 30, 31, 131, 130, 23, 57, 129, 128, 127, 126, 125, 124, 110, 21, 20, 24, 99, 101, 103, 105, 107, 109, 111, 113, 123, 122, 121, 120, 119, 97, 96, 95, 94, 34, 2, 36, 33, 17, 16, 15, 14, 13, 12, 108, 11, 10, 9, 8, 7, 6, 5, 4, 3, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 106, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 104, 0, 0, 0, 0, 0, 135, 136, 137, 138, 139, 140, 0, 0, 0, 144, 145, 146, 0, 147, 0, 0, 0, 0, 0, 0, 0, 0, 142, 0, 0, 102, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 56, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 66, 67, 68, 69, 70, 65, 64, 63, 62, 61, 60, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 37, 38, 0, 39, 47, 40, 42, 50, 48, 49, 46, 0, 0, 0, 54, 55, 43, 44, 53, 41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 134, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, 93, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 51, 52, 45 }; short yypact[]={ -247,-247,-1000, -7, 419, 387, -8, -9, -10, -11, 356, 127, 96, 65, 34, 3, -28, -59,-898,-1000, -1000,-899,-900,-901,-902,-1000,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -1000, -14,-1000,-1000,-1000,-1000, -15, -16, -17, -18, -31, -32, -33, -34,-1000, -35,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -1000, -36,-1000, -39,-1000, -40,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, -38, -38, -38, -38, -38, -38, -38,-903, 190,-850, -38, -38, -38,-1000, -38,-1000,-1000,-1000,-1000,-1000,-1000, -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000 }; short yypgo[]={ 0, 72, 53, 71, 70, 69, 68, 67, 66, 65, 64, 63, 61, 60, 59, 58, 57, 56, 24, 54, 9 }; short yyr1[]={ 0, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 17, 17, 3, 7, 8, 9, 5, 5, 6, 4, 4, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 16, 20, 20, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18 }; short yyr2[]={ 0, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 1, 3, 1, 2, 4, 1, 4, 1, 4, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; short yychk[]={ -1000, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, 258, 260, 280, 279, 259, 270, 281, 261, 262, 263, 264, 265, 266, 267, 257, -2, 59, 59, -19, 268, 269, 271, 273, 287, 274, 284, 285, 907, 278, 272, 276, 277, 275, 905, 906, 286, 282, 283, 59, -18, 857, 858, 267, 266, 265, 264, 263, 262, 257, 258, 259, 260, 261, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 905, 907, 906, 59, 59, 59, 59, 59, -18, 59, -18, 59, -18, 59, -18, 59, -18, 59, -18, 59, -18, 59, -18, 904, 904, 904, 904, 904, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, -20, 45, 858, -20, -20, -20, -20, -20, -20, 904, -18, 858, -20, -20, -20, -20 }; short yydef[]={ 0, -2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 27, 24, 0, 0, 0, 0, 48, 51, 53, 55, 57, 59, 61, 19, 1, 3, 4, 28, 29, 30, 31, 32, 0, 34, 35, 36, 37, 0, 0, 0, 0, 0, 0, 0, 0, 46, 0, 5, 25, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 6, 7, 8, 9, 10, 49, 11, 0, 12, 0, 13, 0, 14, 56, 15, 58, 16, 60, 17, 18, 20, 26, 21, 22, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 0, 63, 38, 39, 40, 41, 42, 43, 44, 45, 47, 50, 52, 54, 62 }; #define YYFLAG -2000 #define YYERROR goto yyerrlab #define YYACCEPT return(0) #define YYABORT return(1) /* parser for yacc output */ int yydebug = 0; /* 1 for debugging */ 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 */ if( yydebug ) printf( "state %d, char 0%o\n", yystate, yychar ); 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 on "error", pop stack */ if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] ); --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 */ if( yydebug ) printf( "error recovery discards char %d\n", yychar ); if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */ yychar = -1; goto yynewstate; /* try again in the same state */ } } /* reduction by production yyn */ if( yydebug ) printf("reduce %d\n",yyn); 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 10: /* line 54 bailey2.y */ { if (!nocons) { idcons = vars; AddToParmList(LookupID("_cons")); } MaxID = CurrentID; } break; case 17: /* line 66 bailey2.y */ { if (ndv!=NDV-optiondvs) yyerror("Wrong number of dependent variables\n"); } break; case 18: /* line 72 bailey2.y */ { dvlist[ndv++] = yypvt[-0]; } break; case 20: /* line 77 bailey2.y */ { input_type=RAW; strcpy(dsn, ident[yypvt[-0]]); } break; case 21: /* line 80 bailey2.y */ { input_type=STATAIN; strcpy(dsn, ident[yypvt[-0]]); } break; case 22: /* line 83 bailey2.y */ { strcpy(logfile, ident[yypvt[-0]]); } break; case 23: /* line 88 bailey2.y */ { strcpy(outdsn,ident[yypvt[-0]]); } break; case 24: /* line 92 bailey2.y */ { if (labheads) mxerror(22,""); result=raw_setup(dsn,format); if (result) mxerror(10,dsn); } break; case 25: /* line 98 bailey2.y */ { set_readid(ident[yypvt[-0]]); } break; case 26: /* line 104 bailey2.y */ { strcpy(format,ident[yypvt[-0]]); } break; case 29: /* line 111 bailey2.y */ { onestep = nocons = 1; } break; case 30: /* line 112 bailey2.y */ { rescale = 1; } break; case 31: /* line 113 bailey2.y */ { debug = 1; } break; case 32: /* line 114 bailey2.y */ { yydebug = 1; } break; case 33: /* line 115 bailey2.y */ { maxiter = dend[yypvt[-0]]; } break; case 34: /* line 116 bailey2.y */ { trace = 1; } break; case 35: /* line 117 bailey2.y */ { insight = 1; } break; case 36: /* line 118 bailey2.y */ { onestep = 1; } break; case 37: /* line 119 bailey2.y */ { labheads = 1; } break; case 38: /* line 120 bailey2.y */ { autofix = dend[yypvt[-0]]; } break; case 39: /* line 121 bailey2.y */ { rhomax = dend[yypvt[-0]]; } break; case 40: /* line 122 bailey2.y */ { lambda = dend[yypvt[-0]]; } break; case 41: /* line 123 bailey2.y */ { ssexp = dend[yypvt[-0]]; } break; case 42: /* line 124 bailey2.y */ { nsf = dend[yypvt[-0]]; } break; case 43: /* line 125 bailey2.y */ { tolerance = dend[yypvt[-0]]; } break; case 44: /* line 126 bailey2.y */ { strcpy(misssym,ident[yypvt[-0]]); } break; case 45: /* line 128 bailey2.y */ { weightvar = yypvt[-0]; } break; case 46: /* line 129 bailey2.y */ { quotechar = '#'; } break; case 47: /* line 131 bailey2.y */ { ++optiondvs; has_interval=1; interval = dend[yypvt[-0]]; extra_vals[n_extra_vals] = dend[yypvt[-0]]; ++n_extra_vals; } break; case 49: /* line 142 bailey2.y */ { AddToParmList(yypvt[-0]); } break; case 50: /* line 146 bailey2.y */ { ck_var(yypvt[-2]); theta[var_number[yypvt[-2]]] = dend[yypvt[-0]]; if (fixed[var_number[yypvt[-2]]]==0) fixed[var_number[yypvt[-2]]] = 3; } break; case 52: /* line 152 bailey2.y */ { ck_var(yypvt[-2]); theta[vars+var_number[yypvt[-2]]] = dend[yypvt[-0]]; if (fixed[vars+var_number[yypvt[-2]]]==0) fixed[vars+var_number[yypvt[-2]]] = 3; } break; case 54: /* line 158 bailey2.y */ { ck_var(yypvt[-2]); theta[2*vars+var_number[yypvt[-2]]] = dend[yypvt[-0]]; if (fixed[2*vars+var_number[yypvt[-2]]]==0) fixed[2*vars+var_number[yypvt[-2]]] = 3; } break; case 56: /* line 164 bailey2.y */ { ck_var(yypvt[-0]); fixed[var_number[yypvt[-0]]] = 1; } break; case 58: /* line 169 bailey2.y */ { ck_var(yypvt[-0]); fixed[vars+var_number[yypvt[-0]]] = 1; } break; case 60: /* line 174 bailey2.y */ { ck_var(yypvt[-0]); fixed[2*vars+var_number[yypvt[-0]]] = 1; } break; case 62: /* line 177 bailey2.y */ { yyval = LookupNum(-dend[yypvt[-0]]); } break; } goto yystack; /* stack new state and value */ }