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

Give names to udp-driver and udp-socket processes

This commit is contained in:
Tony Garnock-Jones 2016-09-06 16:46:14 +01:00
parent c844c0d596
commit 9ee7e677ad
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/drivers/udp.rkt
View File

@ -50,7 +50,8 @@
;; -> Action ;; -> Action
;; Spawns a process acting as a UDP socket factory. ;; Spawns a process acting as a UDP socket factory.
(define (spawn-udp-driver) (define (spawn-udp-driver)
(spawn-demand-matcher (observe (udp-packet ? (?! (udp-listener ?)) ?)) (spawn-demand-matcher #:name 'udp-driver
(observe (udp-packet ? (?! (udp-listener ?)) ?))
(advertise (udp-packet ? (?! (udp-listener ?)) ?)) (advertise (udp-packet ? (?! (udp-listener ?)) ?))
spawn-udp-socket)) spawn-udp-socket))
@ -76,7 +77,8 @@
(for-trie ([(udp-multicast-loopback _ $enabled?) (patch-added p)]) (for-trie ([(udp-multicast-loopback _ $enabled?) (patch-added p)])
(udp:udp-multicast-set-loopback! socket enabled?))) (udp:udp-multicast-set-loopback! socket enabled?)))
(spawn (lambda (e s) (spawn #:name (list 'udp-socket local-addr)
(lambda (e s)
(match e (match e
[(? patch? p) [(? patch? p)
(update-multicast! p) (update-multicast! p)