From df4cbb482f0546b884eb210d825c794d14f82712 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 19 Sep 2004 20:27:01 +0000 Subject: report --- examples/gfcc/even.c | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 72 insertions(+) create mode 100644 examples/gfcc/even.c (limited to 'examples/gfcc/even.c') diff --git a/examples/gfcc/even.c b/examples/gfcc/even.c new file mode 100644 index 000000000..bb88e32bd --- /dev/null +++ b/examples/gfcc/even.c @@ -0,0 +1,72 @@ + Funct + (ConsTyp + TInt + NilTyp + ) + TInt + (BodyCons + TInt + NilTyp + (\x -> BodyNil + (IfElse + (ELtI + (EVar + TInt + x + ) + (EInt + 0 + ) + ) + (Block + (Return + TInt + (ESubI + (EInt + 0 + ) + (EVar + TInt + x + ) + ) + ) + End + ) + (Return + TInt + (EVar + TInt + x + ) + ) + End + ) + ) + ) + (\abs -> Funct + NilTyp + TInt + (BodyNil + (Decl + TInt + (\i -> Assign + TInt + i + (EApp + (ConsTyp + TInt + NilTyp + ) + TInt + abs + (ConsExp ? ? (EInt 16) NilExp) + ) + End + ) + ) + ) + (\main -> Empty + ) + ) + -- cgit v1.2.3