yytab.c

有用

#else
      yyoverflow("parser stack overflow",
		 &yyss1, size * sizeof (*yyssp),
		 &yyvs1, size * sizeof (*yyvsp),
		 &yystacksize);
#endif

      yyss = yyss1; yyvs = yyvs1;
#ifdef YYLSP_NEEDED
      yyls = yyls1;
#endif
#else /* no yyoverflow */
      /* Extend the stack our own way.  */
      if (yystacksize >= YYMAXDEPTH)
	{
	  yyerror("parser stack overflow");
	  if (yyfree_stacks)
	    {
	      free (yyss);
	      free (yyvs);
#ifdef YYLSP_NEEDED
	      free (yyls);
#endif
	    }
	  return 2;
	}
      yystacksize *= 2;
      if (yystacksize > YYMAXDEPTH)
	yystacksize = YYMAXDEPTH;
#ifndef YYSTACK_USE_ALLOCA
      yyfree_stacks = 1;
#endif
      yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
      __yy_memcpy ((char *)yyss, (char *)yyss1,
		   size * (unsigned int) sizeof (*yyssp));
      yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
      __yy_memcpy ((char *)yyvs, (char *)yyvs1,
		   size * (unsigned int) sizeof (*yyvsp));
#ifdef YYLSP_NEEDED
      yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
      __yy_memcpy ((char *)yyls, (char *)yyls1,
		   size * (unsigned int) sizeof (*yylsp));
#endif
#endif /* no yyoverflow */

      yyssp = yyss + size - 1;
      yyvsp = yyvs + size - 1;
#ifdef YYLSP_NEEDED
      yylsp = yyls + size - 1;
#endif

#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Stack size increased to %d\n", yystacksize);
#endif

      if (yyssp >= yyss + yystacksize - 1)
	YYABORT;
    }

#if YYDEBUG != 0
  if (yydebug)
    fprintf(stderr, "Entering state %d\n", yystate);
#endif

  goto yybackup;
 yybackup:

/* Do appropriate processing given the current state.  */
/* Read a lookahead token if we need one and don't already have one.  */
/* yyresume: */

  /* First try to decide what to do without reference to lookahead token.  */

  yyn = yypact[yystate];
  if (yyn == YYFLAG)
    goto yydefault;

  /* Not known => get a lookahead token if don't already have one.  */

  /* yychar is either YYEMPTY or YYEOF
     or a valid token in external form.  */

  if (yychar == YYEMPTY)
    {
#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Reading a token: ");
#endif
      yychar = YYLEX;
    }

  /* Convert token to internal form (in yychar1) for indexing tables with */

  if (yychar <= 0)		/* This means end of input. */
    {
      yychar1 = 0;
      yychar = YYEOF;		/* Don't call YYLEX any more */

#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Now at end of input.\n");
#endif
    }
  else
    {
      yychar1 = YYTRANSLATE(yychar);

#if YYDEBUG != 0
      if (yydebug)
	{
	  fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
	  /* Give the individual parser a way to print the precise meaning
	     of a token, for further debugging info.  */
#ifdef YYPRINT
	  YYPRINT (stderr, yychar, yylval);
#endif
	  fprintf (stderr, ")\n");
	}
#endif
    }

  yyn += yychar1;
  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
    goto yydefault;

  yyn = yytable[yyn];

  /* yyn is what to do for this token type in this state.
     Negative => reduce, -yyn is rule number.
     Positive => shift, yyn is new state.
       New state is final state => don't bother to shift,
       just return success.
     0, or most negative number => error.  */

  if (yyn < 0)
    {
      if (yyn == YYFLAG)
	goto yyerrlab;
      yyn = -yyn;
      goto yyreduce;
    }
  else if (yyn == 0)
    goto yyerrlab;

  if (yyn == YYFINAL)
    YYACCEPT;

  /* Shift the lookahead token.  */

#if YYDEBUG != 0
  if (yydebug)
    fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
#endif

  /* Discard the token being shifted unless it is eof.  */
  if (yychar != YYEOF)
    yychar = YYEMPTY;

  *++yyvsp = yylval;
#ifdef YYLSP_NEEDED
  *++yylsp = yylloc;
