December 2012 - usocket-cvs@common-lisp.net

[usocket-cvs] r712 - public_html/releases
by ctian＠common-lisp.net 27 Dec '12

27 Dec '12

Author: ctian Date: Wed Dec 26 19:16:06 2012 New Revision: 712 Log: [release] usocket-0.6.0.1 Added: public_html/releases/usocket-0.6.0.1.tar.gz (contents, props changed) public_html/releases/usocket-0.6.0.1.tar.gz.asc Modified: public_html/releases/usocket-latest.tar.gz public_html/releases/usocket-latest.tar.gz.asc Added: public_html/releases/usocket-0.6.0.1.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.6.0.1.tar.gz.asc ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ public_html/releases/usocket-0.6.0.1.tar.gz.asc Wed Dec 26 19:16:06 2012 (r712) @@ -0,0 +1,8 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG/MacGPG2 v2.0.18 (Darwin) +Comment: GPGTools - http://gpgtools.org + +iEYEABECAAYFAlDbvWAACgkQny6v4+l8uLADQwCePofB6O4uVSe0r8+O8k42RwOH +a2cAoMyOeNRMZiph3AcSpF5tWwU7CsmW +=G038 +-----END PGP SIGNATURE----- Modified: public_html/releases/usocket-latest.tar.gz ============================================================================== --- public_html/releases/usocket-latest.tar.gz Wed Dec 26 19:13:54 2012 (r711) +++ public_html/releases/usocket-latest.tar.gz Wed Dec 26 19:16:06 2012 (r712) @@ -1 +1 @@ -link usocket-0.6.0.tar.gz \ No newline at end of file +link usocket-0.6.0.1.tar.gz \ No newline at end of file Modified: public_html/releases/usocket-latest.tar.gz.asc ============================================================================== --- public_html/releases/usocket-latest.tar.gz.asc Wed Dec 26 19:13:54 2012 (r711) +++ public_html/releases/usocket-latest.tar.gz.asc Wed Dec 26 19:16:06 2012 (r712) @@ -1 +1 @@ -link usocket-0.6.0.tar.gz.asc \ No newline at end of file +link usocket-0.6.0.1.tar.gz.asc \ No newline at end of file

1 0

[usocket-cvs] r711 - usocket/tags/0.6.0.1
by ctian＠common-lisp.net 27 Dec '12

27 Dec '12

Author: ctian Date: Wed Dec 26 19:13:54 2012 New Revision: 711 Log: Created tag 0.6.0.1. Added: usocket/tags/0.6.0.1/ - copied from r710, usocket/trunk/

1 0

[usocket-cvs] r710 - usocket/trunk
by ctian＠common-lisp.net 27 Dec '12

27 Dec '12

Author: ctian Date: Wed Dec 26 19:13:03 2012 New Revision: 710 Log: [ECL] fixed compiling in ECL, there's no sb-bsd-sockets:sockopt-broadcast in ECL!!! Modified: usocket/trunk/option.lisp Modified: usocket/trunk/option.lisp ============================================================================== --- usocket/trunk/option.lisp Wed Dec 26 07:47:31 2012 (r709) +++ usocket/trunk/option.lisp Wed Dec 26 19:13:03 2012 (r710) @@ -166,11 +166,13 @@ (int->bool (get-socket-option-broadcast socket)) #+cmu () ; TODO + #+ecl + () ; TODO #+lispworks () ; TODO #+mcl () ; TODO - #+(or ecl sbcl) + #+sbcl (sb-bsd-sockets:sockopt-broadcast socket) #+scl ())) ; TODO @@ -190,11 +192,13 @@ (set-socket-option-broadcast socket (bool->int new-value)) #+cmu () ; TODO + #+ecl + () ; TODO #+lispworks () ; TODO #+mcl () ; TODO - #+(or ecl sbcl) + #+sbcl (setf (sb-bsd-sockets:sockopt-broadcast socket) new-value) #+scl () ; TODO

1 0

[usocket-cvs] r709 - in public_html: . releases
by ctian＠common-lisp.net 26 Dec '12

26 Dec '12

