From 7ea135378f9b6b70288ac174e2f165f469efcf58 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 19 Sep 2006 12:59:33 +0000 Subject: FCFG format in BNFC --- src/GF/UseGrammar/Custom.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/GF/UseGrammar') 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) -- cgit v1.2.3