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

Move transfer into the GF repo.

Browse Source
This commit is contained in:
bringert
2005-11-25 16:36:19 +00:00
parent 66c1c31960
commit 2a59fffd45
42 changed files with 7400 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
transfer/examples/exp.tr Normal file
View File

@@ -0,0 +1,31 @@
data Stm : Type where {} ;
data Exp : Type where {} ;
data Var : Type where {} ;
data Typ : Type where {} ;
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 ;
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;
} ;