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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-10-30 16:26:32 -07:00
parent 310ed5585c 89db7676c4
commit f3f1ec8b43
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/dns/forwarding/forwarding.factor
View File

@ -2,7 +2,8 @@
USING: kernel sequences combinators accessors locals random
combinators.short-circuit
io.sockets
dns dns.util dns.cache.rr dns.cache.nx ;
dns dns.util dns.cache.rr dns.cache.nx
dns.resolver ;
IN: dns.forwarding
@ -99,7 +100,9 @@ IN: dns.forwarding
MSG additional-section>> [ cache-add ] each
MSG ;
: answer-from-server ( msg servers -- msg ) random ask-server cache-message ;
! : answer-from-server ( msg servers -- msg ) random ask-server cache-message ;
: answer-from-server ( msg servers -- msg ) ask-servers cache-message ;
:: find-answer ( MSG SERVERS -- msg )
{ [ MSG answer-from-cache ] [ MSG SERVERS answer-from-server ] } 0|| ;

4
extra/dns/resolver/resolver.factor
View File

@ -60,7 +60,7 @@ IN: dns.resolver
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: dns-ip ( name -- ips )
: dns-ip4 ( name -- ips )
fully-qualified
[let | MSG [ A IN query boa query->message dns-servers ask-servers ] |
MSG rcode>> NO-ERROR =
@ -68,3 +68,5 @@ IN: dns.resolver
[ "dns-ip: rcode = " MSG rcode>> unparse append throw ]
if ] ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!