Thanks Damon,
I got it to work, using read -nonewline on a loop with a non blocking
socket.
The fileevent command does not work as Massimo pointed it out.
Can't wait for the official fix in TCL.
Thanks all.
Brice.
On Sat, Aug 17, 2013 at 1:21 PM, Damon Courtney <da...@tclhome.com> wrote:
> You can't do "puts -nonewline" on one side and then "gets" on the other.
> It will hang forever waiting for the newline to come through. That's what
> gets does. It reads up to the newline character.
>
> And since you didn't put the socket in non-blocking mode, the gets will
> block, waiting forever for a newline that will never come. Poor little
> gets. If you add -blocking 0, gets will return immediately but with no
> data because it tried to get a line and still never found a newline.
>
> If you don't want to use newlines, or you want to send binary data, you
> need to use read to get at the data. It will read everything in the
> buffer, and since you have -buffering none, that will be everything you
> sent. The better idea would be to do this:
>
> fconfigure $s -buffering full
>
> puts -nonewline $s $data
> flush $s
>
> Unless you're trying to stream something bit-by-bit, that will buffer all
> your data (up to the size of the socket buffer), and then flush will push
> it all out at once.
>
> But Massimo is right, your gets is waiting on a newline.
>
> D
>
>
> On Aug 17, 2013, at 9:31 AM, Brice Hamon <normandvik...@gmail.com> wrote:
>
> > 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.
>
>
