summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--tools/sapi_voice.vbs760
1 files changed, 380 insertions, 380 deletions
diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs
index db44ee9..115781f 100644
--- a/tools/sapi_voice.vbs
+++ b/tools/sapi_voice.vbs
@@ -1,380 +1,380 @@
-'***************************************************************************
-' __________ __ ___.
-' Open \______ \ ____ ____ | | _\_ |__ _______ ___
-' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
-' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
-' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
-' \/ \/ \/ \/ \/
-' $Id$
-'
-' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
-'
-' All files in this archive are subject to the GNU General Public License.
-' See the file COPYING in the source tree root for full license agreement.
-'
-' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
-' KIND, either express or implied.
-'
-'***************************************************************************
-
-Option Explicit
-
-Const SSFMCreateForWrite = 3
-
-' Audio formats for SAPI5 filestream object
-Const SPSF_8kHz16BitMono = 6
-Const SPSF_11kHz16BitMono = 10
-Const SPSF_12kHz16BitMono = 14
-Const SPSF_16kHz16BitMono = 18
-Const SPSF_22kHz16BitMono = 22
-Const SPSF_24kHz16BitMono = 26
-Const SPSF_32kHz16BitMono = 30
-Const SPSF_44kHz16BitMono = 34
-Const SPSF_48kHz16BitMono = 38
-
-Const STDIN = 0
-Const STDOUT = 1
-Const STDERR = 2
-
-Dim oShell, oArgs, oEnv
-Dim oFSO, oStdIn, oStdOut
-Dim bVerbose, bSAPI4, bList
-Dim sLanguage, sVoice, sSpeed, sName, sVendor
-
-Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
-Dim oTTS, nMode ' SAPI4 TTS object, mode selector
-Dim oVoice ' for traversing the list of voices
-Dim nLangID, sSelectString
-
-Dim aLine, aData ' used in command reading
-
-On Error Resume Next
-
-Set oFSO = CreateObject("Scripting.FileSystemObject")
-Set oStdIn = oFSO.GetStandardStream(STDIN, true)
-Set oStdOut = oFSO.GetStandardStream(STDOUT, true)
-
-Set oShell = CreateObject("WScript.Shell")
-Set oEnv = oShell.Environment("Process")
-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")
-
-
-If bSAPI4 Then
- ' Create SAPI4 ActiveVoice object
- Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_")
- If Err.Number <> 0 Then
- Err.Clear
- Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1", "TTS_")
- If Err.Number <> 0 Then
- WScript.StdErr.WriteLine "Error - could not get ActiveVoice" _
- & " object. SAPI 4 not installed?"
- WScript.Quit 1
- End If
- End If
- oTTS.Initialized = 1
-
- If bList Then
- ' Just list available voices for the selected language
- For Each nLangID in LangIDs(sLanguage)
- For nMode = 1 To oTTS.CountEngines
- If oTTS.LanguageID(nMode) = nLangID Then
- WScript.StdErr.Write oTTS.ModeName(nMode) & ","
- End If
- Next
- Next
- WScript.StdErr.WriteLine
- WScript.Quit 0
- End If
-
- ' Select matching voice
- For Each nLangID in LangIDs(sLanguage)
- sSelectString = "LanguageID=" & nLangID
- If sVoice <> "" Then
- sSelectString = sSelectString & ";Speaker=" & sVoice _
- & ";ModeName=" & sVoice
- End If
- nMode = oTTS.Find(sSelectString)
- If oTTS.LanguageID(nMode) = nLangID And (sVoice = "" Or _
- oTTS.Speaker(nMode) = sVoice Or oTTS.ModeName(nMode) = sVoice) Then
- sName = oTTS.ModeName(nMode)
- If bVerbose Then
- WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
- End If
- Exit For
- Else
- sSelectString = ""
- End If
- Next
- If sSelectString = "" Then
- WScript.StdErr.WriteLine "Error - found no matching voice for " _
- & sLanguage & ", " & sVoice
- WScript.Quit 1
- End If
- oTTS.Select nMode
-
- ' Speed selection
- If sSpeed <> "" Then oTTS.Speed = sSpeed
-
- ' Get vendor information
- sVendor = oTTS.MfgName(nMode)
-
-Else ' SAPI5
- ' 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
-
- If bList Then
- ' Just list available voices for the selected language
- For Each nLangID in LangIDs(sLanguage)
- sSelectString = "Language=" & Hex(nLangID)
- For Each oVoice in oSpVoice.GetVoices(sSelectString)
- WScript.StdErr.Write oVoice.GetAttribute("Name") & ","
- Next
- Next
- WScript.StdErr.WriteLine
- WScript.Quit 0
- End If
-
- ' Select matching voice
- For Each nLangID in LangIDs(sLanguage)
- sSelectString = "Language=" & Hex(nLangID)
- If sVoice <> "" Then
- sSelectString = sSelectString & ";Name=" & sVoice
- End If
- Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(0)
- If Err.Number = 0 Then
- sName = oSpVoice.Voice.GetAttribute("Name")
- If bVerbose Then
- WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
- End If
- Exit For
- Else
- sSelectString = ""
- Err.Clear
- End If
- Next
- If sSelectString = "" Then
- WScript.StdErr.WriteLine "Error - found no matching voice for " _
- & sLanguage & ", " & sVoice
- WScript.Quit 1
- End If
-
- ' Speed selection
- If sSpeed <> "" Then oSpVoice.Rate = sSpeed
-
- ' Get vendor information, protect from missing attribute
- sVendor = oSpVoice.Voice.GetAttribute("Vendor")
- If Err.Number <> 0 Then
- Err.Clear
- sVendor = "(unknown)"
- ' Some L&H engines don't set the vendor attribute - check the name
- If Len(sName) > 3 And Left(sName, 3) = "LH " Then
- sVendor = "L&H"
- End If
- End If
-
- ' Filestream object for output
- Set oSpFS = CreateObject("SAPI.SpFileStream")
- oSpFS.Format.Type = AudioFormat(sVendor)
-End If
-
-Do
- aLine = Split(oStdIn.ReadLine, vbTab, 2)
- If Err.Number <> 0 Then
- WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description
- WScript.Quit 1
- End If
- Select Case aLine(0) ' command
- Case "QUERY"
- Select Case aLine(1)
- Case "VENDOR"
- oStdOut.WriteLine sVendor
- End Select
- Case "SPEAK"
- aData = Split(aLine(1), vbTab, 2)
- If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _
- & " in " & aData(0)
- If bSAPI4 Then
- oTTS.FileName = aData(0)
- oTTS.Speak aData(1)
- While oTTS.Speaking
- WScript.Sleep 1
- Wend
- oTTS.FileName = ""
- Else
- oSpFS.Open aData(0), SSFMCreateForWrite, false
- Set oSpVoice.AudioOutputStream = oSpFS
- oSpVoice.Speak aData(1)
- oSpFS.Close
- End If
- Case "EXEC"
- If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1)
- oShell.Run aLine(1), 0, true
- If Err.Number <> 0 Then
- If Not bVerbose Then
- WScript.StdErr.Write "> " & aLine(1) & ": "
- End If
- If Err.Number = &H80070002 Then ' Actually file not found
- WScript.StdErr.WriteLine "command not found"
- Else
- WScript.StdErr.WriteLine "error " & Err.Number & ":" _
- & Err.Description
- End If
- WScript.Quit 2
- End If
- Case "SYNC"
- If bVerbose Then WScript.StdErr.WriteLine "Syncing"
- oStdOut.WriteLine aLine(1) ' Just echo what was passed
- Case "QUIT"
- If bVerbose Then WScript.StdErr.WriteLine "Quitting"
- WScript.Quit 0
- End Select
-Loop
-
-' Subroutines
-' -----------
-
-' SAPI5 output format selection based on engine
-Function AudioFormat(ByRef sVendor)
- Select Case sVendor
- Case "Microsoft"
- AudioFormat = SPSF_22kHz16BitMono
- Case "AT&T Labs"
- AudioFormat = SPSF_32kHz16BitMono
- Case "Loquendo"
- AudioFormat = SPSF_16kHz16BitMono
- Case "ScanSoft, Inc"
- AudioFormat = SPSF_22kHz16BitMono
- Case "Voiceware"
- AudioFormat = SPSF_16kHz16BitMono
- Case Else
- AudioFormat = SPSF_22kHz16BitMono
- WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _
- & """ - using default wave format"
- End Select
-End Function
-
-' Language mapping rockbox->windows
-Function LangIDs(ByRef sLanguage)
- Dim aIDs
-
- Select Case sLanguage
- Case "arabic"
- LangIDs = Array( &h401, &h801, &hc01, &h1001, &h1401, &h1801, _
- &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _
- &h3401, &h3801, &h3c01, &h4001)
- ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia,
- ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain,
- ' Qatar
- Case "afrikaans"
- LangIDs = Array(&h436)
- Case "bulgarian"
- LangIDs = Array(&h402)
- Case "catala"
- LangIDs = Array(&h403)
- Case "chinese-simp"
- LangIDs = Array(&h804) ' PRC
- Case "chinese-trad"
- LangIDs = Array(&h404) ' Taiwan. Perhaps also Hong Kong, Singapore, Macau?
- Case "czech"
- LangIDs = Array(&h405)
- Case "dansk"
- LangIDs = Array(&h406)
- Case "deutsch"
- LangIDs = Array(&h407, &hc07, &h1007, &h1407)
- ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch)
- Case "eesti"
- LangIDs = Array(&h425)
- Case "english"
- LangIDs = Array( &h809, &h409, &hc09, &h1009, &h1409, &h1809, _
- &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _
- &h3409)
- ' British, American, Australian, Canadian, New Zealand, Ireland,
- ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe,
- ' Philippines
- Case "espanol"
- LangIDs = Array( &h40a, &hc0a, &h80a, &h100a, &h140a, &h180a, _
- &h1c0a, &h200a, &h240a, &h280a, &h2c0a, &h300a, _
- &h340a, &h380a, &h3c0a, &h400a, &h440a, &h480a, _
- &h4c0a, &h500a)
- ' trad. sort., mordern sort., Mexican, Guatemala, Costa Rica,
- ' Panama, Dominican Republic, Venezuela, Colombia, Peru, Argentina,
- ' Ecuador, Chile, Uruguay, Paraguay, Bolivia, El Salvador,
- ' Honduras, Nicaragua, Puerto Rico
- Case "esperanto"
- WScript.StdErr.WriteLine "Error: no esperanto support in Windows"
- WScript.Quit 1
- Case "finnish"
- LangIDs = Array(&h40b)
- Case "francais"
- LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c)
- ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon)
- Case "galego"
- LangIDs = Array(&h456)
- Case "greek"
- LangIDs = Array(&h408)
- Case "hebrew"
- LangIDs = Array(&h40d)
- Case "hindi"
- LangIDs = Array(&h439)
- Case "islenska"
- LangIDs = Array(&h40f)
- Case "italiano"
- LangIDs = Array(&h410, &h810) ' Standard, Swiss
- Case "japanese"
- LangIDs = Array(&h411)
- Case "korean"
- LangIDs = Array(&h412)
- Case "lietuviu"
- LangIDs = Array(&h427)
- Case "magyar"
- LangIDs = Array(&h40e)
- Case "nederlands"
- LangIDs = Array(&h413, &h813) ' Standard, Belgian
- Case "norsk"
- LangIDs = Array(&h414) ' Bokmal
- Case "norsk-nynorsk"
- LangIDs = Array(&h814)
- Case "polski"
- LangIDs = Array(&h415)
- Case "portugues"
- LangIDs = Array(&h816)
- Case "portugues-brasileiro"
- LangIDs = Array(&h416)
- Case "romaneste"
- LangIDs = Array(&h418)
- Case "russian"
- LangIDs = Array(&h419)
- Case "slovak"
- LangIDs = Array(&h41B)
- Case "slovenscina"
- LangIDs = Array(&h424)
- Case "srpski"
- LangIDs = Array(&hc1a) ' Cyrillic
- Case "svenska"
- LangIDs = Array(&h41d, &h81d) ' Standard, Finland
- Case "tagalog"
- LangIDs = Array(&h464) ' Filipino, might not be 100% correct
- Case "thai"
- LangIDs = Array(&h41e)
- Case "turkce"
- LangIDs = Array(&h41f)
- Case "wallisertitsch"
- LangIDs = Array(&h807) ' Swiss German
- Case "walon"
- LangIDs = Array(&h80c) ' Belgian French
- End Select
-End Function
-
-
+'***************************************************************************
+' __________ __ ___.
+' Open \______ \ ____ ____ | | _\_ |__ _______ ___
+' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
+' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
+' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
+' \/ \/ \/ \/ \/
+' $Id$
+'
+' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
+'
+' All files in this archive are subject to the GNU General Public License.
+' See the file COPYING in the source tree root for full license agreement.
+'
+' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+' KIND, either express or implied.
+'
+'***************************************************************************
+
+Option Explicit
+
+Const SSFMCreateForWrite = 3
+
+' Audio formats for SAPI5 filestream object
+Const SPSF_8kHz16BitMono = 6
+Const SPSF_11kHz16BitMono = 10
+Const SPSF_12kHz16BitMono = 14
+Const SPSF_16kHz16BitMono = 18
+Const SPSF_22kHz16BitMono = 22
+Const SPSF_24kHz16BitMono = 26
+Const SPSF_32kHz16BitMono = 30
+Const SPSF_44kHz16BitMono = 34
+Const SPSF_48kHz16BitMono = 38
+
+Const STDIN = 0
+Const STDOUT = 1
+Const STDERR = 2
+
+Dim oShell, oArgs, oEnv
+Dim oFSO, oStdIn, oStdOut
+Dim bVerbose, bSAPI4, bList
+Dim sLanguage, sVoice, sSpeed, sName, sVendor
+
+Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
+Dim oTTS, nMode ' SAPI4 TTS object, mode selector
+Dim oVoice ' for traversing the list of voices
+Dim nLangID, sSelectString
+
+Dim aLine, aData ' used in command reading
+
+On Error Resume Next
+
+Set oFSO = CreateObject("Scripting.FileSystemObject")
+Set oStdIn = oFSO.GetStandardStream(STDIN, true)
+Set oStdOut = oFSO.GetStandardStream(STDOUT, true)
+
+Set oShell = CreateObject("WScript.Shell")
+Set oEnv = oShell.Environment("Process")
+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")
+
+
+If bSAPI4 Then
+ ' Create SAPI4 ActiveVoice object
+ Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_")
+ If Err.Number <> 0 Then
+ Err.Clear
+ Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1", "TTS_")
+ If Err.Number <> 0 Then
+ WScript.StdErr.WriteLine "Error - could not get ActiveVoice" _
+ & " object. SAPI 4 not installed?"
+ WScript.Quit 1
+ End If
+ End If
+ oTTS.Initialized = 1
+
+ If bList Then
+ ' Just list available voices for the selected language
+ For Each nLangID in LangIDs(sLanguage)
+ For nMode = 1 To oTTS.CountEngines
+ If oTTS.LanguageID(nMode) = nLangID Then
+ WScript.StdErr.Write oTTS.ModeName(nMode) & ","
+ End If
+ Next
+ Next
+ WScript.StdErr.WriteLine
+ WScript.Quit 0
+ End If
+
+ ' Select matching voice
+ For Each nLangID in LangIDs(sLanguage)
+ sSelectString = "LanguageID=" & nLangID
+ If sVoice <> "" Then
+ sSelectString = sSelectString & ";Speaker=" & sVoice _
+ & ";ModeName=" & sVoice
+ End If
+ nMode = oTTS.Find(sSelectString)
+ If oTTS.LanguageID(nMode) = nLangID And (sVoice = "" Or _
+ oTTS.Speaker(nMode) = sVoice Or oTTS.ModeName(nMode) = sVoice) Then
+ sName = oTTS.ModeName(nMode)
+ If bVerbose Then
+ WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
+ End If
+ Exit For
+ Else
+ sSelectString = ""
+ End If
+ Next
+ If sSelectString = "" Then
+ WScript.StdErr.WriteLine "Error - found no matching voice for " _
+ & sLanguage & ", " & sVoice
+ WScript.Quit 1
+ End If
+ oTTS.Select nMode
+
+ ' Speed selection
+ If sSpeed <> "" Then oTTS.Speed = sSpeed
+
+ ' Get vendor information
+ sVendor = oTTS.MfgName(nMode)
+
+Else ' SAPI5
+ ' 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
+
+ If bList Then
+ ' Just list available voices for the selected language
+ For Each nLangID in LangIDs(sLanguage)
+ sSelectString = "Language=" & Hex(nLangID)
+ For Each oVoice in oSpVoice.GetVoices(sSelectString)
+ WScript.StdErr.Write oVoice.GetAttribute("Name") & ","
+ Next
+ Next
+ WScript.StdErr.WriteLine
+ WScript.Quit 0
+ End If
+
+ ' Select matching voice
+ For Each nLangID in LangIDs(sLanguage)
+ sSelectString = "Language=" & Hex(nLangID)
+ If sVoice <> "" Then
+ sSelectString = sSelectString & ";Name=" & sVoice
+ End If
+ Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(0)
+ If Err.Number = 0 Then
+ sName = oSpVoice.Voice.GetAttribute("Name")
+ If bVerbose Then
+ WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString
+ End If
+ Exit For
+ Else
+ sSelectString = ""
+ Err.Clear
+ End If
+ Next
+ If sSelectString = "" Then
+ WScript.StdErr.WriteLine "Error - found no matching voice for " _
+ & sLanguage & ", " & sVoice
+ WScript.Quit 1
+ End If
+
+ ' Speed selection
+ If sSpeed <> "" Then oSpVoice.Rate = sSpeed
+
+ ' Get vendor information, protect from missing attribute
+ sVendor = oSpVoice.Voice.GetAttribute("Vendor")
+ If Err.Number <> 0 Then
+ Err.Clear
+ sVendor = "(unknown)"
+ ' Some L&H engines don't set the vendor attribute - check the name
+ If Len(sName) > 3 And Left(sName, 3) = "LH " Then
+ sVendor = "L&H"
+ End If
+ End If
+
+ ' Filestream object for output
+ Set oSpFS = CreateObject("SAPI.SpFileStream")
+ oSpFS.Format.Type = AudioFormat(sVendor)
+End If
+
+Do
+ aLine = Split(oStdIn.ReadLine, vbTab, 2)
+ If Err.Number <> 0 Then
+ WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description
+ WScript.Quit 1
+ End If
+ Select Case aLine(0) ' command
+ Case "QUERY"
+ Select Case aLine(1)
+ Case "VENDOR"
+ oStdOut.WriteLine sVendor
+ End Select
+ Case "SPEAK"
+ aData = Split(aLine(1), vbTab, 2)
+ If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _
+ & " in " & aData(0)
+ If bSAPI4 Then
+ oTTS.FileName = aData(0)
+ oTTS.Speak aData(1)
+ While oTTS.Speaking
+ WScript.Sleep 1
+ Wend
+ oTTS.FileName = ""
+ Else
+ oSpFS.Open aData(0), SSFMCreateForWrite, false
+ Set oSpVoice.AudioOutputStream = oSpFS
+ oSpVoice.Speak aData(1)
+ oSpFS.Close
+ End If
+ Case "EXEC"
+ If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1)
+ oShell.Run aLine(1), 0, true
+ If Err.Number <> 0 Then
+ If Not bVerbose Then
+ WScript.StdErr.Write "> " & aLine(1) & ": "
+ End If
+ If Err.Number = &H80070002 Then ' Actually file not found
+ WScript.StdErr.WriteLine "command not found"
+ Else
+ WScript.StdErr.WriteLine "error " & Err.Number & ":" _
+ & Err.Description
+ End If
+ WScript.Quit 2
+ End If
+ Case "SYNC"
+ If bVerbose Then WScript.StdErr.WriteLine "Syncing"
+ oStdOut.WriteLine aLine(1) ' Just echo what was passed
+ Case "QUIT"
+ If bVerbose Then WScript.StdErr.WriteLine "Quitting"
+ WScript.Quit 0
+ End Select
+Loop
+
+' Subroutines
+' -----------
+
+' SAPI5 output format selection based on engine
+Function AudioFormat(ByRef sVendor)
+ Select Case sVendor
+ Case "Microsoft"
+ AudioFormat = SPSF_22kHz16BitMono
+ Case "AT&T Labs"
+ AudioFormat = SPSF_32kHz16BitMono
+ Case "Loquendo"
+ AudioFormat = SPSF_16kHz16BitMono
+ Case "ScanSoft, Inc"
+ AudioFormat = SPSF_22kHz16BitMono
+ Case "Voiceware"
+ AudioFormat = SPSF_16kHz16BitMono
+ Case Else
+ AudioFormat = SPSF_22kHz16BitMono
+ WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _
+ & """ - using default wave format"
+ End Select
+End Function
+
+' Language mapping rockbox->windows
+Function LangIDs(ByRef sLanguage)
+ Dim aIDs
+
+ Select Case sLanguage
+ Case "arabic"
+ LangIDs = Array( &h401, &h801, &hc01, &h1001, &h1401, &h1801, _
+ &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _
+ &h3401, &h3801, &h3c01, &h4001)
+ ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia,
+ ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain,
+ ' Qatar
+ Case "afrikaans"
+ LangIDs = Array(&h436)
+ Case "bulgarian"
+ LangIDs = Array(&h402)
+ Case "catala"
+ LangIDs = Array(&h403)
+ Case "chinese-simp"
+ LangIDs = Array(&h804) ' PRC
+ Case "chinese-trad"
+ LangIDs = Array(&h404) ' Taiwan. Perhaps also Hong Kong, Singapore, Macau?
+ Case "czech"
+ LangIDs = Array(&h405)
+ Case "dansk"
+ LangIDs = Array(&h406)
+ Case "deutsch"
+ LangIDs = Array(&h407, &hc07, &h1007, &h1407)
+ ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch)
+ Case "eesti"
+ LangIDs = Array(&h425)
+ Case "english"
+ LangIDs = Array( &h809, &h409, &hc09, &h1009, &h1409, &h1809, _
+ &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _
+ &h3409)
+ ' British, American, Australian, Canadian, New Zealand, Ireland,
+ ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe,
+ ' Philippines
+ Case "espanol"
+ LangIDs = Array( &h40a, &hc0a, &h80a, &h100a, &h140a, &h180a, _
+ &h1c0a, &h200a, &h240a, &h280a, &h2c0a, &h300a, _
+ &h340a, &h380a, &h3c0a, &h400a, &h440a, &h480a, _
+ &h4c0a, &h500a)
+ ' trad. sort., mordern sort., Mexican, Guatemala, Costa Rica,
+ ' Panama, Dominican Republic, Venezuela, Colombia, Peru, Argentina,
+ ' Ecuador, Chile, Uruguay, Paraguay, Bolivia, El Salvador,
+ ' Honduras, Nicaragua, Puerto Rico
+ Case "esperanto"
+ WScript.StdErr.WriteLine "Error: no esperanto support in Windows"
+ WScript.Quit 1
+ Case "finnish"
+ LangIDs = Array(&h40b)
+ Case "francais"
+ LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c)
+ ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon)
+ Case "galego"
+ LangIDs = Array(&h456)
+ Case "greek"
+ LangIDs = Array(&h408)
+ Case "hebrew"
+ LangIDs = Array(&h40d)
+ Case "hindi"
+ LangIDs = Array(&h439)
+ Case "islenska"
+ LangIDs = Array(&h40f)
+ Case "italiano"
+ LangIDs = Array(&h410, &h810) ' Standard, Swiss
+ Case "japanese"
+ LangIDs = Array(&h411)
+ Case "korean"
+ LangIDs = Array(&h412)
+ Case "lietuviu"
+ LangIDs = Array(&h427)
+ Case "magyar"
+ LangIDs = Array(&h40e)
+ Case "nederlands"
+ LangIDs = Array(&h413, &h813) ' Standard, Belgian
+ Case "norsk"
+ LangIDs = Array(&h414) ' Bokmal
+ Case "norsk-nynorsk"
+ LangIDs = Array(&h814)
+ Case "polski"
+ LangIDs = Array(&h415)
+ Case "portugues"
+ LangIDs = Array(&h816)
+ Case "portugues-brasileiro"
+ LangIDs = Array(&h416)
+ Case "romaneste"
+ LangIDs = Array(&h418)
+ Case "russian"
+ LangIDs = Array(&h419)
+ Case "slovak"
+ LangIDs = Array(&h41B)
+ Case "slovenscina"
+ LangIDs = Array(&h424)
+ Case "srpski"
+ LangIDs = Array(&hc1a) ' Cyrillic
+ Case "svenska"
+ LangIDs = Array(&h41d, &h81d) ' Standard, Finland
+ Case "tagalog"
+ LangIDs = Array(&h464) ' Filipino, might not be 100% correct
+ Case "thai"
+ LangIDs = Array(&h41e)
+ Case "turkce"
+ LangIDs = Array(&h41f)
+ Case "wallisertitsch"
+ LangIDs = Array(&h807) ' Swiss German
+ Case "walon"
+ LangIDs = Array(&h80c) ' Belgian French
+ End Select
+End Function
+
+
generated by cgit v1.1 at 2026-04-25 01:21:48 +0000