Author: ctian Date: Wed Dec 26 07:47:31 2012 New Revision: 709 Log: [release] usocket-0.6.0 Added: public_html/releases/usocket-0.6.0.tar.gz (contents, props changed) public_html/releases/usocket-0.6.0.tar.gz.asc Modified: public_html/index.shtml public_html/releases/usocket-latest.tar.gz public_html/releases/usocket-latest.tar.gz.asc Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml Wed Dec 26 07:30:35 2012 (r708) +++ public_html/index.shtml Wed Dec 26 07:47:31 2012 (r709) @@ -29,10 +29,9 @@ <p>Because <a href="http://cliki.net/trivial-sockets">trivial-sockets</a> has been declared dead and its author has said he will declare usocket its successor if there is a zero effort path of migration, - I'm <b>also - working - on <em>trivial-usocket</em></b> which is supposed to be a - sub-optimal, but zero effort migration from trivial-sockets.</p> + I'm <b>also working on <em>trivial-usocket</em></b> which is + supposed to be a sub-optimal, but zero effort migration from + trivial-sockets.</p> <p>If your lisp isn't mentioned in the list below, please feel free to submit a request for it at the mailing list mentioned below.</p> <h3>Comparison to other socket libraries</h3> @@ -51,6 +50,7 @@ <h2><a name="documentation">Documentation</a></h2> <p>See the documentation page for the <a href="./api-docs.shtml">API + description</a>.</p> <h2><a name="implementations">Supported implementations</a></h2> <p>Currently these implementations are supported:</p> @@ -96,6 +96,7 @@ <p><a href="http://common-lisp.net/websvn/log.php?repname=usocket&path=%2Fusocket%2…">Active + development</a> is taking place in the <a href="http://subversion.tigris.org/">Subversion</a> repository. To be kept up to date, please <a @@ -106,6 +107,7 @@ message mailing + list</a>. To use the latest development version, make sure you have <a href="http://subversion.tigris.org/">Subversion</a> installed and execute this command: </p> @@ -141,6 +143,7 @@ + <br> </a></th> <th><a @@ -160,6 +163,7 @@ <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Investigate + interfaces provided.</a></td> <td class="DONE">DONE</td>  <td class="DONE">DONE</td> @@ -232,6 +236,7 @@ <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Investigate + interfaces provided</a></td> <td class="DONE">DONE</td>  <td class="DONE">DONE</td> @@ -317,6 +322,7 @@ <td><a href="http://trac.common-lisp.net/usocket/wiki/SocketSelect">Investigate + interfaces provided</a></td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> @@ -375,6 +381,7 @@ <td><a href="http://trac.common-lisp.net/usocket/wiki/DatagramSockets">Investigate + API's provided</a></td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> @@ -420,6 +427,15 @@ <th>Summary</th> </tr> <tr> + <td valign="top">Dec 26, 2012<br> + </td> + <td valign="top"><b>0.6.0</b><br> + </td> + <td valign="top"><b>New API: SOCKET-OPTION</b>; Add support + for ECL DFFI mode; bugfix for LispWorks, CLISP, ABCL, ECL.<br> + </td> + </tr> + <tr> <td style="vertical-align: top;">Feb 27, 2012<br> </td> <td style="vertical-align: top;">0.5.5<br> @@ -562,7 +578,7 @@ </tr> <tr> <td>Dec 18, 2006</td> - <td>0.2.0</td> + <td><b>0.2.0</b></td> <td>Add support for <a href="http://www.scieneer.com/scl/index.html">Scieneer Common Lisp</a>, fix <a @@ -594,6 +610,7 @@ <div style="float: left; font-size: x-small; font-weight: bold;">Back to + <a href="http://common-lisp.net/">Common-lisp.net</a>. </div> <div class="check" style="float: right;"> <a href="http://validator.w3.org/check/referer">Valid XHTML 1.0 Added: public_html/releases/usocket-0.6.0.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.6.0.tar.gz.asc ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ public_html/releases/usocket-0.6.0.tar.gz.asc Wed Dec 26 07:47:31 2012 (r709) @@ -0,0 +1,8 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG/MacGPG2 v2.0.18 (Darwin) +Comment: GPGTools - http://gpgtools.org + +iEYEABECAAYFAlDbG8UACgkQny6v4+l8uLAyGQCfX1G3mHXTYTnvweG0nyppqmPQ +mD8An1ids1vVVVzcayOQQD0crsFKL8q3 +=CBJU +-----END PGP SIGNATURE----- Modified: public_html/releases/usocket-latest.tar.gz ============================================================================== --- public_html/releases/usocket-latest.tar.gz Wed Dec 26 07:30:35 2012 (r708) +++ public_html/releases/usocket-latest.tar.gz Wed Dec 26 07:47:31 2012 (r709) @@ -1 +1 @@ -link usocket-0.5.5.tar.gz \ No newline at end of file +link usocket-0.6.0.tar.gz \ No newline at end of file Modified: public_html/releases/usocket-latest.tar.gz.asc ============================================================================== --- public_html/releases/usocket-latest.tar.gz.asc Wed Dec 26 07:30:35 2012 (r708) +++ public_html/releases/usocket-latest.tar.gz.asc Wed Dec 26 07:47:31 2012 (r709) @@ -1 +1 @@ -link usocket-0.5.5.tar.gz.asc \ No newline at end of file +link usocket-0.6.0.tar.gz.asc \ No newline at end of file

