Minor rearrangements
This commit is contained in:
parent
b390b9bc6f
commit
517f0e604d
|
@ -3,16 +3,6 @@
|
|||
(require "os-big-bang.rkt")
|
||||
(require "os-udp.rkt")
|
||||
|
||||
(define socket-maker
|
||||
(os-big-bang 'no-state
|
||||
(send-message `(request create-echo-socket (udp new 5678 65536)))
|
||||
(subscribe/fresh sub
|
||||
(message-handlers w
|
||||
[`(reply create-echo-socket ,server-socket)
|
||||
(transition w
|
||||
(unsubscribe sub)
|
||||
(spawn (counter server-socket)))]))))
|
||||
|
||||
(define (counter server-socket)
|
||||
(os-big-bang 0
|
||||
(subscribe 'packet-handler
|
||||
|
@ -23,7 +13,17 @@
|
|||
(udp-packet server-socket source
|
||||
(integer->integer-bytes current-counter 8 #f))))]))))
|
||||
|
||||
(define main
|
||||
(os-big-bang 'no-state
|
||||
(send-message `(request create-echo-socket (udp new 5678 65536)))
|
||||
(subscribe/fresh sub
|
||||
(message-handlers w
|
||||
[`(reply create-echo-socket ,server-socket)
|
||||
(transition w
|
||||
(unsubscribe sub)
|
||||
(spawn (counter server-socket)))]))))
|
||||
|
||||
(ground-vm
|
||||
(os-big-bang 'none
|
||||
(spawn udp-driver)
|
||||
(spawn socket-maker)))
|
||||
(spawn main)))
|
||||
|
|
Loading…
Reference in New Issue