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

VoiceXML: print without debugging stuff by default.

Browse Source
This commit is contained in:
bringert
2006-12-11 15:20:26 +00:00
parent c34c26a837
commit ce62977188
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -30,6 +30,11 @@ import Data.Maybe (fromMaybe)
import Debug.Trace import Debug.Trace
debug = False
debugLog xs | debug = blockCond "debug == 1" [prompt xs]
| otherwise = Empty
-- | the main function -- | the main function
grammar2vxml :: String -> StateGrammar -> String grammar2vxml :: String -> StateGrammar -> String
grammar2vxml startcat gr = showsXMLDoc (skel2vxml name startcat gr' qs) "" grammar2vxml startcat gr = showsXMLDoc (skel2vxml name startcat gr' qs) ""
@@ -105,7 +110,7 @@ skel2vxml name start skel qs =
vxml (prelude ++ [startForm] ++ concatMap (uncurry (catForms gr qs)) skel) vxml (prelude ++ [startForm] ++ concatMap (uncurry (catForms gr qs)) skel)
where where
gr = grammarURI name gr = grammarURI name
prelude = var "debug" (Just "0") : scriptLib prelude = (if debug then [var "debug" (Just "0")] else []) ++ scriptLib
startForm = Tag "form" [] [subdialog "sub" [("src", "#"++start)] []] startForm = Tag "form" [] [subdialog "sub" [("src", "#"++start)] []]
grammarURI :: String -> String grammarURI :: String -> String
@@ -163,8 +168,8 @@ cat2form gr qs cat fs =
++ concatMap (uncurry (fun2sub gr cat)) fs ++ concatMap (uncurry (fun2sub gr cat)) fs
++ [block [return_ [cat]]] ++ [block [return_ [cat]]]
where feedback = [] where feedback = []
catDebug = blockCond "debug == 1" [prompt [Data (cat ++ " = "), value ("dump("++cat++")")]] catDebug = debugLog [Data (cat ++ " = "), value ("dump("++cat++")")]
retDebug = blockCond "debug == 1" [prompt [Data "return ", value ("dump("++cat++")")]] retDebug = debugLog [Data "return ", value ("dump("++cat++")")]
fun2sub :: String -> VIdent -> VIdent -> [VIdent] -> [XML] fun2sub :: String -> VIdent -> VIdent -> [VIdent] -> [XML]
fun2sub gr cat fun args = comments [fun ++ " : " ++ cat] ++ ss fun2sub gr cat fun args = comments [fun ++ " : " ++ cat] ++ ss
@@ -176,7 +181,7 @@ fun2sub gr cat fun args = comments [fun ++ " : " ++ cat] ++ ss
filled [] [assign (cat++"."++a) (s++"."++t)]] filled [] [assign (cat++"."++a) (s++"."++t)]]
where s = fun ++ "_" ++ a where s = fun ++ "_" ++ a
formDebug id = blockCond "debug == 1" [prompt [Data ("Entering form " ++ id ++ ". value = "), value "dump(value)"]] formDebug id = debugLog [Data ("Entering form " ++ id ++ ". value = "), value "dump(value)"]
-- --
-- * VoiceXML stuff -- * VoiceXML stuff