1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
--- emacspeak-27.0.orig/servers/dtk-exp 2007-07-25 20:15:16.000000000 -0500
+++ emacspeak-27.0/servers/dtk-exp 2008-01-19 12:38:15.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
# $Id: emacspeak-27.0-tcl84.patch,v 1.2 2008/01/19 21:30:57 williamh Exp $
# Description: Interfacing to a Dectalk via TCL.
# Keywords: Emacspeak, Dectalk, TCL
@@ -363,7 +363,7 @@
set tts(speech_rate) 225
set tts(say_rate) [round \
[expr $tts(speech_rate) * $tts(char_factor)]]
-set tts(input) file0
+set tts(input) stdin
if {[info exists server_p]} {
set tts(input) sock0
}
--- emacspeak-27.0.orig/servers/dtk-soft 2007-06-23 23:12:04.000000000 -0500
+++ emacspeak-27.0/servers/dtk-soft 2008-01-19 12:38:44.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
# Keywords: Emacspeak, Software Dectalk , TCL
# {{{ LCD Entry:
--- emacspeak-27.0.orig/servers/espeak 2007-07-01 21:10:31.000000000 -0500
+++ emacspeak-27.0/servers/espeak 2008-01-19 12:39:25.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
# Keywords: Emacspeak, eSpeak , TCL
# {{{ LCD Entry:
--- emacspeak-27.0.orig/servers/outloud 2007-06-23 23:12:04.000000000 -0500
+++ emacspeak-27.0/servers/outloud 2008-01-19 12:40:14.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
# Keywords: Emacspeak, ViaVoice Outloud , TCL
# {{{ LCD Entry:
@@ -472,7 +472,7 @@
tts_initialize
set tts(speech_rate) 75
beep_initialize
-set tts(input) file0
+set tts(input) stdin
if {[info exists server_p]} {
set tts(input) sock0
}
--- emacspeak-27.0.orig/servers/speech-server 2007-07-01 21:12:27.000000000 -0500
+++ emacspeak-27.0/servers/speech-server 2008-01-19 12:49:01.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
# $Id: emacspeak-27.0-tcl84.patch,v 1.2 2008/01/19 21:30:57 williamh Exp $
# Description: Speech server
#Usage: tcl speech-server port device-specific-script
@@ -39,6 +39,7 @@
# }}}
# {{{Initialize and get ready
+package require Tclx
set port [lindex $argv 0]
#start up the server
set server [server_create -myport $port -reuseaddr]
--- emacspeak-27.0.orig/servers/ssh-dtk-exp 2007-06-23 22:00:40.000000000 -0500
+++ emacspeak-27.0/servers/ssh-dtk-exp 2008-01-19 12:46:57.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
#$Id: emacspeak-27.0-tcl84.patch,v 1.2 2008/01/19 21:30:57 williamh Exp $
#Description: Launch a TTS server on a remote host.
#Copyright (C) 1995 -- 2007, T. V. Raman
@@ -18,6 +18,7 @@
#"do you want to continue connecting" question.
# }}}
+package require Tclx
set localhost [exec hostname]
puts stderr "running on host <$localhost>"
if [expr $argc == 0] {
@@ -35,7 +36,7 @@
set user [lindex $user_host 0]
set host [lindex $user_host 1]
if {$user == ""} {set user env($USER)}
-set tcl /usr/bin/tcl
+set tcl /usr/bin/tclsh
regsub {/ssh-} $argv0 {/} tts
puts stderr "Running <ssh $host -l $user -p $port $tcl $tts>"
exec ssh -o StrictHostKeyChecking=no $host \
--- emacspeak-27.0.orig/servers/ssh-outloud 2007-06-23 22:00:42.000000000 -0500
+++ emacspeak-27.0/servers/ssh-outloud 2008-01-19 12:48:18.000000000 -0600
@@ -1,4 +1,4 @@
-#!/usr/bin/tcl
+#!/usr/bin/tclsh
#$Id: emacspeak-27.0-tcl84.patch,v 1.2 2008/01/19 21:30:57 williamh Exp $
#Description: Launch a TTS server on a remote host.
#Copyright (C) 1995 -- 2007, T. V. Raman
@@ -18,6 +18,7 @@
#"do you want to continue connecting" question.
# }}}
+package require Tclx
set localhost [exec hostname]
puts stderr "running on host <$localhost>"
if [expr $argc == 0] {
@@ -35,7 +36,7 @@
set user [lindex $user_host 0]
set host [lindex $user_host 1]
if {$user == ""} {set user env($USER)}
-set tcl /usr/bin/tcl
+set tcl /usr/bin/tclsh
regsub {/ssh-} $argv0 {/} tts
puts stderr "Running <ssh $host -l $user -p $port $tcl $tts>"
exec ssh -o StrictHostKeyChecking=no $host \
--- emacspeak-27.0.orig/servers/tts-lib.tcl 2007-06-23 23:12:04.000000000 -0500
+++ emacspeak-27.0/servers/tts-lib.tcl 2008-01-19 12:37:39.000000000 -0600
@@ -36,6 +36,9 @@
#
# }}}
+
+package require Tclx
+
# {{{ sync state
proc tts_sync_state {punct capitalize allcaps splitcaps rate} {
tts_set_punctuations $punct
|
GitWeb