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

Changed exp.tr to use layout syntax and the Cat type.

Browse Source
This commit is contained in:
bringert
2005-11-28 21:24:31 +00:00
parent 8535445a81
commit 2455b73559
1 changed files with 24 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
transfer/examples/exp.tr
View File

@@ -1,31 +1,30 @@
data Stm : Type where {} ;
data Exp : Type where {} ;
data Var : Type where {} ;
data Typ : Type where {} ;
data Cat : Type where
Stm : Cat
Exp : Cat
Var : Cat
Typ : Cat
ListStm : Cat
data ListStm : Type where {} ;
data Tree : Type -> 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
data Tree : Type -> 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
NilStm : Tree ListStm ;
ConsStm : Tree Stm -> Tree ListStm -> Tree ListStm ;
} ;
derive composOp Tree
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
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;
} ;