#endif

  /* count tokens shifted since error; after three, turn off error status.  */
  if (yyerrstatus) yyerrstatus--;

  yystate = yyn;
  goto yynewstate;

/* Do the default action for the current state.  */
yydefault:

  yyn = yydefact[yystate];
  if (yyn == 0)
    goto yyerrlab;

/* Do a reduction.  yyn is the number of a rule to reduce with.  */
yyreduce:
  yylen = yyr2[yyn];
  if (yylen > 0)
    yyval = yyvsp[1-yylen]; /* implement default value of the action */

#if YYDEBUG != 0
  if (yydebug)
    {
      int i;

      fprintf (stderr, "Reducing via rule %d (line %d), ",
	       yyn, yyrline[yyn]);

      /* Print the symbols being reduced, and their result.  */
      for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
	fprintf (stderr, "%s ", yytname[yyrhs[i]]);
      fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
    }
#endif


  switch (yyn) {

case 1:
#line 57 "gen.y"
{
yy yyb;
yy yyv_L;
yy yy_4_1;
yy yy_5_1;
yy_4_1 = (yy)(yyvsp[0].attr[1]);
yyv_L = yy_4_1;
yy_5_1 = yyv_L;
Process(yy_5_1);
yyval.attr[0] = yyvsp[-3].attr[0];
;
    break;}
case 2:
#line 73 "gen.y"
{
yy yyb;
yy yyv_Block;
yy yy_2_1;
yy yy_3;
yy_2_1 = (yy)(yyvsp[0].attr[1]);
yyv_Block = yy_2_1;
yy_3 = yyv_Block;
yyglov_PreludeBlock = yy_3;
yyval.attr[0] = yyvsp[-1].attr[0];
;
    break;}
case 3:
#line 87 "gen.y"
{
yy yyb;
yy yy_1;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1 = yyb + 0;
yy_1[0] = 2;
yyglov_PreludeBlock = yy_1;
yyGetPos(&yyval.attr[0]);
;
    break;}
case 4:
#line 100 "gen.y"
{
yy yyb;
yy yy_4;
yy yy_6;
yy yy_7;
yy yy_8;
yy yy_9;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
init_tokenlist();
init_lexinfo();
init_verbose();
yy_4 = yyb + 0;
yy_4[0] = 2;
yyglov_NontermList = yy_4;
INIT_ENCODE();
yy_6 = ((yy)0);
yyglov_UniqueNontermNumber = yy_6;
yy_7 = ((yy)0);
yyglov_UniqueRuleNumber = yy_7;
yy_8 = ((yy)0);
yyglov_UniqueSubphraseNumber = yy_8;
yy_9 = ((yy)0);
yyglov_UniqueAlternativeNumber = yy_9;
yyGetPos(&yyval.attr[0]);
;
    break;}
case 5:
#line 132 "gen.y"
{
yy yyb;
yyval.attr[0] = yyvsp[-2].attr[0];
;
    break;}
case 6:
#line 139 "gen.y"
{
yy yyb;
yyGetPos(&yyval.attr[0]);
;
    break;}
case 7:
#line 149 "gen.y"
{
yy yyb;
yyval.attr[0] = yyvsp[-1].attr[0];
;
    break;}
case 8:
#line 157 "gen.y"
{
yy yyb;
yyval.attr[0] = yyvsp[0].attr[0];
;
    break;}
case 9:
#line 165 "gen.y"
{
yy yyb;
yy yyv_I;
yy yy_1_1;
yy yyv_P;
yy yy_2;
yy yyv_N;
yy yy_3_1;
yy yy_4_1;
yy yy_5_1;
yy yyv_Yystype;
yy yy_5_2;
yy yy_6_1;
yy yyv_Dummy;
yy yy_6_2;
yy yy_7_1;
yy yy_7_1_1;
yy yy_7_1_1_1;
yy yy_7_1_1_2;
yy yy_7_1_1_3;
yy yy_7_1_1_4;
yy yy_7_1_2;
yy yyv_L;
yy yy_7_2;
yy yy_8_1;
yy yy_8_2;
yy yy_8_3;
yy yy_8_4;
yy yy_9_1;
yy yy_9_2;
yy yyv_K;
yy yy_10;
yy yy_11_1_1_1;
yy yy_11_1_1_2;
yy yy_11_1_2;
yy_1_1 = (yy)(yyvsp[0].attr[1]);
yy_2 = (yy)(yyvsp[0].attr[0]);
yyb = yyh;
yyh += 10; if (yyh > yyhx) yyExtend();
yyv_I = yy_1_1;
yyv_P = yy_2;
FreshTokenNumber(&yy_3_1);
yyv_N = yy_3_1;
yy_4_1 = yyv_N;
TableUpb2(yy_4_1);
yy_5_1 = ((yy)"YYSTYPE");
string_to_id(yy_5_1, &yy_5_2);
yyv_Yystype = yy_5_2;
yy_6_1 = ((yy)"Dummy");
string_to_id(yy_6_1, &yy_6_2);
yyv_Dummy = yy_6_2;
yy_7_1_1_1 = yyb + 8;
yy_7_1_1_1[0] = 2;
yy_7_1_1_2 = yyv_Yystype;
yy_7_1_1_3 = yyv_Dummy;
yy_7_1_1_4 = yyv_P;
yy_7_1_1 = yyb + 3;
yy_7_1_1[0] = 1;
yy_7_1_1[1] = ((long)yy_7_1_1_1);
yy_7_1_1[2] = ((long)yy_7_1_1_2);
yy_7_1_1[3] = ((long)yy_7_1_1_3);
yy_7_1_1[4] = ((long)yy_7_1_1_4);
yy_7_1_2 = yyb + 9;
yy_7_1_2[0] = 2;
yy_7_1 = yyb + 0;
yy_7_1[0] = 1;
yy_7_1[1] = ((long)yy_7_1_1);
yy_7_1[2] = ((long)yy_7_1_2);
yy_7_2 = yy_7_1;
yyv_L = yy_7_2;
yy_8_1 = yyv_I;
yy_8_2 = yyv_L;
yy_8_3 = yyv_N;
yy_8_4 = yyv_P;
define_token(yy_8_1, yy_8_2, yy_8_3, yy_8_4);
yy_9_1 = yyv_I;
yy_9_2 = yyv_N;
enter_token(yy_9_1, yy_9_2);
yy_10 = yyglov_TokenCount;
if (yy_10 == (yy) yyu) yyErr(1,303);
yyv_K = yy_10;
{
yy yysb = yyb;
yy_11_1_1_1 = yyv_N;
yy_11_1_1_2 = yyv_K;
if ((long)yy_11_1_1_1 <= (long)yy_11_1_1_2) goto yyfl_38_1_11_1;
yy_11_1_2 = yyv_N;
yyglov_TokenCount = yy_11_1_2;
goto yysl_38_1_11;
yyfl_38_1_11_1 : ;
goto yysl_38_1_11;
yysl_38_1_11 : ;
yyb = yysb;
}
yyval.attr[0] = yyvsp[0].attr[0];
;
    break;}
case 10:
#line 266 "gen.y"
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yyv_H;
yy yy_1_1;
yy yyv_T;
yy yy_2_1;
yy_1_1 = (yy)(yyvsp[-1].attr[1]);
yy_2_1 = (yy)(yyvsp[0].attr[1]);
yyb = yyh;
yyh += 3; if (yyh > yyhx) yyExtend();
yyv_H = yy_1_1;
yyv_T = yy_2_1;
yy_0_1_1 = yyv_H;
yy_0_1_2 = yyv_T;
yy_0_1 = yyb + 0;
yy_0_1[0] = 1;
yy_0_1[1] = ((long)yy_0_1_1);
yy_0_1[2] = ((long)yy_0_1_2);
yyval.attr[1] = ((long)yy_0_1);
yyval.attr[0] = yyvsp[-1].attr[0];
;
    break;}
