1 files changed, 135 insertions, 0 deletions
diff --git a/app-accessibility/emacspeak/files/emacspeak-27.0-tcl84.patch b/app-accessibility/emacspeak/files/emacspeak-27.0-tcl84.patch
new file mode 100644
index 000000000000..bd11f039df7e
--- /dev/null
+++ b/app-accessibility/emacspeak/files/emacspeak-27.0-tcl84.patch
@@ -0,0 +1,135 @@
+--- emacspeak-27.0.orig/servers/dtk-exp	2007-07-25 20:15:16.000000000 -0500
++++ emacspeak-27.0/servers/dtk-exp	2008-01-12 20:39:54.000000000 -0600
+@@ -1,4 +1,4 @@
+-#!/usr/bin/tcl
++#!/usr/bin/tclsh
+ # $Id: emacspeak-27.0-tcl84.patch,v 1.1 2008/01/13 16:18:12 williamh Exp $
+ # Description:  Interfacing to a Dectalk via TCL.
+ # Keywords: Emacspeak, Dectalk, TCL
+@@ -58,6 +58,7 @@
+ # }}}
+ # {{{source common code
+ 
++package require Tclx
+ set wd [file dirname $argv0]
+ source $wd/tts-lib.tcl
+ # }}}
+@@ -363,7 +364,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/espeak	2007-07-01 21:10:31.000000000 -0500
++++ emacspeak-27.0/servers/espeak	2008-01-12 20:40:53.000000000 -0600
+@@ -1,4 +1,4 @@
+-#!/usr/bin/tcl
++#!/usr/bin/tclsh
+ # Keywords: Emacspeak, eSpeak , TCL
+ # {{{ LCD Entry: 
+ 
+@@ -34,6 +34,7 @@
+ # }}}
+ # {{{source common code 
+ 
++package require Tclx
+ set wd [file dirname $argv0]
+ source $wd/tts-lib.tcl
+ 
+--- emacspeak-27.0.orig/servers/outloud	2007-06-23 23:12:04.000000000 -0500
++++ emacspeak-27.0/servers/outloud	2008-01-12 20:42:33.000000000 -0600
+@@ -1,4 +1,4 @@
+-#!/usr/bin/tcl
++#!/usr/bin/tclsh
+ # Keywords: Emacspeak, ViaVoice Outloud , TCL
+ # {{{ LCD Entry: 
+ 
+@@ -34,6 +34,7 @@
+ # }}}
+ # {{{source common code 
+ 
++package require Tclx
+ set wd [file dirname $argv0]
+ source $wd/tts-lib.tcl
+ 
+@@ -472,7 +473,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-12 20:49:29.000000000 -0600
+@@ -1,4 +1,4 @@
+-#!/usr/bin/tcl
++#!/usr/bin/tclsh
+ # $Id: emacspeak-27.0-tcl84.patch,v 1.1 2008/01/13 16:18:12 williamh Exp $
+ # Description:  Speech server
+ #Usage: tcl speech-server port device-specific-script
+@@ -39,6 +39,8 @@
+ # }}}
+ # {{{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-12 20:51:57.000000000 -0600
+@@ -1,4 +1,4 @@
+-#!/usr/bin/tcl
++#!/usr/bin/tclsh
+ #$Id: emacspeak-27.0-tcl84.patch,v 1.1 2008/01/13 16:18:12 williamh Exp $
+ #Description: Launch a TTS server on a remote host.
+ #Copyright (C) 1995 -- 2007, T. V. Raman 
+@@ -18,6 +18,8 @@
+ #"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 +37,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/tcl sh
+ 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-12 20:53:46.000000000 -0600
+@@ -1,4 +1,4 @@
+-#!/usr/bin/tcl
++#!/usr/bin/tclsh
+ #$Id: emacspeak-27.0-tcl84.patch,v 1.1 2008/01/13 16:18:12 williamh Exp $
+ #Description: Launch a TTS server on a remote host.
+ #Copyright (C) 1995 -- 2007, T. V. Raman 
+@@ -18,6 +18,8 @@
+ #"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 +37,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 \