forked from GitHub/gf-core
56 lines
1.4 KiB
Plaintext
56 lines
1.4 KiB
Plaintext
abstract Imper = {
|
|
|
|
cat
|
|
Stm ;
|
|
Typ ;
|
|
Exp Typ ;
|
|
Var Typ ;
|
|
|
|
fun
|
|
Decl : (A : Typ) -> (Var A -> Stm) -> Stm ;
|
|
Assign : (A : Typ) -> Var A -> Exp A -> Stm -> Stm ;
|
|
Return : (A : Typ) -> Exp A -> 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 ;
|
|
|
|
cat
|
|
Program ;
|
|
Typs ;
|
|
Fun Typs Typ ;
|
|
Body Typs ;
|
|
Exps Typs ;
|
|
|
|
fun
|
|
Empty : Program ;
|
|
Funct : (AS : Typs) -> (V : Typ) ->
|
|
(Body AS) -> (Fun V AS -> Program) -> Program ;
|
|
|
|
NilTyp : Typs ;
|
|
ConsTyp : Typ -> Typs -> Typs ;
|
|
|
|
BodyNil : Stm -> Body NilTyp ;
|
|
BodyCons : (A : Typ) -> (AS : Typs) ->
|
|
(Var A -> Body AS) -> Body (ConsTyp A AS) ;
|
|
|
|
EApp : (AS : Typs) -> (V : Typ) -> Fun AS V -> Exps AS -> Exp V ;
|
|
|
|
NilExp : Exps NilTyp ;
|
|
ConsExp : (A : Typ) -> (AS : Typs) ->
|
|
Exp A -> Exps AS -> Exps (ConsExp A AS) ;
|
|
|
|
}
|