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

[usocket-devel] What if a usocket instance be garbage collected?
by Chun Tian (binghe) 01 Oct '08

01 Oct '08

Hi, usocket devel If a usocket instance has been garbage collected (or just cannot refer to it, i. e. lost it by set the variable to new value), does anyone (either usocket or CL platform) will consider closing the correspond socket fd automatically? I know at least one CL platform, LispWorks, has some related API (HCL:ADD-SPECIAL-FREE-ACTION) [1], and I want to use it in my UDP applications. Just don't know if this will be a common feature to be considered by usocket itself. Any opinions? --binghe [1] http://www.lispworks.com/documentation/lw51/LWUG/html/lwuser-149.htm#pgfId-…

3 4

Re: [usocket-devel] Compile failure on CLISP 2.46
by Leslie P. Polzer 01 Oct '08

01 Oct '08

>> So the libc6 statement would work for 99% of UNIX users > > Unix or Linux? What statement would we need on Solaris/ *BSD? I don't have boxes to check on, but I suppose libc6.so is pretty safe for UNIX. >> whereas the current situation works for 0% of CLISP users. > > Well, if it really didn't work, I wouldn't have included it in the > distribution. Sorry for the bold statement. :) > It's definitely working for me: Debian/Etch on x86. Are > any of you also using Debian yet experiencing problems? I'm using ArchLinux. What does ls /lib/libc* give you? Maybe I'm missing a symbolic link? Leslie -- LinkedIn Profile: http://www.linkedin.com/in/polzer Xing Profile: https://www.xing.com/profile/LeslieP_Polzer Blog: http://blog.viridian-project.de/

3 3

[usocket-devel] Compile failure on CLISP 2.46
by Zach Beane 30 Sep '08

30 Sep '08

When compiling usocket 0.3.7 on CLISP 2.46, I get this error: ;; Loading file /Users/xach/src/zs3-test/source/usocket-0.3.7/backend/clisp.fas ... ** - Continuable Error FFI::FIND-FOREIGN-FUNCTION: foreign function "gethostname" does not exist Any ideas? Zach

3 7

[usocket-devel] Re: usocket-devel post from larsnostdal@gmail.com requires approval
by Erik Huelsmann 18 Sep '08

18 Sep '08

