diff options
| author | Danyil Bohdan <danyil.bohdan@gmail.com> | 2014-07-26 10:50:17 +0300 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2014-09-01 08:07:05 +1000 |
| commit | a71a09f67ceb1bdadde86981da76d4f42dffab81 (patch) | |
| tree | f97b52d991df6de7d2770964cd3ab67be341d52b /examples/tcp.server | |
| parent | 0c24afc040fcdcdc51513ea946a1cf4b36987a09 (diff) | |
| download | jimtcl-a71a09f67ceb1bdadde86981da76d4f42dffab81.zip jimtcl-a71a09f67ceb1bdadde86981da76d4f42dffab81.tar.gz jimtcl-a71a09f67ceb1bdadde86981da76d4f42dffab81.tar.bz2 | |
aio: optional argument addrvar for accept.
Diffstat (limited to 'examples/tcp.server')
| -rw-r--r-- | examples/tcp.server | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/tcp.server b/examples/tcp.server index 1240f2b..a86cd63 100644 --- a/examples/tcp.server +++ b/examples/tcp.server @@ -6,7 +6,8 @@ set s [socket stream.server 20000] $s readable { # Clean up children os.wait -nohang 0 - set sock [$s accept] + set sock [$s accept addr] + puts "Client address: $addr" # Make this server forking so we can accept multiple # simultaneous connections |