Re: TCL 7.5 Emacspeak 7.0 and remote speech servers

["Brian L. Sellden" <Brian@xxxxxxxxxxx>]

Hi Raman,
  I posted a patch for "speech-server" to get it working with
tcl 8.0.  You were on the 'cc' list,but I don't think it went
through.  A copy of the post follows:

---------Begin post---------
Hi folks,

Here is a patch for the file "speech-server" in the emacspeak 7.0
distribution.  It creates client and server sockets using
the new api.  This patch works with tcl 8.0, which comes stock
with RH 5.0.  In fact, tcl, tclx, and tk have all had their version
numbers synchronized at 8.0.

Apply the patch by placing the patch file into the same directory
as "speech-server" and typing...

 patch < patchfile

Fair warning - my tcl knowledge is limited, but this works for me.

Regards,

Brian.
-------------Start patch-------------
*** speech-server.old	Thu Feb 19 02:36:14 1998
--- speech-server	Thu Feb 19 03:11:05 1998
***************
*** 41,55 ****
  
  set port [lindex $argv 0]
  #start up the server
! set server [server_create -myport  $port]
  puts "Started speech server ..."
  # and wait for a connection
  puts "Waiting for a connection on port $port ..."
! set handles [server_accept -twoids $server]
  #Now, connect the read and write handles to stdin and stdout
! dup [lindex $handles 1] stdout
! dup [lindex $handles 1] stderr
! dup [lindex $handles 0] stdin
  #launch speech synthesizer code
  source [lindex $argv 1]
  #All done
--- 41,57 ----
  
  set port [lindex $argv 0]
  #start up the server
! set server [socket -server  [] $port]
! set sockinfo [fconfigure $server -sockname]
! 
  puts "Started speech server ..."
  # and wait for a connection
  puts "Waiting for a connection on port $port ..."
! set client [server_accept -nobuf $server]
  #Now, connect the read and write handles to stdin and stdout
! dup $client stdout
! dup $client stderr
! dup $client stdin
  #launch speech synthesizer code
  source [lindex $argv 1]
  #All done
-------------End patch-------------
-------------End post----------------
>>>>> ">" == T V Raman <raman@xxxxxxxxxxx> writes:

  >> what speech server patch are you talking about?James R. Van Zandt
  >> writes:
  >> 
  >> Brian -
  >> 
  >> Thanks for the speech server patch!  However - can the speech
  >> server be modified to work under either new or old versions of
  >> tcl?
  >> 
  >> - Jim Van Zandt

  >> -- Best Regards, --raman

  >>       Adobe Systems Tel: 1 (408) 536 3945 (W14-129) Advanced
  >> Technology Group Fax: 1 (408) 537 4042 (W14 129) 345 Park Avenue
  >> Email: raman@xxxxxxxxxxx San Jose , CA 95110 -2704 Email:
  >> raman@xxxxxxxxxxx http://labrador.corp.adobe.com/~raman/
  >> (Adobe Intranet) http://cs.cornell.edu/home/raman/raman.html
  >> (Cornell)
  >> ----------------------------------------------------------------------
  >> Disclaimer: The opinions expressed are my own and in no way
  >> should be taken as representative of my employer, Adobe Systems
  >> Inc.
  >> ____________________________________________________________

-- 
---------------
Brian L. Sellden - brian@xxxxxxxxxxx, brians@xxxxxxxxxxx
User of Emacspeak 7.0,  making Unix talk.
http://www.henge.com/~brian
	      What on earth would a man do with himself
		if something did not stand in his way?
		-- H.G. Wells