Hi Lars! Thanks for the report. Sorry for the delay; I finally committed your fix. I've applied a similar fix to SOCKET-LISTEN. Bye, Erik. On Tue, Aug 26, 2008 at 2:10 PM, <usocket-devel-owner(a)common-lisp.net> wrote: > As list administrator, your authorization is requested for the > following mailing list posting: > > List: usocket-devel(a)common-lisp.net > From: larsnostdal(a)gmail.com > Subject: [Fwd: Don't want FD leaks (patch)] > Reason: Post by non-member to a members-only list > > At your convenience, visit: > > http://common-lisp.net/cgi-bin/mailman/admindb/usocket-devel > > to approve or deny the request. > > > ---------- Forwarded message ---------- > From: Lars Rune Nøstdal <larsnostdal(a)gmail.com> > To: usocket-devel(a)common-lisp.net > Date: Tue, 26 Aug 2008 14:11:33 +0200 > Subject: [Fwd: Don't want FD leaks (patch)] > > > > ---------- Forwarded message ---------- > From: Lars Rune Nøstdal <larsnostdal(a)gmail.com> > To: > Date: Tue, 26 Aug 2008 14:04:09 +0200 > Subject: Don't want FD leaks (patch) > Hi, > Noticed that FDs leak in some cases. Quick test and a patch: > > (defun test () > (loop > (handler-case > (let ((socket (usocket:socket-connect "aoeuaoeu.com" 80))) > (princ socket) (terpri)) > (t (c) > (format t "do i leak? ~A~%" c))))) > > > I use lsof to test for leaks while this is running: > lnostdal@blackbox:~/programming/lisp/usocket$ lsof -a -p 25803 | nl > > Here is the patch; not tested much but seems to work for me: > > > lnostdal@blackbox:~/programming/lisp/usocket$ svn diff > Index: backend/sbcl.lisp > =================================================================== > --- backend/sbcl.lisp (revision 423) > +++ backend/sbcl.lisp (working copy) > @@ -213,27 +213,32 @@ > (not (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay))) > (unsupported 'nodelay 'socket-connect)) > > - (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket > - :type :stream :protocol :tcp)) > - (stream (sb-bsd-sockets:socket-make-stream socket > - :input t > - :output t > - :buffering :full > - :element-type element-type)) > - ;;###FIXME: The above line probably needs an :external-format > - (usocket (make-stream-socket :stream stream :socket socket)) > - (ip (host-to-vector-quad host))) > - (when (and nodelay-specified > - (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)) > - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) > - (when (or local-host local-port) > - (sb-bsd-sockets:socket-bind socket > - (host-to-vector-quad > - (or local-host *wildcard-host*)) > - (or local-port *auto-port*))) > - (with-mapped-conditions (usocket) > - (sb-bsd-sockets:socket-connect socket ip port)) > - usocket)) > + (let ((socket (make-instance 'sb-bsd-sockets:inet-socket > + :type :stream :protocol :tcp))) > + (handler-case > + (let* ((stream (sb-bsd-sockets:socket-make-stream socket > + :input t > + :output t > + :buffering :full > + :element-type element-type)) > + ;;###FIXME: The above line probably needs an :external-format > + (usocket (make-stream-socket :stream stream :socket socket)) > + (ip (host-to-vector-quad host))) > + (when (and nodelay-specified > + (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)) > + (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) > + (when (or local-host local-port) > + (sb-bsd-sockets:socket-bind socket > + (host-to-vector-quad > + (or local-host *wildcard-host*)) > + (or local-port *auto-port*))) > + (with-mapped-conditions (usocket) > + (sb-bsd-sockets:socket-connect socket ip port)) > + usocket) > + (t (c) > + ;; Make sure we don't leak filedescriptors. > + (sb-bsd-sockets:socket-close socket) > + (error c))))) > > (defun socket-listen (host port > &key reuseaddress > > > > -- > Lars Rune Nøstdal || AJAX/Comet GUI type stuff for Common Lisp > http://nostdal.org/ || http://groups.google.com/group/symbolicweb > > > ---------- Forwarded message ---------- > From: usocket-devel-request(a)common-lisp.net > To: > Date: > Subject: confirm c133299de2b1ebf623d1c8e5ce04db0e85ab23b7 > If you reply to this message, keeping the Subject: header intact, > Mailman will discard the held message. Do this if the message is > spam. If you reply to this message and include an Approved: header > with the list password in it, the message will be approved for posting > to the list. The Approved: header can also appear in the first line > of the body of the reply. >

1 0

[usocket-devel] ECL on Windows: winsock.h or winsock2.h
by Anton Vodonosov 30 Aug '08

30 Aug '08

Hello. I have just tried to compile usocket with ECL (HEAD version), Windows and MSVC. It fails. Changing #include <winsock2.h> to #include <winsock.h> in the backend/sbcl.lisp made it working. Does it works for someone with winsock2.h? Best regards, -Anton

2 2

[usocket-devel] Support for UNIX sockets
by kmkaplan+usocket-devel＠ded.kim-minh.com 20 Aug '08

20 Aug '08

