From 8d29a4241b8fbdc4b90e1f686f729ea06cc2bd12 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Sun, 7 Jan 2007 17:19:58 +0000
Subject: [PATCH] Added unused simple VoiceXML generation. It won't work in
 Opera because of the lack of subdialog srcexpr attribute support.

---
 src/GF/Speech/GrammarToVoiceXML.hs | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs
index 62f777951..05d841cab 100644
--- a/src/GF/Speech/GrammarToVoiceXML.hs
+++ b/src/GF/Speech/GrammarToVoiceXML.hs
@@ -133,6 +133,18 @@ catForms gr qs cat fs =
     comments [prid cat ++ " category."]
     ++ [cat2form gr qs cat fs] 
 
+{-
+cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
+cat2form gr qs cat fs = 
+    form (catFormId cat) 
+      [field "value" [] 
+         [promptString (getCatQuestion cat qs), 
+          vxmlGrammar (gr++"#"++catFormId cat),
+          filled [] [return_ ["value"]]
+         ]
+      ]
+-}
+
 cat2form :: String -> CatQuestions -> VIdent -> [(VIdent, [VIdent])] -> XML
 cat2form gr qs cat fs = 
   form (catFormId cat) $ 
@@ -153,6 +165,7 @@ cat2form gr qs cat fs =
      ++ concatMap (uncurry (fun2sub gr cat)) fs
      ++ [block [{- doCallback "done" cat [return_ [catFieldId cat]] [-} return_ [catFieldId cat]{-]-}]]
 
+
 mkHelpText :: VIdent -> String
 mkHelpText cat = "help_"++ prid cat
 
@@ -177,11 +190,12 @@ doCallback f cat i e =
          i e
   where cf = "callbacks." ++ f
 
+catFieldId :: VIdent -> String
+catFieldId c = prid c ++ "_field"
+
 catFormId :: VIdent -> String
 catFormId c = prid c ++ "_cat"
 
-catFieldId :: VIdent -> String
-catFieldId c = prid c ++ "_field"
 
 --
 -- * VoiceXML stuff