usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r278 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 25 Jul '07

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 16:07:31 2007 New Revision: 278 Modified: usocket/trunk/backend/sbcl.lisp Log: make_simple_base_string() takes ownership of the string. Don't use a stack allocated string, but rather, duplicate it on the heap using strndup(). And other fixes. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Jul 25 16:07:31 2007 @@ -45,10 +45,12 @@ "#ifndef FD_SETSIZE" "#define FD_SETSIZE 1024" "#endif" - "#include <winsock2.h>" - ) + "#include <winsock2.h>") + (ffi:clines - "#include <ecl/ecl-inl.h>") + "#include <ecl/ecl-inl.h>" + "#include <string.h>") + #+:prefixed-api (ffi:clines "#define CONS(x, y) ecl_cons((x), (y))" @@ -57,23 +59,22 @@ (ffi:clines "#define CONS(x, y) make_cons((x), (y))" "#define MAKE_INTEGER(x) make_integer((x))") - (defun fd-setsize () - (ffi:c-inline () () fixnum + (ffi:c-inline () () :fixnum "FD_SETSIZE" :one-liner t)) (defun get-host-name () (ffi:c-inline - () () t + () () :object "{ char buf[256]; int r = gethostname(&buf,256); if (r == 0) - @(return) = make_simple_base_string(&buf); + @(return) = make_simple_base_string(strndup(&buf,255)); else @(return) = Cnil; - }")) + }" :one-liner nil :side-effects nil)) (defun read-select (read-fds to-secs &optional (to-musecs 0)) (ffi:c-inline (read-fds to-secs to-musecs) (t t :unsigned-int) t

1 0

[usocket-cvs] r277 - usocket/branches/0.3.x/backend
by ehuelsmann＠common-lisp.net 25 Jul '07

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 15:28:12 2007 New Revision: 277 Modified: usocket/branches/0.3.x/backend/clisp.lisp Log: Merge r276 from trunk (fix clisp get-host-name). Modified: usocket/branches/0.3.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.3.x/backend/clisp.lisp (original) +++ usocket/branches/0.3.x/backend/clisp.lisp Wed Jul 25 15:28:12 2007 @@ -18,7 +18,7 @@ (defun get-host-name () (multiple-value-bind (retcode name) - (get-host-name-internal) + (get-host-name-internal 256) (when (= retcode 0) name)))

1 0

[usocket-cvs] r276 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 25 Jul '07

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 15:20:35 2007 New Revision: 276 Modified: usocket/trunk/backend/clisp.lisp Log: Fix get-host-name on clisp. Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Wed Jul 25 15:20:35 2007 @@ -18,7 +18,7 @@ (defun get-host-name () (multiple-value-bind (retcode name) - (get-host-name-internal) + (get-host-name-internal 256) (when (= retcode 0) name)))

1 0

[usocket-cvs] r275 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 24 Jul '07

24 Jul '07

Author: ehuelsmann Date: Tue Jul 24 17:34:38 2007 New Revision: 275 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix ECL to work both with current HEAD and the 9i(and possibly earlier) releases. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Tue Jul 24 17:34:38 2007 @@ -47,6 +47,17 @@ "#endif" "#include <winsock2.h>" ) + (ffi:clines + "#include <ecl/ecl-inl.h>") + #+:prefixed-api + (ffi:clines + "#define CONS(x, y) ecl_cons((x), (y))" + "#define MAKE_INTEGER(x) ecl_make_integer((x))") + #-:prefixed-api + (ffi:clines + "#define CONS(x, y) make_cons((x), (y))" + "#define MAKE_INTEGER(x) make_integer((x))") + (defun fd-setsize () (ffi:c-inline () () fixnum @@ -109,7 +120,7 @@ while (CONSP(cur_fd)) { int fd = fixint(cur_fd->cons.car); if (FD_ISSET(fd, &rfds)) - rv = make_cons(make_integer(fd), rv); + rv = CONS(MAKE_INTEGER(fd), rv); cur_fd = cur_fd->cons.cdr; }

1 0

[usocket-cvs] r274 - usocket/trunk
by ehuelsmann＠common-lisp.net 24 Jun '07

24 Jun '07

Author: ehuelsmann Date: Sun Jun 24 14:52:30 2007 New Revision: 274 Modified: usocket/trunk/package.lisp Log: Add missing symbols to the export list. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Sun Jun 24 14:52:30 2007 @@ -43,7 +43,11 @@ #:ip/= #:socket-condition ; conditions + #:ns-condition #:socket-error ; errors + #:ns-error #:unknown-condition - #:unknown-error))) + #:ns-unknown-condition + #:unknown-error + #:ns-unknown-error)))

1 0

[usocket-cvs] r273 - public_html
by ehuelsmann＠common-lisp.net 14 Jun '07

14 Jun '07

Author: ehuelsmann Date: Thu Jun 14 02:34:19 2007 New Revision: 273 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Jun 14 02:34:19 2007 @@ -316,7 +316,7 @@ <td class="WIP" title="missing on Win32">WIP</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="TODO">TODO</td> + <td class="DONE">DONE</td> </tr> <tr> <td rowspan="2">Implement more uncommon api calls

