GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-04 00:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Changed SRGS SISR printing to be closer to the current working draft standard, as supported by the WebSphere implementation (and thus Opera).

Browse Source
This commit is contained in:
bringert
2006-12-08 19:53:44 +00:00
parent c038db9d7c
commit a4b0496378
4 changed files with 83 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/UseGrammar/Custom.hs
View File

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