summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorJens Arnold <amiconn@rockbox.org>2007-09-04 22:03:05 +0000
committerJens Arnold <amiconn@rockbox.org>2007-09-04 22:03:05 +0000
commitdf9a166392f80dd15e8afc535323a29bfd53f52d (patch)
tree8d473d0af5553ffc5f7fcbda74eabd3ef3d8273d /tools
parent75c39b004fe627024464fe6ec04bd477ab3d37f2 (diff)
downloadrockbox-df9a166392f80dd15e8afc535323a29bfd53f52d.tar.gz
rockbox-df9a166392f80dd15e8afc535323a29bfd53f52d.tar.bz2
rockbox-df9a166392f80dd15e8afc535323a29bfd53f52d.zip
Voice file building: * Make correct_string() work as intended by passing the missing 2 parameters. * SAPI: Add query for TTS engine vendor. * Add several string corrections (mostly but not exclusively for German). * Make the pool filenames include TTS options and encoder options in their MD5 hash value, allowing to properly build voice files where those settings differ per target using the same pool.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14608 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools')
-rwxr-xr-xtools/sapi_voice.vbs9
-rwxr-xr-xtools/voice.pl71
2 files changed, 60 insertions, 20 deletions
diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs
index 848db94df2..f92c3f92fa 100755
--- a/tools/sapi_voice.vbs
+++ b/tools/sapi_voice.vbs
@@ -139,6 +139,15 @@ Do
WScript.Quit 1
End If
Select Case aLine(0) ' command
+ Case "QUERY"
+ Select Case aLine(1)
+ Case "VENDOR"
+ If bSAPI4 Then
+ WScript.StdOut.WriteLine oTTS.MfgName(nMode)
+ Else
+ WScript.StdOut.WriteLine oSpVoice.Voice.GetAttribute("Vendor")
+ End If
+ End Select
Case "SPEAK"
aData = Split(aLine(1), vbTab, 2)
aData(1) = UTF8decode(aData(1))
diff --git a/tools/voice.pl b/tools/voice.pl
index 3c7d36bf71..805fe718f8 100755
--- a/tools/voice.pl
+++ b/tools/voice.pl
@@ -91,7 +91,15 @@ sub init_tts {
my $pid = open2(*CMD_OUT, *CMD_IN, "cscript //nologo $cmd");
$SIG{INT} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); };
$SIG{KILL} = sub { print(CMD_IN "QUIT\r\n"); panic_cleanup(); };
- %ret = (%ret, "stdin" => *CMD_IN, "stdout" => *CMD_OUT, "toolspath" => $path);
+ print(CMD_IN "QUERY\tVENDOR\r\n");
+ my $vendor = readline(CMD_OUT);
+ $vendor =~ s/\r\n//;
+ print("$vendor\n");
+ %ret = (%ret,
+ "stdin" => *CMD_IN,
+ "stdout" => *CMD_OUT,
+ "toolspath" => $path,
+ "vendor" => $vendor);
}
}
return \%ret;
@@ -118,24 +126,45 @@ sub correct_string {
my ($string, $language, $tts_object) = @_;
my $orig = $string;
switch($language) {
- # General for all engines and languages (perhaps - just an example)
- $string =~ s/USB/U S B/;
+ # General for all engines and languages
+ $string =~ s/USB/U S B/ig;
+ $string =~ s/ID3/I D 3/ig;
- case ("deutsch") {
+ case "english" {
switch($$tts_object{"name"}) {
- $string =~ s/alphabet/alfabet/;
- $string =~ s/alkaline/alkalein/;
- $string =~ s/ampere/amper/;
- $string =~ s/byte(s?)\b/beit$1/;
- $string =~ s/\bdezibel\b/de-zibell/;
- $string =~ s/energie\b/ener-gie/;
- $string =~ s/\bflash\b/fläsh/g;
- $string =~ s/\bfirmware(s?)\b/firmwer$1/;
- $string =~ s/\bid3 tag\b/id3 täg/g; # can't just use "tag" here
- $string =~ s/\bloudness\b/laudness/;
- $string =~ s/\bnumerisch\b/numehrisch/;
- $string =~ s/\brücklauf\b/rück-lauf/;
- $string =~ s/\bsuchlauf\b/such-lauf/;
+ case "sapi" { # just for SAPI
+ $string =~ s/plugin(s?)/plug-in$1/ig;
+ }
+ }
+ }
+ case "deutsch" {
+ # for all german engines (e.g. for english words)
+ $string =~ s/alkaline/alkalein/ig;
+ $string =~ s/byte(s?)/beit$1/ig;
+ $string =~ s/clip(s?)/klipp$1/ig;
+ $string =~ s/cuesheet/kjuschiet/ig;
+ $string =~ s/dither/didder/ig;
+ $string =~ s/equalizer/iquileiser/ig;
+ $string =~ s/\bflash\b/fläsh/ig;
+ $string =~ s/\bfirmware(s?)\b/firmwer$1/ig;
+ $string =~ s/\bI D 3 tag\b/I D 3 täg/ig; # can't just use "tag" here
+ $string =~ s/\bloudness\b/laudness/ig;
+ $string =~ s/\bunicode\b/unikod/ig;
+ switch($$tts_object{"name"}) {
+ case "sapi" { # just for SAPI
+ switch($$tts_object{"vendor"}) {
+ case "AT&T Labs" {
+ $string =~ s/alphabet/alfabet/ig;
+ $string =~ s/ampere/amper/ig;
+ $string =~ s/\bdezibel\b/de-zibell/ig;
+ $string =~ s/diddering/didde-ring/ig;
+ $string =~ s/energie\b/ener-gie/ig;
+ $string =~ s/\bnumerisch\b/numehrisch/ig;
+ $string =~ s/\brücklauf\b/rück-lauf/ig;
+ $string =~ s/\bsuchlauf\b/such-lauf/ig;
+ }
+ }
+ }
}
}
}
@@ -280,11 +309,13 @@ sub generateclips {
}
# Apply corrections to the string
- $voice = correct_string($voice);
+ $voice = correct_string($voice, $language, $tts_object);
- # If we have a pool of snippes, see if the string exists there first
+ # If we have a pool of snippets, see if the string exists there first
if (defined($ENV{'POOL'})) {
- $pool_file = sprintf("%s/%s-%s-%s.mp3", $ENV{'POOL'}, md5_hex($voice), $language, $tts_engine);
+ $pool_file = sprintf("%s/%s-%s.mp3", $ENV{'POOL'},
+ md5_hex("$voice $tts_engine $tts_engine_opts $encoder_opts"),
+ $language);
if (-f $pool_file) {
printf("Re-using %s (%s) from pool\n", $id, $voice) if $verbose;
copy($pool_file, $mp3);