Minor rearrangements
This commit is contained in:
parent
b390b9bc6f
commit
517f0e604d
|
@ -3,16 +3,6 @@
|
||||||
(require "os-big-bang.rkt")
|
(require "os-big-bang.rkt")
|
||||||
(require "os-udp.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)
|
(define (counter server-socket)
|
||||||
(os-big-bang 0
|
(os-big-bang 0
|
||||||
(subscribe 'packet-handler
|
(subscribe 'packet-handler
|
||||||
|
@ -23,7 +13,17 @@
|
||||||
(udp-packet server-socket source
|
(udp-packet server-socket source
|
||||||
(integer->integer-bytes current-counter 8 #f))))]))))
|
(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
|
(ground-vm
|
||||||
(os-big-bang 'none
|
(os-big-bang 'none
|
||||||
(spawn udp-driver)
|
(spawn udp-driver)
|
||||||
(spawn socket-maker)))
|
(spawn main)))
|
||||||
|
|
Loading…
Reference in New Issue