From 7237438a94ae81a29b45b91a9929133afeb95831 Mon Sep 17 00:00:00 2001 From: bjorn Date: Tue, 3 Jun 2008 19:32:42 +0000 Subject: Added "bnf" output format for debugging. --- src-3.0/GF/Compile/Export.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src-3.0/GF/Compile') diff --git a/src-3.0/GF/Compile/Export.hs b/src-3.0/GF/Compile/Export.hs index 81d9e3140..25f99ed55 100644 --- a/src-3.0/GF/Compile/Export.hs +++ b/src-3.0/GF/Compile/Export.hs @@ -7,6 +7,8 @@ import PGF.Raw.Convert (fromPGF) import GF.Compile.GFCCtoHaskell import GF.Compile.GFCCtoJS import GF.Infra.Option +import GF.Speech.CFG +import GF.Speech.PGFToCFG import GF.Speech.SRGS import GF.Text.UTF8 @@ -22,6 +24,7 @@ prPGF fmt gr name = case fmt of FmtJavaScript -> pgf2js gr FmtHaskell -> grammar2haskell gr name FmtHaskell_GADT -> grammar2haskellGADT gr name + FmtBNF -> prCFG $ pgfToCFG gr (outputConcr gr) FmtSRGS_XML -> srgsXmlPrinter Nothing gr (outputConcr gr) -- | Get the name of the concrete syntax to generate output from. -- cgit v1.2.3