From 839bcdf46c2a6a269931cc9d3cc39cf45cc21a3b Mon Sep 17 00:00:00 2001
From: Jonas Häggqvist <rasher@rasher.dk>
Date: Mon, 2 Mar 2009 21:36:48 +0000
Subject: Ask which voice to use for Festival.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@20181 a1c6a512-1295-4272-9138-f99709370657
---
 tools/voice.pl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tools/voice.pl')

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);
-- 
cgit v1.2.3