[usocket-cvs] r465 - usocket/branches/experimental-udp/backend

[Chun Tian (binghe)]

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)))))