usocket-cvs February 2007

usocket-cvs@common-lisp.net

1 participants
10 discussions

[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 25 Feb '07

25 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

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

25 Feb '07

Author: ehuelsmann Date: Sun Feb 25 17:47:34 2007 New Revision: 198 Modified: public_html/index.shtml Log: Indicate release tarball re-releases. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 25 17:47:34 2007 @@ -325,6 +325,9 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Feb 26, 2007</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> <td><b>0.3.0<b></td><td><b>Server sockets</b></td></tr> <tr><td>Jan 19, 2007</td>

1 0

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

25 Feb '07

Author: ehuelsmann Date: Sun Feb 25 17:43:13 2007 New Revision: 197 Modified: public_html/releases/usocket-0.2.3.tar.gz public_html/releases/usocket-0.2.3.tar.gz.asc public_html/releases/usocket-0.2.4.tar.gz public_html/releases/usocket-0.2.4.tar.gz.asc public_html/releases/usocket-0.2.5.tar.gz public_html/releases/usocket-0.2.5.tar.gz.asc public_html/releases/usocket-0.3.0.tar.gz public_html/releases/usocket-0.3.0.tar.gz.asc Log: Update release archives not to include Subversion admin areas. Modified: public_html/releases/usocket-0.2.3.tar.gz ============================================================================== Binary files. No diff available. Modified: public_html/releases/usocket-0.2.3.tar.gz.asc ============================================================================== --- public_html/releases/usocket-0.2.3.tar.gz.asc (original) +++ public_html/releases/usocket-0.2.3.tar.gz.asc Sun Feb 25 17:43:13 2007 @@ -1,7 +1,7 @@ -----BEGIN PGP SIGNATURE----- -Version: GnuPG v1.4.1 (GNU/Linux) +Version: GnuPG v1.4.6 (GNU/Linux) -iD8DBQBFnXkki5O0Epaz9TkRAvgVAJ9F+ePx8eHz45ISrpKHChMy1fkiYACeMDCO -G9ofUHXmyZ6yITQbb1LDAhk= -=vOas +iD8DBQBF4h4Zi5O0Epaz9TkRAvVWAJ0RLhr7Baqtpg2SskQZjbIffOgdNACeM/Oc +XzBd2dMtM0MNrdSbp+uRKgo= +=NbJe -----END PGP SIGNATURE----- Modified: public_html/releases/usocket-0.2.4.tar.gz ============================================================================== Binary files. No diff available. Modified: public_html/releases/usocket-0.2.4.tar.gz.asc ============================================================================== --- public_html/releases/usocket-0.2.4.tar.gz.asc (original) +++ public_html/releases/usocket-0.2.4.tar.gz.asc Sun Feb 25 17:43:13 2007 @@ -1,7 +1,7 @@ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (GNU/Linux) -iD8DBQBFrWHqi5O0Epaz9TkRAoCgAJ9nWSwbIHNBGq/G6dHK8KxhjAK2PwCeKaXQ -Iu4Cla9BiCX5GejGtAw1Xg4= -=fr3+ +iD8DBQBF4h7ri5O0Epaz9TkRAoCbAJ9LR5BwLvtBnOIxcwsPD9Hjiezc9ACdEz0F +2R0+ori/ZpmmVkk0/3v5aGc= +=0tZk -----END PGP SIGNATURE----- Modified: public_html/releases/usocket-0.2.5.tar.gz ============================================================================== Binary files. No diff available. Modified: public_html/releases/usocket-0.2.5.tar.gz.asc ============================================================================== --- public_html/releases/usocket-0.2.5.tar.gz.asc (original) +++ public_html/releases/usocket-0.2.5.tar.gz.asc Sun Feb 25 17:43:13 2007 @@ -1,7 +1,7 @@ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (GNU/Linux) -iD8DBQBFsBWIi5O0Epaz9TkRAuz/AJ96VAuMnlQOmdwLxAinab0LdxKm1QCfS5bi -7de82Dbrf7/ajzmaEZvtQvc= -=S7mg +iD8DBQBF4h4li5O0Epaz9TkRAs1wAJ95wDICXbgWo+c6ZfxX+dstik5LeACfSAs/ +K8e65Lqpa3YJCSCSv/vSsI4= +=1+8y -----END PGP SIGNATURE----- Modified: public_html/releases/usocket-0.3.0.tar.gz ============================================================================== Binary files. No diff available. Modified: public_html/releases/usocket-0.3.0.tar.gz.asc ============================================================================== --- public_html/releases/usocket-0.3.0.tar.gz.asc (original) +++ public_html/releases/usocket-0.3.0.tar.gz.asc Sun Feb 25 17:43:13 2007 @@ -1,7 +1,7 @@ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (GNU/Linux) -iD8DBQBFs0i0i5O0Epaz9TkRArGIAJ4+XspIcQJu/pqUl/ilDxIrHFxypQCfbAL9 -g1ATAMyna4k9NmW/KUdO/i8= -=o5+Z +iD8DBQBF4h42i5O0Epaz9TkRAuZtAJ43FOUAezSbF3GANHY6FZk5WJeKygCfXQVw +RxsQerF7VE2knVsRfSLHoOI= +=nF0L -----END PGP SIGNATURE-----

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs February 2007