extra/dns/stub/stub.factor

   1
   2 USING: kernel sequences random accessors dns ;
   3
   4 IN: dns.stub
   5
   6 ! Stub resolver
   7 !
   8 ! Generally useful, but particularly when running a forwarding,
   9 ! caching, nameserver on localhost with multiple Factor instances
  10 ! querying it.
  11
  12 : name->ip ( name -- ip )
  13   A IN query boa
  14   query->message
  15   ask
  16   dup rcode>> NAME-ERROR =
  17     [ message-query name>> name-error ]
  18     [ answer-section>> [ type>> A = ] filter random rdata>> ]
  19   if ;
  20