diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-02-03 18:43:06 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-02-03 18:43:06 +0000 |
| commit | 9bae44c37d31afa0a05d012d6f4cfa204ec3f125 (patch) | |
| tree | eb44bf858b96880088bc0198af5bae7c73590a3a /src/GF/UseGrammar/Custom.hs | |
| parent | 074efc5cd7f9d819b5aa6efdcf7164133a3a7aa7 (diff) | |
Moved general XML stuff to GF.Data.XML. Started working on VoiceXML generation.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 0d6a143ef..4400c2585 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -60,6 +60,7 @@ import GF.Speech.PrJSGF (jsgfPrinter) import GF.Speech.PrSRGS (srgsXmlPrinter) import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) +import GF.Speech.GrammarToVoiceXML (grammar2vxml) import GF.Data.Zipper @@ -257,6 +258,7 @@ customGrammarPrinter = ,(strCI "srgs_xml_ms_sem", \s -> let opts = stateOptions s name = cncId s in srgsXmlPrinter name opts True Nothing $ stateCFG s) + ,(strCI "vxml", grammar2vxml . stateGrammarST) ,(strCI "slf", \s -> let opts = stateOptions s start = getStartCat opts name = cncId s |