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

Include update function in generated VoiceXML. Generated linearization javaScript now uses the same abstract syntax representation as SISR.

Browse Source
This commit is contained in:
bringert
2006-12-15 16:08:39 +00:00
parent 1f1be57279
commit 1e1401472f
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -157,7 +157,9 @@ 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 "'?'"),
var "update" Nothing,
formDebug cat,
blockCond "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),
@@ -167,7 +169,7 @@ cat2form gr qs cat fs =
catDebug] catDebug]
++ concatMap (uncurry (fun2sub gr cat)) fs ++ concatMap (uncurry (fun2sub gr cat)) fs
++ [block [return_ [cat]]] ++ [block [return_ [cat]]]
where feedback = [] where feedback = [if_ ("typeof update != 'undefined' && !update("++string cat++","++ cat ++ ")") [return_ []]]
catDebug = debugLog [Data (cat ++ " = "), value ("dump("++cat++")")] catDebug = debugLog [Data (cat ++ " = "), value ("dump("++cat++")")]
retDebug = debugLog [Data "return ", value ("dump("++cat++")")] retDebug = debugLog [Data "return ", value ("dump("++cat++")")]
@@ -178,6 +180,7 @@ fun2sub gr cat fun args = comments [fun ++ " : " ++ cat] ++ ss
ss = map (uncurry mkSub) argNames ss = map (uncurry mkSub) argNames
mkSub a t = subdialog s [("src","#"++t),("cond",cat++".name == "++string fun)] mkSub a t = subdialog s [("src","#"++t),("cond",cat++".name == "++string fun)]
[param "value" (cat++"."++a), [param "value" (cat++"."++a),
param "update" "update",
filled [] [assign (cat++"."++a) (s++"."++t)]] filled [] [assign (cat++"."++a) (s++"."++t)]]
where s = fun ++ "_" ++ a where s = fun ++ "_" ++ a