July 2007 - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

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

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 17:07:23 2007 New Revision: 282 Modified: usocket/branches/0.3.x/usocket.asd Log: Bump development 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 Jul 25 17:07:23 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.4-dev" + :version "0.3.5-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r281 - in public_html: . releases
by ehuelsmann＠common-lisp.net 25 Jul '07

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 17:06:55 2007 New Revision: 281 Added: public_html/releases/usocket-0.3.4.tar.gz (contents, props changed) public_html/releases/usocket-0.3.4.tar.gz.asc Modified: public_html/index.shtml Log: Publish 0.3.4 release. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Wed Jul 25 17:06:55 2007 @@ -391,6 +391,9 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Jul 25, 2007</td> + <td>0.3.4</td> + <td>Fix clisp get-host-name, multiple ECL fixes.</td></tr> <tr><td>Jun 05, 2007</td> <td>0.3.3</td> <td>Fix where host resolution routine was unable to resolve would return Added: public_html/releases/usocket-0.3.4.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.3.4.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.3.4.tar.gz.asc Wed Jul 25 17:06:55 2007 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.6 (GNU/Linux) + +iD8DBQBGp7poi5O0Epaz9TkRAquYAJ0caUuBSktNHDyOm70Ob5iFQolOSQCfbA2x +HvXP91yO10XdOfmSjh0TWCA= +=u4fI +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r280 - usocket/tags/0.3.4
by ehuelsmann＠common-lisp.net 25 Jul '07

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 17:01:31 2007 New Revision: 280 Added: usocket/tags/0.3.4/ - copied from r279, usocket/branches/0.3.x/ Modified: usocket/tags/0.3.4/usocket.asd Log: Create 0.3.4 tag. Modified: usocket/tags/0.3.4/usocket.asd ============================================================================== --- usocket/branches/0.3.x/usocket.asd (original) +++ usocket/tags/0.3.4/usocket.asd Wed Jul 25 17:01:31 2007 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.3.4-dev" + :version "0.3.4" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

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

25 Jul '07

Author: ehuelsmann Date: Wed Jul 25 16:56:39 2007 New Revision: 279 Modified: usocket/branches/0.3.x/backend/sbcl.lisp Log: Backport r278 from trunk (fix use of stack allocated value in ECL). Modified: usocket/branches/0.3.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/sbcl.lisp (original) +++ usocket/branches/0.3.x/backend/sbcl.lisp Wed Jul 25 16:56:39 2007 @@ -42,19 +42,21 @@ "#include <sys/socket.h>" #+:wsock "#include <winsock2.h>" + + "#include <string.h>" ) (defun get-host-name () (ffi:c-inline - () () t + () () :object "{ char buf[256]; - int r = gethostname(&buf,256); + int = 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 map-socket-error (sock-err) (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err)))

1 0

[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