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

Commented out callbacks stuff in VoiceXML generation. It was not the right thing to have.

Browse Source
This commit is contained in:
bringert
2007-01-04 22:40:06 +00:00
parent a47a95b4e2
commit 0867fbb389
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -135,9 +135,9 @@ cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
cat2form gr qs cat fs = cat2form gr qs cat fs =
form (catFormId cat) $ form (catFormId cat) $
[var "value" (Just "{ name : '?' }"), [var "value" (Just "{ name : '?' }"),
var "callbacks" Nothing, -- var "callbacks" Nothing,
blockCond "value.name != '?'" [assign (catFieldId cat) "value"], blockCond "value.name != '?'" [assign (catFieldId cat) "value"],
block [doCallback "entered" cat [return_ [catFieldId cat]] []], -- block [doCallback "entered" cat [return_ [catFieldId cat]] []],
field (catFieldId cat) [] field (catFieldId cat) []
[promptString (getCatQuestion cat qs), [promptString (getCatQuestion cat qs),
vxmlGrammar (gr++"#"++catFormId cat), vxmlGrammar (gr++"#"++catFormId cat),
@@ -145,11 +145,11 @@ cat2form gr qs cat fs =
help [Data (mkHelpText cat)], help [Data (mkHelpText cat)],
filled [] [if_else (catFieldId cat ++ ".name == '?'") filled [] [if_else (catFieldId cat ++ ".name == '?'")
[reprompt] [reprompt]
[doCallback "refined" cat [return_ [catFieldId cat]] []]] [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]]
] ]
] ]
++ concatMap (uncurry (fun2sub gr cat)) fs ++ concatMap (uncurry (fun2sub gr cat)) fs
++ [block [doCallback "done" cat [return_ [catFieldId cat]] [return_ [catFieldId cat]]]] ++ [block [{- doCallback "done" cat [return_ [catFieldId cat]] [-} return_ [catFieldId cat]{-]-}]]
mkHelpText :: VIdent -> String mkHelpText :: VIdent -> String
mkHelpText cat = "help_"++ prIdent cat mkHelpText cat = "help_"++ prIdent cat
@@ -165,7 +165,7 @@ fun2sub gr cat fun args =
mkSub a t = subdialog s [("src","#"++catFormId t), mkSub a t = subdialog s [("src","#"++catFormId t),
("cond",catFieldId cat++".name == "++string (prIdent fun))] ("cond",catFieldId cat++".name == "++string (prIdent fun))]
[param "value" (catFieldId cat++"."++a), [param "value" (catFieldId cat++"."++a),
param "callbacks" "callbacks", -- param "callbacks" "callbacks",
filled [] [assign (catFieldId cat++"."++a) (s++"."++catFieldId t)]] filled [] [assign (catFieldId cat++"."++a) (s++"."++catFieldId t)]]
where s = prIdent fun ++ "_" ++ a where s = prIdent fun ++ "_" ++ a