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

[usocket-devel] UDP support in usocket, ideas explained
by Erik Huelsmann 03 Oct '08

03 Oct '08

When looking at usocket.lisp, you'll find there is a datagram-usocket class commented out. I think this class (even without any additional slot definitions) should be used for UDP sockets. Then there's datagram-usocket-p, which should start returning T when the passed in object is a true descendant of DATAGRAM-USOCKET. Looking further, you'll find there are functions defined for creating stream and stream-server objects. A function like that should be created for UDP sockets. I think it's only sane to extend WAIT-FOR-INPUT to apply to UDP sockets as well as any of the currently supported sockets. The LispWorks variant of this function (for win32) is still on my laptop. I'll try to finish it up soon, so that you can all start testing it. I propose we implement recv()/recvfrom() as one function: SOCKET-RECEIVE. I think we shouldn't bother implementing recv() and recvfrom() as separate interfaces: I think we should return the recvfrom-address field as the second return value of SOCKET-RECEIVE. I also propose we implement send()/sendto() as one function: SOCKET-SEND. I think we should provide the sendto address as an optional parameter to the SOCKET-SEND function. Also, I think the function should check for connected-ness of the datagram socket. If the sendto address is specified on a connected socket AND the address specified is unequal to the connected address, the function should error. Oh. One last thing: local and peer address retrieval functions should be adapted to apply to UDP sockets as well as the currently supported stream sockets. I hope this is all a bit clear! If you have (m)any questions, please don't hesitate to ask. Bye, Erik.

2 9

[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 09 Aug '08

09 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 05 Aug '08

05 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