cpp.c

用YACC实现的一个小的编译工具

yyfl_43_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_RuleList;
yy yy_0_2;
yy yyv_Pos;
yy yy_0_3;
yy yy_0_4;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 2) goto yyfl_43_2;
yyv_RuleList = yy_0_2;
yyv_Pos = yy_0_3;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_0_4 = yyb + 0;
yy_0_4[0] = 2;
*yyout_1 = yy_0_4;
return;
yyfl_43_2 : ;
}
yyErr(2,484);
}
DetermineMatchType(yyin_1, yyin_2, yyin_3, yyout_1)
yy yyin_1;
yy yyin_2;
yy yyin_3;
yy *yyout_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Hd;
yy yy_0_1_1;
yy yyv_Tl;
yy yy_0_1_2;
yy yyv_Pos;
yy yy_0_2;
yy yyv_SrcPos;
yy yy_0_3;
yy yy_0_4;
yy yy_1_1;
yy yy_1_2;
yy yyv_Patterns;
yy yy_1_2_1;
yy yy_1_2_2;
yy yy_1_2_3;
yy yy_1_2_4;
yy yy_1_2_5;
yy yy_1_2_6;
yy yy_2_1;
yy yy_2_2;
yy yy_2_3;
yy yyv_Pattern;
yy yy_2_4;
yy yy_3_1_1_1;
yy yyv_Type;
yy yy_3_1_1_2;
yy yy_3_1_2_1;
yy yy_3_1_2_2;
yy yy_3_1_2_3;
yy yy_3_2_1_1;
yy yy_3_2_1_2;
yy yy_3_2_1_3;
yy yy_3_2_1_4;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_44_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Hd = yy_0_1_1;
yyv_Tl = yy_0_1_2;
yyv_Pos = yy_0_2;
yyv_SrcPos = yy_0_3;
yy_1_1 = yyv_Hd;
yy_1_2 = yy_1_1;
if (yy_1_2[0] != 1) goto yyfl_44_1;
yy_1_2_1 = ((yy)yy_1_2[1]);
yy_1_2_2 = ((yy)yy_1_2[2]);
yy_1_2_3 = ((yy)yy_1_2[3]);
yy_1_2_4 = ((yy)yy_1_2[4]);
yy_1_2_5 = ((yy)yy_1_2[5]);
yy_1_2_6 = ((yy)yy_1_2[6]);
yyv_Patterns = yy_1_2_1;
yy_2_1 = yyv_Patterns;
yy_2_2 = yyv_Pos;
yy_2_3 = ((yy)1);
GetPatternAtPos(yy_2_1, yy_2_2, yy_2_3, &yy_2_4);
yyv_Pattern = yy_2_4;
{
yy yysb = yyb;
yy_3_1_1_1 = yyv_Pattern;
if (! GetTypeOfPattern(yy_3_1_1_1, &yy_3_1_1_2)) goto yyfl_44_1_3_1;
yyv_Type = yy_3_1_1_2;
yy_3_1_2_1 = yyv_Tl;
yy_3_1_2_2 = yyv_Pos;
yy_3_1_2_3 = yyv_Type;
CheckTypeOfPatterns(yy_3_1_2_1, yy_3_1_2_2, yy_3_1_2_3);
goto yysl_44_1_3;
yyfl_44_1_3_1 : ;
yy_3_2_1_1 = yyv_Tl;
yy_3_2_1_2 = yyv_Pos;
yy_3_2_1_3 = yyv_SrcPos;
DetermineMatchType(yy_3_2_1_1, yy_3_2_1_2, yy_3_2_1_3, &yy_3_2_1_4);
yyv_Type = yy_3_2_1_4;
goto yysl_44_1_3;
yysl_44_1_3 : ;
yyb = yysb;
}
yy_0_4 = yyv_Type;
*yyout_1 = yy_0_4;
return;
yyfl_44_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_Pos;
yy yy_0_2;
yy yyv_SrcPos;
yy yy_0_3;
yy yy_0_4;
yy yy_1_1;
yy yy_1_2;
yy yy_2_1;
yy yyv_ErrorName;
yy yy_2_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 2) goto yyfl_44_2;
yyv_Pos = yy_0_2;
yyv_SrcPos = yy_0_3;
yy_1_1 = ((yy)"unknown pattern type (at least one functor usage required)");
yy_1_2 = yyv_SrcPos;
Error(yy_1_1, yy_1_2);
yy_2_1 = ((yy)"<?>");
string_to_id(yy_2_1, &yy_2_2);
yyv_ErrorName = yy_2_2;
yy_0_4 = yyv_ErrorName;
*yyout_1 = yy_0_4;
return;
yyfl_44_2 : ;
}
yyErr(2,492);
}
CheckTypeOfPatterns(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Hd;
yy yy_0_1_1;
yy yyv_Tl;
yy yy_0_1_2;
yy yyv_Pos;
yy yy_0_2;
yy yyv_ExpectedType;
yy yy_0_3;
yy yy_1_1;
yy yy_1_2;
yy yyv_Patterns;
yy yy_1_2_1;
yy yy_1_2_2;
yy yy_1_2_3;
yy yy_1_2_4;
yy yy_1_2_5;
yy yy_1_2_6;
yy yy_2_1;
yy yy_2_2;
yy yy_2_3;
yy yyv_Pattern;
yy yy_2_4;
yy yy_3_1_1_1;
yy yyv_Type;
yy yy_3_1_1_2;
yy yy_3_1_2_1_1_1;
yy yy_3_1_2_1_1_2;
yy yy_3_1_2_1_2_1;
yy yyv_SrcPos;
yy yy_3_1_2_1_2_2;
yy yy_3_1_2_1_3_1;
yy yy_3_1_2_1_3_2;
yy yy_3_1_2_1_3_3;
yy yy_3_1_2_1_3_4;
yy yy_4_1;
yy yy_4_2;
yy yy_4_3;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_45_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Hd = yy_0_1_1;
yyv_Tl = yy_0_1_2;
yyv_Pos = yy_0_2;
yyv_ExpectedType = yy_0_3;
yy_1_1 = yyv_Hd;
yy_1_2 = yy_1_1;
if (yy_1_2[0] != 1) goto yyfl_45_1;
yy_1_2_1 = ((yy)yy_1_2[1]);
yy_1_2_2 = ((yy)yy_1_2[2]);
yy_1_2_3 = ((yy)yy_1_2[3]);
yy_1_2_4 = ((yy)yy_1_2[4]);
yy_1_2_5 = ((yy)yy_1_2[5]);
yy_1_2_6 = ((yy)yy_1_2[6]);
yyv_Patterns = yy_1_2_1;
yy_2_1 = yyv_Patterns;
yy_2_2 = yyv_Pos;
yy_2_3 = ((yy)1);
GetPatternAtPos(yy_2_1, yy_2_2, yy_2_3, &yy_2_4);
yyv_Pattern = yy_2_4;
{
yy yysb = yyb;
yy_3_1_1_1 = yyv_Pattern;
if (! GetTypeOfPattern(yy_3_1_1_1, &yy_3_1_1_2)) goto yyfl_45_1_3_1;
yyv_Type = yy_3_1_1_2;
{
yy yysb = yyb;
yy_3_1_2_1_1_1 = yyv_Type;
yy_3_1_2_1_1_2 = yyv_ExpectedType;
if (yyeq_IDENT(yy_3_1_2_1_1_1, yy_3_1_2_1_1_2)) goto yyfl_45_1_3_1_2_1;
yy_3_1_2_1_2_1 = yyv_Pattern;
GetPosOfPattern(yy_3_1_2_1_2_1, &yy_3_1_2_1_2_2);
yyv_SrcPos = yy_3_1_2_1_2_2;
yy_3_1_2_1_3_1 = ((yy)"pattern of type '");
yy_3_1_2_1_3_2 = yyv_ExpectedType;
yy_3_1_2_1_3_3 = ((yy)"' expected");
yy_3_1_2_1_3_4 = yyv_SrcPos;
ErrorI(yy_3_1_2_1_3_1, yy_3_1_2_1_3_2, yy_3_1_2_1_3_3, yy_3_1_2_1_3_4);
goto yysl_45_1_3_1_2;
yyfl_45_1_3_1_2_1 : ;
goto yysl_45_1_3_1_2;
yysl_45_1_3_1_2 : ;
yyb = yysb;
}
goto yysl_45_1_3;
yyfl_45_1_3_1 : ;
goto yysl_45_1_3;
yysl_45_1_3 : ;
yyb = yysb;
}
yy_4_1 = yyv_Tl;
yy_4_2 = yyv_Pos;
yy_4_3 = yyv_ExpectedType;
CheckTypeOfPatterns(yy_4_1, yy_4_2, yy_4_3);
return;
yyfl_45_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy yy_0_3;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 2) goto yyfl_45_2;
return;
yyfl_45_2 : ;
}
yyErr(2,506);
}
GetPatternAtPos(yyin_1, yyin_2, yyin_3, yyout_1)
yy yyin_1;
yy yyin_2;
yy yyin_3;
yy *yyout_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Hd;
yy yy_0_1_1;
yy yyv_Tl;
yy yy_0_1_2;
yy yyv_Pos;
yy yy_0_2;
yy yyv_N;
yy yy_0_3;
yy yy_0_4;
yy yy_1_1_1_1;
yy yy_1_1_1_2;
yy yy_1_1_2_1;
yy yyv_Pattern;
yy yy_1_1_2_2;
yy yy_1_2_1_1;
yy yy_1_2_1_2;
yy yy_1_2_1_3;
yy yy_1_2_1_3_1;
yy yy_1_2_1_3_2;
yy yy_1_2_1_4;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_46_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Hd = yy_0_1_1;
yyv_Tl = yy_0_1_2;
yyv_Pos = yy_0_2;
yyv_N = yy_0_3;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Pos;
yy_1_1_1_2 = yyv_N;
if ((long)yy_1_1_1_1 != (long)yy_1_1_1_2) goto yyfl_46_1_1_1;
yy_1_1_2_1 = yyv_Hd;
yy_1_1_2_2 = yy_1_1_2_1;
yyv_Pattern = yy_1_1_2_2;
goto yysl_46_1_1;
yyfl_46_1_1_1 : ;
yy_1_2_1_1 = yyv_Tl;
yy_1_2_1_2 = yyv_Pos;
yy_1_2_1_3_1 = yyv_N;
yy_1_2_1_3_2 = ((yy)1);
yy_1_2_1_3 = (yy)(((long)yy_1_2_1_3_1)+((long)yy_1_2_1_3_2));
GetPatternAtPos(yy_1_2_1_1, yy_1_2_1_2, yy_1_2_1_3, &yy_1_2_1_4);
yyv_Pattern = yy_1_2_1_4;
goto yysl_46_1_1;
yysl_46_1_1 : ;
yyb = yysb;
}
yy_0_4 = yyv_Pattern;
*yyout_1 = yy_0_4;
return;
yyfl_46_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_Pos;
yy yy_0_1_1;
yy yy_0_2;
yy yy_0_3;
yy yy_0_4;
yy yy_1_1;
yy yy_1_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 2) goto yyfl_46_2;
yy_0_1_1 = ((yy)yy_0_1[1]);
yyv_Pos = yy_0_1_1;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1_1 = ((yy)"too few patterns");
yy_1_2 = yyv_Pos;
Error(yy_1_1, yy_1_2);
yy_0_4 = yyb + 0;
yy_0_4[0] = 4;
*yyout_1 = yy_0_4;
return;
yyfl_46_2 : ;
}
yyErr(2,521);
}
int GetTypeOfPattern(yyin_1, yyout_1)
yy yyin_1;
yy *yyout_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Functor;
yy yy_0_1_1;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_0_2;
yy yy_1_1_1_1;
yy yyv_Meaning;
yy yy_1_1_1_2;
yy yy_1_1_2_1;
yy yy_1_1_2_2;
yy yyv_Type;
yy yy_1_1_2_2_1;
yy yy_1_1_2_2_2;
yy yy_1_2_1_1;
yy yy_1_2_1_2;
yy yy_1_2_1_3;
yy yy_1_2_1_4;
yy yy_1_2_2_1;
yy yy_1_2_2_2;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_47_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yy_0_1_4 = ((yy)yy_0_1[4]);
yyv_Functor = yy_0_1_1;
yyv_Pos = yy_0_1_4;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Functor;
if (! HasMeaning(yy_1_1_1_1, &yy_1_1_1_2)) goto yyfl_47_1_1_1;
yyv_Meaning = yy_1_1_1_2;
yy_1_1_2_1 = yyv_Meaning;
yy_1_1_2_2 = yy_1_1_2_1;
if (yy_1_1_2_2[0] != 2) goto yyfl_47_1_1_1;
yy_1_1_2_2_1 = ((yy)yy_1_1_2_2[1]);
yy_1_1_2_2_2 = ((yy)yy_1_1_2_2[2]);
yyv_Type = yy_1_1_2_2_1;
goto yysl_47_1_1;
yyfl_47_1_1_1 : ;
yy_1_2_1_1 = ((yy)"'");
yy_1_2_1_2 = yyv_Functor;
yy_1_2_1_3 = ((yy)"' not declared as functor");
yy_1_2_1_4 = yyv_Pos;
ErrorI(yy_1_2_1_1, yy_1_2_1_2, yy_1_2_1_3, yy_1_2_1_4);
yy_1_2_2_1 = ((yy)"<?>");
string_to_id(yy_1_2_2_1, &yy_1_2_2_2);
yyv_Type = yy_1_2_2_2;
goto yysl_47_1_1;
yysl_47_1_1 : ;
yyb = yysb;
}
yy_0_2 = yyv_Type;
*yyout_1 = yy_0_2;
return 1;
yyfl_47_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_Pattern;
yy yy_0_1_2;
yy yy_0_1_3;
yy yy_0_2;
yy yy_1_1;
yy yyv_Type;
yy yy_1_2;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 3) goto yyfl_47_2;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yyv_Pattern = yy_0_1_2;
yy_1_1 = yyv_Pattern;
if (! GetTypeOfPattern(yy_1_1, &yy_1_2)) goto yyfl_47_2;
yyv_Type = yy_1_2;
yy_0_2 = yyv_Type;
*yyout_1 = yy_0_2;
return 1;
yyfl_47_2 : ;
}
return 0;
}
DeclareMatchTempos(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yy_0_1;
yy yyv_H;
yy yy_0_1_1;
yy yyv_T;
yy yy_0_1_2;
yy yy_0_2;
yy yyv_H2;
yy yy_0_2_1;
yy yyv_T2;
yy yy_0_2_2;
yy yy_1_1;
yy yy_1_2;
yy yy_2_1;
yy yy_2_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_48_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_H = yy_0_1_1;
yyv_T = yy_0_1_2;
if (yy_0_2[0] != 1) goto yyfl_48_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yyv_H2 = yy_0_2_1;
yyv_T2 = yy_0_2_2;
yy_1_1 = yyv_H;
yy_1_2 = yyv_H2;
DeclareMatchTempo(yy_1_1, yy_1_2);
yy_2_1 = yyv_T;
yy_2_2 = yyv_T2;
DeclareMatchTempos(yy_2_1, yy_2_2);
return;
yyfl_48_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 2) goto yyfl_48_2;
return;
yyfl_48_2 : ;
}
yyErr(2,541);
}
DeclareMatchTempo(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yyv_Tmp;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Type;
yy yy_0_2;
yy yy_1_1;
yy yy_1_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_49_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yyv_Id = yy_0_1_1;
yyv_Tmp = yy_0_1_2;
yyv_Type = yy_0_2;
yy_1_1 = yyv_Type;
yy_1_2 = yyv_Tmp;
TemplDeclareMatchTmp(yy_1_1, yy_1_2);
return;
yyfl_49_1 : ;
}
yyErr(2,547);
}
GetPosOfPattern(yyin_1, yyout_1)
yy yyin_1;
yy *yyout_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Functor;
yy yy_0_1_1;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_0_2;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_50_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yy_0_1_4 = ((yy)yy_0_1[4]);
yyv_Functor = yy_0_1_1;
yyv_Pos = yy_0_1_4;
yy_0_2 = yyv_Pos;
*yyout_1 = yy_0_2;
return;
yyfl_50_1 : ;
}
yyErr(2,551);
}
CodeMatchList(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_H;
yy yy_0_1_1;
yy yyv_T;
yy yy_0_1_2;
yy yy_1_1;
yy yy_1_2;
yy yyv_Id;
yy yy_1_2_1;
yy yyv_Tmp;
yy yy_1_2_2;
yy yy_1_2_3;
yy yy_2_1;
yy yy_2_2;
yy yy_3_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_51_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_H = yy_0_1_1;
yyv_T = yy_0_1_2;
yy_1_1 = yyv_H;
yy_1_2 = yy_1_1;
if (yy_1_2[0] != 1) goto yyfl_51_1;
yy_1_2_1 = ((yy)yy_1_2[1]);
yy_1_2_2 = ((yy)yy_1_2[2]);
yy_1_2_3 = ((yy)yy_1_2[3]);
yyv_Id = yy_1_2_1;
yyv_Tmp = yy_1_2_2;
yy_2_1 = yyv_Id;
yy_2_2 = yyv_Tmp;
TemplGetMatchVar(yy_2_1, yy_2_2);
yy_3_1 = yyv_T;
CodeMatchList(yy_3_1);
return;
yyfl_51_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_51_2;
return;
yyfl_51_2 : ;
}
yyErr(2,556);
}
CodePATTERNLIST(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yy_0_1;
yy yyv_H;
yy yy_0_1_1;
yy yyv_T;
yy yy_0_1_2;
yy yy_0_2;
yy yyv_H2;
yy yy_0_2_1;
yy yyv_T2;
yy yy_0_2_2;
yy yy_1_1;
yy yy_1_2;
yy yy_2_1;
yy yy_2_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_52_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_H = yy_0_1_1;
yyv_T = yy_0_1_2;
if (yy_0_2[0] != 1) goto yyfl_52_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yyv_H2 = yy_0_2_1;
yyv_T2 = yy_0_2_2;
yy_1_1 = yyv_H;
yy_1_2 = yyv_H2;
CodePATTERN(yy_1_1, yy_1_2);
yy_2_1 = yyv_T;
yy_2_2 = yyv_T2;
CodePATTERNLIST(yy_2_1, yy_2_2);
return;
yyfl_52_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 2) goto yyfl_52_2;
return;
yyfl_52_2 : ;
}
yyErr(2,563);
}
CodePATTERN(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yy_0_1_2;
yy yyv_Pos;
yy yy_0_1_3;
yy yyv_ContainerTmp;
yy yy_0_2;
yy yy_1_1;
yy yy_1_2;
yy yy_2_1;
yy yy_3_1;
yy yy_3_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_53_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yyv_Id = yy_0_1_1;
yyv_Pos = yy_0_1_3;
yyv_ContainerTmp = yy_0_2;
yy_1_1 = yyv_Id;
yy_1_2 = yyv_Pos;
CheckIsVarUnique(yy_1_1, yy_1_2);
yy_2_1 = yyv_Id;
EnterLocalVar(yy_2_1);
yy_3_1 = yyv_Id;
yy_3_2 = yyv_ContainerTmp;
TemplAssignVar(yy_3_1, yy_3_2);
return;
yyfl_53_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yyv_Args;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yyv_ContainerTmp;
yy yy_0_2;
yy yyv_RuleNumber;
yy yy_1;
yy yy_2_1;
yy yy_2_2;
yy yy_2_3;
yy yy_3_1_1_1;
yy yy_3_1_1_2;
yy yy_3_1_1_2_1;
yy yy_3_1_1_2_2;
yy yy_3_1_1_2_2_1;
yy yyv_ArgDefs;
yy yy_3_1_1_2_2_2;
yy yy_3_1_1_2_2_3;
yy yy_3_1_2_1;
yy yy_3_1_2_2;
yy yy_3_1_2_3;
yy yy_3_1_2_4;
yy yy_3_2_1_1;
yy yy_3_2_1_2;
yy yy_3_2_1_3;
yy yy_3_2_1_4;
yy yy_4_1;
yy yyv_IntList;
yy yy_4_2;
yy yy_5_1;
yy yy_5_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 2) goto yyfl_53_2;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yy_0_1_4 = ((yy)yy_0_1[4]);
yyv_Id = yy_0_1_1;
yyv_Args = yy_0_1_2;
yyv_Pos = yy_0_1_4;
yyv_ContainerTmp = yy_0_2;