1
0
forked from GitHub/gf-core

Get JSGF generation to compile. Still untested.

This commit is contained in:
bjorn
2008-06-12 18:39:02 +00:00
parent b76c8c195c
commit 4369e67998
3 changed files with 26 additions and 53 deletions

View File

@@ -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