+1 -1

docs/MAINTAINERS

··· 290 290 :scramble: Linus Nielsen Feltzing 291 291 :descramble: Linus Nielsen Feltzing 292 292 :mkinfo: Daniel Stenberg 293 293 - :voice shell scripts: Jonas Häggqvist 293 293 + :voice perl script: Jonas Häggqvist 294 294 295 295 Install Tools 296 296 -------------

tools/VOICE_PAUSE.wav

This is a binary file and will not be displayed.

+37 -21

tools/configure

··· 288 288 289 289 # Ask about languages to build 290 290 echo "Select a number for the language to use (default is english)" 291 291 - echo "You may enter a comma-separated list of languages to build" 291 291 + # The multiple-language feature is currently broken 292 292 + # echo "You may enter a comma-separated list of languages to build" 292 293 293 294 picklang 294 295 voicelanguage=`whichlang` ··· 329 330 330 331 if [ -f "`which flite`" ]; then 331 332 FLITE="F(l)ite " 332 332 - FLITE_OPTS="FLITE_OPTS=\"\"" 333 333 + FLITE_OPTS="" 333 334 DEFAULT_TTS="flite" 334 335 DEFAULT_TTS_OPTS=$FLITE_OPTS 335 336 DEFAULT_NOISEFLOOR="500" ··· 337 338 fi 338 339 if [ -f "`which espeak`" ]; then 339 340 ESPEAK="(e)Speak " 340 340 - ESPEAK_OPTS="ESPEAK_OPTS=\"\"" 341 341 + ESPEAK_OPTS="" 341 342 DEFAULT_TTS="espeak" 342 343 DEFAULT_TTS_OPTS=$ESPEAK_OPTS 343 344 DEFAULT_NOISEFLOOR="500" ··· 345 346 fi 346 347 if [ -f "`which festival`" ]; then 347 348 FESTIVAL="(F)estival " 348 348 - FESTIVAL_OPTS="FESTIVAL_OPTS=\"\"" 349 349 + case "$thislang" in 350 350 + "italiano") 351 351 + FESTIVAL_OPTS="--language italian" 352 352 + ;; 353 353 + "espanol") 354 354 + FESTIVAL_OPTS="--language spanish" 355 355 + ;; 356 356 + "finnish") 357 357 + FESTIVAL_OPTS="--language finnish" 358 358 + ;; 359 359 + "czech") 360 360 + FESTIVAL_OPTS="--language czech" 361 361 + ;; 362 362 + *) 363 363 + FESTIVAL_OPTS="" 364 364 + ;; 365 365 + esac 349 366 DEFAULT_TTS="festival" 350 367 DEFAULT_TTS_OPTS=$FESTIVAL_OPTS 351 368 DEFAULT_NOISEFLOOR="500" ··· 354 371 # Allow SAPI if Windows is in use 355 372 if [ -f "`which winver`" ]; then 356 373 SAPI5="(S)API5 " 357 357 - SAPI5_OPTS="SAPI5_OPTS=\"\"" 374 374 + SAPI5_OPTS="" 358 375 DEFAULT_TTS="sapi5" 359 376 DEFAULT_TTS_OPTS=$SAPI5_OPTS 360 377 DEFAULT_NOISEFLOOR="500" ··· 397 414 echo "Using $TTS_ENGINE for TTS" 398 415 399 416 # Allow the user to input manual commandline options 400 400 - printf "Enter $TTS_ENGINE options (enter for defaults `echo $TTS_OPTS |sed 's/.*=//'`): " 417 417 + printf "Enter $TTS_ENGINE options (enter for defaults \"$TTS_OPTS\"): " 401 418 USER_TTS_OPTS=`input` 402 419 if [ -n "$USER_TTS_OPTS" ]; then 403 403 - TTS_OPTS="`echo $TTS_OPTS | sed 's/=.*//'`=\"$USER_TTS_OPTS\"" 420 420 + TTS_OPTS="$USER_TTS_OPTS" 404 421 fi 405 422 406 423 echo "" ··· 408 425 if [ -f "`which oggenc`" ]; then 409 426 OGGENC="(O)ggenc " 410 427 DEFAULT_ENC="oggenc" 411 411 - VORBIS_OPTS="VORBIS_OPTS=\"-q0 --downmix\"" 428 428 + VORBIS_OPTS="-q0 --downmix" 412 429 DEFAULT_ENC_OPTS=$VORBIS_OPTS 413 430 DEFAULT_CHOICE="O" 414 431 fi ··· 422 439 if [ -f "`which lame`" ]; then 423 440 LAME="(L)ame " 424 441 DEFAULT_ENC="lame" 425 425 - LAME_OPTS="LAME_OPTS=\"--resample 12 -t -m m -h -V 9 -S\"" 442 442 + LAME_OPTS="--resample 12 -t -m m -h -V 9 -S -B 64 --vbr-new" 426 443 DEFAULT_ENC_OPTS=$LAME_OPTS 427 444 DEFAULT_CHOICE="L" 428 445 fi ··· 456 473 echo "Using $ENCODER for encoding voice clips" 457 474 458 475 # Allow the user to input manual commandline options 459 459 - printf "Enter $ENCODER options (enter for defaults `echo $ENC_OPTS |sed 's/.*=//'`): " 476 476 + printf "Enter $ENCODER options (enter for defaults \"$ENC_OPTS\"): " 460 477 USER_ENC_OPTS=`input` 461 478 if [ -n "$USER_ENC_OPTS" ]; then 462 462 - ENC_OPTS="`echo $ENC_OPTS | sed 's/=.*//'`=\"$USER_ENC_OPTS\"" 479 479 + ENC_OPTS=$USER_ENC_OPTS 463 480 fi 464 481 465 482 TEMPDIR="${pwd}" 466 483 if [ -f "`which cygpath`" ]; then 467 484 TEMPDIR=`cygpath . -a -w` 468 485 fi 469 469 - 470 470 - cat > voicesettings-$thislang.sh <<EOF 471 471 - TTS_ENGINE="${TTS_ENGINE}" 472 472 - ENCODER="${ENCODER}" 473 473 - TEMPDIR="$TEMPDIR" 474 474 - NOISEFLOOR="${NOISEFLOOR}" 475 475 - ${TTS_OPTS} 476 476 - ${ENC_OPTS} 477 477 - EOF 478 486 } 479 487 480 488 picklang() { ··· 1664 1672 -e "${simmagic1}" \ 1665 1673 -e "${simmagic2}" \ 1666 1674 -e "s,@MANUALDEV@,${manualdev},g" \ 1675 1675 + -e "s,@ENCODER@,${ENCODER},g" \ 1676 1676 + -e "s,@ENC_OPTS@,${ENC_OPTS},g" \ 1677 1677 + -e "s,@TTS_ENGINE@,${TTS_ENGINE},g" \ 1678 1678 + -e "s,@TTS_OPTS@,${TTS_OPTS},g" \ 1667 1679 <<EOF 1668 1680 ## Automaticly generated. http://www.rockbox.org/ 1669 1681 ··· 1732 1744 export GCCNUM=@GCCNUM@ 1733 1745 export UNAME=@UNAME@ 1734 1746 export MANUALDEV=@MANUALDEV@ 1747 1747 + export TTS_OPTS=@TTS_OPTS@ 1748 1748 + export TTS_ENGINE=@TTS_ENGINE@ 1749 1749 + export ENC_OPTS=@ENC_OPTS@ 1750 1750 + export ENCODER=@ENCODER@ 1735 1751 1736 1752 # Do not print "Entering directory ..." 1737 1753 MAKEFLAGS += --no-print-directory ··· 1866 1882 1867 1883 voice: tools features 1868 1884 \$(SILENT)for f in \`cat \$(BUILDDIR)/${apps}/features\`; do feat="\$\$feat:\$\$f" ; done ; \\ 1869 1869 - for lang in \`echo \$(VOICELANGUAGE) |sed "s/,/ /g"\`; do \$(TOOLSDIR)/genvoice.sh \$(ROOTDIR) \$\$lang \$(ARCHOS)\$\$feat \$(TARGET_ID) voicesettings-\$\$lang.sh ; done \\ 1885 1885 + for lang in \`echo \$(VOICELANGUAGE) |sed "s/,/ /g"\`; do \$(TOOLSDIR)/voice.pl -V -l=\$\$lang -t=\$(ARCHOS)\$\$feat -i=\$(TARGET_ID) -e=\$(ENCODER) -E="\$(ENC_OPTS)" -s=\$(TTS_ENGINE) -S="\$(TTS_OPTS)"; done \\ 1870 1886 EOF 1871 1887 1872 1888 fi

