GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

completed ConvertGFCC for all terms

Browse Source
This commit is contained in:
aarne
2007-12-14 11:16:01 +00:00
parent f85ba4bfa0
commit 49b3ffb7a0
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/GF/GFCC/Raw/ConvertGFCC.hs
View File

@@ -72,8 +72,13 @@ toExp :: RExp -> Exp
toExp e = case e of toExp e = case e of
App fun [App (CId "B") xs, App (CId "X") exps] -> App fun [App (CId "B") xs, App (CId "X") exps] ->
DTr [x | AId x <- xs] (AC fun) (lmap toExp exps) DTr [x | AId x <- xs] (AC fun) (lmap toExp exps)
App (CId "Eq") _ -> EEq [] ---- App (CId "Eq") eqs ->
EEq [Equ (lmap toExp ps) (toExp v) | App (CId "Case") (v:ps) <- eqs]
AMet -> DTr [] (AM 0) [] AMet -> DTr [] (AM 0) []
AInt i -> DTr [] (AI i) []
AFlt i -> DTr [] (AF i) []
AStr i -> DTr [] (AS i) []
AId i -> DTr [] (AV i) []
_ -> error $ "exp " ++ show e _ -> error $ "exp " ++ show e
toTerm :: RExp -> Term toTerm :: RExp -> Term
@@ -136,8 +141,13 @@ fromExp :: Exp -> RExp
fromExp e = case e of fromExp e = case e of
DTr xs (AC fun) exps -> DTr xs (AC fun) exps ->
App fun [App (CId "B") (lmap AId xs), App (CId "X") (lmap fromExp exps)] App fun [App (CId "B") (lmap AId xs), App (CId "X") (lmap fromExp exps)]
DTr xs (AM _) exps -> AMet ---- DTr [] (AS s) [] -> AStr s
EEq _ -> App (CId "Eq") [] ---- DTr [] (AF d) [] -> AFlt d
DTr [] (AV x) [] -> AId x
DTr [] (AI i) [] -> AInt (toInteger i)
DTr [] (AM _) [] -> AMet ----
EEq eqs ->
App (CId "Eq") [App (CId "Case") (lmap fromExp (v:ps)) | Equ ps v <- eqs]
_ -> error $ "exp " ++ show e _ -> error $ "exp " ++ show e
fromTerm :: Term -> RExp fromTerm :: Term -> RExp