From fe8bab1cc313d0049bbb839589c68059807518c8 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Tue, 8 Nov 2011 17:56:11 +1000 Subject: 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 --- examples/unix.dgram.server | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 examples/unix.dgram.server (limited to 'examples/unix.dgram.server') 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 +} -- cgit v1.1