1 files changed, 0 insertions, 94 deletions
diff --git a/tools/sapi5_voice_new.vbs b/tools/sapi5_voice_new.vbs
deleted file mode 100755
index f6abcf7d0b..0000000000
--- a/tools/sapi5_voice_new.vbs
+++ /dev/null
@@ -1,94 +0,0 @@
-'***************************************************************************
-'             __________               __   ___.
-'   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
-'   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
-'   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
-'   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
-'                     \/            \/     \/    \/            \/
-' $Id: sapi5_voice.vbs$
-'
-' 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.
-'
-'***************************************************************************
-' Purpose: Make a voice clip file for the given text on stdin
-'To be done:
-' - Allow user to override voice, speed and/or format (currently uses Control Panel defaults for voice/speed)
-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
-Dim oShell, oEnv
-Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
-Dim aLine, aData    ' used in command reading
-Dim nAudioFormat   
-Dim bVerbose
-On Error Resume Next
-nAudioFormat = SPSF_22kHz16BitMono 'Audio format to use, recommended settings:
-'- for AT&T natural voices, use SPSF_32kHz16BitMono
-'- for MS voices, use SPSF_22kHz16BitMono
-Set oShell = CreateObject("WScript.Shell")
-Set oEnv = oShell.Environment("Process")
-bVerbose = (oEnv("V") <> "")
-Set oSpVoice = CreateObject("SAPI.SpVoice")
-If Err.Number <> 0 Then
-    WScript.StdErr.WriteLine "Error - could not get SpVoice object. " & _
-                             "SAPI 5 not installed?"
-    Err.Clear
-    WScript.Quit 1
-End If
-Set oSpFS = CreateObject("SAPI.SpFileStream")
-oSpFS.Format.Type = nAudioFormat
-On Error Goto 0
-Do
-    aLine = Split(WScript.StdIn.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 "SPEAK"
-            aData = Split(aLine(1), vbTab, 2)
-            If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _
-                                                      & " in " & aData(0)
-            oSpFS.Open aData(0), SSFMCreateForWrite, false
-            Set oSpVoice.AudioOutputStream = oSpFS
-            oSpVoice.Speak aData(1)
-            oSpFS.Close
-        Case "EXEC"
-            If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1)
-            oShell.Run aLine(1), 0, true
-        Case "SYNC"
-            If bVerbose Then WScript.StdErr.WriteLine "Syncing"
-            WScript.StdOut.WriteLine aLine(1) ' Just echo what was passed
-        Case "QUIT"
-            If bVerbose Then WScript.StdErr.WriteLine "Quitting"
-            WScript.Quit 0
-    End Select
-Loop

diff --git a/tools/sapi5_voice_new.vbs b/tools/sapi5_voice_new.vbs deleted file mode 100755 index f6abcf7d0b..0000000000 --- a/tools/sapi5_voice_new.vbs +++ /dev/null
@@ -1,94 +0,0 @@
1	'***************************************************************************
2	' __________ __ ___.
3	' Open \______ \ ____ ____ \| \| _\_ \|__ _______ ___
4	' Source \| _// _ \_/ ___\\| \|/ /\| __ \ / _ \ \/ /
5	' Jukebox \| \| ( <_> ) \___\| < \| \_\ ( <_> > < <
6	' Firmware \|____\|_ /\____/ \___ >__\|_ \\|___ /\____/__/\_ \
7	' \/ \/ \/ \/ \/
8	' $Id: sapi5_voice.vbs$
9	'
10	' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
11	'
12	' All files in this archive are subject to the GNU General Public License.
13	' See the file COPYING in the source tree root for full license agreement.
14	'
15	' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
16	' KIND, either express or implied.
17	'
18	'***************************************************************************
19	' Purpose: Make a voice clip file for the given text on stdin
20
21	'To be done:
22	' - Allow user to override voice, speed and/or format (currently uses Control Panel defaults for voice/speed)
23
24	Option Explicit
25
26	Const SSFMCreateForWrite = 3
27
28	' Audio formats for SAPI5 filestream object
29	Const SPSF_8kHz16BitMono = 6
30	Const SPSF_11kHz16BitMono = 10
31	Const SPSF_12kHz16BitMono = 14
32	Const SPSF_16kHz16BitMono = 18
33	Const SPSF_22kHz16BitMono = 22
34	Const SPSF_24kHz16BitMono = 26
35	Const SPSF_32kHz16BitMono = 30
36	Const SPSF_44kHz16BitMono = 34
37	Const SPSF_48kHz16BitMono = 38
38
39	Dim oShell, oEnv
40	Dim oSpVoice, oSpFS ' SAPI5 voice and filestream
41	Dim aLine, aData ' used in command reading
42	Dim nAudioFormat
43	Dim bVerbose
44
45
46	On Error Resume Next
47
48	nAudioFormat = SPSF_22kHz16BitMono 'Audio format to use, recommended settings:
49	'- for AT&T natural voices, use SPSF_32kHz16BitMono
50	'- for MS voices, use SPSF_22kHz16BitMono
51
52	Set oShell = CreateObject("WScript.Shell")
53	Set oEnv = oShell.Environment("Process")
54	bVerbose = (oEnv("V") <> "")
55
56	Set oSpVoice = CreateObject("SAPI.SpVoice")
57	If Err.Number <> 0 Then
58	WScript.StdErr.WriteLine "Error - could not get SpVoice object. " & _
59	"SAPI 5 not installed?"
60	Err.Clear
61	WScript.Quit 1
62	End If
63
64	Set oSpFS = CreateObject("SAPI.SpFileStream")
65	oSpFS.Format.Type = nAudioFormat
66
67	On Error Goto 0
68
69	Do
70	aLine = Split(WScript.StdIn.ReadLine, vbTab, 2)
71	If Err.Number <> 0 Then
72	WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description
73	WScript.Quit 1
74	End If
75	Select Case aLine(0) ' command
76	Case "SPEAK"
77	aData = Split(aLine(1), vbTab, 2)
78	If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _
79	& " in " & aData(0)
80	oSpFS.Open aData(0), SSFMCreateForWrite, false
81	Set oSpVoice.AudioOutputStream = oSpFS
82	oSpVoice.Speak aData(1)
83	oSpFS.Close
84	Case "EXEC"
85	If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1)
86	oShell.Run aLine(1), 0, true
87	Case "SYNC"
88	If bVerbose Then WScript.StdErr.WriteLine "Syncing"
89	WScript.StdOut.WriteLine aLine(1) ' Just echo what was passed
90	Case "QUIT"
91	If bVerbose Then WScript.StdErr.WriteLine "Quitting"
92	WScript.Quit 0
93	End Select
94	Loop