March 2007 - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

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

24 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 24 Mar '07

24 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

[usocket-cvs] r218 - usocket/branches/0.3.x
by ehuelsmann＠common-lisp.net 03 Mar '07

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:54:32 2007 New Revision: 218 Modified: usocket/branches/0.3.x/usocket.asd Log: Increase version number. Modified: usocket/branches/0.3.x/usocket.asd ============================================================================== --- usocket/branches/0.3.x/usocket.asd (original) +++ usocket/branches/0.3.x/usocket.asd Sat Mar 3 18:54:32 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.2-dev" + :version "0.3.3-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r217 - in public_html: . releases
by ehuelsmann＠common-lisp.net 03 Mar '07

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:54:08 2007 New Revision: 217 Added: public_html/releases/usocket-0.3.2.tar.gz (contents, props changed) public_html/releases/usocket-0.3.2.tar.gz.asc Modified: public_html/index.shtml Log: Publish 0.3.2. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Mar 3 18:54:08 2007 @@ -325,6 +325,11 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Mar 04, 2007</td> + <td>0.3.2</td> + <td>Fixes for many backends related to closing sockets. + LispWorks fix for broken server sockets. + API guarantee adjustments in preparation of porting Drakma.</td></tr> <tr><td>Feb 28, 2007</td> <td>0.3.1</td> <td>fixed with-server-socket; prevent creation of invalid sockets; Added: public_html/releases/usocket-0.3.2.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.3.2.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.3.2.tar.gz.asc Sat Mar 3 18:54:08 2007 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.6 (GNU/Linux) + +iD8DBQBF6hepi5O0Epaz9TkRAuUPAJ0WV5QCkbRLvdGK77n8BwR4rGE7WgCeKNps +3TQkSz7BL22g1LpVqb7MqFI= +=/EmS +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r216 - usocket/tags/0.3.2
by ehuelsmann＠common-lisp.net 03 Mar '07

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:48:53 2007 New Revision: 216 Added: usocket/tags/0.3.2/ - copied from r215, usocket/branches/0.3.x/ Modified: usocket/tags/0.3.2/usocket.asd Log: Create 0.3.2 tag. Modified: usocket/tags/0.3.2/usocket.asd ============================================================================== --- usocket/branches/0.3.x/usocket.asd (original) +++ usocket/tags/0.3.2/usocket.asd Sat Mar 3 18:48:53 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.2-dev" + :version "0.3.2" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

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

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:41:09 2007 New Revision: 215 Modified: usocket/branches/0.3.x/backend/lispworks.lisp usocket/branches/0.3.x/usocket.lisp Log: Merge r212:214 from trunk (LispWorks server sockets fixes). 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 Sat Mar 3 18:41:09 2007 @@ -61,9 +61,10 @@ (backlog 5) (element-type 'base-char)) (let* ((comm::*use_so_reuseaddr* reuseaddress) + (hostname (host-to-hostname host)) (sock (with-mapped-conditions () #-lispworks4.1 (comm::create-tcp-socket-for-service - port :address host :backlog backlog) + port :address hostname :backlog backlog) #+lispworks4.1 (comm::create-tcp-socket-for-service port)))) (make-stream-server-socket sock :element-type element-type))) Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Sat Mar 3 18:41:09 2007 @@ -83,6 +83,8 @@ The returned value is a subtype of `stream-server-usocket'. " + (unless socket + (error 'invalid-socket-error)) (make-instance 'stream-server-usocket :socket socket :element-type element-type))

1 0

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

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:36:21 2007 New Revision: 214 Modified: usocket/trunk/backend/lispworks.lisp Log: Fix LispWorks server sockets support. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Sat Mar 3 18:36:21 2007 @@ -61,9 +61,10 @@ (backlog 5) (element-type 'base-char)) (let* ((comm::*use_so_reuseaddr* reuseaddress) + (hostname (host-to-hostname host)) (sock (with-mapped-conditions () #-lispworks4.1 (comm::create-tcp-socket-for-service - port :address host :backlog backlog) + port :address hostname :backlog backlog) #+lispworks4.1 (comm::create-tcp-socket-for-service port)))) (make-stream-server-socket sock :element-type element-type)))

1 0

[usocket-cvs] r213 - usocket/trunk
by ehuelsmann＠common-lisp.net 03 Mar '07

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:35:49 2007 New Revision: 213 Modified: usocket/trunk/usocket.lisp Log: Raise an error when creating an invalid socket. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sat Mar 3 18:35:49 2007 @@ -83,6 +83,8 @@ The returned value is a subtype of `stream-server-usocket'. " + (unless socket + (error 'invalid-socket-error)) (make-instance 'stream-server-usocket :socket socket :element-type element-type))

1 0

[usocket-cvs] r212 - usocket/branches/0.3.x
by ehuelsmann＠common-lisp.net 03 Mar '07

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 18:03:58 2007 New Revision: 212 Modified: usocket/branches/0.3.x/usocket.lisp Log: Merge r211 from trunk (documentation and API requirements changes). Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Sat Mar 3 18:03:58 2007 @@ -17,18 +17,26 @@ :accessor socket :documentation "Implementation specific socket object instance.")) (:documentation -"The main socket class.")) +"The main socket class. + +Sockets should be closed using the `socket-close' method.")) (defclass stream-usocket (usocket) ((stream :initarg :stream :accessor socket-stream - :documentation "Stream instance associated with the socket. - -Iff an external-format was passed to `socket-connect' or `socket-listen' -the stream is a flexi-stream. Otherwise the stream is implementation -specific.")) - (:documentation "")) + :documentation "Stream instance associated with the socket." +;; +;;Iff an external-format was passed to `socket-connect' or `socket-listen' +;;the stream is a flexi-stream. Otherwise the stream is implementation +;;specific." +)) + (:documentation +"Stream socket class. + +Contrary to other sockets, these sockets may be closed either +with the `socket-close' method or by closing the associated stream +(which can be retrieved with the `socket-stream' accessor).")) (defclass stream-server-usocket (usocket) ((element-type @@ -54,7 +62,11 @@ (defun make-stream-socket (&key socket stream) "Create a usocket socket type from implementation specific socket -and stream objects." +and stream objects. + +Sockets returned should be closed using the `socket-close' method or +by closing the stream associated with the socket. +" (unless socket (error 'invalid-socket-error)) (unless stream @@ -69,7 +81,8 @@ "Create a usocket-server socket type from an implementation-specific socket object. -The returned value is a subtype of `stream-server-usocket'." +The returned value is a subtype of `stream-server-usocket'. +" (make-instance 'stream-server-usocket :socket socket :element-type element-type)) @@ -276,7 +289,7 @@ ;; Documentation for the function ;; -;; (defun SOCKET-LISTEN (host port &key reuseaddress backlog) ..) +;; (defun SOCKET-LISTEN (host port &key reuseaddress backlog element-type) ..) ;;###FIXME: extend with default-element-type (setf (documentation 'socket-listen 'function) "Bind to interface `host' on `port'. `host' should be the

