commit 1a642a7436296bc34a695fb499774c174ef770d5 parent fb4f85806c0fc4b8c4011749f1c91e9210dab629 Author: Tomas Hlavaty <tom@logand.com> Date: Sun, 13 Oct 2013 14:03:50 +0200 udp sockets added Diffstat:
| M | socket.lisp | | | 20 | ++++++++++++++++++++ |
1 file changed, 20 insertions(+), 0 deletions(-)
diff --git a/socket.lisp b/socket.lisp @@ -29,6 +29,26 @@ :remote-host host :remote-port port)) +(defun make-passive-udp-socket (host port) + #-ccl + (error "TODO port RW.SOCKET:MAKE-PASSIVE-UDP-SOCKET") + #+ccl + (ccl:make-socket :connect :passive + :address-family :internet + :type :datagram + :local-host host + :local-port port + :reuse-address t)) + +(defun make-active-udp-socket (host port) + #-ccl + (error "TODO port RW.SOCKET:MAKE-ACTIVE-UDP-SOCKET") + #+ccl + (ccl:make-socket :connect :active + :address-family :internet + :type :datagram + :remote-host host + :remote-port port)) ;; eol ;; keepalive nodelay broadcast linger ;; backlog class out-of-band-inline