1 0

[usocket-cvs] r708 - usocket/tags/0.6.0
by ctian＠common-lisp.net 26 Dec '12

26 Dec '12

Author: ctian Date: Wed Dec 26 07:30:35 2012 New Revision: 708 Log: Created tag 0.6.0. Added: usocket/tags/0.6.0/ - copied from r707, usocket/trunk/

1 0

[usocket-cvs] r707 - in usocket/trunk: . backend
by ctian＠common-lisp.net 26 Dec '12

26 Dec '12

Author: ctian Date: Wed Dec 26 07:25:06 2012 New Revision: 707 Log: Improved SOCKET-OPTION support (for LispWorks, ECL, ...) (preparing for release) Modified: usocket/trunk/CHANGES usocket/trunk/backend/lispworks.lisp usocket/trunk/option.lisp Modified: usocket/trunk/CHANGES ============================================================================== --- usocket/trunk/CHANGES Mon Dec 10 22:24:47 2012 (r706) +++ usocket/trunk/CHANGES Wed Dec 26 07:25:06 2012 (r707) @@ -2,9 +2,11 @@ * New feature: SOCKET-OPTION and (setf SOCKET-OPTION) for seting and geting various socket options. * New feature: SOCKET-SEND now support an CCL-like OFFSET keyword for sending only parts of the whole buffer. -* New feature: SOCKET-SHUTDOWN for TCP and UDP sockets. -* New feature: [ECL] Added support for ECL DFFI mode on Windows. (no need for C compilers) -* Enhancement: [ECL] ECL now list sb-bsd-sockets as a dependency, but rather relies on REQUIRE. Patched from Juanjo. +* New feature: [ECL] Added support for ECL DFFI mode on Windows. (no need for C compilers now) +* Bugfix: [ECL] ECL now list sb-bsd-sockets as a dependency but relies on REQUIRE. (patched by Juanjo) +* Bugfix: [ABCL] Make USOCKET compile warning-free on ABCL again: MAKE-IMMEDIATE-OBJECT was deprecated a while ago in favor of 2 predefined constants. +* Bugfix: [LispWorks] remove redundant call to hcl:flag-special-free-action. (reported by Kamil Shakirov) +* Bugfix: [CLISP] improved HANDLE-CONDITION for more CLISP environments. 0.5.5: @@ -66,3 +68,4 @@ * New feature: CLISP support some advanced TCP features which CLISP's SOCKET interface not provide * New feature: Macintosh Common Lisp (MCL) support Datagram sockets (UDP) +* New feature: SOCKET-SHUTDOWN for TCP and UDP sockets. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp Mon Dec 10 22:24:47 2012 (r706) +++ usocket/trunk/backend/lispworks.lisp Wed Dec 26 07:25:06 2012 (r707) @@ -155,7 +155,7 @@ seconds))) #-win32 -(defmethod get-socket-receive-timeout (socket-fd) +(defun get-socket-receive-timeout (socket-fd) "Get socket option: RCVTIMEO, return value is a float number" (declare (type integer socket-fd)) (fli:with-dynamic-foreign-objects ((timeout (:struct timeval)) @@ -170,7 +170,7 @@ (float (+ tv-sec (/ tv-usec 1000000)))))) #+win32 -(defmethod get-socket-receive-timeout (socket-fd) +(defun get-socket-receive-timeout (socket-fd) "Get socket option: RCVTIMEO, return value is a float number" (declare (type integer socket-fd)) (fli:with-dynamic-foreign-objects ((timeout :int) @@ -789,3 +789,27 @@ waiter)) ) ; end of WIN32-block + +(defun set-socket-reuse-address (socket-fd reuse-address-p) + (declare (type integer socket-fd) + (type boolean reuse-address-p)) + (fli:with-dynamic-foreign-objects ((value :int)) + (setf (fli:dereference value) (if reuse-address-p 1 0)) + (if (zerop (comm::setsockopt socket-fd + comm::*sockopt_sol_socket* + comm::*sockopt_so_reuseaddr* + (fli:copy-pointer value + :type '(:pointer :void)) + (fli:size-of :int))) + reuse-address-p))) + +(defun get-socket-reuse-address (socket-fd) + (declare (type integer socket-fd)) + (fli:with-dynamic-foreign-objects ((value :int) (len :int)) + (if (zerop (comm::getsockopt socket-fd + comm::*sockopt_sol_socket* + comm::*sockopt_so_reuseaddr* + (fli:copy-pointer value + :type '(:pointer :void)) + len)) + (= 1 (fli:dereference value))))) Modified: usocket/trunk/option.lisp ============================================================================== --- usocket/trunk/option.lisp Mon Dec 10 22:24:47 2012 (r706) +++ usocket/trunk/option.lisp Wed Dec 26 07:25:06 2012 (r707) @@ -1,13 +1,17 @@ ;;;; $Id$ ;;;; $URL$ -;;;; SOCKET-OPTION, a high-level socket option get/set facility -;;;; Author: Chun Tian (binghe) +;;;; SOCKET-OPTION, a high-level socket option get/set framework ;;;; See LICENSE for licensing information. (in-package :usocket) +;;; Small utility functions +(declaim (inline bool->int) (inline int->bool)) +(defun bool->int (bool) (if bool 1 0)) +(defun int->bool (int) (= 1 int)) + ;;; Interface definition (defgeneric socket-option (socket option &key) @@ -62,7 +66,7 @@ #+sbcl (sb-impl::fd-stream-timeout (socket-stream usocket)) #+scl - ())) + ())) ; TODO (defmethod (setf socket-option) (new-value (usocket stream-usocket) (option (eql :receive-timeout)) &key) @@ -91,13 +95,9 @@ (setf (sb-impl::fd-stream-timeout (socket-stream usocket)) (coerce timeout 'single-float)) #+scl - () + () ; TODO new-value)) -(declaim (inline lisp->c) (inline lisp<-c)) -(defun lisp->c (bool) (if bool 1 0)) -(defun lisp<-c (int) (= 1 int)) - ;;; Socket option: REUSE-ADDRESS (SO_REUSEADDR), for TCP server (defmethod socket-option ((usocket stream-server-usocket) @@ -106,25 +106,23 @@ (let ((socket (socket usocket))) (declare (ignorable socket)) #+abcl - () + () ; TODO #+allegro - () + () ; TODO #+clisp - (lisp<-c (socket:socket-options socket :so-reuseaddr)) + (int->bool (socket:socket-options socket :so-reuseaddr)) #+clozure - (lisp<-c (get-socket-option-reuseaddr socket)) + (int->bool (get-socket-option-reuseaddr socket)) #+cmu - () - #+ecl - () + () ; TODO #+lispworks - () + (get-socket-reuse-address socket) #+mcl - () - #+sbcl + () ; TODO + #+(or ecl sbcl) (sb-bsd-sockets:sockopt-reuse-address socket) #+scl - ())) + ())) ; TODO (defmethod (setf socket-option) (new-value (usocket stream-server-usocket) (option (eql :reuse-address)) &key) @@ -132,25 +130,23 @@ (let ((socket (socket usocket))) (declare (ignorable socket)) #+abcl - () - #+alloero - () + () ; TODO + #+allegro + (socket:set-socket-options socket option new-value) #+clisp - (socket:socket-options socket :so-reuseaddr (lisp->c new-value)) + (socket:socket-options socket :so-reuseaddr (bool->int new-value)) #+clozure - (set-socket-option-reuseaddr socket (lisp->c new-value)) + (set-socket-option-reuseaddr socket (bool->int new-value)) #+cmu - () - #+ecl - () + () ; TODO #+lispworks - () + (set-socket-reuse-address socket new-value) #+mcl - () - #+sbcl + () ; TODO + #+(or ecl sbcl) (setf (sb-bsd-sockets:sockopt-reuse-address socket) new-value) #+scl - () + () ; TODO new-value)) ;;; Socket option: BROADCAST (SO_BROADCAST), for UDP client @@ -161,25 +157,23 @@ (let ((socket (socket usocket))) (declare (ignorable socket)) #+abcl - () - #+alloero - () + () ; TODO + #+allegro + () ; TODO #+clisp - (lisp<-c (socket:socket-options socket :so-broadcast)) + (int->bool (socket:socket-options socket :so-broadcast)) #+clozure - (lisp<-c (get-socket-option-broadcast socket)) + (int->bool (get-socket-option-broadcast socket)) #+cmu - () - #+ecl - () + () ; TODO #+lispworks - () + () ; TODO #+mcl - () - #+sbcl + () ; TODO + #+(or ecl sbcl) (sb-bsd-sockets:sockopt-broadcast socket) #+scl - ())) + ())) ; TODO (defmethod (setf socket-option) (new-value (usocket datagram-usocket) (option (eql :broadcast)) &key) @@ -187,23 +181,21 @@ (let ((socket (socket usocket))) (declare (ignorable socket)) #+abcl - () - #+alloero - () + () ; TODO + #+allegro + (socket:set-socket-options socket option new-value) #+clisp - (socket:socket-options socket :so-broadcast (lisp->c new-value)) + (socket:socket-options socket :so-broadcast (bool->int new-value)) #+clozure - (set-socket-option-broadcast socket (lisp->c new-value)) + (set-socket-option-broadcast socket (bool->int new-value)) #+cmu - () - #+ecl - () + () ; TODO #+lispworks - () + () ; TODO #+mcl - () - #+sbcl + () ; TODO + #+(or ecl sbcl) (setf (sb-bsd-sockets:sockopt-broadcast socket) new-value) #+scl - () + () ; TODO new-value))

1 0

[usocket-cvs] r706 - in usocket/trunk: backend vendor
by ctian＠common-lisp.net 11 Dec '12

11 Dec '12

Author: ctian Date: Mon Dec 10 22:24:47 2012 New Revision: 706 Log: [MCL] Fixed OpenTransport load order for UDP patch. Modified: usocket/trunk/backend/mcl.lisp usocket/trunk/vendor/OpenTransportUDP.lisp Modified: usocket/trunk/backend/mcl.lisp ============================================================================== --- usocket/trunk/backend/mcl.lisp Mon Dec 10 07:14:33 2012 (r705) +++ usocket/trunk/backend/mcl.lisp Mon Dec 10 22:24:47 2012 (r706) @@ -4,51 +4,6 @@ ;; MCL backend for USOCKET 0.4.1 ;; Terje Norderhaug <terje(a)in-progress.com>, January 1, 2009 -(in-package :ccl) - -(eval-when (:compile-toplevel :load-toplevel :execute) - (require :opentransport)) - -;; MCL Issue 28: Passive TCP streams should be able to listen to the loopback interface -;; see http://code.google.com/p/mcl/issues/detail?id=28 for details - -(defparameter *passive-interface-address* NIL - "Address to use for passive connections - optionally bind to loopback address while opening a tcp stream") - -(advise local-interface-ip-address - (or *passive-interface-address* (:do-it)) - :when :around :name 'override-local-interface-ip-address) - -;; MCL Issue 29: Passive TCP connections on OS assigned ports -;; see http://code.google.com/p/mcl/issues/detail?id=29 for details -(advise ot-conn-tcp-passive-connect - (destructuring-bind (conn port &optional (allow-reuse t)) arglist - (declare (ignore allow-reuse)) - (if (eql port #$kOTAnyInetAddress) - ;; Avoids registering a proxy for port 0 but instead registers one for the true port: - (multiple-value-bind (proxy result) - (let* ((*opentransport-class-proxies* NIL) ; makes ot-find-proxy return NIL - (result (:do-it)) ;; pushes onto *opentransport-class-proxies* - (proxy (prog1 - (pop *opentransport-class-proxies*) - (assert (not *opentransport-class-proxies*)))) - (context (cdr proxy)) - (tmpconn (make-ot-conn :context context - :endpoint (pref context :ot-context.ref))) - (localaddress (ot-conn-tcp-get-addresses tmpconn))) - (declare (dynamic-extent tmpconn)) - ;; replace original set in body of function - (setf (ot-conn-local-address conn) localaddress) - (values - (cons localaddress context) - result)) - ;; need to be outside local binding of *opentransport-class-proxies* - (without-interrupts - (push proxy *opentransport-class-proxies*)) - result) - (:do-it))) - :when :around :name 'ot-conn-tcp-passive-connect-any-address) - (in-package :usocket) (defun handle-condition (condition &optional socket) Modified: usocket/trunk/vendor/OpenTransportUDP.lisp ============================================================================== --- usocket/trunk/vendor/OpenTransportUDP.lisp Mon Dec 10 07:14:33 2012 (r705) +++ usocket/trunk/vendor/OpenTransportUDP.lisp Mon Dec 10 22:24:47 2012 (r706) @@ -1,9 +1,51 @@ ;;;-*-Mode: LISP; Package: CCL -*- ;; ;;; OpenTransportUDP.lisp -;;; Copyright 2012 Chun Tian (binghe) +;;; Copyright 2012 Chun Tian (binghe) <binghe.lisp(a)gmail.com> -;;; UDP extension to OpenTransport.lisp +;;; UDP extension to OpenTransport.lisp (with some TCP patches) (in-package "CCL") +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :opentransport)) + +;; MCL Issue 28: Passive TCP streams should be able to listen to the loopback interface +;; see http://code.google.com/p/mcl/issues/detail?id=28 for details + +(defparameter *passive-interface-address* NIL + "Address to use for passive connections - optionally bind to loopback address while opening a tcp stream") + +(advise local-interface-ip-address + (or *passive-interface-address* (:do-it)) + :when :around :name 'override-local-interface-ip-address) + +;; MCL Issue 29: Passive TCP connections on OS assigned ports +;; see http://code.google.com/p/mcl/issues/detail?id=29 for details +(advise ot-conn-tcp-passive-connect + (destructuring-bind (conn port &optional (allow-reuse t)) arglist + (declare (ignore allow-reuse)) + (if (eql port #$kOTAnyInetAddress) + ;; Avoids registering a proxy for port 0 but instead registers one for the true port: + (multiple-value-bind (proxy result) + (let* ((*opentransport-class-proxies* NIL) ; makes ot-find-proxy return NIL + (result (:do-it)) ;; pushes onto *opentransport-class-proxies* + (proxy (prog1 + (pop *opentransport-class-proxies*) + (assert (not *opentransport-class-proxies*)))) + (context (cdr proxy)) + (tmpconn (make-ot-conn :context context + :endpoint (pref context :ot-context.ref))) + (localaddress (ot-conn-tcp-get-addresses tmpconn))) + (declare (dynamic-extent tmpconn)) + ;; replace original set in body of function + (setf (ot-conn-local-address conn) localaddress) + (values + (cons localaddress context) + result)) + ;; need to be outside local binding of *opentransport-class-proxies* + (without-interrupts + (push proxy *opentransport-class-proxies*)) + result) + (:do-it))) + :when :around :name 'ot-conn-tcp-passive-connect-any-address)

1 0

[usocket-cvs] r705 - in usocket/trunk: . vendor
by ctian＠common-lisp.net 10 Dec '12

10 Dec '12

Author: ctian Date: Mon Dec 10 07:14:33 2012 New Revision: 705 Log: [MCL] Add basic file framework for UDP support. Added: usocket/trunk/vendor/OpenTransportUDP.lisp (contents, props changed) Modified: usocket/trunk/usocket.asd Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd Sun Dec 9 22:01:56 2012 (r704) +++ usocket/trunk/usocket.asd Mon Dec 10 07:14:33 2012 (r705) @@ -16,6 +16,7 @@ (:module "vendor" :depends-on ("package") :components ((:file "split-sequence") #+mcl (:file "kqueue") + #+mcl (:file "OpenTransportUDP") (:file "spawn-thread"))) (:file "usocket" :depends-on ("vendor")) (:file "condition" :depends-on ("usocket")) Added: usocket/trunk/vendor/OpenTransportUDP.lisp ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ usocket/trunk/vendor/OpenTransportUDP.lisp Mon Dec 10 07:14:33 2012 (r705) @@ -0,0 +1,9 @@ +;;;-*-Mode: LISP; Package: CCL -*- +;; +;;; OpenTransportUDP.lisp +;;; Copyright 2012 Chun Tian (binghe) + +;;; UDP extension to OpenTransport.lisp + +(in-package "CCL") +

1 0

[usocket-cvs] r704 - usocket/trunk/backend
by ctian＠common-lisp.net 10 Dec '12

10 Dec '12

Author: ctian Date: Sun Dec 9 22:01:56 2012 New Revision: 704 Log: [ECL] Now ECL DFFI mode works for hunchentoot! Modified: usocket/trunk/backend/ecl.lisp Modified: usocket/trunk/backend/ecl.lisp ============================================================================== --- usocket/trunk/backend/ecl.lisp Sun Dec 9 04:53:52 2012 (r703) +++ usocket/trunk/backend/ecl.lisp Sun Dec 9 22:01:56 2012 (r704) @@ -27,7 +27,7 @@ (ffi:def-foreign-type ws-socket :unsigned-int) (ffi:def-foreign-type ws-dword :unsigned-long) - (ffi:def-foreign-type ws-event :pointer-void) + (ffi:def-foreign-type ws-event :unsigned-int) (ffi:def-struct wsa-network-events (network-events :long) @@ -102,12 +102,12 @@ (setf (state socket) :read)))))) (defun map-network-events (func network-events) - (let ((event-map (ffi:get-slot-value network-events 'network-events)) - (error-array (ffi:get-slot-pointer network-events 'error-code))) + (let ((event-map (ffi:get-slot-value network-events 'wsa-network-events 'network-events)) + (error-array (ffi:get-slot-pointer network-events 'wsa-network-events 'error-code))) (unless (zerop event-map) (dotimes (i fd-max-events) (unless (zerop (ldb (byte 1 i) event-map)) - (funcall func (ffi:deref-array error-array :int i))))))) + (funcall func (ffi:deref-array error-array '(:array :int 10) i))))))) (defun update-ready-and-state-slots (sockets) (dolist (socket sockets)

1 0

[usocket-cvs] r703 - usocket/trunk/backend
by ctian＠common-lisp.net 09 Dec '12

09 Dec '12

Author: ctian Date: Sun Dec 9 04:53:52 2012 New Revision: 703 Log: [ECL] Fixed compilation. Modified: usocket/trunk/backend/sbcl.lisp Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp Sun Dec 9 02:05:24 2012 (r702) +++ usocket/trunk/backend/sbcl.lisp Sun Dec 9 04:53:52 2012 (r703) @@ -485,11 +485,13 @@ ;;; Based on LispWorks version written by Erik Huelsmann. #+win32 ; shared by ECL and SBCL -(progn +(eval-when (:compile-toplevel :load-toplevel :execute) (defconstant +wsa-wait-failed+ #xffffffff) (defconstant +wsa-wait-event-0+ 0) - (defconstant +wsa-wait-timeout+ 258) + (defconstant +wsa-wait-timeout+ 258)) +#+win32 ; shared by ECL and SBCL +(progn (defconstant fd-read 1) (defconstant fd-read-bit 0) (defconstant fd-write 2)

1 0