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

Meta variables are now treated as functions with name ? in SISR, VoiceXML and JavaScript linearization. VoiceXML now returns the partial result when update() is false.

Browse Source
This commit is contained in:
bringert
2006-12-21 16:48:46 +00:00
parent 5eb3e7032a
commit 95d4af1f2d
12 changed files with 202 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -119,22 +119,22 @@ catForms gr qs cat fs =
cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
cat2form gr qs cat fs =
form (catFormId cat) $
[var "value" (Just "'?'"),
[var "value" (Just "{ name : '?' }"),
var "update" Nothing,
blockCond "value != '?'" [assign (catFieldId cat) "value"],
blockCond "value.name != '?'" [assign (catFieldId cat) "value"],
field (catFieldId cat) []
[promptString (getCatQuestion cat qs),
grammar (gr++"#"++catFormId cat),
nomatch [Data "I didn't understand you.", reprompt],
help [Data ("help_"++cat)],
filled [] [if_else (catFieldId cat ++ " == '?'") [reprompt] feedback]]
filled [] [if_else (catFieldId cat ++ ".name == '?'") [reprompt] feedback]]
]
++ concatMap (uncurry (fun2sub gr cat)) fs
++ [block [return_ [catFieldId cat]]]
where feedback = [if_ ("typeof update != 'undefined' && !update("++string cat++","++ catFieldId cat ++ ")") [return_ []]]
where feedback = [if_ ("typeof update != 'undefined' && !update("++string cat++","++ catFieldId cat ++ ")") [return_ [catFieldId cat]]]
fun2sub :: String -> VIdent -> VIdent -> [VIdent] -> [XML]
fun2sub gr cat fun args = comments [fun ++ " : " ++ cat] ++ ss
fun2sub gr cat fun args = comments [fun ++ " : (" ++ concat (intersperse ", " args) ++ ") " ++ cat] ++ ss
where
argNames = zip ["arg"++show n | n <- [0..]] args
ss = map (uncurry mkSub) argNames