1 0

[usocket-cvs] r211 - usocket/trunk
by ehuelsmann＠common-lisp.net 03 Mar '07

03 Mar '07

Author: ehuelsmann Date: Sat Mar 3 17:39:39 2007 New Revision: 211 Modified: usocket/trunk/usocket.lisp Log: Change interface slightly (to prepare to port Drakma) and add documentation. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sat Mar 3 17:39:39 2007 @@ -17,18 +17,26 @@ :accessor socket :documentation "Implementation specific socket object instance.")) (:documentation -"The main socket class.")) +"The main socket class. + +Sockets should be closed using the `socket-close' method.")) (defclass stream-usocket (usocket) ((stream :initarg :stream :accessor socket-stream - :documentation "Stream instance associated with the socket. - -Iff an external-format was passed to `socket-connect' or `socket-listen' -the stream is a flexi-stream. Otherwise the stream is implementation -specific.")) - (:documentation "")) + :documentation "Stream instance associated with the socket." +;; +;;Iff an external-format was passed to `socket-connect' or `socket-listen' +;;the stream is a flexi-stream. Otherwise the stream is implementation +;;specific." +)) + (:documentation +"Stream socket class. + +Contrary to other sockets, these sockets may be closed either +with the `socket-close' method or by closing the associated stream +(which can be retrieved with the `socket-stream' accessor).")) (defclass stream-server-usocket (usocket) ((element-type @@ -54,7 +62,11 @@ (defun make-stream-socket (&key socket stream) "Create a usocket socket type from implementation specific socket -and stream objects." +and stream objects. + +Sockets returned should be closed using the `socket-close' method or +by closing the stream associated with the socket. +" (unless socket (error 'invalid-socket-error)) (unless stream @@ -69,7 +81,8 @@ "Create a usocket-server socket type from an implementation-specific socket object. -The returned value is a subtype of `stream-server-usocket'." +The returned value is a subtype of `stream-server-usocket'. +" (make-instance 'stream-server-usocket :socket socket :element-type element-type)) @@ -276,7 +289,7 @@ ;; Documentation for the function ;; -;; (defun SOCKET-LISTEN (host port &key reuseaddress backlog) ..) +;; (defun SOCKET-LISTEN (host port &key reuseaddress backlog element-type) ..) ;;###FIXME: extend with default-element-type (setf (documentation 'socket-listen 'function) "Bind to interface `host' on `port'. `host' should be the

1 0