usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

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

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

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

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

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

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

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

04 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

[usocket-cvs] r210 - in usocket: branches/0.2.4 tags/0.2.4
by ehuelsmann＠common-lisp.net 02 Mar '07

02 Mar '07

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).

1 0

[usocket-cvs] r209 - usocket/branches/0.3.x/backend
by ehuelsmann＠common-lisp.net 02 Mar '07

02 Mar '07

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)

1 0

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