case 11:
#line 294 "gen.y"
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yyv_H;
yy yy_1_1;
yy_1_1 = (yy)(yyvsp[0].attr[1]);
yyb = yyh;
yyh += 4; if (yyh > yyhx) yyExtend();
yyv_H = yy_1_1;
yy_0_1_1 = yyv_H;
yy_0_1_2 = yyb + 3;
yy_0_1_2[0] = 2;
yy_0_1 = yyb + 0;
yy_0_1[0] = 1;
yy_0_1[1] = ((long)yy_0_1_1);
yy_0_1[2] = ((long)yy_0_1_2);
yyval.attr[1] = ((long)yy_0_1);
yyval.attr[0] = yyvsp[0].attr[0];
;
    break;}
case 12:
#line 324 "gen.y"
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yy_0_1_3;
yy yy_0_1_4;
yy yyv_I;
yy yy_1_1;
yy yyv_L;
yy yy_2_1;
yy yyv_Pos;
yy yy_4;
yy yyv_Prelude;
yy yy_5_1;
yy yyv_RhsList;
yy yy_6_1;
yy yy_8_1;
yy yy_8_2;
yy yy_8_3;
yy_1_1 = (yy)(yyvsp[-5].attr[1]);
yy_2_1 = (yy)(yyvsp[-4].attr[1]);
yy_4 = (yy)(yyvsp[-3].attr[0]);
yy_5_1 = (yy)(yyvsp[-2].attr[1]);
yy_6_1 = (yy)(yyvsp[-1].attr[1]);
yyb = yyh;
yyh += 5; if (yyh > yyhx) yyExtend();
yyv_I = yy_1_1;
yyv_L = yy_2_1;
yyv_Pos = yy_4;
yyv_Prelude = yy_5_1;
yyv_RhsList = yy_6_1;
yy_8_1 = yyv_I;
yy_8_2 = yyv_L;
yy_8_3 = yyv_Pos;
define_nonterm(yy_8_1, yy_8_2, yy_8_3);
yy_0_1_1 = yyv_I;
yy_0_1_2 = yyv_RhsList;
yy_0_1_3 = yyv_Prelude;
yy_0_1_4 = yyv_Pos;
yy_0_1 = yyb + 0;
yy_0_1[0] = 2;
yy_0_1[1] = ((long)yy_0_1_1);
yy_0_1[2] = ((long)yy_0_1_2);
yy_0_1[3] = ((long)yy_0_1_3);
yy_0_1[4] = ((long)yy_0_1_4);
yyval.attr[1] = ((long)yy_0_1);
yyval.attr[0] = yyvsp[-3].attr[0];
;
    break;}
