July 2010 - usocket-devel - mailman3.common-lisp.net

Re: [usocket-devel] [usocket-cvs] r553 - in usocket/trunk: . backend vendor
by Erik Huelsmann 15 Sep '10

15 Sep '10

Hi Chun, I think the JDI stuff I added way back when, isn't needed anymore. You could try removing it. Before, it wasn't always possible to dynamically determine retrieve a method from a JavaObject. Now, since it has an IntendedClass slot, the information that JDI was trying to capture, has been added to the base JavaObject class. If you want, I can help to phase out JDI. With kind regards, Erik. On Tue, Jul 20, 2010 at 7:48 AM, Chun Tian <ctian(a)common-lisp.net> wrote: > Author: ctian > Date: Tue Jul 20 01:48:39 2010 > New Revision: 553 > > Log: > ABCL: move JDI into vendor directory. > > Added: > usocket/trunk/vendor/abcl-jdi.lisp (contents, props changed) > Modified: > usocket/trunk/backend/armedbear.lisp > usocket/trunk/usocket.asd > > Modified: usocket/trunk/backend/armedbear.lisp > ============================================================================== > --- usocket/trunk/backend/armedbear.lisp (original) > +++ usocket/trunk/backend/armedbear.lisp Tue Jul 20 01:48:39 2010 > @@ -5,178 +5,6 @@ > > (in-package :usocket) > > - > -;;; Proposed contribution to the JAVA package > - > -(defpackage :jdi > - (:use :cl) > - (:export #:jcoerce > - #:jop-deref > - #:do-jmethod-call > - #:do-jmethod > - #:do-jstatic-call > - #:do-jstatic > - #:do-jnew-call > - #:do-jfield > - #:jequals)) > -;; but still requires the :java package. > - > -(in-package :jdi) > - > -(defstruct (java-object-proxy (:conc-name :jop-) > - :copier) > - value > - class) > - > -(defvar *jm-get-return-type* > - (java:jmethod "java.lang.reflect.Method" "getReturnType")) > - > -(defvar *jf-get-type* > - (java:jmethod "java.lang.reflect.Field" "getType")) > - > -(defvar *jc-get-declaring-class* > - (java:jmethod "java.lang.reflect.Constructor" "getDeclaringClass")) > - > -(declaim (inline make-return-type-proxy)) > -(defun make-return-type-proxy (jmethod jreturned-value) > - (if (java:java-object-p jreturned-value) > - (let ((rt (java:jcall *jm-get-return-type* jmethod))) > - (make-java-object-proxy :value jreturned-value > - :class rt)) > - jreturned-value)) > - > -(defun make-field-type-proxy (jfield jreturned-value) > - (if (java:java-object-p jreturned-value) > - (let ((rt (java:jcall *jf-get-type* jfield))) > - (make-java-object-proxy :value jreturned-value > - :class rt)) > - jreturned-value)) > - > -(defun make-constructor-type-proxy (jconstructor jreturned-value) > - (if (java:java-object-p jreturned-value) > - (let ((rt (java:jcall *jc-get-declaring-class* jconstructor))) > - (make-java-object-proxy :value jreturned-value > - :class rt)) > - jreturned-value)) > - > -(defun jcoerce (instance &optional output-type-spec) > - (cond > - ((java-object-proxy-p instance) > - (let ((new-instance (copy-structure (the java-object-proxy instance)))) > - (setf (jop-class new-instance) > - (java:jclass output-type-spec)) > - new-instance)) > - ((java:java-object-p instance) > - (make-java-object-proxy :class (java:jclass output-type-spec) > - :value instance)) > - ((stringp instance) > - (make-java-object-proxy :class "java.lang.String" > - :value instance)) > - ((keywordp output-type-spec) > - ;; all that remains is creating an immediate type... > - (let ((jval (java:make-immediate-object instance output-type-spec))) > - (make-java-object-proxy :class output-type-spec > - :value jval))) > - )) > - > -(defun jtype-of (instance) ;;instance must be a jop > - (cond > - ((stringp instance) > - "java.lang.String") > - ((keywordp (jop-class instance)) > - (string-downcase (symbol-name (jop-class instance)))) > - (t > - (java:jclass-name (jop-class instance))))) > - > -(declaim (inline jop-deref)) > -(defun jop-deref (instance) > - (if (java-object-proxy-p instance) > - (jop-value instance) > - instance)) > - > -(defun java-value-and-class (object) > - (values (jop-deref object) > - (jtype-of object))) > - > -(defun do-jmethod-call (object method-name &rest arguments) > - (multiple-value-bind > - (instance class-name) > - (java-value-and-class object) > - (let* ((argument-types (mapcar #'jtype-of arguments)) > - (jm (apply #'java:jmethod class-name method-name argument-types)) > - (rv (apply #'java:jcall jm instance > - (mapcar #'jop-deref arguments)))) > - (make-return-type-proxy jm rv)))) > - > -(defun do-jstatic-call (class-name method-name &rest arguments) > - (let* ((argument-types (mapcar #'jtype-of arguments)) > - (jm (apply #'java:jmethod class-name method-name argument-types)) > - (rv (apply #'java:jstatic jm (java:jclass class-name) > - (mapcar #'jop-deref arguments)))) > - (make-return-type-proxy jm rv))) > - > -(defun do-jnew-call (class-name &rest arguments) > - (let* ((argument-types (mapcar #'jtype-of arguments)) > - (jm (apply #'java:jconstructor class-name argument-types)) > - (rv (apply #'java:jnew jm (mapcar #'jop-deref arguments)))) > - (make-constructor-type-proxy jm rv))) > - > -(defun do-jfield (class-or-instance-or-name field-name) > - (let* ((class (cond > - ((stringp class-or-instance-or-name) > - (java:jclass class-or-instance-or-name)) > - ((java:java-object-p class-or-instance-or-name) > - (java:jclass-of class-or-instance-or-name)) > - ((java-object-proxy-p class-or-instance-or-name) > - (java:jclass (jtype-of class-or-instance-or-name))))) > - (jf (java:jcall (java:jmethod "java.lang.Class" "getField" > - "java.lang.String") > - class field-name))) > - (make-field-type-proxy jf > - (java:jfield class field-name)))) ;;class)))) > - > -(defmacro do-jstatic (&rest arguments) > - `(do-jstatic-call ,@arguments)) > - > -(defmacro do-jmethod (&rest arguments) > - `(do-jmethod-call ,@arguments)) > - > -;; > - > -(defmacro jstatic-call (class-name (method-name &rest arg-spec) > - &rest args) > - (let ((class-sym (gensym))) > - `(let ((,class-sym ,class-name)) > - (java:jstatic > - (java:jmethod ,class-sym ,method-name ,@arg-spec) > - (java:jclass ,class-sym) ,@args)))) > - > -(defmacro jmethod-call (instance-and-class (method &rest arg-spec) &rest args) > - (let ((isym (gensym))) > - (multiple-value-bind > - (instance class-name) > - (if (listp instance-and-class) > - (values (first instance-and-class) > - (second instance-and-class)) > - (values instance-and-class)) > - (when (null class-name) > - (setf class-name `(java:jclass-name (java:jclass-of ,isym)))) > - `(let* ((,isym ,instance)) > - (java:jcall (java:jmethod ,class-name ,method ,@arg-spec) > - ,isym ,@args))))) > - > -(defun jequals (x y) > - (do-jmethod-call (jcoerce x "java.lang.Object") "equals" > - (jcoerce y "java.lang.Object"))) > - > -(defmacro jnew-call ((class &rest arg-spec) &rest args) > - `(java:jnew (java:jconstructor ,class ,@arg-spec) > - ,@args)) > - > - > - > -(in-package :usocket) > - > (defun get-host-name () > (jdi:do-jmethod-call (jdi:do-jstatic-call "java.net.InetAddress" > "getLocalHost") > > Modified: usocket/trunk/usocket.asd > ============================================================================== > --- usocket/trunk/usocket.asd (original) > +++ usocket/trunk/usocket.asd Tue Jul 20 01:48:39 2010 > @@ -23,6 +23,7 @@ > :components ((:file "split-sequence") > #+mcl (:file "kqueue") > #+openmcl (:file "ccl-send") > + #+armedbear (:file "abcl-jdi") > (:file "spawn-thread"))) > (:file "usocket" :depends-on ("vendor")) > (:file "condition" :depends-on ("usocket")) > > Added: usocket/trunk/vendor/abcl-jdi.lisp > ============================================================================== > --- (empty file) > +++ usocket/trunk/vendor/abcl-jdi.lisp Tue Jul 20 01:48:39 2010 > @@ -0,0 +1,170 @@ > +;;;; $Id$ > +;;;; $URL$ > + > +;;;; Proposed contribution to the JAVA package, by Erik Huelsmann > + > +(defpackage :jdi > + (:use :cl) > + (:export #:jcoerce > + #:jop-deref > + #:do-jmethod-call > + #:do-jmethod > + #:do-jstatic-call > + #:do-jstatic > + #:do-jnew-call > + #:do-jfield > + #:jequals)) > + > +;; but still requires the :java package. > + > +(in-package :jdi) > + > +(defstruct (java-object-proxy (:conc-name :jop-) > + :copier) > + value > + class) > + > +(defvar *jm-get-return-type* > + (java:jmethod "java.lang.reflect.Method" "getReturnType")) > + > +(defvar *jf-get-type* > + (java:jmethod "java.lang.reflect.Field" "getType")) > + > +(defvar *jc-get-declaring-class* > + (java:jmethod "java.lang.reflect.Constructor" "getDeclaringClass")) > + > +(declaim (inline make-return-type-proxy)) > +(defun make-return-type-proxy (jmethod jreturned-value) > + (if (java:java-object-p jreturned-value) > + (let ((rt (java:jcall *jm-get-return-type* jmethod))) > + (make-java-object-proxy :value jreturned-value > + :class rt)) > + jreturned-value)) > + > +(defun make-field-type-proxy (jfield jreturned-value) > + (if (java:java-object-p jreturned-value) > + (let ((rt (java:jcall *jf-get-type* jfield))) > + (make-java-object-proxy :value jreturned-value > + :class rt)) > + jreturned-value)) > + > +(defun make-constructor-type-proxy (jconstructor jreturned-value) > + (if (java:java-object-p jreturned-value) > + (let ((rt (java:jcall *jc-get-declaring-class* jconstructor))) > + (make-java-object-proxy :value jreturned-value > + :class rt)) > + jreturned-value)) > + > +(defun jcoerce (instance &optional output-type-spec) > + (cond > + ((java-object-proxy-p instance) > + (let ((new-instance (copy-structure (the java-object-proxy instance)))) > + (setf (jop-class new-instance) > + (java:jclass output-type-spec)) > + new-instance)) > + ((java:java-object-p instance) > + (make-java-object-proxy :class (java:jclass output-type-spec) > + :value instance)) > + ((stringp instance) > + (make-java-object-proxy :class "java.lang.String" > + :value instance)) > + ((keywordp output-type-spec) > + ;; all that remains is creating an immediate type... > + (let ((jval (java:make-immediate-object instance output-type-spec))) > + (make-java-object-proxy :class output-type-spec > + :value jval))) > + )) > + > +(defun jtype-of (instance) ;;instance must be a jop > + (cond > + ((stringp instance) > + "java.lang.String") > + ((keywordp (jop-class instance)) > + (string-downcase (symbol-name (jop-class instance)))) > + (t > + (java:jclass-name (jop-class instance))))) > + > +(declaim (inline jop-deref)) > +(defun jop-deref (instance) > + (if (java-object-proxy-p instance) > + (jop-value instance) > + instance)) > + > +(defun java-value-and-class (object) > + (values (jop-deref object) > + (jtype-of object))) > + > +(defun do-jmethod-call (object method-name &rest arguments) > + (multiple-value-bind > + (instance class-name) > + (java-value-and-class object) > + (let* ((argument-types (mapcar #'jtype-of arguments)) > + (jm (apply #'java:jmethod class-name method-name argument-types)) > + (rv (apply #'java:jcall jm instance > + (mapcar #'jop-deref arguments)))) > + (make-return-type-proxy jm rv)))) > + > +(defun do-jstatic-call (class-name method-name &rest arguments) > + (let* ((argument-types (mapcar #'jtype-of arguments)) > + (jm (apply #'java:jmethod class-name method-name argument-types)) > + (rv (apply #'java:jstatic jm (java:jclass class-name) > + (mapcar #'jop-deref arguments)))) > + (make-return-type-proxy jm rv))) > + > +(defun do-jnew-call (class-name &rest arguments) > + (let* ((argument-types (mapcar #'jtype-of arguments)) > + (jm (apply #'java:jconstructor class-name argument-types)) > + (rv (apply #'java:jnew jm (mapcar #'jop-deref arguments)))) > + (make-constructor-type-proxy jm rv))) > + > +(defun do-jfield (class-or-instance-or-name field-name) > + (let* ((class (cond > + ((stringp class-or-instance-or-name) > + (java:jclass class-or-instance-or-name)) > + ((java:java-object-p class-or-instance-or-name) > + (java:jclass-of class-or-instance-or-name)) > + ((java-object-proxy-p class-or-instance-or-name) > + (java:jclass (jtype-of class-or-instance-or-name))))) > + (jf (java:jcall (java:jmethod "java.lang.Class" "getField" > + "java.lang.String") > + class field-name))) > + (make-field-type-proxy jf > + (java:jfield class field-name)))) ;;class)))) > + > +(defmacro do-jstatic (&rest arguments) > + `(do-jstatic-call ,@arguments)) > + > +(defmacro do-jmethod (&rest arguments) > + `(do-jmethod-call ,@arguments)) > + > +;; > + > +(defmacro jstatic-call (class-name (method-name &rest arg-spec) > + &rest args) > + (let ((class-sym (gensym))) > + `(let ((,class-sym ,class-name)) > + (java:jstatic > + (java:jmethod ,class-sym ,method-name ,@arg-spec) > + (java:jclass ,class-sym) ,@args)))) > + > +(defmacro jmethod-call (instance-and-class (method &rest arg-spec) &rest args) > + (let ((isym (gensym))) > + (multiple-value-bind > + (instance class-name) > + (if (listp instance-and-class) > + (values (first instance-and-class) > + (second instance-and-class)) > + (values instance-and-class)) > + (when (null class-name) > + (setf class-name `(java:jclass-name (java:jclass-of ,isym)))) > + `(let* ((,isym ,instance)) > + (java:jcall (java:jmethod ,class-name ,method ,@arg-spec) > + ,isym ,@args))))) > + > +(defun jequals (x y) > + (do-jmethod-call (jcoerce x "java.lang.Object") "equals" > + (jcoerce y "java.lang.Object"))) > + > +(defmacro jnew-call ((class &rest arg-spec) &rest args) > + `(java:jnew (java:jconstructor ,class ,@arg-spec) > + ,@args)) > > _______________________________________________ > usocket-cvs mailing list > usocket-cvs(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-cvs >

2 3

[usocket-devel] How to portably setsockopt
by Elliott Slaughter 20 Jul '10

20 Jul '10

Hi, I need to set SO_BROADCAST in order to enable sending packets to a broadcast address in my application. In SBCL, for example, this can be accomplished with (setf (sb-bsd-sockets:sockopt-broadcast (usocket::socket *socket*)) t) I am wondering if usocket provides any way of accomplishing this, and if this is considered inside the scope of usocket. Thanks. -- Elliott Slaughter "Don't worry about what anybody else is going to do. The best way to predict the future is to invent it." - Alan Kay

2 1

[usocket-devel] Ask for test: WAIT-FOR-INPUT support for SBCL/win32
by Chun Tian (binghe) 20 Jul '10

20 Jul '10

Hi, USOCKET users The long awaited WAIT-FOR-INPUT support for SBCL/win32 seems done on USOCKET trunk [1]. Both TCP and UDP usockets are supported in theory. This work depends on Winsock2 functions "WSAWaitForMultipleEvents" and "WSAEventSelect", which is exported by SB-ALIEN interfaces based on exist work of SB-BSD-SOCKETS. No additional C library or system DLLs are needed. Please test your usocket applications if they depend on USOCKET, see if they can also run on SBCL/win32. Let me know there's any issue left. Your help will definitely make USOCKET project better and faster to release next version. Best Regards, Chun Tian (binghe) [1] svn://common-lisp.net/project/usocket/svn/usocket/trunk

2 1

[usocket-devel] Ask for test: WAIT-FOR-INPUT support for ECL/win32
by Chun Tian (binghe) 20 Jul '10

20 Jul '10

Hi, USOCKET users WAIT-FOR-INPUT support for ECL/win32 has been committed to USOCKET trunk [1] today, this make ECL being our full supported platform. If you have a USOCKET application used running on UNIX platform, now you can try to run it on Windows! Let me know there's any issue left. Your help will definitely make USOCKET project better and faster to release next version. P.S. Current known full supported CL platforms by USOCKET on Windows platform: * Allegro CL * Clozure CL * ECL (new added) * SBCL (new added) * LispWorks * ABCL (lack of UDP support, in progress) Regards, Chun Tian (binghe) [1] svn://common-lisp.net/project/usocket/svn/usocket/trunk

1 0

[usocket-devel] [PATCH] Fix "make clean"
by Desmond O. Chang 12 Jul '10

12 Jul '10

Hi all, Executing "make clean" always fails. This patch fixes the wrong arguments of `find' to resolve it. See attachment please.

2 1

[usocket-devel] New feature on trunk: SOCKET-SERVER for TCP and UDP
by Chun Tian (binghe) 12 Jul '10

12 Jul '10

Hi, USOCKET users Today I improved exist SOCKET-SERVER function in trunk, made it working for both TCP and UDP. This function can create a simple TCP or UDP server, just like similar facility found in some implementations. I'd like people try it and provide any suggestions on its interface. First, please update your USOCKET trunk [1] to at least r542. The new SOCKET-SERVER has following definition: (defun socket-server (host port function &optional arguments &key in-new-thread (protocol :stream) ;; for udp (timeout 1) (max-buffer-size +max-datagram-packet-size+) ;; for tcp element-type reuse-address multi-threading) ...) [required & optional arguments] HOST: the local address you want to listen on, it could be something like "a.b.c.d" or #(a b c d) or integers. And if you want to listen on 0.0.0.0, you can use #(0 0 0 0), "0.0.0.0", or even NIL here. PORT: a integer, means the port you want to listen. Notice: on UNIX platform, you cannot listen on port less than 1024 when you're not using "root" user. FUNCTION: server handler function (will explain below) ARGUMENTS: a list, which is used for providing extra arguments to above server handler function. [keywords] IN-NEW-THREAD: if T is provided, function SOCKET-SERVER will return immediately, and new server will be created in a new thread. Notice: you should have a CL implementation which support creating threads. PROTOCOL: server type, could be :STREAM (for TCP, the default) or :DATAGRAM (for UDP) TIMEOUT: UDP server loop interval, no need to be changed. MAX-BUFFER-SIZE: UDP buffer size, use a smaller value when needed. ELEMENT-TYPE: TCP handler's stream element type REUSE-ADDRESS: TCP socket flag MULTI-THREADING: if T is provided, the created TCP server will create new threads on each connection, causing the TCP server handling multiple connections at the same time. by default (NIL), only one client is supported. Notice: UDP server could always serve as many client as possible, using only one thread. [Usage of TCP server] TCP server is based on streams, that is, you provide a handler function which use "stream" as required argument. For a simple TCP server which output a string on connection (and then close), the handler function can be defined like this: (defun simple-output-handler (stream) (format stream "Hello, world!~%")) With above function, the way to create a TCP server (on port 0.0.0.0:10000) is: (usocket:socket-server "0.0.0.0" 10000 #'simple-output-handler nil :in-new-thread t) Here I use (:in-new-thread t) to make sure the server is created in background thread, and since no :multi-threading keyword is supplied, this server could only serve one client per time. But consider each connection only exist for a very short time (just print a string and end), so this won't be any problem. Now I can try to connect to it using UNIX "telnet" command: binghe@binghe-pro:~$ telnet 127.0.0.1 10000 Trying 127.0.0.1... Connected to localhost. Escape character is '^]'. Hello, world! Connection closed by foreign host. See, the server is working! Sometimes, maybe we are using a general handler function which have additional arguments for customization, for example: (defun general-output-handler (stream string) (format stream "~A~%" string)) Now suppose I want to create two different TCP server which different output string. How can I do this? See following: (usocket:socket-server "0.0.0.0" 10001 #'general-output-handler (list "Hello at port 10001") :in-new-thread t) (usocket:socket-server "0.0.0.0" 10002 #'general-output-handler (list "Hello at port 10002") :in-new-thread t) This is how to use the optional ARGUMENTS argument! And let's test them: binghe@binghe-pro:~$ telnet 127.0.0.1 10001 Trying 127.0.0.1... Connected to localhost. Escape character is '^]'. Hello at port 10001 Connection closed by foreign host. binghe@binghe-pro:~$ telnet 127.0.0.1 10002 Trying 127.0.0.1... Connected to localhost. Escape character is '^]'. Hello at port 10002 Connection closed by foreign host. Isn't that perfect? [Usage of UDP server] UDP server is based on simple-array buffer. That is, what ever a client send to a UDP server, it will be stored into a vector which has type of (SIMPLE-ARRAY (UNSIGNED-BYTE 8) *). This vector is the input of your handler function, and you should return another vector as the data to send back to clients. Let's create a simple UDP echo server. This means we don't need to modify anything, just return the buffer as is. So, function IDENTITY can be used directly: (usocket:socket-server "0.0.0.0" 10000 #'identity nil :in-new-thread t :protocol :datagram) We don't have a UNIX command to test it, so we use USOCKET: ? (defvar s (usocket:socket-connect "localhost" 10000 :protocol :datagram)) #<USOCKET:DATAGRAM-USOCKET #xC4C398E> ? (defvar buffer (coerce #(1 2 3) '(simple-array (unsigned-byte 8) *))) BUFFER ? (usocket:socket-send s buffer 3) 3 ? (usocket:socket-receive s nil 256) #(1 2 3) 3 2130706433 10000 Notice: in calling of SOCKET-RECEIVE, last argument (256) means we want to receive at most 256 bytes. And see its four return values: #(1 2 3) means the return value by the UDP server, 3 means return buffer length. This is useful when you provide a bigger buffer but NIL to SOCKET-RECEIVE, 2130706433 means "127.0.0.1", this is the server (remote) address 10000 means server port. For bigger example of UDP servers, see my CL-NET-SNMP project. A complicated SNMP server is working in the same way! [Summary] SOCKET-SERVER completely based on exist success of USOCET on providing a universal networking library. It's portable. I hope people could enjoy it. Any question or suggestion are welcome. Regards, Chun Tian (binghe) USOCKET maintainer [1] svn://common-lisp.net/project/usocket/svn/usocket/trunk

1 0

Re: [usocket-devel] Something about usocket-udp on Clozure CL
by Chun Tian (binghe) 09 Jul '10

09 Jul '10

Hi, Alex I'm glad to tell you. I've fixed the USOCKET/Clozure USOCKET:SEND-TO issue. Now you can call SOCKET-SEND on connected usockets. However, the work was committed on USOCKET trunk [1], not USOCKET-UDP. I want to mark USOCKET-UDP as a outdated package, and encourage people switching to USOCKET project. And current USOCKET trunk will be released as version 0.5 in short future. For your project, it's very easy to do this switch: replace the "USOCKET-UDP" into "USOCKET" in your ASDF files, and change function call "SOCKET-CONNECT/UDP" into just "SOCKET-CONNECT". But, you should tell your user checkout USOCKET trunk until its next release. Is this working for you? Regards, Chun Tian (binghe) [1] svn://common-lisp.net/project/usocket/svn/usocket/trunk > Hi Chun, > > Thanks for answering me. Regarding the patch, i don't think i can even call it that, i just noticed that 'USOCKET:SOCKET-SEND (on clozure) always calls 'HOST-TO-HBO with the 'HOST parameter, which in my case was NIL, so i simply added a check there, i don't even know if i'm breaking some kind of expected behavior but i hope not. The patch is now *really* attached. > > For the second issue, i meant that on USOCKET/Clozure USOCKET:SEND-TO does not work on *connected* sockets. > > > Cheers, > > Alex > > > Quoting "Chun Tian (binghe)" <binghe.lisp(a)gmail.com>: > >> Hi, Alex >> >> Sorry for the late response. I'm a little busy. >> >> So, a new Common Lisp package (cl-growl) is using my USOCKET-UDP, that's a news for me. The Common Lisp UDP "market" is relatively small, only few users I have. I hope this new package will make the UDP package better. >> >> I wrote USOCKET-UDP mainly for my SNMP package (cl-net-snmp). At that time, USOCKET doesn't have UDP support, so I wrote USOCKET-UDP as a patch to exist USOCKET package. From one year ago, I became one of USOCKET maintainers, and current USOCKET trunk have merged all my UDP work, plus the new Digitool MCL port. Unfortunately, due to the lack support of SBCL and ECL on Windows platform, we haven't release the new USOCKET version for long time. Above is the background. >> >> For your first issue, I would like to see your patch on the HOST-TO-HBO part, first. (You didn't attach it with your mail actually) >> >> For your second issue, I don't quite understand your points. Are you saying USOCKET/Clozure currently cannot support SOCKET-SEND on "connected socket" or "unconnected socket"? >> >> I'm sure all bugs in USOCKET-UDP are fixable since we have all Clozure CL source code in hand to see the bahaviour of their internal functions. >> >> Wait for your next post. >> >> Regards, >> >> Chun Tian (binghe) >> >> >>> Hi, just recently i installed a Lisp library that uses your library usocket-udp, so, first let me thank you for you work on that library. >>> >>> I've had a few problems running a project (cl-growl) that uses your library. >>> >>> First on clozure's 'socket-send definition there's a call to 'host-to-hbo that should have a check for nil being passed as host. This was the first error i kept getting. I simply added a small check (patch is attached) which solved the problem. >>> >>> But the biggest problem i found concerns the fact that some implementations (namely SBCL) work with UDP Connected sockets while Clozure CL's implementation for instance will break. On calls to 'socket-send Clozure will be calling 'openmcl-socket:send-to which is basically a wrapper call for the C function sendto() which will (accordingly to the function documentation) return an EISCONN (56) complaining the socket is already connected. This behavior imho seems to break the 'unified' behavior the library attempts to achieve. >>> >>> I have no idea what the best path for achieving this unified behavior should be but i felt it was my obligation to let you know of these issues. >>> >>> >>> Sorry for the big post, >>> >>> Alex Paes >>> >>> >>> >> >> > > > <usocket.patch>

1 0

[usocket-devel] undefined functions
by Haris Bogdanović 07 Jul '10

07 Jul '10

When I try to load hunchentoot with asdf I get this errors: ; Undefined functions: ; USOCKET::%ADD-WAITER USOCKET::%REMOVE-WAITER USOCKET::%SETUP-WAIT-LIST USOCKET::WAIT-FOR-INPUT-INTERNAL When I try to load usocket with asdf I get: WARNING: wait-for-input not (yet!) supported... and when I try to start hunchentoot with: (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 8000)) I get: The function USOCKET::%SETUP-WAIT-LIST is undefined. [Condition of type UNDEFINED-FUNCTION] What can I do, I can't start hunchentoot ? I use emacs/sbcl/slime on windows. Thanks

3 6