[REBOL] Re: No-wait
From: g:santilli:tiscalinet:it at: 23-Feb-2004 12:14
Hi Paul,
On Monday, February 23, 2004, 4:31:01 AM, you wrote:
PT> Even that still blocks. Need a way of not waiting for the port data if
PT> nothing is there. A way to just continue processing the rest of the forever
PT> loop which should be continously print the current value of x. Maybe, I
PT> need to see an example of something that works.
listen: open/no-wait tcp://:7000
listen/awake: func [port /local conn] [
print "Got connection"
conn: first port
; do something with conn
false
]
insert tail system/ports/wait-list listen
x: 0
forever [
print x: x + 1
wait 0.2
]
Regards,
Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer
Amiga Group Italia sez. L'Aquila --- SOON: http://www.rebol.it/