Rockbox open source high quality audio player as a Music Player Daemon
mpris
rockbox
mpd
libadwaita
audio
rust
zig
deno
voice: Also apply voice corrections to talkclips
Change-Id: I8846610933dd286d39f930f004787d9a5345a9ce
+5
-2
+5
-2
tools/voice.pl
+5
-2
tools/voice.pl
···
583
583
# Generate .talk clips
584
584
sub gentalkclips {
585
585
our $verbose;
586
-
my ($dir, $tts_object, $encoder, $encoder_opts, $tts_engine_opts, $i) = @_;
586
+
my ($dir, $tts_object, $language, $encoder, $encoder_opts, $tts_engine_opts, $i) = @_;
587
587
my $d = new DirHandle $dir;
588
588
while (my $file = $d->read) {
589
589
$file = Encode::decode( locale_fs => $file);
···
619
619
$enc = sprintf("%s.talk", $path);
620
620
$voice =~ s/\.[^\.]*$//; # Trim extension
621
621
}
622
+
623
+
# Apply corrections
624
+
$voice = correct_string($voice, $language, $tts_object);
622
625
623
626
printf("Talkclip %s: %s", $enc, $voice) if $verbose;
624
627
# Don't generate encoded file if it already exists
···
691
694
deleteencs();
692
695
} elsif ($C) {
693
696
printf("Generating .talk clips\n Path: %s\n Language: %s\n Encoder (options): %s (%s)\n TTS Engine (options): %s (%s)\n", $ARGV[0], $l, $e, $E, $s, $S);
694
-
gentalkclips($ARGV[0], $tts_object, $e, $E, $S, 0);
697
+
gentalkclips($ARGV[0], $tts_object, $l, $e, $E, $S, 0);
695
698
shutdown_tts($tts_object);
696
699
} else {
697
700
printusage();