From ehuelsmann at common-lisp.net Tue Apr 3 17:38:15 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Tue, 3 Apr 2007 13:38:15 -0400 (EDT) Subject: [usocket-cvs] r221 - usocket/trunk/backend Message-ID: <20070403173815.49CBD8307E@common-lisp.net> Author: ehuelsmann Date: Tue Apr 3 13:38:15 2007 New Revision: 221 Modified: usocket/trunk/backend/scl.lisp (contents, props changed) Log: Set keywords on Scieneer backend. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Tue Apr 3 13:38:15 2007 @@ -1,5 +1,5 @@ -;;;; $Id: scl.lisp$ -;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/trunk/backend/scl.lisp $ +;;;; $Id$ +;;;; $URL$ ;;;; See LICENSE for licensing information. From ehuelsmann at common-lisp.net Tue Apr 3 20:13:41 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Tue, 3 Apr 2007 16:13:41 -0400 (EDT) Subject: [usocket-cvs] r222 - in usocket/trunk: . backend Message-ID: <20070403201341.40EB33F016@common-lisp.net> Author: ehuelsmann Date: Tue Apr 3 16:13:38 2007 New Revision: 222 Modified: 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/backend/scl.lisp usocket/trunk/usocket.lisp Log: Support the more common reuse-address option for listening sockets. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Tue Apr 3 16:13:38 2007 @@ -60,11 +60,13 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) ;; Allegro and OpenMCL socket interfaces bear very strong resemblence ;; whatever you change here, change it also for OpenMCL - (let ((sock (with-mapped-conditions () + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (sock (with-mapped-conditions () (apply #'socket:make-socket (append (list :connect :passive :reuse-address reuseaddress Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Tue Apr 3 16:13:38 2007 @@ -33,9 +33,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((sock-addr (jnew-call ("java.net.InetSocketAddress" + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (sock-addr (jnew-call ("java.net.InetSocketAddress" "java.lang.String" "int") (host-to-hostname host) port)) (sock (jnew-call ("java.net.ServerSocket")))) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Tue Apr 3 16:13:38 2007 @@ -51,11 +51,13 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) ;; clisp 2.39 sets SO_REUSEADDRESS to 1 by default; no need to - ;; to explicitly turn it on. - (let ((sock (apply #'socket:socket-server + ;; to explicitly turn it on; unfortunately, there's no way to turn it off... + (declare (ignore reuseaddress reuse-address)) + (let ((sock (apply #'socket:socket-server (append (list port :backlog backlog) (when (ip/= host *wildcard-host*) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Tue Apr 3 16:13:38 2007 @@ -72,15 +72,17 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let ((server-sock (apply #'ext:create-inet-listener - (append (list port :stream - :backlog backlog - :reuse-address reuseaddress) - (when (ip/= host *wildcard-host*) - (list :host - (host-to-hbo host))))))) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (server-sock (apply #'ext:create-inet-listener + (append (list port :stream + :backlog backlog + :reuse-address reuseaddress) + (when (ip/= host *wildcard-host*) + (list :host + (host-to-hbo host))))))) (make-stream-server-socket server-sock :element-type element-type))) (defmethod socket-accept ((usocket stream-server-usocket) &key element-type) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Tue Apr 3 16:13:38 2007 @@ -58,9 +58,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'base-char)) - (let* ((comm::*use_so_reuseaddr* reuseaddress) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (comm::*use_so_reuseaddr* reuseaddress) (hostname (host-to-hostname host)) (sock (with-mapped-conditions () #-lispworks4.1 (comm::create-tcp-socket-for-service Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Tue Apr 3 16:13:38 2007 @@ -56,9 +56,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((sock (apply #'openmcl-socket:make-socket + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (sock (apply #'openmcl-socket:make-socket (append (list :connect :passive :reuse-address reuseaddress :local-port port Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Tue Apr 3 16:13:38 2007 @@ -84,9 +84,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((ip (host-to-vector-quad host)) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (ip (host-to-vector-quad host)) (sock (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp))) (setf (sb-bsd-sockets:sockopt-reuse-address sock) reuseaddress) Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Tue Apr 3 16:13:38 2007 @@ -43,15 +43,17 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((host (if (ip= host *wildcard-host*) - 0 - (host-to-hbo host))) - (server-sock (ext:create-inet-listener port :stream - :host host - :reuse-address reuseaddress - :backlog backlog))) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (host (if (ip= host *wildcard-host*) + 0 + (host-to-hbo host))) + (server-sock (ext:create-inet-listener port :stream + :host host + :reuse-address reuseaddress + :backlog backlog))) (make-stream-server-socket server-sock :element-type element-type))) (defmethod socket-accept ((usocket stream-server-usocket) &key element-type) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Tue Apr 3 16:13:38 2007 @@ -304,9 +304,11 @@ Returns an object of type `stream-server-usocket'. -`reuseaddress' and `backlog' are advisory parameters for setting socket +`reuse-address' and `backlog' are advisory parameters for setting socket options at creation time. `element-type' is the element type of the -streams to be created by `socket-accept'. +streams to be created by `socket-accept'. `reuseaddress' is supported for +backward compatibility (but deprecated); when both `reuseaddress' and +`reuse-address' have been specified, the latter takes precedence. ") ;; Documentation for the function From ehuelsmann at common-lisp.net Tue Apr 3 20:22:48 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Tue, 3 Apr 2007 16:22:48 -0400 (EDT) Subject: [usocket-cvs] r223 - in usocket/branches/0.3.x: . backend Message-ID: <20070403202248.762734507D@common-lisp.net> Author: ehuelsmann Date: Tue Apr 3 16:22:47 2007 New Revision: 223 Modified: usocket/branches/0.3.x/backend/allegro.lisp usocket/branches/0.3.x/backend/armedbear.lisp usocket/branches/0.3.x/backend/clisp.lisp usocket/branches/0.3.x/backend/cmucl.lisp usocket/branches/0.3.x/backend/lispworks.lisp usocket/branches/0.3.x/backend/openmcl.lisp usocket/branches/0.3.x/backend/sbcl.lisp usocket/branches/0.3.x/backend/scl.lisp (contents, props changed) usocket/branches/0.3.x/usocket.lisp Log: Merge r220-222 from trunk. Modified: usocket/branches/0.3.x/backend/allegro.lisp ============================================================================== --- usocket/branches/0.3.x/backend/allegro.lisp (original) +++ usocket/branches/0.3.x/backend/allegro.lisp Tue Apr 3 16:22:47 2007 @@ -60,11 +60,13 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) ;; Allegro and OpenMCL socket interfaces bear very strong resemblence ;; whatever you change here, change it also for OpenMCL - (let ((sock (with-mapped-conditions () + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (sock (with-mapped-conditions () (apply #'socket:make-socket (append (list :connect :passive :reuse-address reuseaddress @@ -85,20 +87,20 @@ (defmethod get-local-address ((usocket usocket)) (hbo-to-vector-quad (socket:local-host (socket usocket)))) -(defmethod get-peer-address ((usocket stream-server-usocket)) +(defmethod get-peer-address ((usocket stream-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 stream-server-usocket)) +(defmethod get-peer-port ((usocket stream-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 stream-server-usocket)) +(defmethod get-peer-name ((usocket stream-usocket)) (values (get-peer-address usocket) (get-peer-port usocket))) Modified: usocket/branches/0.3.x/backend/armedbear.lisp ============================================================================== --- usocket/branches/0.3.x/backend/armedbear.lisp (original) +++ usocket/branches/0.3.x/backend/armedbear.lisp Tue Apr 3 16:22:47 2007 @@ -33,9 +33,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((sock-addr (jnew-call ("java.net.InetSocketAddress" + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (sock-addr (jnew-call ("java.net.InetSocketAddress" "java.lang.String" "int") (host-to-hostname host) port)) (sock (jnew-call ("java.net.ServerSocket")))) Modified: usocket/branches/0.3.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.3.x/backend/clisp.lisp (original) +++ usocket/branches/0.3.x/backend/clisp.lisp Tue Apr 3 16:22:47 2007 @@ -51,11 +51,13 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) ;; clisp 2.39 sets SO_REUSEADDRESS to 1 by default; no need to - ;; to explicitly turn it on. - (let ((sock (apply #'socket:socket-server + ;; to explicitly turn it on; unfortunately, there's no way to turn it off... + (declare (ignore reuseaddress reuse-address)) + (let ((sock (apply #'socket:socket-server (append (list port :backlog backlog) (when (ip/= host *wildcard-host*) @@ -87,7 +89,7 @@ (socket:socket-stream-local (socket usocket) nil) (values (dotted-quad-to-vector-quad address) port))) -(defmethod get-peer-name ((usocket usocket)) +(defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) (socket:socket-stream-peer (socket usocket) nil) @@ -96,12 +98,12 @@ (defmethod get-local-address ((usocket usocket)) (nth-value 0 (get-local-name usocket))) -(defmethod get-peer-address ((usocket usocket)) +(defmethod get-peer-address ((usocket stream-usocket)) (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) (nth-value 1 (get-local-name usocket))) -(defmethod get-peer-port ((usocket usocket)) +(defmethod get-peer-port ((usocket stream-usocket)) (nth-value 1 (get-peer-name usocket))) Modified: usocket/branches/0.3.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/cmucl.lisp (original) +++ usocket/branches/0.3.x/backend/cmucl.lisp Tue Apr 3 16:22:47 2007 @@ -72,15 +72,17 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let ((server-sock (apply #'ext:create-inet-listener - (append (list port :stream - :backlog backlog - :reuse-address reuseaddress) - (when (ip/= host *wildcard-host*) - (list :host - (host-to-hbo host))))))) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (server-sock (apply #'ext:create-inet-listener + (append (list port :stream + :backlog backlog + :reuse-address reuseaddress) + (when (ip/= host *wildcard-host*) + (list :host + (host-to-hbo host))))))) (make-stream-server-socket server-sock :element-type element-type))) (defmethod socket-accept ((usocket stream-server-usocket) &key element-type) @@ -110,7 +112,7 @@ (ext:get-socket-host-and-port (socket usocket)) (values (hbo-to-vector-quad address) port))) -(defmethod get-peer-name ((usocket usocket)) +(defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) (ext:get-peer-host-and-port (socket usocket)) @@ -119,13 +121,13 @@ (defmethod get-local-address ((usocket usocket)) (nth-value 0 (get-local-name usocket))) -(defmethod get-peer-address ((usocket usocket)) +(defmethod get-peer-address ((usocket stream-usocket)) (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) (nth-value 1 (get-local-name usocket))) -(defmethod get-peer-port ((usocket usocket)) +(defmethod get-peer-port ((usocket stream-usocket)) (nth-value 1 (get-peer-name usocket))) Modified: usocket/branches/0.3.x/backend/lispworks.lisp ============================================================================== --- usocket/branches/0.3.x/backend/lispworks.lisp (original) +++ usocket/branches/0.3.x/backend/lispworks.lisp Tue Apr 3 16:22:47 2007 @@ -58,9 +58,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'base-char)) - (let* ((comm::*use_so_reuseaddr* reuseaddress) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (comm::*use_so_reuseaddr* reuseaddress) (hostname (host-to-hostname host)) (sock (with-mapped-conditions () #-lispworks4.1 (comm::create-tcp-socket-for-service @@ -94,7 +96,7 @@ (comm:get-socket-address (socket usocket)) (values (hbo-to-vector-quad address) port))) -(defmethod get-peer-name ((usocket usocket)) +(defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) (comm:get-socket-peer-address (socket usocket)) @@ -103,13 +105,13 @@ (defmethod get-local-address ((usocket usocket)) (nth-value 0 (get-local-name usocket))) -(defmethod get-peer-address ((usocket usocket)) +(defmethod get-peer-address ((usocket stream-usocket)) (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) (nth-value 1 (get-local-name usocket))) -(defmethod get-peer-port ((usocket usocket)) +(defmethod get-peer-port ((usocket stream-usocket)) (nth-value 1 (get-peer-name usocket))) (defun get-hosts-by-name (name) Modified: usocket/branches/0.3.x/backend/openmcl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/openmcl.lisp (original) +++ usocket/branches/0.3.x/backend/openmcl.lisp Tue Apr 3 16:22:47 2007 @@ -56,9 +56,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((sock (apply #'openmcl-socket:make-socket + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (sock (apply #'openmcl-socket:make-socket (append (list :connect :passive :reuse-address reuseaddress :local-port port @@ -83,20 +85,20 @@ (defmethod get-local-address ((usocket usocket)) (hbo-to-vector-quad (openmcl-socket:local-host (socket usocket)))) -(defmethod get-peer-address ((usocket usocket)) +(defmethod get-peer-address ((usocket stream-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)) +(defmethod get-peer-port ((usocket stream-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)) +(defmethod get-peer-name ((usocket stream-usocket)) (values (get-peer-address usocket) (get-peer-port usocket))) Modified: usocket/branches/0.3.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/sbcl.lisp (original) +++ usocket/branches/0.3.x/backend/sbcl.lisp Tue Apr 3 16:22:47 2007 @@ -84,9 +84,11 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((ip (host-to-vector-quad host)) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (ip (host-to-vector-quad host)) (sock (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp))) (setf (sb-bsd-sockets:sockopt-reuse-address sock) reuseaddress) @@ -116,19 +118,19 @@ (defmethod get-local-name ((usocket usocket)) (sb-bsd-sockets:socket-name (socket usocket))) -(defmethod get-peer-name ((usocket usocket)) +(defmethod get-peer-name ((usocket stream-usocket)) (sb-bsd-sockets:socket-peername (socket usocket))) (defmethod get-local-address ((usocket usocket)) (nth-value 0 (get-local-name usocket))) -(defmethod get-peer-address ((usocket usocket)) +(defmethod get-peer-address ((usocket stream-usocket)) (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) (nth-value 1 (get-local-name usocket))) -(defmethod get-peer-port ((usocket usocket)) +(defmethod get-peer-port ((usocket stream-usocket)) (nth-value 1 (get-peer-name usocket))) Modified: usocket/branches/0.3.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/scl.lisp (original) +++ usocket/branches/0.3.x/backend/scl.lisp Tue Apr 3 16:22:47 2007 @@ -1,5 +1,5 @@ -;;;; $Id: scl.lisp$ -;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/trunk/backend/scl.lisp $ +;;;; $Id$ +;;;; $URL$ ;;;; See LICENSE for licensing information. @@ -43,15 +43,17 @@ (defun socket-listen (host port &key reuseaddress + (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'character)) - (let* ((host (if (ip= host *wildcard-host*) - 0 - (host-to-hbo host))) - (server-sock (ext:create-inet-listener port :stream - :host host - :reuse-address reuseaddress - :backlog backlog))) + (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) + (host (if (ip= host *wildcard-host*) + 0 + (host-to-hbo host))) + (server-sock (ext:create-inet-listener port :stream + :host host + :reuse-address reuseaddress + :backlog backlog))) (make-stream-server-socket server-sock :element-type element-type))) (defmethod socket-accept ((usocket stream-server-usocket) &key element-type) @@ -82,7 +84,7 @@ (ext:get-socket-host-and-port (socket usocket))) (values (hbo-to-vector-quad address) port))) -(defmethod get-peer-name ((usocket usocket)) +(defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) (with-mapped-conditions (usocket) (ext:get-peer-host-and-port (socket usocket))) @@ -91,13 +93,13 @@ (defmethod get-local-address ((usocket usocket)) (nth-value 0 (get-local-name usocket))) -(defmethod get-peer-address ((usocket usocket)) +(defmethod get-peer-address ((usocket stream-usocket)) (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) (nth-value 1 (get-local-name usocket))) -(defmethod get-peer-port ((usocket usocket)) +(defmethod get-peer-port ((usocket stream-usocket)) (nth-value 1 (get-peer-name usocket))) Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Tue Apr 3 16:22:47 2007 @@ -304,9 +304,11 @@ Returns an object of type `stream-server-usocket'. -`reuseaddress' and `backlog' are advisory parameters for setting socket +`reuse-address' and `backlog' are advisory parameters for setting socket options at creation time. `element-type' is the element type of the -streams to be created by `socket-accept'. +streams to be created by `socket-accept'. `reuseaddress' is supported for +backward compatibility (but deprecated); when both `reuseaddress' and +`reuse-address' have been specified, the latter takes precedence. ") ;; Documentation for the function From ehuelsmann at common-lisp.net Sat Apr 7 21:24:48 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 7 Apr 2007 17:24:48 -0400 (EDT) Subject: [usocket-cvs] r224 - public_html Message-ID: <20070407212448.7790E20016@common-lisp.net> Author: ehuelsmann Date: Sat Apr 7 17:24:46 2007 New Revision: 224 Added: public_html/implementation-comparison.shtml Modified: public_html/index.shtml Log: Add a comparison of supported implementations across libraries with similar goals. Added: public_html/implementation-comparison.shtml ============================================================================== --- (empty file) +++ public_html/implementation-comparison.shtml Sat Apr 7 17:24:46 2007 @@ -0,0 +1,65 @@ + + + + + <!--#include virtual="project-name" --> + + + + + +
+

+
+ +

Supported implementations comparison

+ +

Different projects aim at providing TCP/IP sockets portably +across Common Lisp implementations. The table below summarizes +the state of several of these libraries.

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Implementationtrivial-socketsACL-COMPATs-sysdepsusocket
SBCLyesyesyesyes
CMUCLyesyesyesyes
ArmedBearyesnonoyes
clispyesyesnoyes
Allegroyesnot relevantnoyes
LispWorksyesyesyesyes
OpenMCLyesyesyesyes
ECLnononoyes
Scieneernoyesnoyes
GCLnononono (to come)
Cormannoyesnono (to come)
Supported implementations comparison
+ + +
+ +
+Back to Common-lisp.net. +
+
+ Valid XHTML 1.0 Strict +
+ + Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Apr 7 17:24:46 2007 @@ -48,6 +48,11 @@
  • Scieneer
  • +

    To see how this list relates to the supported implementations in other +socket libraries, see the +Implementation comparison +page.

    +

    Community

    This project has started Januari 2006. There isn't much of a community From ehuelsmann at common-lisp.net Sat Apr 7 21:44:52 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 7 Apr 2007 17:44:52 -0400 (EDT) Subject: [usocket-cvs] r225 - public_html Message-ID: <20070407214452.8234E3A01F@common-lisp.net> Author: ehuelsmann Date: Sat Apr 7 17:44:51 2007 New Revision: 225 Modified: public_html/implementation-comparison.shtml Log: Fix xhtml compatibility. Modified: public_html/implementation-comparison.shtml ============================================================================== --- public_html/implementation-comparison.shtml (original) +++ public_html/implementation-comparison.shtml Sat Apr 7 17:44:51 2007 @@ -21,6 +21,7 @@ + @@ -49,7 +50,7 @@ - +
    Supported implementations comparison
    Implementationtrivial-socketsACL-COMPAT s-sysdepsusocket
    Supported implementations comparison
    From ehuelsmann at common-lisp.net Sat Apr 7 21:46:00 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 7 Apr 2007 17:46:00 -0400 (EDT) Subject: [usocket-cvs] r226 - public_html Message-ID: <20070407214600.670EE3D013@common-lisp.net> Author: ehuelsmann Date: Sat Apr 7 17:45:58 2007 New Revision: 226 Modified: public_html/implementation-comparison.shtml Log: Fix xhtml compatibility, really. Modified: public_html/implementation-comparison.shtml ============================================================================== --- public_html/implementation-comparison.shtml (original) +++ public_html/implementation-comparison.shtml Sat Apr 7 17:45:58 2007 @@ -20,8 +20,8 @@ the state of several of these libraries.

    - + From ehuelsmann at common-lisp.net Sun Apr 8 17:47:13 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sun, 8 Apr 2007 13:47:13 -0400 (EDT) Subject: [usocket-cvs] r227 - public_html Message-ID: <20070408174713.8E6421A09F@common-lisp.net> Author: ehuelsmann Date: Sun Apr 8 13:47:11 2007 New Revision: 227 Modified: public_html/implementation-comparison.shtml Log: Add 'kmrcl' to the implementations comparison. Modified: public_html/implementation-comparison.shtml ============================================================================== --- public_html/implementation-comparison.shtml (original) +++ public_html/implementation-comparison.shtml Sun Apr 8 13:47:11 2007 @@ -23,30 +23,30 @@ - + - + - + - + - + - + - + - + - + - + - + - + From ehuelsmann at common-lisp.net Sun Apr 8 21:56:25 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sun, 8 Apr 2007 17:56:25 -0400 (EDT) Subject: [usocket-cvs] r228 - in usocket/trunk: . test Message-ID: <20070408215625.9B8E43A01F@common-lisp.net> Author: ehuelsmann Date: Sun Apr 8 17:56:25 2007 New Revision: 228 Modified: usocket/trunk/README usocket/trunk/test/test-usocket.lisp Log: Document tests a bit more and move config section to the beginning of the file. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Sun Apr 8 17:56:25 2007 @@ -8,6 +8,7 @@ * Introduction * Non-support for :external-format * API definition + * Test suite * Known problems Introduction @@ -112,6 +113,20 @@ - unkown-condition +Test suite +========== + +The test suite unfortunately isn't mature enough yet to run without +some manual configuration. Several elements are required which are +hard to programatically detect. Please adjust the test file before +running the tests, for these variables: + +- +non-existing-host+: The stringified IP address of a host on the + same subnet. No physical host may be present. +- +unused-local-port+: A port number of a port not in use on the + machine the tests run on. +- +common-lisp-net+: A vector with 4 integer elements which make up + an IP address. This must be the IP "common-lisp.net" resolves to. Known problems Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Sun Apr 8 17:56:25 2007 @@ -5,6 +5,15 @@ (in-package :usocket-test) +;; The parameters below may need adjustments to match the system +;; the tests are run on. +(defparameter +non-existing-host+ "192.168.1.1") +(defparameter +unused-local-port+ 15213) +(defparameter *soc1* (usocket::make-stream-socket :socket :my-socket + :stream :my-stream)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defparameter +common-lisp-net+ #(80 68 86 115))) ;; common-lisp.net IP + (defmacro with-caught-conditions ((expect throw) &body body) `(catch 'caught-error (handler-case @@ -34,13 +43,6 @@ (describe c) c)))))) -(defparameter +non-existing-host+ "192.168.1.1") -(defparameter +unused-local-port+ 15213) -(defparameter *soc1* (usocket::make-stream-socket :socket :my-socket - :stream :my-stream)) -(eval-when (:compile-toplevel :load-toplevel :execute) - (defparameter +common-lisp-net+ #(80 68 86 115))) ;; common-lisp.net IP - (deftest make-socket.1 (usocket:socket *soc1*) :my-socket) (deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream)
    Supported implementations comparison
    Implementationtrivial-socketsACL-COMPAT s-sysdepsusocket
    Supported implementations comparison
    Implementationtrivial-socketsACL-COMPATs-sysdepsusocket
    s-sysdepsusocketkmrcl
    SBCLyesyesyesyes
    SBCLyesyesyesyesyes
    CMUCLyesyesyesyes
    CMUCLyesyesyesyesyes
    ArmedBearyesnonoyes
    ArmedBearyesnonoyesno
    clispyesyesnoyes
    clispyesyesnoyesyes
    Allegroyesnot relevantnoyes
    Allegroyesnot relevantnoyesyes
    LispWorksyesyesyesyes
    LispWorksyesyesyesyesyes
    OpenMCLyesyesyesyes
    OpenMCLyesyesyesyesyes
    ECLnononoyes
    ECLnononoyesno
    Scieneernoyesnoyes
    Scieneernoyesnoyesno
    GCLnononono (to come)
    GCLnononono (to come)no
    Cormannoyesnono (to come)
    Cormannoyesnono (to come)no