usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r588 - usocket/branches/0.5.x/backend
by Chun Tian 22 Mar '11

22 Mar '11

Author: ctian Date: Mon Mar 21 21:46:46 2011 New Revision: 588 Log: Fixes for "SBCL/Win32: finalizer problem, etc", by Anton Kovalenko <anton(a)sw4me.com> Modified: usocket/branches/0.5.x/backend/sbcl.lisp Modified: usocket/branches/0.5.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.5.x/backend/sbcl.lisp (original) +++ usocket/branches/0.5.x/backend/sbcl.lisp Mon Mar 21 21:46:46 2011 @@ -199,6 +199,10 @@ (if usock-cond (signal usock-cond :socket socket)))))) +;;; "The socket stream ends up with a bogus name as it is created before +;;; the socket is connected, making things harder to debug than they need +;;; to be." -- Nikodemus Siivola <nikodemus(a)random-state.net> + (defvar *dummy-stream* (let ((stream (make-broadcast-stream))) (close stream) @@ -291,16 +295,29 @@ (sb-bsd-sockets:socket-close sock) (error c))))) +;;; "2. SB-BSD-SOCKETS:SOCKET-ACCEPT method returns NIL for EAGAIN/EINTR, +;;; instead of raising a condition. It's always possible for +;;; SOCKET-ACCEPT on non-blocking socket to fail, even after the socket +;;; was detected to be ready: connection might be reset, for example. +;;; +;;; "I had to redefine SOCKET-ACCEPT method of STREAM-SERVER-USOCKET to +;;; handle this situation. Here is the redefinition:" -- Anton Kovalenko <anton(a)sw4me.com> + (defmethod socket-accept ((socket stream-server-usocket) &key element-type) (with-mapped-conditions (socket) - (let ((sock (sb-bsd-sockets:socket-accept (socket socket)))) - (make-stream-socket - :socket sock - :stream (sb-bsd-sockets:socket-make-stream - sock - :input t :output t :buffering :full - :element-type (or element-type - (element-type socket))))))) + (let ((sock (sb-bsd-sockets:socket-accept (socket socket)))) + (if sock + (make-stream-socket + :socket sock + :stream (sb-bsd-sockets:socket-make-stream + sock + :input t :output t :buffering :full + :element-type (or element-type + (element-type socket)))) + + ;; next time wait for event again if we had EAGAIN/EINTR + ;; or else we'd enter a tight loop of failed accepts + (setf (%ready-p socket) nil))))) ;; Sockets and their associated streams are modelled as ;; different objects. Be sure to close the stream (which @@ -448,7 +465,15 @@ #+(and sbcl win32) (progn - (sb-alien:define-alien-type ws-socket sb-alien:unsigned-int) + ;; "SOCKET is defined as intptr_t in Windows headers; however, WS-SOCKET + ;; is defined as unsigned-int, i.e. 32-bit even on 64-bit platform. It + ;; seems to be a good thing to redefine WS-SOCKET as SB-ALIEN:SIGNED, + ;; which is always machine word-sized (exactly as intptr_t; + ;; N.B. as of Windows/x64, long and signed-long are 32-bit, and thus not + ;; enough -- potentially)." + ;; -- Anton Kovalenko <anton(a)sw4me.com>, Mar 22, 2011 + (sb-alien:define-alien-type ws-socket sb-alien:signed) + (sb-alien:define-alien-type ws-dword sb-alien:unsigned-long) (sb-alien:define-alien-type ws-event sb-alien::hinstance) @@ -556,13 +581,33 @@ (defun (setf os-wait-list-%wait) (value wait-list) (setf (sb-alien:deref (wait-list-%wait wait-list)) value)) + ;; "Event handles are leaking in current SBCL backend implementation, + ;; because of SBCL-unfriendly usage of finalizers. + ;; + ;; "SBCL never calls a finalizer that closes over a finalized object: a + ;; reference from that closure prevents its collection forever. That's + ;; the case with USOCKET in %SETUP-WAIT-LIST. + ;; + ;; "I use the following redefinition of %SETUP-WAIT-LIST: + ;; + ;; "Of course it may be rewritten with more clarity, but you can see the + ;; core idea: I'm closing over those components of WAIT-LIST that I need + ;; for finalization, not the wait-list itself. With the original + ;; %SETUP-WAIT-LIST, hunchentoot stops working after ~100k accepted + ;; connections; it doesn't happen with redefined %SETUP-WAIT-LIST." + ;; + ;; -- Anton Kovalenko <anton(a)sw4me.com>, Mar 22, 2011 + (defun %setup-wait-list (wait-list) (setf (wait-list-%wait wait-list) (sb-alien:make-alien ws-event)) (setf (os-wait-list-%wait wait-list) (wsa-event-create)) (sb-ext:finalize wait-list - #'(lambda () (unless (null (wait-list-%wait wait-list)) - (wsa-event-close (os-wait-list-%wait wait-list)) - (sb-alien:free-alien (wait-list-%wait wait-list)))))) + (let ((event-handle (os-wait-list-%wait wait-list)) + (alien (wait-list-%wait wait-list))) + #'(lambda () + (wsa-event-close event-handle) + (unless (null alien) + (sb-alien:free-alien alien)))))) (defun %add-waiter (wait-list waiter) (let ((events (etypecase waiter

1 0

[usocket-cvs] r587 - public_html/releases
by Chun Tian 21 Mar '11

21 Mar '11

Author: ctian Date: Mon Mar 21 09:47:55 2011 New Revision: 587 Log: Add latest links for quicklisp Added: public_html/releases/usocket-latest.tar.gz (contents, props changed) public_html/releases/usocket-latest.tar.gz.asc (contents, props changed) Added: public_html/releases/usocket-latest.tar.gz ============================================================================== --- (empty file) +++ public_html/releases/usocket-latest.tar.gz Mon Mar 21 09:47:55 2011 @@ -0,0 +1 @@ +link usocket-0.5.0.tar.gz \ No newline at end of file Added: public_html/releases/usocket-latest.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-latest.tar.gz.asc Mon Mar 21 09:47:55 2011 @@ -0,0 +1 @@ +link usocket-0.5.0.tar.gz.asc \ No newline at end of file

1 0

[usocket-cvs] r586 - usocket/branches/0.5.x/backend
by Chun Tian 20 Mar '11

20 Mar '11

Author: ctian Date: Sun Mar 20 10:34:38 2011 New Revision: 586 Log: Bugfix: last rework of SOCKET-CONNECT (by N. Siivola) broke UDP listening call (both HOST and PORT are NIL) Modified: usocket/branches/0.5.x/backend/sbcl.lisp Modified: usocket/branches/0.5.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.5.x/backend/sbcl.lisp (original) +++ usocket/branches/0.5.x/backend/sbcl.lisp Sun Mar 20 10:34:38 2011 @@ -226,7 +226,6 @@ :protocol (case protocol (:stream :tcp) (:datagram :udp)))) - (ip (host-to-vector-quad host)) (local-host (host-to-vector-quad (or local-host *wildcard-host*))) (local-port (or local-port *auto-port*)) usocket ok) @@ -245,7 +244,7 @@ (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket local-host local-port)) (with-mapped-conditions (usocket) - (sb-bsd-sockets:socket-connect socket ip port) + (sb-bsd-sockets:socket-connect socket (host-to-vector-quad host) port) ;; Now that we're connected make the stream. (setf (socket-stream usocket) (sb-bsd-sockets:socket-make-stream socket @@ -264,7 +263,7 @@ (setf usocket (make-datagram-socket socket)) (when (and host port) (with-mapped-conditions (usocket) - (sb-bsd-sockets:socket-connect socket ip port) + (sb-bsd-sockets:socket-connect socket (host-to-vector-quad host) port) (setf (connected-p usocket) t))))) (setf ok t)) ;; Clean up in case of an error.

1 0

[usocket-cvs] r585 - usocket/branches/0.5.x/vendor
by Chun Tian 20 Mar '11

20 Mar '11

Author: ctian Date: Sun Mar 20 10:13:27 2011 New Revision: 585 Log: Update vendor code (portable-threads) to support threads creating in ABCL. Modified: usocket/branches/0.5.x/vendor/spawn-thread.lisp Modified: usocket/branches/0.5.x/vendor/spawn-thread.lisp ============================================================================== --- usocket/branches/0.5.x/vendor/spawn-thread.lisp (original) +++ usocket/branches/0.5.x/vendor/spawn-thread.lisp Sun Mar 20 10:13:27 2011 @@ -43,6 +43,9 @@ (defun spawn-thread (name function &rest args) #-(or (and cmu mp) cormanlisp (and sbcl sb-thread)) (declare (dynamic-extent args)) + #+abcl + (threads:make-thread #'(lambda () (apply function args)) + :name name) #+allegro (apply #'mp:process-run-function name function args) #+(and clisp mt)

1 0

[usocket-cvs] r584 - usocket/branches/0.5.x/backend
by Chun Tian 20 Mar '11

20 Mar '11

Author: ctian Date: Sun Mar 20 10:11:31 2011 New Revision: 584 Log: Bugfix: UDP flag "connected-p" never been set in SOCKET-CONNECT (ACL). Modified: usocket/branches/0.5.x/backend/allegro.lisp Modified: usocket/branches/0.5.x/backend/allegro.lisp ============================================================================== --- usocket/branches/0.5.x/backend/allegro.lisp (original) +++ usocket/branches/0.5.x/backend/allegro.lisp Sun Mar 20 10:11:31 2011 @@ -90,7 +90,7 @@ (:stream (make-stream-socket :socket socket :stream socket)) (:datagram - (make-datagram-socket socket))))) + (make-datagram-socket socket :connected-p (and host port t)))))) ;; One socket close method is sufficient, ;; because socket-streams are also sockets.

