-(defenum sshfp-algorithm (rsa 1) (dsa 2) (ecdsa 3))
-(defenum sshfp-type (sha-1 1) (sha-256 2))
+(defenum sshfp-algorithm () (:rsa 1) (:dsa 2) (:ecdsa 3))
+(defenum sshfp-type () (:sha-1 1) (:sha-256 2))
(export 'bind-format-record)
(defun bind-format-record (zr format &rest args)
(format *zone-output-stream*
(export 'bind-format-record)
(defun bind-format-record (zr format &rest args)
(format *zone-output-stream*
(format *zone-output-stream* " )~%")))))
(defmethod zone-write-record ((format (eql :bind)) (type (eql :a)) zr)
(format *zone-output-stream* " )~%")))))
(defmethod zone-write-record ((format (eql :bind)) (type (eql :a)) zr)
(cdr (zr-data zr))
(bind-hostname (car (zr-data zr)))))
(defmethod zone-write-record ((format (eql :bind)) (type (eql :srv)) zr)
(destructuring-bind (prio weight port host) (zr-data zr)
(cdr (zr-data zr))
(bind-hostname (car (zr-data zr)))))
(defmethod zone-write-record ((format (eql :bind)) (type (eql :srv)) zr)
(destructuring-bind (prio weight port host) (zr-data zr)
prio weight port (bind-hostname host))))
(defmethod zone-write-record ((format (eql :bind)) (type (eql :sshfp)) zr)
prio weight port (bind-hostname host))))
(defmethod zone-write-record ((format (eql :bind)) (type (eql :sshfp)) zr)
;;;--------------------------------------------------------------------------
;;; tinydns-data output format.
;;;--------------------------------------------------------------------------
;;; tinydns-data output format.
(member byte '(#\: #\\) :key #'char-code))
(format out "\\~3,'0O" byte)
(write-char (code-char byte) out)))))
(member byte '(#\: #\\) :key #'char-code))
(format out "\\~3,'0O" byte)
(write-char (code-char byte) out)))))