From b440a63406be1ae09588b1ea575d06b55eabd492 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sat, 31 May 2008 07:29:54 -0500
Subject: [PATCH] dns.stub: A stub resolver

---
 extra/dns/stub/stub.factor | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 extra/dns/stub/stub.factor

diff --git a/extra/dns/stub/stub.factor b/extra/dns/stub/stub.factor
new file mode 100644
index 0000000000..a15feb5759
--- /dev/null
+++ b/extra/dns/stub/stub.factor
@@ -0,0 +1,20 @@
+
+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 ;
+