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