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

Minor rearrangements

This commit is contained in:
Tony Garnock-Jones 2012-02-17 11:38:39 -05:00
parent b390b9bc6f
commit 517f0e604d
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
experiments/sfserver2.rkt
View File

@ -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)))