Hi Massimo,
I used this echo server:
http://www.cab.u-szeged.hu/local/doc/tcl/SocketExample.html
It just does a puts $s $data
on a file descriptor with
fconfigure $sock -buffering line -blocking 0
Thank you.
B.
On Sat, Aug 17, 2013 at 11:14 AM, Massimo Manghi <mxman...@apache.org>wrote:
> **
> Is you echo server returning the data without buffering or line
> termination? IIRC good old echo available on port 6 (?) required a newline,
> isn't it?
>
> -- Massimo
> Inviato dal mio BlackBerry®
> ------------------------------
> *From: * Brice Hamon <normandvik...@gmail.com>
> *Date: *Sat, 17 Aug 2013 10:31:17 -0400
> *To: *rivet-dev@tcl.apache.org<rivet-dev@tcl.apache.org>
> *Subject: *Socket gets hanging in Rivet
>
> Hi all,
>
> I am facing a unexpected problem with such simple code in Rivet:
> I open a socket to an echo server, send something and wait for the answer.
>
> I open the socket like that:
>
> set port 20445
> set host "toto2"
> set s 0
>
> proc connectToBs {} {
> ::request::global s
> ::request::global port
> ::request::global host
>
> set s [socket $host $port]
> puts "Connected to $host:$port"
> fconfigure $s -buffering none
> fconfigure $s -translation binary
> }
>
> Then:
>
> connectToBs
> puts -nonewline $s "OKOK"
> set resp {}
> gets $s resp <=== and I am getting stuck in the gets forever.
>
> The same code under a regular tclsh works. I don't get it.
>
> I am using the native TCL8.5.10 from SUSE 12.1 with Rivet 2.1.2.
>
> Any idea?
>
> Thanks,
> Brice.
>
