diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-02-06 16:45:59 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-02-06 16:45:59 +0000 |
| commit | e85fb4bf6994b405e7ef23055346ef338edadd5a (patch) | |
| tree | 0aa9aa13bba8fa326e537b629c7f5fe2ecf17916 /src/GF | |
| parent | f24ab0fe79366acaf848885936f01f08d931f563 (diff) | |
VoiceXML generation: fixed threading of existing values through subdialog calls.
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Speech/GrammarToVoiceXML.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs index 11a7febd2..488ff0a37 100644 --- a/src/GF/Speech/GrammarToVoiceXML.hs +++ b/src/GF/Speech/GrammarToVoiceXML.hs @@ -73,6 +73,7 @@ catForms gr cat fs = cat2form :: String -> VIdent -> [(VIdent, [VIdent])] -> XML cat2form gr cat fs = form cat [var "value" (Just "'?'"), + block [if_ "value != '?'" [assign cat "value"]], field cat [] [promptString ("quest_"++cat), grammar (gr++"#"++cat), nomatch [Data "I didn't understand you.", reprompt], @@ -80,7 +81,7 @@ cat2form gr cat fs = filled [] [if_else (cat ++ " == '?'") [reprompt] feedback]], subdialog "sub" [("srcexpr","'#'+"++cat++".name")] [param "value" cat, filled [] subDone]] - where subDone = [return_ ["sub.value"]] + where subDone = [assign cat "sub.value", return_ [cat]] feedback = [Data "Constructor: ", value (cat++".name")] fun2form :: String -> VIdent -> [VIdent] -> XML @@ -93,7 +94,7 @@ fun2form gr fun args = ss = map (uncurry mkSub) argNames mkSub a t = subdialog a [("src","#"++t)] [param "value" ("value."++a), - filled [] [assign ("value."++a) a]] + filled [] [assign ("value."++a) (a++"."++t)]] ret = block [return_ ["value"]] -- |