syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add debug names to processes

This commit is contained in:
Tony Garnock-Jones 2012-05-03 15:09:54 -04:00
parent fc829f172f
commit f8676fcca5
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
driver.rkt
View File

@ -41,18 +41,22 @@
(ground-vm
(transition 'no-state
(spawn udp-driver)
;; (spawn udp-spy #:debug-name 'udp-spy)
(spawn udp-driver #:debug-name 'udp-driver)
(spawn (nested-vm
'udp-vm
(transition 'no-state
(spawn (dns-read-driver local-addr))
(spawn (dns-write-driver local-addr))
(spawn dns-spy #:debug-name 'dns-spy)
(spawn (dns-read-driver local-addr) #:debug-name 'dns-read-driver)
(spawn (dns-write-driver local-addr) #:debug-name 'dns-write-driver)
(role 'error-logger (topic-subscriber (bad-dns-packet (wild) (wild) (wild) (wild)))
#:state w
[p (begin (log-error (pretty-format p))
w)])
(role 'request-booter (topic-subscriber (dns-request (wild) (wild) (wild)))
#:state w
[r (transition w (map send-message (handle-request soa-rr zone r)))])))))))
[r (transition w (map send-message (handle-request soa-rr zone r)))])))
#:debug-name 'nested-udp-vm))))
(define (handle-request soa-rr zone request)
(match-define (dns-request request-message request-source request-sink) request)