GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -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 :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
cat2form gr qs cat fs = cat2form gr qs cat fs =
form (catFormId cat) $ form (catFormId cat) $
[var "value" (Just "{ name : '?' }"), [var "value" Nothing,
-- var "callbacks" Nothing, -- var "callbacks" Nothing,
blockCond "value.name != '?'" [assign (catFieldId cat) "value"], blockCond "value.name != '?'" [assign (catFieldId cat) "value"],
-- block [doCallback "entered" cat [return_ [catFieldId cat]] []], -- block [doCallback "entered" cat [return_ [catFieldId cat]] []],
@@ -175,14 +175,14 @@ fun2sub gr cat fun args =
++ concat (intersperse ", " (map prid args)) ++ concat (intersperse ", " (map prid args))
++ ") " ++ prid cat] ++ ss ++ ") " ++ prid cat] ++ ss
where where
argNames = zip ["arg"++show n | n <- [0..]] args ss = zipWith mkSub [0..] args
ss = map (uncurry mkSub) argNames mkSub n t = subdialog s [("src","#"++catFormId t),
mkSub a t = subdialog s [("src","#"++catFormId t),
("cond",catFieldId cat++".name == "++string (prid fun))] ("cond",catFieldId cat++".name == "++string (prid fun))]
[param "value" (catFieldId cat++"."++a), [param "value" v,
-- param "callbacks" "callbacks", -- param "callbacks" "callbacks",
filled [] [assign (catFieldId cat++"."++a) (s++"."++catFieldId t)]] filled [] [assign v (s++"."++catFieldId t)]]
where s = prid fun ++ "_" ++ a where s = prid fun ++ "_" ++ show n
v = catFieldId cat++".children["++show n++"]"
doCallback :: String -> VIdent -> [XML] -> [XML] -> XML doCallback :: String -> VIdent -> [XML] -> [XML] -> XML
doCallback f cat i e = doCallback f cat i e =