usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

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

02 Mar '07

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)

1 0

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

02 Mar '07

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)

1 0

[usocket-cvs] r206 - usocket/branches/0.3.x
by ehuelsmann＠common-lisp.net 28 Feb '07

28 Feb '07

Author: ehuelsmann Date: Wed Feb 28 15:21:06 2007 New Revision: 206 Modified: usocket/branches/0.3.x/usocket.asd Log: Increment 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 Wed Feb 28 15:21:06 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.1-dev" + :version "0.3.2-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r205 - in public_html: . releases
by ehuelsmann＠common-lisp.net 28 Feb '07

28 Feb '07

Author: ehuelsmann Date: Wed Feb 28 15:19:40 2007 New Revision: 205 Added: public_html/releases/usocket-0.3.1.tar.gz (contents, props changed) public_html/releases/usocket-0.3.1.tar.gz.asc Modified: public_html/index.shtml Log: Publish version 0.3.1. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Wed Feb 28 15:19:40 2007 @@ -325,8 +325,12 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Feb 28, 2007</td> + <td>0.3.1</td> + <td>fixed with-server-socket; prevent creation of invalid sockets; + 2 more convenience macros.</td></tr> <tr><td>Feb 26, 2007</td> - <td></td> + <td>re-release</td> <td>Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs because the originals included Subversion administration areas.</td><tr> <tr><td>Jan 21, 2007</td> Added: public_html/releases/usocket-0.3.1.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.3.1.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.3.1.tar.gz.asc Wed Feb 28 15:19:40 2007 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.6 (GNU/Linux) + +iD8DBQBF5fDzi5O0Epaz9TkRAh+sAJ42bLA3mSGZcJQi7Thuskj86CcHNwCdGSMb +lMd4FOp74igUXgzzedb+BN8= +=LpdU +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r204 - usocket/tags/0.3.1
by ehuelsmann＠common-lisp.net 28 Feb '07

28 Feb '07

Author: ehuelsmann Date: Wed Feb 28 15:10:48 2007 New Revision: 204 Added: usocket/tags/0.3.1/ - copied from r203, usocket/branches/0.3.x/ Modified: usocket/tags/0.3.1/usocket.asd Log: Create 0.3.1 tag. Modified: usocket/tags/0.3.1/usocket.asd ============================================================================== --- usocket/branches/0.3.x/usocket.asd (original) +++ usocket/tags/0.3.1/usocket.asd Wed Feb 28 15:10:48 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.1-dev" + :version "0.3.1" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r203 - usocket/branches/0.3.x
by ehuelsmann＠common-lisp.net 28 Feb '07

28 Feb '07

Author: ehuelsmann Date: Wed Feb 28 14:29:04 2007 New Revision: 203 Modified: usocket/branches/0.3.x/package.lisp usocket/branches/0.3.x/usocket.lisp Log: Merge r201 and r202 from trunk. Modified: usocket/branches/0.3.x/package.lisp ============================================================================== --- usocket/branches/0.3.x/package.lisp (original) +++ usocket/branches/0.3.x/package.lisp Wed Feb 28 14:29:04 2007 @@ -21,8 +21,10 @@ #:get-local-name #:get-peer-name - #:with-connected-socket ; macros + #:with-connected-socket ; convenience macros #:with-server-socket + #:with-client-socket + #:with-socket-listener #:usocket ; socket object and accessors #:stream-usocket Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Wed Feb 28 14:29:04 2007 @@ -117,15 +117,34 @@ (when ,var (socket-close ,var))))) +(defmacro with-client-socket ((socket-var stream-var &rest socket-connect-args) + &body body) + "Bind the socket resulting from a call to `socket-connect' with +the arguments `socket-connect-args' to `socket-var' and if `stream-var' is +non-nil, bind the associated socket stream to it." + `(with-connected-socket (,socket-var (socket-connect ,@socket-connect-args)) + ,(if (null stream-var) + `(progn ,@body) + `(let ((,stream-var (socket-stream ,socket-var))) + ,@body)))) + (defmacro with-server-socket ((var server-socket) &body body) "Bind `server-socket' to `var', ensuring socket destruction on exit. `body' is only evaluated when `var' is bound to a non-null value. The `body' is an implied progn form." - `(with-connected-socket (var server-socket) + `(with-connected-socket (,var ,server-socket) + ,@body)) + +(defmacro with-socket-listener ((socket-var &rest socket-listen-args) + &body body) + "Bind the socket resulting from a call to `socket-listen' with arguments +`socket-listen-args' to `socket-var'." + `(with-server-socket (,socket-var (socket-listen ,@socket-listen-args)) ,@body)) + ;; ;; IP(v4) utility functions ;;

