From ehuelsmann at common-lisp.net Fri Mar 2 21:25:13 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Fri, 2 Mar 2007 16:25:13 -0500 (EST) Subject: [usocket-cvs] r207 - usocket/trunk/backend Message-ID: <20070302212513.0A86A751A6@common-lisp.net> Author: ehuelsmann Date: Fri Mar 2 16:25:12 2007 New Revision: 207 Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/backend/armedbear.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/openmcl.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/backend/scl.lisp Log: Fix closing of (stream) sockets (and comment). Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Fri Mar 2 16:25:12 2007 @@ -50,6 +50,9 @@ :format (to-format element-type)))) (make-stream-socket :socket socket :stream socket))) + +;; One socket close method is sufficient, +;; because socket-streams are also sockets. (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (usocket) Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Mar 2 16:25:12 2007 @@ -66,6 +66,12 @@ (with-mapped-conditions (usocket) (ext:socket-close (socket usocket)))) +;; Socket streams are different objects than +;; socket streams. Closing the stream flushes +;; its buffers *and* closes the socket. +(defmethod socket-close ((usocket stream-usocket)) + (with-mapped-conditions (usocket) + (close (socket-stream usocket)))) (defmethod get-local-address ((usocket usocket)) (dotted-quad-to-vector-quad (ext:socket-local-address (socket usocket)))) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Fri Mar 2 16:25:12 2007 @@ -70,6 +70,9 @@ (make-stream-socket :socket stream :stream stream))) +;; Only one close method required: +;; sockets and their associated streams +;; are the same object (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (usocket) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Fri Mar 2 16:25:12 2007 @@ -76,11 +76,14 @@ (element-type usocket))))) (make-stream-socket :socket sock :stream stream))) +;; Sockets and their streams are different objects +;; close the stream in order to make sure buffers +;; are correctly flushed and the socket closed. (defmethod socket-close ((usocket stream-usocket)) "Close socket." (close (socket-stream usocket))) -(defmethod socket-close ((usocket stream-server-usocket)) +(defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (comm::close-socket (socket usocket)))) Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Mar 2 16:25:12 2007 @@ -73,6 +73,9 @@ (let ((sock (openmcl-socket:accept-connection (socket usocket)))) (make-stream-socket :socket sock :stream sock))) +;; One close method is sufficient because sockets +;; and their associated objects are represented +;; by the same object. (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (close (socket usocket)))) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Mar 2 16:25:12 2007 @@ -102,10 +102,17 @@ :element-type (or element-type (element-type socket)))))) +;; Sockets and their associated streams are modelled as +;; different objects. Be sure to close the stream (which +;; closes the socket too) when closing a stream-socket. (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (sb-bsd-sockets:socket-close (socket usocket)))) +(defmethod socket-close ((usocket stream-usocket)) + (with-mapped-conditions (usocket) + (close (socket-stream usocket)))) + (defmethod get-local-name ((usocket usocket)) (sb-bsd-sockets:socket-name (socket usocket))) Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Fri Mar 2 16:25:12 2007 @@ -62,11 +62,20 @@ :buffering :full))) (make-stream-socket :socket sock :stream stream))) +;; Sockets and their associated streams are modelled as +;; different objects. Be sure to close the socket stream +;; when closing stream-sockets; it makes sure buffers +;; are flushed and the socket is closed correctly afterwards. (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (usocket) (ext:close-socket (socket usocket)))) +(defmethod socket-close ((usocket stream-usocket)) + "Close socket." + (with-mapped-conditions (usocket) + (close (socket-stream usocket)))) + (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) (with-mapped-conditions (usocket) From ehuelsmann at common-lisp.net Fri Mar 2 21:58:18 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Fri, 2 Mar 2007 16:58:18 -0500 (EST) Subject: [usocket-cvs] r208 - usocket/trunk/backend Message-ID: <20070302215818.287BC742B7@common-lisp.net> Author: ehuelsmann Date: Fri Mar 2 16:58:17 2007 New Revision: 208 Modified: usocket/trunk/backend/cmucl.lisp Log: Fix closing of (stream) sockets (and comment); followup to r207. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Mar 2 16:58:17 2007 @@ -91,11 +91,19 @@ :buffering :full))) (make-stream-socket :socket sock :stream stream))) -(defmethod socket-close ((usocket usocket)) +;; Sockets and socket streams are represented +;; by different objects. Be sure to close the +;; socket stream when closing a stream socket. +(defmethod socket-close ((usocket stream-usocket)) "Close socket." (with-mapped-conditions (usocket) (close (socket-stream usocket)))) +(defmethod socket-close ((usocket usocket)) + "Close socket." + (with-mapped-conditions (usocket) + (ext:close-socket (socket usocket)))) + (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) From ehuelsmann at common-lisp.net Fri Mar 2 22:08:15 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Fri, 2 Mar 2007 17:08:15 -0500 (EST) Subject: [usocket-cvs] r209 - usocket/branches/0.3.x/backend Message-ID: <20070302220815.47BE861051@common-lisp.net> Author: ehuelsmann Date: Fri Mar 2 17:08:14 2007 New Revision: 209 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 Log: Merge r206:208 from trunk: add comments and fix (stream) socket closing. 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 Fri Mar 2 17:08:14 2007 @@ -50,6 +50,9 @@ :format (to-format element-type)))) (make-stream-socket :socket socket :stream socket))) + +;; One socket close method is sufficient, +;; because socket-streams are also sockets. (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (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 Fri Mar 2 17:08:14 2007 @@ -66,6 +66,12 @@ (with-mapped-conditions (usocket) (ext:socket-close (socket usocket)))) +;; Socket streams are different objects than +;; socket streams. Closing the stream flushes +;; its buffers *and* closes the socket. +(defmethod socket-close ((usocket stream-usocket)) + (with-mapped-conditions (usocket) + (close (socket-stream usocket)))) (defmethod get-local-address ((usocket usocket)) (dotted-quad-to-vector-quad (ext:socket-local-address (socket usocket)))) 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 Fri Mar 2 17:08:14 2007 @@ -70,6 +70,9 @@ (make-stream-socket :socket stream :stream stream))) +;; Only one close method required: +;; sockets and their associated streams +;; are the same object (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (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 Fri Mar 2 17:08:14 2007 @@ -91,11 +91,19 @@ :buffering :full))) (make-stream-socket :socket sock :stream stream))) -(defmethod socket-close ((usocket usocket)) +;; Sockets and socket streams are represented +;; by different objects. Be sure to close the +;; socket stream when closing a stream socket. +(defmethod socket-close ((usocket stream-usocket)) "Close socket." (with-mapped-conditions (usocket) (close (socket-stream usocket)))) +(defmethod socket-close ((usocket usocket)) + "Close socket." + (with-mapped-conditions (usocket) + (ext:close-socket (socket usocket)))) + (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) 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 Fri Mar 2 17:08:14 2007 @@ -76,11 +76,14 @@ (element-type usocket))))) (make-stream-socket :socket sock :stream stream))) +;; Sockets and their streams are different objects +;; close the stream in order to make sure buffers +;; are correctly flushed and the socket closed. (defmethod socket-close ((usocket stream-usocket)) "Close socket." (close (socket-stream usocket))) -(defmethod socket-close ((usocket stream-server-usocket)) +(defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (comm::close-socket (socket usocket)))) 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 Fri Mar 2 17:08:14 2007 @@ -73,6 +73,9 @@ (let ((sock (openmcl-socket:accept-connection (socket usocket)))) (make-stream-socket :socket sock :stream sock))) +;; One close method is sufficient because sockets +;; and their associated objects are represented +;; by the same object. (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (close (socket 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 Fri Mar 2 17:08:14 2007 @@ -102,10 +102,17 @@ :element-type (or element-type (element-type socket)))))) +;; Sockets and their associated streams are modelled as +;; different objects. Be sure to close the stream (which +;; closes the socket too) when closing a stream-socket. (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (sb-bsd-sockets:socket-close (socket usocket)))) +(defmethod socket-close ((usocket stream-usocket)) + (with-mapped-conditions (usocket) + (close (socket-stream usocket)))) + (defmethod get-local-name ((usocket usocket)) (sb-bsd-sockets:socket-name (socket 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 Fri Mar 2 17:08:14 2007 @@ -62,11 +62,20 @@ :buffering :full))) (make-stream-socket :socket sock :stream stream))) +;; Sockets and their associated streams are modelled as +;; different objects. Be sure to close the socket stream +;; when closing stream-sockets; it makes sure buffers +;; are flushed and the socket is closed correctly afterwards. (defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (usocket) (ext:close-socket (socket usocket)))) +(defmethod socket-close ((usocket stream-usocket)) + "Close socket." + (with-mapped-conditions (usocket) + (close (socket-stream usocket)))) + (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) (with-mapped-conditions (usocket) From ehuelsmann at common-lisp.net Fri Mar 2 22:11:06 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Fri, 2 Mar 2007 17:11:06 -0500 (EST) Subject: [usocket-cvs] r210 - in usocket: branches/0.2.4 tags/0.2.4 Message-ID: <20070302221106.D21FC2B05E@common-lisp.net> Author: ehuelsmann Date: Fri Mar 2 17:11:06 2007 New Revision: 210 Added: usocket/tags/0.2.4/ - copied from r199, usocket/branches/0.2.4/ Removed: usocket/branches/0.2.4/ Log: Move 0.2.4 tag into tags directory (from branches). From ehuelsmann at common-lisp.net Sat Mar 3 22:39:39 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 17:39:39 -0500 (EST) Subject: [usocket-cvs] r211 - usocket/trunk Message-ID: <20070303223939.A45FD586E7@common-lisp.net> 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 From ehuelsmann at common-lisp.net Sat Mar 3 23:04:01 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:04:01 -0500 (EST) Subject: [usocket-cvs] r212 - usocket/branches/0.3.x Message-ID: <20070303230401.44A0E59085@common-lisp.net> 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 From ehuelsmann at common-lisp.net Sat Mar 3 23:35:50 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:35:50 -0500 (EST) Subject: [usocket-cvs] r213 - usocket/trunk Message-ID: <20070303233550.E84453C00F@common-lisp.net> 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)) From ehuelsmann at common-lisp.net Sat Mar 3 23:36:23 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:36:23 -0500 (EST) Subject: [usocket-cvs] r214 - usocket/trunk/backend Message-ID: <20070303233623.DBFC53C017@common-lisp.net> 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))) From ehuelsmann at common-lisp.net Sat Mar 3 23:41:09 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:41:09 -0500 (EST) Subject: [usocket-cvs] r215 - in usocket/branches/0.3.x: . backend Message-ID: <20070303234109.A04EC3C047@common-lisp.net> 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)) From ehuelsmann at common-lisp.net Sat Mar 3 23:48:53 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:48:53 -0500 (EST) Subject: [usocket-cvs] r216 - usocket/tags/0.3.2 Message-ID: <20070303234853.E512B7D198@common-lisp.net> 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 From ehuelsmann at common-lisp.net Sat Mar 3 23:54:10 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:54:10 -0500 (EST) Subject: [usocket-cvs] r217 - in public_html: . releases Message-ID: <20070303235410.7335B59091@common-lisp.net> 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 @@ + + +
Release history
DateReleaseSummary
Mar 04, 20070.3.2Fixes for many backends related to closing sockets. + LispWorks fix for broken server sockets. + API guarantee adjustments in preparation of porting Drakma.
Feb 28, 2007 0.3.1 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----- From ehuelsmann at common-lisp.net Sat Mar 3 23:54:32 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 3 Mar 2007 18:54:32 -0500 (EST) Subject: [usocket-cvs] r218 - usocket/branches/0.3.x Message-ID: <20070303235432.CD1E35B068@common-lisp.net> 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 From ehuelsmann at common-lisp.net Sat Mar 24 23:17:40 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 24 Mar 2007 18:17:40 -0500 (EST) Subject: [usocket-cvs] r219 - developer-resources Message-ID: <20070324231740.9022E52009@common-lisp.net> 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 + From ehuelsmann at common-lisp.net Sat Mar 24 23:18:41 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 24 Mar 2007 18:18:41 -0500 (EST) Subject: [usocket-cvs] r220 - usocket/trunk/backend Message-ID: <20070324231841.BB9FB52009@common-lisp.net> 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)))