From 6cf0413f989e2510d992cc2499412e2ad37c4428 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 24 Mar 2004 20:53:19 +0000
Subject: [PATCH] Export a whole bunch of procedures from the low-level
 interface of the DNS library.

---
 scheme/packages.scm | 61 ++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 60 insertions(+), 1 deletion(-)

diff --git a/scheme/packages.scm b/scheme/packages.scm
index 326c0f2..4f77c75 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -158,7 +158,66 @@
 	  dns-check-nameservers         ; checks for working nameservers
 	  socket-address->fqdn
 	  host-fqdn
-	  system-fqdn))
+	  system-fqdn
+
+          dns-get-information
+          
+          (network-protocol :syntax)
+          network-protocol?
+          dns-lookup
+          
+          dns-message? dns-message-query dns-message-reply dns-message-cache?
+          dns-message-protocol dns-message-tried-nameservers
+
+          pretty-print-dns-message
+          
+          message? message-header message-questions message-answers
+          message-nameservers message-additionals message-source
+
+          make-query-message make-simple-query-message
+          
+          header? header-flags header-question-count header-answer-count
+          header-nameserver-count header-additional-count
+
+          flags? flags-query-type flags-opcode flags-authoritative?
+          flags-truncated? flags-recursion-desired? flags-recursion-available?
+          flags-zero flags-response-code
+
+          question? question-name question-type question-class
+
+          (message-class :syntax)
+          message-class? message-class-name message-class-number
+
+          (message-type :syntax)
+          message-type? message-type-name message-type-number
+
+          resource-record?
+          resource-record-name resource-record-type
+          resource-record-class resource-record-ttl 
+          resource-record-data
+          
+          resource-record-data-a? resource-record-data-a-ip
+          resource-record-data-ns? resource-record-data-ns-name
+          resource-record-data-cname? resource-record-data-cname-name
+          resource-record-data-mx? resource-record-data-mx-preference
+          resource-record-data-mx-exchanger resource-record-data-ptr?
+          resource-record-data-ptr-name
+
+          resource-record-data-soa?
+          resource-record-data-soa-mname
+          resource-record-data-soa-rname
+          resource-record-data-soa-serial
+          resource-record-data-soa-refresh
+          resource-record-data-soa-retry
+          resource-record-data-soa-expire
+          resource-record-data-soa-minimum
+
+          cache? cache-answer cache-ttl cache-time
+
+          resolv.conf-parse-error?
+          resolv.conf parse-resolv.conf! 
+          
+          domains-for-search))
 
 (define-interface ips-interface
   (export address32->ip-string