steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implement resolve-host for dns vocab

db4
Doug Coleman 2010-10-03 03:31:12 -05:00
parent 52b11a88a6
commit 676f6b6e06
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/dns/dns.factor
View File

@ -330,7 +330,7 @@ M: SOA rdata>byte-array
: udp-query ( bytes server -- bytes' ) : udp-query ( bytes server -- bytes' )
f 0 <inet4> <datagram> f 0 <inet4> <datagram>
5 seconds over set-timeout [ 30 seconds over set-timeout [
[ send ] [ receive drop ] bi [ send ] [ receive drop ] bi
] with-disposal ; ] with-disposal ;
@ -358,6 +358,10 @@ M: SOA rdata>byte-array
: message>names ( message -- names ) : message>names ( message -- names )
answer-section>> [ rdata>> name>> ] map ; answer-section>> [ rdata>> name>> ] map ;
: message>a-names ( message -- names )
answer-section>>
[ rdata>> ] map [ a? ] filter [ name>> ] map ;
: message>mxs ( message -- assoc ) : message>mxs ( message -- assoc )
answer-section>> [ rdata>> [ preference>> ] [ exchange>> ] bi 2array ] map ; answer-section>> [ rdata>> [ preference>> ] [ exchange>> ] bi 2array ] map ;
@ -396,6 +400,8 @@ M: SOA rdata>byte-array
[ dns-AAAA-query a-message. ] [ dns-AAAA-query a-message. ]
[ dns-MX-query mx-message. ] tri ; [ dns-MX-query mx-message. ] tri ;
! M: string resolve-host dns-A-query message>a-names [ <ipv4> ] map ;
HOOK: initial-dns-servers os ( -- seq ) HOOK: initial-dns-servers os ( -- seq )
{ {