1 0

[usocket-cvs] r272 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 13 Jun '07

13 Jun '07

Author: ehuelsmann Date: Wed Jun 13 14:35:26 2007 New Revision: 272 Modified: usocket/trunk/backend/scl.lisp Log: SCL implementation of wait-for-input-internal, submitted by Douglas Crosher. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Wed Jun 13 14:35:26 2007 @@ -132,3 +132,37 @@ (defun get-host-name () (unix:unix-gethostname)) + +(defun wait-for-input-internal (sockets &key timeout) + (let* ((pollfd-size (alien:alien-size (alien:struct unix::pollfd) :bytes)) + (nfds (length sockets)) + (bytes (* nfds pollfd-size))) + (alien:with-bytes (fds-sap bytes) + (do ((sockets sockets (rest sockets)) + (base 0 (+ base 8))) + ((endp sockets)) + (let ((fd (socket (first sockets)))) + (setf (sys:sap-ref-32 fds-sap base) fd) + (setf (sys:sap-ref-16 fds-sap (+ base 4)) unix::pollin))) + (multiple-value-bind (result errno) + (let ((thread:*thread-whostate* "Poll wait") + (timeout (if timeout + (truncate (* timeout 1000)) + -1))) + (declare (inline unix:unix-poll)) + (unix:unix-poll (alien:sap-alien fds-sap + (* (alien:struct unix::pollfd))) + nfds timeout)) + (cond ((not result) + (error "~@<Polling error: ~A~:@>" + (unix:get-unix-error-msg errno))) + (t + (do ((sockets sockets (rest sockets)) + (base 0 (+ base 8)) + (ready nil)) + ((endp sockets) + (nreverse ready)) + (let ((flags (sys:sap-ref-16 fds-sap (+ base 6)))) + (unless (zerop (logand flags unix::pollin)) + (push (first sockets) ready)))))))))) +

1 0

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

08 Jun '07

Author: ehuelsmann Date: Fri Jun 8 17:36:59 2007 New Revision: 271 Modified: public_html/feature-comparison.shtml Log: xhtml compliance. another pass. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Fri Jun 8 17:36:59 2007 @@ -66,7 +66,7 @@ <td>Yes</td> <td>No</td> <td>No</td> - +</tr> <tr><th rowspan="5">Server socket creation</th> <th>Binding specific local port</th> <td colspan="9">Yes</td> @@ -82,7 +82,6 @@ <td>Yes</td> <td>No</td> <td>Yes</td> - </tr> <tr><th>Selectable backlog length</th> <td>No</td> @@ -94,7 +93,7 @@ <td>Yes</td> <td>No</td> <td>Yes</td> - +</tr> <tr><th>reuse-address</th> <td>Yes</td> <td>Yes</td> @@ -105,11 +104,11 @@ <td>Yes</td> <td>No*</td> <td>Yes*</td> - +</tr> <tr><th>:element-type for created connections</th> <td colspan="8">No</td> <td>Yes</td> - +</tr> <tr><th rowspan="5">Accepting connections</th> <th>:element-type for created stream</th> <td>Yes</td> @@ -121,7 +120,7 @@ <td>Yes</td> <td>Yes</td> <td>Yes*</td> - +</tr> <tr><th>:external-format for created stream</th> <td>No</td> <td>No</td>

1 0

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

08 Jun '07

Author: ehuelsmann Date: Fri Jun 8 17:35:33 2007 New Revision: 270 Modified: public_html/feature-comparison.shtml Log: xhtml compliance. another pass. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Fri Jun 8 17:35:33 2007 @@ -21,6 +21,7 @@ <div style="border:3px solid black;padding: 2px; margin: 0px"> <table style="border:1px solid black;" border="1" cellspacing="1"> +<tbody> <tr><th colspan="2">Feature</th> <th colspan="8">In trivial-sockets?</th><th rowspan="2">In usocket?</th></tr> <tr><th colspan="2"></th><th title="ArmedBear">ABCL</th> @@ -133,6 +134,7 @@ <td>No</td> </tr> +</tbody> </table> </div>

1 0

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

08 Jun '07

Author: ehuelsmann Date: Fri Jun 8 17:34:38 2007 New Revision: 269 Modified: public_html/feature-comparison.shtml Log: xhtml compliance. Thanks to attila_lendvai. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Fri Jun 8 17:34:38 2007 @@ -20,7 +20,7 @@ the former supplies consistent functionality for all backends.</p> <div style="border:3px solid black;padding: 2px; margin: 0px"> -<table style="border:1px solid black;" border=1 cellspacing=1> +<table style="border:1px solid black;" border="1" cellspacing="1"> <tr><th colspan="2">Feature</th> <th colspan="8">In trivial-sockets?</th><th rowspan="2">In usocket?</th></tr> <tr><th colspan="2"></th><th title="ArmedBear">ABCL</th>

1 0

← Newer
1
...
40
41
42
43
44
45
46
...
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