1 0

[usocket-cvs] r202 - usocket/trunk
by ehuelsmann＠common-lisp.net 28 Feb '07

28 Feb '07

Author: ehuelsmann Date: Wed Feb 28 14:27:09 2007 New Revision: 202 Modified: usocket/trunk/usocket.lisp Log: Fix sloppiness in with-server-socket implementation. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Feb 28 14:27:09 2007 @@ -134,7 +134,7 @@ `body' is only evaluated when `var' is bound to a non-null value. The `body' is an implied progn form." - `(with-connected-socket (var server-socket) + `(with-connected-socket (,var ,server-socket) ,@body)) (defmacro with-socket-listener ((socket-var &rest socket-listen-args)

1 0

[usocket-cvs] r201 - usocket/trunk
by ehuelsmann＠common-lisp.net 28 Feb '07

28 Feb '07

Author: ehuelsmann Date: Wed Feb 28 14:26:08 2007 New Revision: 201 Modified: usocket/trunk/package.lisp usocket/trunk/usocket.lisp Log: Implement 2 helper macros from an idea by Harold Lee (harold at hotelling dot net) [my implementation. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Wed Feb 28 14:26:08 2007 @@ -21,8 +21,10 @@ #:get-local-name #:get-peer-name - #:with-connected-socket ; macros + #:with-connected-socket ; convenience macros #:with-server-socket + #:with-client-socket + #:with-socket-listener #:usocket ; socket object and accessors #:stream-usocket Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Feb 28 14:26:08 2007 @@ -117,6 +117,17 @@ (when ,var (socket-close ,var))))) +(defmacro with-client-socket ((socket-var stream-var &rest socket-connect-args) + &body body) + "Bind the socket resulting from a call to `socket-connect' with +the arguments `socket-connect-args' to `socket-var' and if `stream-var' is +non-nil, bind the associated socket stream to it." + `(with-connected-socket (,socket-var (socket-connect ,@socket-connect-args)) + ,(if (null stream-var) + `(progn ,@body) + `(let ((,stream-var (socket-stream ,socket-var))) + ,@body)))) + (defmacro with-server-socket ((var server-socket) &body body) "Bind `server-socket' to `var', ensuring socket destruction on exit. @@ -126,6 +137,14 @@ `(with-connected-socket (var server-socket) ,@body)) +(defmacro with-socket-listener ((socket-var &rest socket-listen-args) + &body body) + "Bind the socket resulting from a call to `socket-listen' with arguments +`socket-listen-args' to `socket-var'." + `(with-server-socket (,socket-var (socket-listen ,@socket-listen-args)) + ,@body)) + + ;; ;; IP(v4) utility functions ;;

1 0

[usocket-cvs] r200 - usocket/branches/0.3.x
by ehuelsmann＠common-lisp.net 26 Feb '07

26 Feb '07

Author: ehuelsmann Date: Sun Feb 25 18:09:34 2007 New Revision: 200 Modified: usocket/branches/0.3.x/condition.lisp usocket/branches/0.3.x/usocket.lisp Log: Merge r196 from trunk: Raise an error on invalid parameters for a socket. Modified: usocket/branches/0.3.x/condition.lisp ============================================================================== --- usocket/branches/0.3.x/condition.lisp (original) +++ usocket/branches/0.3.x/condition.lisp Sun Feb 25 18:09:34 2007 @@ -77,7 +77,9 @@ host-down-error host-unreachable-error shutdown-error - timeout-error) + timeout-error + invalid-socket-error + invalid-socket-stream-error) (socket-error)) (define-condition unknown-error (socket-error) Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Sun Feb 25 18:09:34 2007 @@ -48,11 +48,17 @@ (defun make-socket (&key socket) "Create a usocket socket type from implementation specific socket." + (unless socket + (error 'invalid-socket)) (make-stream-socket :socket socket)) (defun make-stream-socket (&key socket stream) "Create a usocket socket type from implementation specific socket and stream objects." + (unless socket + (error 'invalid-socket-error)) + (unless stream + (error 'invalid-socket-stream-error)) (make-instance 'stream-usocket :socket socket :stream stream))

1 0

[usocket-cvs] r199 - public_html
by ehuelsmann＠common-lisp.net 25 Feb '07

25 Feb '07

Author: ehuelsmann Date: Sun Feb 25 17:49:31 2007 New Revision: 199 Modified: public_html/index.shtml Log: Correct releases table layout. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 25 17:49:31 2007 @@ -326,6 +326,7 @@ <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> <tr><td>Feb 26, 2007</td> + <td></td> <td>Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs because the originals included Subversion administration areas.</td><tr> <tr><td>Jan 21, 2007</td>

1 0

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