+67

tools/sapi5_voice_new.vbs

··· 1 1 + '*************************************************************************** 2 2 + ' __________ __ ___. 3 3 + ' Open \______ \ ____ ____ | | _\_ |__ _______ ___ 4 4 + ' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / 5 5 + ' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < 6 6 + ' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ 7 7 + ' \/ \/ \/ \/ \/ 8 8 + ' $Id: sapi5_voice.vbs$ 9 9 + ' 10 10 + ' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed 11 11 + ' 12 12 + ' All files in this archive are subject to the GNU General Public License. 13 13 + ' See the file COPYING in the source tree root for full license agreement. 14 14 + ' 15 15 + ' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 16 16 + ' KIND, either express or implied. 17 17 + ' 18 18 + '*************************************************************************** 19 19 + ' Purpose: Make a voice clip file for the given text on stdin 20 20 + 21 21 + 'To be done: 22 22 + ' - Allow user to override voice, speed and/or format (currently uses Control Panel defaults for voice/speed) 23 23 + ' - Voice specific replacements/corrections for pronounciation (this should be at a higher level really) 24 24 + 25 25 + Const SSFMCreateForWrite = 3 26 26 + 27 27 + Const SPSF_8kHz16BitMono = 6 28 28 + Const SPSF_11kHz16BitMono = 10 29 29 + Const SPSF_12kHz16BitMono = 14 30 30 + Const SPSF_16kHz16BitMono = 18 31 31 + Const SPSF_22kHz16BitMono = 22 32 32 + Const SPSF_24kHz16BitMono = 26 33 33 + Const SPSF_32kHz16BitMono = 30 34 34 + Const SPSF_44kHz16BitMono = 34 35 35 + Const SPSF_48kHz16BitMono = 38 36 36 + 37 37 + Dim oSpVoice, oSpFS, nAudioFormat, sText, sOutputFile 38 38 + 39 39 + nAudioFormat = SPSF_22kHz16BitMono 'Audio format to use, recommended settings: 40 40 + '- for AT&T natural voices, use SPSF_32kHz16BitMono 41 41 + '- for MS voices, use SPSF_22kHz16BitMono 42 42 + 43 43 + Set oSpVoice = CreateObject("SAPI.SpVoice") 44 44 + If Err.Number <> 0 Then 45 45 + WScript.Echo "Error - could not get SpVoice object. " & _ 46 46 + "SAPI 5 not installed?" 47 47 + Err.Clear 48 48 + WScript.Quit 1 49 49 + End If 50 50 + 51 51 + While 1 > 0 52 52 + sText = WScript.StdIn.ReadLine 53 53 + sOutputFile = WScript.StdIn.ReadLine 54 54 + If sOutputFile = "" Then 55 55 + Set oSpFS = Nothing 56 56 + Set oSpVoice = Nothing 57 57 + Set oArgs = Nothing 58 58 + WScript.Quit 0 59 59 + End If 60 60 + ' WScript.Echo "Saying " + sText + " in " + sOutputFile 61 61 + Set oSpFS = CreateObject("SAPI.SpFileStream") 62 62 + oSpFS.Format.Type = nAudioFormat 63 63 + oSpFS.Open sOutputFile, SSFMCreateForWrite, False 64 64 + Set oSpVoice.AudioOutputStream = oSpFS 65 65 + oSpVoice.Speak sText 66 66 + oSpFS.Close 67 67 + Wend

