From 4369e679986fb602180b03f461105b9b3a2fdce2 Mon Sep 17 00:00:00 2001 From: bjorn Date: Thu, 12 Jun 2008 18:39:02 +0000 Subject: Get JSGF generation to compile. Still untested. --- 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 22b248159..d5f9e33ae 100644 --- a/src-3.0/GF/Compile/Export.hs +++ b/src-3.0/GF/Compile/Export.hs @@ -10,6 +10,7 @@ import GF.Infra.Option import GF.Speech.CFG import GF.Speech.PGFToCFG import GF.Speech.SRGS_XML +import GF.Speech.JSGF import GF.Speech.VoiceXML import GF.Text.UTF8 @@ -27,9 +28,11 @@ prPGF fmt gr name = case fmt of FmtHaskell_GADT -> grammar2haskellGADT gr name FmtBNF -> prCFG $ pgfToCFG gr (outputConcr gr) FmtSRGS_XML -> srgsXmlPrinter Nothing gr (outputConcr gr) + FmtJSGF -> jsgfPrinter Nothing gr (outputConcr gr) FmtVoiceXML -> grammar2vxml gr (outputConcr gr) + -- | Get the name of the concrete syntax to generate output from. -- FIXME: there should be an option to change this. outputConcr :: PGF -> CId -- cgit v1.2.3