1 0

[usocket-cvs] r583 - usocket/branches/0.5.x/backend
by Chun Tian 20 Mar '11

20 Mar '11

Author: ctian Date: Sun Mar 20 09:44:17 2011 New Revision: 583 Log: Bugfix: UDP flag "connected-p" never been set in SOCKET-CONNECT (LW, CCL and SCL). Modified: usocket/branches/0.5.x/backend/lispworks.lisp usocket/branches/0.5.x/backend/openmcl.lisp usocket/branches/0.5.x/backend/scl.lisp Modified: usocket/branches/0.5.x/backend/lispworks.lisp ============================================================================== --- usocket/branches/0.5.x/backend/lispworks.lisp (original) +++ usocket/branches/0.5.x/backend/lispworks.lisp Sun Mar 20 09:44:17 2011 @@ -305,7 +305,7 @@ (open-udp-socket :local-address (and local-host (host-to-hostname local-host)) :local-port local-port :read-timeout timeout)) - :connected-p t))) + :connected-p (and host port t)))) (hcl:flag-special-free-action usocket) usocket)))) Modified: usocket/branches/0.5.x/backend/openmcl.lisp ============================================================================== --- usocket/branches/0.5.x/backend/openmcl.lisp (original) +++ usocket/branches/0.5.x/backend/openmcl.lisp Sun Mar 20 09:44:17 2011 @@ -100,17 +100,18 @@ (openmcl-socket:socket-connect mcl-sock) (make-stream-socket :stream mcl-sock :socket mcl-sock))) (:datagram - (let ((mcl-sock - (openmcl-socket:make-socket :address-family :internet - :type :datagram - :local-host (when local-host (host-to-hostname local-host)) - :local-port local-port - :format :binary))) + (let* ((mcl-sock + (openmcl-socket:make-socket :address-family :internet + :type :datagram + :local-host (when local-host (host-to-hostname local-host)) + :local-port local-port + :format :binary)) + (usocket (make-datagram-socket mcl-sock))) (when (and host port) - (ccl::inet-connect (ccl::socket-device mcl-sock) - (ccl::host-as-inet-host host) - (ccl::port-as-inet-port port "udp"))) - (make-datagram-socket mcl-sock)))))) + (ccl::inet-connect (ccl::socket-device mcl-sock) + (ccl::host-as-inet-host host) + (ccl::port-as-inet-port port "udp")) + (setf (connected-p usocket) t))))))) (defun socket-listen (host port &key reuseaddress Modified: usocket/branches/0.5.x/backend/scl.lisp ============================================================================== --- usocket/branches/0.5.x/backend/scl.lisp (original) +++ usocket/branches/0.5.x/backend/scl.lisp Sun Mar 20 09:44:17 2011 @@ -82,7 +82,7 @@ (host-to-hbo local-host))))) (with-mapped-conditions () (ext:create-inet-socket protocol))))) - (let ((usocket (make-datagram-socket socket))) + (let ((usocket (make-datagram-socket socket :connected-p (and host port t)))) (ext:finalize usocket #'(lambda () (when (%open-p usocket) (ext:close-socket socket))))

1 0

[usocket-cvs] r582 - public_html
by Chun Tian 13 Mar '11

13 Mar '11

Author: ctian Date: Sun Mar 13 09:53:46 2011 New Revision: 582 Log: Update brief release notes for 0.5.0 (add UDP support) Modified: public_html/index.shtml Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Mar 13 09:53:46 2011 @@ -406,8 +406,8 @@ <tr> <td>Mar 12, 2011</td> <td>0.5.0</td> - <td>Lots of bugfixes since 0.4.1, support for WAIT-FOR-INPUT for - SBCL and ECL on Win32, new platform added: Macintosh Common Lisp + <td><b>UDP support;</b> Lots of bugfixes since 0.4.1; support for WAIT-FOR-INPUT for + SBCL and ECL on Win32; new platform added: Macintosh Common Lisp (5.0 and up)</td> </tr> <tr>

1 0

[usocket-cvs] r581 - in public_html: . releases releases/old
by Erik Huelsmann 12 Mar '11

12 Mar '11

Author: ehuelsmann Date: Sat Mar 12 16:14:26 2011 New Revision: 581 Log: Publish the 0.5.0 release. Added: public_html/releases/old/usocket-0.1.0.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.1.0.tar.gz public_html/releases/old/usocket-0.1.0.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.1.0.tar.gz.asc public_html/releases/old/usocket-0.2.0.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.2.0.tar.gz public_html/releases/old/usocket-0.2.0.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.2.0.tar.gz.asc public_html/releases/old/usocket-0.2.1.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.2.1.tar.gz public_html/releases/old/usocket-0.2.1.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.2.1.tar.gz.asc public_html/releases/old/usocket-0.2.2.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.2.2.tar.gz public_html/releases/old/usocket-0.2.2.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.2.2.tar.gz.asc public_html/releases/old/usocket-0.2.3.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.2.3.tar.gz public_html/releases/old/usocket-0.2.3.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.2.3.tar.gz.asc public_html/releases/old/usocket-0.2.4.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.2.4.tar.gz public_html/releases/old/usocket-0.2.4.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.2.4.tar.gz.asc public_html/releases/old/usocket-0.2.5.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.2.5.tar.gz public_html/releases/old/usocket-0.2.5.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.2.5.tar.gz.asc public_html/releases/old/usocket-0.3.0.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.0.tar.gz public_html/releases/old/usocket-0.3.0.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.0.tar.gz.asc public_html/releases/old/usocket-0.3.1.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.1.tar.gz public_html/releases/old/usocket-0.3.1.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.1.tar.gz.asc public_html/releases/old/usocket-0.3.2.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.2.tar.gz public_html/releases/old/usocket-0.3.2.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.2.tar.gz.asc public_html/releases/old/usocket-0.3.3.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.3.tar.gz public_html/releases/old/usocket-0.3.3.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.3.tar.gz.asc public_html/releases/old/usocket-0.3.4.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.4.tar.gz public_html/releases/old/usocket-0.3.4.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.4.tar.gz.asc public_html/releases/old/usocket-0.3.5.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.5.tar.gz public_html/releases/old/usocket-0.3.5.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.5.tar.gz.asc public_html/releases/old/usocket-0.3.6.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.6.tar.gz public_html/releases/old/usocket-0.3.6.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.6.tar.gz.asc public_html/releases/old/usocket-0.3.7.tar.gz - copied unchanged from r580, /public_html/releases/usocket-0.3.7.tar.gz public_html/releases/old/usocket-0.3.7.tar.gz.asc - copied unchanged from r580, /public_html/releases/usocket-0.3.7.tar.gz.asc public_html/releases/usocket-0.5.0.tar.gz (contents, props changed) public_html/releases/usocket-0.5.0.tar.gz.asc Removed: public_html/releases/usocket-0.1.0.tar.gz public_html/releases/usocket-0.1.0.tar.gz.asc public_html/releases/usocket-0.2.0.tar.gz public_html/releases/usocket-0.2.0.tar.gz.asc public_html/releases/usocket-0.2.1.tar.gz public_html/releases/usocket-0.2.1.tar.gz.asc public_html/releases/usocket-0.2.2.tar.gz public_html/releases/usocket-0.2.2.tar.gz.asc 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 public_html/releases/usocket-0.3.1.tar.gz public_html/releases/usocket-0.3.1.tar.gz.asc public_html/releases/usocket-0.3.2.tar.gz public_html/releases/usocket-0.3.2.tar.gz.asc public_html/releases/usocket-0.3.3.tar.gz public_html/releases/usocket-0.3.3.tar.gz.asc public_html/releases/usocket-0.3.4.tar.gz public_html/releases/usocket-0.3.4.tar.gz.asc public_html/releases/usocket-0.3.5.tar.gz public_html/releases/usocket-0.3.5.tar.gz.asc public_html/releases/usocket-0.3.6.tar.gz public_html/releases/usocket-0.3.6.tar.gz.asc public_html/releases/usocket-0.3.7.tar.gz public_html/releases/usocket-0.3.7.tar.gz.asc Modified: public_html/index.shtml Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Mar 12 16:14:26 2011 @@ -404,6 +404,13 @@ <th>Summary</th> </tr> <tr> + <td>Mar 12, 2011</td> + <td>0.5.0</td> + <td>Lots of bugfixes since 0.4.1, support for WAIT-FOR-INPUT for + SBCL and ECL on Win32, new platform added: Macintosh Common Lisp + (5.0 and up)</td> + </tr> + <tr> <td>Dec 27, 2008</td> <td>0.4.1</td> <td>fixes for ECL, LispWorks, SBCL, SCL</td> Added: public_html/releases/usocket-0.5.0.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.5.0.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.5.0.tar.gz.asc Sat Mar 12 16:14:26 2011 @@ -0,0 +1,14 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.9 (GNU/Linux) + +iEYEABECAAYFAk1732MACgkQi5O0Epaz9TlT7wCdERC7+BcEeCZya1pLNE0DWieg +B5cAnA4NKehUXpAqs36Xge0r+znjzZfN +=bjOR +-----END PGP SIGNATURE----- +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.11 (Darwin) + +iEYEABECAAYFAk173McACgkQny6v4+l8uLAhUQCfY4cUC7lOAcxCLycRnVzIQIsp +KtYAnR23m9Qn8omBTXgwJc2DvKjx/EjU +=JGOc +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r580 - usocket/branches/experimental-udp
by Erik Huelsmann 12 Mar '11

12 Mar '11

Author: ehuelsmann Date: Sat Mar 12 15:28:17 2011 New Revision: 580 Log: Remove experimental-udp branch which has been long-merged. Removed: usocket/branches/experimental-udp/

1 0

[usocket-cvs] r579 - usocket/branches/0.5.x
by Erik Huelsmann 12 Mar '11

12 Mar '11

Author: ehuelsmann Date: Sat Mar 12 15:25:40 2011 New Revision: 579 Log: Update branch version number, now that 0.5.0 has been tagged. Modified: usocket/branches/0.5.x/usocket.asd Modified: usocket/branches/0.5.x/usocket.asd ============================================================================== --- usocket/branches/0.5.x/usocket.asd (original) +++ usocket/branches/0.5.x/usocket.asd Sat Mar 12 15:25:40 2011 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.5.0" + :version "0.5.1" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (#+sbcl :sb-bsd-sockets)

1 0

← Newer
1
...
9
10
11
12
13
14
15
...
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