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

Use begin/dataflow to log allocated ports and statevecs

This commit is contained in:
Tony Garnock-Jones 2016-07-17 12:51:19 -04:00
parent e0f3650989
commit e1ddeb5f90
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/netstack/port-allocator.rkt
View File

@ -18,8 +18,8 @@
(define local-ips (query-local-ip-addresses)) (define local-ips (query-local-ip-addresses))
(define used-ports (query-used-ports)) (define used-ports (query-used-ports))
;; TODO: How can I get this to run whenever used-ports changes? (begin/dataflow
;; (log-info "port-allocator ~v used ports: ~v" allocator-type new-used-ports) (log-info "port-allocator ~v used ports: ~v" allocator-type (used-ports)))
(on (message (port-allocation-request $reqid allocator-type)) (on (message (port-allocation-request $reqid allocator-type))
(define currently-used-ports (used-ports)) (define currently-used-ports (used-ports))

7
examples/netstack/tcp.rkt
View File

@ -200,9 +200,10 @@
(else #f)))) (else #f))))
(else #f))) (else #f)))
;; TODO: again, want to print this when local-ips or (begin/dataflow
;; active-state-vectors change. (log-info "SCN yielded statevecs ~v and local-ips ~v"
;; (log-info "gestalt yielded statevecs ~v and local-ips ~v" statevecs local-ips) (active-state-vectors)
(local-ips)))
(define (deliver-outbound-packet p) (define (deliver-outbound-packet p)
(match-define (tcp-packet #f (match-define (tcp-packet #f