usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r108 - public_html
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:51:29 2006 New Revision: 108 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 17 14:51:29 2006 @@ -161,7 +161,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP">WIP</td> + <td class="DONE">DONE</td> <td class="WIP">WIP</td> </tr> <tr> @@ -171,7 +171,7 @@ <td title="Recent CVS only" class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="UNTESTED">?</td> + <td class="PASS">PASS</td> <td class="UNTESTED">?</td> </tr> <tr>

1 0

[usocket-cvs] r107 - public_html
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:37:40 2006 New Revision: 107 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 17 14:37:40 2006 @@ -156,21 +156,21 @@ </tr> <tr> <td>Implement it.</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> <td class="WIP">WIP</td> <td class="WIP">WIP</td> </tr> <tr> <td>Implementation test-suite status</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> + <td class="PASS">PASS</td> + <td class="PASS">PASS</td> + <td title="Recent CVS only" class="PASS">PASS</td> + <td class="PASS">PASS</td> + <td class="PASS">PASS</td> <td class="UNTESTED">?</td> <td class="UNTESTED">?</td> </tr>

1 0

[usocket-cvs] r106 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:27:51 2006 New Revision: 106 Modified: usocket/trunk/backend/armedbear.lisp Log: Remove non-working 0.0.9 compat code. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Feb 17 14:27:51 2006 @@ -24,48 +24,18 @@ (ext:socket-close (socket usocket)))) -#.(if (null (find-symbol "SOCKET-LOCAL-ADDRESS" :ext)) - ;; abcl 0.0.9 compat code - '(progn - (declaim (inline %socket-address %socket-port)) - (defun %socket-address (socket addressName) - (java:jcall "getHostAddress" (java:jcall-raw addressName socket))) - - (defun %socket-port (socket portName) - (java:jcall portName socket)) - - - - (defun socket-local-address (socket) - "Returns the local address of the given socket as a dotted quad string." - (%socket-address socket "getLocalAddress")) - - (defun socket-peer-address (socket) - "Returns the peer address of the given socket as a dotted quad string." - (%socket-address socket "getInetAddress")) - - (defun socket-local-port (socket) - "Returns the local port number of the given socket." - (%socket-port socket "getLocalPort")) - - (defun socket-peer-port (socket) - "Returns the peer port number of the given socket." - (%socket-port socket "getPort"))) - '(progn - (import (:socket-peer-port :socket-peer-address - :socket-local-port :socket-local-address) :ext))) (defmethod get-local-address ((usocket usocket)) - (dotted-quad-to-vector-quad (socket-local-address (socket usocket)))) + (dotted-quad-to-vector-quad (ext:socket-local-address (socket usocket)))) (defmethod get-peer-address ((usocket usocket)) - (dotted-quad-to-vector-quad (socket-peer-address (socket usocket)))) + (dotted-quad-to-vector-quad (ext:socket-peer-address (socket usocket)))) (defmethod get-local-port ((usocket usocket)) - (socket-local-port (socket usocket))) + (ext:socket-local-port (socket usocket))) (defmethod get-peer-port ((usocket usocket)) - (socket-peer-port (socket usocket))) + (ext:socket-peer-port (socket usocket))) (defmethod get-local-name ((usocket usocket)) (values (get-local-address usocket)

1 0

