forked from GitHub/gf-core
31 lines
710 B
Plaintext
31 lines
710 B
Plaintext
data Cat : Type where
|
|
Stm : Cat
|
|
Exp : Cat
|
|
Var : Cat
|
|
Typ : Cat
|
|
ListStm : Cat
|
|
|
|
data Tree : Cat -> Type where
|
|
SDecl : Tree Typ -> Tree Var -> Tree Stm
|
|
SAss : Tree Var -> Tree Exp -> Tree Stm
|
|
SBlock : Tree ListStm -> Tree Stm
|
|
EAdd : Tree Exp -> Tree Exp -> Tree Exp
|
|
EStm : Tree Stm -> Tree Exp
|
|
EVar : Tree Var -> Tree Exp
|
|
EInt : Integer -> Tree Exp
|
|
V : String -> Tree Var
|
|
TInt : Tree Typ
|
|
TFloat : Tree Typ
|
|
|
|
NilStm : Tree ListStm
|
|
ConsStm : Tree Stm -> Tree ListStm -> Tree ListStm
|
|
|
|
derive composOp Tree
|
|
|
|
rename : (String -> String) -> (C : Type) -> Tree C -> Tree C
|
|
rename f C t = case t of
|
|
V x -> V (f x)
|
|
_ -> composOp_Tree C (rename f) t
|
|
|
|
|