August 2008 - usocket-cvs@common-lisp.net

[usocket-cvs] r423 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 08 Aug '08

08 Aug '08

Author: ehuelsmann Date: Fri Aug 8 17:08:41 2008 New Revision: 423 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix the fixed fix. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 17:08:41 2008 @@ -334,8 +334,8 @@ (multiple-value-bind (count err) (sb-unix:unix-fast-select - (1+ (reduce #'max (wait-list-%wait sockets)) - :key #'sb-bsd-sockets:socket-file-descriptor) + (1+ (reduce #'max (wait-list-%wait sockets) + :key #'sb-bsd-sockets:socket-file-descriptor)) (sb-alien:addr rfds) nil nil (when timeout secs) musecs) (if (null count)

1 0

[usocket-cvs] r422 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 08 Aug '08

08 Aug '08

Author: ehuelsmann Date: Fri Aug 8 17:02:48 2008 New Revision: 422 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix the fixed fix. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 17:02:48 2008 @@ -343,9 +343,11 @@ (error (map-errno-error err))) (when (< 0 count) ;; process the result... - (dolist (x (wait-list-%wait sockets)) + (dolist (x (wait-list-waiters sockets)) (when (sb-unix:fd-isset - (sb-bsd-sockets:socket-file-descriptor x) rfds) + (sb-bsd-sockets:socket-file-descriptor + (socket x)) + rfds) (setf (state x) :READ)))))))))) #+win32

1 0

[usocket-cvs] r421 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 08 Aug '08

08 Aug '08

Author: ehuelsmann Date: Fri Aug 8 16:22:59 2008 New Revision: 421 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix the fixed fix. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 16:22:59 2008 @@ -335,7 +335,7 @@ (count err) (sb-unix:unix-fast-select (1+ (reduce #'max (wait-list-%wait sockets)) - :key #'sb-bsd-sockets:socket-file-descriptor)) + :key #'sb-bsd-sockets:socket-file-descriptor) (sb-alien:addr rfds) nil nil (when timeout secs) musecs) (if (null count) @@ -346,7 +346,7 @@ (dolist (x (wait-list-%wait sockets)) (when (sb-unix:fd-isset (sb-bsd-sockets:socket-file-descriptor x) rfds) - (setf (state x) :READ))))))))) + (setf (state x) :READ)))))))))) #+win32 (warn "wait-for-input not (yet!) supported...")

1 0

[usocket-cvs] r420 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 08 Aug '08

08 Aug '08

Author: ehuelsmann Date: Fri Aug 8 16:21:32 2008 New Revision: 420 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix the fix. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 16:21:32 2008 @@ -346,7 +346,7 @@ (dolist (x (wait-list-%wait sockets)) (when (sb-unix:fd-isset (sb-bsd-sockets:socket-file-descriptor x) rfds) - (setf (state x) :READ)))))))))) + (setf (state x) :READ))))))))) #+win32 (warn "wait-for-input not (yet!) supported...")

1 0

[usocket-cvs] r419 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 08 Aug '08

08 Aug '08

Author: ehuelsmann Date: Fri Aug 8 16:19:42 2008 New Revision: 419 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix SBCL waiting backend. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 16:19:42 2008 @@ -334,7 +334,7 @@ (multiple-value-bind (count err) (sb-unix:unix-fast-select - (1+ (reduce #'max (mapcar #'socket (wait-list-waiters sockets)) + (1+ (reduce #'max (wait-list-%wait sockets)) :key #'sb-bsd-sockets:socket-file-descriptor)) (sb-alien:addr rfds) nil nil (when timeout secs) musecs) @@ -343,10 +343,9 @@ (error (map-errno-error err))) (when (< 0 count) ;; process the result... - (dolist (x (wait-list-waiters sockets)) - (when (not (sb-unix:fd-isset - (sb-bsd-sockets:socket-file-descriptor (socket x)) - rfds)) + (dolist (x (wait-list-%wait sockets)) + (when (sb-unix:fd-isset + (sb-bsd-sockets:socket-file-descriptor x) rfds) (setf (state x) :READ)))))))))) #+win32

1 0

[usocket-cvs] r418 - usocket/branches/0.4.x/backend
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 16:32:59 2008 New Revision: 418 Modified: usocket/branches/0.4.x/backend/openmcl.lisp Log: Merge c414 from trunk (fix for CCL/OpenMCL backend). Modified: usocket/branches/0.4.x/backend/openmcl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/openmcl.lisp (original) +++ usocket/branches/0.4.x/backend/openmcl.lisp Thu Aug 7 16:32:59 2008 @@ -164,10 +164,9 @@ (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions () (let* ((ticks-timeout (truncate (* (or timeout 1) - ccl::*ticks-per-second*))) - (active-internal-sockets - (input-available-p (wait-list-waiters wait-list) - (when timeout ticks-timeout)))) + ccl::*ticks-per-second*)))) + (input-available-p (wait-list-waiters wait-list) + (when timeout ticks-timeout)) wait-list)))

1 0

[usocket-cvs] r417 - public_html
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 16:29:51 2008 New Revision: 417 Modified: public_html/api-docs.shtml Log: More xhtml compliance. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Thu Aug 7 16:29:51 2008 @@ -103,7 +103,7 @@ <dt class="sym">get-local-name socket => address, port get-local-name socket => address get-local-port socket => port</dt> -<dd>Returns the local address and/or port information of socket.</dd> +<dd>Returns the local address and/or port information of socket.</dd> <dt class="sym">get-peer-name socket => address, port get-peer-name socket => address

1 0

[usocket-cvs] r416 - public_html
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 16:28:36 2008 New Revision: 416 Modified: public_html/api-docs.shtml Log: Further explanation and xhtml compliance. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Thu Aug 7 16:28:36 2008 @@ -108,7 +108,8 @@ <dt class="sym">get-peer-name socket => address, port get-peer-name socket => address get-peer-port socket => port</dt> -<dd>Returns the remote address and/or port information of socket.</dd> +<dd>Returns the remote address and/or port information of socket. + The socket passed to this function must be a connected socket.</dd> </dl>

1 0

[usocket-cvs] r415 - public_html
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 16:25:39 2008 New Revision: 415 Modified: public_html/api-docs.shtml Log: Document information retrieval functions. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Thu Aug 7 16:25:39 2008 @@ -100,19 +100,16 @@ <dt class="sym">socket-close socket</dt> <dd>Flushes the stream associated with the socket and closes the socket connection.</dd> +<dt class="sym">get-local-name socket => address, port +get-local-name socket => address +get-local-port socket => port</dt> +<dd>Returns the local address and/or port information of socket.</dd> + +<dt class="sym">get-peer-name socket => address, port +get-peer-name socket => address +get-peer-port socket => port</dt> +<dd>Returns the remote address and/or port information of socket.</dd> - </dl>

1 0

[usocket-cvs] r414 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 14:50:26 2008 New Revision: 414 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix CCL backend. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Thu Aug 7 14:50:26 2008 @@ -164,10 +164,9 @@ (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions () (let* ((ticks-timeout (truncate (* (or timeout 1) - ccl::*ticks-per-second*))) - (active-internal-sockets - (input-available-p (wait-list-waiters wait-list) - (when timeout ticks-timeout)))) + ccl::*ticks-per-second*)))) + (input-available-p (wait-list-waiters wait-list) + (when timeout ticks-timeout)) wait-list)))

1 0