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

VoiceXML generation: use cond attribute with blocks, instead of having ifs inside. Recommended by OptimSys support.

Browse Source
This commit is contained in:
bringert
2006-04-27 09:30:59 +00:00
parent 93121ef2f3
commit 817a6a488b
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -154,13 +154,13 @@ catForms 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 cat [var "value" (Just "'?'"), formDebug cat, form cat [var "value" (Just "'?'"), formDebug cat,
block [if_ "value != '?'" [assign cat "value"]], blockCond "value != '?'" [assign cat "value"],
field cat [] [promptString (getCatQuestion cat qs), field cat [] [promptString (getCatQuestion cat qs),
grammar (gr++"#"++cat), grammar (gr++"#"++cat),
nomatch [Data "I didn't understand you.", reprompt], nomatch [Data "I didn't understand you.", reprompt],
help [Data ("help_"++cat)], help [Data ("help_"++cat)],
filled [] [if_else (cat ++ " == '?'") [reprompt] feedback]], filled [] [if_else (cat ++ " == '?'") [reprompt] feedback]],
block [if_ "debug == 1" [prompt [Data (cat ++ " = "), value ("dump("++cat++")")]]], blockCond "debug == 1" [prompt [Data (cat ++ " = "), value ("dump("++cat++")")]],
subdialog "sub" [("srcexpr","'#'+"++cat++".name")] subdialog "sub" [("srcexpr","'#'+"++cat++".name")]
[param "value" cat, filled [] subDone]] [param "value" cat, filled [] subDone]]
where subDone = [assign cat "sub.value", return_ [cat]] where subDone = [assign cat "sub.value", return_ [cat]]
@@ -179,7 +179,7 @@ fun2form gr fun args =
filled [] [assign ("value."++a) (a++"."++t)]] filled [] [assign ("value."++a) (a++"."++t)]]
ret = block [return_ ["value"]] ret = block [return_ ["value"]]
formDebug id = block [if_ "debug == 1" [prompt [Data ("Entering form " ++ id ++ ". value = "), value "dump(value)"]]] formDebug id = blockCond "debug == 1" [prompt [Data ("Entering form " ++ id ++ ". value = "), value "dump(value)"]]
-- --
-- * VoiceXML stuff -- * VoiceXML stuff
@@ -238,6 +238,9 @@ return_ names = Tag "return" [("namelist", unwords names)] []
block :: [XML] -> XML block :: [XML] -> XML
block = Tag "block" [] block = Tag "block" []
blockCond :: String -> [XML] -> XML
blockCond cond = Tag "block" [("cond", cond)]
throw :: String -> String -> XML throw :: String -> String -> XML
throw event msg = Tag "throw" [("event",event),("message",msg)] [] throw event msg = Tag "throw" [("event",event),("message",msg)] []