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

[usocket-devel] Fwd: [usocket-cvs] r245 - usocket/trunk/backend
by Erik Huelsmann 24 Jul '08

24 Jul '08

Hi Douglas, I recently added some functionality in usocket and even though I think I could have copy-pasted from the CMU backend, I want to verify with you if this is true. The functions I added: - get-host-name (as you can see in the commit mail below based on copy-paste from CMU) - wait-for-input-internal which I didn't copy-paste yet. I would be especially gratefull if you could copy-paste and verify the latter for me and optionally even supply a patch. For testing of the multiplexing code, I use this 'script': (load "asdf.lisp") (asdf:oos 'asdf:load-op :usocket) (defvar sockets nil) (defparameter crlf (format nil "~C~C" #\Return #\Linefeed)) (defparameter host "mirror.w3media.nl") (defparameter offset-path "/apache") (dotimes (i 10) (let ((s (usocket:socket-connect host 80))) (format (usocket:socket-stream s) "GET http://~A~A/httpd/httpd-2.0.~A.tar.gz HTTP/1.0~%~%" host offset-path (+ 50 i)) (force-output (usocket:socket-stream s)) (push s sockets))) (let ((buffer (make-array 8192 :element-type 'character))) (loop (let ((ready (usocket:wait-for-input sockets :timeout 15))) (unless ready (sleep 1) (format t "No ready sockets!~%")) (dolist (r ready) (format t "Reading from ~A~%" r) (read-sequence buffer (usocket:socket-stream r)))))) HTH and thanks for your reaction in advance! bye, Erik. ---------- Forwarded message ---------- From: ehuelsmann(a)common-lisp.net <ehuelsmann(a)common-lisp.net> Date: May 18, 2007 12:03 AM Subject: [usocket-cvs] r245 - usocket/trunk/backend To: usocket-cvs(a)common-lisp.net Author: ehuelsmann Date: Thu May 17 18:03:55 2007 New Revision: 245 Modified: usocket/trunk/backend/scl.lisp Log: Add cl-smtp 'requirement': get-host-name (SCL backend); needs verification. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Thu May 17 18:03:55 2007 @@ -129,3 +129,6 @@ (t (error 'ns-unknown-error :host-or-ip name :real-error errno)))))))) + +(defun get-host-name () + (unix:unix-gethostname)) _______________________________________________ usocket-cvs mailing list usocket-cvs(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-cvs

4 8

[usocket-devel] accept on sbcl may return nil
by Attila Lendvai 30 Jul '07

30 Jul '07

hi, looking at the code of accept in sbcl, it seems that it may return with nil in case of sockint::EAGAIN or sockint::EINTR. what should usocket do in this case? loop until non-nil is returned or return nil? the latter might be more useful when dealing with timeouts, but i'm no socket expert of any kind. -- attila

2 1

[usocket-devel] patch for clisp get-host-name-internal in 0.3.4/svn
by Matthew Kennedy 30 Jul '07

30 Jul '07

Loading usocket with asdf enters the debugger when it tries compiling get-host-name-internal in clisp.lisp. Adding :language and :library seem to solve the problem. Attached is a patch which implements that. I'm using the Linux clisp binary for 2.41 from clisp.sf.net, and Ubuntu 7.04. Note: /lib/libc.so.6 is probably wrong for other unixes. Matt [3]> (asdf:oos 'asdf:load-op :usocket) ; loading system definition from usocket.asd into #<PACKAGE ASDF0> ; registering #<SYSTEM USOCKET #x203DADB6> as USOCKET ; loading system definition from /home/mkennedy/lispy-all-0.3/split-sequence-2002-04-10/split-sequence.asd into #<PACKAGE ASDF0> ; registering #<SYSTEM :SPLIT-SEQUENCE #x203F6366> as SPLIT-SEQUENCE WARNING: (FFI:DEF-CALL-OUT GET-HOST-NAME-INTERNAL (:NAME "gethostname") (:ARGUMENTS (NAME (FFI:C-PTR (FFI:C-ARRAY-MAX CHARACTER 256)) :OUT :ALLOCA) (LEN FFI:INT)) (:RETURN-TYPE FFI:INT)) : No :LANGUAGE argument and no FFI:DEFAULT-FOREIGN-LANGUAGE form in this compilation unit; :STDC assumed now and for the rest of this unit WARNING: COMPILE-FILE warned while performing #<COMPILE-OP NIL #x203C61CE> on #<CL-SOURCE-FILE "clisp" #x203C537E>. WARNING: (FFI:DEF-CALL-OUT GET-HOST-NAME-INTERNAL (:NAME "gethostname") (:ARGUMENTS (NAME (FFI:C-PTR (FFI:C-ARRAY-MAX CHARACTER 256)) :OUT :ALLOCA) (LEN FFI:INT)) (:RETURN-TYPE FFI:INT)) : No :LANGUAGE argument and no FFI:DEFAULT-FOREIGN-LANGUAGE form in this compilation unit; :STDC assumed now and for the rest of this unit ** - Continuable Error FFI::FIND-FOREIGN-FUNCTION: foreign function "gethostname" does not exist If you continue (by typing 'continue'): Skip foreign function creation The following restarts are also available: SKIP :R1 skip 9 16 (FFI:DEF-CALL-OUT GET-HOST-NAME-INTERNAL (:NAME "gethostname") ...)-2 STOP :R2 stop loading file /home/mkennedy/tmp/usocket-0.3.4/backend/clisp.fas RETRY :R3 Retry performing #<ASDF:LOAD-OP NIL #x203C417E> on #<ASDF:CL-SOURCE-FILE "clisp" #x203C537E>. ACCEPT :R4 Continue, treating #<ASDF:LOAD-OP NIL #x203C417E> on #<ASDF:CL-SOURCE-FILE "clisp" #x203C537E> as having been successful. ABORT :R5 ABORT Break 1 USOCKET[4]> (lisp-implementation-version) "2.41 (2006-10-13) (built on localhost.localdomain [127.0.0.1])" Break 1 USOCKET[4]>

2 1