August 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] 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

[usocket-devel] small patch for sbcl and test resul
by Yaroslav Kavenchuk 28 Aug '07

28 Aug '07

Hi! Warnings in sbcl: > ; file: C:\CL\lib\usocket-0.3.4\backend\sbcl.lisp > ; in: DEFUN USOCKET::GET-HOST-NAME > ; (USOCKET::CAST USOCKET::BUF C-STRING) > ; > ; caught WARNING: > ; undefined variable: C-STRING > ; > ; caught STYLE-WARNING: > ; undefined function: USOCKET::CAST > > ; > ; caught WARNING: > ; This variable is undefined: > ; C-STRING > > ; > ; caught STYLE-WARNING: > ; This function is undefined: > ; USOCKET::CAST > ; > ; compilation unit finished > ; caught 2 WARNING conditions > ; caught 2 STYLE-WARNING conditions Patch: --- backend/sbcl.lisp.orig Wed Jul 25 20:56:40 2007 +++ backend/sbcl.lisp Tue Aug 28 11:50:32 2007 @@ -32,7 +32,7 @@ (sb-alien:cast buf (* sb-alien:char)) 256))) (when (= result 0) - (cast buf sb-alien:c-string)))))) + (sb-alien:cast buf sb-alien:c-string)))))) #+ecl Test result: clisp > Actual value: #<USOCKET:CONNECTION-REFUSED-ERROR #x19F1FFC1>. > 10 out of 15 total tests failed: USOCKET-TEST::SOCKET-FAILURE.1, > USOCKET-TEST::SOCKET-FAILURE.2, 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. sbcl > Actual value: #<USOCKET:UNKNOWN-ERROR {AF8EF41}>. > 10 out of 15 total tests failed: USOCKET-TEST::SOCKET-FAILURE.1, > USOCKET-TEST::SOCKET-FAILURE.2, 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. -- WBR, Yaroslav Kavenchuk.

1 0