Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 

products/sources/formale sprachen/C/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: ebu.xml   Sprache: C

//----------------------------------------------------------------------
//
//  modifications by CO3
//
//----------------------------------------------------------------------
//  lines 244x "#line.." nach "//#line"    2mal
//
//CO3 var
int co3_repeat;
// Ende CO§
typedef long * yy;
#define yyu (-2147483647L)
static yy yynull;
extern yy yyh;
extern yy yyhx;
static yyErr(n,l)
{
yyAbort(n,"actions", l);
}
extern yy yyglov_LHS_List;
extern yy yyglov_GentleFlag;
extern yy yyglov_NontermList;
extern yy yyglov_PreludeBlock, ta33;
yy yyglov_GrammarClass = (yy) yyu;
yyeq_GRAMMARCLASS(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_GRAMMARCLASS(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("ll1");
yyNoArgs();
break;
case 2: 
yyTerm("cfg");
yyNoArgs();
break;
}
}
yybroadcast_GRAMMARCLASS(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_GRAMMARCLASS, t, In, Out)) {
switch(t[0]) {
case 1: 
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yy yyglov_LabelCount = (yy) yyu;
yy yyglov_LocalNames = (yy) yyu;
yyeq_DEFLIST(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_DEF((yy)t1[1], (yy)t2[1])
&& yyeq_DEFLIST((yy)t1[2], (yy)t2[2])
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_DEFLIST(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("list");
yyFirstArg();
yyPrint_DEF((yy)t[1]);
yyNextArg();
yyPrint_DEFLIST((yy)t[2]);
yyEndArgs();
break;
case 2: 
yyTerm("nil");
yyNoArgs();
break;
}
}
yybroadcast_DEFLIST(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_DEFLIST, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_DEF((yy)t[1], A, &B, Handler);
yybroadcast_DEFLIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_DEF(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_MODE((yy)t1[1], (yy)t2[1])
&& yyeq_IDENT((yy)t1[2], (yy)t2[2])
&& yyeq_IDENT((yy)t1[3], (yy)t2[3])
;
}
}
yyPrint_DEF(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("def");
yyFirstArg();
yyPrint_MODE((yy)t[1]);
yyNextArg();
yyPrint_IDENT((yy)t[2]);
yyNextArg();
yyPrint_IDENT((yy)t[3]);
yyEndArgs();
break;
}
}
yybroadcast_DEF(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_DEF, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_MODE((yy)t[1], A, &B, Handler);
yybroadcast_IDENT((yy)t[2], B, &A, Handler);
yybroadcast_IDENT((yy)t[3], A, &B, Handler);
*Out = B;
break;
}
}
}
put_actions()
{
{
yy yyb;
yy yy_1;
yy yyv_Blk;
yy yy_2;
yy yy_3_1;
yy yy_3_2;
yy yy_3_3;
yy yy_4_1;
yy yy_6_1_1;
yy yy_6_2_1_1;
yy yy_8;
yy yyv_Keys;
yy yy_9;
yy yy_10_1;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1 = yyb + 0;
yy_1[0] = 2;
yyglov_GrammarClass = yy_1;
yy_2 = yyglov_PreludeBlock;
if (yy_2 == (yy) yyu) yyErr(1,39);
yyv_Blk = yy_2;
yy_3_1 = ((yy)"");
yy_3_2 = yyv_Blk;
yy_3_3 = ((yy)"");
put_CodeBlock(yy_3_1, yy_3_2, yy_3_3);
yy_4_1 = ((yy)"#include \"yygramm.h\"");
Put(yy_4_1);
Nl();
yy_4_1 = ((yy)"int yyerrorreturn;");            //CO3
Put(yy_4_1);                                    //CO3
Nl();                                           //CO3
{
yy yysb = yyb;
yy_6_1_1 = yyglov_GrammarClass;
if (yy_6_1_1 == (yy) yyu) yyErr(1,46);
if (yy_6_1_1[0] != 2) goto yyfl_1_1_6_1;
goto yysl_1_1_6;
yyfl_1_1_6_1 : ;
yy_6_2_1_1 = ((yy)"int yycursym;");
Put(yy_6_2_1_1);
goto yysl_1_1_6;
yysl_1_1_6 : ;
yyb = yysb;
}
init_indentation();
yy_8 = ((yy)1);
yyglov_LabelCount = yy_8;
yy_9 = yyglov_LHS_List;
if (yy_9 == (yy) yyu) yyErr(1,52);
yyv_Keys = yy_9;
yy_10_1 = yyv_Keys;
put_actions_LHSKEYS(yy_10_1);
fix_code();
return;
}
}
put_actions_LHSKEYS(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Keys;
yy yy_0_1_1;
yy yyv_Key;
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_4_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Keys = yy_0_1_1;
yyv_Key = yy_0_1_2;
yy_1_1 = yyv_Keys;
put_actions_LHSKEYS(yy_1_1);
yy_2_1 = yyv_Key;
put_actions_LHSKEY(yy_2_1);
return;
yyfl_4_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_4_2;
return;
yyfl_4_2 : ;
}
yyErr(2,94);
}
put_actions_LHSKEY(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yyv_Key;
yy yy_0_1;
yy yyv_Lhs;
yy yy_1;
yy yy_2_1_1_1;
yy yy_2_1_1_2;
yy yyv_Id;
yy yy_2_1_1_2_1;
yy yy_2_1_2_1;
yy yy_2_1_2_2;
yy yy_2_1_2_2_1;
yy yy_2_1_2_2_2;
yy yyv_FP;
yy yy_2_1_2_2_3;
yy yy_2_1_4_1;
yy yyv_Str;
yy yy_2_1_4_2;
yy yy_2_1_5_1;
yy yy_2_1_6_1;
yy yy_2_1_7_1;
yy yy_2_1_8_1;
yy yy_2_1_10;
yy yy_2_1_11_1;
yy yyv_Clauses;
yy yy_2_1_12;
yy yy_2_1_13_1;
yy yy_2_1_15_1;
yy yy_2_1_15_1_1;
yy yy_2_1_16_1;
yy yyv_Prelude;
yy yy_2_1_17;
yy yy_2_1_18_1;
yy yy_2_1_18_2;
yy yy_2_1_18_3;
yy yy_2_1_19_1_1;
yy yy_2_1_19_1_3_1;
yy yy_2_1_20_1;
yy yy_2_1_21_1_1;
yy yy_2_1_21_1_3_1;
yy yy_2_1_21_2_1_1;
yy yy_2_1_22_1;
yy yy_2_1_22_1_1;
yy yy_2_1_24_1;
yy_0_1 = yyin_1;
yyv_Key = yy_0_1;
yy_1 = (yy) yyv_Key[1];
if (yy_1 == (yy) yyu) yyErr(1,103);
yyv_Lhs = yy_1;
{
yy yysb = yyb;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_2_1_1_1 = yyv_Lhs;
yy_2_1_1_2 = yy_2_1_1_1;
if (yy_2_1_1_2[0] != 1) goto yyfl_5_1_2_1;
yy_2_1_1_2_1 = ((yy)yy_2_1_1_2[1]);
yyv_Id = yy_2_1_1_2_1;
yy_2_1_2_1 = yyv_Id;
if (! HasMeaning(yy_2_1_2_1, &yy_2_1_2_2)) goto yyfl_5_1_2_1;
if (yy_2_1_2_2[0] != 2) goto yyfl_5_1_2_1;
yy_2_1_2_2_1 = ((yy)yy_2_1_2_2[1]);
yy_2_1_2_2_2 = ((yy)yy_2_1_2_2[2]);
yy_2_1_2_2_3 = ((yy)yy_2_1_2_2[3]);
yyv_FP = yy_2_1_2_2_3;
Nl();
yy_2_1_4_1 = yyv_Id;
id_to_string(yy_2_1_4_1, &yy_2_1_4_2);
yyv_Str = yy_2_1_4_2;
//----------------------------------------
// CO3 Änderung
co3_repeat=0;
yy_2_1_6_1 = ((yy)"void ");
Putco3(yy_2_1_6_1);
yy_2_1_5_1 = yyv_Str;
Putco3(yy_2_1_5_1);
yy_2_1_6_1 = ((yy)" (");
Putco3(yy_2_1_6_1);
yy_2_1_7_1 = yyv_FP;
handle_formal_params_1(yy_2_1_7_1);
//yy_2_1_8_1 = ((yy)")");
//Put(yy_2_1_8_1);
//Nl();
// Ende Änderung 
//----------------------------------------
yy_2_1_10 = yyb + 0;
yy_2_1_10[0] = 2;
yyglov_LocalNames = yy_2_1_10;
yy_2_1_11_1 = yyv_FP;
handle_formal_params_2(yy_2_1_11_1);
if (co3_repeat==0) {
  yy_2_1_8_1 = ((yy)"void)");  // CO3
  Putco3(yy_2_1_8_1);}      // CO3
else {
  yy_2_1_8_1 = ((yy)")");  // CO3
  Putco3(yy_2_1_8_1);}      // CO3
Nlco3();                 // CO3
yy_2_1_12 = (yy) yyv_Key[3];
if (yy_2_1_12 == (yy) yyu) yyErr(1,121);
yyv_Clauses = yy_2_1_12;
yy_2_1_13_1 = ((yy)"{");
Put(yy_2_1_13_1);
Nl();
yy_2_1_15_1_1 = ((yy)1);
yy_2_1_15_1 = (yy)(((long)yy_2_1_15_1_1));
indentation(yy_2_1_15_1);
yy_2_1_16_1 = yyv_Clauses;
local_declarations(yy_2_1_16_1);
yy_2_1_17 = (yy) yyv_Key[2];
if (yy_2_1_17 == (yy) yyu) yyErr(1,127);
yyv_Prelude = yy_2_1_17;
yy_2_1_18_1 = ((yy)"");
yy_2_1_18_2 = yyv_Prelude;
yy_2_1_18_3 = ((yy)"");
put_CodeBlock(yy_2_1_18_1, yy_2_1_18_2, yy_2_1_18_3);
{
yy yysb = yyb;
yy_2_1_19_1_1 = yyglov_GrammarClass;
if (yy_2_1_19_1_1 == (yy) yyu) yyErr(1,131);
if (yy_2_1_19_1_1[0] != 2) goto yyfl_5_1_2_1_19_1;
indent();
// errorreturn
yy_2_1_8_1 = ((yy)"if (yyerrorreturn) return;");  // CO3
Put(yy_2_1_8_1);                                  // CO3
Nl();                                            // CO3
yy_2_1_19_1_3_1 = ((yy)"switch(yyselect()) {");
Put(yy_2_1_19_1_3_1);
Nl();
goto yysl_5_1_2_1_19;
yyfl_5_1_2_1_19_1 : ;
indent();
goto yysl_5_1_2_1_19;
yysl_5_1_2_1_19 : ;
yyb = yysb;
}
yy_2_1_20_1 = yyv_Clauses;
put_actions_for_nonterm_CLAUSEKEYS(yy_2_1_20_1);
{
yy yysb = yyb;
yy_2_1_21_1_1 = yyglov_GrammarClass;
if (yy_2_1_21_1_1 == (yy) yyu) yyErr(1,140);
if (yy_2_1_21_1_1[0] != 2) goto yyfl_5_1_2_1_21_1;
indent();
yy_2_1_21_1_3_1 = ((yy)"}");
Put(yy_2_1_21_1_3_1);
Nl();
goto yysl_5_1_2_1_21;
yyfl_5_1_2_1_21_1 : ;
yy_2_1_21_2_1_1 = ((yy)"yysyntaxerror();");
Put(yy_2_1_21_2_1_1);
Nl();
goto yysl_5_1_2_1_21;
yysl_5_1_2_1_21 : ;
yyb = yysb;
}
yy_2_1_22_1_1 = ((yy)1);
yy_2_1_22_1 = (yy)(-((long)yy_2_1_22_1_1));
indentation(yy_2_1_22_1);
indent();
yy_2_1_24_1 = ((yy)"}");
Put(yy_2_1_24_1);
Nl();
goto yysl_5_1_2;
yyfl_5_1_2_1 : ;
goto yysl_5_1_2;
yysl_5_1_2 : ;
yyb = yysb;
}
return;
}
}
put_actions_for_nonterm_CLAUSEKEYS(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Keys;
yy yy_0_1_1;
yy yyv_Key;
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_6_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Keys = yy_0_1_1;
yyv_Key = yy_0_1_2;
yy_1_1 = yyv_Keys;
put_actions_for_nonterm_CLAUSEKEYS(yy_1_1);
yy_2_1 = yyv_Key;
put_actions_for_nonterm_CLAUSEKEY(yy_2_1);
return;
yyfl_6_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_6_2;
return;
yyfl_6_2 : ;
}
yyErr(2,153);
}
put_actions_for_nonterm_CLAUSEKEY(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yyv_ClauseKey;
yy yy_0_1;
yy yy_1;
yy yyv_Members;
yy yy_1_1;
yy yyv_Number;
yy yy_2;
yy yy_3_1_1;
yy yy_3_1_3_1;
yy yy_3_1_4_1;
yy yy_3_1_5_1;
yy yy_3_2_1_1;
yy yy_3_2_2_1;
yy yy_3_2_3_1;
yy yy_4_1;
yy yy_4_1_1;
yy yy_5_1;
yy yy_6_1_1;
yy yy_6_1_3_1;
yy yy_6_1_5_1;
yy yy_6_1_5_1_1;
yy yy_6_2_1_1;
yy yy_6_2_1_1_1;
yy yy_6_2_3_1;
yy_0_1 = yyin_1;
yyv_ClauseKey = yy_0_1;
yy_1 = (yy) yyv_ClauseKey[2];
if (yy_1 == (yy) yyu) yyErr(1,161);
if (yy_1[0] != 1) goto yyfl_7_1;
yy_1_1 = ((yy)yy_1[1]);
yyv_Members = yy_1_1;
yy_2 = (yy) yyv_ClauseKey[7];
if (yy_2 == (yy) yyu) yyErr(1,162);
yyv_Number = yy_2;
{
yy yysb = yyb;
yy_3_1_1 = yyglov_GrammarClass;
if (yy_3_1_1 == (yy) yyu) yyErr(1,164);
if (yy_3_1_1[0] != 2) goto yyfl_7_1_3_1;
indent();
yy_3_1_3_1 = ((yy)"case ");
Put(yy_3_1_3_1);
yy_3_1_4_1 = yyv_Number;
PutI(yy_3_1_4_1);
yy_3_1_5_1 = ((yy)": {");
Put(yy_3_1_5_1);
Nl();
goto yysl_7_1_3;
yyfl_7_1_3_1 : ;
yy_3_2_1_1 = ((yy)"if (TABLE[");
Put(yy_3_2_1_1);
yy_3_2_2_1 = yyv_Number;
PutI(yy_3_2_2_1);
yy_3_2_3_1 = ((yy)"][yycursym]) {");
Put(yy_3_2_3_1);
Nl();
goto yysl_7_1_3;
yysl_7_1_3 : ;
yyb = yysb;
}
yy_4_1_1 = ((yy)1);
yy_4_1 = (yy)(((long)yy_4_1_1));
indentation(yy_4_1);
yy_5_1 = yyv_Members;
put_actions_MEMBERLIST(yy_5_1);
{
yy yysb = yyb;
yy_6_1_1 = yyglov_GrammarClass;
if (yy_6_1_1 == (yy) yyu) yyErr(1,181);
if (yy_6_1_1[0] != 2) goto yyfl_7_1_6_1;
indent();
yy_6_1_3_1 = ((yy)"} break;");
Put(yy_6_1_3_1);
Nl();
yy_6_1_5_1_1 = ((yy)1);
yy_6_1_5_1 = (yy)(-((long)yy_6_1_5_1_1));
indentation(yy_6_1_5_1);
goto yysl_7_1_6;
yyfl_7_1_6_1 : ;
yy_6_2_1_1_1 = ((yy)1);
yy_6_2_1_1 = (yy)(-((long)yy_6_2_1_1_1));
indentation(yy_6_2_1_1);
indent();
yy_6_2_3_1 = ((yy)"} else ");
Put(yy_6_2_3_1);
goto yysl_7_1_6;
yysl_7_1_6 : ;
yyb = yysb;
}
return;
yyfl_7_1 : ;
}
yyErr(2,159);
}
put_actions_MEMBERLIST(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;
put_actions_MEMBER(yy_1_1);
yy_2_1 = yyv_T;
put_actions_MEMBERLIST(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,192);
}
put_actions_MEMBER(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yyv_Params;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_1_1;
yy yyv_Str;
yy yy_1_2;
yy yy_2_1_1_1;
yy yy_2_1_1_2;
yy yyv_N;
yy yy_2_1_1_2_1;
yy yyv_FParams;
yy yy_2_1_1_2_2;
yy yy_2_1_2_1_1;
yy yy_2_1_2_1_3_1;
yy yy_2_1_2_2_2_1;
yy yy_2_1_2_2_3_1;
yy yy_2_1_2_2_4_1;
yy yy_2_1_3_1;
yy yy_2_1_3_2;
yy yy_2_1_3_3;
yy yy_2_1_4_1_1;
yy yy_2_1_4_2_2_1;
yy yy_2_2_1_1;
yy yy_2_2_1_2;
yy yy_2_2_1_2_1;
yy yy_2_2_1_2_2;
yy yyv_Formals;
yy yy_2_2_1_2_3;
yy yy_2_2_3_1;
yy yy_2_2_4_1;
yy yy_2_2_5_1;
yy yy_2_2_5_2;
yy yy_2_2_6_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) 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_Id = yy_0_1_1;
yyv_Params = yy_0_1_2;
yyv_Pos = yy_0_1_4;
yy_1_1 = yyv_Id;
id_to_string(yy_1_1, &yy_1_2);
yyv_Str = yy_1_2;
{
yy yysb = yyb;
yy_2_1_1_1 = yyv_Id;
if (! HasMeaning(yy_2_1_1_1, &yy_2_1_1_2)) goto yyfl_9_1_2_1;
if (yy_2_1_1_2[0] != 1) goto yyfl_9_1_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]);
yyv_N = yy_2_1_1_2_1;
yyv_FParams = yy_2_1_1_2_2;
{
yy yysb = yyb;
yy_2_1_2_1_1 = yyglov_GrammarClass;
if (yy_2_1_2_1_1 == (yy) yyu) yyErr(1,204);
if (yy_2_1_2_1_1[0] != 2) goto yyfl_9_1_2_1_2_1;
indent();
yy_2_1_2_1_3_1 = ((yy)"get_lexval();");
Put(yy_2_1_2_1_3_1);
Nl();
goto yysl_9_1_2_1_2;
yyfl_9_1_2_1_2_1 : ;
indent();
yy_2_1_2_2_2_1 = ((yy)"yycheck(");
Put(yy_2_1_2_2_2_1);
yy_2_1_2_2_3_1 = yyv_N;
PutI(yy_2_1_2_2_3_1);
yy_2_1_2_2_4_1 = ((yy)");");
Put(yy_2_1_2_2_4_1);
Nl();
goto yysl_9_1_2_1_2;
yysl_9_1_2_1_2 : ;
yyb = yysb;
}
yy_2_1_3_1 = yyv_Params;
yy_2_1_3_2 = yyv_FParams;
yy_2_1_3_3 = ((yy)1);
handle_token_params(yy_2_1_3_1, yy_2_1_3_2, yy_2_1_3_3);
{
yy yysb = yyb;
yy_2_1_4_1_1 = yyglov_GrammarClass;
if (yy_2_1_4_1_1 == (yy) yyu) yyErr(1,218);
if (yy_2_1_4_1_1[0] != 2) goto yyfl_9_1_2_1_4_1;
goto yysl_9_1_2_1_4;
yyfl_9_1_2_1_4_1 : ;
indent();
yy_2_1_4_2_2_1 = ((yy)"yycursym = yylex();");
Put(yy_2_1_4_2_2_1);
Nl();
goto yysl_9_1_2_1_4;
yysl_9_1_2_1_4 : ;
yyb = yysb;
}
goto yysl_9_1_2;
yyfl_9_1_2_1 : ;
yy_2_2_1_1 = yyv_Id;
if (! HasMeaning(yy_2_2_1_1, &yy_2_2_1_2)) goto yyfl_9_1_2_2;
if (yy_2_2_1_2[0] != 2) goto yyfl_9_1_2_2;
yy_2_2_1_2_1 = ((yy)yy_2_2_1_2[1]);
yy_2_2_1_2_2 = ((yy)yy_2_2_1_2[2]);
yy_2_2_1_2_3 = ((yy)yy_2_2_1_2[3]);
yyv_Formals = yy_2_2_1_2_3;
indent();
yy_2_2_3_1 = yyv_Str;
Put(yy_2_2_3_1);
yy_2_2_4_1 = ((yy)"(");
Put(yy_2_2_4_1);
yy_2_2_5_1 = yyv_Params;
yy_2_2_5_2 = yyv_Formals;
handle_actual_params(yy_2_2_5_1, yy_2_2_5_2);
yy_2_2_6_1 = ((yy)");");
Put(yy_2_2_6_1);
Nl();
goto yysl_9_1_2;
yyfl_9_1_2_2 : ;
goto yyfl_9_1;
yysl_9_1_2 : ;
yyb = yysb;
}
return;
yyfl_9_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yyv_N;
yy yy_0_1_1;
yy yy_1_1_1;
yy yy_1_1_3_1;
yy yy_1_2_2_1;
yy yy_1_2_3_1;
yy yy_1_2_4_1;
yy yy_1_2_7_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_9_2;
yy_0_1_1 = ((yy)yy_0_1[1]);
yyv_N = yy_0_1_1;
{
yy yysb = yyb;
yy_1_1_1 = yyglov_GrammarClass;
if (yy_1_1_1 == (yy) yyu) yyErr(1,235);
if (yy_1_1_1[0] != 2) goto yyfl_9_2_1_1;
indent();
yy_1_1_3_1 = ((yy)"get_lexval();");
Put(yy_1_1_3_1);
Nl();
goto yysl_9_2_1;
yyfl_9_2_1_1 : ;
indent();
yy_1_2_2_1 = ((yy)"yycheck(");
Put(yy_1_2_2_1);
yy_1_2_3_1 = yyv_N;
PutI(yy_1_2_3_1);
yy_1_2_4_1 = ((yy)");");
Put(yy_1_2_4_1);
Nl();
indent();
yy_1_2_7_1 = ((yy)"yycursym = yylex();");
Put(yy_1_2_7_1);
Nl();
goto yysl_9_2_1;
yysl_9_2_1 : ;
yyb = yysb;
}
return;
yyfl_9_2 : ;
}
{
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_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]);
yy_0_1_4 = ((yy)yy_0_1[4]);
yy_0_1_5 = ((yy)yy_0_1[5]);
if (yy_0_1_1[0] != 1) goto yyfl_9_3;
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: ;");
Put(yy_6_1);
Nl();
indent();
yy_9_1 = ((yy)"}");
Put(yy_9_1);
Nl();
return;
yyfl_9_3 : ;
}
{
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 yyv_L;
yy yy_1_1;
yy yy_3_1;
yy yy_5_1;
yy yy_5_1_1;
yy yy_7_1;
yy yy_9_1;
yy yy_11_1;
yy yy_12_1;
yy yy_13_1;
yy yy_16_1;
yy yy_18_1;
yy yy_18_1_1;
yy yy_20_1;
yy yy_23_1;
yy yy_24_1;
yy yy_25_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 3) goto yyfl_9_4;
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] != 2) goto yyfl_9_4;
yyv_Alternatives = yy_0_1_2;
yyv_Key = yy_0_1_3;
yyv_Coordinate = yy_0_1_5;
UniqueLabel(&yy_1_1);
yyv_L = yy_1_1;
indent();
yy_3_1 = ((yy)"while (1) {");
Put(yy_3_1);
Nl();
yy_5_1_1 = ((yy)1);
yy_5_1 = (yy)(((long)yy_5_1_1));
indentation(yy_5_1);
indent();
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] != 3) 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: yyerror(\"2001 Syntaxfehler\");");
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);         CO3
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); CO3 
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;
// CO3 Änderung
if (co3_repeat) {
  yy_2_1 = ((yy)",");
  Putco3(yy_2_1);}
