changed names of resource-1.3; added a note on homepage on release

This commit is contained in:
aarne
2008-06-25 16:54:35 +00:00
parent 7d721eb16e
commit c5c6d13546
1729 changed files with 113 additions and 32 deletions

72
old-examples/gfcc/even.c Normal file
View File

@@ -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
)
)