123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334 |
- extern int timeclock;
- int yyerror;
- int yycost;
-
-
-
-
-
-
- short yyss[YYMAXDEPTH];
- YYSTYPE yyvs[YYMAXDEPTH];
- YYLTYPE yyls[YYMAXDEPTH];
- short yyrq[YYMAXRULES];
- int yychar;
- YYSTYPE yylval;
-
- YYSTYPE yytval;
-
- YYSTYPE yyval;
-
-
- YYLTYPE yylloc;
-
- YYLTYPE yytloc;
-
- int yynunlexed;
- short yyunchar[YYMAXBACKUP];
- YYSTYPE yyunval[YYMAXBACKUP];
- YYLTYPE yyunloc[YYMAXBACKUP];
- short *yygssp;
-
-
- YYSTYPE *yygvsp;
-
-
- YYLTYPE *yyglsp;
-
-
- yyget()
- {
- if (yynunlexed > 0)
- {
- yynunlexed--;
- yychar = yyunchar[yynunlexed];
- yylval = yyunval[yynunlexed];
- yylloc = yyunloc[yynunlexed];
- }
- else if (yychar <= 0)
- yychar = 0;
- else
- {
- yychar = yylex();
- if (yychar < 0)
- yychar = 0;
- else yychar = YYTRANSLATE(yychar);
- }
- }
- yyunlex(chr, val, loc)
- int chr;
- YYSTYPE val;
- YYLTYPE loc;
- {
- yyunchar[yynunlexed] = chr;
- yyunval[yynunlexed] = val;
- yyunloc[yynunlexed] = loc;
- yynunlexed++;
- }
- yyrestore(first, last)
- register short *first;
- register short *last;
- {
- register short *ssp;
- register short *rp;
- register int symbol;
- register int state;
- register int tvalsaved;
- ssp = yygssp;
- yyunlex(yychar, yylval, yylloc);
- tvalsaved = 0;
- while (first != last)
- {
- symbol = yystos[*ssp];
- if (symbol < YYNTBASE)
- {
- yyunlex(symbol, yytval, yytloc);
- tvalsaved = 1;
- ssp--;
- }
- ssp--;
- if (first == yyrq)
- first = yyrq + YYMAXRULES;
- first--;
- for (rp = yyrhs + yyprhs[*first]; symbol = *rp; rp++)
- {
- if (symbol < YYNTBASE)
- state = yytable[yypact[*ssp] + symbol];
- else
- {
- state = yypgoto[symbol - YYNTBASE] + *ssp;
- if (state >= 0 && state <= YYLAST && yycheck[state] == *ssp)
- state = yytable[state];
- else
- state = yydefgoto[symbol - YYNTBASE];
- }
- *++ssp = state;
- }
- }
- if ( ! tvalsaved && ssp > yyss)
- {
- yyunlex(yystos[*ssp], yytval, yytloc);
- ssp--;
- }
- yygssp = ssp;
- }
- int
- yyparse()
- {
- register int yystate;
- register int yyn;
- register short *yyssp;
- register short *yyrq0;
- register short *yyptr;
- register YYSTYPE *yyvsp;
- int yylen;
- YYLTYPE *yylsp;
- short *yyrq1;
- short *yyrq2;
- yystate = 0;
- yyssp = yyss - 1;
- yyvsp = yyvs - 1;
- yylsp = yyls - 1;
- yyrq0 = yyrq;
- yyrq1 = yyrq0;
- yyrq2 = yyrq0;
- yychar = yylex();
- if (yychar < 0)
- yychar = 0;
- else yychar = YYTRANSLATE(yychar);
- yynewstate:
- if (yyssp >= yyss + YYMAXDEPTH - 1)
- {
- yyabort("Parser Stack Overflow");
- YYABORT;
- }
- *++yyssp = yystate;
- yyresume:
- yyn = yypact[yystate];
- if (yyn == YYFLAG)
- goto yydefault;
- yyn += yychar;
- if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar)
- goto yydefault;
- yyn = yytable[yyn];
- if (yyn < 0)
- {
- yyn = -yyn;
- goto yyreduce;
- }
- else if (yyn == 0)
- goto yyerrlab;
- yystate = yyn;
- yyptr = yyrq2;
- while (yyptr != yyrq1)
- {
- yyn = *yyptr++;
- yylen = yyr2[yyn];
- yyvsp -= yylen;
- yylsp -= yylen;
- yyguard(yyn, yyvsp, yylsp);
- if (yyerror)
- goto yysemerr;
- yyaction(yyn, yyvsp, yylsp);
- *++yyvsp = yyval;
- yylsp++;
- if (yylen == 0)
- {
- yylsp->timestamp = timeclock;
- yylsp->first_line = yytloc.first_line;
- yylsp->first_column = yytloc.first_column;
- yylsp->last_line = (yylsp-1)->last_line;
- yylsp->last_column = (yylsp-1)->last_column;
- yylsp->text = 0;
- }
- else
- {
- yylsp->last_line = (yylsp+yylen-1)->last_line;
- yylsp->last_column = (yylsp+yylen-1)->last_column;
- }
-
- if (yyptr == yyrq + YYMAXRULES)
- yyptr = yyrq;
- }
- if (yystate == YYFINAL)
- YYACCEPT;
- yyrq2 = yyptr;
- yyrq1 = yyrq0;
- *++yyvsp = yytval;
- *++yylsp = yytloc;
- yytval = yylval;
- yytloc = yylloc;
- yyget();
- goto yynewstate;
- yydefault:
- yyn = yydefact[yystate];
- if (yyn == 0)
- goto yyerrlab;
- yyreduce:
- *yyrq0++ = yyn;
- if (yyrq0 == yyrq + YYMAXRULES)
- yyrq0 = yyrq;
- if (yyrq0 == yyrq2)
- {
- yyabort("Parser Rule Queue Overflow");
- YYABORT;
- }
- yyssp -= yyr2[yyn];
- yyn = yyr1[yyn];
- yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
- if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
- yystate = yytable[yystate];
- else
- yystate = yydefgoto[yyn - YYNTBASE];
- goto yynewstate;
- yysemerr:
- *--yyptr = yyn;
- yyrq2 = yyptr;
- yyvsp += yyr2[yyn];
- yyerrlab:
- yygssp = yyssp;
- yygvsp = yyvsp;
- yyglsp = yylsp;
- yyrestore(yyrq0, yyrq2);
- yyrecover();
- yystate = *yygssp;
- yyssp = yygssp;
- yyvsp = yygvsp;
- yyrq0 = yyrq;
- yyrq1 = yyrq0;
- yyrq2 = yyrq0;
- goto yyresume;
- }
- $
|