GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

report

Browse Source
This commit is contained in:
aarne
2004-09-19 20:27:01 +00:00
parent 518d44f759
commit 5dc88db711
7 changed files with 1133 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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