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/client-server.tcl | |
| 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/client-server.tcl')
| -rw-r--r-- | examples/client-server.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/client-server.tcl b/examples/client-server.tcl index 4856e47..0740773 100644 --- a/examples/client-server.tcl +++ b/examples/client-server.tcl @@ -15,6 +15,7 @@ if {[os.fork] == 0} { sleep .1 set f [socket stream localhost:9876] + fconfigure $f -buffering line set done 0 @@ -30,7 +31,6 @@ if {[os.fork] == 0} { proc onwrite {f} { verbose "child: sending request" $f puts -nonewline "GET / HTTP/1.0\r\n\r\n" - $f flush $f writable {} } |