diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-03 20:05:52 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-03 20:05:52 +0000 |
| commit | 27dda59db4be007d4daa58f8f0a12873f26af1d4 (patch) | |
| tree | 8066316c25a84f3beecf258f95d9144093c3c4be /src-3.0/GF/Compile | |
| parent | 957b4252dd7bb49a314d460a866790424dcba43c (diff) | |
Get VoiceXML generation working.
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/Export.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src-3.0/GF/Compile/Export.hs b/src-3.0/GF/Compile/Export.hs index 25f99ed55..44ea189cb 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 +import GF.Speech.VoiceXML import GF.Text.UTF8 -- top-level access to code generation @@ -26,6 +27,8 @@ 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) + 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. |