cpp.c

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

typedef long * yy;
#define yyu (-2147483647L)
static yy yynull;
extern yy yyh;
extern yy yyhx;
static yyErr(n,l)
{
yyAbort(n,"cpp", l);
}
extern yy yyglov_FirstWithPos;
yy yyglov_InsideMODULELIST = (yy) yyu;
yyeq_FLAG(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_FLAG(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("yes");
yyNoArgs();
break;
case 2: 
yyTerm("no");
yyNoArgs();
break;
}
}
yybroadcast_FLAG(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_FLAG, t, In, Out)) {
switch(t[0]) {
case 1: 
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_Flag(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_Flag(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("yes");
yyNoArgs();
break;
case 2: 
yyTerm("no");
yyNoArgs();
break;
}
}
yybroadcast_Flag(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_Flag, t, In, Out)) {
switch(t[0]) {
case 1: 
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yy yyglov_HeaderAndConstructorsEmitted = (yy) yyu;
yy yyglov_DeclList = (yy) yyu;
yy yyglov_CurMatchNumber = (yy) yyu;
yy yyglov_CurRuleNumber = (yy) yyu;
yy yyglov_CurTmpList = (yy) yyu;
yy yyglov_ListOfLocalVars = (yy) yyu;
cppwalker(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yyv_L;
yy yy_0_1;
yy yyv_M;
yy yy_0_2;
yy yy_1;
yy yy_2_1;
yy yy_3;
yy yy_4_1;
yy yy_5;
yy yyv_Name;
yy yy_7_1;
yy yy_8_1;
yy yy_8_2;
yy yy_9;
yy yy_10;
yy yy_11_1;
yy yy_12_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yyv_L = yy_0_1;
yyv_M = yy_0_2;
yyb = yyh;
yyh += 4; if (yyh > yyhx) yyExtend();
yy_1 = yyb + 0;
yy_1[0] = 2;
yyglov_InsideMODULELIST = yy_1;
yy_2_1 = yyv_L;
ProcessDomains_DECLLIST(yy_2_1);
yy_3 = yyb + 1;
yy_3[0] = 1;
yyglov_InsideMODULELIST = yy_3;
yy_4_1 = yyv_M;
ProcessDomains_MODULELIST(yy_4_1);
yy_5 = yyb + 2;
yy_5[0] = 2;
yyglov_InsideMODULELIST = yy_5;
InitVisits();
get_basename(&yy_7_1);
yyv_Name = yy_7_1;
yy_8_1 = yyv_Name;
yy_8_2 = ((yy)"cpp");
OpenOutputWithExtension(yy_8_1, yy_8_2);
yy_9 = yyb + 3;
yy_9[0] = 2;
yyglov_HeaderAndConstructorsEmitted = yy_9;
yy_10 = yyv_L;
yyglov_DeclList = yy_10;
yy_11_1 = yyv_L;
EmitDomainForwardDecls(yy_11_1);
yy_12_1 = yyv_L;
VisitDECLLIST(yy_12_1);
EmitFinalText();
CloseOutput();
return;
}
}
HeaderAndConstructors()
{
{
yy yyb;
yy yy_1_1_1;
yy yyv_L;
yy yy_1_1_2;
yy yy_1_1_3_1;
yy yy_1_1_4;
{
yy yysb = yyb;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1_1_1 = yyglov_HeaderAndConstructorsEmitted;
if (yy_1_1_1 == (yy) yyu) yyErr(1,52);
if (yy_1_1_1[0] != 2) goto yyfl_4_1_1_1;
yy_1_1_2 = yyglov_DeclList;
if (yy_1_1_2 == (yy) yyu) yyErr(1,53);
yyv_L = yy_1_1_2;
yy_1_1_3_1 = yyv_L;
CppFileHeader(yy_1_1_3_1);
yy_1_1_4 = yyb + 0;
yy_1_1_4[0] = 1;
yyglov_HeaderAndConstructorsEmitted = yy_1_1_4;
goto yysl_4_1_1;
yyfl_4_1_1_1 : ;
goto yysl_4_1_1;
yysl_4_1_1 : ;
yyb = yysb;
}
return;
}
}
ProcessDomains_DECLLIST(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_2_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_8_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;
ProcessDomains_DECL(yy_1_1);
yy_2_1 = yyv_T;
ProcessDomains_DECLLIST(yy_2_1);
return;
yyfl_8_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_8_2;
return;
yyfl_8_2 : ;
}
yyErr(2,73);
}
ProcessDomains_DECL(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Def;
yy yy_0_1_1;
yy yyv_Start;
yy yy_0_1_2;
yy yyv_Stop;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_1_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 4) goto yyfl_9_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_Def = yy_0_1_1;
yyv_Start = yy_0_1_2;
yyv_Stop = yy_0_1_3;
yyv_Pos = yy_0_1_4;
yy_1_1 = yyv_Def;
DeclareDomain(yy_1_1);
return;
yyfl_9_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
return;
yyfl_9_2 : ;
}
yyErr(2,83);
}
DeclareDomain(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yyv_D;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_Id;
yy yy_0_1_1_1;
yy yyv_FunctorDefs;
yy yy_0_1_1_2;
yy yyv_Pos;
yy yy_0_1_1_3;
yy yy_1_1_1_1;
yy yyv_Meaning;
yy yy_1_1_1_2;
yy yy_1_1_2_1_1;
yy yy_1_1_2_1_2_1;
yy yy_1_1_2_1_2_2;
yy yy_1_1_2_1_2_3;
yy yy_1_1_2_1_2_4;
yy yy_1_1_2_2_1;
yy yyv_WithPos;
yy yy_1_1_2_2_1_1;
yy yy_1_1_2_2_2_1;
yy yy_1_1_2_2_2_2;
yy yy_1_1_2_2_2_3;
yy yy_1_1_2_2_2_4;
yy yy_2_1;
yy yy_2_2;
yy yy_2_2_1;
yy yy_3_1;
yy yy_3_2;
yy_0_1 = yyin_1;
yy_0_1_1 = yy_0_1;
yyv_D = yy_0_1;
if (yy_0_1_1[0] != 1) goto yyfl_10_1;
yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
yy_0_1_1_3 = ((yy)yy_0_1_1[3]);
yyv_Id = yy_0_1_1_1;
yyv_FunctorDefs = yy_0_1_1_2;
yyv_Pos = yy_0_1_1_3;
yyb = yyh;
yyh += 2; if (yyh > yyhx) yyExtend();
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Id;
if (! HasMeaning(yy_1_1_1_1, &yy_1_1_1_2)) goto yyfl_10_1_1_1;
yyv_Meaning = yy_1_1_1_2;
{
yy yysb = yyb;
yy_1_1_2_1_1 = yyglov_InsideMODULELIST;
if (yy_1_1_2_1_1 == (yy) yyu) yyErr(1,93);
if (yy_1_1_2_1_1[0] != 2) goto yyfl_10_1_1_1_2_1;
yy_1_1_2_1_2_1 = ((yy)"multiple declaration of '");
yy_1_1_2_1_2_2 = yyv_Id;
yy_1_1_2_1_2_3 = ((yy)"'");
yy_1_1_2_1_2_4 = yyv_Pos;
ErrorI(yy_1_1_2_1_2_1, yy_1_1_2_1_2_2, yy_1_1_2_1_2_3, yy_1_1_2_1_2_4);
goto yysl_10_1_1_1_2;
yyfl_10_1_1_1_2_1 : ;
yy_1_1_2_2_1 = yyglov_FirstWithPos;
if (yy_1_1_2_2_1 == (yy) yyu) yyErr(1,96);
if (yy_1_1_2_2_1[0] != 2) goto yyfl_10_1_1_1_2_2;
yy_1_1_2_2_1_1 = ((yy)yy_1_1_2_2_1[1]);
yyv_WithPos = yy_1_1_2_2_1_1;
yy_1_1_2_2_2_1 = ((yy)"multiple declaration of '");
yy_1_1_2_2_2_2 = yyv_Id;
yy_1_1_2_2_2_3 = ((yy)"' in imported modules");
yy_1_1_2_2_2_4 = yyv_WithPos;
ErrorI(yy_1_1_2_2_2_1, yy_1_1_2_2_2_2, yy_1_1_2_2_2_3, yy_1_1_2_2_2_4);
goto yysl_10_1_1_1_2;
yyfl_10_1_1_1_2_2 : ;
goto yyfl_10_1_1_1;
yysl_10_1_1_1_2 : ;
yyb = yysb;
}
goto yysl_10_1_1;
yyfl_10_1_1_1 : ;
goto yysl_10_1_1;
yysl_10_1_1 : ;
yyb = yysb;
}
yy_2_1 = yyv_Id;
yy_2_2_1 = yyv_D;
yy_2_2 = yyb + 0;
yy_2_2[0] = 1;
yy_2_2[1] = ((long)yy_2_2_1);
DefMeaning(yy_2_1, yy_2_2);
yy_3_1 = yyv_FunctorDefs;
yy_3_2 = yyv_Id;
DeclareFunctors(yy_3_1, yy_3_2);
return;
yyfl_10_1 : ;
}
yyErr(2,88);
}
DeclareFunctors(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 yyv_Id;
yy yy_0_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_11_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;
yyv_Id = yy_0_2;
yy_1_1 = yyv_H;
yy_1_2 = yyv_Id;
DeclareFunctor(yy_1_1, yy_1_2);
yy_2_1 = yyv_T;
yy_2_2 = yyv_Id;
DeclareFunctors(yy_2_1, yy_2_2);
return;
yyfl_11_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_11_2;
return;
yyfl_11_2 : ;
}
yyErr(2,104);
}
DeclareFunctor(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yyv_Def;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_Functor;
yy yy_0_1_1_1;
yy yyv_Args;
yy yy_0_1_1_2;
yy yyv_Pos;
yy yy_0_1_1_3;
yy yyv_Type;
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_1;
yy yy_1_1_2_1_2_1;
yy yy_1_1_2_1_2_2;
yy yy_1_1_2_1_2_3;
yy yy_1_1_2_1_2_4;
yy yy_1_1_2_2_1;
yy yyv_WithPos;
yy yy_1_1_2_2_1_1;
yy yy_1_1_2_2_2_1;
yy yy_1_1_2_2_2_2;
yy yy_1_1_2_2_2_3;
yy yy_1_1_2_2_2_4;
yy yy_2_1_1;
yy yy_2_1_2_1;
yy yy_3_1;
yy yy_3_2;
yy yy_3_2_1;
yy yy_3_2_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_1_1 = yy_0_1;
yyv_Def = yy_0_1;
if (yy_0_1_1[0] != 1) goto yyfl_12_1;
yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
yy_0_1_1_3 = ((yy)yy_0_1_1[3]);
yyv_Functor = yy_0_1_1_1;
yyv_Args = yy_0_1_1_2;
yyv_Pos = yy_0_1_1_3;
yyv_Type = yy_0_2;
yyb = yyh;
yyh += 3; if (yyh > yyhx) yyExtend();
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Functor;
if (! HasMeaning(yy_1_1_1_1, &yy_1_1_1_2)) goto yyfl_12_1_1_1;
yyv_Meaning = yy_1_1_1_2;
{
yy yysb = yyb;
yy_1_1_2_1_1 = yyglov_InsideMODULELIST;
if (yy_1_1_2_1_1 == (yy) yyu) yyErr(1,115);
if (yy_1_1_2_1_1[0] != 2) goto yyfl_12_1_1_1_2_1;
yy_1_1_2_1_2_1 = ((yy)"multiple declaration of '");
yy_1_1_2_1_2_2 = yyv_Functor;
yy_1_1_2_1_2_3 = ((yy)"'");
yy_1_1_2_1_2_4 = yyv_Pos;
ErrorI(yy_1_1_2_1_2_1, yy_1_1_2_1_2_2, yy_1_1_2_1_2_3, yy_1_1_2_1_2_4);
goto yysl_12_1_1_1_2;
yyfl_12_1_1_1_2_1 : ;
yy_1_1_2_2_1 = yyglov_FirstWithPos;
if (yy_1_1_2_2_1 == (yy) yyu) yyErr(1,118);
if (yy_1_1_2_2_1[0] != 2) goto yyfl_12_1_1_1_2_2;
yy_1_1_2_2_1_1 = ((yy)yy_1_1_2_2_1[1]);
yyv_WithPos = yy_1_1_2_2_1_1;
yy_1_1_2_2_2_1 = ((yy)"multiple declaration of '");
yy_1_1_2_2_2_2 = yyv_Functor;
yy_1_1_2_2_2_3 = ((yy)"' in imported modules");
yy_1_1_2_2_2_4 = yyv_WithPos;
ErrorI(yy_1_1_2_2_2_1, yy_1_1_2_2_2_2, yy_1_1_2_2_2_3, yy_1_1_2_2_2_4);
goto yysl_12_1_1_1_2;
yyfl_12_1_1_1_2_2 : ;
goto yyfl_12_1_1_1;
yysl_12_1_1_1_2 : ;
yyb = yysb;
}
goto yysl_12_1_1;
yyfl_12_1_1_1 : ;
goto yysl_12_1_1;
yysl_12_1_1 : ;
yyb = yysb;
}
{
yy yysb = yyb;
yy_2_1_1 = yyglov_InsideMODULELIST;
if (yy_2_1_1 == (yy) yyu) yyErr(1,124);
if (yy_2_1_1[0] != 2) goto yyfl_12_1_2_1;
yy_2_1_2_1 = yyv_Args;
CheckFunctorArgs(yy_2_1_2_1);
goto yysl_12_1_2;
yyfl_12_1_2_1 : ;
goto yysl_12_1_2;
yysl_12_1_2 : ;
yyb = yysb;
}
yy_3_1 = yyv_Functor;
yy_3_2_1 = yyv_Type;
yy_3_2_2 = yyv_Def;
yy_3_2 = yyb + 0;
yy_3_2[0] = 2;
yy_3_2[1] = ((long)yy_3_2_1);
yy_3_2[2] = ((long)yy_3_2_2);
DefMeaning(yy_3_1, yy_3_2);
return;
yyfl_12_1 : ;
}
yyErr(2,110);
}
CheckFunctorArgs(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_Type;
yy yy_0_1_1_1;
yy yyv_Selector;
yy yy_0_1_1_2;
yy yyv_Pos;
yy yy_0_1_1_3;
yy yyv_Tl;
yy yy_0_1_2;
yy yy_1_1_1_1;
yy yy_1_1_1_2;
yy yy_1_1_2_1;
yy yy_1_1_2_2;
yy yy_1_1_2_3;
yy yy_1_1_2_4;
yy yy_2_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_13_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
if (yy_0_1_1[0] != 1) goto yyfl_13_1;
yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
yy_0_1_1_3 = ((yy)yy_0_1_1[3]);
yyv_Type = yy_0_1_1_1;
yyv_Selector = yy_0_1_1_2;
yyv_Pos = yy_0_1_1_3;
yyv_Tl = yy_0_1_2;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Selector;
yy_1_1_1_2 = yyv_Tl;
if (! IsSelectorInArglist(yy_1_1_1_1, yy_1_1_1_2)) goto yyfl_13_1_1_1;
yy_1_1_2_1 = ((yy)"multiple occurence of field name '");
yy_1_1_2_2 = yyv_Selector;
yy_1_1_2_3 = ((yy)"'");
yy_1_1_2_4 = yyv_Pos;
ErrorI(yy_1_1_2_1, yy_1_1_2_2, yy_1_1_2_3, yy_1_1_2_4);
goto yysl_13_1_1;
yyfl_13_1_1_1 : ;
goto yysl_13_1_1;
yysl_13_1_1 : ;
yyb = yysb;
}
yy_2_1 = yyv_Tl;
CheckFunctorArgs(yy_2_1);
return;
yyfl_13_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_13_2;
return;
yyfl_13_2 : ;
}
yyErr(2,129);
}
int IsSelectorInArglist(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yyv_Id;
yy yy_0_1;
yy yy_0_2;
yy yy_0_2_1;
yy yy_0_2_1_1;
yy yyv_Selector;
yy yy_0_2_1_2;
yy yy_0_2_1_3;
yy yyv_Tl;
yy yy_0_2_2;
yy yy_1_1_1_1;
yy yy_1_1_1_2;
yy yy_1_2_1_1;
yy yy_1_2_1_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yyv_Id = yy_0_1;
if (yy_0_2[0] != 1) goto yyfl_14_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
if (yy_0_2_1[0] != 1) goto yyfl_14_1;
yy_0_2_1_1 = ((yy)yy_0_2_1[1]);
yy_0_2_1_2 = ((yy)yy_0_2_1[2]);
yy_0_2_1_3 = ((yy)yy_0_2_1[3]);
yyv_Selector = yy_0_2_1_2;
yyv_Tl = yy_0_2_2;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Selector;
yy_1_1_1_2 = yyv_Tl;
if (! IsSelectorInArglist(yy_1_1_1_1, yy_1_1_1_2)) goto yyfl_14_1_1_1;
goto yysl_14_1_1;
yyfl_14_1_1_1 : ;
yy_1_2_1_1 = yyv_Id;
yy_1_2_1_2 = yyv_Selector;
if (! yyeq_IDENT(yy_1_2_1_1, yy_1_2_1_2)) goto yyfl_14_1_1_2;
goto yysl_14_1_1;
yyfl_14_1_1_2 : ;
goto yyfl_14_1;
yysl_14_1_1 : ;
yyb = yysb;
}
return 1;
yyfl_14_1 : ;
}
return 0;
}
ProcessDomains_MODULELIST(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_DECLLIST;
yy yy_0_1_1_1;
yy yyv_T;
yy yy_0_1_2;
yy yy_1_1;
yy yy_2_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_15_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
if (yy_0_1_1[0] != 1) goto yyfl_15_1;
yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
yyv_DECLLIST = yy_0_1_1_1;
yyv_T = yy_0_1_2;
yy_1_1 = yyv_DECLLIST;
ProcessDomains_DECLLIST(yy_1_1);
yy_2_1 = yyv_T;
ProcessDomains_MODULELIST(yy_2_1);
return;
yyfl_15_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_15_2;
return;
yyfl_15_2 : ;
}
yyErr(2,149);
}
InitVisits()
{
{
yy yyb;
yy yy_1;
yy yy_1_1;
yy yy_2;
yy yy_2_1;
yy yy_3;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1_1 = ((yy)1);
yy_1 = (yy)(-((long)yy_1_1));
yyglov_CurMatchNumber = yy_1;
yy_2_1 = ((yy)1);
yy_2 = (yy)(-((long)yy_2_1));
yyglov_CurRuleNumber = yy_2;
yy_3 = yyb + 0;
yy_3[0] = 2;
yyglov_CurTmpList = yy_3;
return;
}
}
CppFileHeader(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yyv_DList;
yy yy_0_1;
yy yyv_Name;
yy yy_1_1;
yy yy_2_1;
yy yy_3_1;
yy_0_1 = yyin_1;
yyv_DList = yy_0_1;
get_basename(&yy_1_1);
yyv_Name = yy_1_1;
yy_2_1 = yyv_DList;
FFileIncludes(yy_2_1);
yy_3_1 = ((yy)"extern void MatchError(char *, int);");
Put(yy_3_1);
Nl();
return;
}
}
FFileIncludes(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_2_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_21_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;
FFileInclude(yy_1_1);
yy_2_1 = yyv_T;
FFileIncludes(yy_2_1);
return;
yyfl_21_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_21_2;
return;
yyfl_21_2 : ;
}
yyErr(2,196);
}
FFileInclude(yyin_1)
yy yyin_1;
{
{
yy yyb;