From 2945d9bcb8fea2ddf07c60ff45f5fcd600378b14 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 26 May 2004 08:33:27 +0000 Subject: strict BinTree --- src/GF/UseGrammar/Custom.hs | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'src/GF/UseGrammar/Custom.hs') diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 7770386ec..d7cf99fa0 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -40,7 +40,8 @@ import ChartParser -- or some other CF Parser -- grammar conversions -- peb 19/4-04 -- see also customGrammarPrinter -import ConvertGrammar +import qualified ConvertGrammar as CG +import TestConversions (prRaw) import MoreCustom -- either small/ or big/. The one in Small is empty. @@ -169,13 +170,15 @@ customGrammarPrinter = -} -- add your own grammar printers here -- grammar conversions, (peb) +{- ,(strCI "gfc_show", show . grammar2canon . stateGrammarST) ,(strCI "gfc_raw", prRaw . stateGrammarST) - ,(strCI "tnf", prCanon . convertCanonToTNF . stateGrammarST) - ,(strCI "mcfg", prMCFG . convertCanonToMCFG . stateGrammarST) - ,(strCI "mcfg_cf", prCF . convertCanonToCF . stateGrammarST) - ,(strCI "mcfg_canon", prCanon . convertCanonToMCFG . stateGrammarST) - ,(strCI "mcfg_raw", prRaw . convertCanonToMCFG . stateGrammarST) + ,(strCI "tnf", prCanon . CG.convertCanonToTNF . stateGrammarST) + ,(strCI "mcfg", CG.prMCFG . CG.convertCanonToMCFG . stateGrammarST) + ,(strCI "mcfg_cf", prCF . CG.convertCanonToCFG . stateGrammarST) + ,(strCI "mcfg_canon", prCanon . CG.convertCanonToMCFG . stateGrammarST) + ,(strCI "mcfg_raw", prRaw . CG.convertCanonToMCFG . stateGrammarST) +-} --- also include printing via grammar2syntax! ] ++ moreCustomGrammarPrinter -- cgit v1.2.3