1 /* original parser id follows */ 2 /* yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93" */ 3 /* (use YYMAJOR/YYMINOR for ifdefs dependent on parser version) */ 4 5 #define YYBYACC 1 6 #define YYMAJOR 1 7 #define YYMINOR 9 8 #define YYCHECK "yyyymmdd" 9 10 #define YYEMPTY (-1) 11 #define yyclearin (yychar = YYEMPTY) 12 #define yyerrok (yyerrflag = 0) 13 #define YYRECOVERING() (yyerrflag != 0) 14 #define YYENOMEM (-2) 15 #define YYEOF 0 16 17 #ifndef yyparse 18 #define yyparse error_parse 19 #endif /* yyparse */ 20 21 #ifndef yylex 22 #define yylex error_lex 23 #endif /* yylex */ 24 25 #ifndef yyerror 26 #define yyerror error_error 27 #endif /* yyerror */ 28 29 #ifndef yychar 30 #define yychar error_char 31 #endif /* yychar */ 32 33 #ifndef yyval 34 #define yyval error_val 35 #endif /* yyval */ 36 37 #ifndef yylval 38 #define yylval error_lval 39 #endif /* yylval */ 40 41 #ifndef yydebug 42 #define yydebug error_debug 43 #endif /* yydebug */ 44 45 #ifndef yynerrs 46 #define yynerrs error_nerrs 47 #endif /* yynerrs */ 48 49 #ifndef yyerrflag 50 #define yyerrflag error_errflag 51 #endif /* yyerrflag */ 52 53 #ifndef yylhs 54 #define yylhs error_lhs 55 #endif /* yylhs */ 56 57 #ifndef yylen 58 #define yylen error_len 59 #endif /* yylen */ 60 61 #ifndef yydefred 62 #define yydefred error_defred 63 #endif /* yydefred */ 64 65 #ifndef yydgoto 66 #define yydgoto error_dgoto 67 #endif /* yydgoto */ 68 69 #ifndef yysindex 70 #define yysindex error_sindex 71 #endif /* yysindex */ 72 73 #ifndef yyrindex 74 #define yyrindex error_rindex 75 #endif /* yyrindex */ 76 77 #ifndef yygindex 78 #define yygindex error_gindex 79 #endif /* yygindex */ 80 81 #ifndef yytable 82 #define yytable error_table 83 #endif /* yytable */ 84 85 #ifndef yycheck 86 #define yycheck error_check 87 #endif /* yycheck */ 88 89 #ifndef yyname 90 #define yyname error_name 91 #endif /* yyname */ 92 93 #ifndef yyrule 94 #define yyrule error_rule 95 #endif /* yyrule */ 96 #define YYPREFIX "error_" 97 98 #define YYPURE 0 99 100 #line 2 "code_error.y" 101 102 #ifdef YYBISON 103 int yylex(void); 104 static void yyerror(const char *); 105 #endif 106 107 #line 108 "code_error.code.c" 108 109 #if ! defined(YYSTYPE) && ! defined(YYSTYPE_IS_DECLARED) 110 /* Default: YYSTYPE is the semantic value type. */ 111 typedef int YYSTYPE; 112 # define YYSTYPE_IS_DECLARED 1 113 #endif 114 115 /* compatibility with bison */ 116 #ifdef YYPARSE_PARAM 117 /* compatibility with FreeBSD */ 118 # ifdef YYPARSE_PARAM_TYPE 119 # define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM) 120 # else 121 # define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM) 122 # endif 123 #else 124 # define YYPARSE_DECL() yyparse(void) 125 #endif 126 127 /* Parameters sent to lex. */ 128 #ifdef YYLEX_PARAM 129 # define YYLEX_DECL() yylex(void *YYLEX_PARAM) 130 # define YYLEX yylex(YYLEX_PARAM) 131 #else 132 # define YYLEX_DECL() yylex(void) 133 # define YYLEX yylex() 134 #endif 135 136 /* Parameters sent to yyerror. */ 137 #ifndef YYERROR_DECL 138 #define YYERROR_DECL() yyerror(const char *s) 139 #endif 140 #ifndef YYERROR_CALL 141 #define YYERROR_CALL(msg) yyerror(msg) 142 #endif 143 144 #define YYERRCODE 256 145 #define YYTABLESIZE 0 146 #define YYFINAL 2 147 #ifndef YYDEBUG 148 #define YYDEBUG 0 149 #endif 150 #define YYMAXTOKEN 256 151 #define YYUNDFTOKEN 259 152 #define YYTRANSLATE(a) ((a) > YYMAXTOKEN ? YYUNDFTOKEN : (a)) 153 154 extern int YYPARSE_DECL(); 155 typedef int YYINT; 156 extern YYINT yylhs[]; 157 extern YYINT yylen[]; 158 extern YYINT yydefred[]; 159 extern YYINT yydgoto[]; 160 extern YYINT yysindex[]; 161 extern YYINT yyrindex[]; 162 extern YYINT yygindex[]; 163 extern YYINT yytable[]; 164 extern YYINT yycheck[]; 165 166 #if YYDEBUG || defined(yytname) 167 extern char *yyname[]; 168 #endif 169 #if YYDEBUG 170 extern char *yyrule[]; 171 #endif 172 173 #if YYDEBUG 174 int yydebug; 175 #endif 176 177 int yyerrflag; 178 int yychar; 179 YYSTYPE yyval; 180 YYSTYPE yylval; 181 int yynerrs; 182 183 /* define the initial stack-sizes */ 184 #ifdef YYSTACKSIZE 185 #undef YYMAXDEPTH 186 #define YYMAXDEPTH YYSTACKSIZE 187 #else 188 #ifdef YYMAXDEPTH 189 #define YYSTACKSIZE YYMAXDEPTH 190 #else 191 #define YYSTACKSIZE 10000 192 #define YYMAXDEPTH 10000 193 #endif 194 #endif 195 196 #define YYINITSTACKSIZE 200 197 198 typedef struct { 199 unsigned stacksize; 200 YYINT *s_base; 201 YYINT *s_mark; 202 YYINT *s_last; 203 YYSTYPE *l_base; 204 YYSTYPE *l_mark; 205 } YYSTACKDATA; 206 /* variables for the parser stack */ 207 static YYSTACKDATA yystack; 208 #line 12 "code_error.y" 209 210 #include <stdio.h> 211 212 #ifdef YYBYACC 213 extern int YYLEX_DECL(); 214 #endif 215 216 int 217 main(void) 218 { 219 printf("yyparse() = %d\n", yyparse()); 220 return 0; 221 } 222 223 int 224 yylex(void) 225 { 226 return -1; 227 } 228 229 static void 230 yyerror(const char* s) 231 { 232 printf("%s\n", s); 233 } 234 #line 235 "code_error.code.c" 235 236 #if YYDEBUG 237 #include <stdio.h> /* needed for printf */ 238 #endif 239 240 #include <stdlib.h> /* needed for malloc, etc */ 241 #include <string.h> /* needed for memset */ 242 243 /* allocate initial stack or double stack size, up to YYMAXDEPTH */ 244 static int yygrowstack(YYSTACKDATA *data) 245 { 246 int i; 247 unsigned newsize; 248 YYINT *newss; 249 YYSTYPE *newvs; 250 251 if ((newsize = data->stacksize) == 0) 252 newsize = YYINITSTACKSIZE; 253 else if (newsize >= YYMAXDEPTH) 254 return YYENOMEM; 255 else if ((newsize *= 2) > YYMAXDEPTH) 256 newsize = YYMAXDEPTH; 257 258 i = (int) (data->s_mark - data->s_base); 259 newss = (YYINT *)realloc(data->s_base, newsize * sizeof(*newss)); 260 if (newss == 0) 261 return YYENOMEM; 262 263 data->s_base = newss; 264 data->s_mark = newss + i; 265 266 newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs)); 267 if (newvs == 0) 268 return YYENOMEM; 269 270 data->l_base = newvs; 271 data->l_mark = newvs + i; 272 273 data->stacksize = newsize; 274 data->s_last = data->s_base + newsize - 1; 275 return 0; 276 } 277 278 #if YYPURE || defined(YY_NO_LEAKS) 279 static void yyfreestack(YYSTACKDATA *data) 280 { 281 free(data->s_base); 282 free(data->l_base); 283 memset(data, 0, sizeof(*data)); 284 } 285 #else 286 #define yyfreestack(data) /* nothing */ 287 #endif 288 289 #define YYABORT goto yyabort 290 #define YYREJECT goto yyabort 291 #define YYACCEPT goto yyaccept 292 #define YYERROR goto yyerrlab 293 294 int 295 YYPARSE_DECL() 296 { 297 int yym, yyn, yystate; 298 #if YYDEBUG 299 const char *yys; 300 301 if ((yys = getenv("YYDEBUG")) != 0) 302 { 303 yyn = *yys; 304 if (yyn >= '0' && yyn <= '9') 305 yydebug = yyn - '0'; 306 } 307 #endif 308 309 yym = 0; 310 yyn = 0; 311 yynerrs = 0; 312 yyerrflag = 0; 313 yychar = YYEMPTY; 314 yystate = 0; 315 316 #if YYPURE 317 memset(&yystack, 0, sizeof(yystack)); 318 #endif 319 320 if (yystack.s_base == NULL && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 321 yystack.s_mark = yystack.s_base; 322 yystack.l_mark = yystack.l_base; 323 yystate = 0; 324 *yystack.s_mark = 0; 325 326 yyloop: 327 if ((yyn = yydefred[yystate]) != 0) goto yyreduce; 328 if (yychar < 0) 329 { 330 yychar = YYLEX; 331 if (yychar < 0) yychar = YYEOF; 332 #if YYDEBUG 333 if (yydebug) 334 { 335 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 336 printf("%sdebug: state %d, reading %d (%s)\n", 337 YYPREFIX, yystate, yychar, yys); 338 } 339 #endif 340 } 341 if (((yyn = yysindex[yystate]) != 0) && (yyn += yychar) >= 0 && 342 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 343 { 344 #if YYDEBUG 345 if (yydebug) 346 printf("%sdebug: state %d, shifting to state %d\n", 347 YYPREFIX, yystate, yytable[yyn]); 348 #endif 349 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 350 yystate = yytable[yyn]; 351 *++yystack.s_mark = yytable[yyn]; 352 *++yystack.l_mark = yylval; 353 yychar = YYEMPTY; 354 if (yyerrflag > 0) --yyerrflag; 355 goto yyloop; 356 } 357 if (((yyn = yyrindex[yystate]) != 0) && (yyn += yychar) >= 0 && 358 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 359 { 360 yyn = yytable[yyn]; 361 goto yyreduce; 362 } 363 if (yyerrflag != 0) goto yyinrecovery; 364 365 YYERROR_CALL("syntax error"); 366 367 goto yyerrlab; /* redundant goto avoids 'unused label' warning */ 368 yyerrlab: 369 ++yynerrs; 370 371 yyinrecovery: 372 if (yyerrflag < 3) 373 { 374 yyerrflag = 3; 375 for (;;) 376 { 377 if (((yyn = yysindex[*yystack.s_mark]) != 0) && (yyn += YYERRCODE) >= 0 && 378 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) YYERRCODE) 379 { 380 #if YYDEBUG 381 if (yydebug) 382 printf("%sdebug: state %d, error recovery shifting\ 383 to state %d\n", YYPREFIX, *yystack.s_mark, yytable[yyn]); 384 #endif 385 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 386 yystate = yytable[yyn]; 387 *++yystack.s_mark = yytable[yyn]; 388 *++yystack.l_mark = yylval; 389 goto yyloop; 390 } 391 else 392 { 393 #if YYDEBUG 394 if (yydebug) 395 printf("%sdebug: error recovery discarding state %d\n", 396 YYPREFIX, *yystack.s_mark); 397 #endif 398 if (yystack.s_mark <= yystack.s_base) goto yyabort; 399 --yystack.s_mark; 400 --yystack.l_mark; 401 } 402 } 403 } 404 else 405 { 406 if (yychar == YYEOF) goto yyabort; 407 #if YYDEBUG 408 if (yydebug) 409 { 410 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 411 printf("%sdebug: state %d, error recovery discards token %d (%s)\n", 412 YYPREFIX, yystate, yychar, yys); 413 } 414 #endif 415 yychar = YYEMPTY; 416 goto yyloop; 417 } 418 419 yyreduce: 420 #if YYDEBUG 421 if (yydebug) 422 printf("%sdebug: state %d, reducing by rule %d (%s)\n", 423 YYPREFIX, yystate, yyn, yyrule[yyn]); 424 #endif 425 yym = yylen[yyn]; 426 if (yym > 0) 427 yyval = yystack.l_mark[1-yym]; 428 else 429 memset(&yyval, 0, sizeof yyval); 430 431 switch (yyn) 432 { 433 } 434 yystack.s_mark -= yym; 435 yystate = *yystack.s_mark; 436 yystack.l_mark -= yym; 437 yym = yylhs[yyn]; 438 if (yystate == 0 && yym == 0) 439 { 440 #if YYDEBUG 441 if (yydebug) 442 printf("%sdebug: after reduction, shifting from state 0 to\ 443 state %d\n", YYPREFIX, YYFINAL); 444 #endif 445 yystate = YYFINAL; 446 *++yystack.s_mark = YYFINAL; 447 *++yystack.l_mark = yyval; 448 if (yychar < 0) 449 { 450 yychar = YYLEX; 451 if (yychar < 0) yychar = YYEOF; 452 #if YYDEBUG 453 if (yydebug) 454 { 455 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 456 printf("%sdebug: state %d, reading %d (%s)\n", 457 YYPREFIX, YYFINAL, yychar, yys); 458 } 459 #endif 460 } 461 if (yychar == YYEOF) goto yyaccept; 462 goto yyloop; 463 } 464 if (((yyn = yygindex[yym]) != 0) && (yyn += yystate) >= 0 && 465 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yystate) 466 yystate = yytable[yyn]; 467 else 468 yystate = yydgoto[yym]; 469 #if YYDEBUG 470 if (yydebug) 471 printf("%sdebug: after reduction, shifting from state %d \ 472 to state %d\n", YYPREFIX, *yystack.s_mark, yystate); 473 #endif 474 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 475 *++yystack.s_mark = (YYINT) yystate; 476 *++yystack.l_mark = yyval; 477 goto yyloop; 478 479 yyoverflow: 480 YYERROR_CALL("yacc stack overflow"); 481 482 yyabort: 483 yyfreestack(&yystack); 484 return (1); 485 486 yyaccept: 487 yyfreestack(&yystack); 488 return (0); 489 } 490