diff options
| author | peb <unknown> | 2005-05-13 11:40:18 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-05-13 11:40:18 +0000 |
| commit | 20eae7786f420ce02e8043c43c82e31e49c5af72 (patch) | |
| tree | 9396d462d993cfb499703cf7a05ef3a553588c16 /src/GF/UseGrammar | |
| parent | 0853d7bcfb64b683d7d8b4f6d912717f11bdd4a7 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index e1d2dff77..65657ca26 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/12 10:03:33 $ --- > CVS $Author: aarne $ --- > CVS $Revision: 1.61 $ +-- > CVS $Date: 2005/05/13 12:40:20 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.62 $ -- -- A database for customizable GF shell commands. -- @@ -75,6 +75,7 @@ import qualified GF.OldParsing.ConvertGrammar as CnvOld -- OBSOLETE import qualified GF.Printing.PrintParser as PrtOld -- OBSOLETE import qualified GF.Infra.Print as Prt import qualified GF.Conversion.GFC as Cnv +import qualified GF.Conversion.Types as CnvTypes import GF.Canon.GFC import qualified GF.Canon.MkGFC as MC @@ -254,6 +255,13 @@ customGrammarPrinter = ,(strCI "cfg", Prt.prt . stateCFG) ,(strCI "pinfo", Prt.prt . statePInfo) ,(strCI "abstract", Prt.prtAfter "\n" . Cnv.gfc2abstract . stateGrammarLang) + + ,(strCI "simple-haskell", CnvTypes.prtHsSGrammar . Cnv.gfc2simple . stateGrammarLang) + ,(strCI "mcfg-haskell", CnvTypes.prtHsMGrammar . stateMCFG) + ,(strCI "cfg-haskell", CnvTypes.prtHsCGrammar . stateCFG) + -- ,(strCI "simple-prolog", CnvTypes.prtHsSGrammar . Cnv.gfc2simple . stateGrammarLang) + ,(strCI "mcfg-prolog", CnvTypes.prtPlMGrammar . stateMCFG) + ,(strCI "cfg-prolog", CnvTypes.prtPlCGrammar . stateCFG) -- obsolete, or only for testing: ,(strCI "abs-pl", Cnv.abstract2prolog . Cnv.gfc2abstract . stateGrammarLang) ,(strCI "cfg-pl", Cnv.cfg2prolog . stateCFG) |