msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Reinstate SISR field name for top-level categories. The VoiceXML generation relies on it.

Browse Source
This commit is contained in:
bringert
2006-12-10 23:31:43 +00:00
parent 6bceec8518
commit b664973cae
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/PrSRGS.hs
View File

@@ -69,7 +69,7 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start,
topCatRules = [topRule tc [oneOf (map (it tc) cs)] | (tc,cs) <- topCats]
where topCats = buildMultiMap [(cfgCatToGFCat origCat, cat) | SRGRule cat origCat _ <- rs]
it i c = Tag "item" [] [Tag "ruleref" [("uri","#" ++ prCat c)] [],
tag sisr [EThis := (ERef c)]]
tag sisr [(EThis :. i) := (ERef c)]]
topRule i is = Tag "rule" [("id",i),("scope","public")] is
rule :: String -> [XML] -> XML