From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 15 Jun 2007 11:50:02 +0000 (+0100)
Subject: zone: Delete redundant functions.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/01be91612cfa32134d22e4d8652dff0985625984

zone: Delete redundant functions.

I've just noticed: zone-reverse and zone-reverse-records are not used by
anything, and not exported.  Delete them.
---

diff --git a/zone.lisp b/zone.lisp
index 7e6da2b..1d7e18d 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -349,44 +349,6 @@
     (setf addr (ash addr (* 8 (- 4 n))))
     (make-ipnet addr (* 8 n))))
 
-(defun zone-reverse-records (records net list bytes dom)
-  "Construct a reverse zone given a forward zone's RECORDS list, the NET that
-   the reverse zone is to serve, a LIST to collect the records into, how many
-   BYTES of data need to end up in the zone, and the DOM-ain suffix."
-  (dolist (zr records)
-    (when (and (eq (zr-type zr) :a)
-	       (not (zr-defsubp zr))
-	       (ipaddr-networkp (zr-data zr) net))
-      (collect (make-zone-record
-		:name (string-downcase
-		       (join-strings
-			#\.
-			(collecting ()
-			  (dotimes (i bytes)
-			    (collect (logand #xff (ash (zr-data zr)
-						       (* -8 i)))))
-			  (collect dom))))
-		:type :ptr
-		:ttl (zr-ttl zr)
-		:data (zr-name zr))
-	       list))))
-
-(defun zone-reverse (data name list)
-  "Process a :reverse record's DATA, for a domain called NAME, and add the
-   records to the LIST."
-  (destructuring-bind
-      (net &key bytes zones)
-      (listify data)
-    (setf net (zone-parse-net net name))
-    (dolist (z (or (listify zones)
-		   (hash-table-keys *zones*)))
-      (zone-reverse-records (zone-records (zone-find z))
-			    net
-			    list
-			    (or bytes
-				(ipnet-changeable-bytes (ipnet-mask net)))
-			    name))))
-
 (defun zone-parse-net (net name)
   "Given a NET, and the NAME of a domain to guess from if NET is null, return
    the ipnet for the network."