1264790Sbapt/* original parser id follows */ 2264790Sbapt/* yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93" */ 3319297Sdelphij/* (use YYMAJOR/YYMINOR for ifdefs dependent on parser version) */ 4264790Sbapt 5264790Sbapt#define YYBYACC 1 6264790Sbapt#define YYMAJOR 1 7264790Sbapt#define YYMINOR 9 8264790Sbapt#define YYCHECK "yyyymmdd" 9264790Sbapt 10264790Sbapt#define YYEMPTY (-1) 11264790Sbapt#define yyclearin (yychar = YYEMPTY) 12264790Sbapt#define yyerrok (yyerrflag = 0) 13264790Sbapt#define YYRECOVERING() (yyerrflag != 0) 14264790Sbapt#define YYENOMEM (-2) 15264790Sbapt#define YYEOF 0 16264790Sbapt#undef YYBTYACC 17264790Sbapt#define YYBTYACC 0 18264790Sbapt#define YYDEBUGSTR YYPREFIX "debug" 19264790Sbapt 20264790Sbapt#ifndef yyparse 21264790Sbapt#define yyparse err_syntax20_parse 22264790Sbapt#endif /* yyparse */ 23264790Sbapt 24264790Sbapt#ifndef yylex 25264790Sbapt#define yylex err_syntax20_lex 26264790Sbapt#endif /* yylex */ 27264790Sbapt 28264790Sbapt#ifndef yyerror 29264790Sbapt#define yyerror err_syntax20_error 30264790Sbapt#endif /* yyerror */ 31264790Sbapt 32264790Sbapt#ifndef yychar 33264790Sbapt#define yychar err_syntax20_char 34264790Sbapt#endif /* yychar */ 35264790Sbapt 36264790Sbapt#ifndef yyval 37264790Sbapt#define yyval err_syntax20_val 38264790Sbapt#endif /* yyval */ 39264790Sbapt 40264790Sbapt#ifndef yylval 41264790Sbapt#define yylval err_syntax20_lval 42264790Sbapt#endif /* yylval */ 43264790Sbapt 44264790Sbapt#ifndef yydebug 45264790Sbapt#define yydebug err_syntax20_debug 46264790Sbapt#endif /* yydebug */ 47264790Sbapt 48264790Sbapt#ifndef yynerrs 49264790Sbapt#define yynerrs err_syntax20_nerrs 50264790Sbapt#endif /* yynerrs */ 51264790Sbapt 52264790Sbapt#ifndef yyerrflag 53264790Sbapt#define yyerrflag err_syntax20_errflag 54264790Sbapt#endif /* yyerrflag */ 55264790Sbapt 56264790Sbapt#ifndef yylhs 57264790Sbapt#define yylhs err_syntax20_lhs 58264790Sbapt#endif /* yylhs */ 59264790Sbapt 60264790Sbapt#ifndef yylen 61264790Sbapt#define yylen err_syntax20_len 62264790Sbapt#endif /* yylen */ 63264790Sbapt 64264790Sbapt#ifndef yydefred 65264790Sbapt#define yydefred err_syntax20_defred 66264790Sbapt#endif /* yydefred */ 67264790Sbapt 68264790Sbapt#ifndef yystos 69264790Sbapt#define yystos err_syntax20_stos 70264790Sbapt#endif /* yystos */ 71264790Sbapt 72264790Sbapt#ifndef yydgoto 73264790Sbapt#define yydgoto err_syntax20_dgoto 74264790Sbapt#endif /* yydgoto */ 75264790Sbapt 76264790Sbapt#ifndef yysindex 77264790Sbapt#define yysindex err_syntax20_sindex 78264790Sbapt#endif /* yysindex */ 79264790Sbapt 80264790Sbapt#ifndef yyrindex 81264790Sbapt#define yyrindex err_syntax20_rindex 82264790Sbapt#endif /* yyrindex */ 83264790Sbapt 84264790Sbapt#ifndef yygindex 85264790Sbapt#define yygindex err_syntax20_gindex 86264790Sbapt#endif /* yygindex */ 87264790Sbapt 88264790Sbapt#ifndef yytable 89264790Sbapt#define yytable err_syntax20_table 90264790Sbapt#endif /* yytable */ 91264790Sbapt 92264790Sbapt#ifndef yycheck 93264790Sbapt#define yycheck err_syntax20_check 94264790Sbapt#endif /* yycheck */ 95264790Sbapt 96264790Sbapt#ifndef yyname 97264790Sbapt#define yyname err_syntax20_name 98264790Sbapt#endif /* yyname */ 99264790Sbapt 100264790Sbapt#ifndef yyrule 101264790Sbapt#define yyrule err_syntax20_rule 102264790Sbapt#endif /* yyrule */ 103264790Sbapt 104264790Sbapt#if YYBTYACC 105264790Sbapt 106264790Sbapt#ifndef yycindex 107264790Sbapt#define yycindex err_syntax20_cindex 108264790Sbapt#endif /* yycindex */ 109264790Sbapt 110264790Sbapt#ifndef yyctable 111264790Sbapt#define yyctable err_syntax20_ctable 112264790Sbapt#endif /* yyctable */ 113264790Sbapt 114264790Sbapt#endif /* YYBTYACC */ 115264790Sbapt 116264790Sbapt#define YYPREFIX "err_syntax20_" 117264790Sbapt 118264790Sbapt#define YYPURE 0 119264790Sbapt 120264790Sbapt#line 2 "err_syntax20.y" 121264790Sbaptint yylex(void); 122264790Sbaptstatic void yyerror(const char *); 123264790Sbapt#line 124 "err_syntax20.tab.c" 124264790Sbapt 125264790Sbapt/* compatibility with bison */ 126264790Sbapt#ifdef YYPARSE_PARAM 127264790Sbapt/* compatibility with FreeBSD */ 128264790Sbapt# ifdef YYPARSE_PARAM_TYPE 129264790Sbapt# define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM) 130264790Sbapt# else 131264790Sbapt# define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM) 132264790Sbapt# endif 133264790Sbapt#else 134264790Sbapt# define YYPARSE_DECL() yyparse(void) 135264790Sbapt#endif 136264790Sbapt 137264790Sbapt/* Parameters sent to lex. */ 138264790Sbapt#ifdef YYLEX_PARAM 139264790Sbapt# define YYLEX_DECL() yylex(void *YYLEX_PARAM) 140264790Sbapt# define YYLEX yylex(YYLEX_PARAM) 141264790Sbapt#else 142264790Sbapt# define YYLEX_DECL() yylex(void) 143264790Sbapt# define YYLEX yylex() 144264790Sbapt#endif 145264790Sbapt 146264790Sbapt/* Parameters sent to yyerror. */ 147264790Sbapt#ifndef YYERROR_DECL 148264790Sbapt#define YYERROR_DECL() yyerror(const char *s) 149264790Sbapt#endif 150264790Sbapt#ifndef YYERROR_CALL 151264790Sbapt#define YYERROR_CALL(msg) yyerror(msg) 152264790Sbapt#endif 153264790Sbapt 154264790Sbaptextern int YYPARSE_DECL(); 155264790Sbapt 156264790Sbapt#define recur 257 157264790Sbapt#define YYERRCODE 256 158264790Sbapttypedef short YYINT; 159264790Sbaptstatic const YYINT err_syntax20_lhs[] = { -1, 160264790Sbapt 0, 161264790Sbapt}; 162264790Sbaptstatic const YYINT err_syntax20_len[] = { 2, 163264790Sbapt 3, 164264790Sbapt}; 165264790Sbaptstatic const YYINT err_syntax20_defred[] = { 0, 166264790Sbapt 0, 0, 0, 1, 167264790Sbapt}; 168319297Sdelphij#if defined(YYDESTRUCT_CALL) || defined(YYSTYPE_TOSTRING) 169264790Sbaptstatic const YYINT err_syntax20_stos[] = { 0, 170264790Sbapt 40, 259, 257, 41, 171264790Sbapt}; 172319297Sdelphij#endif /* YYDESTRUCT_CALL || YYSTYPE_TOSTRING */ 173264790Sbaptstatic const YYINT err_syntax20_dgoto[] = { 2, 174264790Sbapt}; 175264790Sbaptstatic const YYINT err_syntax20_sindex[] = { -40, 176264790Sbapt -256, 0, -39, 0, 177264790Sbapt}; 178264790Sbaptstatic const YYINT err_syntax20_rindex[] = { 0, 179264790Sbapt 0, 0, 0, 0, 180264790Sbapt}; 181264790Sbapt#if YYBTYACC 182264790Sbaptstatic const YYINT err_syntax20_cindex[] = { 0, 183264790Sbapt 0, 0, 0, 0, 184264790Sbapt}; 185264790Sbapt#endif 186264790Sbaptstatic const YYINT err_syntax20_gindex[] = { 0, 187264790Sbapt}; 188264790Sbapt#define YYTABLESIZE 2 189264790Sbaptstatic const YYINT err_syntax20_table[] = { 1, 190264790Sbapt 3, 4, 191264790Sbapt}; 192264790Sbaptstatic const YYINT err_syntax20_check[] = { 40, 193264790Sbapt 257, 41, 194264790Sbapt}; 195272655Sbapt#if YYBTYACC 196272655Sbaptstatic const YYINT err_syntax20_ctable[] = { -1, 197272655Sbapt -1, 198272655Sbapt}; 199272655Sbapt#endif 200264790Sbapt#define YYFINAL 2 201264790Sbapt#ifndef YYDEBUG 202264790Sbapt#define YYDEBUG 0 203264790Sbapt#endif 204264790Sbapt#define YYMAXTOKEN 257 205264790Sbapt#define YYUNDFTOKEN 260 206264790Sbapt#define YYTRANSLATE(a) ((a) > YYMAXTOKEN ? YYUNDFTOKEN : (a)) 207264790Sbapt#if YYDEBUG 208264790Sbaptstatic const char *const err_syntax20_name[] = { 209264790Sbapt 210264790Sbapt"$end",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 211264790Sbapt0,0,0,"'('","')'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 212264790Sbapt0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 213264790Sbapt0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 214264790Sbapt0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 215264790Sbapt0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 216264790Sbapt0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"error","recur","$accept","expr", 217264790Sbapt"illegal-symbol", 218264790Sbapt}; 219264790Sbaptstatic const char *const err_syntax20_rule[] = { 220264790Sbapt"$accept : expr", 221264790Sbapt"expr : '(' recur ')'", 222264790Sbapt 223264790Sbapt}; 224264790Sbapt#endif 225264790Sbapt 226264790Sbaptint yydebug; 227264790Sbaptint yynerrs; 228264790Sbapt 229264790Sbaptint yyerrflag; 230264790Sbaptint yychar; 231264790SbaptYYSTYPE yyval; 232264790SbaptYYSTYPE yylval; 233264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 234264790SbaptYYLTYPE yyloc; /* position returned by actions */ 235264790SbaptYYLTYPE yylloc; /* position from the lexer */ 236264790Sbapt#endif 237264790Sbapt 238264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 239264790Sbapt#ifndef YYLLOC_DEFAULT 240264790Sbapt#define YYLLOC_DEFAULT(loc, rhs, n) \ 241264790Sbaptdo \ 242264790Sbapt{ \ 243264790Sbapt if (n == 0) \ 244264790Sbapt { \ 245264790Sbapt (loc).first_line = ((rhs)[-1]).last_line; \ 246264790Sbapt (loc).first_column = ((rhs)[-1]).last_column; \ 247264790Sbapt (loc).last_line = ((rhs)[-1]).last_line; \ 248264790Sbapt (loc).last_column = ((rhs)[-1]).last_column; \ 249264790Sbapt } \ 250264790Sbapt else \ 251264790Sbapt { \ 252264790Sbapt (loc).first_line = ((rhs)[ 0 ]).first_line; \ 253264790Sbapt (loc).first_column = ((rhs)[ 0 ]).first_column; \ 254264790Sbapt (loc).last_line = ((rhs)[n-1]).last_line; \ 255264790Sbapt (loc).last_column = ((rhs)[n-1]).last_column; \ 256264790Sbapt } \ 257264790Sbapt} while (0) 258264790Sbapt#endif /* YYLLOC_DEFAULT */ 259264790Sbapt#endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */ 260264790Sbapt#if YYBTYACC 261264790Sbapt 262264790Sbapt#ifndef YYLVQUEUEGROWTH 263264790Sbapt#define YYLVQUEUEGROWTH 32 264264790Sbapt#endif 265264790Sbapt#endif /* YYBTYACC */ 266264790Sbapt 267264790Sbapt/* define the initial stack-sizes */ 268264790Sbapt#ifdef YYSTACKSIZE 269264790Sbapt#undef YYMAXDEPTH 270264790Sbapt#define YYMAXDEPTH YYSTACKSIZE 271264790Sbapt#else 272264790Sbapt#ifdef YYMAXDEPTH 273264790Sbapt#define YYSTACKSIZE YYMAXDEPTH 274264790Sbapt#else 275264790Sbapt#define YYSTACKSIZE 10000 276264790Sbapt#define YYMAXDEPTH 10000 277264790Sbapt#endif 278264790Sbapt#endif 279264790Sbapt 280264790Sbapt#ifndef YYINITSTACKSIZE 281264790Sbapt#define YYINITSTACKSIZE 200 282264790Sbapt#endif 283264790Sbapt 284264790Sbapttypedef struct { 285264790Sbapt unsigned stacksize; 286319297Sdelphij YYINT *s_base; 287319297Sdelphij YYINT *s_mark; 288319297Sdelphij YYINT *s_last; 289264790Sbapt YYSTYPE *l_base; 290264790Sbapt YYSTYPE *l_mark; 291264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 292264790Sbapt YYLTYPE *p_base; 293264790Sbapt YYLTYPE *p_mark; 294264790Sbapt#endif 295264790Sbapt} YYSTACKDATA; 296264790Sbapt#if YYBTYACC 297264790Sbapt 298264790Sbaptstruct YYParseState_s 299264790Sbapt{ 300264790Sbapt struct YYParseState_s *save; /* Previously saved parser state */ 301264790Sbapt YYSTACKDATA yystack; /* saved parser stack */ 302264790Sbapt int state; /* saved parser state */ 303264790Sbapt int errflag; /* saved error recovery status */ 304264790Sbapt int lexeme; /* saved index of the conflict lexeme in the lexical queue */ 305264790Sbapt YYINT ctry; /* saved index in yyctable[] for this conflict */ 306264790Sbapt}; 307264790Sbapttypedef struct YYParseState_s YYParseState; 308264790Sbapt#endif /* YYBTYACC */ 309264790Sbapt/* variables for the parser stack */ 310264790Sbaptstatic YYSTACKDATA yystack; 311264790Sbapt#if YYBTYACC 312264790Sbapt 313264790Sbapt/* Current parser state */ 314264790Sbaptstatic YYParseState *yyps = 0; 315264790Sbapt 316264790Sbapt/* yypath != NULL: do the full parse, starting at *yypath parser state. */ 317264790Sbaptstatic YYParseState *yypath = 0; 318264790Sbapt 319264790Sbapt/* Base of the lexical value queue */ 320264790Sbaptstatic YYSTYPE *yylvals = 0; 321264790Sbapt 322264790Sbapt/* Current position at lexical value queue */ 323264790Sbaptstatic YYSTYPE *yylvp = 0; 324264790Sbapt 325264790Sbapt/* End position of lexical value queue */ 326264790Sbaptstatic YYSTYPE *yylve = 0; 327264790Sbapt 328264790Sbapt/* The last allocated position at the lexical value queue */ 329264790Sbaptstatic YYSTYPE *yylvlim = 0; 330264790Sbapt 331264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 332264790Sbapt/* Base of the lexical position queue */ 333264790Sbaptstatic YYLTYPE *yylpsns = 0; 334264790Sbapt 335264790Sbapt/* Current position at lexical position queue */ 336264790Sbaptstatic YYLTYPE *yylpp = 0; 337264790Sbapt 338264790Sbapt/* End position of lexical position queue */ 339264790Sbaptstatic YYLTYPE *yylpe = 0; 340264790Sbapt 341264790Sbapt/* The last allocated position at the lexical position queue */ 342264790Sbaptstatic YYLTYPE *yylplim = 0; 343264790Sbapt#endif 344264790Sbapt 345264790Sbapt/* Current position at lexical token queue */ 346319297Sdelphijstatic YYINT *yylexp = 0; 347264790Sbapt 348319297Sdelphijstatic YYINT *yylexemes = 0; 349264790Sbapt#endif /* YYBTYACC */ 350264790Sbapt#line 16 "err_syntax20.y" 351264790Sbapt 352264790Sbapt#include <stdio.h> 353264790Sbapt 354264790Sbaptint 355264790Sbaptmain(void) 356264790Sbapt{ 357264790Sbapt printf("yyparse() = %d\n", yyparse()); 358264790Sbapt return 0; 359264790Sbapt} 360264790Sbapt 361264790Sbaptint 362264790Sbaptyylex(void) 363264790Sbapt{ 364264790Sbapt return -1; 365264790Sbapt} 366264790Sbapt 367264790Sbaptstatic void 368264790Sbaptyyerror(const char* s) 369264790Sbapt{ 370264790Sbapt printf("%s\n", s); 371264790Sbapt} 372319297Sdelphij#line 373 "err_syntax20.tab.c" 373264790Sbapt 374264790Sbapt/* For use in generated program */ 375264790Sbapt#define yydepth (int)(yystack.s_mark - yystack.s_base) 376264790Sbapt#if YYBTYACC 377264790Sbapt#define yytrial (yyps->save) 378264790Sbapt#endif /* YYBTYACC */ 379264790Sbapt 380264790Sbapt#if YYDEBUG 381319297Sdelphij#include <stdio.h> /* needed for printf */ 382264790Sbapt#endif 383264790Sbapt 384319297Sdelphij#include <stdlib.h> /* needed for malloc, etc */ 385319297Sdelphij#include <string.h> /* needed for memset */ 386264790Sbapt 387264790Sbapt/* allocate initial stack or double stack size, up to YYMAXDEPTH */ 388264790Sbaptstatic int yygrowstack(YYSTACKDATA *data) 389264790Sbapt{ 390264790Sbapt int i; 391264790Sbapt unsigned newsize; 392319297Sdelphij YYINT *newss; 393264790Sbapt YYSTYPE *newvs; 394264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 395264790Sbapt YYLTYPE *newps; 396264790Sbapt#endif 397264790Sbapt 398264790Sbapt if ((newsize = data->stacksize) == 0) 399264790Sbapt newsize = YYINITSTACKSIZE; 400264790Sbapt else if (newsize >= YYMAXDEPTH) 401264790Sbapt return YYENOMEM; 402264790Sbapt else if ((newsize *= 2) > YYMAXDEPTH) 403264790Sbapt newsize = YYMAXDEPTH; 404264790Sbapt 405264790Sbapt i = (int) (data->s_mark - data->s_base); 406319297Sdelphij newss = (YYINT *)realloc(data->s_base, newsize * sizeof(*newss)); 407264790Sbapt if (newss == 0) 408264790Sbapt return YYENOMEM; 409264790Sbapt 410264790Sbapt data->s_base = newss; 411264790Sbapt data->s_mark = newss + i; 412264790Sbapt 413264790Sbapt newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs)); 414264790Sbapt if (newvs == 0) 415264790Sbapt return YYENOMEM; 416264790Sbapt 417264790Sbapt data->l_base = newvs; 418264790Sbapt data->l_mark = newvs + i; 419264790Sbapt 420264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 421264790Sbapt newps = (YYLTYPE *)realloc(data->p_base, newsize * sizeof(*newps)); 422264790Sbapt if (newps == 0) 423264790Sbapt return YYENOMEM; 424264790Sbapt 425264790Sbapt data->p_base = newps; 426264790Sbapt data->p_mark = newps + i; 427264790Sbapt#endif 428264790Sbapt 429264790Sbapt data->stacksize = newsize; 430264790Sbapt data->s_last = data->s_base + newsize - 1; 431264790Sbapt 432264790Sbapt#if YYDEBUG 433264790Sbapt if (yydebug) 434264790Sbapt fprintf(stderr, "%sdebug: stack size increased to %d\n", YYPREFIX, newsize); 435264790Sbapt#endif 436264790Sbapt return 0; 437264790Sbapt} 438264790Sbapt 439264790Sbapt#if YYPURE || defined(YY_NO_LEAKS) 440264790Sbaptstatic void yyfreestack(YYSTACKDATA *data) 441264790Sbapt{ 442264790Sbapt free(data->s_base); 443264790Sbapt free(data->l_base); 444264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 445264790Sbapt free(data->p_base); 446264790Sbapt#endif 447264790Sbapt memset(data, 0, sizeof(*data)); 448264790Sbapt} 449264790Sbapt#else 450264790Sbapt#define yyfreestack(data) /* nothing */ 451264790Sbapt#endif /* YYPURE || defined(YY_NO_LEAKS) */ 452264790Sbapt#if YYBTYACC 453264790Sbapt 454264790Sbaptstatic YYParseState * 455264790SbaptyyNewState(unsigned size) 456264790Sbapt{ 457264790Sbapt YYParseState *p = (YYParseState *) malloc(sizeof(YYParseState)); 458264790Sbapt if (p == NULL) return NULL; 459264790Sbapt 460264790Sbapt p->yystack.stacksize = size; 461264790Sbapt if (size == 0) 462264790Sbapt { 463264790Sbapt p->yystack.s_base = NULL; 464264790Sbapt p->yystack.l_base = NULL; 465264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 466264790Sbapt p->yystack.p_base = NULL; 467264790Sbapt#endif 468264790Sbapt return p; 469264790Sbapt } 470319297Sdelphij p->yystack.s_base = (YYINT *) malloc(size * sizeof(YYINT)); 471264790Sbapt if (p->yystack.s_base == NULL) return NULL; 472264790Sbapt p->yystack.l_base = (YYSTYPE *) malloc(size * sizeof(YYSTYPE)); 473264790Sbapt if (p->yystack.l_base == NULL) return NULL; 474264790Sbapt memset(p->yystack.l_base, 0, size * sizeof(YYSTYPE)); 475264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 476264790Sbapt p->yystack.p_base = (YYLTYPE *) malloc(size * sizeof(YYLTYPE)); 477264790Sbapt if (p->yystack.p_base == NULL) return NULL; 478264790Sbapt memset(p->yystack.p_base, 0, size * sizeof(YYLTYPE)); 479264790Sbapt#endif 480264790Sbapt 481264790Sbapt return p; 482264790Sbapt} 483264790Sbapt 484264790Sbaptstatic void 485264790SbaptyyFreeState(YYParseState *p) 486264790Sbapt{ 487264790Sbapt yyfreestack(&p->yystack); 488264790Sbapt free(p); 489264790Sbapt} 490264790Sbapt#endif /* YYBTYACC */ 491264790Sbapt 492264790Sbapt#define YYABORT goto yyabort 493264790Sbapt#define YYREJECT goto yyabort 494264790Sbapt#define YYACCEPT goto yyaccept 495264790Sbapt#define YYERROR goto yyerrlab 496264790Sbapt#if YYBTYACC 497264790Sbapt#define YYVALID do { if (yyps->save) goto yyvalid; } while(0) 498264790Sbapt#define YYVALID_NESTED do { if (yyps->save && \ 499264790Sbapt yyps->save->save == 0) goto yyvalid; } while(0) 500264790Sbapt#endif /* YYBTYACC */ 501264790Sbapt 502264790Sbaptint 503264790SbaptYYPARSE_DECL() 504264790Sbapt{ 505264790Sbapt int yym, yyn, yystate, yyresult; 506264790Sbapt#if YYBTYACC 507264790Sbapt int yynewerrflag; 508264790Sbapt YYParseState *yyerrctx = NULL; 509264790Sbapt#endif /* YYBTYACC */ 510264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 511264790Sbapt YYLTYPE yyerror_loc_range[2]; /* position of error start & end */ 512264790Sbapt#endif 513264790Sbapt#if YYDEBUG 514264790Sbapt const char *yys; 515264790Sbapt 516264790Sbapt if ((yys = getenv("YYDEBUG")) != 0) 517264790Sbapt { 518264790Sbapt yyn = *yys; 519264790Sbapt if (yyn >= '0' && yyn <= '9') 520264790Sbapt yydebug = yyn - '0'; 521264790Sbapt } 522264790Sbapt if (yydebug) 523264790Sbapt fprintf(stderr, "%sdebug[<# of symbols on state stack>]\n", YYPREFIX); 524264790Sbapt#endif 525264790Sbapt 526264790Sbapt#if YYBTYACC 527264790Sbapt yyps = yyNewState(0); if (yyps == 0) goto yyenomem; 528264790Sbapt yyps->save = 0; 529264790Sbapt#endif /* YYBTYACC */ 530319297Sdelphij yym = 0; 531319297Sdelphij yyn = 0; 532264790Sbapt yynerrs = 0; 533264790Sbapt yyerrflag = 0; 534264790Sbapt yychar = YYEMPTY; 535264790Sbapt yystate = 0; 536264790Sbapt 537264790Sbapt#if YYPURE 538264790Sbapt memset(&yystack, 0, sizeof(yystack)); 539264790Sbapt#endif 540264790Sbapt 541264790Sbapt if (yystack.s_base == NULL && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 542264790Sbapt yystack.s_mark = yystack.s_base; 543264790Sbapt yystack.l_mark = yystack.l_base; 544264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 545264790Sbapt yystack.p_mark = yystack.p_base; 546264790Sbapt#endif 547264790Sbapt yystate = 0; 548264790Sbapt *yystack.s_mark = 0; 549264790Sbapt 550264790Sbaptyyloop: 551264790Sbapt if ((yyn = yydefred[yystate]) != 0) goto yyreduce; 552264790Sbapt if (yychar < 0) 553264790Sbapt { 554264790Sbapt#if YYBTYACC 555264790Sbapt do { 556264790Sbapt if (yylvp < yylve) 557264790Sbapt { 558264790Sbapt /* we're currently re-reading tokens */ 559264790Sbapt yylval = *yylvp++; 560264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 561264790Sbapt yylloc = *yylpp++; 562264790Sbapt#endif 563264790Sbapt yychar = *yylexp++; 564264790Sbapt break; 565264790Sbapt } 566264790Sbapt if (yyps->save) 567264790Sbapt { 568264790Sbapt /* in trial mode; save scanner results for future parse attempts */ 569264790Sbapt if (yylvp == yylvlim) 570264790Sbapt { /* Enlarge lexical value queue */ 571272655Sbapt size_t p = (size_t) (yylvp - yylvals); 572272655Sbapt size_t s = (size_t) (yylvlim - yylvals); 573264790Sbapt 574264790Sbapt s += YYLVQUEUEGROWTH; 575319297Sdelphij if ((yylexemes = realloc(yylexemes, s * sizeof(YYINT))) == NULL) goto yyenomem; 576319297Sdelphij if ((yylvals = realloc(yylvals, s * sizeof(YYSTYPE))) == NULL) goto yyenomem; 577264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 578319297Sdelphij if ((yylpsns = realloc(yylpsns, s * sizeof(YYLTYPE))) == NULL) goto yyenomem; 579264790Sbapt#endif 580264790Sbapt yylvp = yylve = yylvals + p; 581264790Sbapt yylvlim = yylvals + s; 582264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 583264790Sbapt yylpp = yylpe = yylpsns + p; 584264790Sbapt yylplim = yylpsns + s; 585264790Sbapt#endif 586264790Sbapt yylexp = yylexemes + p; 587264790Sbapt } 588319297Sdelphij *yylexp = (YYINT) YYLEX; 589264790Sbapt *yylvp++ = yylval; 590264790Sbapt yylve++; 591264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 592264790Sbapt *yylpp++ = yylloc; 593264790Sbapt yylpe++; 594264790Sbapt#endif 595264790Sbapt yychar = *yylexp++; 596264790Sbapt break; 597264790Sbapt } 598264790Sbapt /* normal operation, no conflict encountered */ 599264790Sbapt#endif /* YYBTYACC */ 600264790Sbapt yychar = YYLEX; 601264790Sbapt#if YYBTYACC 602264790Sbapt } while (0); 603264790Sbapt#endif /* YYBTYACC */ 604264790Sbapt if (yychar < 0) yychar = YYEOF; 605264790Sbapt#if YYDEBUG 606264790Sbapt if (yydebug) 607264790Sbapt { 608319297Sdelphij if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 609264790Sbapt fprintf(stderr, "%s[%d]: state %d, reading token %d (%s)", 610264790Sbapt YYDEBUGSTR, yydepth, yystate, yychar, yys); 611264790Sbapt#ifdef YYSTYPE_TOSTRING 612264790Sbapt#if YYBTYACC 613264790Sbapt if (!yytrial) 614264790Sbapt#endif /* YYBTYACC */ 615264790Sbapt fprintf(stderr, " <%s>", YYSTYPE_TOSTRING(yychar, yylval)); 616264790Sbapt#endif 617264790Sbapt fputc('\n', stderr); 618264790Sbapt } 619264790Sbapt#endif 620264790Sbapt } 621264790Sbapt#if YYBTYACC 622264790Sbapt 623264790Sbapt /* Do we have a conflict? */ 624264790Sbapt if (((yyn = yycindex[yystate]) != 0) && (yyn += yychar) >= 0 && 625264790Sbapt yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 626264790Sbapt { 627264790Sbapt YYINT ctry; 628264790Sbapt 629264790Sbapt if (yypath) 630264790Sbapt { 631264790Sbapt YYParseState *save; 632264790Sbapt#if YYDEBUG 633264790Sbapt if (yydebug) 634264790Sbapt fprintf(stderr, "%s[%d]: CONFLICT in state %d: following successful trial parse\n", 635264790Sbapt YYDEBUGSTR, yydepth, yystate); 636264790Sbapt#endif 637264790Sbapt /* Switch to the next conflict context */ 638264790Sbapt save = yypath; 639264790Sbapt yypath = save->save; 640264790Sbapt save->save = NULL; 641264790Sbapt ctry = save->ctry; 642264790Sbapt if (save->state != yystate) YYABORT; 643264790Sbapt yyFreeState(save); 644264790Sbapt 645264790Sbapt } 646264790Sbapt else 647264790Sbapt { 648264790Sbapt 649264790Sbapt /* Unresolved conflict - start/continue trial parse */ 650264790Sbapt YYParseState *save; 651264790Sbapt#if YYDEBUG 652264790Sbapt if (yydebug) 653264790Sbapt { 654264790Sbapt fprintf(stderr, "%s[%d]: CONFLICT in state %d. ", YYDEBUGSTR, yydepth, yystate); 655264790Sbapt if (yyps->save) 656264790Sbapt fputs("ALREADY in conflict, continuing trial parse.\n", stderr); 657264790Sbapt else 658264790Sbapt fputs("Starting trial parse.\n", stderr); 659264790Sbapt } 660264790Sbapt#endif 661264790Sbapt save = yyNewState((unsigned)(yystack.s_mark - yystack.s_base + 1)); 662264790Sbapt if (save == NULL) goto yyenomem; 663264790Sbapt save->save = yyps->save; 664264790Sbapt save->state = yystate; 665264790Sbapt save->errflag = yyerrflag; 666264790Sbapt save->yystack.s_mark = save->yystack.s_base + (yystack.s_mark - yystack.s_base); 667319297Sdelphij memcpy (save->yystack.s_base, yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT)); 668264790Sbapt save->yystack.l_mark = save->yystack.l_base + (yystack.l_mark - yystack.l_base); 669272655Sbapt memcpy (save->yystack.l_base, yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE)); 670264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 671264790Sbapt save->yystack.p_mark = save->yystack.p_base + (yystack.p_mark - yystack.p_base); 672272655Sbapt memcpy (save->yystack.p_base, yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE)); 673264790Sbapt#endif 674264790Sbapt ctry = yytable[yyn]; 675264790Sbapt if (yyctable[ctry] == -1) 676264790Sbapt { 677264790Sbapt#if YYDEBUG 678264790Sbapt if (yydebug && yychar >= YYEOF) 679264790Sbapt fprintf(stderr, "%s[%d]: backtracking 1 token\n", YYDEBUGSTR, yydepth); 680264790Sbapt#endif 681264790Sbapt ctry++; 682264790Sbapt } 683264790Sbapt save->ctry = ctry; 684264790Sbapt if (yyps->save == NULL) 685264790Sbapt { 686264790Sbapt /* If this is a first conflict in the stack, start saving lexemes */ 687264790Sbapt if (!yylexemes) 688264790Sbapt { 689319297Sdelphij yylexemes = malloc((YYLVQUEUEGROWTH) * sizeof(YYINT)); 690264790Sbapt if (yylexemes == NULL) goto yyenomem; 691264790Sbapt yylvals = (YYSTYPE *) malloc((YYLVQUEUEGROWTH) * sizeof(YYSTYPE)); 692264790Sbapt if (yylvals == NULL) goto yyenomem; 693264790Sbapt yylvlim = yylvals + YYLVQUEUEGROWTH; 694264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 695264790Sbapt yylpsns = (YYLTYPE *) malloc((YYLVQUEUEGROWTH) * sizeof(YYLTYPE)); 696264790Sbapt if (yylpsns == NULL) goto yyenomem; 697264790Sbapt yylplim = yylpsns + YYLVQUEUEGROWTH; 698264790Sbapt#endif 699264790Sbapt } 700264790Sbapt if (yylvp == yylve) 701264790Sbapt { 702264790Sbapt yylvp = yylve = yylvals; 703264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 704264790Sbapt yylpp = yylpe = yylpsns; 705264790Sbapt#endif 706264790Sbapt yylexp = yylexemes; 707264790Sbapt if (yychar >= YYEOF) 708264790Sbapt { 709264790Sbapt *yylve++ = yylval; 710264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 711264790Sbapt *yylpe++ = yylloc; 712264790Sbapt#endif 713319297Sdelphij *yylexp = (YYINT) yychar; 714264790Sbapt yychar = YYEMPTY; 715264790Sbapt } 716264790Sbapt } 717264790Sbapt } 718264790Sbapt if (yychar >= YYEOF) 719264790Sbapt { 720264790Sbapt yylvp--; 721264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 722264790Sbapt yylpp--; 723264790Sbapt#endif 724264790Sbapt yylexp--; 725264790Sbapt yychar = YYEMPTY; 726264790Sbapt } 727272655Sbapt save->lexeme = (int) (yylvp - yylvals); 728264790Sbapt yyps->save = save; 729264790Sbapt } 730264790Sbapt if (yytable[yyn] == ctry) 731264790Sbapt { 732264790Sbapt#if YYDEBUG 733264790Sbapt if (yydebug) 734264790Sbapt fprintf(stderr, "%s[%d]: state %d, shifting to state %d\n", 735264790Sbapt YYDEBUGSTR, yydepth, yystate, yyctable[ctry]); 736264790Sbapt#endif 737264790Sbapt if (yychar < 0) 738264790Sbapt { 739264790Sbapt yylvp++; 740264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 741264790Sbapt yylpp++; 742264790Sbapt#endif 743264790Sbapt yylexp++; 744264790Sbapt } 745264790Sbapt if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) 746264790Sbapt goto yyoverflow; 747264790Sbapt yystate = yyctable[ctry]; 748319297Sdelphij *++yystack.s_mark = (YYINT) yystate; 749264790Sbapt *++yystack.l_mark = yylval; 750264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 751264790Sbapt *++yystack.p_mark = yylloc; 752264790Sbapt#endif 753264790Sbapt yychar = YYEMPTY; 754264790Sbapt if (yyerrflag > 0) --yyerrflag; 755264790Sbapt goto yyloop; 756264790Sbapt } 757264790Sbapt else 758264790Sbapt { 759264790Sbapt yyn = yyctable[ctry]; 760264790Sbapt goto yyreduce; 761264790Sbapt } 762264790Sbapt } /* End of code dealing with conflicts */ 763264790Sbapt#endif /* YYBTYACC */ 764264790Sbapt if (((yyn = yysindex[yystate]) != 0) && (yyn += yychar) >= 0 && 765264790Sbapt yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 766264790Sbapt { 767264790Sbapt#if YYDEBUG 768264790Sbapt if (yydebug) 769264790Sbapt fprintf(stderr, "%s[%d]: state %d, shifting to state %d\n", 770264790Sbapt YYDEBUGSTR, yydepth, yystate, yytable[yyn]); 771264790Sbapt#endif 772264790Sbapt if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 773264790Sbapt yystate = yytable[yyn]; 774264790Sbapt *++yystack.s_mark = yytable[yyn]; 775264790Sbapt *++yystack.l_mark = yylval; 776264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 777264790Sbapt *++yystack.p_mark = yylloc; 778264790Sbapt#endif 779264790Sbapt yychar = YYEMPTY; 780264790Sbapt if (yyerrflag > 0) --yyerrflag; 781264790Sbapt goto yyloop; 782264790Sbapt } 783264790Sbapt if (((yyn = yyrindex[yystate]) != 0) && (yyn += yychar) >= 0 && 784264790Sbapt yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar) 785264790Sbapt { 786264790Sbapt yyn = yytable[yyn]; 787264790Sbapt goto yyreduce; 788264790Sbapt } 789264790Sbapt if (yyerrflag != 0) goto yyinrecovery; 790264790Sbapt#if YYBTYACC 791264790Sbapt 792264790Sbapt yynewerrflag = 1; 793264790Sbapt goto yyerrhandler; 794319297Sdelphij goto yyerrlab; /* redundant goto avoids 'unused label' warning */ 795264790Sbapt 796264790Sbaptyyerrlab: 797319297Sdelphij /* explicit YYERROR from an action -- pop the rhs of the rule reduced 798319297Sdelphij * before looking for error recovery */ 799319297Sdelphij yystack.s_mark -= yym; 800319297Sdelphij yystate = *yystack.s_mark; 801319297Sdelphij yystack.l_mark -= yym; 802319297Sdelphij#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 803319297Sdelphij yystack.p_mark -= yym; 804319297Sdelphij#endif 805319297Sdelphij 806264790Sbapt yynewerrflag = 0; 807264790Sbaptyyerrhandler: 808264790Sbapt while (yyps->save) 809264790Sbapt { 810264790Sbapt int ctry; 811264790Sbapt YYParseState *save = yyps->save; 812264790Sbapt#if YYDEBUG 813264790Sbapt if (yydebug) 814264790Sbapt fprintf(stderr, "%s[%d]: ERROR in state %d, CONFLICT BACKTRACKING to state %d, %d tokens\n", 815264790Sbapt YYDEBUGSTR, yydepth, yystate, yyps->save->state, 816264790Sbapt (int)(yylvp - yylvals - yyps->save->lexeme)); 817264790Sbapt#endif 818264790Sbapt /* Memorize most forward-looking error state in case it's really an error. */ 819264790Sbapt if (yyerrctx == NULL || yyerrctx->lexeme < yylvp - yylvals) 820264790Sbapt { 821264790Sbapt /* Free old saved error context state */ 822264790Sbapt if (yyerrctx) yyFreeState(yyerrctx); 823264790Sbapt /* Create and fill out new saved error context state */ 824264790Sbapt yyerrctx = yyNewState((unsigned)(yystack.s_mark - yystack.s_base + 1)); 825264790Sbapt if (yyerrctx == NULL) goto yyenomem; 826264790Sbapt yyerrctx->save = yyps->save; 827264790Sbapt yyerrctx->state = yystate; 828264790Sbapt yyerrctx->errflag = yyerrflag; 829264790Sbapt yyerrctx->yystack.s_mark = yyerrctx->yystack.s_base + (yystack.s_mark - yystack.s_base); 830319297Sdelphij memcpy (yyerrctx->yystack.s_base, yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT)); 831264790Sbapt yyerrctx->yystack.l_mark = yyerrctx->yystack.l_base + (yystack.l_mark - yystack.l_base); 832272655Sbapt memcpy (yyerrctx->yystack.l_base, yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE)); 833264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 834264790Sbapt yyerrctx->yystack.p_mark = yyerrctx->yystack.p_base + (yystack.p_mark - yystack.p_base); 835272655Sbapt memcpy (yyerrctx->yystack.p_base, yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE)); 836264790Sbapt#endif 837272655Sbapt yyerrctx->lexeme = (int) (yylvp - yylvals); 838264790Sbapt } 839264790Sbapt yylvp = yylvals + save->lexeme; 840264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 841264790Sbapt yylpp = yylpsns + save->lexeme; 842264790Sbapt#endif 843264790Sbapt yylexp = yylexemes + save->lexeme; 844264790Sbapt yychar = YYEMPTY; 845264790Sbapt yystack.s_mark = yystack.s_base + (save->yystack.s_mark - save->yystack.s_base); 846319297Sdelphij memcpy (yystack.s_base, save->yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT)); 847264790Sbapt yystack.l_mark = yystack.l_base + (save->yystack.l_mark - save->yystack.l_base); 848272655Sbapt memcpy (yystack.l_base, save->yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE)); 849264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 850264790Sbapt yystack.p_mark = yystack.p_base + (save->yystack.p_mark - save->yystack.p_base); 851272655Sbapt memcpy (yystack.p_base, save->yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE)); 852264790Sbapt#endif 853264790Sbapt ctry = ++save->ctry; 854264790Sbapt yystate = save->state; 855264790Sbapt /* We tried shift, try reduce now */ 856264790Sbapt if ((yyn = yyctable[ctry]) >= 0) goto yyreduce; 857264790Sbapt yyps->save = save->save; 858264790Sbapt save->save = NULL; 859264790Sbapt yyFreeState(save); 860264790Sbapt 861264790Sbapt /* Nothing left on the stack -- error */ 862264790Sbapt if (!yyps->save) 863264790Sbapt { 864264790Sbapt#if YYDEBUG 865264790Sbapt if (yydebug) 866264790Sbapt fprintf(stderr, "%sdebug[%d,trial]: trial parse FAILED, entering ERROR mode\n", 867264790Sbapt YYPREFIX, yydepth); 868264790Sbapt#endif 869264790Sbapt /* Restore state as it was in the most forward-advanced error */ 870264790Sbapt yylvp = yylvals + yyerrctx->lexeme; 871264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 872264790Sbapt yylpp = yylpsns + yyerrctx->lexeme; 873264790Sbapt#endif 874264790Sbapt yylexp = yylexemes + yyerrctx->lexeme; 875264790Sbapt yychar = yylexp[-1]; 876264790Sbapt yylval = yylvp[-1]; 877264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 878264790Sbapt yylloc = yylpp[-1]; 879264790Sbapt#endif 880264790Sbapt yystack.s_mark = yystack.s_base + (yyerrctx->yystack.s_mark - yyerrctx->yystack.s_base); 881319297Sdelphij memcpy (yystack.s_base, yyerrctx->yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT)); 882264790Sbapt yystack.l_mark = yystack.l_base + (yyerrctx->yystack.l_mark - yyerrctx->yystack.l_base); 883272655Sbapt memcpy (yystack.l_base, yyerrctx->yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE)); 884264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 885264790Sbapt yystack.p_mark = yystack.p_base + (yyerrctx->yystack.p_mark - yyerrctx->yystack.p_base); 886272655Sbapt memcpy (yystack.p_base, yyerrctx->yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE)); 887264790Sbapt#endif 888264790Sbapt yystate = yyerrctx->state; 889264790Sbapt yyFreeState(yyerrctx); 890264790Sbapt yyerrctx = NULL; 891264790Sbapt } 892264790Sbapt yynewerrflag = 1; 893264790Sbapt } 894264790Sbapt if (yynewerrflag == 0) goto yyinrecovery; 895264790Sbapt#endif /* YYBTYACC */ 896264790Sbapt 897264790Sbapt YYERROR_CALL("syntax error"); 898264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 899264790Sbapt yyerror_loc_range[0] = yylloc; /* lookahead position is error start position */ 900264790Sbapt#endif 901264790Sbapt 902264790Sbapt#if !YYBTYACC 903319297Sdelphij goto yyerrlab; /* redundant goto avoids 'unused label' warning */ 904264790Sbaptyyerrlab: 905264790Sbapt#endif 906264790Sbapt ++yynerrs; 907264790Sbapt 908264790Sbaptyyinrecovery: 909264790Sbapt if (yyerrflag < 3) 910264790Sbapt { 911264790Sbapt yyerrflag = 3; 912264790Sbapt for (;;) 913264790Sbapt { 914264790Sbapt if (((yyn = yysindex[*yystack.s_mark]) != 0) && (yyn += YYERRCODE) >= 0 && 915264790Sbapt yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) YYERRCODE) 916264790Sbapt { 917264790Sbapt#if YYDEBUG 918264790Sbapt if (yydebug) 919264790Sbapt fprintf(stderr, "%s[%d]: state %d, error recovery shifting to state %d\n", 920264790Sbapt YYDEBUGSTR, yydepth, *yystack.s_mark, yytable[yyn]); 921264790Sbapt#endif 922264790Sbapt if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 923264790Sbapt yystate = yytable[yyn]; 924264790Sbapt *++yystack.s_mark = yytable[yyn]; 925264790Sbapt *++yystack.l_mark = yylval; 926264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 927264790Sbapt /* lookahead position is error end position */ 928264790Sbapt yyerror_loc_range[1] = yylloc; 929264790Sbapt YYLLOC_DEFAULT(yyloc, yyerror_loc_range, 2); /* position of error span */ 930264790Sbapt *++yystack.p_mark = yyloc; 931264790Sbapt#endif 932264790Sbapt goto yyloop; 933264790Sbapt } 934264790Sbapt else 935264790Sbapt { 936264790Sbapt#if YYDEBUG 937264790Sbapt if (yydebug) 938264790Sbapt fprintf(stderr, "%s[%d]: error recovery discarding state %d\n", 939264790Sbapt YYDEBUGSTR, yydepth, *yystack.s_mark); 940264790Sbapt#endif 941264790Sbapt if (yystack.s_mark <= yystack.s_base) goto yyabort; 942264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 943264790Sbapt /* the current TOS position is the error start position */ 944264790Sbapt yyerror_loc_range[0] = *yystack.p_mark; 945264790Sbapt#endif 946264790Sbapt#if defined(YYDESTRUCT_CALL) 947264790Sbapt#if YYBTYACC 948264790Sbapt if (!yytrial) 949264790Sbapt#endif /* YYBTYACC */ 950264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 951264790Sbapt YYDESTRUCT_CALL("error: discarding state", 952264790Sbapt yystos[*yystack.s_mark], yystack.l_mark, yystack.p_mark); 953264790Sbapt#else 954264790Sbapt YYDESTRUCT_CALL("error: discarding state", 955264790Sbapt yystos[*yystack.s_mark], yystack.l_mark); 956264790Sbapt#endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */ 957264790Sbapt#endif /* defined(YYDESTRUCT_CALL) */ 958264790Sbapt --yystack.s_mark; 959264790Sbapt --yystack.l_mark; 960264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 961264790Sbapt --yystack.p_mark; 962264790Sbapt#endif 963264790Sbapt } 964264790Sbapt } 965264790Sbapt } 966264790Sbapt else 967264790Sbapt { 968264790Sbapt if (yychar == YYEOF) goto yyabort; 969264790Sbapt#if YYDEBUG 970264790Sbapt if (yydebug) 971264790Sbapt { 972319297Sdelphij if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 973264790Sbapt fprintf(stderr, "%s[%d]: state %d, error recovery discarding token %d (%s)\n", 974264790Sbapt YYDEBUGSTR, yydepth, yystate, yychar, yys); 975264790Sbapt } 976264790Sbapt#endif 977264790Sbapt#if defined(YYDESTRUCT_CALL) 978264790Sbapt#if YYBTYACC 979264790Sbapt if (!yytrial) 980264790Sbapt#endif /* YYBTYACC */ 981264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 982264790Sbapt YYDESTRUCT_CALL("error: discarding token", yychar, &yylval, &yylloc); 983264790Sbapt#else 984264790Sbapt YYDESTRUCT_CALL("error: discarding token", yychar, &yylval); 985264790Sbapt#endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */ 986264790Sbapt#endif /* defined(YYDESTRUCT_CALL) */ 987264790Sbapt yychar = YYEMPTY; 988264790Sbapt goto yyloop; 989264790Sbapt } 990264790Sbapt 991264790Sbaptyyreduce: 992264790Sbapt yym = yylen[yyn]; 993264790Sbapt#if YYDEBUG 994264790Sbapt if (yydebug) 995264790Sbapt { 996264790Sbapt fprintf(stderr, "%s[%d]: state %d, reducing by rule %d (%s)", 997264790Sbapt YYDEBUGSTR, yydepth, yystate, yyn, yyrule[yyn]); 998264790Sbapt#ifdef YYSTYPE_TOSTRING 999264790Sbapt#if YYBTYACC 1000264790Sbapt if (!yytrial) 1001264790Sbapt#endif /* YYBTYACC */ 1002264790Sbapt if (yym > 0) 1003264790Sbapt { 1004264790Sbapt int i; 1005264790Sbapt fputc('<', stderr); 1006264790Sbapt for (i = yym; i > 0; i--) 1007264790Sbapt { 1008264790Sbapt if (i != yym) fputs(", ", stderr); 1009264790Sbapt fputs(YYSTYPE_TOSTRING(yystos[yystack.s_mark[1-i]], 1010264790Sbapt yystack.l_mark[1-i]), stderr); 1011264790Sbapt } 1012264790Sbapt fputc('>', stderr); 1013264790Sbapt } 1014264790Sbapt#endif 1015264790Sbapt fputc('\n', stderr); 1016264790Sbapt } 1017264790Sbapt#endif 1018264790Sbapt if (yym > 0) 1019264790Sbapt yyval = yystack.l_mark[1-yym]; 1020264790Sbapt else 1021264790Sbapt memset(&yyval, 0, sizeof yyval); 1022264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1023264790Sbapt 1024264790Sbapt /* Perform position reduction */ 1025264790Sbapt memset(&yyloc, 0, sizeof(yyloc)); 1026264790Sbapt#if YYBTYACC 1027264790Sbapt if (!yytrial) 1028264790Sbapt#endif /* YYBTYACC */ 1029264790Sbapt { 1030264790Sbapt YYLLOC_DEFAULT(yyloc, &yystack.p_mark[1-yym], yym); 1031264790Sbapt /* just in case YYERROR is invoked within the action, save 1032264790Sbapt the start of the rhs as the error start position */ 1033264790Sbapt yyerror_loc_range[0] = yystack.p_mark[1-yym]; 1034264790Sbapt } 1035264790Sbapt#endif 1036264790Sbapt 1037264790Sbapt switch (yyn) 1038264790Sbapt { 1039264790Sbaptcase 1: 1040264790Sbapt#line 12 "err_syntax20.y" 1041264790Sbapt { yystack.l_mark[-1].rechk = 3; } 1042264790Sbaptbreak; 1043319297Sdelphij#line 1044 "err_syntax20.tab.c" 1044264790Sbapt default: 1045264790Sbapt break; 1046264790Sbapt } 1047264790Sbapt yystack.s_mark -= yym; 1048264790Sbapt yystate = *yystack.s_mark; 1049264790Sbapt yystack.l_mark -= yym; 1050264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1051264790Sbapt yystack.p_mark -= yym; 1052264790Sbapt#endif 1053264790Sbapt yym = yylhs[yyn]; 1054264790Sbapt if (yystate == 0 && yym == 0) 1055264790Sbapt { 1056264790Sbapt#if YYDEBUG 1057264790Sbapt if (yydebug) 1058264790Sbapt { 1059264790Sbapt fprintf(stderr, "%s[%d]: after reduction, ", YYDEBUGSTR, yydepth); 1060264790Sbapt#ifdef YYSTYPE_TOSTRING 1061264790Sbapt#if YYBTYACC 1062264790Sbapt if (!yytrial) 1063264790Sbapt#endif /* YYBTYACC */ 1064264790Sbapt fprintf(stderr, "result is <%s>, ", YYSTYPE_TOSTRING(yystos[YYFINAL], yyval)); 1065264790Sbapt#endif 1066264790Sbapt fprintf(stderr, "shifting from state 0 to final state %d\n", YYFINAL); 1067264790Sbapt } 1068264790Sbapt#endif 1069264790Sbapt yystate = YYFINAL; 1070264790Sbapt *++yystack.s_mark = YYFINAL; 1071264790Sbapt *++yystack.l_mark = yyval; 1072264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1073264790Sbapt *++yystack.p_mark = yyloc; 1074264790Sbapt#endif 1075264790Sbapt if (yychar < 0) 1076264790Sbapt { 1077264790Sbapt#if YYBTYACC 1078264790Sbapt do { 1079264790Sbapt if (yylvp < yylve) 1080264790Sbapt { 1081264790Sbapt /* we're currently re-reading tokens */ 1082264790Sbapt yylval = *yylvp++; 1083264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1084264790Sbapt yylloc = *yylpp++; 1085264790Sbapt#endif 1086264790Sbapt yychar = *yylexp++; 1087264790Sbapt break; 1088264790Sbapt } 1089264790Sbapt if (yyps->save) 1090264790Sbapt { 1091264790Sbapt /* in trial mode; save scanner results for future parse attempts */ 1092264790Sbapt if (yylvp == yylvlim) 1093264790Sbapt { /* Enlarge lexical value queue */ 1094272655Sbapt size_t p = (size_t) (yylvp - yylvals); 1095272655Sbapt size_t s = (size_t) (yylvlim - yylvals); 1096264790Sbapt 1097264790Sbapt s += YYLVQUEUEGROWTH; 1098319297Sdelphij if ((yylexemes = realloc(yylexemes, s * sizeof(YYINT))) == NULL) 1099264790Sbapt goto yyenomem; 1100319297Sdelphij if ((yylvals = realloc(yylvals, s * sizeof(YYSTYPE))) == NULL) 1101264790Sbapt goto yyenomem; 1102264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1103319297Sdelphij if ((yylpsns = realloc(yylpsns, s * sizeof(YYLTYPE))) == NULL) 1104264790Sbapt goto yyenomem; 1105264790Sbapt#endif 1106264790Sbapt yylvp = yylve = yylvals + p; 1107264790Sbapt yylvlim = yylvals + s; 1108264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1109264790Sbapt yylpp = yylpe = yylpsns + p; 1110264790Sbapt yylplim = yylpsns + s; 1111264790Sbapt#endif 1112264790Sbapt yylexp = yylexemes + p; 1113264790Sbapt } 1114319297Sdelphij *yylexp = (YYINT) YYLEX; 1115264790Sbapt *yylvp++ = yylval; 1116264790Sbapt yylve++; 1117264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1118264790Sbapt *yylpp++ = yylloc; 1119264790Sbapt yylpe++; 1120264790Sbapt#endif 1121264790Sbapt yychar = *yylexp++; 1122264790Sbapt break; 1123264790Sbapt } 1124264790Sbapt /* normal operation, no conflict encountered */ 1125264790Sbapt#endif /* YYBTYACC */ 1126264790Sbapt yychar = YYLEX; 1127264790Sbapt#if YYBTYACC 1128264790Sbapt } while (0); 1129264790Sbapt#endif /* YYBTYACC */ 1130264790Sbapt if (yychar < 0) yychar = YYEOF; 1131264790Sbapt#if YYDEBUG 1132264790Sbapt if (yydebug) 1133264790Sbapt { 1134319297Sdelphij if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN]; 1135319297Sdelphij fprintf(stderr, "%s[%d]: state %d, reading token %d (%s)\n", 1136264790Sbapt YYDEBUGSTR, yydepth, YYFINAL, yychar, yys); 1137264790Sbapt } 1138264790Sbapt#endif 1139264790Sbapt } 1140264790Sbapt if (yychar == YYEOF) goto yyaccept; 1141264790Sbapt goto yyloop; 1142264790Sbapt } 1143264790Sbapt if (((yyn = yygindex[yym]) != 0) && (yyn += yystate) >= 0 && 1144264790Sbapt yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yystate) 1145264790Sbapt yystate = yytable[yyn]; 1146264790Sbapt else 1147264790Sbapt yystate = yydgoto[yym]; 1148264790Sbapt#if YYDEBUG 1149264790Sbapt if (yydebug) 1150264790Sbapt { 1151264790Sbapt fprintf(stderr, "%s[%d]: after reduction, ", YYDEBUGSTR, yydepth); 1152264790Sbapt#ifdef YYSTYPE_TOSTRING 1153264790Sbapt#if YYBTYACC 1154264790Sbapt if (!yytrial) 1155264790Sbapt#endif /* YYBTYACC */ 1156264790Sbapt fprintf(stderr, "result is <%s>, ", YYSTYPE_TOSTRING(yystos[yystate], yyval)); 1157264790Sbapt#endif 1158264790Sbapt fprintf(stderr, "shifting from state %d to state %d\n", *yystack.s_mark, yystate); 1159264790Sbapt } 1160264790Sbapt#endif 1161264790Sbapt if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow; 1162319297Sdelphij *++yystack.s_mark = (YYINT) yystate; 1163264790Sbapt *++yystack.l_mark = yyval; 1164264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1165264790Sbapt *++yystack.p_mark = yyloc; 1166264790Sbapt#endif 1167264790Sbapt goto yyloop; 1168264790Sbapt#if YYBTYACC 1169264790Sbapt 1170264790Sbapt /* Reduction declares that this path is valid. Set yypath and do a full parse */ 1171264790Sbaptyyvalid: 1172264790Sbapt if (yypath) YYABORT; 1173264790Sbapt while (yyps->save) 1174264790Sbapt { 1175264790Sbapt YYParseState *save = yyps->save; 1176264790Sbapt yyps->save = save->save; 1177264790Sbapt save->save = yypath; 1178264790Sbapt yypath = save; 1179264790Sbapt } 1180264790Sbapt#if YYDEBUG 1181264790Sbapt if (yydebug) 1182264790Sbapt fprintf(stderr, "%s[%d]: state %d, CONFLICT trial successful, backtracking to state %d, %d tokens\n", 1183264790Sbapt YYDEBUGSTR, yydepth, yystate, yypath->state, (int)(yylvp - yylvals - yypath->lexeme)); 1184264790Sbapt#endif 1185264790Sbapt if (yyerrctx) 1186264790Sbapt { 1187264790Sbapt yyFreeState(yyerrctx); 1188264790Sbapt yyerrctx = NULL; 1189264790Sbapt } 1190264790Sbapt yylvp = yylvals + yypath->lexeme; 1191264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1192264790Sbapt yylpp = yylpsns + yypath->lexeme; 1193264790Sbapt#endif 1194264790Sbapt yylexp = yylexemes + yypath->lexeme; 1195264790Sbapt yychar = YYEMPTY; 1196264790Sbapt yystack.s_mark = yystack.s_base + (yypath->yystack.s_mark - yypath->yystack.s_base); 1197319297Sdelphij memcpy (yystack.s_base, yypath->yystack.s_base, (size_t) (yystack.s_mark - yystack.s_base + 1) * sizeof(YYINT)); 1198264790Sbapt yystack.l_mark = yystack.l_base + (yypath->yystack.l_mark - yypath->yystack.l_base); 1199272655Sbapt memcpy (yystack.l_base, yypath->yystack.l_base, (size_t) (yystack.l_mark - yystack.l_base + 1) * sizeof(YYSTYPE)); 1200264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1201264790Sbapt yystack.p_mark = yystack.p_base + (yypath->yystack.p_mark - yypath->yystack.p_base); 1202272655Sbapt memcpy (yystack.p_base, yypath->yystack.p_base, (size_t) (yystack.p_mark - yystack.p_base + 1) * sizeof(YYLTYPE)); 1203264790Sbapt#endif 1204264790Sbapt yystate = yypath->state; 1205264790Sbapt goto yyloop; 1206264790Sbapt#endif /* YYBTYACC */ 1207264790Sbapt 1208264790Sbaptyyoverflow: 1209264790Sbapt YYERROR_CALL("yacc stack overflow"); 1210264790Sbapt#if YYBTYACC 1211264790Sbapt goto yyabort_nomem; 1212264790Sbaptyyenomem: 1213264790Sbapt YYERROR_CALL("memory exhausted"); 1214264790Sbaptyyabort_nomem: 1215264790Sbapt#endif /* YYBTYACC */ 1216264790Sbapt yyresult = 2; 1217264790Sbapt goto yyreturn; 1218264790Sbapt 1219264790Sbaptyyabort: 1220264790Sbapt yyresult = 1; 1221264790Sbapt goto yyreturn; 1222264790Sbapt 1223264790Sbaptyyaccept: 1224264790Sbapt#if YYBTYACC 1225264790Sbapt if (yyps->save) goto yyvalid; 1226264790Sbapt#endif /* YYBTYACC */ 1227264790Sbapt yyresult = 0; 1228264790Sbapt 1229264790Sbaptyyreturn: 1230264790Sbapt#if defined(YYDESTRUCT_CALL) 1231264790Sbapt if (yychar != YYEOF && yychar != YYEMPTY) 1232264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1233264790Sbapt YYDESTRUCT_CALL("cleanup: discarding token", yychar, &yylval, &yylloc); 1234264790Sbapt#else 1235264790Sbapt YYDESTRUCT_CALL("cleanup: discarding token", yychar, &yylval); 1236264790Sbapt#endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */ 1237264790Sbapt 1238264790Sbapt { 1239264790Sbapt YYSTYPE *pv; 1240264790Sbapt#if defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) 1241264790Sbapt YYLTYPE *pp; 1242264790Sbapt 1243264790Sbapt for (pv = yystack.l_base, pp = yystack.p_base; pv <= yystack.l_mark; ++pv, ++pp) 1244264790Sbapt YYDESTRUCT_CALL("cleanup: discarding state", 1245264790Sbapt yystos[*(yystack.s_base + (pv - yystack.l_base))], pv, pp); 1246264790Sbapt#else 1247264790Sbapt for (pv = yystack.l_base; pv <= yystack.l_mark; ++pv) 1248264790Sbapt YYDESTRUCT_CALL("cleanup: discarding state", 1249264790Sbapt yystos[*(yystack.s_base + (pv - yystack.l_base))], pv); 1250264790Sbapt#endif /* defined(YYLTYPE) || defined(YYLTYPE_IS_DECLARED) */ 1251264790Sbapt } 1252264790Sbapt#endif /* defined(YYDESTRUCT_CALL) */ 1253264790Sbapt 1254264790Sbapt#if YYBTYACC 1255264790Sbapt if (yyerrctx) 1256264790Sbapt { 1257264790Sbapt yyFreeState(yyerrctx); 1258264790Sbapt yyerrctx = NULL; 1259264790Sbapt } 1260264790Sbapt while (yyps) 1261264790Sbapt { 1262264790Sbapt YYParseState *save = yyps; 1263264790Sbapt yyps = save->save; 1264264790Sbapt save->save = NULL; 1265264790Sbapt yyFreeState(save); 1266264790Sbapt } 1267264790Sbapt while (yypath) 1268264790Sbapt { 1269264790Sbapt YYParseState *save = yypath; 1270264790Sbapt yypath = save->save; 1271264790Sbapt save->save = NULL; 1272264790Sbapt yyFreeState(save); 1273264790Sbapt } 1274264790Sbapt#endif /* YYBTYACC */ 1275264790Sbapt yyfreestack(&yystack); 1276264790Sbapt return (yyresult); 1277264790Sbapt} 1278