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 @@
Release history
Date | Release | Summary |
+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 |
0.3.0 | Server sockets |
Jan 19, 2007 |
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 @@
Release history
Date | Release | Summary |
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 |
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
Date | Release | Summary |
+Feb 28, 2007 |
+ 0.3.1 |
+ fixed with-server-socket; prevent creation of invalid sockets;
+ 2 more convenience macros. |
Feb 26, 2007 |
- |
+ re-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 |
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