From a423db0024865bd48943bba1837f97ed1d1be1f8 Mon Sep 17 00:00:00 2001
From: Dominik Wenger <domonoky@googlemail.com>
Date: Sat, 19 Jan 2008 18:46:06 +0000
Subject: added an option to get a list of voices for a language, for rbutil.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@16112 a1c6a512-1295-4272-9138-f99709370657
---
 tools/sapi_voice.vbs | 44 ++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 42 insertions(+), 2 deletions(-)

(limited to 'tools')

diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs
index 919b9a370b..2038329b62 100755
--- a/tools/sapi_voice.vbs
+++ b/tools/sapi_voice.vbs
@@ -33,7 +33,7 @@ Const SPSF_44kHz16BitMono = 34
 Const SPSF_48kHz16BitMono = 38
 
 Dim oShell, oArgs, oEnv
-Dim bVerbose, bSAPI4
+Dim bVerbose, bSAPI4, bList
 Dim sLanguage, sVoice, sSpeed
 
 Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
@@ -42,6 +42,7 @@ Dim nLangID, sSelectString
 
 Dim aLine, aData    ' used in command reading
 
+Dim counter, ende, list
 
 On Error Resume Next
 
@@ -51,10 +52,47 @@ bVerbose = (oEnv("V") <> "")
 
 Set oArgs = WScript.Arguments.Named
 bSAPI4 = oArgs.Exists("sapi4")
+bList = oArgs.Exists("listvoices")
 sLanguage = oArgs.Item("language")
 sVoice = oArgs.Item("voice")
 sSpeed = oArgs.Item("speed")
 
+' display a list of voices for the selected language
+if bList Then
+    'Create SAPI5 object
+    Set oSpVoice = CreateObject("SAPI.SpVoice")
+    If Err.Number <> 0 Then
+        WScript.StdErr.WriteLine "Error - could not get SpVoice object." _
+                        & " SAPI 5 not installed?"
+        WScript.Quit 1
+    End If
+    
+    list = ""
+    ' Select matching voice
+    For Each nLangID in LangIDs(sLanguage)
+        sSelectString = "Language=" & Hex(nLangID)
+        counter =0
+        ende =0
+        While ende <= 0
+            Err.Clear
+            Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(counter)
+          
+            If Err.Number = 0 Then
+                list = list & oSpVoice.Voice.GetDescription & ","    
+            Else
+                ende = 1
+                 Err.Clear
+            End if    
+            counter = counter + 1  
+        Wend
+    Next
+    
+    WScript.StdErr.WriteLine list
+    
+    WScript.Quit 0
+End If
+
+
 If bSAPI4 Then
     ' Create SAPI4 ActiveVoice object
     Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_")
@@ -261,7 +299,7 @@ Function AudioFormat(ByRef sVendor)
             AudioFormat = SPSF_16kHz16BitMono
         Case Else
             AudioFormat = SPSF_22kHz16BitMono
-            WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _
+            WScript.StdOut.WriteLine "Warning - unknown vendor """ & sVendor _
                                      & """ - using default wave format"
     End Select
 End Function
@@ -356,3 +394,5 @@ Function LangIDs(ByRef sLanguage)
             LangIDs = Array(&h807) ' Swiss German
     End Select
 End Function
+
+
-- 
cgit