actions.c

編譯器的accent語法分析器

yy_7_1 = ((yy)"switch (yyselect()) {");
Put(yy_7_1);
Nl();
yy_9_1 = yyv_Alternatives;
put_actions_ALTERNATIVELIST(yy_9_1);
indent();
yy_11_1 = ((yy)"default: goto yy");
Put(yy_11_1);
yy_12_1 = yyv_L;
PutI(yy_12_1);
yy_13_1 = ((yy)";");
Put(yy_13_1);
Nl();
indent();
yy_16_1 = ((yy)"}");
Put(yy_16_1);
Nl();
yy_18_1_1 = ((yy)1);
yy_18_1 = (yy)(-((long)yy_18_1_1));
indentation(yy_18_1);
indent();
yy_20_1 = ((yy)"}");
Put(yy_20_1);
Nl();
indent();
yy_23_1 = ((yy)"yy");
Put(yy_23_1);
yy_24_1 = yyv_L;
PutI(yy_24_1);
yy_25_1 = ((yy)": ;");
Put(yy_25_1);
Nl();
return;
yyfl_9_4 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_Alternatives;
yy yy_0_1_2;
yy yyv_Key;
yy yy_0_1_3;
yy yy_0_1_4;
yy yyv_Coordinate;
yy yy_0_1_5;
yy yy_2_1;
yy yy_4_1;
yy yy_6_1;
yy yy_9_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 3) goto yyfl_9_5;
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]);
if (yy_0_1_1[0] != 4) goto yyfl_9_5;
yyv_Alternatives = yy_0_1_2;
yyv_Key = yy_0_1_3;
yyv_Coordinate = yy_0_1_5;
indent();
yy_2_1 = ((yy)"switch (yyselect()) {");
Put(yy_2_1);
Nl();
yy_4_1 = yyv_Alternatives;
put_actions_ALTERNATIVELIST(yy_4_1);
indent();
yy_6_1 = ((yy)"default: printf(\"???\\n\"); exit(1);");
Put(yy_6_1);
Nl();
indent();
yy_9_1 = ((yy)"}");
Put(yy_9_1);
Nl();
return;
yyfl_9_5 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_Blk;
yy yy_0_1_1;
yy yy_1_1;
yy yy_1_2;
yy yy_1_3;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 4) goto yyfl_9_6;
yy_0_1_1 = ((yy)yy_0_1[1]);
yyv_Blk = yy_0_1_1;
yy_1_1 = ((yy)"");
yy_1_2 = yyv_Blk;
yy_1_3 = ((yy)"");
put_CodeBlock(yy_1_1, yy_1_2, yy_1_3);
return;
yyfl_9_6 : ;
}
yyErr(2,198);
}
put_actions_ALTERNATIVELIST(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_10_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;
put_actions_ALTERNATIVE(yy_1_1);
yy_2_1 = yyv_T;
put_actions_ALTERNATIVELIST(yy_2_1);
return;
yyfl_10_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_10_2;
return;
yyfl_10_2 : ;
}
yyErr(2,306);
}
put_actions_ALTERNATIVE(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Members;
yy yy_0_1_1;
yy yyv_AlternativeKey;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Coordinate;
yy yy_0_1_4;
yy yyv_ClauseKey;
yy yy_2;
yy yyv_Number;
yy yy_3;
yy yy_4_1;
yy yy_5_1;
yy yy_6_1;
yy yy_8_1;
yy yy_8_1_1;
yy yy_9_1;
yy yy_11_1;
yy yy_13_1;
yy yy_13_1_1;
yy_0_1 = yyin_1;
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]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yy_0_1_4 = ((yy)yy_0_1[4]);
yyv_Members = yy_0_1_1;
yyv_AlternativeKey = yy_0_1_2;
yyv_Coordinate = yy_0_1_4;
indent();
yy_2 = (yy) yyv_AlternativeKey[3];
if (yy_2 == (yy) yyu) yyErr(1,316);
yyv_ClauseKey = yy_2;
yy_3 = (yy) yyv_ClauseKey[7];
if (yy_3 == (yy) yyu) yyErr(1,317);
yyv_Number = yy_3;
yy_4_1 = ((yy)"case ");
Put(yy_4_1);
yy_5_1 = yyv_Number;
PutI(yy_5_1);
yy_6_1 = ((yy)": {");
Put(yy_6_1);
Nl();
yy_8_1_1 = ((yy)1);
yy_8_1 = (yy)(((long)yy_8_1_1));
indentation(yy_8_1);
yy_9_1 = yyv_Members;
put_actions_MEMBERLIST(yy_9_1);
indent();
yy_11_1 = ((yy)"} break;");
Put(yy_11_1);
Nl();
yy_13_1_1 = ((yy)1);
yy_13_1 = (yy)(-((long)yy_13_1_1));
indentation(yy_13_1);
return;
yyfl_11_1 : ;
}
yyErr(2,312);
}
handle_formal_params_1(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 yy_2_2;
yy yy_2_2_1;
yy yy_2_2_2;
yy yyv_Name;
yy yy_2_2_3;
yy yy_2_2_4;
yy yy_3_1;
yy yy_3_2;
yy yy_4_1_1_1;
yy yy_4_1_1_2;
yy yy_4_1_2_1;
yy yy_5_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_12_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;
handle_formal_param_1(yy_1_1);
yy_2_1 = yyv_H;
yy_2_2 = yy_2_1;
if (yy_2_2[0] != 1) goto yyfl_12_1;
yy_2_2_1 = ((yy)yy_2_2[1]);
yy_2_2_2 = ((yy)yy_2_2[2]);
yy_2_2_3 = ((yy)yy_2_2[3]);
yy_2_2_4 = ((yy)yy_2_2[4]);
yyv_Name = yy_2_2_3;
yy_3_1 = yyv_Name;
yy_3_2 = yyv_T;
check_formal_param(yy_3_1, yy_3_2);
{
yy yysb = yyb;
yy_4_1_1_1 = yyv_T;
yy_4_1_1_2 = yy_4_1_1_1;
if (yy_4_1_1_2[0] != 1) goto yyfl_12_1_4_1;
yy_4_1_2_1 = ((yy)", ");
Put(yy_4_1_2_1);
goto yysl_12_1_4;
yyfl_12_1_4_1 : ;
goto yysl_12_1_4;
yysl_12_1_4 : ;
yyb = yysb;
}
yy_5_1 = yyv_T;
handle_formal_params_1(yy_5_1);
return;
yyfl_12_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_12_2;
return;
yyfl_12_2 : ;
}
yyErr(2,357);
}
handle_formal_param_1(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Mode;
yy yy_0_1_1;
yy yyv_Type;
yy yy_0_1_2;
yy yyv_Name;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_1_1;
yy yyv_NStr;
yy yy_1_2;
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]);
yy_0_1_3 = ((yy)yy_0_1[3]);
yy_0_1_4 = ((yy)yy_0_1[4]);
yyv_Mode = yy_0_1_1;
yyv_Type = yy_0_1_2;
yyv_Name = yy_0_1_3;
yyv_Pos = yy_0_1_4;
yy_1_1 = yyv_Name;
id_to_string(yy_1_1, &yy_1_2);
yyv_NStr = yy_1_2;
yy_2_1 = yyv_NStr;
Put(yy_2_1);
return;
yyfl_13_1 : ;
}
yyErr(2,369);
}
check_formal_param(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yyv_Name1;
yy yy_0_1;
yy yy_0_2;
yy yy_0_2_1;
yy yy_0_2_1_1;
yy yy_0_2_1_2;
yy yyv_Name2;
yy yy_0_2_1_3;
yy yyv_Pos;
yy yy_0_2_1_4;
yy yyv_Tl;
yy yy_0_2_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 yy_2_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yyv_Name1 = 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]);
yy_0_2_1_4 = ((yy)yy_0_2_1[4]);
yyv_Name2 = yy_0_2_1_3;
yyv_Pos = yy_0_2_1_4;
yyv_Tl = yy_0_2_2;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_Name1;
yy_1_1_1_2 = yyv_Name2;
if (! yyeq_IDENT(yy_1_1_1_1, yy_1_1_1_2)) goto yyfl_14_1_1_1;
yy_1_1_2_1 = ((yy)"formal parameter '");
yy_1_1_2_2 = yyv_Name1;
yy_1_1_2_3 = ((yy)"' declared more than once");
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_14_1_1;
yyfl_14_1_1_1 : ;
goto yysl_14_1_1;
yysl_14_1_1 : ;
yyb = yysb;
}
yy_2_1 = yyv_Name1;
yy_2_2 = yyv_Tl;
check_formal_param(yy_2_1, yy_2_2);
return;
yyfl_14_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_2[0] != 2) goto yyfl_14_2;
return;
yyfl_14_2 : ;
}
yyErr(2,374);
}
handle_formal_params_2(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_15_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;
handle_formal_param_2(yy_1_1);
yy_2_1 = yyv_T;
handle_formal_params_2(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,385);
}
handle_formal_param_2(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Mode;
yy yy_0_1_1;
yy yyv_Type;
yy yy_0_1_2;
yy yyv_Name;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_1_1;
yy yyv_TStr;
yy yy_1_2;
yy yy_2_1;
yy yy_3_1;
yy yy_4_1;
yy yy_5_1_1_1;
yy yy_5_1_1_2;
yy yy_5_1_2_1;
yy yy_6_1;
yy yyv_NStr;
yy yy_6_2;
yy yy_7_1;
yy yy_8_1;
yy yy_10_1;
yy yy_10_2;
yy yy_10_3;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_16_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_Mode = yy_0_1_1;
yyv_Type = yy_0_1_2;
yyv_Name = yy_0_1_3;
yyv_Pos = yy_0_1_4;
yy_1_1 = yyv_Type;
id_to_string(yy_1_1, &yy_1_2);
yyv_TStr = yy_1_2;
yy_2_1 = ((yy)"   ");
Put(yy_2_1);
yy_3_1 = yyv_TStr;
Put(yy_3_1);
yy_4_1 = ((yy)" ");
Put(yy_4_1);
{
yy yysb = yyb;
yy_5_1_1_1 = yyv_Mode;
yy_5_1_1_2 = yy_5_1_1_1;
if (yy_5_1_1_2[0] != 2) goto yyfl_16_1_5_1;
yy_5_1_2_1 = ((yy)"*");
Put(yy_5_1_2_1);
goto yysl_16_1_5;
yyfl_16_1_5_1 : ;
goto yysl_16_1_5;
yysl_16_1_5 : ;
yyb = yysb;
}
yy_6_1 = yyv_Name;
id_to_string(yy_6_1, &yy_6_2);
yyv_NStr = yy_6_2;
yy_7_1 = yyv_NStr;
Put(yy_7_1);
yy_8_1 = ((yy)";");
Put(yy_8_1);
Nl();
yy_10_1 = yyv_Mode;
yy_10_2 = yyv_Type;
yy_10_3 = yyv_Name;
define_local_name(yy_10_1, yy_10_2, yy_10_3);
return;
yyfl_16_1 : ;
}
yyErr(2,393);
}
handle_actual_params(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_1_3;
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_1_1;
yy yy_2_1_1_2;
yy yy_2_1_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_17_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_H = yy_0_1_1;
yyv_T = yy_0_1_2;
if (yy_0_2[0] != 1) goto yyfl_17_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;
handle_actual_param(yy_1_1, yy_1_2);
{
yy yysb = yyb;
yy_2_1_1_1 = yyv_T;
yy_2_1_1_2 = yy_2_1_1_1;
if (yy_2_1_1_2[0] != 1) goto yyfl_17_1_2_1;
yy_2_1_2_1 = ((yy)", ");
Put(yy_2_1_2_1);
goto yysl_17_1_2;
yyfl_17_1_2_1 : ;
goto yysl_17_1_2;
yysl_17_1_2 : ;
yyb = yysb;
}
yy_3_1 = yyv_T;
yy_3_2 = yyv_T2;
handle_actual_params(yy_3_1, yy_3_2);
return;
yyfl_17_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_17_2;
if (yy_0_2[0] != 2) goto yyfl_17_2;
return;
yyfl_17_2 : ;
}
yyErr(2,413);
}
handle_actual_param(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 yy_0_2;
yy yyv_FMode;
yy yy_0_2_1;
yy yyv_FType;
yy yy_0_2_2;
yy yy_0_2_3;
yy yy_0_2_4;
yy yy_1_1;
yy yyv_AMode;
yy yy_1_2;
yy yy_1_3;
yy yy_2_1_1_1;
yy yy_2_1_1_2;
yy yy_2_1_2_1_1_1;
yy yy_2_1_2_1_1_2;
yy yy_2_1_2_2_1_1;
yy yy_2_2_1_1_1_1;
yy yy_2_2_1_1_1_2;
yy yy_2_2_1_1_2_1;
yy yy_3_1;
yy yyv_Str;
yy yy_3_2;
yy yy_4_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_18_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Id = yy_0_1_1;
if (yy_0_2[0] != 1) goto yyfl_18_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yy_0_2_3 = ((yy)yy_0_2[3]);
yy_0_2_4 = ((yy)yy_0_2[4]);
yyv_FMode = yy_0_2_1;
yyv_FType = yy_0_2_2;
yy_1_1 = yyv_Id;
if (! defined_locally(yy_1_1, &yy_1_2, &yy_1_3)) goto yyfl_18_1;
yyv_AMode = yy_1_2;
{
yy yysb = yyb;
yy_2_1_1_1 = yyv_FMode;
yy_2_1_1_2 = yy_2_1_1_1;
if (yy_2_1_1_2[0] != 2) goto yyfl_18_1_2_1;
{
yy yysb = yyb;
yy_2_1_2_1_1_1 = yyv_AMode;
yy_2_1_2_1_1_2 = yy_2_1_2_1_1_1;
if (yy_2_1_2_1_1_2[0] != 2) goto yyfl_18_1_2_1_2_1;
goto yysl_18_1_2_1_2;
yyfl_18_1_2_1_2_1 : ;
yy_2_1_2_2_1_1 = ((yy)"&");
Put(yy_2_1_2_2_1_1);
goto yysl_18_1_2_1_2;
yysl_18_1_2_1_2 : ;
yyb = yysb;
}
goto yysl_18_1_2;
yyfl_18_1_2_1 : ;
{
yy yysb = yyb;
yy_2_2_1_1_1_1 = yyv_AMode;
yy_2_2_1_1_1_2 = yy_2_2_1_1_1_1;
if (yy_2_2_1_1_1_2[0] != 2) goto yyfl_18_1_2_2_1_1;
yy_2_2_1_1_2_1 = ((yy)"*");
Put(yy_2_2_1_1_2_1);
goto yysl_18_1_2_2_1;
yyfl_18_1_2_2_1_1 : ;
goto yysl_18_1_2_2_1;
yysl_18_1_2_2_1 : ;
yyb = yysb;
}
goto yysl_18_1_2;
yysl_18_1_2 : ;
yyb = yysb;
}
yy_3_1 = yyv_Id;
id_to_string(yy_3_1, &yy_3_2);
yyv_Str = yy_3_2;
yy_4_1 = yyv_Str;
Put(yy_4_1);
return;
yyfl_18_1 : ;
}
yyErr(2,420);
}
handle_token_params(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_1_3;
yy yy_0_2;
yy yyv_H2;
yy yy_0_2_1;
yy yyv_T2;
yy yy_0_2_2;
yy yyv_N;
yy yy_0_3;
yy yy_1_1;
yy yy_1_2;
yy yy_1_3;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_19_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_H = yy_0_1_1;
yyv_T = yy_0_1_2;
if (yy_0_2[0] != 1) goto yyfl_19_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;
yyv_N = yy_0_3;
yy_1_1 = yyv_H;
yy_1_2 = yyv_H2;
yy_1_3 = yyv_N;
handle_token_param(yy_1_1, yy_1_2, yy_1_3);
return;
yyfl_19_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_19_2;
return;
yyfl_19_2 : ;
}
yyErr(2,445);
}
handle_token_param(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yy_0_1_2;
yy yy_0_2;
yy yyv_FMode;
yy yy_0_2_1;
yy yyv_FType;
yy yy_0_2_2;
yy yy_0_2_3;
yy yy_0_2_4;
yy yyv_N;
yy yy_0_3;
yy yy_1_1;
yy yyv_AMode;
yy yy_1_2;
yy yy_1_3;
yy yy_3_1_1_1;
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 yy_4_1;
yy yyv_IdStr;
yy yy_4_2;
yy yy_5_1;
yy yy_6_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
if (yy_0_1[0] != 1) goto yyfl_20_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Id = yy_0_1_1;
if (yy_0_2[0] != 1) goto yyfl_20_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yy_0_2_3 = ((yy)yy_0_2[3]);
yy_0_2_4 = ((yy)yy_0_2[4]);
yyv_FMode = yy_0_2_1;
yyv_FType = yy_0_2_2;
yyv_N = yy_0_3;
yy_1_1 = yyv_Id;
if (! defined_locally(yy_1_1, &yy_1_2, &yy_1_3)) goto yyfl_20_1;
yyv_AMode = yy_1_2;
indent();
{
yy yysb = yyb;
yy_3_1_1_1 = yyv_FMode;
yy_3_1_1_2 = yy_3_1_1_1;
if (yy_3_1_1_2[0] != 2) goto yyfl_20_1_3_1;
{
yy yysb = yyb;
yy_3_1_2_1_1_1 = yyv_AMode;
yy_3_1_2_1_1_2 = yy_3_1_2_1_1_1;
if (yy_3_1_2_1_1_2[0] != 2) goto yyfl_20_1_3_1_2_1;
yy_3_1_2_1_2_1 = ((yy)"*");
Put(yy_3_1_2_1_2_1);
goto yysl_20_1_3_1_2;
yyfl_20_1_3_1_2_1 : ;
goto yysl_20_1_3_1_2;
yysl_20_1_3_1_2 : ;
yyb = yysb;
}
goto yysl_20_1_3;
yyfl_20_1_3_1 : ;
goto yysl_20_1_3;
yysl_20_1_3 : ;
yyb = yysb;
}
yy_4_1 = yyv_Id;
id_to_string(yy_4_1, &yy_4_2);
yyv_IdStr = yy_4_2;
yy_5_1 = yyv_IdStr;
Put(yy_5_1);
yy_6_1 = ((yy)" = yylval;");
Put(yy_6_1);
Nl();
return;
yyfl_20_1 : ;
}
yyErr(2,451);
}
UniqueLabel(yyout_1)
yy *yyout_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_N;
yy yy_1;
yy yy_2;
yy yy_2_1;
yy yy_2_2;
yy_1 = yyglov_LabelCount;
if (yy_1 == (yy) yyu) yyErr(1,480);
yyv_N = yy_1;
yy_2_1 = yyv_N;