view examples/sockets/recv.silk @ 0:bf79fb79ee13

Initial Mercurial check in.

(load "sockets.scm")
(load "sources.scm")

(define S (make-server))
(define x (norm (linein (filesource))))
(define s (VVector. "s" 512))
(expose)
(define sk (accept S))
(addtask (send-vec sk x))

(define th2 (RThread.))
(.addTask th2 (recv-vec sk s))