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

dns: remove nested-comment, add comment about resolve-host

db4
Doug Coleman 2015-07-21 12:06:17 -07:00
parent da5564bd3f
commit 280177279a
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/dns/dns.factor
View File

@ -5,9 +5,8 @@ combinators combinators.smart constructors destructors grouping
io io.binary io.encodings.binary io.encodings.string io io.binary io.encodings.binary io.encodings.string
io.encodings.utf8 io.sockets io.sockets.private io.encodings.utf8 io.sockets io.sockets.private
io.streams.byte-array io.timeouts kernel make math math.bitwise io.streams.byte-array io.timeouts kernel make math math.bitwise
math.parser namespaces nested-comments random sequences math.parser namespaces random sequences slots.syntax splitting
slots.syntax splitting system vectors vocabs strings system vectors vocabs strings ascii ;
ascii ;
IN: dns IN: dns
: with-input-seek ( n seek-type quot -- ) : with-input-seek ( n seek-type quot -- )
@ -399,14 +398,13 @@ M: TXT rdata>byte-array
: message>query-name ( message -- string ) : message>query-name ( message -- string )
query>> first name>> dotted> ; query>> first name>> dotted> ;
(* ! XXX: Turn on someday for nonblocking DNS lookups
M: string resolve-host ! M: string resolve-host
dup >lower "localhost" = [ ! dup >lower "localhost" = [
drop resolve-localhost ! drop resolve-localhost
] [ ! ] [
dns-A-query message>a-names [ <ipv4> ] map ! dns-A-query message>a-names [ <ipv4> ] map
] if ; ! ] if ;
*)
HOOK: initial-dns-servers os ( -- sequence ) HOOK: initial-dns-servers os ( -- sequence )