//Ende CO3-Änderung 
yy_2_1 = ((yy)" ");
Putco3(yy_2_1);
yy_3_1 = yyv_TStr;
Putco3(yy_3_1);
yy_4_1 = ((yy)" ");
Putco3(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)"*");
Putco3(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;
Putco3(yy_7_1);
//  yy_8_1 = ((yy)";"); // Änderung CO3
//  Putco3(yy_8_1);}
// Nl();                // CO3
co3_repeat=1;           // CO3
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;
yy_2_2 = ((yy)1);
yy_2 = (yy)(((long)yy_2_1)+((long)yy_2_2));
yyglov_LabelCount = yy_2;
yy_0_1 = yyv_N;
*yyout_1 = yy_0_1;
return;
}
}
local_declarations(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yyv_CLAUSEKEYS;
yy yy_0_1;
yy yy_1_1;
yy_0_1 = yyin_1;
yyv_CLAUSEKEYS = yy_0_1;
yy_1_1 = yyv_CLAUSEKEYS;
local_declarations_CLAUSEKEYS(yy_1_1);
return;
}
}
local_declarations_CLAUSEKEYS(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yyv_Keys;
yy yy_0_1_1;
yy yyv_Key;
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_24_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_Keys = yy_0_1_1;
yyv_Key = yy_0_1_2;
yy_1_1 = yyv_Keys;
local_declarations_CLAUSEKEYS(yy_1_1);
yy_2_1 = yyv_Key;
local_declarations_CLAUSEKEY(yy_2_1);
return;
yyfl_24_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_24_2;
return;
yyfl_24_2 : ;
}
yyErr(2,490);
}
local_declarations_CLAUSEKEY(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yyv_ClauseKey;
yy yy_0_1;
yy yy_1;
yy yyv_Members;
yy yy_1_1;
yy yy_2_1;
yy_0_1 = yyin_1;
yyv_ClauseKey = yy_0_1;
yy_1 = (yy) yyv_ClauseKey[2];
if (yy_1 == (yy) yyu) yyErr(1,498);
if (yy_1[0] != 1) goto yyfl_25_1;
yy_1_1 = ((yy)yy_1[1]);
yyv_Members = yy_1_1;
yy_2_1 = yyv_Members;
{
extern local_declarations_sweep();
yybroadcast_MEMBERLIST(yy_2_1, 0, &yynull, local_declarations_sweep);
}
return;
yyfl_25_1 : ;
}
yyErr(2,496);
}
int local_declarations_sweep(yytp, yyin_1, yyin_2, yyout_1 )
long yytp;
yy yyin_1, yyin_2, *yyout_1;
{
{
extern yybroadcast_MEMBER();
/*=== Sweep MEMBER ===*/
if (yytp == (long) yybroadcast_MEMBER) {
{
yy yyb;
yy yy_0_1;
yy yyv_Id;
yy yy_0_1_1;
yy yyv_ActParams;
yy yy_0_1_2;
yy yy_0_1_3;
yy yyv_Pos;
yy yy_0_1_4;
yy yy_1_1;
yy yyv_Meaning;
yy yy_1_2;
yy yy_2_1_1_1;
yy yy_2_1_1_2;
yy yy_2_1_1_2_1;
yy yy_2_1_1_2_2;
yy yyv_FormalParams;
yy yy_2_1_1_2_3;
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 yy_2_2_1_2_1;
yy yy_2_2_1_2_2;
yy yy_2_2_2_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_26_10001;
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_ActParams = yy_0_1_2;
yyv_Pos = yy_0_1_4;
yy_1_1 = yyv_Id;
if (! HasMeaning(yy_1_1, &yy_1_2)) goto yyfl_26_10001;
yyv_Meaning = yy_1_2;
{
yy yysb = yyb;
yy_2_1_1_1 = yyv_Meaning;
yy_2_1_1_2 = yy_2_1_1_1;
if (yy_2_1_1_2[0] != 2) goto yyfl_26_10001_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]);
yyv_FormalParams = yy_2_1_1_2_3;
yy_2_1_2_1 = yyv_FormalParams;
yy_2_1_2_2 = yyv_ActParams;
process_formal_and_actual_params(yy_2_1_2_1, yy_2_1_2_2);
goto yysl_26_10001_2;
yyfl_26_10001_2_1 : ;
yy_2_2_1_1 = yyv_Meaning;
yy_2_2_1_2 = yy_2_2_1_1;
if (yy_2_2_1_2[0] != 1) goto yyfl_26_10001_2_2;
yy_2_2_1_2_1 = ((yy)yy_2_2_1_2[1]);
yy_2_2_1_2_2 = ((yy)yy_2_2_1_2[2]);
yyv_FormalParams = yy_2_2_1_2_2;
yy_2_2_2_1 = yyv_ActParams;
process_token_param(yy_2_2_2_1);
goto yysl_26_10001_2;
yyfl_26_10001_2_2 : ;
goto yyfl_26_10001;
yysl_26_10001_2 : ;
yyb = yysb;
}
*yyout_1 = yyin_2;
return 1;
yyfl_26_10001 : ;
}
return 0;
}
/*===*/
else return 0;
}
}
process_formal_and_actual_params(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yy_0_1;
yy yyv_FHd;
yy yy_0_1_1;
yy yyv_FTl;
yy yy_0_1_2;
yy yy_0_2;
yy yyv_AHd;
yy yy_0_2_1;
yy yyv_ATl;
yy yy_0_2_2;
yy yyv_Pos;
yy yy_0_2_3;
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_27_1;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
yyv_FHd = yy_0_1_1;
yyv_FTl = yy_0_1_2;
if (yy_0_2[0] != 1) goto yyfl_27_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]);
yyv_AHd = yy_0_2_1;
yyv_ATl = yy_0_2_2;
yyv_Pos = yy_0_2_3;
yy_1_1 = yyv_FHd;
yy_1_2 = yyv_AHd;
process_formal_and_actual(yy_1_1, yy_1_2);
yy_2_1 = yyv_FTl;
yy_2_2 = yyv_ATl;
process_formal_and_actual_params(yy_2_1, yy_2_2);
return;
yyfl_27_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy yy_0_2_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 2) goto yyfl_27_2;
if (yy_0_2[0] != 2) goto yyfl_27_2;
yy_0_2_1 = ((yy)yy_0_2[1]);
return;
yyfl_27_2 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_2;
yy yy_0_2_1;
yy yy_0_2_2;
yy yyv_Pos;
yy yy_0_2_3;
yy yy_1_1;
yy yy_1_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 2) goto yyfl_27_3;
if (yy_0_2[0] != 1) goto yyfl_27_3;
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]);
yyv_Pos = yy_0_2_3;
yy_1_1 = ((yy)"too many actual parameters");
yy_1_2 = yyv_Pos;
Error(yy_1_1, yy_1_2);
return;
yyfl_27_3 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yy_0_1_2;
yy yy_0_2;
yy yyv_Pos;
yy yy_0_2_1;
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_27_4;
yy_0_1_1 = ((yy)yy_0_1[1]);
yy_0_1_2 = ((yy)yy_0_1[2]);
if (yy_0_2[0] != 2) goto yyfl_27_4;
yy_0_2_1 = ((yy)yy_0_2[1]);
yyv_Pos = yy_0_2_1;
yy_1_1 = ((yy)"too few actual parameters");
yy_1_2 = yyv_Pos;
Error(yy_1_1, yy_1_2);
return;
yyfl_27_4 : ;
}
yyErr(2,512);
}
process_formal_and_actual(yyin_1, yyin_2)
yy yyin_1;
yy yyin_2;
{
{
yy yyb;
yy yy_0_1;
yy yyv_FMode;
yy yy_0_1_1;
yy yyv_FType;
yy yy_0_1_2;
yy yyv_FName;
yy yy_0_1_3;
yy yy_0_1_4;
yy yy_0_2;
yy yyv_AName;
yy yy_0_2_1;
yy yyv_Pos;
yy yy_0_2_2;
yy yy_1_1_1_1;
yy yyv_AMode;
yy yy_1_1_1_2;
yy yyv_AType;
yy yy_1_1_1_3;
yy yy_1_1_2_1_1_1;
yy yy_1_1_2_1_1_2;
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_2_1_1;
yy yy_1_2_1_2;
yy yy_1_2_1_3;
yy yy_1_2_2_1;
yy yy_1_2_3_1;
yy yyv_FTypeStr;
yy yy_1_2_3_2;
yy yy_1_2_4_1;
yy yy_1_2_5_1;
yy yy_1_2_6_1;
yy yyv_ANameStr;
yy yy_1_2_6_2;
yy yy_1_2_7_1;
yy yy_1_2_8_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_28_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_FMode = yy_0_1_1;
yyv_FType = yy_0_1_2;
yyv_FName = yy_0_1_3;
if (yy_0_2[0] != 1) goto yyfl_28_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yyv_AName = yy_0_2_1;
yyv_Pos = yy_0_2_2;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_AName;
if (! defined_locally(yy_1_1_1_1, &yy_1_1_1_2, &yy_1_1_1_3)) 
goto yyfl_2;
yyv_AMode = yy_1_1_1_2;
yyv_AType = yy_1_1_1_3;
{
yy yysb = yyb;
yy_1_1_2_1_1_1 = yyv_FType;
yy_1_1_2_1_1_2 = yyv_AType;
if (yyeq_IDENT(yy_1_1_2_1_1_1, yy_1_1_2_1_1_2)) goto yyfl_28_1_1_1_2_1;
yy_1_1_2_1_2_1 = ((yy)"'");
yy_1_1_2_1_2_2 = yyv_AName;
yy_1_1_2_1_2_3 = ((yy)"' has inconsistent type");
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_28_1_1_1_2;
yyfl_28_1_1_1_2_1 : ;
goto yysl_28_1_1_1_2;
yysl_28_1_1_1_2 : ;
yyb = yysb;
}
goto yysl_28_1_1;
yyfl_28_1_1_1 : ;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_1_2_1_1 = yyb + 0;
yy_1_2_1_1[0] = 3;
yy_1_2_1_2 = yyv_FType;
yy_1_2_1_3 = yyv_AName;
define_local_name(yy_1_2_1_1, yy_1_2_1_2, yy_1_2_1_3);
yy_1_2_2_1 = ((yy)" ");
Put(yy_1_2_2_1);
yy_1_2_3_1 = yyv_FType;
id_to_string(yy_1_2_3_1, &yy_1_2_3_2);
yyv_FTypeStr = yy_1_2_3_2;
yy_1_2_4_1 = yyv_FTypeStr;
Put(yy_1_2_4_1);
yy_1_2_5_1 = ((yy)" ");
Put(yy_1_2_5_1);
yy_1_2_6_1 = yyv_AName;
id_to_string(yy_1_2_6_1, &yy_1_2_6_2);
yyv_ANameStr = yy_1_2_6_2;
yy_1_2_7_1 = yyv_ANameStr;
Put(yy_1_2_7_1);
yy_1_2_8_1 = ((yy)";");
Put(yy_1_2_8_1);
Nl();
goto yysl_28_1_1;
yysl_28_1_1 : ;
yyb = yysb;
}
return;
yyfl_28_1 : ;
}
yyErr(2,522);
}
process_token_param(yyin_1)
yy yyin_1;
{
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_AName;
yy yy_0_1_1_1;
yy yyv_Pos;
yy yy_0_1_1_2;
yy yy_0_1_2;
yy yy_0_1_2_1;
yy yy_0_1_3;
yy yy_1_1;
yy yyv_FType;
yy yy_1_2;
yy yy_2_1_1_1;
yy yyv_AMode;
yy yy_2_1_1_2;
yy yyv_AType;
yy yy_2_1_1_3;
yy yy_2_1_2_1_1_1;
yy yy_2_1_2_1_1_2;
yy yy_2_1_2_1_2_1;
yy yy_2_1_2_1_2_2;
yy yy_2_1_2_1_2_3;
yy yy_2_1_2_1_2_4;
yy yy_2_2_1_1;
yy yy_2_2_1_2;
yy yy_2_2_1_3;
yy yy_2_2_2_1;
yy yy_2_2_3_1;
yy yyv_FTypeStr;
yy yy_2_2_3_2;
yy yy_2_2_4_1;
yy yy_2_2_5_1;
yy yy_2_2_6_1;
yy yyv_ANameStr;
yy yy_2_2_6_2;
yy yy_2_2_7_1;
yy yy_2_2_8_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_29_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]);
if (yy_0_1_1[0] != 1) goto yyfl_29_1;
yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
yyv_AName = yy_0_1_1_1;
yyv_Pos = yy_0_1_1_2;
if (yy_0_1_2[0] != 2) goto yyfl_29_1;
yy_0_1_2_1 = ((yy)yy_0_1_2[1]);
yy_1_1 = ((yy)"YYSTYPE");
string_to_id(yy_1_1, &yy_1_2);
yyv_FType = yy_1_2;
{
yy yysb = yyb;
yy_2_1_1_1 = yyv_AName;
if (! defined_locally(yy_2_1_1_1, &yy_2_1_1_2, &yy_2_1_1_3)) goto yyfl_2;
yyv_AMode = yy_2_1_1_2;
yyv_AType = yy_2_1_1_3;
{
yy yysb = yyb;
yy_2_1_2_1_1_1 = yyv_FType;
yy_2_1_2_1_1_2 = yyv_AType;
if (yyeq_IDENT(yy_2_1_2_1_1_1, yy_2_1_2_1_1_2)) goto yyfl_29_1_2_1_2_1;
yy_2_1_2_1_2_1 = ((yy)"'");
yy_2_1_2_1_2_2 = yyv_AName;
yy_2_1_2_1_2_3 = ((yy)"' has inconsistent type");
yy_2_1_2_1_2_4 = yyv_Pos;
ErrorI(yy_2_1_2_1_2_1, yy_2_1_2_1_2_2, yy_2_1_2_1_2_3, yy_2_1_2_1_2_4);
goto yysl_29_1_2_1_2;
yyfl_29_1_2_1_2_1 : ;
goto yysl_29_1_2_1_2;
yysl_29_1_2_1_2 : ;
yyb = yysb;
}
goto yysl_29_1_2;
yyfl_29_1_2_1 : ;
yyb = yyh;
yyh += 1; if (yyh > yyhx) yyExtend();
yy_2_2_1_1 = yyb + 0;
yy_2_2_1_1[0] = 3;
yy_2_2_1_2 = yyv_FType;
yy_2_2_1_3 = yyv_AName;
define_local_name(yy_2_2_1_1, yy_2_2_1_2, yy_2_2_1_3);
yy_2_2_2_1 = ((yy)" ");
Put(yy_2_2_2_1);
yy_2_2_3_1 = yyv_FType;
id_to_string(yy_2_2_3_1, &yy_2_2_3_2);
yyv_FTypeStr = yy_2_2_3_2;
yy_2_2_4_1 = yyv_FTypeStr;
Put(yy_2_2_4_1);
yy_2_2_5_1 = ((yy)" ");
Put(yy_2_2_5_1);
yy_2_2_6_1 = yyv_AName;
id_to_string(yy_2_2_6_1, &yy_2_2_6_2);
yyv_ANameStr = yy_2_2_6_2;
yy_2_2_7_1 = yyv_ANameStr;
Put(yy_2_2_7_1);
yy_2_2_8_1 = ((yy)";");
Put(yy_2_2_8_1);
Nl();
goto yysl_29_1_2;
yysl_29_1_2 : ;
yyb = yysb;
}
return;
yyfl_29_1 : ;
}
{
yy yyb;
yy yy_0_1;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 2) goto yyfl_29_2;
return;
yyfl_29_2 : ;
}
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_Name;
yy yy_0_1_1_1;
yy yyv_Pos;
yy yy_0_1_1_2;
yy yy_0_1_2;
yy yy_0_1_2_1;
yy yyv_Name2;
yy yy_0_1_2_1_1;
yy yyv_Pos2;
yy yy_0_1_2_1_2;
yy yyv_Tl;
yy yy_0_1_2_2;
yy yy_0_1_2_3;
yy yy_0_1_3;
yy yy_1_1;
yy yy_1_2;
yy_0_1 = yyin_1;
if (yy_0_1[0] != 1) goto yyfl_29_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]);
if (yy_0_1_1[0] != 1) goto yyfl_29_3;
yy_0_1_1_1 = ((yy)yy_0_1_1[1]);
yy_0_1_1_2 = ((yy)yy_0_1_1[2]);
yyv_Name = yy_0_1_1_1;
yyv_Pos = yy_0_1_1_2;
if (yy_0_1_2[0] != 1) goto yyfl_29_3;
yy_0_1_2_1 = ((yy)yy_0_1_2[1]);
yy_0_1_2_2 = ((yy)yy_0_1_2[2]);
yy_0_1_2_3 = ((yy)yy_0_1_2[3]);
if (yy_0_1_2_1[0] != 1) goto yyfl_29_3;
yy_0_1_2_1_1 = ((yy)yy_0_1_2_1[1]);
yy_0_1_2_1_2 = ((yy)yy_0_1_2_1[2]);
yyv_Name2 = yy_0_1_2_1_1;
yyv_Pos2 = yy_0_1_2_1_2;
yyv_Tl = yy_0_1_2_2;
yy_1_1 = ((yy)"Too many parameters for token");
yy_1_2 = yyv_Pos;
Error(yy_1_1, yy_1_2);
return;
yyfl_29_3 : ;
}
yyErr(2,544);
}
define_local_name(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
yy yyb;
yy yyv_Mode;
yy yy_0_1;
yy yyv_Type;
yy yy_0_2;
yy yyv_Name;
yy yy_0_3;
yy yyv_L;
yy yy_1;
yy yy_2;
yy yy_2_1;
yy yy_2_1_1;
yy yy_2_1_2;
yy yy_2_1_3;
yy yy_2_2;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
yyv_Mode = yy_0_1;
yyv_Type = yy_0_2;
yyv_Name = yy_0_3;
yyb = yyh;
yyh += 7; if (yyh > yyhx) yyExtend();
yy_1 = yyglov_LocalNames;
if (yy_1 == (yy) yyu) yyErr(1,580);
yyv_L = yy_1;
yy_2_1_1 = yyv_Mode;
yy_2_1_2 = yyv_Type;
yy_2_1_3 = yyv_Name;
yy_2_1 = yyb + 3;
yy_2_1[0] = 1;
yy_2_1[1] = ((long)yy_2_1_1);
yy_2_1[2] = ((long)yy_2_1_2);
yy_2_1[3] = ((long)yy_2_1_3);
yy_2_2 = yyv_L;
yy_2 = yyb + 0;
yy_2[0] = 1;
yy_2[1] = ((long)yy_2_1);
yy_2[2] = ((long)yy_2_2);
yyglov_LocalNames = yy_2;
return;
}
}
int defined_locally(yyin_1, yyout_1, yyout_2)
yy yyin_1;
yy *yyout_1;
yy *yyout_2;
{
{
yy yyb;
yy yyv_Name;
yy yy_0_1;
yy yy_0_2;
yy yy_0_3;
yy yyv_L;
yy yy_1;
yy yy_2_1;
yy yy_2_2;
yy yyv_Mode;
yy yy_2_3;
yy yyv_Type;
yy yy_2_4;
yy_0_1 = yyin_1;
yyv_Name = yy_0_1;
yy_1 = yyglov_LocalNames;
if (yy_1 == (yy) yyu) yyErr(1,585);
yyv_L = yy_1;
yy_2_1 = yyv_L;
yy_2_2 = yyv_Name;
if (! defined_locally_h(yy_2_1, yy_2_2, &yy_2_3, &yy_2_4)) goto yyfl_34;
yyv_Mode = yy_2_3;
yyv_Type = yy_2_4;
yy_0_2 = yyv_Mode;
yy_0_3 = yyv_Type;
*yyout_1 = yy_0_2;
*yyout_2 = yy_0_3;
return 1;
yyfl_34_1 : ;
}
return 0;
}
int defined_locally_h(yyin_1, yyin_2, yyout_1, yyout_2)
yy yyin_1;
yy yyin_2;
yy *yyout_1;
yy *yyout_2;
{
{
yy yyb;
yy yy_0_1;
yy yy_0_1_1;
yy yyv_M;
yy yy_0_1_1_1;
yy yyv_T;
yy yy_0_1_1_2;
yy yyv_N;
yy yy_0_1_1_3;
yy yyv_Tail;
yy yy_0_1_2;
yy yyv_Name;
yy yy_0_2;
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_Mode;
yy yy_1_1_2_2;
yy yy_1_1_3_1;
yy yyv_Type;
yy yy_1_1_3_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_0_1 = yyin_1;
yy_0_2 = yyin_2;
if (yy_0_1[0] != 1) goto yyfl_35_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_35_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_M = yy_0_1_1_1;
yyv_T = yy_0_1_1_2;
yyv_N = yy_0_1_1_3;
yyv_Tail = yy_0_1_2;
yyv_Name = yy_0_2;
{
yy yysb = yyb;
yy_1_1_1_1 = yyv_N;
yy_1_1_1_2 = yyv_Name;
if (! yyeq_IDENT(yy_1_1_1_1, yy_1_1_1_2)) goto yyfl_35_1_1_1;
yy_1_1_2_1 = yyv_M;
yy_1_1_2_2 = yy_1_1_2_1;
yyv_Mode = yy_1_1_2_2;
yy_1_1_3_1 = yyv_T;
yy_1_1_3_2 = yy_1_1_3_1;
yyv_Type = yy_1_1_3_2;
goto yysl_35_1_1;
yyfl_35_1_1_1 : ;
yy_1_2_1_1 = yyv_Tail;
yy_1_2_1_2 = yyv_Name;
//if (! defined_locally_h(yy_1_2_1_1, yy_1_2_1_2, &yy_1_2_1_3, &yy_1_2_1_4
yyv_Mode = yy_1_2_1_3;
yyv_Type = yy_1_2_1_4;
goto yysl_35_1_1;
yyfl_35_1_1_2 : ;
goto yyfl_35_1;
yysl_35_1_1 : ;
yyb = yysb;
}
yy_0_3 = yyv_Mode;
yy_0_4 = yyv_Type;
*yyout_1 = yy_0_3;
*yyout_2 = yy_0_4;
return 1;
yyfl_35_1 : ;
}
return 0;
}
put_CodeBlock(yyin_1, yyin_2, yyin_3)
yy yyin_1;
yy yyin_2;
yy yyin_3;
{
{
yy yyb;
yy yyv_Str1;
yy yy_0_1;
yy yy_0_2;
yy yyv_BlkTxt;
yy yy_0_2_1;
yy yyv_BlkPos;
yy yy_0_2_2;
yy yyv_Str2;
yy yy_0_3;
yy yy_1_1;
yy yy_2_1;
yy yyv_N1;
yy yy_2_2;
yy yy_3_1;
yy yyv_Name;
yy yy_4_1;
yy yy_5_1;
yy yy_6_1;
yy yy_7_1;
yy yy_9_1;
yy yy_10_1;
yy yy_11_1;
yy yyv_N2;
yy yy_13_1;
yy yy_14_1;
yy yy_15_1;
yy yy_15_1_1;
yy yy_15_1_2;
yy yy_16_1;
yy_0_1 = yyin_1;
yy_0_2 = yyin_2;
yy_0_3 = yyin_3;
yyv_Str1 = yy_0_1;
if (yy_0_2[0] != 1) goto yyfl_36_1;
yy_0_2_1 = ((yy)yy_0_2[1]);
yy_0_2_2 = ((yy)yy_0_2[2]);
yyv_BlkTxt = yy_0_2_1;
yyv_BlkPos = yy_0_2_2;
yyv_Str2 = yy_0_3;
yy_1_1 = ((yy)"#line ");
Put(yy_1_1);
yy_2_1 = yyv_BlkPos;
POS_to_LineNumber(yy_2_1, &yy_2_2);
yyv_N1 = yy_2_2;
yy_3_1 = yyv_N1;
PutI(yy_3_1);
GetSourceFileName(&yy_4_1);
yyv_Name = yy_4_1;
yy_5_1 = ((yy)" \"");
Put(yy_5_1);
yy_6_1 = yyv_Name;
Put(yy_6_1);
yy_7_1 = ((yy)"\"");
Put(yy_7_1);
Nl();
yy_9_1 = yyv_Str1;
Put(yy_9_1);
yy_10_1 = yyv_BlkTxt;
PutBlockText(yy_10_1);
yy_11_1 = yyv_Str2;
Put(yy_11_1);
Nl();
GetOutputLineCount(&yy_13_1);
yyv_N2 = yy_13_1;
// Co3 Änderung
yy_1_1 = ((yy)"#line ");
Put(yy_1_1);
yy_2_1 = yyv_BlkPos;
POS_to_LineNumber(yy_2_1, &yy_2_2);
yyv_N1 = yy_2_2;
yy_3_1 = yyv_N1;
PutI(1);
GetSourceFileName(&yy_4_1);
yyv_Name = yy_4_1;
yy_5_1 = ((yy)" \"");
Put(yy_5_1);
yy_6_1 = yyv_Name;
Put(yy_6_1);
yy_7_1 = ((yy)"\"");
Put(yy_7_1);
Nl();
// Ende Co3 Änderung
yy_14_1 = ((yy)"//#line ");
Put(yy_14_1);
yy_15_1_1 = yyv_N2;
yy_15_1_2 = ((yy)2);
yy_15_1 = (yy)(((long)yy_15_1_1)+((long)yy_15_1_2));
PutI(yy_15_1);
yy_16_1 = ((yy)" \"yygramm.c\"");
Put(yy_16_1);
Nl();
return;
yyfl_36_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_2[0] != 2) goto yyfl_36_2;
return;
yyfl_36_2 : ;
}
yyErr(2,600);
}

¤ Dauer der Verarbeitung: 0.43 Sekunden  (vorverarbeitet)  ¤



Download des
Quellennavigators
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.


Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff

                                                                                                                                                                                                                                                                                                                                                                                                     

Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder
Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik