usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r228 - in usocket/trunk: . test
by ehuelsmann＠common-lisp.net 08 Apr '07

08 Apr '07

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)

1 0

[usocket-cvs] r227 - public_html
by ehuelsmann＠common-lisp.net 08 Apr '07

08 Apr '07

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 @@ <caption>Supported implementations comparison</caption> <thead> <tr><th>Implementation</th><th>trivial-sockets</th><th>ACL-COMPAT</th> - <th>s-sysdeps</th><th>usocket</th></tr> + <th>s-sysdeps</th><th>usocket</th><th>kmrcl</th></tr> </thead> <tbody> -<tr><th>SBCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr><th>SBCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr><th>CMUCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr><th>CMUCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr style="background-color:#eef"><th>ArmedBear</th><td>yes</td><td>no</td><td>no</td><td>yes</td> +<tr style="background-color:#eef"><th>ArmedBear</th><td>yes</td><td>no</td><td>no</td><td>yes</td><td>no</td> </tr> -<tr><th>clisp</th><td>yes</td><td>yes</td><td>no</td><td>yes</td> +<tr><th>clisp</th><td>yes</td><td>yes</td><td>no</td><td>yes</td><td>yes</td> </tr> -<tr><th>Allegro</th><td>yes</td><td>not relevant</td><td>no</td><td>yes</td> +<tr><th>Allegro</th><td>yes</td><td>not relevant</td><td>no</td><td>yes</td><td>yes</td> </tr> -<tr style="background-color:#eef"><th>LispWorks</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr style="background-color:#eef"><th>LispWorks</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr><th>OpenMCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr><th>OpenMCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr><th>ECL</th><td>no</td><td>no</td><td>no</td><td>yes</td> +<tr><th>ECL</th><td>no</td><td>no</td><td>no</td><td>yes</td><td>no</td> </tr> -<tr style="background-color:#eef"><th>Scieneer</th><td>no</td><td>yes</td><td>no</td><td>yes</td> +<tr style="background-color:#eef"><th>Scieneer</th><td>no</td><td>yes</td><td>no</td><td>yes</td><td>no</td> </tr> -<tr><th>GCL</th><td>no</td><td>no</td><td>no</td><td>no (to come)</td> +<tr><th>GCL</th><td>no</td><td>no</td><td>no</td><td>no (to come)</td><td>no</td> </tr> -<tr><th>Corman</th><td>no</td><td>yes</td><td>no</td><td>no (to come)</td> +<tr><th>Corman</th><td>no</td><td>yes</td><td>no</td><td>no (to come)</td><td>no</td> </tr> </tbody>

1 0

[usocket-cvs] r226 - public_html
by ehuelsmann＠common-lisp.net 07 Apr '07

07 Apr '07

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.</p> <table> -<thead> <caption>Supported implementations comparison</caption> +<thead> <tr><th>Implementation</th><th>trivial-sockets</th><th>ACL-COMPAT</th> <th>s-sysdeps</th><th>usocket</th></tr> </thead>

1 0

[usocket-cvs] r225 - public_html
by ehuelsmann＠common-lisp.net 07 Apr '07

07 Apr '07

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 @@ <table> <thead> +<caption>Supported implementations comparison</caption> <tr><th>Implementation</th><th>trivial-sockets</th><th>ACL-COMPAT</th> <th>s-sysdeps</th><th>usocket</th></tr> </thead> @@ -49,7 +50,7 @@ </tr> </tbody> -<caption>Supported implementations comparison</caption> + </table>

1 0

[usocket-cvs] r224 - public_html
by ehuelsmann＠common-lisp.net 07 Apr '07

07 Apr '07

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 @@ +<?xml version="1.0"?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> +<head> + <title></title> + <link rel="stylesheet" type="text/css" href="style.css"/> + <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> +</head> + +<body> + <div class="header"> + <h1></h1> + </div> + +<h2>Supported implementations comparison</h2> + +<p>Different projects aim at providing TCP/IP sockets portably +across Common Lisp implementations. The table below summarizes +the state of several of these libraries.</p> + +<table> +<thead> +<tr><th>Implementation</th><th>trivial-sockets</th><th>ACL-COMPAT</th> + <th>s-sysdeps</th><th>usocket</th></tr> +</thead> +<tbody> +<tr><th>SBCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +</tr> +<tr><th>CMUCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +</tr> +<tr style="background-color:#eef"><th>ArmedBear</th><td>yes</td><td>no</td><td>no</td><td>yes</td> +</tr> +<tr><th>clisp</th><td>yes</td><td>yes</td><td>no</td><td>yes</td> +</tr> +<tr><th>Allegro</th><td>yes</td><td>not relevant</td><td>no</td><td>yes</td> +</tr> +<tr style="background-color:#eef"><th>LispWorks</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +</tr> +<tr><th>OpenMCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +</tr> +<tr><th>ECL</th><td>no</td><td>no</td><td>no</td><td>yes</td> +</tr> +<tr style="background-color:#eef"><th>Scieneer</th><td>no</td><td>yes</td><td>no</td><td>yes</td> +</tr> +<tr><th>GCL</th><td>no</td><td>no</td><td>no</td><td>no (to come)</td> +</tr> +<tr><th>Corman</th><td>no</td><td>yes</td><td>no</td><td>no (to come)</td> +</tr> +</tbody> + +<caption>Supported implementations comparison</caption> +</table> + + +<hr /> + +<div style="float:left;font-size:x-small;font-weight:bold"> +Back to <a href="http://common-lisp.net/">Common-lisp.net</a>. +</div> + <div class="check" style="float:right"> + <a href="http://validator.w3.org/check/referer">Valid XHTML 1.0 Strict</a> + </div> +</body> +</html> 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 @@ <li>Scieneer</li> </ul> +<p>To see how this list relates to the supported implementations in other +socket libraries, see the +<a href="implementation-comparison.shtml">Implementation comparison</a> +page.</p> + <h2>Community</h2> <p>This project has started Januari 2006. There isn't much of a community

1 0

[usocket-cvs] r223 - in usocket/branches/0.3.x: . backend
by ehuelsmann＠common-lisp.net 03 Apr '07

03 Apr '07

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

1 0

[usocket-cvs] r222 - in usocket/trunk: . backend
by ehuelsmann＠common-lisp.net 03 Apr '07

03 Apr '07

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

1 0

[usocket-cvs] r221 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 03 Apr '07

03 Apr '07

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.

1 0

[usocket-cvs] r220 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 25 Mar '07

25 Mar '07

Author: ehuelsmann Date: Sat Mar 24 18:18:41 2007 New Revision: 220 Modified: usocket/trunk/backend/allegro.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 Log: Specialize the peer info functions on the only socket which has a peer. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Sat Mar 24 18:18:41 2007 @@ -85,20 +85,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/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Sat Mar 24 18:18:41 2007 @@ -87,7 +87,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 +96,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/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sat Mar 24 18:18:41 2007 @@ -110,7 +110,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 +119,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/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Sat Mar 24 18:18:41 2007 @@ -94,7 +94,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 +103,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/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat Mar 24 18:18:41 2007 @@ -83,20 +83,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/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sat Mar 24 18:18:41 2007 @@ -116,19 +116,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/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Sat Mar 24 18:18:41 2007 @@ -82,7 +82,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 +91,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)))

1 0

[usocket-cvs] r219 - developer-resources
by ehuelsmann＠common-lisp.net 25 Mar '07

25 Mar '07

Author: ehuelsmann Date: Sat Mar 24 18:17:40 2007 New Revision: 219 Added: developer-resources/ developer-resources/release.sh (contents, props changed) Log: Save release script. Added: developer-resources/release.sh ============================================================================== --- (empty file) +++ developer-resources/release.sh Sat Mar 24 18:17:40 2007 @@ -0,0 +1,35 @@ +#!/bin/bash + +# arguments: + +project_url=$1 +branch_name=$2 +tag_name=$3 + +echo "Releasing $tag_name from current head of +$project_url/branches/$branch_name." + +rm -rf /tmp/usocket-{$tag_name*,$branch_name,public_html} 2>&1 >/dev/null + +svn co $project_url/branches/$branch_name /tmp/usocket-$tag_name-tag +cp -rp /tmp/usocket-$tag_name-tag /tmp/usocket-$branch_name +svn co `dirname $project_url`/public_html /tmp/usocket-public_html +vi /tmp/usocket-$tag_name-tag/usocket.asd +svn di /tmp/usocket-$tag_name-tag +echo "Copy this diff into tag '$tag_name'?" +read answer + +if [ "$answer" != "yes" ]; then exit 1; fi +svn cp /tmp/usocket-$tag_name-tag $project_url/tags/$tag_name -m "Create $tag_name tag." +if [ ! $? ]; then exit 1; fi +rm -rf /tmp/usocket-$tag_name* +svn export $project_url/tags/$tag_name /tmp/usocket-$tag_name + +(cd /tmp ; tar czf usocket-$tag_name.tar.gz usocket-$tag_name/) +gpg -ba /tmp/usocket-$tag_name.tar.gz +mv /tmp/usocket-$tag_name.tar.gz* /tmp/usocket-public_html/releases +svn add /tmp/usocket-public_html/releases/usocket-$tag_name.tar.gz* + +vi /tmp/usocket-$branch_name/usocket.asd +vi /tmp/usocket-public_html/index.shtml +

1 0

← Newer
1
...
45
46
47
48
49
50
51
...
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