[usocket-cvs] r105 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:26:47 2006 New Revision: 105 Modified: usocket/trunk/test/test-usocket.lisp Log: More tests. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 17 14:26:47 2006 @@ -136,13 +136,20 @@ (usocket::get-peer-port sock) (usocket:socket-close sock)))) 80) -(deftest socket-name.2 +(deftest socket-name.3 (with-caught-conditions (nil nil) (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) (unwind-protect (usocket::get-peer-name sock) (usocket:socket-close sock)))) #(65 110 12 237) 80) +(deftest socket-name.4 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-local-address sock) + (usocket:socket-close sock)))) + #(10 0 0 252)) (defun run-usocket-tests ()

1 0

[usocket-cvs] r104 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 01:49:57 2006 New Revision: 104 Modified: usocket/trunk/test/test-usocket.lisp Log: Add more tests. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 17 01:49:57 2006 @@ -122,6 +122,28 @@ #+clisp "HTTP/1.1 200 OK" #-clisp #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil) +(deftest socket-name.1 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-peer-address sock) + (usocket:socket-close sock)))) + #(65 110 12 237)) +(deftest socket-name.2 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-peer-port sock) + (usocket:socket-close sock)))) + 80) +(deftest socket-name.2 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-peer-name sock) + (usocket:socket-close sock)))) + #(65 110 12 237) 80) + (defun run-usocket-tests () (do-tests))

1 0

[usocket-cvs] r103 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 01:49:40 2006 New Revision: 103 Modified: usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/sbcl.lisp Log: nth-value is zero based ... Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Fri Feb 17 01:49:40 2006 @@ -69,14 +69,14 @@ (values (dotted-quad-to-vector-quad address) port))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Feb 17 01:49:40 2006 @@ -87,16 +87,16 @@ (values (hbo-to-vector-quad address) port))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) (defun get-host-by-address (address) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Fri Feb 17 01:49:40 2006 @@ -77,13 +77,13 @@ (values (hbo-to-vector-quad address) port))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Feb 17 01:49:40 2006 @@ -85,16 +85,16 @@ (sb-bsd-sockets:socket-peername (socket usocket))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) (defun get-host-by-address (address)

1 0

[usocket-cvs] r102 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 01:20:41 2006 New Revision: 102 Modified: usocket/trunk/backend/cmucl.lisp Log: Make tests pass again. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Feb 17 01:20:41 2006 @@ -57,7 +57,7 @@ (let* ((socket)) (setf socket (with-mapped-conditions (socket) - (ext:connect-to-inet-socket (host-to-hbo host) port type))) + (ext:connect-to-inet-socket (host-to-hbo host) port :stream))) (if socket (let* ((stream (sys:make-fd-stream socket :input t :output t :element-type 'character

1 0

[usocket-cvs] r101 - public_html usocket/trunk usocket/trunk/backend
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Thu Feb 16 17:36:45 2006 New Revision: 101 Modified: public_html/index.shtml usocket/trunk/backend/allegro.lisp usocket/trunk/backend/armedbear.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/openmcl.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/usocket.lisp Log: First step at implementing socket addresses. Also update site. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 16 17:36:45 2006 @@ -142,27 +142,37 @@ <td class="PASS">PASS</td> </tr> <tr> - <td rowspan="2">Add functions to retrieve socket properties:<br /> + <td rowspan="3">Add functions to retrieve socket properties:<br /> Local and remote IP address and port.</td> <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" >Investigate interfaces provided</a></td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  </tr> <tr> <td>Implement it.</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + </tr> + <tr> + <td>Implementation test-suite status</td> + <td class="UNTESTED">?</td> + <td class="UNTESTED">?</td> + <td class="UNTESTED">?</td> + <td class="UNTESTED">?</td> + <td class="UNTESTED">?</td> + <td class="UNTESTED">?</td> + <td class="UNTESTED">?</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server) Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Thu Feb 16 17:36:45 2006 @@ -50,6 +50,26 @@ (close (socket usocket)))) +(defmethod get-local-address ((usocket usocket)) + (hbo-to-vector-quad (socket:local-host (socket usocket)))) + +(defmethod get-peer-address ((usocket usocket)) + (hbo-to-vector-quad (socket:remote-host (socket usocket)))) + +(defmethod get-local-port ((usocket usocket)) + (socket:local-port (socket usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (socket:remote-port (socket usocket))) + +(defmethod get-local-name ((usocket usocket)) + (values (get-local-address usocket) + (get-local-port usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (values (get-peer-address usocket) + (get-peer-port usocket))) + (defun get-host-by-address (address) (with-mapped-conditions () Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Thu Feb 16 17:36:45 2006 @@ -24,7 +24,7 @@ (ext:socket-close (socket usocket)))) -#.(if (find-symbol "SOCKET-LOCAL-ADDRESS" :ext) +#.(if (null (find-symbol "SOCKET-LOCAL-ADDRESS" :ext)) ;; abcl 0.0.9 compat code '(progn (declaim (inline %socket-address %socket-port)) @@ -51,4 +51,26 @@ (defun socket-peer-port (socket) "Returns the peer port number of the given socket." (%socket-port socket "getPort"))) - '(progn)) + '(progn + (import (:socket-peer-port :socket-peer-address + :socket-local-port :socket-local-address) :ext))) + +(defmethod get-local-address ((usocket usocket)) + (dotted-quad-to-vector-quad (socket-local-address (socket usocket)))) + +(defmethod get-peer-address ((usocket usocket)) + (dotted-quad-to-vector-quad (socket-peer-address (socket usocket)))) + +(defmethod get-local-port ((usocket usocket)) + (socket-local-port (socket usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (socket-peer-port (socket usocket))) + +(defmethod get-local-name ((usocket usocket)) + (values (get-local-address usocket) + (get-local-port usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (values (get-peer-address usocket) + (get-peer-port usocket))) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Thu Feb 16 17:36:45 2006 @@ -56,3 +56,27 @@ (with-mapped-conditions (usocket) (close (socket usocket)))) +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind + (address port) + (socket:socket-stream-local (socket usocket) nil) + (values (dotted-quad-to-vector-quad address) port))) + +(defmethod get-peer-name ((usocket usocket)) + (multiple-value-bind + (address port) + (socket:socket-stream-peer (socket usocket) nil) + (values (dotted-quad-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) + Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Thu Feb 16 17:36:45 2006 @@ -74,6 +74,29 @@ (with-mapped-conditions (usocket) (ext:close-socket (socket usocket)))) +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind + (address port) + (ext:get-socket-host-and-port (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-peer-name ((usocket usocket)) + (multiple-value-bind + (address port) + (ext:get-peer-host-and-port (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) (defun get-host-by-address (address) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Thu Feb 16 17:36:45 2006 @@ -64,3 +64,26 @@ "Close socket." (close (socket-stream usocket))) +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind + (address port) + (comm:get-socket-address (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-peer-name ((usocket usocket)) + (multiple-value-bind + (address port) + (comm:get-socket-peer-address (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Thu Feb 16 17:36:45 2006 @@ -51,3 +51,23 @@ (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (close (socket usocket)))) + +(defmethod get-local-address ((usocket usocket)) + (hbo-to-vector-quad (openmcl-socket:local-host (socket usocket)))) + +(defmethod get-peer-address ((usocket usocket)) + (hbo-to-vector-quad (openmcl-socket:remote-host (socket usocket)))) + +(defmethod get-local-port ((usocket usocket)) + (openmcl-socket:local-port (socket usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (openmcl-socket:remote-port (socket usocket))) + +(defmethod get-local-name ((usocket usocket)) + (values (get-local-address usocket) + (get-local-port usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (values (get-peer-address usocket) + (get-peer-port usocket))) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Thu Feb 16 17:36:45 2006 @@ -61,7 +61,7 @@ (defun socket-connect (host port) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket - :type type :protocol :tcp)) + :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket :input t :output t @@ -78,6 +78,23 @@ (with-mapped-conditions (usocket) (sb-bsd-sockets:socket-close (socket usocket)))) +(defmethod get-local-name ((usocket usocket)) + (sb-bsd-sockets:socket-name (socket usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (sb-bsd-sockets:socket-peername (socket usocket))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) (defun get-host-by-address (address) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Thu Feb 16 17:36:45 2006 @@ -30,6 +30,27 @@ (defgeneric socket-close (usocket) (:documentation "Close a previously opened `usocket'.")) +(defgeneric get-local-address (socket) + (:documentation "Returns the IP address of the socket.")) + +(defgeneric get-peer-address (socket) + (:documentation + "Returns the IP address of the peer the socket is connected to.")) + +(defgeneric get-local-port (socket) + (:documentation "Returns the IP port of the socket.")) + +(defgeneric get-peer-port (socket) + (:documentation "Returns the IP port of the peer the socket to.")) + +(defgeneric get-local-name (socket) + (:documentation "Returns the IP address and port of the socket as values.")) + +(defgeneric get-peer-name (socket) + (:documentation + "Returns the IP address and port of the peer +the socket is connected to as values.")) + (defmacro with-connected-socket ((var socket) &body body) "Bind `socket' to `var', ensuring socket destruction on exit.

1 0

[usocket-cvs] r100 - public_html
by ehuelsmann＠common-lisp.net 16 Feb '06

16 Feb '06

Author: ehuelsmann Date: Thu Feb 16 13:47:49 2006 New Revision: 100 Modified: public_html/index.shtml Log: Fix xhtml conformance issue. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 16 13:47:49 2006 @@ -145,7 +145,7 @@ <td rowspan="2">Add functions to retrieve socket properties:<br /> Local and remote IP address and port.</td> <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" - >Investigate interfaces provided</td> + >Investigate interfaces provided</a></td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

[usocket-cvs] r99 - public_html
by ehuelsmann＠common-lisp.net 16 Feb '06

16 Feb '06

Author: ehuelsmann Date: Thu Feb 16 13:46:01 2006 New Revision: 99 Modified: public_html/index.shtml Log: Update website with changed repository structure. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 16 13:46:01 2006 @@ -75,13 +75,13 @@ <tr> <th></th> <th>Minor steps</th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">SBCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">CMUCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">ABCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">clisp</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Allegro</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">LispWorks</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">OpenMCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">SBCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">CMUCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">ABCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">clisp</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Allegro</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">LispWorks</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">OpenMCL</a></th> </tr> </thead> <tbody> @@ -90,7 +90,8 @@ at the same level as provided by <a href="http://cliki.net/trivial-sockets">trivial-sockets</a>.<br /> (Meaning streamed tcp traffic on connected sockets.)</td> - <td>Investigate interfaces provided.</td> + <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" + >Investigate interfaces provided.</a></td> <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  @@ -143,7 +144,8 @@ <tr> <td rowspan="2">Add functions to retrieve socket properties:<br /> Local and remote IP address and port.</td> - <td>Investigate interfaces provided</td> + <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" + >Investigate interfaces provided</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

← Newer
1
...
57
58
59
60
61
62
63
...
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs