From ehuelsmann at common-lisp.net Sun Feb 25 22:43:15 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sun, 25 Feb 2007 17:43:15 -0500 (EST) Subject: [usocket-cvs] r197 - public_html/releases Message-ID: <20070225224315.619A148000@common-lisp.net> 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----- From ehuelsmann at common-lisp.net Sun Feb 25 22:47:35 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sun, 25 Feb 2007 17:47:35 -0500 (EST) Subject: [usocket-cvs] r198 - public_html Message-ID: <20070225224735.402DF75093@common-lisp.net> 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 @@ + + From ehuelsmann at common-lisp.net Sun Feb 25 22:49:32 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sun, 25 Feb 2007 17:49:32 -0500 (EST) Subject: [usocket-cvs] r199 - public_html Message-ID: <20070225224932.424DC75093@common-lisp.net> 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 @@ + From ehuelsmann at common-lisp.net Sun Feb 25 23:09:36 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sun, 25 Feb 2007 18:09:36 -0500 (EST) Subject: [usocket-cvs] r200 - usocket/branches/0.3.x Message-ID: <20070225230936.4C24734064@common-lisp.net> 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)) From ehuelsmann at common-lisp.net Wed Feb 28 19:26:09 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 28 Feb 2007 14:26:09 -0500 (EST) Subject: [usocket-cvs] r201 - usocket/trunk Message-ID: <20070228192609.7CB9C3201A@common-lisp.net> 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 , at socket-connect-args)) + ,(if (null stream-var) + `(progn , at body) + `(let ((,stream-var (socket-stream ,socket-var))) + , at 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) , at 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 , at socket-listen-args)) + , at body)) + + ;; ;; IP(v4) utility functions ;; From ehuelsmann at common-lisp.net Wed Feb 28 19:27:10 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 28 Feb 2007 14:27:10 -0500 (EST) Subject: [usocket-cvs] r202 - usocket/trunk Message-ID: <20070228192710.1D8893201A@common-lisp.net> 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) , at body)) (defmacro with-socket-listener ((socket-var &rest socket-listen-args) From ehuelsmann at common-lisp.net Wed Feb 28 19:29:06 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 28 Feb 2007 14:29:06 -0500 (EST) Subject: [usocket-cvs] r203 - usocket/branches/0.3.x Message-ID: <20070228192906.A641C3201A@common-lisp.net> 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 , at socket-connect-args)) + ,(if (null stream-var) + `(progn , at body) + `(let ((,stream-var (socket-stream ,socket-var))) + , at 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) + , at 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 , at socket-listen-args)) , at body)) + ;; ;; IP(v4) utility functions ;; From ehuelsmann at common-lisp.net Wed Feb 28 20:10:49 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 28 Feb 2007 15:10:49 -0500 (EST) Subject: [usocket-cvs] r204 - usocket/tags/0.3.1 Message-ID: <20070228201049.312241184@common-lisp.net> 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 From ehuelsmann at common-lisp.net Wed Feb 28 20:19:46 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 28 Feb 2007 15:19:46 -0500 (EST) Subject: [usocket-cvs] r205 - in public_html: . releases Message-ID: <20070228201946.723EF111D4@common-lisp.net> 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 @@
Release history
DateReleaseSummary
Feb 26, 2007Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs + because the originals included Subversion administration areas.
Jan 21, 2007 0.3.0Server sockets
Jan 19, 2007
Release history
DateReleaseSummary
Feb 26, 2007 Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs because the originals included Subversion administration areas.
Jan 21, 2007
+ + + - + 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----- From ehuelsmann at common-lisp.net Wed Feb 28 20:21:07 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 28 Feb 2007 15:21:07 -0500 (EST) Subject: [usocket-cvs] r206 - usocket/branches/0.3.x Message-ID: <20070228202107.2C237120A2@common-lisp.net> 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
Release history
DateReleaseSummary
Feb 28, 20070.3.1fixed with-server-socket; prevent creation of invalid sockets; + 2 more convenience macros.
Feb 26, 2007re-release Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs because the originals included Subversion administration areas.
Jan 21, 2007