From e1ddeb5f9071e7f264ed21e8a31dc98a0479e2a2 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 17 Jul 2016 12:51:19 -0400 Subject: [PATCH] Use begin/dataflow to log allocated ports and statevecs --- examples/netstack/port-allocator.rkt | 4 ++-- examples/netstack/tcp.rkt | 7 ++++--- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/examples/netstack/port-allocator.rkt b/examples/netstack/port-allocator.rkt index 13dd32d..bdafd5f 100644 --- a/examples/netstack/port-allocator.rkt +++ b/examples/netstack/port-allocator.rkt @@ -18,8 +18,8 @@ (define local-ips (query-local-ip-addresses)) (define used-ports (query-used-ports)) - ;; TODO: How can I get this to run whenever used-ports changes? - ;; (log-info "port-allocator ~v used ports: ~v" allocator-type new-used-ports) + (begin/dataflow + (log-info "port-allocator ~v used ports: ~v" allocator-type (used-ports))) (on (message (port-allocation-request $reqid allocator-type)) (define currently-used-ports (used-ports)) diff --git a/examples/netstack/tcp.rkt b/examples/netstack/tcp.rkt index 0ed20a3..b7be776 100644 --- a/examples/netstack/tcp.rkt +++ b/examples/netstack/tcp.rkt @@ -200,9 +200,10 @@ (else #f)))) (else #f))) - ;; TODO: again, want to print this when local-ips or - ;; active-state-vectors change. - ;; (log-info "gestalt yielded statevecs ~v and local-ips ~v" statevecs local-ips) + (begin/dataflow + (log-info "SCN yielded statevecs ~v and local-ips ~v" + (active-state-vectors) + (local-ips))) (define (deliver-outbound-packet p) (match-define (tcp-packet #f