case 13:
#line 379 "gen.y"
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yyv_Hd;
yy yy_1_1;
yy yyv_Tl;
yy yy_3_1;
yy_1_1 = (yy)(yyvsp[-2].attr[1]);
yy_3_1 = (yy)(yyvsp[0].attr[1]);
yyb = yyh;
yyh += 3; if (yyh > yyhx) yyExtend();
yyv_Hd = yy_1_1;
yyv_Tl = yy_3_1;
yy_0_1_1 = yyv_Hd;
yy_0_1_2 = yyv_Tl;
yy_0_1 = yyb + 0;
yy_0_1[0] = 1;
yy_0_1[1] = ((long)yy_0_1_1);
yy_0_1[2] = ((long)yy_0_1_2);
yyval.attr[1] = ((long)yy_0_1);
yyval.attr[0] = yyvsp[-1].attr[0];
;
    break;}
case 14:
#line 407 "gen.y"
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yyv_Hd;
yy yy_1_1;
yy_1_1 = (yy)(yyvsp[0].attr[1]);
yyb = yyh;
yyh += 4; if (yyh > yyhx) yyExtend();
yyv_Hd = yy_1_1;
yy_0_1_1 = yyv_Hd;
yy_0_1_2 = yyb + 3;
yy_0_1_2[0] = 2;
yy_0_1 = yyb + 0;
yy_0_1[0] = 1;
yy_0_1[1] = ((long)yy_0_1_1);
yy_0_1[2] = ((long)yy_0_1_2);
yyval.attr[1] = ((long)yy_0_1);
yyval.attr[0] = yyvsp[0].attr[0];
;
    break;}
case 15:
#line 433 "gen.y"
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yy_0_1_3;
yy yy_0_1_4;
yy yyv_Pos;
yy yy_1;
yy yyv_R;
yy yy_2_1;
yy yyv_Annotation;
yy yy_3_1;
yy yyv_Key;
yy yyv_N;
yy yy_5_1;
yy yy_6;
yy yy_7;
yy_1 = (yy)(yyvsp[-1].attr[0]);
yy_2_1 = (yy)(yyvsp[-1].attr[1]);