[REBOL] Re: Problem: Talking from Rebol to Rebol via socket
From: sqlab:gmx at: 23-Feb-2009 13:00
ok, the same example
with waiting for events and ping pong messages in a 10 sec forever
intervall.
This you can do with many sockets too, but then it is more elegant to
use awake finctions.
rebol []
c-port: 12345
listen: open/no-wait join tcp://: c-port
waitports: [listen]
print "Listening:"
forever [
; wait until something happens
either same? listen connection: wait waitports [
print [tab "Connected"]
c-client: first connection
append waitports c-client
] [
print [tab "Read message from c-side"]
msg: copy connection
either not msg [
print [tab "Closing socket"]
close connection
] [
print msg
print [tab "Send answer to c-side"]
insert connection "r-side"
]
]
]
rebol []
connection: open/no-wait tcp://localhost:12345
forever [
insert connection "r-side-client"
wait connection
probe copy connection
wait 10
]
Robert M. Münch wrote: