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

VoiceXML generation: catch up with children array in SISR.

Browse Source
This commit is contained in:
bringert
2007-01-07 18:31:03 +00:00
parent 8d29a4241b
commit 3220f75dcb
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/GF/Speech/GrammarToVoiceXML.hs
View File

@@ -148,7 +148,7 @@ cat2form gr qs cat fs =
cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
cat2form gr qs cat fs =
form (catFormId cat) $
[var "value" (Just "{ name : '?' }"),
[var "value" Nothing,
-- var "callbacks" Nothing,
blockCond "value.name != '?'" [assign (catFieldId cat) "value"],
-- block [doCallback "entered" cat [return_ [catFieldId cat]] []],
@@ -175,14 +175,14 @@ fun2sub gr cat fun args =
++ concat (intersperse ", " (map prid args))
++ ") " ++ prid cat] ++ ss
where
argNames = zip ["arg"++show n | n <- [0..]] args
ss = map (uncurry mkSub) argNames
mkSub a t = subdialog s [("src","#"++catFormId t),
ss = zipWith mkSub [0..] args
mkSub n t = subdialog s [("src","#"++catFormId t),
("cond",catFieldId cat++".name == "++string (prid fun))]
[param "value" (catFieldId cat++"."++a),
[param "value" v,
-- param "callbacks" "callbacks",
filled [] [assign (catFieldId cat++"."++a) (s++"."++catFieldId t)]]
where s = prid fun ++ "_" ++ a
filled [] [assign v (s++"."++catFieldId t)]]
where s = prid fun ++ "_" ++ show n
v = catFieldId cat++".children["++show n++"]"
doCallback :: String -> VIdent -> [XML] -> [XML] -> XML
doCallback f cat i e =