Author: ctian Date: Tue Oct 28 05:58:15 2008 New Revision: 465
Log: [udp] SOCKET-SEND API Change: use keyword HOST instead of ADDRESS.
Modified: usocket/branches/experimental-udp/backend/allegro.lisp usocket/branches/experimental-udp/backend/cmucl.lisp usocket/branches/experimental-udp/backend/lispworks.lisp usocket/branches/experimental-udp/backend/openmcl.lisp usocket/branches/experimental-udp/backend/sbcl.lisp usocket/branches/experimental-udp/backend/scl.lisp
Modified: usocket/branches/experimental-udp/backend/allegro.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/allegro.lisp (original) +++ usocket/branches/experimental-udp/backend/allegro.lisp Tue Oct 28 05:58:15 2008 @@ -129,10 +129,10 @@ (socket:accept-connection (socket socket))))) (make-stream-socket :socket stream-sock :stream stream-sock)))
-(defmethod socket-send ((socket datagram-usocket) buffer length &key address port) +(defmethod socket-send ((socket datagram-usocket) buffer length &key host port) (with-mapped-conditions (socket) (let ((s (socket socket))) - (socket:send-to s buffer length :remote-host address :remote-port port)))) + (socket:send-to s buffer length :remote-host host :remote-port port))))
(defmethod socket-receive ((socket datagram-usocket) buffer length) (with-mapped-conditions (socket)
Modified: usocket/branches/experimental-udp/backend/cmucl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/cmucl.lisp (original) +++ usocket/branches/experimental-udp/backend/cmucl.lisp Tue Oct 28 05:58:15 2008 @@ -157,9 +157,9 @@ (defmethod socket-close :after ((socket datagram-usocket)) (setf (%open-p socket) nil))
-(defmethod socket-send ((usocket datagram-usocket) buffer length &key address port) +(defmethod socket-send ((usocket datagram-usocket) buffer length &key host port) (with-mapped-conditions (usocket) - (ext:inet-sendto (socket usocket) buffer length (if address (host-to-hbo address)) port))) + (ext:inet-sendto (socket usocket) buffer length (if host (host-to-hbo host)) port)))
(defmethod socket-receive ((usocket datagram-usocket) buffer length) (let ((real-buffer (or buffer
Modified: usocket/branches/experimental-udp/backend/lispworks.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/lispworks.lisp (original) +++ usocket/branches/experimental-udp/backend/lispworks.lisp Tue Oct 28 05:58:15 2008 @@ -371,9 +371,9 @@ (fli:dereference len))) (comm::%send socket-fd ptr (min length +max-datagram-packet-size+) 0)))))))
-(defmethod socket-send ((socket datagram-usocket) buffer length &key address port) +(defmethod socket-send ((socket datagram-usocket) buffer length &key host port) (let ((s (socket socket))) - (send-message s buffer length (host-to-hbo address) port))) + (send-message s buffer length (host-to-hbo host) port)))
(defvar *message-receive-buffer* (make-array +max-datagram-packet-size+
Modified: usocket/branches/experimental-udp/backend/openmcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/openmcl.lisp (original) +++ usocket/branches/experimental-udp/backend/openmcl.lisp Tue Oct 28 05:58:15 2008 @@ -136,10 +136,10 @@ (with-mapped-conditions (usocket) (close (socket usocket))))
-(defmethod socket-send ((usocket datagram-usocket) buffer length &key address port) +(defmethod socket-send ((usocket datagram-usocket) buffer length &key host port) (with-mapped-conditions (usocket) (openmcl-socket:send-to (socket usocket) buffer length - :remote-host (host-to-hbo address) + :remote-host (host-to-hbo host) :remote-port port)))
(defmethod socket-receive ((usocket datagram-usocket) buffer length)
Modified: usocket/branches/experimental-udp/backend/sbcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/sbcl.lisp (original) +++ usocket/branches/experimental-udp/backend/sbcl.lisp Tue Oct 28 05:58:15 2008 @@ -301,10 +301,10 @@ (with-mapped-conditions (usocket) (close (socket-stream usocket))))
-(defmethod socket-send ((socket datagram-usocket) buffer length &key address port) +(defmethod socket-send ((socket datagram-usocket) buffer length &key host port) (with-mapped-conditions (socket) (let* ((s (socket socket)) - (dest (if (and address port) (list (host-to-vector-quad address) port) nil))) + (dest (if (and host port) (list (host-to-vector-quad host) port) nil))) (sb-bsd-sockets:socket-send s buffer length :address dest))))
(defmethod socket-receive ((socket datagram-usocket) buffer length
Modified: usocket/branches/experimental-udp/backend/scl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/scl.lisp (original) +++ usocket/branches/experimental-udp/backend/scl.lisp Tue Oct 28 05:58:15 2008 @@ -132,12 +132,12 @@ (defmethod socket-close :after ((socket datagram-usocket)) (setf (%open-p socket) nil))
-(defmethod socket-send ((socket datagram-usocket) buffer length &key address port) +(defmethod socket-send ((socket datagram-usocket) buffer length &key host port) (let ((s (socket socket)) - (address (if address (host-to-hbo address)))) + (host (if host (host-to-hbo host)))) (multiple-value-bind (result errno) (ext:inet-socket-send-to s buffer length - :remote-host address :remote-port port) + :remote-host host :remote-port port) (or result (scl-map-socket-error errno :socket socket)))))