From 89c262982c24b7d3aa75bfddfe08eee3a2455639 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 10 Oct 2012 15:00:48 -0700
Subject: [PATCH] tools.dns: Show ipv6 ips in host command.
---
extra/tools/dns/dns.factor | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/extra/tools/dns/dns.factor b/extra/tools/dns/dns.factor
index c3b6ad87e1..6abd13f7a0 100644
--- a/extra/tools/dns/dns.factor
+++ b/extra/tools/dns/dns.factor
@@ -6,10 +6,20 @@ IN: tools.dns
: a-line. ( host ip -- )
[ write " has address " write ] [ print ] bi* ;
+: aaaa-line. ( host ip -- )
+ [ write " has IPv6 address " write ] [ print ] bi* ;
+
: a-message. ( message -- )
[ message>query-name ] [ message>a-names ] bi
[ a-line. ] with each ;
+: (aaaa-message.) ( message -- )
+ [ message>query-name ] [ message>aaaa-names ] bi
+ [ aaaa-line. ] with each ;
+
+: aaaa-message. ( message -- )
+ [ a-message. ] [ (aaaa-message.) ] bi ;
+
: mx-line. ( host pair -- )
[ write " mail is handled by " write ]
[ first2 [ number>string write bl ] [ print ] bi* ] bi* ;
@@ -20,5 +30,5 @@ IN: tools.dns
: host ( domain -- )
[ dns-A-query a-message. ]
- [ dns-AAAA-query a-message. ]
+ [ dns-AAAA-query aaaa-message. ]
[ dns-MX-query mx-message. ] tri ;