June 2008 - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

[usocket-cvs] r359 - public_html/releases
by ehuelsmann＠common-lisp.net 28 Jun '08

28 Jun '08

Author: ehuelsmann Date: Sat Jun 28 08:30:31 2008 New Revision: 359 Added: public_html/releases/usocket-0.3.6.tar.gz.asc public_html/releases/usocket-0.3.7.tar.gz.asc Log: Add signature files. Added: public_html/releases/usocket-0.3.6.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.3.6.tar.gz.asc Sat Jun 28 08:30:31 2008 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.6 (GNU/Linux) + +iD8DBQBIZi7yi5O0Epaz9TkRAulwAJ9g2dVsqbYf7f6FdOyR1iUkq9J2yACeIjyl +CDeMaYezgHhOpRFWWXoWeMM= +=Qa9v +-----END PGP SIGNATURE----- Added: public_html/releases/usocket-0.3.7.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.3.7.tar.gz.asc Sat Jun 28 08:30:31 2008 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.6 (GNU/Linux) + +iD8DBQBIZi8Hi5O0Epaz9TkRAsBRAJ9bLlrhPfjmolHIFwevuDQt+lOpdwCfVmfl +oDpQpvdjRQhraZfB88TrgS0= +=/Swp +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r358 - usocket/branches/0.3.x
by ehuelsmann＠common-lisp.net 28 Jun '08

28 Jun '08

Author: ehuelsmann Date: Sat Jun 28 06:18:15 2008 New Revision: 358 Modified: usocket/branches/0.3.x/usocket.asd Log: Bump 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 Jun 28 06:18:15 2008 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.5-dev" + :version "0.3.8-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r357 - in public_html: . releases
by ehuelsmann＠common-lisp.net 28 Jun '08

28 Jun '08

Author: ehuelsmann Date: Sat Jun 28 06:17:28 2008 New Revision: 357 Added: public_html/releases/usocket-0.3.7.tar.gz (contents, props changed) Modified: public_html/index.shtml Log: Add 0.3.7 release. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Jun 28 06:17:28 2008 @@ -391,6 +391,9 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Jun 28, 2008</td> + <td>0.3.7</td> + <td>Fix of OpenMCL (Closure CL) backend. </td></tr> <tr><td>Jun 21, 2008</td> <td>0.3.6</td> <td>Code fixups based on advice from the ECL and OpenMCL maintainers. Added: public_html/releases/usocket-0.3.7.tar.gz ============================================================================== Binary file. No diff available.

1 0

[usocket-cvs] r356 - usocket/tags/0.3.7
by ehuelsmann＠common-lisp.net 28 Jun '08

28 Jun '08

Author: ehuelsmann Date: Sat Jun 28 06:12:13 2008 New Revision: 356 Added: usocket/tags/0.3.7/ - copied from r355, usocket/branches/0.3.x/ Modified: usocket/tags/0.3.7/usocket.asd Log: Create 0.3.7 tag. Modified: usocket/tags/0.3.7/usocket.asd ============================================================================== --- usocket/branches/0.3.x/usocket.asd (original) +++ usocket/tags/0.3.7/usocket.asd Sat Jun 28 06:12:13 2008 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.5-dev" + :version "0.3.7" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r355 - usocket/branches/0.3.x/backend
by ehuelsmann＠common-lisp.net 28 Jun '08

28 Jun '08

