[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-help
Subject:    [Sbcl-help] Having trouble with sbcl networking.
From:       Fabian Bull <bull.fabian () googlemail ! com>
Date:       2010-01-02 17:35:55
Message-ID: 177d85d91001020935x539779e9l9f7a2765373533a () mail ! gmail ! com
[Download RAW message or body]

[Attachment #2 (multipart/alternative)]


hi everybody.

First of all: I am relatively new to Lisp, so  please be nice to me :D.

I am tinkering with the sbcl networking abilities but I just can't get a
stream to work.
I tried to exchange messages between 2 concurrent slime processes.
That's what I tried:

Client:   (defparameter *client* (make-instance 'inet-socket
                                                                   :type
:stream
                                                                   :protocol
:tcp))
Server:   (defparameter *server* (make-instance 'inet-socket
                                                                   :type
:stream
                                                                   :protocol
:tcp))
Client:(socket-bind *client* #(192 168 1 42) 33333)
Server:(socket-bind *server* #(192 168 1 42) 44444)
Server:(socket-listen *server* 100)
Client:(socket-connect *client* #(192 168 1 42) 44444)

At this stage I can send data with socket-send and socket-receive. But If I
try something like:

Client:(defparameter *stream1 (socket-make-stream *client* :input t :output
t))
Server:(defparameter *stream1 (socket-make-stream *server* :input t :output
t))

I can't wright something like:
Client:(format *stream*1 "hello, server")
Server:(read *stream2*)  -> "hello, server"

I don't get any error if I try this commands but I don't get a message too.
Can anybody help me in working with streams?

thanks in advance.

[Attachment #5 (text/html)]

hi everybody.<br><br>First of all: I am relatively new to Lisp, so=A0 pleas=
e be nice to me :D.<br><br>I am tinkering with the sbcl networking abilitie=
s but I just can&#39;t get a stream to work.<br>I tried to exchange message=
s between 2 concurrent slime processes.<br>
That&#39;s what I tried:<br><br>Client:=A0=A0 (defparameter *client* (make-=
instance &#39;inet-socket<br>=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=
=A0=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 :type :stream<br>=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=
=A0=A0 =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0 :protocol :tcp))<br>
Server:=A0=A0 (defparameter *server* (make-instance &#39;inet-socket<br>
=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0=A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 :ty=
pe :stream<br>
=A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 :protocol :tcp))<br>Client:(sock=
et-bind *client* #(192 168 1 42) 33333)<br>Server:(socket-bind *server* #(1=
92 168 1 42) 44444)<br>Server:(socket-listen *server* 100)<br>
Client:(socket-connect *client* #(192 168 1 42) 44444)<br><br>At this stage=
 I can send data with socket-send and socket-receive. But If I try somethin=
g like:<br><br>Client:(defparameter *stream1 (socket-make-stream *client* :=
input t :output t))<br>
Server:(defparameter *stream1 (socket-make-stream *server* :input t :output=
 t))<br><br>I can&#39;t wright something like: <br>Client:(format *stream*1=
 &quot;hello, server&quot;)<br>Server:(read *stream2*)=A0 -&gt; &quot;hello=
, server&quot;<br>
<br>I don&#39;t get any error if I try this commands but I don&#39;t get a =
message too.<br>Can anybody help me in working with streams?<br><br>thanks =
in advance.<br><br>


------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev 

_______________________________________________
Sbcl-help mailing list
Sbcl-help@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-help


[prev in list] [next in list] [prev in thread] [next in thread]