CLOCC - Common Lisp Open Code Collection

Philippe Brochard a écrit :

> Hi all,
>
> here is a patch to clocc/net.lisp to support sbcl/sb-bsd-sockets.
>
> open-socket-server, socket-accept, open-socket,
> socket-server-close and socket-server-host/port seems to work for
> me. But I don't know how to write socket-host/port.
>
I answer to myself, here is a new patch to have the wait option in
socket-accept.
And socket-accept return two values: the stream and the real
socket. So socket-host/port works with this second value.

I use it like this (it's a little bit uggly):

(multiple-value-bind (sock #+(and sbcl sb-bsd-sockets) real-sock)
    (port:socket-accept sock-server :wait 0.5)
 ...
  (port:socket-host/port #-(and sbcl sb-bsd-sockets) sock
                         #+(and sbcl sb-bsd-sockets) real-sock)
  ...)


Regards,

Philippe

-- 
Philippe Brochard    <hocwp@...>
                      http://hocwp.free.fr

-=-= http://www.gnu.org/home.fr.html =-=-

> * Philippe Brochard <ubpjc@...> [2006-06-21 22:53:30 +0200]:
>
> I answer to myself, here is a new patch to have the wait option in
> socket-accept.

please send a unified context diff.

> And socket-accept return two values: the stream and the real
> socket. So socket-host/port works with this second value.

this is a change in the API.  not a good idea.
is sbcl socket is just the fd, one can use getsockname et al.


-- 
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://jihadwatch.org http://memri.org http://iris.org.il http://truepeace.org
http://ffii.org http://pmw.org.il http://palestinefacts.org
Lisp is a way of life.  C is a way of death.

[...]


> --- 398,405 ----
>    BIN - create a binary stream;
>    WAIT - wait for the connection this many seconds
>           (the default is NIL - wait forever).
> ! Returns a socket stream or NIL.
> ! Note: with sbcl and sb-bsd-sockets, the socket is returned as second value"

Oops, you can remove this comment in socket-accept.

>     (declare (type socket-server serv)
>              #+(or (and allegro (version>= 6)) openmcl)
>              (ignore bin))
> ***************
> *** 404,411 ****


[...]

Philippe

-- 
Philippe Brochard    <hocwp@...>
                      http://hocwp.free.fr

-=-= http://www.gnu.org/home.fr.html =-=-