diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-11-08 17:56:11 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2019-07-01 11:14:58 +1000 |
commit | fe8bab1cc313d0049bbb839589c68059807518c8 (patch) | |
tree | 53a089d480d57903b004065acda88870f4ad5f4e /examples/unix.dgram.server | |
parent | eb6b2dcdc6345acd09ae593469abaf76b6b6fdfe (diff) | |
download | jimtcl-fe8bab1cc313d0049bbb839589c68059807518c8.zip jimtcl-fe8bab1cc313d0049bbb839589c68059807518c8.tar.gz jimtcl-fe8bab1cc313d0049bbb839589c68059807518c8.tar.bz2 |
aio: Add dgram unix socket support
Also add support for sockname and peername
And remove unix domain sockets when the socket is closed
And generally clean up the socket support
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/unix.dgram.server')
-rw-r--r-- | examples/unix.dgram.server | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/examples/unix.dgram.server b/examples/unix.dgram.server new file mode 100644 index 0000000..43ada19 --- /dev/null +++ b/examples/unix.dgram.server @@ -0,0 +1,35 @@ +# Example of a udp server which sends a response + +# Listen on port 20000. No host specified means 0.0.0.0 +file delete unix.sock +set s [socket unix.dgram.server unix.sock] + +puts "Listening on dgram socket [$s sockname]" + +set count 0 + +# For each request... +$s readable { + # Get the request (max 80 chars) - need the source address + set buf [$s recvfrom 80 addr] + + puts -nonewline "read '$buf' from client $addr" + + try { + set result "$buf = [expr $buf]" + } on error {msg} { + set result "Error: $buf => $msg" + } + + puts ", sending '$result' to client $addr" + + # Send the result back to where it came from + $s sendto $result $addr +} + +# Handle signals so the socket is removed on exit +signal handle SIGINT SIGTERM + +catch -signal { + vwait done +} |