Author: ehuelsmann Date: Sat Jun 28 03:57:38 2008 New Revision: 355 Modified: usocket/branches/0.3.x/backend/openmcl.lisp Log: Followup to fix of OpenMCL backend. Patch by: Chun Tian (binghe.lisp(a)gmail.com) 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 Sat Jun 28 03:57:38 2008 @@ -37,8 +37,8 @@ (ccl::fd-zero infds) (ccl::fd-zero errfds) (dolist (sock sockets) - (ccl::fd-set (openmcl-socket:socket-os-fd sock infds)) - (ccl::fd-set (openmcl-socket:socket-os-fd sock errfds))) + (ccl::fd-set (openmcl-socket:socket-os-fd sock) infds) + (ccl::fd-set (openmcl-socket:socket-os-fd sock) errfds)) (let* ((res (#_select (1+ (apply #'max infds)) infds (ccl::%null-ptr) errfds

1 0

[usocket-cvs] r354 - usocket/branches/0.3.x/backend
by ehuelsmann＠common-lisp.net 26 Jun '08

26 Jun '08

Author: ehuelsmann Date: Thu Jun 26 17:30:49 2008 New Revision: 354 Modified: usocket/branches/0.3.x/backend/openmcl.lisp Log: Fix OpenMCL (CCL) backend, directly on the branch, because this code doesn't exist on trunk any longer. Patch by: Chun Tian (binghe) (binghe.lisp(a)gmail.com) 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 Thu Jun 26 17:30:49 2008 @@ -37,15 +37,15 @@ (ccl::fd-zero infds) (ccl::fd-zero errfds) (dolist (sock sockets) - (ccl::fd-set (socket-os-fd sock infds)) - (ccl::fd-set (socket-os-fd sock errfds))) + (ccl::fd-set (openmcl-socket:socket-os-fd sock infds)) + (ccl::fd-set (openmcl-socket:socket-os-fd sock errfds))) (let* ((res (#_select - (1+ (apply #'max fds)) + (1+ (apply #'max infds)) infds (ccl::%null-ptr) errfds (if ticks-to-wait tv (ccl::%null-ptr))))) (when (> res 0) (remove-if #'(lambda (x) - (not (ccl::fd-is-set (socket-os-fd x) infds))) + (not (ccl::fd-is-set (openmcl-socket:socket-os-fd x) infds))) sockets)))))) (defun wait-for-input (sockets &optional ticks-to-wait) @@ -67,7 +67,7 @@ (raise-error-from-id (openmcl-socket:socket-error-identifier condition) socket condition)) (ccl::socket-creation-error #| ugh! |# - (raise-error-from-id (ccl::socket-creationg-error-identifier condition) + (raise-error-from-id (ccl::socket-creation-error-identifier condition) socket condition)) (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition))))

1 0

[usocket-cvs] r353 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 21 Jun '08

21 Jun '08

Author: ehuelsmann Date: Fri Jun 20 20:06:02 2008 New Revision: 353 Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/backend/armedbear.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/openmcl.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/backend/scl.lisp Log: Start supporting the timeout parameter for SOCKET-CONNECT. >From a patch by Hans Huebner, with additional supported platforms from me. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Fri Jun 20 20:06:02 2008 @@ -49,13 +49,18 @@ :text :binary)) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout) (let ((socket)) (setf socket (with-mapped-conditions (socket) - (socket:make-socket :remote-host (host-to-hostname host) - :remote-port port - :format (to-format element-type)))) + (if timeout + (mp:with-timeout (timeout nil) + (socket:make-socket :remote-host (host-to-hostname host) + :remote-port port + :format (to-format element-type))) + (socket:make-socket :remote-host (host-to-hostname host) + :remote-port port + :format (to-format element-type))))) (make-stream-socket :socket socket :stream socket))) Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Jun 20 20:06:02 2008 @@ -185,7 +185,9 @@ (typecase condition (error (error 'unknown-error :socket socket :real-error condition)))) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in ABCL")) (let ((usock)) (with-mapped-conditions (usock) (let* ((sock-addr (jdi:jcoerce Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Fri Jun 20 20:06:02 2008 @@ -55,14 +55,19 @@ (error usock-err :socket socket) (signal usock-err :socket socket))))))) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout) (let ((socket) (hostname (host-to-hostname host))) (with-mapped-conditions (socket) - (setf socket - (socket:socket-connect port hostname - :element-type element-type - :buffered t))) + (setf socket + (if timeout + (socket:socket-connect port hostname + :element-type element-type + :buffered t + :timeout timeout) + (socket:socket-connect port hostname + :element-type element-type + :buffered t)))) (make-stream-socket :socket socket :stream socket))) ;; the socket is a stream too Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Jun 20 20:06:02 2008 @@ -50,7 +50,9 @@ :socket socket :condition condition)))) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in CMUCL")) (let* ((socket)) (setf socket (with-mapped-conditions (socket) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Fri Jun 20 20:06:02 2008 @@ -73,7 +73,9 @@ (declare (ignore host port err-msg)) (raise-usock-err errno socket condition))))) -(defun socket-connect (host port &key (element-type 'base-char)) +(defun socket-connect (host port &key (element-type 'base-char) timeout) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in Lispworks")) (let ((hostname (host-to-hostname host)) (stream)) (setf stream Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Jun 20 20:06:02 2008 @@ -57,25 +57,30 @@ (defun handle-condition (condition &optional socket) (typecase condition (openmcl-socket:socket-error - (raise-error-from-id (openmcl-socket:socket-error-identifier condition) - socket condition)) + (raise-error-from-id (openmcl-socket:socket-error-identifier condition) + socket condition)) + (ccl:communication-deadline-expired + (error 'timeout-error :socket socket :real-error condition)) (ccl::socket-creation-error #| ugh! |# - (raise-error-from-id (ccl::socket-creation-error-identifier condition) - socket condition)))) + (raise-error-from-id (ccl::socket-creation-error-identifier condition) + socket condition)))) (defun to-format (element-type) (if (subtypep element-type 'character) :text :binary)) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout deadline) (with-mapped-conditions () - (let ((mcl-sock - (openmcl-socket:make-socket :remote-host (host-to-hostname host) - :remote-port port - :format (to-format element-type)))) - (openmcl-socket:socket-connect mcl-sock) - (make-stream-socket :stream mcl-sock :socket mcl-sock)))) + (let ((mcl-sock + (openmcl-socket:make-socket :remote-host (host-to-hostname host) + :remote-port port + :format (to-format element-type) + :deadline deadline + :connect-timeout (and timeout + (* timeout internal-time-units-per-second))))) + (openmcl-socket:socket-connect mcl-sock) + (make-stream-socket :stream mcl-sock :socket mcl-sock)))) (defun socket-listen (host port &key reuseaddress Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Jun 20 20:06:02 2008 @@ -184,7 +184,10 @@ (signal usock-cond :socket socket)))))) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout deadline) + (declare (ignore deadline)) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in SBCL")) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Fri Jun 20 20:06:02 2008 @@ -28,7 +28,9 @@ :socket socket :condition condition)))) -(defun socket-connect (host port &key (element-type 'character)) +(defun socket-connect (host port &key (element-type 'character) timeout) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in SCL")) (let* ((socket (with-mapped-conditions () (ext:connect-to-inet-socket (host-to-hbo host) port :kind :stream)))

1 0

[usocket-cvs] r352 - public_html
by ehuelsmann＠common-lisp.net 20 Jun '08

20 Jun '08

Author: ehuelsmann Date: Fri Jun 20 19:33:15 2008 New Revision: 352 Modified: public_html/index.shtml Log: Document the release. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Jun 20 19:33:15 2008 @@ -391,12 +391,11 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> -<tr><td>Sep 18, 2007</td> - <td>0.3.5</td> - <td>Implementation-dependent errors bleeding through, ECL get-host-name - memory allocation fix/win32 compat fix, CLISP compile warnings fixes, - SBCL compile warning/error fix, CLISP get-peer-name/get-local-name - fixes</td></tr> +<tr><td>Jun 21, 2008</td> + <td>0.3.6</td> + <td>Code fixups based on advice from the ECL and OpenMCL maintainers. + New exported symbols: WITH-MAPPED-CONDITIONS, NS-CONDITION, + NS-ERROR, NS-UNKNOWN-ERROR and NS-UNKNOWN-CONDITION.</td></tr> <tr><td>Jul 25, 2007</td> <td>0.3.4</td> <td>Fix clisp get-host-name, multiple ECL fixes.</td></tr>

1 0

[usocket-cvs] r351 - public_html/releases
by ehuelsmann＠common-lisp.net 20 Jun '08

20 Jun '08

Author: ehuelsmann Date: Fri Jun 20 19:31:29 2008 New Revision: 351 Added: public_html/releases/usocket-0.3.6.tar.gz (contents, props changed) Log: Publish usocket 0.3.6 (signing will do later). Added: public_html/releases/usocket-0.3.6.tar.gz ============================================================================== Binary file. No diff available.

1 0

[usocket-cvs] r350 - usocket/tags/0.3.6
by ehuelsmann＠common-lisp.net 20 Jun '08

20 Jun '08

Author: ehuelsmann Date: Fri Jun 20 19:30:09 2008 New Revision: 350 Added: usocket/tags/0.3.6/ - copied from r349, usocket/branches/0.3.x/ Modified: usocket/tags/0.3.6/usocket.asd Log: Create 0.3.6 tag. Modified: usocket/tags/0.3.6/usocket.asd ============================================================================== --- usocket/branches/0.3.x/usocket.asd (original) +++ usocket/tags/0.3.6/usocket.asd Fri Jun 20 19:30:09 2008 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.5-dev" + :version "0.3.6" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0