diff options
| author | aarne <unknown> | 2004-05-26 08:33:27 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-05-26 08:33:27 +0000 |
| commit | 2945d9bcb8fea2ddf07c60ff45f5fcd600378b14 (patch) | |
| tree | 7f63909f1620d6138147bc3d9a905fc24c48342f /src/GF/UseGrammar | |
| parent | ba74c109cd38209e046a1cf48ff8ef7604a1261a (diff) | |
strict BinTree
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 15 |
1 files changed, 9 insertions, 6 deletions
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 |