From b546d9d172bfca7f050e40244cd5d6f0fbd96c90 Mon Sep 17 00:00:00 2001
From: Solomon Peachy <pizza@shaftnet.org>
Date: Sat, 11 Jul 2020 11:21:26 -0400
Subject: voice:  More fixes, and add more languages

 * Pass strings via stdin where possible
 * Add German, Italian, and Norweigan to the build list.
   (in other words, everything with >=95% coverage)

Change-Id: I0154b178b15ddd0b79566c1cb62f76ade32824aa
---
 tools/builds.pm | 30 ++++++++++++++++++++++++++++++
 tools/voice.pl  | 26 +++++++++++++++++---------
 2 files changed, 47 insertions(+), 9 deletions(-)

(limited to 'tools')

diff --git a/tools/builds.pm b/tools/builds.pm
index a69300cd3f..776f807f9d 100644
--- a/tools/builds.pm
+++ b/tools/builds.pm
@@ -526,6 +526,16 @@ sub allbuilds {
 	    'gtts' => '-l en-gb',
 	},
     },
+    'deutsch' => {
+	'lang' => 'deutsch',
+	'name' => 'Deutsch (German)',
+        'short' => 'de',
+        'defengine' => 'espeak',
+	'engines' => {
+	    'espeak' => '-vde',
+	    'gtts' => '-l de',
+	},
+    },
     # Everything else in alphabetical order
     'english-us' => {
 	'lang' => 'english-us',
@@ -548,6 +558,26 @@ sub allbuilds {
 	    'gtts' => '-l el',
 	},
     },
+    'italiano' => {
+	'lang' => 'italiano',
+	'name' => 'Italiano (Italian)',
+        'short' => 'it',
+        'defengine' => 'espeak',
+	'engines' => {
+	    'espeak' => '-vit',
+	    'gtts' => '-l it',
+	},
+    },
+    'norsk' => {
+	'lang' => 'norsk',
+	'name' => 'Norsk (Norwegian)',
+        'short' => 'no',
+        'defengine' => 'espeak',
+	'engines' => {
+	    'espeak' => '-vno',
+	    'gtts' => '-l no',
+	},
+    },
     'polski' => {
 	'lang' => 'polski',
 	'name' => 'Polski (Polish)',
diff --git a/tools/voice.pl b/tools/voice.pl
index 0b49ddff04..9bb94c9c6e 100755
--- a/tools/voice.pl
+++ b/tools/voice.pl
@@ -164,7 +164,7 @@ sub init_tts {
         if (defined($gtts_lang_map{$language}) && $tts_engine_opts !~ /-l/) {
             $ret{"ttsoptions"} = "-l $gtts_lang_map{$language} ";
         }
-    } elsif ($tts_engine eq 'espeak') {
+    } elsif ($tts_engine eq 'espeak' || $tts_engine eq 'espeak-ng') {
         if (defined($espeak_lang_map{$language}) && $tts_engine_opts !~ /-v/) {
             $ret{"ttsoptions"} = "-v$gtts_lang_map{$language} ";
         }
@@ -240,14 +240,18 @@ sub voicestring {
         system($cmd);
     }
     elsif ($name eq 'espeak') {
-        $cmd = "espeak $tts_engine_opts -w \"$output\" \"$string\"";
+        $cmd = "espeak $tts_engine_opts -w \"$output\" --stdin";
         print("> $cmd\n") if $verbose;
-        system($cmd);
+        open(RBSPEAK, "| $cmd");
+        print RBSPEAK $string . "\n";
+        close(RBSPEAK);
     }
     elsif ($name eq 'espeak-ng') {
-        $cmd = "espeak-ng $tts_engine_opts -w \"$output\" \"$string\"";
+        $cmd = "espeak-ng $tts_engine_opts -w \"$output\" --stdin";
         print("> $cmd\n") if $verbose;
-        system($cmd);
+        open(RBSPEAK, "| $cmd");
+        print RBSPEAK $string . "\n";
+        close(RBSPEAK);
     }
     elsif ($name eq 'sapi') {
         print({$$tts_object{"stdin"}} "SPEAK\t$output\t$string\r\n");
@@ -266,14 +270,18 @@ sub voicestring {
         close(RBSPEAK);
     }
     elsif ($name eq 'mimic') {
-        $cmd = "mimic $tts_engine_opts -o $output -t \"$string\" ";
+        $cmd = "mimic $tts_engine_opts -o $output";
         print("> $cmd\n") if $verbose;
-        system($cmd);
+        open(RBSPEAK, "| $cmd");
+        print RBSPEAK $string . "\n";
+        close(RBSPEAK);
     }
     elsif ($name eq 'gtts') {
-        $cmd = "gtts-cli $tts_engine_opts -o $output \"$string\"";
+        $cmd = "gtts-cli $tts_engine_opts -o $output -";
         print("> $cmd\n") if $verbose;
-        system($cmd);
+        open(RBSPEAK, "| $cmd");
+        print RBSPEAK $string . "\n";
+        close(RBSPEAK);
     }
 }
 
-- 
cgit v1.2.3