21 lines
431 B
Factor
21 lines
431 B
Factor
|
|
||
|
|
USING: kernel sequences random accessors dns ;
|
||
|
|
|
||
|
|
IN: dns.stub
|
||
|
|
|
||
|
|
! Stub resolver
|
||
|
|
!
|
||
|
|
! Generally useful, but particularly when running a forwarding,
|
||
|
|
! caching, nameserver on localhost with multiple Factor instances
|
||
|
|
! querying it.
|
||
|
|
|
||
|
|
: name->ip ( name -- ip )
|
||
|
|
A IN query boa
|
||
|
|
query->message
|
||
|
|
ask
|
||
|
|
dup rcode>> NAME-ERROR =
|
||
|
|
[ message-query name>> name-error ]
|
||
|
|
[ answer-section>> [ type>> A = ] filter random rdata>> ]
|
||
|
|
if ;
|
||
|
|
|