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

VoiceXML generation: fixed threading of existing values through subdialog calls.

Browse Source
This commit is contained in:
bringert
2006-02-06 16:45:59 +00:00
parent f24ab0fe79
commit e85fb4bf69
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -73,6 +73,7 @@ catForms gr cat fs =
cat2form :: String -> VIdent -> [(VIdent, [VIdent])] -> XML cat2form :: String -> VIdent -> [(VIdent, [VIdent])] -> XML
cat2form gr cat fs = cat2form gr cat fs =
form cat [var "value" (Just "'?'"), form cat [var "value" (Just "'?'"),
block [if_ "value != '?'" [assign cat "value"]],
field cat [] [promptString ("quest_"++cat), field cat [] [promptString ("quest_"++cat),
grammar (gr++"#"++cat), grammar (gr++"#"++cat),
nomatch [Data "I didn't understand you.", reprompt], nomatch [Data "I didn't understand you.", reprompt],
@@ -80,7 +81,7 @@ cat2form gr cat fs =
filled [] [if_else (cat ++ " == '?'") [reprompt] feedback]], filled [] [if_else (cat ++ " == '?'") [reprompt] feedback]],
subdialog "sub" [("srcexpr","'#'+"++cat++".name")] subdialog "sub" [("srcexpr","'#'+"++cat++".name")]
[param "value" cat, filled [] subDone]] [param "value" cat, filled [] subDone]]
where subDone = [return_ ["sub.value"]] where subDone = [assign cat "sub.value", return_ [cat]]
feedback = [Data "Constructor: ", value (cat++".name")] feedback = [Data "Constructor: ", value (cat++".name")]
fun2form :: String -> VIdent -> [VIdent] -> XML fun2form :: String -> VIdent -> [VIdent] -> XML
@@ -93,7 +94,7 @@ fun2form gr fun args =
ss = map (uncurry mkSub) argNames ss = map (uncurry mkSub) argNames
mkSub a t = subdialog a [("src","#"++t)] mkSub a t = subdialog a [("src","#"++t)]
[param "value" ("value."++a), [param "value" ("value."++a),
filled [] [assign ("value."++a) a]] filled [] [assign ("value."++a) (a++"."++t)]]
ret = block [return_ ["value"]] ret = block [return_ ["value"]]
-- --