From 91415f7ad02d31ed9034eff2a6f3c8213409ee71 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 9 Nov 2007 00:21:57 +0000 Subject: grammar printing options in gf3 and gfc --- src/GF/Canon/CanonToGFCC.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/Canon') diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs index 1262505a1..290b6ba33 100644 --- a/src/GF/Canon/CanonToGFCC.hs +++ b/src/GF/Canon/CanonToGFCC.hs @@ -70,7 +70,7 @@ normalize = share . unoptimizeCanon . Sub.unSubelimCanon where canon2gfcc :: CanonGrammar -> D.GFCC canon2gfcc cgr@(M.MGrammar ((a,M.ModMod abm):cms)) = - D.GFCC an cns abs cncs + D.GFCC an cns Map.empty abs cncs where an = (i2i a) cns = map (i2i . fst) cms @@ -86,7 +86,7 @@ canon2gfcc cgr@(M.MGrammar ((a,M.ModMod abm):cms)) = [(cat,[f | (f, (C.DTyp _ c _,_)) <- lfuns, c==cat]) | (cat,_) <- lcats] cncs = Map.fromList [mkConcr (i2i lang) mo | (lang,M.ModMod mo) <- cms] - mkConcr lang mo = (lang,D.Concr flags lins opers lincats lindefs printnames) + mkConcr lang mo = (lang,D.Concr flags lins opers lincats lindefs printnames params) where flags = Map.fromAscList [] ---- flags opers = Map.fromAscList [] -- opers will be created as optimization @@ -97,6 +97,7 @@ canon2gfcc cgr@(M.MGrammar ((a,M.ModMod abm):cms)) = lindefs = Map.fromAscList [(i2i c, mkTerm tr) | (c,GFC.CncCat _ tr _) <- tree2list (M.jments mo)] printnames = Map.fromAscList [] ---- printnames + params = Map.fromAscList [] ---- params i2i :: Ident -> C.CId i2i (IC c) = C.CId c -- cgit v1.2.3