cpp.c

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

yy yy_0_1_4;
yy yyv_Number;
yy yy_0_1_5;
yy yyv_SrcPos;
yy yy_0_1_6;
yy yy_1_1;
yy yy_1_1_1;
yy yy_1_1_2;
yy yy_2_1;
yy yyv_OldMatchNumber;
yy yy_3;
yy yy_4;
yy yyv_OldTmpList;
yy yy_5;
yy yy_6_1;
yy yyv_INTLIST;
yy yy_6_2;
yy yy_7;
yy yy_9_1;
yy yy_9_2;
yy yy_9_3;
yy yyv_IDENTLIST;
yy yy_9_4;
yy yy_10_1;
yy yy_10_2;
yy yy_11;
yy yy_12_1;
yy yy_13_1;
yy yy_13_2;
yy yy_13_3;
yy yy_14_1;
yy yy_14_2;
yy yy_15;
yy yy_16;
yy yy_17_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_37_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]);
yy_0_1_5 = ((yy)yy_0_1[5]);
yy_0_1_6 = ((yy)yy_0_1[6]);
yyv_EXPRLIST = yy_0_1_1;
yyv_RULELIST = yy_0_1_2;
yyv_P1 = yy_0_1_3;
yyv_P2 = yy_0_1_4;
yyv_Number = yy_0_1_5;
yyv_SrcPos = yy_0_1_6;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1_1_1 = yyv_P1;
yy_1_1_2 = ((yy)1);
yy_1_1 = (yy)(((long)yy_1_1_1)-((long)yy_1_1_2));
EmitUpto(yy_1_1);
yy_2_1 = yyv_SrcPos;
SourceReference(yy_2_1);
yy_3 = yyglov_CurMatchNumber;
if (yy_3 == (yy) yyu) yyErr(1,366);
yyv_OldMatchNumber = yy_3;
yy_4 = yyv_Number;
yyglov_CurMatchNumber = yy_4;
yy_5 = yyglov_CurTmpList;
if (yy_5 == (yy) yyu) yyErr(1,368);
yyv_OldTmpList = yy_5;
yy_6_1 = yyv_EXPRLIST;
MatchExprList_to_IntList(yy_6_1, &yy_6_2);
yyv_INTLIST = yy_6_2;
yy_7 = yyv_INTLIST;
yyglov_CurTmpList = yy_7;
TemplBeginMatch();
yy_9_1 = yyv_EXPRLIST;
yy_9_2 = yyv_RULELIST;
yy_9_3 = ((yy)1);
DetermineMatchTypes(yy_9_1, yy_9_2, yy_9_3, &yy_9_4);
yyv_IDENTLIST = yy_9_4;
yy_10_1 = yyv_EXPRLIST;
yy_10_2 = yyv_IDENTLIST;
DeclareMatchTempos(yy_10_1, yy_10_2);
yy_11 = yyb + 0;
yy_11[0] = 2;
yyglov_ListOfLocalVars = yy_11;
yy_12_1 = yyv_EXPRLIST;
CodeMatchList(yy_12_1);
yy_13_1 = yyv_RULELIST;
yy_13_2 = yyv_P2;
yy_13_3 = yyv_IDENTLIST;
VisitRULELIST(yy_13_1, yy_13_2, yy_13_3);
yy_14_1 = yyv_Number;
yy_14_2 = yyv_SrcPos;
TemplEndMatch(yy_14_1, yy_14_2);
yy_15 = yyv_OldMatchNumber;
yyglov_CurMatchNumber = yy_15;
yy_16 = yyv_OldTmpList;
yyglov_CurTmpList = yy_16;
yy_17_1 = yyv_P2;
SkipTo(yy_17_1);
return;
yyfl_37_1 : ;
}
yyErr(2,356);
}
VisitRULELIST(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
yy yyb;
yy yy_0_1;
yy yyv_RULE;
yy yy_0_1_1;
yy yyv_RULELIST;
yy yy_0_1_2;
yy yyv_Continue;
yy yy_0_2;
yy yyv_TypeList;
yy yy_0_3;
yy yy_1_1_1_1;
yy yy_1_1_1_2;
yy yy_1_1_1_2_1;
yy yy_1_1_1_2_1_1;
yy yy_1_1_1_2_1_2;
yy yyv_P;
yy yy_1_1_1_2_1_3;
yy yy_1_1_1_2_1_4;
yy yy_1_1_1_2_1_5;
yy yy_1_1_1_2_1_6;
yy yy_1_1_1_2_2;
yy yy_1_2_1_1;
yy yy_1_2_1_2;
yy yy_2_1;
yy yy_2_2;
yy yy_2_3;
yy yy_3_1;
yy yy_3_2;
yy yy_3_3;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_38_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_RULE = yy_0_1_1;
yyv_RULELIST = yy_0_1_2;
yyv_Continue = yy_0_2;
yyv_TypeList = yy_0_3;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_RULELIST;
yy_1_1_1_2 = yy_1_1_1_1;
if (yy_1_1_1_2[0] != 1) goto yyfl_38_1_1_1;
yy_1_1_1_2_1 = ((yy)yy_1_1_1_2[1]);
yy_1_1_1_2_2 = ((yy)yy_1_1_1_2[2]);
if (yy_1_1_1_2_1[0] != 1) goto yyfl_38_1_1_1;
yy_1_1_1_2_1_1 = ((yy)yy_1_1_1_2_1[1]);
yy_1_1_1_2_1_2 = ((yy)yy_1_1_1_2_1[2]);
yy_1_1_1_2_1_3 = ((yy)yy_1_1_1_2_1[3]);
yy_1_1_1_2_1_4 = ((yy)yy_1_1_1_2_1[4]);
yy_1_1_1_2_1_5 = ((yy)yy_1_1_1_2_1[5]);
yy_1_1_1_2_1_6 = ((yy)yy_1_1_1_2_1[6]);
yyv_P = yy_1_1_1_2_1_3;
goto yysl_38_1_1;
yyfl_38_1_1_1 : ;
yy_1_2_1_1 = yyv_Continue;
yy_1_2_1_2 = yy_1_2_1_1;
yyv_P = yy_1_2_1_2;
goto yysl_38_1_1;
yysl_38_1_1 : ;
yyb = yysb;
}
yy_2_1 = yyv_RULE;
yy_2_2 = yyv_P;
yy_2_3 = yyv_TypeList;
VisitRULE(yy_2_1, yy_2_2, yy_2_3);
yy_3_1 = yyv_RULELIST;
yy_3_2 = yyv_Continue;
yy_3_3 = yyv_TypeList;
VisitRULELIST(yy_3_1, yy_3_2, yy_3_3);
return;
yyfl_38_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_38_2;
return;
yyfl_38_2 : ;
}
yyErr(2,388);
}
VisitRULE(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
yy yyb;
yy yy_0_1;
yy yyv_PATTERNLIST;
yy yy_0_1_1;
yy yyv_BLOCKITEMLIST;
yy yy_0_1_2;
yy yyv_P1;
yy yy_0_1_3;
yy yyv_P2;
yy yy_0_1_4;
yy yyv_RuleNumber;
yy yy_0_1_5;
yy yyv_SrcPos;
yy yy_0_1_6;
yy yyv_P3;
yy yy_0_2;
yy yyv_TypeList;
yy yy_0_3;
yy yyv_OldListOfLocalVars;
yy yy_1;
yy yyv_OldRuleNumber;
yy yy_2;
yy yy_3;
yy yyv_TmpList;
yy yy_4;
yy yy_6_1;
yy yy_6_2;
yy yy_6_3;
yy yy_7_1;
yy yy_7_2;
yy yy_8_1;
yy yy_9_1;
yy yy_10_1;
yy yy_10_1_1;
yy yy_10_1_2;
yy yyv_MatchNumber;
yy yy_11;
yy yy_12_1;
yy yy_12_2;
yy yy_13;
yy yy_14;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_39_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]);
yy_0_1_5 = ((yy)yy_0_1[5]);
yy_0_1_6 = ((yy)yy_0_1[6]);
yyv_PATTERNLIST = yy_0_1_1;
yyv_BLOCKITEMLIST = yy_0_1_2;
yyv_P1 = yy_0_1_3;
yyv_P2 = yy_0_1_4;
yyv_RuleNumber = yy_0_1_5;
yyv_SrcPos = yy_0_1_6;
yyv_P3 = yy_0_2;
yyv_TypeList = yy_0_3;
yy_1 = yyglov_ListOfLocalVars;
if (yy_1 == (yy) yyu) yyErr(1,404);
yyv_OldListOfLocalVars = yy_1;
yy_2 = yyglov_CurRuleNumber;
if (yy_2 == (yy) yyu) yyErr(1,406);
yyv_OldRuleNumber = yy_2;
yy_3 = yyv_RuleNumber;
yyglov_CurRuleNumber = yy_3;
yy_4 = yyglov_CurTmpList;
if (yy_4 == (yy) yyu) yyErr(1,408);
yyv_TmpList = yy_4;
TemplBeginRule();
yy_6_1 = yyv_PATTERNLIST;
yy_6_2 = yyv_TypeList;
yy_6_3 = yyv_SrcPos;
DeclareRuleTempos_PATTERNLIST(yy_6_1, yy_6_2, yy_6_3);
yy_7_1 = yyv_PATTERNLIST;
yy_7_2 = yyv_TmpList;
CodePATTERNLIST(yy_7_1, yy_7_2);
yy_8_1 = yyv_P2;
SkipTo(yy_8_1);
yy_9_1 = yyv_BLOCKITEMLIST;
VisitBLOCKITEMLIST(yy_9_1);
yy_10_1_1 = yyv_P3;
yy_10_1_2 = ((yy)1);
yy_10_1 = (yy)(((long)yy_10_1_1)-((long)yy_10_1_2));
EmitUpto(yy_10_1);
yy_11 = yyglov_CurMatchNumber;
if (yy_11 == (yy) yyu) yyErr(1,422);
yyv_MatchNumber = yy_11;
yy_12_1 = yyv_MatchNumber;
yy_12_2 = yyv_RuleNumber;
TemplEndRule(yy_12_1, yy_12_2);
yy_13 = yyv_OldRuleNumber;
yyglov_CurRuleNumber = yy_13;
yy_14 = yyv_OldListOfLocalVars;
yyglov_ListOfLocalVars = yy_14;
return;
yyfl_39_1 : ;
}
yyErr(2,399);
}
DeclareRuleTempos_PATTERNLIST(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
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_TypeH;
yy yy_0_2_1;
yy yyv_TypeT;
yy yy_0_2_2;
yy yyv_SrcPos;
yy yy_0_3;
yy yy_1_1;
yy yy_1_2;
yy yy_2_1;
yy yy_2_2;
yy yy_2_3;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_40_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_40_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yyv_TypeH = yy_0_2_1;
yyv_TypeT = yy_0_2_2;
yyv_SrcPos = yy_0_3;
yy_1_1 = yyv_H;
yy_1_2 = yyv_TypeH;
DeclareRuleTempos_PATTERN(yy_1_1, yy_1_2);
yy_2_1 = yyv_T;
yy_2_2 = yyv_TypeT;
yy_2_3 = yyv_SrcPos;
DeclareRuleTempos_PATTERNLIST(yy_2_1, yy_2_2, yy_2_3);
return;
yyfl_40_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_40_2;
if (yy_0_2[0] != 2) goto yyfl_40_2;
return;
yyfl_40_2 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy yyv_SrcPos;
yy yy_0_3;
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_40_3;
yyv_SrcPos = yy_0_3;
yy_1_1 = ((yy)"xx b : too few patterns");
yy_1_2 = yyv_SrcPos;
Error(yy_1_1, yy_1_2);
return;
yyfl_40_3 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy yyv_SrcPos;
yy yy_0_3;
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_2[0] != 2) goto yyfl_40_4;
yyv_SrcPos = yy_0_3;
yy_1_1 = ((yy)"too many patterns");
yy_1_2 = yyv_SrcPos;
Error(yy_1_1, yy_1_2);
return;
yyfl_40_4 : ;
}
yyErr(2,432);
}
DeclareRuleTempos_PATTERN(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_N;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Type;
yy yy_0_2;
yy yy_1_1;
yy yy_2_1;
yy yy_3_1;
yy yy_4_1;
yy yy_6_1;
yy yy_7_1;
yy yy_8_1;
yy yy_9_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_41_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_N = yy_0_1_2;
yyv_Type = yy_0_2;
yy_1_1 = yyv_Type;
PutId(yy_1_1);
yy_2_1 = ((yy)" ");
Put(yy_2_1);
yy_3_1 = yyv_Id;
PutId(yy_3_1);
yy_4_1 = ((yy)";");
Put(yy_4_1);
Nl();
yy_6_1 = yyv_Type;
PutId(yy_6_1);
yy_7_1 = ((yy)" tmp");
Put(yy_7_1);
yy_8_1 = yyv_N;
PutI(yy_8_1);
yy_9_1 = ((yy)";");
Put(yy_9_1);
Nl();
return;
yyfl_41_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_Functor;
yy yy_0_1_1;
yy yyv_Args;
yy yy_0_1_2;
yy yyv_N;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yyv_Type;
yy yy_0_2;
yy yy_1_1;
yy yy_2_1;
yy yy_3_1;
yy yy_4_1;
yy yy_6_1_1_1;
yy yy_6_1_1_2;
yy yy_6_1_1_2_1;
yy yy_6_1_1_2_2;
yy yy_6_1_1_2_2_1;
yy yyv_ArgDefs;
yy yy_6_1_1_2_2_2;
yy yy_6_1_1_2_2_3;
yy yy_6_1_2_1;
yy yyv_Types;
yy yy_6_1_2_2;
yy yy_6_1_3_1_1_1;
yy yy_6_1_3_1_1_2;
yy yy_6_1_3_2_1_1;
yy yy_6_1_3_2_1_2;
yy yy_6_1_3_2_1_3;
yy yy_6_2_1_1;
yy yy_6_2_1_2;
yy yy_6_2_1_3;
yy yy_6_2_1_4;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 2) goto yyfl_41_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_Functor = yy_0_1_1;
yyv_Args = yy_0_1_2;
yyv_N = yy_0_1_3;
yyv_Pos = yy_0_1_4;
yyv_Type = yy_0_2;
yy_1_1 = yyv_Type;
PutId(yy_1_1);
yy_2_1 = ((yy)" tmp");
Put(yy_2_1);
yy_3_1 = yyv_N;
PutI(yy_3_1);
yy_4_1 = ((yy)";");
Put(yy_4_1);
Nl();
{
yy yysb = yyb;
yy_6_1_1_1 = yyv_Functor;
if (! HasMeaning(yy_6_1_1_1, &yy_6_1_1_2)) goto yyfl_41_2_6_1;
if (yy_6_1_1_2[0] != 2) goto yyfl_41_2_6_1;
yy_6_1_1_2_1 = ((yy)yy_6_1_1_2[1]);
yy_6_1_1_2_2 = ((yy)yy_6_1_1_2[2]);
if (yy_6_1_1_2_2[0] != 1) goto yyfl_41_2_6_1;
yy_6_1_1_2_2_1 = ((yy)yy_6_1_1_2_2[1]);
yy_6_1_1_2_2_2 = ((yy)yy_6_1_1_2_2[2]);
yy_6_1_1_2_2_3 = ((yy)yy_6_1_1_2_2[3]);
yyv_ArgDefs = yy_6_1_1_2_2_2;
yy_6_1_2_1 = yyv_ArgDefs;
ArgDefTypes(yy_6_1_2_1, &yy_6_1_2_2);
yyv_Types = yy_6_1_2_2;
{
yy yysb = yyb;
yy_6_1_3_1_1_1 = yyv_Args;
yy_6_1_3_1_1_2 = yy_6_1_3_1_1_1;
if (yy_6_1_3_1_1_2[0] != 2) goto yyfl_41_2_6_1_3_1;
goto yysl_41_2_6_1_3;
yyfl_41_2_6_1_3_1 : ;
yy_6_1_3_2_1_1 = yyv_Args;
yy_6_1_3_2_1_2 = yyv_Types;
yy_6_1_3_2_1_3 = yyv_Pos;
DeclareRuleTempos_PATTERNLIST(yy_6_1_3_2_1_1, yy_6_1_3_2_1_2, yy_6_1_3_2_1_3);
goto yysl_41_2_6_1_3;
yysl_41_2_6_1_3 : ;
yyb = yysb;
}
goto yysl_41_2_6;
yyfl_41_2_6_1 : ;
yy_6_2_1_1 = ((yy)"'");
yy_6_2_1_2 = yyv_Functor;
yy_6_2_1_3 = ((yy)"' not declared as functor");
yy_6_2_1_4 = yyv_Pos;
ErrorI(yy_6_2_1_1, yy_6_2_1_2, yy_6_2_1_3, yy_6_2_1_4);
goto yysl_41_2_6;
yysl_41_2_6 : ;
yyb = yysb;
}
return;
yyfl_41_2 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yyv_Pattern;
yy yy_0_1_2;
yy yyv_Pos;
yy yy_0_1_3;
yy yyv_Type;
yy yy_0_2;
yy yy_1_1;
yy yy_1_2;
yy yy_2_1_1_1;
yy yy_2_1_1_2;
yy yyv_Functor;
yy yy_2_1_1_2_1;
yy yy_2_1_1_2_2;
yy yy_2_1_1_2_3;
yy yy_2_1_1_2_4;
yy yy_2_1_2_1;
yy yy_2_1_2_2;
yy yy_2_2_1_1;
yy yy_2_2_1_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 3) goto yyfl_41_3;
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_Pattern = yy_0_1_2;
yyv_Pos = yy_0_1_3;
yyv_Type = yy_0_2;
yy_1_1 = yyv_Pattern;
yy_1_2 = yyv_Type;
DeclareRuleTempos_PATTERN(yy_1_1, yy_1_2);
{
yy yysb = yyb;
yy_2_1_1_1 = yyv_Pattern;
yy_2_1_1_2 = yy_2_1_1_1;
if (yy_2_1_1_2[0] != 2) goto yyfl_41_3_2_1;
yy_2_1_1_2_1 = ((yy)yy_2_1_1_2[1]);
yy_2_1_1_2_2 = ((yy)yy_2_1_1_2[2]);
yy_2_1_1_2_3 = ((yy)yy_2_1_1_2[3]);
yy_2_1_1_2_4 = ((yy)yy_2_1_1_2[4]);
yyv_Functor = yy_2_1_1_2_1;
yy_2_1_2_1 = yyv_Id;
yy_2_1_2_2 = yyv_Functor;
TemplDeclareTildeVar(yy_2_1_2_1, yy_2_1_2_2);
goto yysl_41_3_2;
yyfl_41_3_2_1 : ;
yy_2_2_1_1 = ((yy)"invalid form of named pattern");
yy_2_2_1_2 = yyv_Pos;
Error(yy_2_2_1_1, yy_2_2_1_2);
goto yysl_41_3_2;
yysl_41_3_2 : ;
yyb = yysb;
}
return;
yyfl_41_3 : ;
}
yyErr(2,442);
}
ArgDefTypes(yyin_1, yyout_1)
yy yyin_1;
yy *yyout_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_0_2;
yy yy_0_2_1;
yy yy_0_2_2;
yy yy_1_1;
yy yy_1_2;
yy yyv_TypeH;
yy yy_1_2_1;
yy yy_1_2_2;
yy yy_1_2_3;
yy yy_2_1;
yy yyv_TypeT;
yy yy_2_2;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_42_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;
yyb = yyh;
yyh += 3; if (yyh > yyhx) yyExtend();
yy_1_1 = yyv_H;
yy_1_2 = yy_1_1;
if (yy_1_2[0] != 1) goto yyfl_42_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_TypeH = yy_1_2_1;
yy_2_1 = yyv_T;
ArgDefTypes(yy_2_1, &yy_2_2);
yyv_TypeT = yy_2_2;
yy_0_2_1 = yyv_TypeH;
yy_0_2_2 = yyv_TypeT;
yy_0_2 = yyb + 0;
yy_0_2[0] = 1;
yy_0_2[1] = ((long)yy_0_2_1);
yy_0_2[2] = ((long)yy_0_2_2);
*yyout_1 = yy_0_2;
return;
yyfl_42_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_42_2;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_0_2 = yyb + 0;
yy_0_2[0] = 2;
*yyout_1 = yy_0_2;
return;
yyfl_42_2 : ;
}
yyErr(2,473);
}
DetermineMatchTypes(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_RuleList;
yy yy_0_2;
yy yyv_Pos;
yy yy_0_3;
yy yy_0_4;
yy yy_0_4_1;
yy yy_0_4_2;
yy yy_1_1;
yy yy_1_2;
yy yy_1_2_1;
yy yy_1_2_2;
yy yyv_SrcPos;
yy yy_1_2_3;
yy yy_2_1;
yy yy_2_2;
yy yy_2_3;
yy yyv_HdType;
yy yy_2_4;
yy yy_3_1;
yy yy_3_2;
yy yy_3_3;
yy yy_3_3_1;
yy yy_3_3_2;
yy yyv_TlTypes;
yy yy_3_4;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_43_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_RuleList = yy_0_2;
yyv_Pos = yy_0_3;
yyb = yyh;
yyh += 3; if (yyh > yyhx) yyExtend();
yy_1_1 = yyv_Hd;
yy_1_2 = yy_1_1;
if (yy_1_2[0] != 1) goto yyfl_43_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_SrcPos = yy_1_2_3;
yy_2_1 = yyv_RuleList;
yy_2_2 = yyv_Pos;
yy_2_3 = yyv_SrcPos;
DetermineMatchType(yy_2_1, yy_2_2, yy_2_3, &yy_2_4);
yyv_HdType = yy_2_4;
yy_3_1 = yyv_Tl;
yy_3_2 = yyv_RuleList;
yy_3_3_1 = yyv_Pos;
yy_3_3_2 = ((yy)1);
yy_3_3 = (yy)(((long)yy_3_3_1)+((long)yy_3_3_2));
DetermineMatchTypes(yy_3_1, yy_3_2, yy_3_3, &yy_3_4);
yyv_TlTypes = yy_3_4;
yy_0_4_1 = yyv_HdType;
yy_0_4_2 = yyv_TlTypes;
yy_0_4 = yyb + 0;
yy_0_4[0] = 1;
yy_0_4[1] = ((long)yy_0_4_1);
yy_0_4[2] = ((long)yy_0_4_2);
*yyout_1 = yy_0_4;
return;