diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-09-19 12:59:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-09-19 12:59:33 +0000 |
| commit | 7ea135378f9b6b70288ac174e2f165f469efcf58 (patch) | |
| tree | 73afa1bbf88acc95fcc2f3b97464a14bbd5c5aec /src/GF/UseGrammar/Custom.hs | |
| parent | 1242b8cc91f2ba3b9860cf34b36d0a5bbcea1b1a (diff) | |
FCFG format in BNFC
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index b18dd6357..148cd49fe 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -37,6 +37,7 @@ import qualified GF.Canon.GFC as C import qualified GF.Canon.CanonToGFCC as GFCC import qualified GF.Source.AbsGF as GF import qualified GF.Grammar.MMacros as MM +import GF.FCFG.ToFCFG import GF.Grammar.AbsCompute import GF.Grammar.TypeCheck import GF.UseGrammar.Generate @@ -310,6 +311,7 @@ customGrammarPrinter = -- grammar conversions: ,(strCI "mcfg", \_ -> Prt.prt . stateMCFG) ,(strCI "fcfg", \_ -> Prt.prt . stateFCFG) + ,(strCI "bfcfg", \_ -> printFGrammar . stateFCFG) ,(strCI "mcfg2fcfg",\_ -> Prt.prt . Cnv.mcfg2fcfg . stateMCFG) ,(strCI "cfg", \_ -> Prt.prt . stateCFG) ,(strCI "pinfo", \_ -> Prt.prt . statePInfo) |