From add234e1feb3d87b1be660bf90d68e4c5bdf2a3d Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Fri, 21 Aug 2015 20:48:46 +0100
Subject: [PATCH] move files

---
 bin/say | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 bin/say

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;
-- 
2.47.3