Author: ehuelsmann Date: Wed Mar 19 17:47:05 2008 New Revision: 323 Modified: usocket/trunk/backend/clisp.lisp usocket/trunk/usocket.lisp Log: Datagram (udp) socket creation interface. [Use socket-close to close the socket. Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Wed Mar 19 17:47:05 2008 @@ -162,6 +162,22 @@ (ip-to-octet-buffer sockaddr_in ip :start 2) sockaddr_in) + (defun socket-create-datagram (local-port + &key (local-host *wildcard-host*) + remote-host + remote-port) + (let ((sock (rawsock:socket :inet :dgram 0)) + (lsock_addr (fill-sockaddr_in (make-sockaddr_in) + local-host local-port)) + (rsock_addr (when remote-host + (fill-sockaddr_in (make-sockaddr_in) + remote-host (or remote-port + local-port))))) + (bind sock lsock_addr) + (when rsock_addr + (connect sock rsock_addr)) + (make-datagram-socket sock :connected-p (if rsock_addr t nil)))) + (defun socket-receive (socket buffer &key (size (length buffer))) "Returns the buffer, the number of octets copied into the buffer (received) and the address of the sender as values." Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Mar 19 17:47:05 2008 @@ -114,6 +114,13 @@ :socket socket :element-type element-type)) +(defun make-datagram-socket (socket &key connected-p) + (unless socket + (error 'invalid-socket-error)) + (make-instance 'datagram-usocket + :socket socket + :connected-p connected-p)) + (defgeneric socket-accept (socket &key element-type) (:documentation "Accepts a connection from `socket', returning a `stream-socket'.