msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

doc

Browse Source
This commit is contained in:
aarne
2004-09-18 09:24:51 +00:00
parent 96890f5fad
commit 518d44f759
5 changed files with 220 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
examples/gfcc/Imper.gf
View File

@@ -8,18 +8,21 @@ abstract Imper = {
fun
Decl : (A : Typ) -> (Var A -> Stm) -> Stm ;
Assign : (A : Typ) -> Var A -> Exp A -> Stm ;
Assign : (A : Typ) -> Var A -> Exp A -> Stm -> Stm ;
Return : (A : Typ) -> Exp A -> Stm ;
While : Exp TInt -> Stm -> Stm ;
Block : Stm -> Stm ;
None : Stm ;
Next : Stm -> Stm -> Stm ;
While : Exp TInt -> Stm -> Stm -> Stm ;
Block : Stm -> Stm -> Stm ;
End : Stm ;
EVar : (A : Typ) -> Var A -> Exp A ;
EInt : Int -> Exp TInt ;
EFloat : Int -> Int -> Exp TFloat ;
EAddI : Exp TInt -> Exp TInt -> Exp TInt ;
EAddF : Exp TFloat -> Exp TFloat -> Exp TFloat ;
EMulI : Exp TInt -> Exp TInt -> Exp TInt ;
EMulF : Exp TFloat -> Exp TFloat -> Exp TFloat ;
ELtI : Exp TInt -> Exp TInt -> Exp TInt ;
ELtF : Exp TFloat -> Exp TFloat -> Exp TInt ;
TInt : Typ ;
TFloat : Typ ;
@@ -43,7 +46,7 @@ abstract Imper = {
BodyCons : (A : Typ) -> (AS : Typs) ->
(Var A -> Body AS) -> Body (ConsTyp A AS) ;
EApp : (args : Typs) -> (val : Typ) -> Fun args val -> Exps args -> Exp val ;
EApp : (AS : Typs) -> (V : Typ) -> Fun AS V -> Exps AS -> Exp V ;
NilExp : Exps NilTyp ;
ConsExp : (A : Typ) -> (AS : Typs) ->