usocket-devel

usocket-devel@common-lisp.net

248 discussions

[usocket-devel] [ANN] USOCKET-UDP 2.6
by Chun Tian 24 Sep '10

24 Sep '10

USOCKET-UDP 2.6 * improvement: Change constant value +max-datagram-packet-size+ from 65536 to 65507. * improvement: Fixed working with USOCKET trunk (0.5). * bugfix: Handle Null HOST argument in SOCKET-CONNECT for Clozure CL. SF & Cliki download links updated. (This maintenance release of USOCKET-UDP is mainly for people who is using old packages which still depend on USOCKET-UDP)

3 2

[usocket-devel] Wait-for-input/socket-accept for sbcl/win32
by Kalyanov Dmitry 19 Sep '10

19 Sep '10

Definition of USOCKET class has the comment the %READY-P slot is reset by SOCKET-ACCEPT function. But right now SOCKET-ACCEPT does not reset it, hence WAIT-FOR-INPUT will not actuall wait after the first it time it notices the readiness. Also, SB-BSD-SOCKETS:SOCKET-ACCEPT may return NIL (if accept call returned EWOULDBLOCK, for example), and USOCKET:SOCKET-ACCEPT will try to use it. Attached is a patch that fixes these two issues.

1 0

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] USOCKET Web Site updated and ...
by Chun Tian (binghe) 15 Sep '10

15 Sep '10

Hi, Erik Today I committed updates for USOCKET Web site [1], with more API documents [2] and information about new supported platform (MCL). I think we should release 0.5.0 as soon as possible, since we have last stable release (0.4.1) at Dec 27, 2008. It's one and a half years ago ... The brief release notes could be this one: * New supported platform: Macintosh Common Lisp (5.0 and up, plus RMCL) * Support for UDP (datagram-usocket) for all supported platform except MCL. * Add WAIT-FOR-INPUT support for SBCL and ECL on win32. * Simple TCP and UDP server API: SOCKET-SERVER * Lots of bug fixed since 0.4.1 I consider, there're obviously new bugs in those new features, but these potential bugs won't influence exist features which 0.4.x already have. So the release shouldn't break any package depends on USOCKET 0.4.x or 0.3.x, it's quite safe for people who don't need new features in USOCKET, and give people who need them a stable reference point. It's worth to release first, and fix things up later. Let me know your opinion. Regards, Chun Tian (binghe) [1] http://common-lisp.net/project/usocket [2] http://common-lisp.net/project/usocket/api-docs.shtml

1 0

[usocket-devel] UDP support for ABCL added
by Chun Tian (binghe) 14 Sep '10

14 Sep '10

Hi, USOCKET users Recently I rewrote all ABCL supporting code for USOCKET, now UDP and GET-HOST-BY-NAME are added for ABCL. There're still some issues in server-side UDP support, but client UDP sockets are ready to use. Now it's time to think about our next release (0.5.0), I think. --binghe

1 0

[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

← Newer
1
...
7
8
9
10
11
12
13
...
25
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-devel