diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /old-examples/gfcc/even.c | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff) | |
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'old-examples/gfcc/even.c')
| -rw-r--r-- | old-examples/gfcc/even.c | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/old-examples/gfcc/even.c b/old-examples/gfcc/even.c new file mode 100644 index 000000000..bb88e32bd --- /dev/null +++ b/old-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 + ) + ) + |