contrib/lempar.c

   1 /* Driver template for the LEMON parser generator.
   2 ** The author disclaims copyright to this source code.
   3 */
   4 /* First off, code is included that follows the "include" declaration
   5 ** in the input grammar file. */
   6 #include <stdio.h>
   7 %%
   8 /* Next is all token values, in a form suitable for use by makeheaders.
   9 ** This section will be null unless lemon is run with the -m switch.
  10 */
  11 /*
  12 ** These constants (all generated automatically by the parser generator)
  13 ** specify the various kinds of tokens (terminals) that the parser
  14 ** understands.
  15 **
  16 ** Each symbol here is a terminal symbol in the grammar.
  17 */
  18 %%
  19 /* Make sure the INTERFACE macro is defined.
  20 */
  21 #ifndef INTERFACE
  22 # define INTERFACE 1
  23 #endif
  24 /* The next thing included is series of defines which control
  25 ** various aspects of the generated parser.
  26 **    YYCODETYPE         is the data type used for storing terminal
  27 **                       and nonterminal numbers.  "unsigned char" is
  28 **                       used if there are fewer than 250 terminals
  29 **                       and nonterminals.  "int" is used otherwise.
  30 **    YYNOCODE           is a number of type YYCODETYPE which corresponds
  31 **                       to no legal terminal or nonterminal number.  This
  32 **                       number is used to fill in empty slots of the hash
  33 **                       table.
  34 **    YYFALLBACK         If defined, this indicates that one or more tokens
  35 **                       have fall-back values which should be used if the
  36 **                       original value of the token will not parse.
  37 **    YYACTIONTYPE       is the data type used for storing terminal
  38 **                       and nonterminal numbers.  "unsigned char" is
  39 **                       used if there are fewer than 250 rules and
  40 **                       states combined.  "int" is used otherwise.
  41 **    ParseTOKENTYPE     is the data type used for minor tokens given
  42 **                       directly to the parser from the tokenizer.
  43 **    YYMINORTYPE        is the data type used for all minor tokens.
  44 **                       This is typically a union of many types, one of
  45 **                       which is ParseTOKENTYPE.  The entry in the union
  46 **                       for base tokens is called "yy0".
  47 **    YYSTACKDEPTH       is the maximum depth of the parser's stack.  If
  48 **                       zero the stack is dynamically sized using realloc()
  49 **    ParseARG_SDECL     A static variable declaration for the %extra_argument
  50 **    ParseARG_PDECL     A parameter declaration for the %extra_argument
  51 **    ParseARG_STORE     Code to store %extra_argument into yypParser
  52 **    ParseARG_FETCH     Code to extract %extra_argument from yypParser
  53 **    YYNSTATE           the combined number of states.
  54 **    YYNRULE            the number of rules in the grammar
  55 **    YYERRORSYMBOL      is the code number of the error symbol.  If not
  56 **                       defined, then do no error processing.
  57 */
  58 %%
  59 #define YY_NO_ACTION      (YYNSTATE+YYNRULE+2)
  60 #define YY_ACCEPT_ACTION  (YYNSTATE+YYNRULE+1)
  61 #define YY_ERROR_ACTION   (YYNSTATE+YYNRULE)
  62
  63 /* The yyzerominor constant is used to initialize instances of
  64 ** YYMINORTYPE objects to zero. */
  65 static const YYMINORTYPE yyzerominor = { 0 };
  66
  67 /* Define the yytestcase() macro to be a no-op if is not already defined
  68 ** otherwise.
  69 **
  70 ** Applications can choose to define yytestcase() in the %include section
  71 ** to a macro that can assist in verifying code coverage.  For production
  72 ** code the yytestcase() macro should be turned off.  But it is useful
  73 ** for testing.
  74 */
  75 #ifndef yytestcase
  76 # define yytestcase(X)
  77 #endif
  78
  79
  80 /* Next are the tables used to determine what action to take based on the
  81 ** current state and lookahead token.  These tables are used to implement
  82 ** functions that take a state number and lookahead value and return an
  83 ** action integer.
  84 **
  85 ** Suppose the action integer is N.  Then the action is determined as
  86 ** follows
  87 **
  88 **   0 <= N < YYNSTATE                  Shift N.  That is, push the lookahead
  89 **                                      token onto the stack and goto state N.
  90 **
  91 **   YYNSTATE <= N < YYNSTATE+YYNRULE   Reduce by rule N-YYNSTATE.
  92 **
  93 **   N == YYNSTATE+YYNRULE              A syntax error has occurred.
  94 **
  95 **   N == YYNSTATE+YYNRULE+1            The parser accepts its input.
  96 **
  97 **   N == YYNSTATE+YYNRULE+2            No such action.  Denotes unused
  98 **                                      slots in the yy_action[] table.
  99 **
 100 ** The action table is constructed as a single large table named yy_action[].
 101 ** Given state S and lookahead X, the action is computed as
 102 **
 103 **      yy_action[ yy_shift_ofst[S] + X ]
 104 **
 105 ** If the index value yy_shift_ofst[S]+X is out of range or if the value
 106 ** yy_lookahead[yy_shift_ofst[S]+X] is not equal to X or if yy_shift_ofst[S]
 107 ** is equal to YY_SHIFT_USE_DFLT, it means that the action is not in the table
 108 ** and that yy_default[S] should be used instead.
 109 **
 110 ** The formula above is for computing the action when the lookahead is
 111 ** a terminal symbol.  If the lookahead is a non-terminal (as occurs after
 112 ** a reduce action) then the yy_reduce_ofst[] array is used in place of
 113 ** the yy_shift_ofst[] array and YY_REDUCE_USE_DFLT is used in place of
 114 ** YY_SHIFT_USE_DFLT.
 115 **
 116 ** The following are the tables generated in this section:
 117 **
 118 **  yy_action[]        A single table containing all actions.
 119 **  yy_lookahead[]     A table containing the lookahead for each entry in
 120 **                     yy_action.  Used to detect hash collisions.
 121 **  yy_shift_ofst[]    For each state, the offset into yy_action for
 122 **                     shifting terminals.
 123 **  yy_reduce_ofst[]   For each state, the offset into yy_action for
 124 **                     shifting non-terminals after a reduce.
 125 **  yy_default[]       Default action for each state.
 126 */
 127 %%
 128
 129 /* The next table maps tokens into fallback tokens.  If a construct
 130 ** like the following:
 131 **
 132 **      %fallback ID X Y Z.
 133 **
 134 ** appears in the grammar, then ID becomes a fallback token for X, Y,
 135 ** and Z.  Whenever one of the tokens X, Y, or Z is input to the parser
 136 ** but it does not parse, the type of the token is changed to ID and
 137 ** the parse is retried before an error is thrown.
 138 */
 139 #ifdef YYFALLBACK
 140 static const YYCODETYPE yyFallback[] = {
 141 %%
 142 };
 143 #endif /* YYFALLBACK */
 144
 145 /* The following structure represents a single element of the
 146 ** parser's stack.  Information stored includes:
 147 **
 148 **   +  The state number for the parser at this level of the stack.
 149 **
 150 **   +  The value of the token stored at this level of the stack.
 151 **      (In other words, the "major" token.)
 152 **
 153 **   +  The semantic value stored at this level of the stack.  This is
 154 **      the information used by the action routines in the grammar.
 155 **      It is sometimes called the "minor" token.
 156 */
 157 struct yyStackEntry {
 158   YYACTIONTYPE stateno;  /* The state-number */
 159   YYCODETYPE major;      /* The major token value.  This is the code
 160                          ** number for the token at this stack level */
 161   YYMINORTYPE minor;     /* The user-supplied minor token value.  This
 162                          ** is the value of the token  */
 163 };
 164 typedef struct yyStackEntry yyStackEntry;
 165
 166 /* The state of the parser is completely contained in an instance of
 167 ** the following structure */
 168 struct yyParser {
 169   int yyidx;                    /* Index of top element in stack */
 170 #ifdef YYTRACKMAXSTACKDEPTH
 171   int yyidxMax;                 /* Maximum value of yyidx */
 172 #endif
 173   int yyerrcnt;                 /* Shifts left before out of the error */
 174   ParseARG_SDECL                /* A place to hold %extra_argument */
 175 #if YYSTACKDEPTH<=0
 176   int yystksz;                  /* Current side of the stack */
 177   yyStackEntry *yystack;        /* The parser's stack */
 178 #else
 179   yyStackEntry yystack[YYSTACKDEPTH];  /* The parser's stack */
 180 #endif
 181 };
 182 typedef struct yyParser yyParser;
 183
 184 #ifndef NDEBUG
 185 #include <stdio.h>
 186 static FILE *yyTraceFILE = 0;
 187 static char *yyTracePrompt = 0;
 188 #endif /* NDEBUG */
 189
 190 #ifndef NDEBUG
 191 /*
 192 ** Turn parser tracing on by giving a stream to which to write the trace
 193 ** and a prompt to preface each trace message.  Tracing is turned off
 194 ** by making either argument NULL
 195 **
 196 ** Inputs:
 197 ** <ul>
 198 ** <li> A FILE* to which trace output should be written.
 199 **      If NULL, then tracing is turned off.
 200 ** <li> A prefix string written at the beginning of every
 201 **      line of trace output.  If NULL, then tracing is
 202 **      turned off.
 203 ** </ul>
 204 **
 205 ** Outputs:
 206 ** None.
 207 */
 208 void ParseTrace(FILE *TraceFILE, char *zTracePrompt){
 209   yyTraceFILE = TraceFILE;
 210   yyTracePrompt = zTracePrompt;
 211   if( yyTraceFILE==0 ) yyTracePrompt = 0;
 212   else if( yyTracePrompt==0 ) yyTraceFILE = 0;
 213 }
 214 #endif /* NDEBUG */
 215
 216 #ifndef NDEBUG
 217 /* For tracing shifts, the names of all terminals and nonterminals
 218 ** are required.  The following table supplies these names */
 219 static const char *const yyTokenName[] = {
 220 %%
 221 };
 222 #endif /* NDEBUG */
 223
 224 #ifndef NDEBUG
 225 /* For tracing reduce actions, the names of all rules are required.
 226 */
 227 static const char *const yyRuleName[] = {
 228 %%
 229 };
 230 #endif /* NDEBUG */
 231
 232
 233 #if YYSTACKDEPTH<=0
 234 /*
 235 ** Try to increase the size of the parser stack.
 236 */
 237 static void yyGrowStack(yyParser *p){
 238   int newSize;
 239   yyStackEntry *pNew;
 240
 241   newSize = p->yystksz*2 + 100;
 242   pNew = realloc(p->yystack, newSize*sizeof(pNew[0]));
 243   if( pNew ){
 244     p->yystack = pNew;
 245     p->yystksz = newSize;
 246 #ifndef NDEBUG
 247     if( yyTraceFILE ){
 248       fprintf(yyTraceFILE,"%sStack grows to %d entries!\n",
 249               yyTracePrompt, p->yystksz);
 250     }
 251 #endif
 252   }
 253 }
 254 #endif
 255
 256 /*
 257 ** This function allocates a new parser.
 258 ** The only argument is a pointer to a function which works like
 259 ** malloc.
 260 **
 261 ** Inputs:
 262 ** A pointer to the function used to allocate memory.
 263 **
 264 ** Outputs:
 265 ** A pointer to a parser.  This pointer is used in subsequent calls
 266 ** to Parse and ParseFree.
 267 */
 268 void *ParseAlloc(void *(*mallocProc)(size_t)){
 269   yyParser *pParser;
 270   pParser = (yyParser*)(*mallocProc)( (size_t)sizeof(yyParser) );
 271   if( pParser ){
 272     pParser->yyidx = -1;
 273 #ifdef YYTRACKMAXSTACKDEPTH
 274     pParser->yyidxMax = 0;
 275 #endif
 276 #if YYSTACKDEPTH<=0
 277     pParser->yystack = NULL;
 278     pParser->yystksz = 0;
 279     yyGrowStack(pParser);
 280 #endif
 281   }
 282   return pParser;
 283 }
 284
 285 /* The following function deletes the value associated with a
 286 ** symbol.  The symbol can be either a terminal or nonterminal.
 287 ** "yymajor" is the symbol code, and "yypminor" is a pointer to
 288 ** the value.
 289 */
 290 static void yy_destructor(
 291   yyParser *yypParser,    /* The parser */
 292   YYCODETYPE yymajor,     /* Type code for object to destroy */
 293   YYMINORTYPE *yypminor   /* The object to be destroyed */
 294 ){
 295   ParseARG_FETCH;
 296   switch( yymajor ){
 297     /* Here is inserted the actions which take place when a
 298     ** terminal or non-terminal is destroyed.  This can happen
 299     ** when the symbol is popped from the stack during a
 300     ** reduce or during error processing or when a parser is
 301     ** being destroyed before it is finished parsing.
 302     **
 303     ** Note: during a reduce, the only symbols destroyed are those
 304     ** which appear on the RHS of the rule, but which are not used
 305     ** inside the C code.
 306     */
 307 %%
 308     default:  break;   /* If no destructor action specified: do nothing */
 309   }
 310 }
 311
 312 /*
 313 ** Pop the parser's stack once.
 314 **
 315 ** If there is a destructor routine associated with the token which
 316 ** is popped from the stack, then call it.
 317 **
 318 ** Return the major token number for the symbol popped.
 319 */
 320 static int yy_pop_parser_stack(yyParser *pParser){
 321   YYCODETYPE yymajor;
 322   yyStackEntry *yytos = &pParser->yystack[pParser->yyidx];
 323
 324   if( pParser->yyidx<0 ) return 0;
 325 #ifndef NDEBUG
 326   if( yyTraceFILE && pParser->yyidx>=0 ){
 327     fprintf(yyTraceFILE,"%sPopping %s\n",
 328       yyTracePrompt,
 329       yyTokenName[yytos->major]);
 330   }
 331 #endif
 332   yymajor = yytos->major;
 333   yy_destructor(pParser, yymajor, &yytos->minor);
 334   pParser->yyidx--;
 335   return yymajor;
 336 }
 337
 338 /*
 339 ** Deallocate and destroy a parser.  Destructors are all called for
 340 ** all stack elements before shutting the parser down.
 341 **
 342 ** Inputs:
 343 ** <ul>
 344 ** <li>  A pointer to the parser.  This should be a pointer
 345 **       obtained from ParseAlloc.
 346 ** <li>  A pointer to a function used to reclaim memory obtained
 347 **       from malloc.
 348 ** </ul>
 349 */
 350 void ParseFree(
 351   void *p,                    /* The parser to be deleted */
 352   void (*freeProc)(void*)     /* Function used to reclaim memory */
 353 ){
 354   yyParser *pParser = (yyParser*)p;
 355   if( pParser==0 ) return;
 356   while( pParser->yyidx>=0 ) yy_pop_parser_stack(pParser);
 357 #if YYSTACKDEPTH<=0
 358   free(pParser->yystack);
 359 #endif
 360   (*freeProc)((void*)pParser);
 361 }
 362
 363 /*
 364 ** Return the peak depth of the stack for a parser.
 365 */
 366 #ifdef YYTRACKMAXSTACKDEPTH
 367 int ParseStackPeak(void *p){
 368   yyParser *pParser = (yyParser*)p;
 369   return pParser->yyidxMax;
 370 }
 371 #endif
 372
 373 /*
 374 ** Find the appropriate action for a parser given the terminal
 375 ** look-ahead token iLookAhead.
 376 **
 377 ** If the look-ahead token is YYNOCODE, then check to see if the action is
 378 ** independent of the look-ahead.  If it is, return the action, otherwise
 379 ** return YY_NO_ACTION.
 380 */
 381 static int yy_find_shift_action(
 382   yyParser *pParser,        /* The parser */
 383   YYCODETYPE iLookAhead     /* The look-ahead token */
 384 ){
 385   int i;
 386   int stateno = pParser->yystack[pParser->yyidx].stateno;
 387
 388   if( stateno>YY_SHIFT_COUNT
 389    || (i = yy_shift_ofst[stateno])==YY_SHIFT_USE_DFLT ){
 390     return yy_default[stateno];
 391   }
 392   assert( iLookAhead!=YYNOCODE );
 393   i += iLookAhead;
 394   if( i<0 || i>=YY_ACTTAB_COUNT || yy_lookahead[i]!=iLookAhead ){
 395     if( iLookAhead>0 ){
 396 #ifdef YYFALLBACK
 397       YYCODETYPE iFallback;            /* Fallback token */
 398       if( iLookAhead<sizeof(yyFallback)/sizeof(yyFallback[0])
 399              && (iFallback = yyFallback[iLookAhead])!=0 ){
 400 #ifndef NDEBUG
 401         if( yyTraceFILE ){
 402           fprintf(yyTraceFILE, "%sFALLBACK %s => %s\n",
 403              yyTracePrompt, yyTokenName[iLookAhead], yyTokenName[iFallback]);
 404         }
 405 #endif
 406         return yy_find_shift_action(pParser, iFallback);
 407       }
 408 #endif
 409 #ifdef YYWILDCARD
 410       {
 411         int j = i - iLookAhead + YYWILDCARD;
 412         if(
 413 #if YY_SHIFT_MIN+YYWILDCARD<0
 414           j>=0 &&
 415 #endif
 416 #if YY_SHIFT_MAX+YYWILDCARD>=YY_ACTTAB_COUNT
 417           j<YY_ACTTAB_COUNT &&
 418 #endif
 419           yy_lookahead[j]==YYWILDCARD
 420         ){
 421 #ifndef NDEBUG
 422           if( yyTraceFILE ){
 423             fprintf(yyTraceFILE, "%sWILDCARD %s => %s\n",
 424                yyTracePrompt, yyTokenName[iLookAhead], yyTokenName[YYWILDCARD]);
 425           }
 426 #endif /* NDEBUG */
 427           return yy_action[j];
 428         }
 429       }
 430 #endif /* YYWILDCARD */
 431     }
 432     return yy_default[stateno];
 433   }else{
 434     return yy_action[i];
 435   }
 436 }
 437
 438 /*
 439 ** Find the appropriate action for a parser given the non-terminal
 440 ** look-ahead token iLookAhead.
 441 **
 442 ** If the look-ahead token is YYNOCODE, then check to see if the action is
 443 ** independent of the look-ahead.  If it is, return the action, otherwise
 444 ** return YY_NO_ACTION.
 445 */
 446 static int yy_find_reduce_action(
 447   int stateno,              /* Current state number */
 448   YYCODETYPE iLookAhead     /* The look-ahead token */
 449 ){
 450   int i;
 451 #ifdef YYERRORSYMBOL
 452   if( stateno>YY_REDUCE_COUNT ){
 453     return yy_default[stateno];
 454   }
 455 #else
 456   assert( stateno<=YY_REDUCE_COUNT );
 457 #endif
 458   i = yy_reduce_ofst[stateno];
 459   assert( i!=YY_REDUCE_USE_DFLT );
 460   assert( iLookAhead!=YYNOCODE );
 461   i += iLookAhead;
 462 #ifdef YYERRORSYMBOL
 463   if( i<0 || i>=YY_ACTTAB_COUNT || yy_lookahead[i]!=iLookAhead ){
 464     return yy_default[stateno];
 465   }
 466 #else
 467   assert( i>=0 && i<YY_ACTTAB_COUNT );
 468   assert( yy_lookahead[i]==iLookAhead );
 469 #endif
 470   return yy_action[i];
 471 }
 472
 473 /*
 474 ** The following routine is called if the stack overflows.
 475 */
 476 static void yyStackOverflow(yyParser *yypParser, YYMINORTYPE *yypMinor){
 477    ParseARG_FETCH;
 478    yypParser->yyidx--;
 479 #ifndef NDEBUG
 480    if( yyTraceFILE ){
 481      fprintf(yyTraceFILE,"%sStack Overflow!\n",yyTracePrompt);
 482    }
 483 #endif
 484    while( yypParser->yyidx>=0 ) yy_pop_parser_stack(yypParser);
 485    /* Here code is inserted which will execute if the parser
 486    ** stack every overflows */
 487 %%
 488    ParseARG_STORE; /* Suppress warning about unused %extra_argument var */
 489 }
 490
 491 /*
 492 ** Perform a shift action.
 493 */
 494 static void yy_shift(
 495   yyParser *yypParser,          /* The parser to be shifted */
 496   int yyNewState,               /* The new state to shift in */
 497   int yyMajor,                  /* The major token to shift in */
 498   YYMINORTYPE *yypMinor         /* Pointer to the minor token to shift in */
 499 ){
 500   yyStackEntry *yytos;
 501   yypParser->yyidx++;
 502 #ifdef YYTRACKMAXSTACKDEPTH
 503   if( yypParser->yyidx>yypParser->yyidxMax ){
 504     yypParser->yyidxMax = yypParser->yyidx;
 505   }
 506 #endif
 507 #if YYSTACKDEPTH>0
 508   if( yypParser->yyidx>=YYSTACKDEPTH ){
 509     yyStackOverflow(yypParser, yypMinor);
 510     return;
 511   }
 512 #else
 513   if( yypParser->yyidx>=yypParser->yystksz ){
 514     yyGrowStack(yypParser);
 515     if( yypParser->yyidx>=yypParser->yystksz ){
 516       yyStackOverflow(yypParser, yypMinor);
 517       return;
 518     }
 519   }
 520 #endif
 521   yytos = &yypParser->yystack[yypParser->yyidx];
 522   yytos->stateno = (YYACTIONTYPE)yyNewState;
 523   yytos->major = (YYCODETYPE)yyMajor;
 524   yytos->minor = *yypMinor;
 525 #ifndef NDEBUG
 526   if( yyTraceFILE && yypParser->yyidx>0 ){
 527     int i;
 528     fprintf(yyTraceFILE,"%sShift %d\n",yyTracePrompt,yyNewState);
 529     fprintf(yyTraceFILE,"%sStack:",yyTracePrompt);
 530     for(i=1; i<=yypParser->yyidx; i++)
 531       fprintf(yyTraceFILE," %s",yyTokenName[yypParser->yystack[i].major]);
 532     fprintf(yyTraceFILE,"\n");
 533   }
 534 #endif
 535 }
 536
 537 /* The following table contains information about every rule that
 538 ** is used during the reduce.
 539 */
 540 static const struct {
 541   YYCODETYPE lhs;         /* Symbol on the left-hand side of the rule */
 542   unsigned char nrhs;     /* Number of right-hand side symbols in the rule */
 543 } yyRuleInfo[] = {
 544 %%
 545 };
 546
 547 static void yy_accept(yyParser*);  /* Forward Declaration */
 548
 549 /*
 550 ** Perform a reduce action and the shift that must immediately
 551 ** follow the reduce.
 552 */
 553 static void yy_reduce(
 554   yyParser *yypParser,         /* The parser */
 555   int yyruleno                 /* Number of the rule by which to reduce */
 556 ){
 557   int yygoto;                     /* The next state */
 558   int yyact;                      /* The next action */
 559   YYMINORTYPE yygotominor;        /* The LHS of the rule reduced */
 560   yyStackEntry *yymsp;            /* The top of the parser's stack */
 561   int yysize;                     /* Amount to pop the stack */
 562   ParseARG_FETCH;
 563   yymsp = &yypParser->yystack[yypParser->yyidx];
 564 #ifndef NDEBUG
 565   if( yyTraceFILE && yyruleno>=0
 566         && yyruleno<(int)(sizeof(yyRuleName)/sizeof(yyRuleName[0])) ){
 567     fprintf(yyTraceFILE, "%sReduce [%s].\n", yyTracePrompt,
 568       yyRuleName[yyruleno]);
 569   }
 570 #endif /* NDEBUG */
 571
 572   /* Silence complaints from purify about yygotominor being uninitialized
 573   ** in some cases when it is copied into the stack after the following
 574   ** switch.  yygotominor is uninitialized when a rule reduces that does
 575   ** not set the value of its left-hand side nonterminal.  Leaving the
 576   ** value of the nonterminal uninitialized is utterly harmless as long
 577   ** as the value is never used.  So really the only thing this code
 578   ** accomplishes is to quieten purify.
 579   **
 580   ** 2007-01-16:  The wireshark project (www.wireshark.org) reports that
 581   ** without this code, their parser segfaults.  I'm not sure what there
 582   ** parser is doing to make this happen.  This is the second bug report
 583   ** from wireshark this week.  Clearly they are stressing Lemon in ways
 584   ** that it has not been previously stressed...  (SQLite ticket #2172)
 585   */
 586   /*memset(&yygotominor, 0, sizeof(yygotominor));*/
 587   yygotominor = yyzerominor;
 588
 589
 590   switch( yyruleno ){
 591   /* Beginning here are the reduction cases.  A typical example
 592   ** follows:
 593   **   case 0:
 594   **  #line <lineno> <grammarfile>
 595   **     { ... }           // User supplied code
 596   **  #line <lineno> <thisfile>
 597   **     break;
 598   */
 599 %%
 600   };
 601   yygoto = yyRuleInfo[yyruleno].lhs;
 602   yysize = yyRuleInfo[yyruleno].nrhs;
 603   yypParser->yyidx -= yysize;
 604   yyact = yy_find_reduce_action(yymsp[-yysize].stateno,(YYCODETYPE)yygoto);
 605   if( yyact < YYNSTATE ){
 606 #ifdef NDEBUG
 607     /* If we are not debugging and the reduce action popped at least
 608     ** one element off the stack, then we can push the new element back
 609     ** onto the stack here, and skip the stack overflow test in yy_shift().
 610     ** That gives a significant speed improvement. */
 611     if( yysize ){
 612       yypParser->yyidx++;
 613       yymsp -= yysize-1;
 614       yymsp->stateno = (YYACTIONTYPE)yyact;
 615       yymsp->major = (YYCODETYPE)yygoto;
 616       yymsp->minor = yygotominor;
 617     }else
 618 #endif
 619     {
 620       yy_shift(yypParser,yyact,yygoto,&yygotominor);
 621     }
 622   }else{
 623     assert( yyact == YYNSTATE + YYNRULE + 1 );
 624     yy_accept(yypParser);
 625   }
 626 }
 627
 628 /*
 629 ** The following code executes when the parse fails
 630 */
 631 #ifndef YYNOERRORRECOVERY
 632 static void yy_parse_failed(
 633   yyParser *yypParser           /* The parser */
 634 ){
 635   ParseARG_FETCH;
 636 #ifndef NDEBUG
 637   if( yyTraceFILE ){
 638     fprintf(yyTraceFILE,"%sFail!\n",yyTracePrompt);
 639   }
 640 #endif
 641   while( yypParser->yyidx>=0 ) yy_pop_parser_stack(yypParser);
 642   /* Here code is inserted which will be executed whenever the
 643   ** parser fails */
 644 %%
 645   ParseARG_STORE; /* Suppress warning about unused %extra_argument variable */
 646 }
 647 #endif /* YYNOERRORRECOVERY */
 648
 649 /*
 650 ** The following code executes when a syntax error first occurs.
 651 */
 652 static void yy_syntax_error(
 653   yyParser *yypParser,           /* The parser */
 654   int yymajor,                   /* The major type of the error token */
 655   YYMINORTYPE yyminor            /* The minor type of the error token */
 656 ){
 657   ParseARG_FETCH;
 658 #define TOKEN (yyminor.yy0)
 659 %%
 660   ParseARG_STORE; /* Suppress warning about unused %extra_argument variable */
 661 }
 662
 663 /*
 664 ** The following is executed when the parser accepts
 665 */
 666 static void yy_accept(
 667   yyParser *yypParser           /* The parser */
 668 ){
 669   ParseARG_FETCH;
 670 #ifndef NDEBUG
 671   if( yyTraceFILE ){
 672     fprintf(yyTraceFILE,"%sAccept!\n",yyTracePrompt);
 673   }
 674 #endif
 675   while( yypParser->yyidx>=0 ) yy_pop_parser_stack(yypParser);
 676   /* Here code is inserted which will be executed whenever the
 677   ** parser accepts */
 678 %%
 679   ParseARG_STORE; /* Suppress warning about unused %extra_argument variable */
 680 }
 681
 682 /* The main parser program.
 683 ** The first argument is a pointer to a structure obtained from
 684 ** "ParseAlloc" which describes the current state of the parser.
 685 ** The second argument is the major token number.  The third is
 686 ** the minor token.  The fourth optional argument is whatever the
 687 ** user wants (and specified in the grammar) and is available for
 688 ** use by the action routines.
 689 **
 690 ** Inputs:
 691 ** <ul>
 692 ** <li> A pointer to the parser (an opaque structure.)
 693 ** <li> The major token number.
 694 ** <li> The minor token number.
 695 ** <li> An option argument of a grammar-specified type.
 696 ** </ul>
 697 **
 698 ** Outputs:
 699 ** None.
 700 */
 701 void Parse(
 702   void *yyp,                   /* The parser */
 703   int yymajor,                 /* The major token code number */
 704   ParseTOKENTYPE yyminor       /* The value for the token */
 705   ParseARG_PDECL               /* Optional %extra_argument parameter */
 706 ){
 707   YYMINORTYPE yyminorunion;
 708   int yyact;            /* The parser action. */
 709   int yyendofinput;     /* True if we are at the end of input */
 710 #ifdef YYERRORSYMBOL
 711   int yyerrorhit = 0;   /* True if yymajor has invoked an error */
 712 #endif
 713   yyParser *yypParser;  /* The parser */
 714
 715   /* (re)initialize the parser, if necessary */
 716   yypParser = (yyParser*)yyp;
 717   if( yypParser->yyidx<0 ){
 718 #if YYSTACKDEPTH<=0
 719     if( yypParser->yystksz <=0 ){
 720       /*memset(&yyminorunion, 0, sizeof(yyminorunion));*/
 721       yyminorunion = yyzerominor;
 722       yyStackOverflow(yypParser, &yyminorunion);
 723       return;
 724     }
 725 #endif
 726     yypParser->yyidx = 0;
 727     yypParser->yyerrcnt = -1;
 728     yypParser->yystack[0].stateno = 0;
 729     yypParser->yystack[0].major = 0;
 730   }
 731   yyminorunion.yy0 = yyminor;
 732   yyendofinput = (yymajor==0);
 733   ParseARG_STORE;
 734
 735 #ifndef NDEBUG
 736   if( yyTraceFILE ){
 737     fprintf(yyTraceFILE,"%sInput %s\n",yyTracePrompt,yyTokenName[yymajor]);
 738   }
 739 #endif
 740
 741   do{
 742     yyact = yy_find_shift_action(yypParser,(YYCODETYPE)yymajor);
 743     if( yyact<YYNSTATE ){
 744       assert( !yyendofinput );  /* Impossible to shift the $ token */
 745       yy_shift(yypParser,yyact,yymajor,&yyminorunion);
 746       yypParser->yyerrcnt--;
 747       yymajor = YYNOCODE;
 748     }else if( yyact < YYNSTATE + YYNRULE ){
 749       yy_reduce(yypParser,yyact-YYNSTATE);
 750     }else{
 751       assert( yyact == YY_ERROR_ACTION );
 752 #ifdef YYERRORSYMBOL
 753       int yymx;
 754 #endif
 755 #ifndef NDEBUG
 756       if( yyTraceFILE ){
 757         fprintf(yyTraceFILE,"%sSyntax Error!\n",yyTracePrompt);
 758       }
 759 #endif
 760 #ifdef YYERRORSYMBOL
 761       /* A syntax error has occurred.
 762       ** The response to an error depends upon whether or not the
 763       ** grammar defines an error token "ERROR".
 764       **
 765       ** This is what we do if the grammar does define ERROR:
 766       **
 767       **  * Call the %syntax_error function.
 768       **
 769       **  * Begin popping the stack until we enter a state where
 770       **    it is legal to shift the error symbol, then shift
 771       **    the error symbol.
 772       **
 773       **  * Set the error count to three.
 774       **
 775       **  * Begin accepting and shifting new tokens.  No new error
 776       **    processing will occur until three tokens have been
 777       **    shifted successfully.
 778       **
 779       */
 780       if( yypParser->yyerrcnt<0 ){
 781         yy_syntax_error(yypParser,yymajor,yyminorunion);
 782       }
 783       yymx = yypParser->yystack[yypParser->yyidx].major;
 784       if( yymx==YYERRORSYMBOL || yyerrorhit ){
 785 #ifndef NDEBUG
 786         if( yyTraceFILE ){
 787           fprintf(yyTraceFILE,"%sDiscard input token %s\n",
 788              yyTracePrompt,yyTokenName[yymajor]);
 789         }
 790 #endif
 791         yy_destructor(yypParser, (YYCODETYPE)yymajor,&yyminorunion);
 792         yymajor = YYNOCODE;
 793       }else{
 794          while(
 795           yypParser->yyidx >= 0 &&
 796           yymx != YYERRORSYMBOL &&
 797           (yyact = yy_find_reduce_action(
 798                         yypParser->yystack[yypParser->yyidx].stateno,
 799                         YYERRORSYMBOL)) >= YYNSTATE
 800         ){
 801           yy_pop_parser_stack(yypParser);
 802         }
 803         if( yypParser->yyidx < 0 || yymajor==0 ){
 804           yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
 805           yy_parse_failed(yypParser);
 806           yymajor = YYNOCODE;
 807         }else if( yymx!=YYERRORSYMBOL ){
 808           YYMINORTYPE u2;
 809           u2.YYERRSYMDT = 0;
 810           yy_shift(yypParser,yyact,YYERRORSYMBOL,&u2);
 811         }
 812       }
 813       yypParser->yyerrcnt = 3;
 814       yyerrorhit = 1;
 815 #elif defined(YYNOERRORRECOVERY)
 816       /* If the YYNOERRORRECOVERY macro is defined, then do not attempt to
 817       ** do any kind of error recovery.  Instead, simply invoke the syntax
 818       ** error routine and continue going as if nothing had happened.
 819       **
 820       ** Applications can set this macro (for example inside %include) if
 821       ** they intend to abandon the parse upon the first syntax error seen.
 822       */
 823       yy_syntax_error(yypParser,yymajor,yyminorunion);
 824       yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
 825       yymajor = YYNOCODE;
 826
 827 #else  /* YYERRORSYMBOL is not defined */
 828       /* This is what we do if the grammar does not define ERROR:
 829       **
 830       **  * Report an error message, and throw away the input token.
 831       **
 832       **  * If the input token is $, then fail the parse.
 833       **
 834       ** As before, subsequent error messages are suppressed until
 835       ** three input tokens have been successfully shifted.
 836       */
 837       if( yypParser->yyerrcnt<=0 ){
 838         yy_syntax_error(yypParser,yymajor,yyminorunion);
 839       }
 840       yypParser->yyerrcnt = 3;
 841       yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
 842       if( yyendofinput ){
 843         yy_parse_failed(yypParser);
 844       }
 845       yymajor = YYNOCODE;
 846 #endif
 847     }
 848   }while( yymajor!=YYNOCODE && yypParser->yyidx>=0 );
 849   return;
 850 }