syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Bounce relay

This commit is contained in:
Tony Garnock-Jones 2019-05-03 11:20:22 +01:00
parent ed7cf375ad
commit 508e37171d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/broker/tf.rkt
View File

@ -140,6 +140,8 @@
(field [pending1 '()] (field [pending1 '()]
[pending2 '()]) [pending2 '()])
(stop-when (message (terminate (list 'relay node1 node2))))
(during (router-connection node1 node1-connid) (during (router-connection node1 node1-connid)
(on (message (router-outbound node1-connid $body)) (on (message (router-outbound node1-connid $body))
(pending1 (cons body (pending1))))) (pending1 (cons body (pending1)))))
@ -181,6 +183,9 @@
(pause 1 (send! (change-presence 'c1 #f))) (pause 1 (send! (change-presence 'c1 #f)))
(pause 0.2 (send! (change-presence 'c1 #t))) (pause 0.2 (send! (change-presence 'c1 #t)))
(pause 0.4 (send! (terminate (list 'relay 'n1 'n2))))
(pause 0.4 (relay 'n1 'n2))
(pause 0.2 (send! (terminate 'c1))) (pause 0.2 (send! (terminate 'c1)))
(pause 0.2 (send! (terminate 'c3))) (pause 0.2 (send! (terminate 'c3)))
(pause 0.2 (send! (terminate 'c2))) (pause 0.2 (send! (terminate 'c2)))