diff options
| author | Steve Bavin <pondlife@pondlife.me> | 2007-08-09 12:07:42 +0000 |
|---|---|---|
| committer | Steve Bavin <pondlife@pondlife.me> | 2007-08-09 12:07:42 +0000 |
| commit | 6bc7da7c1f686096efe1fdd44c53fff59f60c96f (patch) | |
| tree | 2e595baa94d02c22981060acd0c4514fc1d2cd0e /tools/sapi5_init_tts.vbs | |
| parent | c8c80a5391d028e0ee40432568f0a40eb623b249 (diff) | |
| download | rockbox-6bc7da7c1f686096efe1fdd44c53fff59f60c96f.tar.gz rockbox-6bc7da7c1f686096efe1fdd44c53fff59f60c96f.zip | |
Allow Cygwin users to generate voice files using SAPI 5. Slow, and missing some of the details from the old MakeVoices.vbs method, but better than nothing.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14252 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools/sapi5_init_tts.vbs')
| -rwxr-xr-x | tools/sapi5_init_tts.vbs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tools/sapi5_init_tts.vbs b/tools/sapi5_init_tts.vbs new file mode 100755 index 0000000000..466ee5ce71 --- /dev/null +++ b/tools/sapi5_init_tts.vbs | |||
| @@ -0,0 +1,29 @@ | |||
| 1 | '*************************************************************************** | ||
| 2 | ' __________ __ ___. | ||
| 3 | ' Open \______ \ ____ ____ | | _\_ |__ _______ ___ | ||
| 4 | ' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / | ||
| 5 | ' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < | ||
| 6 | ' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ | ||
| 7 | ' \/ \/ \/ \/ \/ | ||
| 8 | ' $Id: sapi5_init_tts.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 | Dim oSpVoice, sVoice | ||
| 20 | |||
| 21 | Set oSpVoice = CreateObject("SAPI.SpVoice") | ||
| 22 | If Err.Number <> 0 Then | ||
| 23 | WScript.Echo "Error - could not get SpVoice object. " & _ | ||
| 24 | "SAPI 5 not installed?" | ||
| 25 | Err.Clear | ||
| 26 | WScript.Quit 1 | ||
| 27 | End If | ||
| 28 | |||
| 29 | WScript.Quit 0 | ||