+360

tools/voice.pl

··· 1 1 + #!/usr/bin/perl -s 2 2 + # __________ __ ___. 3 3 + # Open \______ \ ____ ____ | | _\_ |__ _______ ___ 4 4 + # Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / 5 5 + # Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < 6 6 + # Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ 7 7 + # \/ \/ \/ \/ \/ 8 8 + # $Id: 9 9 + # 10 10 + # Copyright (C) 2007 Jonas Häggqvist 11 11 + # 12 12 + # All files in this archive are subject to the GNU General Public License. 13 13 + # See the file COPYING in the source tree root for full license agreement. 14 14 + # 15 15 + # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 16 16 + # KIND, either express or implied. 17 17 + 18 18 + use strict; 19 19 + use warnings; 20 20 + use File::Basename; 21 21 + use File::Copy; 22 22 + use Switch; 23 23 + use vars qw($V $C $t $l $e $E $s $S $i $v); 24 24 + use IPC::Open3; 25 25 + use Digest::MD5 qw(md5_hex); 26 26 + 27 27 + sub printusage { 28 28 + print <<USAGE 29 29 + 30 30 + Usage: voice.pl [options] [path to dir] 31 31 + -V 32 32 + Create voice file. You must also specify -t and -l. 33 33 + 34 34 + -C 35 35 + Create .talk clips. 36 36 + 37 37 + -t=<target> 38 38 + Specify which target you want to build voicefile for. Must include 39 39 + any features that target supports. 40 40 + 41 41 + -i=<target_id> 42 42 + Numeric target id. Needed for voice building. 43 43 + 44 44 + -l=<language> 45 45 + Specify which language you want to build. Without .lang extension. 46 46 + 47 47 + -e=<encoder> 48 48 + Which encoder to use for voice strings 49 49 + 50 50 + -E=<encoder options> 51 51 + Which encoder options to use when compressing voice strings. Enclose 52 52 + in double quotes if the options include spaces. 53 53 + 54 54 + -s=<TTS engine> 55 55 + Which TTS engine to use. 56 56 + 57 57 + -S=<TTS engine options> 58 58 + Options to pass to the TTS engine. Enclose in double quotes if the 59 59 + options include spaces. 60 60 + 61 61 + -v 62 62 + Be verbose 63 63 + USAGE 64 64 + ; 65 65 + } 66 66 + 67 67 + # Initialize TTS engine. May return an object or value which will be passed 68 68 + # to voicestring and shutdown_tts 69 69 + sub init_tts { 70 70 + our $verbose; 71 71 + my ($tts_engine, $tts_engine_opts, $language) = @_; 72 72 + my $ret = undef; 73 73 + switch($tts_engine) { 74 74 + case "festival" { 75 75 + print("> festival $tts_engine_opts --server\n") if $verbose; 76 76 + my $pid = open(FESTIVAL_SERVER, "| festival $tts_engine_opts --server > /dev/null 2>&1"); 77 77 + $ret = *FESTIVAL_SERVER; 78 78 + $ret = $pid; 79 79 + $SIG{INT} = sub { kill TERM => $pid; print("foo"); panic_cleanup(); }; 80 80 + $SIG{KILL} = sub { kill TERM => $pid; print("boo"); panic_cleanup(); }; 81 81 + } 82 82 + case "sapi5" { 83 83 + my $toolsdir = dirname($0); 84 84 + my $path = `cygpath $toolsdir -a -w`; 85 85 + chomp($path); 86 86 + $path = $path . "\\sapi5_voice_new.vbs $language $tts_engine_opts"; 87 87 + $path =~ s/\\/\\\\/g; 88 88 + print("> cscript /B $path\n") if $verbose; 89 89 + my $pid = open(F, "| cscript /B $path"); 90 90 + $ret = *F; 91 91 + $SIG{INT} = sub { print($ret "\r\n\r\n"); panic_cleanup(); }; 92 92 + $SIG{KILL} = sub { print($ret "\r\n\r\n"); panic_cleanup(); }; 93 93 + } 94 94 + } 95 95 + return $ret; 96 96 + } 97 97 + 98 98 + # Shutdown TTS engine if necessary. 99 99 + sub shutdown_tts { 100 100 + my ($tts_engine, $tts_object) = @_; 101 101 + switch($tts_engine) { 102 102 + case "festival" { 103 103 + # Send SIGTERM to festival server 104 104 + kill TERM => $tts_object; 105 105 + } 106 106 + case "sapi5" { 107 107 + print($tts_object "\r\n\r\n"); 108 108 + close($tts_object); 109 109 + } 110 110 + } 111 111 + } 112 112 + 113 113 + # Apply corrections to a voice-string to make it sound better 114 114 + sub correct_string { 115 115 + our $verbose; 116 116 + my ($string, $language, $tts_engine) = @_; 117 117 + my $orig = $string; 118 118 + switch($language) { 119 119 + # General for all engines and languages (perhaps - just an example) 120 120 + $string =~ s/USB/U S B/; 121 121 + 122 122 + case ("deutsch") { 123 123 + switch($tts_engine) { 124 124 + $string =~ s/alphabet/alfabet/; 125 125 + $string =~ s/alkaline/alkalein/; 126 126 + $string =~ s/ampere/amper/; 127 127 + $string =~ s/byte(s?)\b/beit$1/; 128 128 + $string =~ s/\bdezibel\b/de-zibell/; 129 129 + $string =~ s/energie\b/ener-gie/; 130 130 + $string =~ s/\bflash\b/fläsh/g; 131 131 + $string =~ s/\bfirmware(s?)\b/firmwer$1/; 132 132 + $string =~ s/\bid3 tag\b/id3 täg/g; # can't just use "tag" here 133 133 + $string =~ s/\bloudness\b/laudness/; 134 134 + $string =~ s/\bnumerisch\b/numehrisch/; 135 135 + $string =~ s/\brücklauf\b/rück-lauf/; 136 136 + $string =~ s/\bsuchlauf\b/such-lauf/; 137 137 + } 138 138 + } 139 139 + } 140 140 + if ($orig ne $string) { 141 141 + printf("%s -> %s\n", $orig, $string) if $verbose; 142 142 + } 143 143 + return $string; 144 144 + } 145 145 + 146 146 + # Produce a wav file of the text given 147 147 + sub voicestring { 148 148 + our $verbose; 149 149 + my ($string, $output, $tts_engine, $tts_engine_opts, $tts_object) = @_; 150 150 + my $cmd; 151 151 + printf("Generate \"%s\" with %s in file %s\n", $string, $tts_engine, $output) if $verbose; 152 152 + switch($tts_engine) { 153 153 + case "festival" { 154 154 + # festival_client lies to us, so we have to do awful soul-eating 155 155 + # work with IPC::open3() 156 156 + $cmd = "festival_client --server localhost --otype riff --ttw --output \"$output\""; 157 157 + print("> $cmd\n") if $verbose; 158 158 + # Open command, and filehandles for STDIN, STDOUT, STDERR 159 159 + my $pid = open3(*CMD_IN, *CMD_OUT, *CMD_ERR, $cmd); 160 160 + # Put the string to speak into STDIN and close it 161 161 + print(CMD_IN $string); 162 162 + close(CMD_IN); 163 163 + # Read all output from festival_client (because it LIES TO US) 164 164 + while (<CMD_ERR>) { 165 165 + } 166 166 + close(CMD_OUT); 167 167 + close(CMD_ERR); 168 168 + } 169 169 + case "flite" { 170 170 + $cmd = "flite $tts_engine_opts -t \"$string\" \"$output\""; 171 171 + print("> $cmd\n") if $verbose; 172 172 + `$cmd`; 173 173 + } 174 174 + case "espeak" { 175 175 + # xxx: $tts_engine_opts isn't used 176 176 + $cmd = "espeak $tts_engine_opts -w $output"; 177 177 + print("> $cmd\n") if $verbose; 178 178 + open(ESPEAK, "| $cmd"); 179 179 + print ESPEAK $string . "\n"; 180 180 + close(ESPEAK); 181 181 + } 182 182 + case "sapi5" { 183 183 + print($tts_object sprintf("%s\r\n%s\r\n", $string, $output)); 184 184 + } 185 185 + } 186 186 + } 187 187 + 188 188 + # Encode a wav file into the given destination file 189 189 + sub encodewav { 190 190 + our $verbose; 191 191 + my ($input, $output, $encoder, $encoder_opts) = @_; 192 192 + printf("Encode \"%s\" with %s in file %s\n", $input, $encoder, $output) if $verbose; 193 193 + switch ($encoder) { 194 194 + case 'lame' { 195 195 + my $cmd = "lame $encoder_opts \"$input\" \"$output\""; 196 196 + print("> $cmd\n") if $verbose; 197 197 + `lame $encoder_opts "$input" "$output"`; 198 198 + `$cmd`; 199 199 + } 200 200 + case 'vorbis' { 201 201 + `oggenc $encoder_opts "$input" -o "$output"`; 202 202 + } 203 203 + case 'speexenc' { 204 204 + `speexenc $encoder_opts "$input" "$output"`; 205 205 + } 206 206 + } 207 207 + } 208 208 + 209 209 + sub wavtrim { 210 210 + our $verbose; 211 211 + my ($file) = @_; 212 212 + my $cmd = dirname($0) . "/wavtrim \"$file\""; 213 213 + print("> $cmd\n") if $verbose; 214 214 + `$cmd`; 215 215 + } 216 216 + 217 217 + # Run genlang and create voice clips for each string 218 218 + sub generateclips { 219 219 + our $verbose; 220 220 + my ($language, $target, $encoder, $encoder_opts, $tts_engine, $tts_engine_opts) = @_; 221 221 + my $genlang = dirname($0) . '/genlang'; 222 222 + my $english = dirname($0) . '/../apps/lang/english.lang'; 223 223 + my $langfile = dirname($0) . '/../apps/lang/' . $language . '.lang'; 224 224 + my $id = ''; 225 225 + my $voice = ''; 226 226 + my $cmd = "$genlang -o -t=$target -e=$english $langfile 2>/dev/null"; 227 227 + my $pool_file; 228 228 + open(VOICEFONTIDS, "> voicefontids"); 229 229 + my $i = 0; 230 230 + 231 231 + my $tts_object = init_tts($tts_engine, $tts_engine_opts, $language); 232 232 + print("Generating voice clips"); 233 233 + print("\n") if $verbose; 234 234 + for (`$cmd`) { 235 235 + my $line = $_; 236 236 + print(VOICEFONTIDS $line); 237 237 + if ($line =~ /^id: (.*)$/) { 238 238 + $id = $1; 239 239 + } 240 240 + elsif ($line =~ /^voice: "(.*)"$/) { 241 241 + $voice = $1; 242 242 + if ($id !~ /^NOT_USED_.*$/ && $voice ne "") { 243 243 + my $wav = $id . '.wav'; 244 244 + my $mp3 = $id . '.mp3'; 245 245 + 246 246 + # Print some progress information 247 247 + if (++$i % 10 == 0 and !$verbose) { 248 248 + print("."); 249 249 + } 250 250 + 251 251 + # Apply corrections to the string 252 252 + $voice = correct_string($voice); 253 253 + 254 254 + # If we have a pool of snippes, see if the string exists there first 255 255 + if (defined($ENV{'POOL'})) { 256 256 + $pool_file = sprintf("%s/%s-%s-%s.mp3", $ENV{'POOL'}, md5_hex($voice), $language, $tts_engine); 257 257 + if (-f $pool_file) { 258 258 + printf("Re-using %s (%s) from pool\n", $id, $voice) if $verbose; 259 259 + copy($pool_file, $mp3); 260 260 + } 261 261 + } 262 262 + 263 263 + # Don't generate MP3 if it already exists (probably from the POOL) 264 264 + if (! -f $mp3) { 265 265 + if ($id eq "VOICE_PAUSE") { 266 266 + print("Use distributed $wav\n") if $verbose; 267 267 + copy(dirname($0)."/VOICE_PAUSE.wav", $wav); 268 268 + } 269 269 + else { 270 270 + voicestring($voice, $wav, $tts_engine, $tts_engine_opts, $tts_object); 271 271 + wavtrim($wav, 500); # 500 seems to be a reasonable default for now 272 272 + } 273 273 + 274 274 + encodewav($wav, $mp3, $encoder, $encoder_opts); 275 275 + if (defined($ENV{'POOL'})) { 276 276 + copy($mp3, $pool_file); 277 277 + } 278 278 + unlink($wav); 279 279 + } 280 280 + $voice = ""; 281 281 + $id = ""; 282 282 + } 283 283 + } 284 284 + } 285 285 + print("\n"); 286 286 + close(VOICEFONTIDS); 287 287 + shutdown_tts($tts_engine, $tts_object); 288 288 + } 289 289 + 290 290 + # Assemble the voicefile 291 291 + sub createvoice { 292 292 + our $verbose; 293 293 + my ($language, $target_id) = @_; 294 294 + my $voicefont = dirname($0) . '/voicefont'; 295 295 + my $outfile = ""; 296 296 + my $i = 0; 297 297 + do { 298 298 + $outfile = sprintf("%s%s.voice", $language, ($i++ == 0 ? '' : '-'.$i)); 299 299 + } while (-f $outfile); 300 300 + printf("Saving voice file to %s\n", $outfile) if $verbose; 301 301 + my $cmd = "$voicefont 'voicefontids' $target_id ./ $outfile"; 302 302 + print("> $cmd\n") if $verbose; 303 303 + my $output = `$cmd`; 304 304 + print($output) if $verbose; 305 305 + } 306 306 + 307 307 + sub deletemp3s() { 308 308 + for (glob('*.mp3')) { 309 309 + unlink($_); 310 310 + } 311 311 + for (glob('*.wav')) { 312 312 + unlink($_); 313 313 + } 314 314 + } 315 315 + 316 316 + sub panic_cleanup { 317 317 + deletemp3s(); 318 318 + die "moo"; 319 319 + } 320 320 + 321 321 + # Check parameters 322 322 + my $printusage = 0; 323 323 + unless (defined($V) or defined($C)) { print("Missing either -V or -C\n"); $printusage = 1; } 324 324 + if (defined($V)) { 325 325 + unless (defined($t)) { print("Missing -t argument\n"); $printusage = 1; } 326 326 + unless (defined($l)) { print("Missing -l argument\n"); $printusage = 1; } 327 327 + unless (defined($i)) { print("Missing -i argument\n"); $printusage = 1; } 328 328 + } 329 329 + elsif (defined($C)) { 330 330 + unless (defined($ARGV[0])) { print "Missing path argument\n"; $printusage = 1; } 331 331 + } 332 332 + unless (defined($e)) { print("Missing -e argument\n"); $printusage = 1; } 333 333 + unless (defined($E)) { print("Missing -E argument\n"); $printusage = 1; } 334 334 + unless (defined($s)) { print("Missing -s argument\n"); $printusage = 1; } 335 335 + unless (defined($S)) { print("Missing -S argument\n"); $printusage = 1; } 336 336 + if ($printusage == 1) { printusage(); exit 1; } 337 337 + 338 338 + $SIG{INT} = \&panic_cleanup; 339 339 + $SIG{KILL} = \&panic_cleanup; 340 340 + 341 341 + if (defined($v) or defined($ENV{'V'})) { 342 342 + our $verbose = 1; 343 343 + } 344 344 + 345 345 + 346 346 + # Do what we're told 347 347 + if ($V == 1) { 348 348 + printf("Generating voice\n Target: %s\n Language: %s\n Encoder (options): %s (%s)\n TTS Engine (options): %s (%s)\n", 349 349 + $t, $l, $e, $E, $s, $S); 350 350 + generateclips($l, $t, $e, $E, $s, $S); 351 351 + createvoice($l, $i); 352 352 + deletemp3s(); 353 353 + } 354 354 + elsif ($C) { 355 355 + # xxx: Implement .talk clip generation 356 356 + } 357 357 + else { 358 358 + printusage(); 359 359 + exit 1; 360 360 + }