/tools/m2sh/src/parser.c
C | 1142 lines | 761 code | 45 blank | 336 comment | 63 complexity | ae82cdc66b023ab0412f7edcda1fc1cd MD5 | raw file
Possible License(s): BSD-3-Clause, GPL-2.0, Unlicense
- /* Driver template for the LEMON parser generator.
- ** The author disclaims copyright to this source code.
- */
- /* First off, code is included that follows the "include" declaration
- ** in the input grammar file. */
- #include <stdio.h>
- #line 1 "src/parser.y"
- #include <stdlib.h>
- #include <stdio.h>
- #include <dbg.h>
- #include "ast.h"
- #include <task/task.h>
- #line 18 "src/parser.c"
- /* Next is all token values, in a form suitable for use by makeheaders.
- ** This section will be null unless lemon is run with the -m switch.
- */
- /*
- ** These constants (all generated automatically by the parser generator)
- ** specify the various kinds of tokens (terminals) that the parser
- ** understands.
- **
- ** Each symbol here is a terminal symbol in the grammar.
- */
- /* Make sure the INTERFACE macro is defined.
- */
- #ifndef INTERFACE
- # define INTERFACE 1
- #endif
- /* The next thing included is series of defines which control
- ** various aspects of the generated parser.
- ** YYCODETYPE is the data type used for storing terminal
- ** and nonterminal numbers. "unsigned char" is
- ** used if there are fewer than 250 terminals
- ** and nonterminals. "int" is used otherwise.
- ** YYNOCODE is a number of type YYCODETYPE which corresponds
- ** to no legal terminal or nonterminal number. This
- ** number is used to fill in empty slots of the hash
- ** table.
- ** YYFALLBACK If defined, this indicates that one or more tokens
- ** have fall-back values which should be used if the
- ** original value of the token will not parse.
- ** YYACTIONTYPE is the data type used for storing terminal
- ** and nonterminal numbers. "unsigned char" is
- ** used if there are fewer than 250 rules and
- ** states combined. "int" is used otherwise.
- ** ParseTOKENTYPE is the data type used for minor tokens given
- ** directly to the parser from the tokenizer.
- ** YYMINORTYPE is the data type used for all minor tokens.
- ** This is typically a union of many types, one of
- ** which is ParseTOKENTYPE. The entry in the union
- ** for base tokens is called "yy0".
- ** YYSTACKDEPTH is the maximum depth of the parser's stack. If
- ** zero the stack is dynamically sized using realloc()
- ** ParseARG_SDECL A static variable declaration for the %extra_argument
- ** ParseARG_PDECL A parameter declaration for the %extra_argument
- ** ParseARG_STORE Code to store %extra_argument into yypParser
- ** ParseARG_FETCH Code to extract %extra_argument from yypParser
- ** YYNSTATE the combined number of states.
- ** YYNRULE the number of rules in the grammar
- ** YYERRORSYMBOL is the code number of the error symbol. If not
- ** defined, then do no error processing.
- */
- #define YYCODETYPE unsigned char
- #define YYNOCODE 28
- #define YYACTIONTYPE unsigned char
- #define ParseTOKENTYPE Token*
- typedef union {
- int yyinit;
- ParseTOKENTYPE yy0;
- Pair * yy7;
- Value * yy8;
- Class * yy11;
- tst_t * yy13;
- Pair* yy17;
- list_t * yy46;
- } YYMINORTYPE;
- #ifndef YYSTACKDEPTH
- #define YYSTACKDEPTH 100
- #endif
- #define ParseARG_SDECL ParserState *state;
- #define ParseARG_PDECL ,ParserState *state
- #define ParseARG_FETCH ParserState *state = yypParser->state
- #define ParseARG_STORE yypParser->state = state
- #define YYNSTATE 36
- #define YYNRULE 24
- #define YY_NO_ACTION (YYNSTATE+YYNRULE+2)
- #define YY_ACCEPT_ACTION (YYNSTATE+YYNRULE+1)
- #define YY_ERROR_ACTION (YYNSTATE+YYNRULE)
- /* The yyzerominor constant is used to initialize instances of
- ** YYMINORTYPE objects to zero. */
- static const YYMINORTYPE yyzerominor = { 0 };
- /* Define the yytestcase() macro to be a no-op if is not already defined
- ** otherwise.
- **
- ** Applications can choose to define yytestcase() in the %include section
- ** to a macro that can assist in verifying code coverage. For production
- ** code the yytestcase() macro should be turned off. But it is useful
- ** for testing.
- */
- #ifndef yytestcase
- # define yytestcase(X)
- #endif
- /* Next are the tables used to determine what action to take based on the
- ** current state and lookahead token. These tables are used to implement
- ** functions that take a state number and lookahead value and return an
- ** action integer.
- **
- ** Suppose the action integer is N. Then the action is determined as
- ** follows
- **
- ** 0 <= N < YYNSTATE Shift N. That is, push the lookahead
- ** token onto the stack and goto state N.
- **
- ** YYNSTATE <= N < YYNSTATE+YYNRULE Reduce by rule N-YYNSTATE.
- **
- ** N == YYNSTATE+YYNRULE A syntax error has occurred.
- **
- ** N == YYNSTATE+YYNRULE+1 The parser accepts its input.
- **
- ** N == YYNSTATE+YYNRULE+2 No such action. Denotes unused
- ** slots in the yy_action[] table.
- **
- ** The action table is constructed as a single large table named yy_action[].
- ** Given state S and lookahead X, the action is computed as
- **
- ** yy_action[ yy_shift_ofst[S] + X ]
- **
- ** If the index value yy_shift_ofst[S]+X is out of range or if the value
- ** yy_lookahead[yy_shift_ofst[S]+X] is not equal to X or if yy_shift_ofst[S]
- ** is equal to YY_SHIFT_USE_DFLT, it means that the action is not in the table
- ** and that yy_default[S] should be used instead.
- **
- ** The formula above is for computing the action when the lookahead is
- ** a terminal symbol. If the lookahead is a non-terminal (as occurs after
- ** a reduce action) then the yy_reduce_ofst[] array is used in place of
- ** the yy_shift_ofst[] array and YY_REDUCE_USE_DFLT is used in place of
- ** YY_SHIFT_USE_DFLT.
- **
- ** The following are the tables generated in this section:
- **
- ** yy_action[] A single table containing all actions.
- ** yy_lookahead[] A table containing the lookahead for each entry in
- ** yy_action. Used to detect hash collisions.
- ** yy_shift_ofst[] For each state, the offset into yy_action for
- ** shifting terminals.
- ** yy_reduce_ofst[] For each state, the offset into yy_action for
- ** shifting non-terminals after a reduce.
- ** yy_default[] Default action for each state.
- */
- static const YYACTIONTYPE yy_action[] = {
- /* 0 */ 18, 19, 23, 13, 14, 16, 27, 3, 11, 28,
- /* 10 */ 12, 18, 19, 23, 26, 14, 61, 5, 35, 11,
- /* 20 */ 33, 12, 34, 20, 21, 22, 15, 24, 20, 21,
- /* 30 */ 22, 29, 20, 21, 22, 32, 20, 21, 22, 36,
- /* 40 */ 17, 13, 15, 13, 31, 25, 8, 1, 6, 9,
- /* 50 */ 2, 7, 4, 30, 10,
- };
- static const YYCODETYPE yy_lookahead[] = {
- /* 0 */ 2, 3, 4, 4, 6, 18, 18, 9, 10, 11,
- /* 10 */ 12, 2, 3, 4, 18, 6, 16, 17, 18, 10,
- /* 20 */ 26, 12, 19, 20, 21, 22, 2, 19, 20, 21,
- /* 30 */ 22, 19, 20, 21, 22, 19, 20, 21, 22, 0,
- /* 40 */ 1, 4, 2, 4, 26, 8, 9, 24, 23, 9,
- /* 50 */ 5, 25, 14, 13, 7,
- };
- #define YY_SHIFT_USE_DFLT (-3)
- #define YY_SHIFT_MAX 15
- static const signed char yy_shift_ofst[] = {
- /* 0 */ -1, -2, 9, 9, 9, 39, 37, 40, -1, 24,
- /* 10 */ -3, -3, -3, 45, 47, 38,
- };
- #define YY_REDUCE_USE_DFLT (-14)
- #define YY_REDUCE_MAX 12
- static const signed char yy_reduce_ofst[] = {
- /* 0 */ 0, 3, 8, 12, 16, -13, -12, -6, -4, 18,
- /* 10 */ 25, 23, 26,
- };
- static const YYACTIONTYPE yy_default[] = {
- /* 0 */ 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
- /* 10 */ 50, 54, 58, 60, 60, 60, 37, 39, 40, 41,
- /* 20 */ 42, 43, 44, 45, 46, 47, 48, 49, 51, 52,
- /* 30 */ 55, 56, 59, 57, 53, 38,
- };
- #define YY_SZ_ACTTAB (int)(sizeof(yy_action)/sizeof(yy_action[0]))
- /* The next table maps tokens into fallback tokens. If a construct
- ** like the following:
- **
- ** %fallback ID X Y Z.
- **
- ** appears in the grammar, then ID becomes a fallback token for X, Y,
- ** and Z. Whenever one of the tokens X, Y, or Z is input to the parser
- ** but it does not parse, the type of the token is changed to ID and
- ** the parse is retried before an error is thrown.
- */
- #ifdef YYFALLBACK
- static const YYCODETYPE yyFallback[] = {
- };
- #endif /* YYFALLBACK */
- /* The following structure represents a single element of the
- ** parser's stack. Information stored includes:
- **
- ** + The state number for the parser at this level of the stack.
- **
- ** + The value of the token stored at this level of the stack.
- ** (In other words, the "major" token.)
- **
- ** + The semantic value stored at this level of the stack. This is
- ** the information used by the action routines in the grammar.
- ** It is sometimes called the "minor" token.
- */
- struct yyStackEntry {
- YYACTIONTYPE stateno; /* The state-number */
- YYCODETYPE major; /* The major token value. This is the code
- ** number for the token at this stack level */
- YYMINORTYPE minor; /* The user-supplied minor token value. This
- ** is the value of the token */
- };
- typedef struct yyStackEntry yyStackEntry;
- /* The state of the parser is completely contained in an instance of
- ** the following structure */
- struct yyParser {
- int yyidx; /* Index of top element in stack */
- #ifdef YYTRACKMAXSTACKDEPTH
- int yyidxMax; /* Maximum value of yyidx */
- #endif
- int yyerrcnt; /* Shifts left before out of the error */
- ParseARG_SDECL /* A place to hold %extra_argument */
- #if YYSTACKDEPTH<=0
- int yystksz; /* Current side of the stack */
- yyStackEntry *yystack; /* The parser's stack */
- #else
- yyStackEntry yystack[YYSTACKDEPTH]; /* The parser's stack */
- #endif
- };
- typedef struct yyParser yyParser;
- #ifndef NDEBUG
- #include <stdio.h>
- static FILE *yyTraceFILE = 0;
- static char *yyTracePrompt = 0;
- #endif /* NDEBUG */
- #ifndef NDEBUG
- /*
- ** Turn parser tracing on by giving a stream to which to write the trace
- ** and a prompt to preface each trace message. Tracing is turned off
- ** by making either argument NULL
- **
- ** Inputs:
- ** <ul>
- ** <li> A FILE* to which trace output should be written.
- ** If NULL, then tracing is turned off.
- ** <li> A prefix string written at the beginning of every
- ** line of trace output. If NULL, then tracing is
- ** turned off.
- ** </ul>
- **
- ** Outputs:
- ** None.
- */
- void ParseTrace(FILE *TraceFILE, char *zTracePrompt){
- yyTraceFILE = TraceFILE;
- yyTracePrompt = zTracePrompt;
- if( yyTraceFILE==0 ) yyTracePrompt = 0;
- else if( yyTracePrompt==0 ) yyTraceFILE = 0;
- }
- #endif /* NDEBUG */
- #ifndef NDEBUG
- /* For tracing shifts, the names of all terminals and nonterminals
- ** are required. The following table supplies these names */
- static const char *const yyTokenName[] = {
- "$", "EOF", "QSTRING", "NUMBER",
- "IDENT", "EQ", "CLASS", "LPAREN",
- "RPAREN", "COMMA", "LBRACE", "RBRACE",
- "LBRACKET", "RBRACKET", "COLON", "error",
- "config", "vars", "assignment", "expr",
- "class", "list", "hash", "parameters",
- "list_elements", "hash_elements", "hash_pair",
- };
- #endif /* NDEBUG */
- #ifndef NDEBUG
- /* For tracing reduce actions, the names of all rules are required.
- */
- static const char *const yyRuleName[] = {
- /* 0 */ "config ::= vars",
- /* 1 */ "vars ::= vars assignment",
- /* 2 */ "vars ::= assignment",
- /* 3 */ "vars ::= vars EOF",
- /* 4 */ "expr ::= QSTRING",
- /* 5 */ "expr ::= NUMBER",
- /* 6 */ "expr ::= class",
- /* 7 */ "expr ::= list",
- /* 8 */ "expr ::= hash",
- /* 9 */ "expr ::= IDENT",
- /* 10 */ "assignment ::= IDENT EQ expr",
- /* 11 */ "class ::= CLASS LPAREN parameters RPAREN",
- /* 12 */ "parameters ::= parameters COMMA assignment",
- /* 13 */ "parameters ::= parameters assignment",
- /* 14 */ "parameters ::=",
- /* 15 */ "list ::= LBRACE list_elements RBRACE",
- /* 16 */ "list_elements ::= list_elements COMMA expr",
- /* 17 */ "list_elements ::= list_elements expr",
- /* 18 */ "list_elements ::=",
- /* 19 */ "hash ::= LBRACKET hash_elements RBRACKET",
- /* 20 */ "hash_elements ::= hash_elements COMMA hash_pair",
- /* 21 */ "hash_elements ::= hash_elements hash_pair",
- /* 22 */ "hash_elements ::=",
- /* 23 */ "hash_pair ::= QSTRING COLON expr",
- };
- #endif /* NDEBUG */
- #if YYSTACKDEPTH<=0
- /*
- ** Try to increase the size of the parser stack.
- */
- static void yyGrowStack(yyParser *p){
- int newSize;
- yyStackEntry *pNew;
- newSize = p->yystksz*2 + 100;
- pNew = realloc(p->yystack, newSize*sizeof(pNew[0]));
- if( pNew ){
- p->yystack = pNew;
- p->yystksz = newSize;
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sStack grows to %d entries!\n",
- yyTracePrompt, p->yystksz);
- }
- #endif
- }
- }
- #endif
- /*
- ** This function allocates a new parser.
- ** The only argument is a pointer to a function which works like
- ** malloc.
- **
- ** Inputs:
- ** A pointer to the function used to allocate memory.
- **
- ** Outputs:
- ** A pointer to a parser. This pointer is used in subsequent calls
- ** to Parse and ParseFree.
- */
- void *ParseAlloc(void *(*mallocProc)(size_t)){
- yyParser *pParser;
- pParser = (yyParser*)(*mallocProc)( (size_t)sizeof(yyParser) );
- if( pParser ){
- pParser->yyidx = -1;
- #ifdef YYTRACKMAXSTACKDEPTH
- pParser->yyidxMax = 0;
- #endif
- #if YYSTACKDEPTH<=0
- pParser->yystack = NULL;
- pParser->yystksz = 0;
- yyGrowStack(pParser);
- #endif
- }
- return pParser;
- }
- /* The following function deletes the value associated with a
- ** symbol. The symbol can be either a terminal or nonterminal.
- ** "yymajor" is the symbol code, and "yypminor" is a pointer to
- ** the value.
- */
- static void yy_destructor(
- yyParser *yypParser, /* The parser */
- YYCODETYPE yymajor, /* Type code for object to destroy */
- YYMINORTYPE *yypminor /* The object to be destroyed */
- ){
- ParseARG_FETCH;
- switch( yymajor ){
- /* Here is inserted the actions which take place when a
- ** terminal or non-terminal is destroyed. This can happen
- ** when the symbol is popped from the stack during a
- ** reduce or during error processing or when a parser is
- ** being destroyed before it is finished parsing.
- **
- ** Note: during a reduce, the only symbols destroyed are those
- ** which appear on the RHS of the rule, but which are not used
- ** inside the C code.
- */
- /* TERMINAL Destructor */
- case 1: /* EOF */
- case 2: /* QSTRING */
- case 3: /* NUMBER */
- case 4: /* IDENT */
- case 5: /* EQ */
- case 6: /* CLASS */
- case 7: /* LPAREN */
- case 8: /* RPAREN */
- case 9: /* COMMA */
- case 10: /* LBRACE */
- case 11: /* RBRACE */
- case 12: /* LBRACKET */
- case 13: /* RBRACKET */
- case 14: /* COLON */
- {
- #line 28 "src/parser.y"
- Token_destroy((yypminor->yy0));
- #line 419 "src/parser.c"
- }
- break;
- case 18: /* assignment */
- {
- #line 56 "src/parser.y"
- free((yypminor->yy7));
- #line 426 "src/parser.c"
- }
- break;
- case 23: /* parameters */
- {
- #line 67 "src/parser.y"
- AST_destroy((yypminor->yy13));
- #line 433 "src/parser.c"
- }
- break;
- case 26: /* hash_pair */
- {
- #line 107 "src/parser.y"
- free((yypminor->yy17));
- #line 440 "src/parser.c"
- }
- break;
- default: break; /* If no destructor action specified: do nothing */
- }
- }
- /*
- ** Pop the parser's stack once.
- **
- ** If there is a destructor routine associated with the token which
- ** is popped from the stack, then call it.
- **
- ** Return the major token number for the symbol popped.
- */
- static int yy_pop_parser_stack(yyParser *pParser){
- YYCODETYPE yymajor;
- yyStackEntry *yytos = &pParser->yystack[pParser->yyidx];
- if( pParser->yyidx<0 ) return 0;
- #ifndef NDEBUG
- if( yyTraceFILE && pParser->yyidx>=0 ){
- fprintf(yyTraceFILE,"%sPopping %s\n",
- yyTracePrompt,
- yyTokenName[yytos->major]);
- }
- #endif
- yymajor = yytos->major;
- yy_destructor(pParser, yymajor, &yytos->minor);
- pParser->yyidx--;
- return yymajor;
- }
- /*
- ** Deallocate and destroy a parser. Destructors are all called for
- ** all stack elements before shutting the parser down.
- **
- ** Inputs:
- ** <ul>
- ** <li> A pointer to the parser. This should be a pointer
- ** obtained from ParseAlloc.
- ** <li> A pointer to a function used to reclaim memory obtained
- ** from malloc.
- ** </ul>
- */
- void ParseFree(
- void *p, /* The parser to be deleted */
- void (*freeProc)(void*) /* Function used to reclaim memory */
- ){
- yyParser *pParser = (yyParser*)p;
- if( pParser==0 ) return;
- while( pParser->yyidx>=0 ) yy_pop_parser_stack(pParser);
- #if YYSTACKDEPTH<=0
- free(pParser->yystack);
- #endif
- (*freeProc)((void*)pParser);
- }
- /*
- ** Return the peak depth of the stack for a parser.
- */
- #ifdef YYTRACKMAXSTACKDEPTH
- int ParseStackPeak(void *p){
- yyParser *pParser = (yyParser*)p;
- return pParser->yyidxMax;
- }
- #endif
- /*
- ** Find the appropriate action for a parser given the terminal
- ** look-ahead token iLookAhead.
- **
- ** If the look-ahead token is YYNOCODE, then check to see if the action is
- ** independent of the look-ahead. If it is, return the action, otherwise
- ** return YY_NO_ACTION.
- */
- static int yy_find_shift_action(
- yyParser *pParser, /* The parser */
- YYCODETYPE iLookAhead /* The look-ahead token */
- ){
- int i;
- int stateno = pParser->yystack[pParser->yyidx].stateno;
-
- if( stateno>YY_SHIFT_MAX || (i = yy_shift_ofst[stateno])==YY_SHIFT_USE_DFLT ){
- return yy_default[stateno];
- }
- assert( iLookAhead!=YYNOCODE );
- i += iLookAhead;
- if( i<0 || i>=YY_SZ_ACTTAB || yy_lookahead[i]!=iLookAhead ){
- if( iLookAhead>0 ){
- #ifdef YYFALLBACK
- YYCODETYPE iFallback; /* Fallback token */
- if( iLookAhead<sizeof(yyFallback)/sizeof(yyFallback[0])
- && (iFallback = yyFallback[iLookAhead])!=0 ){
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE, "%sFALLBACK %s => %s\n",
- yyTracePrompt, yyTokenName[iLookAhead], yyTokenName[iFallback]);
- }
- #endif
- return yy_find_shift_action(pParser, iFallback);
- }
- #endif
- #ifdef YYWILDCARD
- {
- int j = i - iLookAhead + YYWILDCARD;
- if( j>=0 && j<YY_SZ_ACTTAB && yy_lookahead[j]==YYWILDCARD ){
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE, "%sWILDCARD %s => %s\n",
- yyTracePrompt, yyTokenName[iLookAhead], yyTokenName[YYWILDCARD]);
- }
- #endif /* NDEBUG */
- return yy_action[j];
- }
- }
- #endif /* YYWILDCARD */
- }
- return yy_default[stateno];
- }else{
- return yy_action[i];
- }
- }
- /*
- ** Find the appropriate action for a parser given the non-terminal
- ** look-ahead token iLookAhead.
- **
- ** If the look-ahead token is YYNOCODE, then check to see if the action is
- ** independent of the look-ahead. If it is, return the action, otherwise
- ** return YY_NO_ACTION.
- */
- static int yy_find_reduce_action(
- int stateno, /* Current state number */
- YYCODETYPE iLookAhead /* The look-ahead token */
- ){
- int i;
- #ifdef YYERRORSYMBOL
- if( stateno>YY_REDUCE_MAX ){
- return yy_default[stateno];
- }
- #else
- assert( stateno<=YY_REDUCE_MAX );
- #endif
- i = yy_reduce_ofst[stateno];
- assert( i!=YY_REDUCE_USE_DFLT );
- assert( iLookAhead!=YYNOCODE );
- i += iLookAhead;
- #ifdef YYERRORSYMBOL
- if( i<0 || i>=YY_SZ_ACTTAB || yy_lookahead[i]!=iLookAhead ){
- return yy_default[stateno];
- }
- #else
- assert( i>=0 && i<YY_SZ_ACTTAB );
- assert( yy_lookahead[i]==iLookAhead );
- #endif
- return yy_action[i];
- }
- /*
- ** The following routine is called if the stack overflows.
- */
- static void yyStackOverflow(yyParser *yypParser, YYMINORTYPE *yypMinor){
- ParseARG_FETCH;
- yypParser->yyidx--;
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sStack Overflow!\n",yyTracePrompt);
- }
- #endif
- while( yypParser->yyidx>=0 ) yy_pop_parser_stack(yypParser);
- /* Here code is inserted which will execute if the parser
- ** stack every overflows */
- #line 24 "src/parser.y"
- log_err("There was a stack overflow at line: %d", state->line_number);
- #line 616 "src/parser.c"
- ParseARG_STORE; /* Suppress warning about unused %extra_argument var */
- }
- /*
- ** Perform a shift action.
- */
- static void yy_shift(
- yyParser *yypParser, /* The parser to be shifted */
- int yyNewState, /* The new state to shift in */
- int yyMajor, /* The major token to shift in */
- YYMINORTYPE *yypMinor /* Pointer to the minor token to shift in */
- ){
- yyStackEntry *yytos;
- yypParser->yyidx++;
- #ifdef YYTRACKMAXSTACKDEPTH
- if( yypParser->yyidx>yypParser->yyidxMax ){
- yypParser->yyidxMax = yypParser->yyidx;
- }
- #endif
- #if YYSTACKDEPTH>0
- if( yypParser->yyidx>=YYSTACKDEPTH ){
- yyStackOverflow(yypParser, yypMinor);
- return;
- }
- #else
- if( yypParser->yyidx>=yypParser->yystksz ){
- yyGrowStack(yypParser);
- if( yypParser->yyidx>=yypParser->yystksz ){
- yyStackOverflow(yypParser, yypMinor);
- return;
- }
- }
- #endif
- yytos = &yypParser->yystack[yypParser->yyidx];
- yytos->stateno = (YYACTIONTYPE)yyNewState;
- yytos->major = (YYCODETYPE)yyMajor;
- yytos->minor = *yypMinor;
- #ifndef NDEBUG
- if( yyTraceFILE && yypParser->yyidx>0 ){
- int i;
- fprintf(yyTraceFILE,"%sShift %d\n",yyTracePrompt,yyNewState);
- fprintf(yyTraceFILE,"%sStack:",yyTracePrompt);
- for(i=1; i<=yypParser->yyidx; i++)
- fprintf(yyTraceFILE," %s",yyTokenName[yypParser->yystack[i].major]);
- fprintf(yyTraceFILE,"\n");
- }
- #endif
- }
- /* The following table contains information about every rule that
- ** is used during the reduce.
- */
- static const struct {
- YYCODETYPE lhs; /* Symbol on the left-hand side of the rule */
- unsigned char nrhs; /* Number of right-hand side symbols in the rule */
- } yyRuleInfo[] = {
- { 16, 1 },
- { 17, 2 },
- { 17, 1 },
- { 17, 2 },
- { 19, 1 },
- { 19, 1 },
- { 19, 1 },
- { 19, 1 },
- { 19, 1 },
- { 19, 1 },
- { 18, 3 },
- { 20, 4 },
- { 23, 3 },
- { 23, 2 },
- { 23, 0 },
- { 21, 3 },
- { 24, 3 },
- { 24, 2 },
- { 24, 0 },
- { 22, 3 },
- { 25, 3 },
- { 25, 2 },
- { 25, 0 },
- { 26, 3 },
- };
- static void yy_accept(yyParser*); /* Forward Declaration */
- /*
- ** Perform a reduce action and the shift that must immediately
- ** follow the reduce.
- */
- static void yy_reduce(
- yyParser *yypParser, /* The parser */
- int yyruleno /* Number of the rule by which to reduce */
- ){
- int yygoto; /* The next state */
- int yyact; /* The next action */
- YYMINORTYPE yygotominor; /* The LHS of the rule reduced */
- yyStackEntry *yymsp; /* The top of the parser's stack */
- int yysize; /* Amount to pop the stack */
- ParseARG_FETCH;
- yymsp = &yypParser->yystack[yypParser->yyidx];
- #ifndef NDEBUG
- if( yyTraceFILE && yyruleno>=0
- && yyruleno<(int)(sizeof(yyRuleName)/sizeof(yyRuleName[0])) ){
- fprintf(yyTraceFILE, "%sReduce [%s].\n", yyTracePrompt,
- yyRuleName[yyruleno]);
- }
- #endif /* NDEBUG */
- /* Silence complaints from purify about yygotominor being uninitialized
- ** in some cases when it is copied into the stack after the following
- ** switch. yygotominor is uninitialized when a rule reduces that does
- ** not set the value of its left-hand side nonterminal. Leaving the
- ** value of the nonterminal uninitialized is utterly harmless as long
- ** as the value is never used. So really the only thing this code
- ** accomplishes is to quieten purify.
- **
- ** 2007-01-16: The wireshark project (www.wireshark.org) reports that
- ** without this code, their parser segfaults. I'm not sure what there
- ** parser is doing to make this happen. This is the second bug report
- ** from wireshark this week. Clearly they are stressing Lemon in ways
- ** that it has not been previously stressed... (SQLite ticket #2172)
- */
- /*memset(&yygotominor, 0, sizeof(yygotominor));*/
- yygotominor = yyzerominor;
- switch( yyruleno ){
- /* Beginning here are the reduction cases. A typical example
- ** follows:
- ** case 0:
- ** #line <lineno> <grammarfile>
- ** { ... } // User supplied code
- ** #line <lineno> <thisfile>
- ** break;
- */
- case 0: /* config ::= vars */
- #line 30 "src/parser.y"
- { state->settings = yymsp[0].minor.yy13; }
- #line 754 "src/parser.c"
- break;
- case 1: /* vars ::= vars assignment */
- #line 34 "src/parser.y"
- {
- yygotominor.yy13 = tst_insert(yymsp[-1].minor.yy13, bdata(yymsp[0].minor.yy7->key->data), blength(yymsp[0].minor.yy7->key->data), yymsp[0].minor.yy7);
- }
- #line 761 "src/parser.c"
- break;
- case 2: /* vars ::= assignment */
- #line 39 "src/parser.y"
- {
- yygotominor.yy13 = tst_insert(yygotominor.yy13, bdata(yymsp[0].minor.yy7->key->data), blength(yymsp[0].minor.yy7->key->data), yymsp[0].minor.yy7);
- }
- #line 768 "src/parser.c"
- break;
- case 3: /* vars ::= vars EOF */
- #line 43 "src/parser.y"
- { yygotominor.yy13 = yymsp[-1].minor.yy13; yy_destructor(yypParser,1,&yymsp[0].minor);
- }
- #line 774 "src/parser.c"
- break;
- case 4: /* expr ::= QSTRING */
- #line 47 "src/parser.y"
- { yygotominor.yy8 = Value_create(VAL_QSTRING, yymsp[0].minor.yy0); }
- #line 779 "src/parser.c"
- break;
- case 5: /* expr ::= NUMBER */
- #line 48 "src/parser.y"
- { yygotominor.yy8 = Value_create(VAL_NUMBER, yymsp[0].minor.yy0); }
- #line 784 "src/parser.c"
- break;
- case 6: /* expr ::= class */
- #line 49 "src/parser.y"
- { yygotominor.yy8 = Value_create(VAL_CLASS, yymsp[0].minor.yy11); }
- #line 789 "src/parser.c"
- break;
- case 7: /* expr ::= list */
- #line 50 "src/parser.y"
- { yygotominor.yy8 = Value_create(VAL_LIST, yymsp[0].minor.yy46); }
- #line 794 "src/parser.c"
- break;
- case 8: /* expr ::= hash */
- #line 51 "src/parser.y"
- { yygotominor.yy8 = Value_create(VAL_HASH, yymsp[0].minor.yy13); }
- #line 799 "src/parser.c"
- break;
- case 9: /* expr ::= IDENT */
- #line 52 "src/parser.y"
- { yygotominor.yy8 = Value_create(VAL_REF, yymsp[0].minor.yy0); }
- #line 804 "src/parser.c"
- break;
- case 10: /* assignment ::= IDENT EQ expr */
- #line 57 "src/parser.y"
- {
- yygotominor.yy7 = malloc(sizeof(Pair)); yygotominor.yy7->key = yymsp[-2].minor.yy0; yygotominor.yy7->value = yymsp[0].minor.yy8;
- yy_destructor(yypParser,5,&yymsp[-1].minor);
- }
- #line 812 "src/parser.c"
- break;
- case 11: /* class ::= CLASS LPAREN parameters RPAREN */
- #line 64 "src/parser.y"
- { yygotominor.yy11 = calloc(sizeof(Class), 1); yygotominor.yy11->id = -1; yygotominor.yy11->ident = yymsp[-3].minor.yy0; yygotominor.yy11->params = yymsp[-1].minor.yy13; yy_destructor(yypParser,7,&yymsp[-2].minor);
- yy_destructor(yypParser,8,&yymsp[0].minor);
- }
- #line 819 "src/parser.c"
- break;
- case 12: /* parameters ::= parameters COMMA assignment */
- #line 69 "src/parser.y"
- { yygotominor.yy13 = tst_insert(yymsp[-2].minor.yy13, bdata(yymsp[0].minor.yy7->key->data), blength(yymsp[0].minor.yy7->key->data), yymsp[0].minor.yy7); yy_destructor(yypParser,9,&yymsp[-1].minor);
- }
- #line 825 "src/parser.c"
- break;
- case 13: /* parameters ::= parameters assignment */
- #line 72 "src/parser.y"
- { yygotominor.yy13 = tst_insert(yymsp[-1].minor.yy13, bdata(yymsp[0].minor.yy7->key->data), blength(yymsp[0].minor.yy7->key->data), yymsp[0].minor.yy7); }
- #line 830 "src/parser.c"
- break;
- case 14: /* parameters ::= */
- case 22: /* hash_elements ::= */ yytestcase(yyruleno==22);
- #line 75 "src/parser.y"
- { yygotominor.yy13 = NULL; }
- #line 836 "src/parser.c"
- break;
- case 15: /* list ::= LBRACE list_elements RBRACE */
- #line 79 "src/parser.y"
- { yygotominor.yy46 = yymsp[-1].minor.yy46; yy_destructor(yypParser,10,&yymsp[-2].minor);
- yy_destructor(yypParser,11,&yymsp[0].minor);
- }
- #line 843 "src/parser.c"
- break;
- case 16: /* list_elements ::= list_elements COMMA expr */
- #line 83 "src/parser.y"
- { yygotominor.yy46 = yymsp[-2].minor.yy46; list_append(yygotominor.yy46, lnode_create(yymsp[0].minor.yy8)); yy_destructor(yypParser,9,&yymsp[-1].minor);
- }
- #line 849 "src/parser.c"
- break;
- case 17: /* list_elements ::= list_elements expr */
- #line 86 "src/parser.y"
- { yygotominor.yy46 = yymsp[-1].minor.yy46; list_append(yygotominor.yy46, lnode_create(yymsp[0].minor.yy8)); }
- #line 854 "src/parser.c"
- break;
- case 18: /* list_elements ::= */
- #line 89 "src/parser.y"
- { yygotominor.yy46 = list_create(LISTCOUNT_T_MAX); }
- #line 859 "src/parser.c"
- break;
- case 19: /* hash ::= LBRACKET hash_elements RBRACKET */
- #line 93 "src/parser.y"
- { yygotominor.yy13 = yymsp[-1].minor.yy13; yy_destructor(yypParser,12,&yymsp[-2].minor);
- yy_destructor(yypParser,13,&yymsp[0].minor);
- }
- #line 866 "src/parser.c"
- break;
- case 20: /* hash_elements ::= hash_elements COMMA hash_pair */
- #line 97 "src/parser.y"
- { yygotominor.yy13 = tst_insert(yymsp[-2].minor.yy13, bdata(yymsp[0].minor.yy17->key->data), blength(yymsp[0].minor.yy17->key->data), yymsp[0].minor.yy17); yy_destructor(yypParser,9,&yymsp[-1].minor);
- }
- #line 872 "src/parser.c"
- break;
- case 21: /* hash_elements ::= hash_elements hash_pair */
- #line 100 "src/parser.y"
- { yygotominor.yy13 = tst_insert(yymsp[-1].minor.yy13, bdata(yymsp[0].minor.yy17->key->data), blength(yymsp[0].minor.yy17->key->data), yymsp[0].minor.yy17); }
- #line 877 "src/parser.c"
- break;
- case 23: /* hash_pair ::= QSTRING COLON expr */
- #line 108 "src/parser.y"
- {
- yygotominor.yy17 = malloc(sizeof(Pair)); yygotominor.yy17->key = yymsp[-2].minor.yy0; yygotominor.yy17->value = yymsp[0].minor.yy8;
- yy_destructor(yypParser,14,&yymsp[-1].minor);
- }
- #line 885 "src/parser.c"
- break;
- default:
- break;
- };
- yygoto = yyRuleInfo[yyruleno].lhs;
- yysize = yyRuleInfo[yyruleno].nrhs;
- yypParser->yyidx -= yysize;
- yyact = yy_find_reduce_action(yymsp[-yysize].stateno,(YYCODETYPE)yygoto);
- if( yyact < YYNSTATE ){
- #ifdef NDEBUG
- /* If we are not debugging and the reduce action popped at least
- ** one element off the stack, then we can push the new element back
- ** onto the stack here, and skip the stack overflow test in yy_shift().
- ** That gives a significant speed improvement. */
- if( yysize ){
- yypParser->yyidx++;
- yymsp -= yysize-1;
- yymsp->stateno = (YYACTIONTYPE)yyact;
- yymsp->major = (YYCODETYPE)yygoto;
- yymsp->minor = yygotominor;
- }else
- #endif
- {
- yy_shift(yypParser,yyact,yygoto,&yygotominor);
- }
- }else{
- assert( yyact == YYNSTATE + YYNRULE + 1 );
- yy_accept(yypParser);
- }
- }
- /*
- ** The following code executes when the parse fails
- */
- #ifndef YYNOERRORRECOVERY
- static void yy_parse_failed(
- yyParser *yypParser /* The parser */
- ){
- ParseARG_FETCH;
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sFail!\n",yyTracePrompt);
- }
- #endif
- while( yypParser->yyidx>=0 ) yy_pop_parser_stack(yypParser);
- /* Here code is inserted which will be executed whenever the
- ** parser fails */
- ParseARG_STORE; /* Suppress warning about unused %extra_argument variable */
- }
- #endif /* YYNOERRORRECOVERY */
- /*
- ** The following code executes when a syntax error first occurs.
- */
- static void yy_syntax_error(
- yyParser *yypParser, /* The parser */
- int yymajor, /* The major type of the error token */
- YYMINORTYPE yyminor /* The minor type of the error token */
- ){
- ParseARG_FETCH;
- #define TOKEN (yyminor.yy0)
- #line 17 "src/parser.y"
- if( !TOKEN ) {
- log_err("Reached the end of file so it seems like you are missing a ')'");
- }
- state->error = 1;
- #line 953 "src/parser.c"
- ParseARG_STORE; /* Suppress warning about unused %extra_argument variable */
- }
- /*
- ** The following is executed when the parser accepts
- */
- static void yy_accept(
- yyParser *yypParser /* The parser */
- ){
- ParseARG_FETCH;
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sAccept!\n",yyTracePrompt);
- }
- #endif
- while( yypParser->yyidx>=0 ) yy_pop_parser_stack(yypParser);
- /* Here code is inserted which will be executed whenever the
- ** parser accepts */
- ParseARG_STORE; /* Suppress warning about unused %extra_argument variable */
- }
- /* The main parser program.
- ** The first argument is a pointer to a structure obtained from
- ** "ParseAlloc" which describes the current state of the parser.
- ** The second argument is the major token number. The third is
- ** the minor token. The fourth optional argument is whatever the
- ** user wants (and specified in the grammar) and is available for
- ** use by the action routines.
- **
- ** Inputs:
- ** <ul>
- ** <li> A pointer to the parser (an opaque structure.)
- ** <li> The major token number.
- ** <li> The minor token number.
- ** <li> An option argument of a grammar-specified type.
- ** </ul>
- **
- ** Outputs:
- ** None.
- */
- void Parse(
- void *yyp, /* The parser */
- int yymajor, /* The major token code number */
- ParseTOKENTYPE yyminor /* The value for the token */
- ParseARG_PDECL /* Optional %extra_argument parameter */
- ){
- YYMINORTYPE yyminorunion;
- int yyact; /* The parser action. */
- int yyendofinput; /* True if we are at the end of input */
- #ifdef YYERRORSYMBOL
- int yyerrorhit = 0; /* True if yymajor has invoked an error */
- #endif
- yyParser *yypParser; /* The parser */
- /* (re)initialize the parser, if necessary */
- yypParser = (yyParser*)yyp;
- if( yypParser->yyidx<0 ){
- #if YYSTACKDEPTH<=0
- if( yypParser->yystksz <=0 ){
- /*memset(&yyminorunion, 0, sizeof(yyminorunion));*/
- yyminorunion = yyzerominor;
- yyStackOverflow(yypParser, &yyminorunion);
- return;
- }
- #endif
- yypParser->yyidx = 0;
- yypParser->yyerrcnt = -1;
- yypParser->yystack[0].stateno = 0;
- yypParser->yystack[0].major = 0;
- }
- yyminorunion.yy0 = yyminor;
- yyendofinput = (yymajor==0);
- ParseARG_STORE;
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sInput %s\n",yyTracePrompt,yyTokenName[yymajor]);
- }
- #endif
- do{
- yyact = yy_find_shift_action(yypParser,(YYCODETYPE)yymajor);
- if( yyact<YYNSTATE ){
- assert( !yyendofinput ); /* Impossible to shift the $ token */
- yy_shift(yypParser,yyact,yymajor,&yyminorunion);
- yypParser->yyerrcnt--;
- yymajor = YYNOCODE;
- }else if( yyact < YYNSTATE + YYNRULE ){
- yy_reduce(yypParser,yyact-YYNSTATE);
- }else{
- assert( yyact == YY_ERROR_ACTION );
- #ifdef YYERRORSYMBOL
- int yymx;
- #endif
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sSyntax Error!\n",yyTracePrompt);
- }
- #endif
- #ifdef YYERRORSYMBOL
- /* A syntax error has occurred.
- ** The response to an error depends upon whether or not the
- ** grammar defines an error token "ERROR".
- **
- ** This is what we do if the grammar does define ERROR:
- **
- ** * Call the %syntax_error function.
- **
- ** * Begin popping the stack until we enter a state where
- ** it is legal to shift the error symbol, then shift
- ** the error symbol.
- **
- ** * Set the error count to three.
- **
- ** * Begin accepting and shifting new tokens. No new error
- ** processing will occur until three tokens have been
- ** shifted successfully.
- **
- */
- if( yypParser->yyerrcnt<0 ){
- yy_syntax_error(yypParser,yymajor,yyminorunion);
- }
- yymx = yypParser->yystack[yypParser->yyidx].major;
- if( yymx==YYERRORSYMBOL || yyerrorhit ){
- #ifndef NDEBUG
- if( yyTraceFILE ){
- fprintf(yyTraceFILE,"%sDiscard input token %s\n",
- yyTracePrompt,yyTokenName[yymajor]);
- }
- #endif
- yy_destructor(yypParser, (YYCODETYPE)yymajor,&yyminorunion);
- yymajor = YYNOCODE;
- }else{
- while(
- yypParser->yyidx >= 0 &&
- yymx != YYERRORSYMBOL &&
- (yyact = yy_find_reduce_action(
- yypParser->yystack[yypParser->yyidx].stateno,
- YYERRORSYMBOL)) >= YYNSTATE
- ){
- yy_pop_parser_stack(yypParser);
- }
- if( yypParser->yyidx < 0 || yymajor==0 ){
- yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
- yy_parse_failed(yypParser);
- yymajor = YYNOCODE;
- }else if( yymx!=YYERRORSYMBOL ){
- YYMINORTYPE u2;
- u2.YYERRSYMDT = 0;
- yy_shift(yypParser,yyact,YYERRORSYMBOL,&u2);
- }
- }
- yypParser->yyerrcnt = 3;
- yyerrorhit = 1;
- #elif defined(YYNOERRORRECOVERY)
- /* If the YYNOERRORRECOVERY macro is defined, then do not attempt to
- ** do any kind of error recovery. Instead, simply invoke the syntax
- ** error routine and continue going as if nothing had happened.
- **
- ** Applications can set this macro (for example inside %include) if
- ** they intend to abandon the parse upon the first syntax error seen.
- */
- yy_syntax_error(yypParser,yymajor,yyminorunion);
- yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
- yymajor = YYNOCODE;
-
- #else /* YYERRORSYMBOL is not defined */
- /* This is what we do if the grammar does not define ERROR:
- **
- ** * Report an error message, and throw away the input token.
- **
- ** * If the input token is $, then fail the parse.
- **
- ** As before, subsequent error messages are suppressed until
- ** three input tokens have been successfully shifted.
- */
- if( yypParser->yyerrcnt<=0 ){
- yy_syntax_error(yypParser,yymajor,yyminorunion);
- }
- yypParser->yyerrcnt = 3;
- yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
- if( yyendofinput ){
- yy_parse_failed(yypParser);
- }
- yymajor = YYNOCODE;
- #endif
- }
- }while( yymajor!=YYNOCODE && yypParser->yyidx>=0 );
- return;
- }