From ehuelsmann at common-lisp.net Tue Jul 24 21:34:39 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Tue, 24 Jul 2007 17:34:39 -0400 (EDT) Subject: [usocket-cvs] r275 - usocket/trunk/backend Message-ID: <20070724213439.7660C4818B@common-lisp.net> 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 " ) + (ffi:clines + "#include ") + #+: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; } From ehuelsmann at common-lisp.net Wed Jul 25 19:20:36 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 15:20:36 -0400 (EDT) Subject: [usocket-cvs] r276 - usocket/trunk/backend Message-ID: <20070725192036.48EF24E01E@common-lisp.net> 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))) From ehuelsmann at common-lisp.net Wed Jul 25 19:28:12 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 15:28:12 -0400 (EDT) Subject: [usocket-cvs] r277 - usocket/branches/0.3.x/backend Message-ID: <20070725192812.CDEE08307F@common-lisp.net> 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))) From ehuelsmann at common-lisp.net Wed Jul 25 20:07:32 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 16:07:32 -0400 (EDT) Subject: [usocket-cvs] r278 - usocket/trunk/backend Message-ID: <20070725200732.9FD267208F@common-lisp.net> 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 " - ) + "#include ") + (ffi:clines - "#include ") + "#include " + "#include ") + #+: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 From ehuelsmann at common-lisp.net Wed Jul 25 20:56:39 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 16:56:39 -0400 (EDT) Subject: [usocket-cvs] r279 - usocket/branches/0.3.x/backend Message-ID: <20070725205639.98EBA50034@common-lisp.net> 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 " #+:wsock "#include " + + "#include " ) (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))) From ehuelsmann at common-lisp.net Wed Jul 25 21:01:31 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 17:01:31 -0400 (EDT) Subject: [usocket-cvs] r280 - usocket/tags/0.3.4 Message-ID: <20070725210131.DD6D859088@common-lisp.net> 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 From ehuelsmann at common-lisp.net Wed Jul 25 21:06:57 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 17:06:57 -0400 (EDT) Subject: [usocket-cvs] r281 - in public_html: . releases Message-ID: <20070725210657.5694A61044@common-lisp.net> 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 @@ + + +
Release history
DateReleaseSummary
Jul 25, 20070.3.4Fix clisp get-host-name, multiple ECL fixes.
Jun 05, 2007 0.3.3 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----- From ehuelsmann at common-lisp.net Wed Jul 25 21:07:23 2007 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Wed, 25 Jul 2007 17:07:23 -0400 (EDT) Subject: [usocket-cvs] r282 - usocket/branches/0.3.x Message-ID: <20070725210723.3F82C61044@common-lisp.net> 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