syndicate-lang
/
syndicate-2017
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 9f20b36bfc
commit 5918e9ac75
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
imperative/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)))