From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Fri, 21 Aug 2015 19:48:46 +0000 (+0100)
Subject: move files
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=add234e1feb3d87b1be660bf90d68e4c5bdf2a3d;p=nb.git

move files
---

diff --git a/bin/say b/bin/say
new file mode 100755
index 00000000..a10b184e
--- /dev/null
+++ b/bin/say
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use strict;
+my %E = (
+);
+
+sub espeak {
+  local $_ = $_[0];
+  #s/[\r\n]//g;
+  s@(\.)@$1<break time="800ms"/>@g;
+  #die "<$_>";
+  s@(;)@$1<break time="500ms"/>@g;
+  s@(,)@$1<break time="200ms"/>@g;
+  s@(:)@$1<break time="300ms"/>@g;
+  return $_;
+}
+
+$_ = qq{
+It was day.
+It was sunny.
+};
+
+#die $_;
+
+#open(SAY,"| espeak -v mb-en1+f5 -s 140 -m 2>/dev/null") or die $!;
+open(SAY,"| espeak -m 2>/dev/null") or die $!;
+
+if (-t STDIN) {
+  $_ = join(" ",@ARGV);
+} else {
+  $_ = join(" ",<>);
+}
+
+$_ = espeak($_);
+printf SAY $_;
+
+close SAY;