diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-08 19:53:44 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-08 19:53:44 +0000 |
| commit | a4b04963782448e477e2ef54640ee5739c97f17a (patch) | |
| tree | 7d3664c6e070f50eb27c7ac1f1bf4bf2a91b88d6 /src/GF/UseGrammar | |
| parent | c038db9d7cc39de613ece4edcfbc5820d53317dc (diff) | |
Changed SRGS SISR printing to be closer to the current working draft standard, as supported by the WebSphere implementation (and thus Opera).
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 4aef4e33c..7e76688d9 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -61,7 +61,7 @@ import GF.Canon.MkGFC import GF.CF.CFtoSRG import GF.Speech.PrGSL (gslPrinter) import GF.Speech.PrJSGF (jsgfPrinter) -import GF.Speech.PrSRGS (srgsXmlPrinter) +import qualified GF.Speech.PrSRGS as SRGS import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) import GF.Speech.GrammarToVoiceXML (grammar2vxml) @@ -254,16 +254,16 @@ customGrammarPrinter = in jsgfPrinter name start opts Nothing $ stateCFG s) ,(strCI "srgs_xml", \opts s -> let name = cncId s start = getStartCatCF opts s - in srgsXmlPrinter name start opts False Nothing $ stateCFG s) + in SRGS.srgsXmlPrinter name start opts Nothing Nothing $ stateCFG s) ,(strCI "srgs_xml_prob", \opts s -> let name = cncId s probs = stateProbs s start = getStartCatCF opts s - in srgsXmlPrinter name start opts False (Just probs) $ stateCFG s) - ,(strCI "srgs_xml_ms_sem", + in SRGS.srgsXmlPrinter name start opts Nothing (Just probs) $ stateCFG s) + ,(strCI "srgs_xml_sisr_old", \opts s -> let name = cncId s start = getStartCatCF opts s - in srgsXmlPrinter name start opts True Nothing $ stateCFG s) + in SRGS.srgsXmlPrinter name start opts (Just SRGS.SISROld) Nothing $ stateCFG s) ,(strCI "vxml", \opts s -> let start = getStartCat opts s in grammar2vxml start s) ,(strCI "slf", \opts s -> let start = getStartCatCF opts s |