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

adapted GFCC2FCFG to other uses of GFCC, made it to default parser

Browse Source
This commit is contained in:
aarne
2007-09-19 13:49:12 +00:00
parent 6f58675729
commit 7fd4e067fa
8 changed files with 97 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/Compile/GrammarToGFCC.hs
View File

@@ -74,7 +74,7 @@ mkType t = case GM.catSkeleton t of
mkCType :: Type -> C.Term
mkCType t = case t of
EInt i -> C.C i
EInt i -> C.C $ fromInteger i
-- record parameter alias - created in gfc preprocessing
RecType [(LIdent "_", i), (LIdent "__", t)] -> C.RP (mkCType i) (mkCType t)
RecType rs -> C.R [mkCType t | (_, t) <- rs]
@@ -82,14 +82,14 @@ mkCType t = case t of
_ -> C.S [] ----- TStr
where
getI pt = case pt of
C.C i -> fromInteger i
C.C i -> i
C.RP i _ -> getI i
_ -> 1 -----
mkTerm :: Term -> C.Term
mkTerm tr = case tr of
Vr (IA (_,i)) -> C.V $ toInteger i
EInt i -> C.C i
Vr (IA (_,i)) -> C.V i
EInt i -> C.C $ fromInteger i
-- record parameter alias - created in gfc preprocessing
R [(LIdent "_", (_,i)), (LIdent "__", (_,t))] -> C.RP (mkTerm i) (mkTerm t)
-- ordinary record
@@ -112,7 +112,7 @@ mkTerm tr = case tr of
_ -> C.S [C.K (C.KS (A.prt tr +++ "66662"))] ---- for debugging
where
mkLab (LIdent l) = case l of
'_':ds -> (read ds) :: Integer
'_':ds -> (read ds) :: Int
_ -> prtTrace tr $ 66663
-- return just one module per language