grammar.c

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

*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_MATCHEXPR(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_IDENT((yy)t1[1], (yy)t2[1])
&& (t1[2] == t2[2])
&& (t1[3] == t2[3])
;
}
}
yyPrint_MATCHEXPR(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("matchexpr");
yyFirstArg();
yyPrint_IDENT((yy)t[1]);
yyNextArg();
yyPrint_INT((yy)t[2]);
yyNextArg();
yyPrint_POS((yy)t[3]);
yyEndArgs();
break;
}
}
yybroadcast_MATCHEXPR(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_MATCHEXPR, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_IDENT((yy)t[1], A, &B, Handler);
*Out = B;
break;
}
}
}
yyeq_RULE(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_PATTERNLIST((yy)t1[1], (yy)t2[1])
&& yyeq_BLOCKITEMLIST((yy)t1[2], (yy)t2[2])
&& (t1[3] == t2[3])
&& (t1[4] == t2[4])
&& (t1[5] == t2[5])
&& (t1[6] == t2[6])
;
}
}
yyPrint_RULE(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("rule");
yyFirstArg();
yyPrint_PATTERNLIST((yy)t[1]);
yyNextArg();
yyPrint_BLOCKITEMLIST((yy)t[2]);
yyNextArg();
yyPrint_INT((yy)t[3]);
yyNextArg();
yyPrint_INT((yy)t[4]);
yyNextArg();
yyPrint_INT((yy)t[5]);
yyNextArg();
yyPrint_POS((yy)t[6]);
yyEndArgs();
break;
}
}
yybroadcast_RULE(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_RULE, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_PATTERNLIST((yy)t[1], A, &B, Handler);
yybroadcast_BLOCKITEMLIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
}
}
}
yyeq_PATTERN(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_IDENT((yy)t1[1], (yy)t2[1])
&& (t1[2] == t2[2])
&& (t1[3] == t2[3])
;
case 2: return (t2[0] == 2)
&& yyeq_IDENT((yy)t1[1], (yy)t2[1])
&& yyeq_PATTERNLIST((yy)t1[2], (yy)t2[2])
&& (t1[3] == t2[3])
&& (t1[4] == t2[4])
;
case 3: return (t2[0] == 3)
&& yyeq_IDENT((yy)t1[1], (yy)t2[1])
&& yyeq_PATTERN((yy)t1[2], (yy)t2[2])
&& (t1[3] == t2[3])
;
case 4: return (t2[0] == 4)
;
}
}
yyPrint_PATTERN(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("id");
yyFirstArg();
yyPrint_IDENT((yy)t[1]);
yyNextArg();
yyPrint_INT((yy)t[2]);
yyNextArg();
yyPrint_POS((yy)t[3]);
yyEndArgs();
break;
case 2: 
yyTerm("term");
yyFirstArg();
yyPrint_IDENT((yy)t[1]);
yyNextArg();
yyPrint_PATTERNLIST((yy)t[2]);
yyNextArg();
yyPrint_INT((yy)t[3]);
yyNextArg();
yyPrint_POS((yy)t[4]);
yyEndArgs();
break;
case 3: 
yyTerm("named");
yyFirstArg();
yyPrint_IDENT((yy)t[1]);
yyNextArg();
yyPrint_PATTERN((yy)t[2]);
yyNextArg();
yyPrint_POS((yy)t[3]);
yyEndArgs();
break;
case 4: 
yyTerm("error");
yyNoArgs();
break;
}
}
yybroadcast_PATTERN(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_PATTERN, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_IDENT((yy)t[1], A, &B, Handler);
*Out = B;
break;
case 2: 
yybroadcast_IDENT((yy)t[1], A, &B, Handler);
yybroadcast_PATTERNLIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 3: 
yybroadcast_IDENT((yy)t[1], A, &B, Handler);
yybroadcast_PATTERN((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 4: 
*Out = A;
break;
}
}
}
yyeq_PATTERNLIST(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_PATTERN((yy)t1[1], (yy)t2[1])
&& yyeq_PATTERNLIST((yy)t1[2], (yy)t2[2])
;
case 2: return (t2[0] == 2)
&& (t1[1] == t2[1])
;
}
}
yyPrint_PATTERNLIST(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("list");
yyFirstArg();
yyPrint_PATTERN((yy)t[1]);
yyNextArg();
yyPrint_PATTERNLIST((yy)t[2]);
yyEndArgs();
break;
case 2: 
yyTerm("nil");
yyFirstArg();
yyPrint_POS((yy)t[1]);
yyEndArgs();
break;
}
}
yybroadcast_PATTERNLIST(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_PATTERNLIST, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_PATTERN((yy)t[1], A, &B, Handler);
yybroadcast_PATTERNLIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_RULELIST(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_RULE((yy)t1[1], (yy)t2[1])
&& yyeq_RULELIST((yy)t1[2], (yy)t2[2])
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_RULELIST(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("list");
yyFirstArg();
yyPrint_RULE((yy)t[1]);
yyNextArg();
yyPrint_RULELIST((yy)t[2]);
yyEndArgs();
break;
case 2: 
yyTerm("nil");
yyNoArgs();
break;
}
}
yybroadcast_RULELIST(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_RULELIST, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_RULE((yy)t[1], A, &B, Handler);
yybroadcast_RULELIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_MODULELIST(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_MODULE((yy)t1[1], (yy)t2[1])
&& yyeq_MODULELIST((yy)t1[2], (yy)t2[2])
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_MODULELIST(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("list");
yyFirstArg();
yyPrint_MODULE((yy)t[1]);
yyNextArg();
yyPrint_MODULELIST((yy)t[2]);
yyEndArgs();
break;
case 2: 
yyTerm("nil");
yyNoArgs();
break;
}
}
yybroadcast_MODULELIST(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_MODULELIST, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_MODULE((yy)t[1], A, &B, Handler);
yybroadcast_MODULELIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_MODULE(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_DECLLIST((yy)t1[1], (yy)t2[1])
;
}
}
yyPrint_MODULE(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("module");
yyFirstArg();
yyPrint_DECLLIST((yy)t[1]);
yyEndArgs();
break;
}
}
yybroadcast_MODULE(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_MODULE, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_DECLLIST((yy)t[1], A, &B, Handler);
*Out = B;
break;
}
}
}
yyeq_IDENTLIST(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_IDENT((yy)t1[1], (yy)t2[1])
&& yyeq_IDENTLIST((yy)t1[2], (yy)t2[2])
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_IDENTLIST(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("list");
yyFirstArg();
yyPrint_IDENT((yy)t[1]);
yyNextArg();
yyPrint_IDENTLIST((yy)t[2]);
yyEndArgs();
break;
case 2: 
yyTerm("nil");
yyNoArgs();
break;
}
}
yybroadcast_IDENTLIST(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_IDENTLIST, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_IDENT((yy)t[1], A, &B, Handler);
yybroadcast_IDENTLIST((yy)t[2], B, &A, Handler);
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_INTLIST(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& (t1[1] == t2[1])
&& yyeq_INTLIST((yy)t1[2], (yy)t2[2])
;
case 2: return (t2[0] == 2)
;
}
}
yyPrint_INTLIST(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("list");
yyFirstArg();
yyPrint_INT((yy)t[1]);
yyNextArg();
yyPrint_INTLIST((yy)t[2]);
yyEndArgs();
break;
case 2: 
yyTerm("nil");
yyNoArgs();
break;
}
}
yybroadcast_INTLIST(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_INTLIST, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_INTLIST((yy)t[2], A, &B, Handler);
*Out = B;
break;
case 2: 
*Out = A;
break;
}
}
}
yyeq_OBJECT(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
&& yyeq_DOMAINDEF((yy)t1[1], (yy)t2[1])
;
case 2: return (t2[0] == 2)
&& yyeq_IDENT((yy)t1[1], (yy)t2[1])
&& yyeq_FUNCTORDEF((yy)t1[2], (yy)t2[2])
;
}
}
yyPrint_OBJECT(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("domainobj");
yyFirstArg();
yyPrint_DOMAINDEF((yy)t[1]);
yyEndArgs();
break;
case 2: 
yyTerm("functorobj");
yyFirstArg();
yyPrint_IDENT((yy)t[1]);
yyNextArg();
yyPrint_FUNCTORDEF((yy)t[2]);
yyEndArgs();
break;
}
}
yybroadcast_OBJECT(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_OBJECT, t, In, Out)) {
switch(t[0]) {
case 1: 
yybroadcast_DOMAINDEF((yy)t[1], A, &B, Handler);
*Out = B;
break;
case 2: 
yybroadcast_IDENT((yy)t[1], A, &B, Handler);
yybroadcast_FUNCTORDEF((yy)t[2], B, &A, Handler);
*Out = A;
break;
}
}
}
yy yyglov_NextUniqueNumber = (yy) yyu;
yyeq_PosDef(t1, t2) yy t1, t2;
{
switch(t1[0]) {
case 1: return (t2[0] == 1)
;
case 2: return (t2[0] == 2)
&& (t1[1] == t2[1])
;
}
}
yyPrint_PosDef(t) yy t;
{
switch(t[0]) {
case 1: 
yyTerm("none");
yyNoArgs();
break;
case 2: 
yyTerm("pos");
yyFirstArg();
yyPrint_POS((yy)t[1]);
yyEndArgs();
break;
}
}
yybroadcast_PosDef(t,In,Out,Handler)
yy t, In, *Out; int (*Handler) ();
{
yy A, B;
A = In;
if (! Handler(yybroadcast_PosDef, t, In, Out)) {
switch(t[0]) {
case 1: 
*Out = A;
break;
case 2: 
*Out = A;
break;
}
}
}
yy yyglov_FirstWithPos = (yy) yyu;
int yyparse_rc = 0;
ROOT()
{
extern char *THIS_RUNTIME_SYSTEM;
char *GENTLE = "Gentle 3.0 (C) 1992, 1997";
if (strcmp(THIS_RUNTIME_SYSTEM, GENTLE))
{ printf("INCONSISTENT GENTLE RUNTIME SYSTEM\n"); exit(1); }
yyExtend();
yyparse_rc = yyparse();
}
UniqueNumber(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_NextUniqueNumber;
if (yy_1 == (yy) yyu) yyErr(1,412);
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_NextUniqueNumber = yy_2;
yy_0_1 = yyv_N;
*yyout_1 = yy_0_1;
return;
}
}