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

Rename ClassifiedPacket to Message.

This commit is contained in:
Tony Garnock-Jones 2011-12-16 11:35:17 -05:00
parent 94486f4dba
commit 97ca27fb16
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
simple-udp-service.rkt
View File

@ -20,7 +20,7 @@
;; TODO: Should parse-packet be permitted to examine (or possibly ;; TODO: Should parse-packet be permitted to examine (or possibly
;; even transform!) the ServerState? ;; even transform!) the ServerState?
;; A Handler is a ClassifiedPacket ServerState -> ListOf<ClassifiedPacket> ServerState. ;; A Handler is a Message ServerState -> ListOf<Message> ServerState.
(define-syntax event-handlers (define-syntax event-handlers
(syntax-rules () (syntax-rules ()
@ -34,12 +34,12 @@
;; Starts a generic request/reply UDP server on the given port. ;; Starts a generic request/reply UDP server on the given port.
(define (start-udp-service (define (start-udp-service
port-number ;; Uint16 port-number ;; Uint16
parse-packet ;; UdpPacket -> ClassifiedPacket parse-packet ;; UdpPacket -> Message
;-------------------------------------------------- ;--------------------------------------------------
unparse-packet? ;; ClassifiedPacket -> Boolean unparse-packet? ;; Message -> Boolean
unparse-packet ;; ClassifiedPacket -> UdpPacket unparse-packet ;; Message -> UdpPacket
;-------------------------------------------------- ;--------------------------------------------------
event-handlers ;; ListOf<Pair<ClassifiedPacket -> Boolean, Handler>> event-handlers ;; ListOf<Pair<Message -> Boolean, Handler>>
default-handler ;; Handler default-handler ;; Handler
initial-state ;; ServerState initial-state ;; ServerState
#:packet-size-limit #:packet-size-limit