Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14608 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Jens Arnold 2007-09-04 22:03:05 +00:00
parent 75c39b004f
commit df9a166392
2 changed files with 60 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tools/sapi_voice.vbs
View file

@ -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))

71
tools/voice.pl
View file

@ -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);