Ask which voice to use for Festival.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@20181 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 4 insertions, 0 deletions

diff --git a/tools/voice.pl b/tools/voice.pl
index ac7a1b13cd..21c9ab913c 100755
--- a/tools/voice.pl
+++ b/tools/voice.pl
@@ -245,6 +245,10 @@ sub voicestring {
             # festival_client lies to us, so we have to do awful soul-eating
             # work with IPC::open3()
             $cmd = "festival_client --server localhost --otype riff --ttw --output \"$output\"";
+            # Use festival-prolog.scm if it's there (created by user of tools/configure)
+            if (-f "festival-prolog.scm") {
+                $cmd .= " --prolog festival-prolog.scm";
+            }
             print("> $cmd\n") if $verbose;
             # Open command, and filehandles for STDIN, STDOUT, STDERR
             my $pid = open3(*CMD_IN, *CMD_OUT, *CMD_ERR, $cmd);