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 @@ + + + +
+Different projects aim at providing TCP/IP sockets portably +across Common Lisp implementations. The table below summarizes +the state of several of these libraries.
+ +Implementation | trivial-sockets | ACL-COMPAT | +s-sysdeps | usocket |
---|---|---|---|---|
SBCL | yes | yes | yes | yes | +
CMUCL | yes | yes | yes | yes | +
ArmedBear | yes | no | no | yes | +
clisp | yes | yes | no | yes | +
Allegro | yes | not relevant | no | yes | +
LispWorks | yes | yes | yes | yes | +
OpenMCL | yes | yes | yes | yes | +
ECL | no | no | no | yes | +
Scieneer | no | yes | no | yes | +
GCL | no | no | no | no (to come) | +
Corman | no | yes | no | no (to come) | +
To see how this list relates to the supported implementations in other +socket libraries, see the +Implementation comparison +page.
+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 @@
Implementation | trivial-sockets | ACL-COMPAT | s-sysdeps | usocket |
---|
Implementation | trivial-sockets | ACL-COMPAT | s-sysdeps | usocket | |
---|---|---|---|---|---|
Implementation | trivial-sockets | ACL-COMPAT | -s-sysdeps | usocket | s-sysdeps | usocket | kmrcl | -
SBCL | yes | yes | yes | yes | +|
SBCL | yes | yes | yes | yes | yes |
CMUCL | yes | yes | yes | yes | +|
CMUCL | yes | yes | yes | yes | yes |
ArmedBear | yes | no | no | yes | +|
ArmedBear | yes | no | no | yes | no |
clisp | yes | yes | no | yes | +|
clisp | yes | yes | no | yes | yes |
Allegro | yes | not relevant | no | yes | +|
Allegro | yes | not relevant | no | yes | yes |
LispWorks | yes | yes | yes | yes | +|
LispWorks | yes | yes | yes | yes | yes |
OpenMCL | yes | yes | yes | yes | +|
OpenMCL | yes | yes | yes | yes | yes |
ECL | no | no | no | yes | +|
ECL | no | no | no | yes | no |
Scieneer | no | yes | no | yes | +|
Scieneer | no | yes | no | yes | no |
GCL | no | no | no | no (to come) | +|
GCL | no | no | no | no (to come) | no |
Corman | no | yes | no | no (to come) | +|
Corman | no | yes | no | no (to come) | no |