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

Contract error was because of an uncaught use of os2 protocols

This commit is contained in:
Tony Garnock-Jones 2012-10-31 18:52:08 -04:00
parent 510ba9d750
commit 392d9d4091
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
network-query.rkt
View File

@ -212,15 +212,16 @@
(define (make-dns-address ip-address) (define (make-dns-address ip-address)
(udp-remote-address (ip->host-name ip-address) 53)) (udp-remote-address (ip->host-name ip-address) 53))
;; network-query : UdpAddress Question DomainName NEListOf<DomainName> UniqueId -> BootK ;; network-query : UdpAddress Question DomainName NEListOf<DomainName> UniqueId -> Spawn
(define (network-query s q zone-origin server-names unique-id) (define (network-query s q zone-origin server-names unique-id)
(lambda (self-pid) (spawn #:debug-name (list 'network-query q)
(try-next-server (network-query-state (network-request s q zone-origin server-names unique-id) #:child
first-timeout (try-next-server (network-query-state (network-request s q zone-origin server-names unique-id)
(hash) first-timeout
'() (hash)
#f '()
server-names)))) #f
server-names))))
(define (try-next-server w) (define (try-next-server w)
(match w (match w

11
proxy.rkt
View File

@ -242,12 +242,11 @@
q referral-id (domain-labels zone-origin) q referral-id (domain-labels zone-origin)
(map domain-labels (set-map nameserver-rrs rr-rdata)))) (map domain-labels (set-map nameserver-rrs rr-rdata))))
(transition w (transition w
(spawn #:debug-name (list 'network-query q) (network-query client-sock
#:child (network-query client-sock q
q zone-origin
zone-origin (map rr-rdata (set->list nameserver-rrs))
(map rr-rdata (set->list nameserver-rrs)) referral-id)
referral-id))
(endpoint #:subscriber (network-reply referral-id (wild)) (endpoint #:subscriber (network-reply referral-id (wild))
#:name referral-id #:name referral-id
#:state w #:state w