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

[usocket-devel] Www.RiniaMp3.NET Free Mp3 Site
by usocket-devel＠common-lisp.net 11 Jan '08

11 Jan '08

RiniaMp3.NET - http://www.Riniamp3.NET Hi Mr/Mrs. You are welcome to the http://www.riniamp3.net About 15.000 songs and video clips for free We do not charge for something. You do not need to put Credit Card or something to pay. All you have to do is to download your best songs. It iss all for free at www.riniamp3.net

1 0

[usocket-devel] Www.RiniaMp3.NET Free Mp3 Site
by usocket-devel＠common-lisp.net 11 Jan '08

11 Jan '08

RiniaMp3.NET - http://www.Riniamp3.NET Hi Mr/Mrs. You are welcome to the http://www.riniamp3.net About 15.000 songs and video clips for free We do not charge for something. You do not need to put Credit Card or something to pay. All you have to do is to download your best songs. It iss all for free at www.riniamp3.net

1 0

[usocket-devel] Polling Connection Socket
by Volkan YAZICI 23 Dec '07

23 Dec '07

Hi, There are lots of messages dropping to comp.lang.lisp and #lisp @ irc.freenode.net about how to poll a connection socket. One common advice is to implement it on top of READ-CHAR-NO-HANG with timers. Would anybody consider contributing such a socket polling facility to usocket library? It might not be totally portable across all lisp implementations in the wide, but will probably run on major ones. This will be better than not having any. Any ideas? Regards.

2 1

[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

[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

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

29 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 29 Jul '07

29 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