diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-05-31 20:28:57 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-06-10 14:00:34 +1000 |
commit | c46fde880b6d3f9eef24e8dd1ab7bc3f6a8a0f18 (patch) | |
tree | cec487099b56288a73528ae30ec5855cefefdc91 /examples/udp.client | |
parent | f2524e6687ac64d1e1a6bbaa9d07c30236b61df1 (diff) | |
download | jimtcl-c46fde880b6d3f9eef24e8dd1ab7bc3f6a8a0f18.zip jimtcl-c46fde880b6d3f9eef24e8dd1ab7bc3f6a8a0f18.tar.gz jimtcl-c46fde880b6d3f9eef24e8dd1ab7bc3f6a8a0f18.tar.bz2 |
Add aio support for buffering
And fconfigure for Tcl compatibility
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/udp.client')
-rw-r--r-- | examples/udp.client | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/udp.client b/examples/udp.client index da74e77..165050a 100644 --- a/examples/udp.client +++ b/examples/udp.client @@ -15,12 +15,13 @@ $s close # Now sending via a connected udp socket set s [socket dgram 127.0.0.1:20000] +$s buffering line foreach i [range 5 10] { # Socket is connected, so can just use puts here # But remember to flush to ensure that each message is separate $s puts -nonewline "$i * $i" - $s flush + #$s flush # Receive the response - max length of 100 puts [$s recvfrom 100] |