tcp-relay2.rkt
This commit is contained in:
parent
eb44003317
commit
f11f4fd054
|
@ -0,0 +1,18 @@
|
|||
#lang syndicate
|
||||
;; Simple TCP relay
|
||||
|
||||
(require/activate syndicate/drivers/tcp2)
|
||||
|
||||
(spawn (during (tcp-connection $id (tcp-listener 5000))
|
||||
(assert (tcp-accepted id))
|
||||
|
||||
(define root-facet-id (current-facet-id))
|
||||
(define outbound-id (gensym 'outbound-id))
|
||||
|
||||
(assert (tcp-connection outbound-id (tcp-address "localhost" 5999)))
|
||||
(during (tcp-accepted outbound-id)
|
||||
(on-stop (stop-facet root-facet-id))
|
||||
(on (message (tcp-in id $bs))
|
||||
(send! (tcp-out outbound-id bs)))
|
||||
(on (message (tcp-in outbound-id $bs))
|
||||
(send! (tcp-out id bs))))))
|
Loading…
Reference in New Issue