I need to connect to a UNIX domain socket using usocket. Here is what I came up with to make it work in SBCL. Should this be done in another function? Index: backend/sbcl.lisp =================================================================== --- backend/sbcl.lisp (révision 423) +++ backend/sbcl.lisp (copie de travail) @@ -213,8 +213,12 @@ (not (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay))) (unsupported 'nodelay 'socket-connect)) - (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket - :type :stream :protocol :tcp)) + (let* ((socket (typecase host + (pathname + (make-instance 'sb-bsd-sockets:local-socket :type :stream)) + (t + (make-instance 'sb-bsd-sockets:inet-socket + :type :stream :protocol :tcp)))) (stream (sb-bsd-sockets:socket-make-stream socket :input t :output t @@ -222,7 +226,9 @@ :element-type element-type)) ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) - (ip (host-to-vector-quad host))) + (raw-address (typecase host + (pathname (list (namestring host))) + (t (list (host-to-vector-quad host) port))))) (when (and nodelay-specified (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)) (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) @@ -232,7 +238,7 @@ (or local-host *wildcard-host*)) (or local-port *auto-port*))) (with-mapped-conditions (usocket) - (sb-bsd-sockets:socket-connect socket ip port)) + (apply 'sb-bsd-sockets:socket-connect socket raw-address)) usocket)) (defun socket-listen (host port

3 2

[usocket-devel] Fwd: [usocket-cvs] r423 - usocket/trunk/backend
by Erik Huelsmann 08 Aug '08

08 Aug '08

I made a huge number of broken commits before I finally got it to work (at least for a simple case). Could you check SBCL works with Hunchentoot now (on trunk)? Thanks in advance! Bye, Erik. ---------- Forwarded message ---------- From: <ehuelsmann(a)common-lisp.net> Date: Fri, Aug 8, 2008 at 11:08 PM Subject: [usocket-cvs] r423 - usocket/trunk/backend To: usocket-cvs(a)common-lisp.net Author: ehuelsmann Date: Fri Aug 8 17:08:41 2008 New Revision: 423 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix the fixed fix. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 17:08:41 2008 @@ -334,8 +334,8 @@ (multiple-value-bind (count err) (sb-unix:unix-fast-select - (1+ (reduce #'max (wait-list-%wait sockets)) - :key #'sb-bsd-sockets:socket-file-descriptor) + (1+ (reduce #'max (wait-list-%wait sockets) + :key #'sb-bsd-sockets:socket-file-descriptor)) (sb-alien:addr rfds) nil nil (when timeout secs) musecs) (if (null count) _______________________________________________ usocket-cvs mailing list usocket-cvs(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-cvs

1 0

[usocket-devel] bind interface?
by Chris Dean 04 Aug '08

04 Aug '08

I'm new to usocket and would like to bind a socket to a specific address. (bind as in http://www.istild.com/man-pages/man2/bind.2.html) Is there an api for that? Cheers, Chris Dean

3 11

[usocket-devel] Rebranching 0.4.x branch && road to 0.4.x release
by Erik Huelsmann 31 Jul '08

31 Jul '08

Over the last month(s), many commits have happened on trunk/ which should also be in 0.4.x. On inspection, out of 30 or 40 commits, only 4 should *not* be on 0.4.x. (The UDP socket changes.) With r405, basically everything I want to have in 0.4.x is now on trunk/. (Except - ofcourse - the SCL changes Douglas is looking into, but that can come later too.) For efficiency, I have decided to rebranch the 0.4.x branch and afterwards undoing the UDP socket changes on that branch. When that's done - at the end of this week - all that needs to happen for 0.4.x is testing. So, anybody who's interested in a release with WAIT-FOR-INPUT and :local-host binding for SOCKET-CONNECT, please provide your feedback starting Monday August 4th: we need to asses the quality of the code currently up for release on the branch! Thanks for your patience, it's been a big task to get this release done! And of course: thanks to everybody who invested time into providing feedback as well as patches! Bye, Erik.

2 2

[usocket-devel] Working the hans/ branch into trunk
by Erik Huelsmann 27 Jul '08

27 Jul '08

Hi Hans, I have a question regarding the hans/ branch: in usocket.lisp, you added the SET-SOCKET-TIMEOUTS function. However, other than the default method from the 'defgeneric' form, it doesn't look very much implemented anywhere. Did you find this is at this time not possible? If so, shouldn't we just ditch it for the moment (ie, not move to trunk/)? Bye, Erik.

1 0