[REBOL] Re: Problem: Talking from Rebol to Rebol via socket
From: sqlab:gmx at: 23-Feb-2009 11:31
Here is your example with some minor changes, that should work.
listen: open/no-wait join tcp://: c-port
; 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"]
print copy connection
print [tab "Send answer to c-side"]
insert connection "r-side"
print [tab "Closing socket"]
connection: open/no-wait tcp://localhost:12345
insert connection "r-side-client"
while [data: copy connection] [probe data]
Robert M. Münch wrote: