diff options
| author | peb <unknown> | 2004-06-10 14:37:43 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-06-10 14:37:43 +0000 |
| commit | 652618742aa1dd10b1a53bb132a476a91f1dc3ba (patch) | |
| tree | 602c1ab0e7f8ba9f1797e90a9a768c19e35d677a /src/GF/UseGrammar/Custom.hs | |
| parent | 3522b2a3cd8d01ef1b908c1a717b0592332a5737 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 23bd55afe..daaa7c997 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -37,7 +37,7 @@ import GrammarToHaskell -- the cf parsing algorithms import ChartParser -- or some other CF Parser -import qualified ParseCFviaCFG as PCF +import qualified ParseCF as PCF --import qualified ParseGFCviaCFG as PGFC --import NewChartParser --import NewerChartParser @@ -177,12 +177,12 @@ customGrammarPrinter = -- add your own grammar printers here -- grammar conversions, (peb) ,(strCI "gfc_show", show . grammar2canon . stateGrammarST) - -- ,(strCI "tnf", prCanon . Cnv.convertCanonToTNF . stateGrammarST) - ,(strCI "emcfg", Prt.prt . Cnv.convertCanonToEMCFG . stateGrammarST) - ,(strCI "emcfg_cf", Prt.prt . Cnv.convertCanonViaEMCFGtoCFG . stateGrammarST) - ,(strCI "mcfg", Prt.prt . Cnv.convertCanonToMCFG . stateGrammarST) - ,(strCI "mcfg_cf", Prt.prt . Cnv.convertCanonToCFG . stateGrammarST) - ,(strCI "mcfg_show", show . Cnv.convertCanonToMCFG . stateGrammarST) + ,(strCI "emcfg", Prt.prt . Cnv.emcfg . statePInfo) + ,(strCI "mcfg", Prt.prt . Cnv.mcfg . statePInfo) + ,(strCI "cfg", Prt.prt . Cnv.cfg . statePInfo) + ,(strCI "emcfg_show", show . Cnv.emcfg . statePInfo) + ,(strCI "mcfg_show", show . Cnv.mcfg . statePInfo) + ,(strCI "cfg_show", show . Cnv.cfg . statePInfo) --- also include printing via grammar2syntax! ] ++ moreCustomGrammarPrinter |