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

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

23 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] get-peer-name/get-local-name IP quad error in CLISP
by Chandler Escude 24 Sep '07

24 Sep '07

All, I received an error when trying to call `get-peer-name' on a connected socket (`dotted-quad-to-vector-quad' was trying to parse a hostname as an IP). The problem is that `get-peer-name' expects CLISP's `socket:socket-stream-peer' function to always return a dotted-quad; by default, however, `socket:socket-stream-peer' will attempt hostname resolution on the peer address (http://clisp.cons.org/impnotes/socket.html#sost-peer) Fortunately, the second argument (`do-not-resolve-p') is used to suppress this lookup, so the fix should be as simple as changing the `nil' below to `t': (defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) (socket:socket-stream-peer (socket usocket) nil) (values (dotted-quad-to-vector-quad address) port))) I didn't try it out, but `get-local-name' looks to suffer from the same issue: (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) (socket:socket-stream-local (socket usocket) nil) (values (dotted-quad-to-vector-quad address) port))) Although I noticed the error using Windows XP at work, it looks to affect CLISP in general. -- Chandler

2 1

[usocket-devel] [ANN] usocket 0.3.5 released
by Erik Huelsmann 18 Sep '07

18 Sep '07

Today I have released usocket version 0.3.5 which contains fixes for: - All backends: Implementation-dependent errors leaking through - CLISP: compile-warnings fixed / get-local-name+get-peer-name - ECL: memory leak in get-host-name / win32 compatibility fix If you have any problems while using usocket, please report them on his list, or, contact me (ehu) on #lisp in IRC at irc.freenode.net. bye, Erik Huelsmann.

1 0

[usocket-devel] clisp: small patch and result of test
by Yaroslav Kavenchuk 04 Sep '07

04 Sep '07

clisp from CVS head, win32 Patch for remove some warnings: --- backend/clisp.lisp Wed Jul 25 22:28:12 2007 +++ backend/clisp.lisp Mon Aug 27 23:00:33 2007 @@ -5,6 +5,7 @@ (in-package :usocket) +(FFI:DEFAULT-FOREIGN-LANGUAGE :STDC) ;; utility routine for looking up the current host name (FFI:DEF-CALL-OUT get-host-name-internal @@ -73,7 +74,7 @@ (element-type 'character)) ;; clisp 2.39 sets SO_REUSEADDRESS to 1 by default; no need to ;; to explicitly turn it on; unfortunately, there's no way to turn it off... - (declare (ignore reuseaddress reuse-address)) + (declare (ignore reuseaddress reuse-address reuse-address-supplied-p)) (let ((sock (apply #'socket:socket-server (append (list port :backlog backlog) Result of test: Test USOCKET-TEST::SOCKET-FAILURE.1 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS ('USOCKET:NETWORK-UNREACHABLE-ERROR NIL) (USOCKET:SOCKET-CONNECT 2130706432 USOCKET-TEST::+UNUSED-LOCAL-PORT+) :UNREACH) Expected value: NIL Actual value: #<USOCKET:ADDRESS-NOT-AVAILABLE-ERROR #x19F191C9>. Test USOCKET-TEST::SOCKET-CONNECT.1 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT "common-lisp.net" 80))) (UNWIND-PROTECT (TYPEP USOCKET-TEST::SOCK 'USOCKET:USOCKET) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected value: T Actual value: #<USOCKET:INVALID-ARGUMENT-ERROR #x19F19871>. Test USOCKET-TEST::SOCKET-CONNECT.2 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT USOCKET-TEST::+COMMON-LISP-NET+ 80))) (UNWIND-PROTECT (TYPEP USOCKET-TEST::SOCK 'USOCKET:USOCKET) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected value: T Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F198D9>. Test USOCKET-TEST::SOCKET-CONNECT.3 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT (USOCKET:HOST-BYTE-ORDER USOCKET-TEST::+COMMON-LISP-NET+) 80))) (UNWIND-PROTECT (TYPEP USOCKET-TEST::SOCK 'USOCKET:USOCKET) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected value: T Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>. Test USOCKET-TEST::SOCKET-STREAM.1 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT "common-lisp.net" 80))) (UNWIND-PROTECT (PROGN (FORMAT (USOCKET:SOCKET-STREAM USOCKET-TEST::SOCK) "GET / HTTP/1.0~A~A~A~A" #\Return #\Newline #\Return #\Newline) (FORCE-OUTPUT (USOCKET:SOCKET-STREAM USOCKET-TEST::SOCK)) (READ-LINE (USOCKET:SOCKET-STREAM USOCKET-TEST::SOCK))) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected values: "HTTP/1.1 200 OK" NIL Actual value: #<USOCKET:INVALID-ARGUMENT-ERROR #x19F19955>. Test USOCKET-TEST::SOCKET-NAME.1 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT USOCKET-TEST::+COMMON-LISP-NET+ 80))) (UNWIND-PROTECT (USOCKET:GET-PEER-ADDRESS USOCKET-TEST::SOCK) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected value: #(80 68 86 115) Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>. Test USOCKET-TEST::SOCKET-NAME.2 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT USOCKET-TEST::+COMMON-LISP-NET+ 80))) (UNWIND-PROTECT (USOCKET:GET-PEER-PORT USOCKET-TEST::SOCK) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected value: 80 Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>. Test USOCKET-TEST::SOCKET-NAME.3 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT USOCKET-TEST::+COMMON-LISP-NET+ 80))) (UNWIND-PROTECT (USOCKET:GET-PEER-NAME USOCKET-TEST::SOCK) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected values: #(80 68 86 115) 80 Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>. Test USOCKET-TEST::SOCKET-NAME.4 failed Form: (USOCKET-TEST::WITH-CAUGHT-CONDITIONS (NIL NIL) (LET ((USOCKET-TEST::SOCK (USOCKET:SOCKET-CONNECT USOCKET-TEST::+COMMON-LISP-NET+ 80))) (UNWIND-PROTECT (USOCKET:GET-LOCAL-ADDRESS USOCKET-TEST::SOCK) (USOCKET:SOCKET-CLOSE USOCKET-TEST::SOCK)))) Expected value: #(192 168 1 65) Actual value: #<USOCKET:HOST-UNREACHABLE-ERROR #x19F19955>. 9 out of 15 total tests failed: USOCKET-TEST::SOCKET-FAILURE.1, USOCKET-TEST::SOCKET-CONNECT.1, USOCKET-TEST::SOCKET-CONNECT.2, USOCKET-TEST::SOCKET-CONNECT.3, USOCKET-TEST::SOCKET-STREAM.1, USOCKET-TEST::SOCKET-NAME.1, USOCKET-TEST::SOCKET-NAME.2, USOCKET-TEST::SOCKET-NAME.3, USOCKET-TEST::SOCKET-NAME.4. Debug it? -- WBR, Yaroslav Kavenchuk.

2 1

[usocket-devel] bugs in http://trac.common-lisp.net/usocket/changeset/279
by Yaroslav Kavenchuk 04 Sep '07

04 Sep '07

1. 51 -> 53: need to revert this 2. 54 -> 56: function `strndup` is not defined on win32 and in body of function get-host-name (sbcl.lisp) prefix `sb-alien:` need in any function `cast` call Thanks! -- WBR, Yaroslav Kavenchuk.

2 1