mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(lisp/dns): Export struct fields

Browse source
This commit is contained in:
Vincent Ambo 2020-01-26 20:34:03 +00:00
parent 4c109f66b6
commit 3f9546197e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/dns/message.lisp
View file

@ -643,7 +643,7 @@
(write-byte 0 stream)) (write-byte 0 stream))
;; 4.1.2. Question section format ;; 4.1.2. Question section format
(defbinary dns-question (:byte-order :big-endian) (defbinary dns-question (:byte-order :big-endian :export t)
;; a domain name represented ;; a domain name represented
(qname "" :type (custom :lisp-type qname (qname "" :type (custom :lisp-type qname
:reader #'read-qname :reader #'read-qname
@ -661,7 +661,6 @@
;; 4.1.3. Resource record format ;; 4.1.3. Resource record format
(defbinary dns-rr (:byte-order :big-endian)
(define-enum dns-type 2 (define-enum dns-type 2
(:byte-order :big-endian) (:byte-order :big-endian)
@ -677,6 +676,7 @@
(AAAA 28) (AAAA 28)
(ANY 255)) ;; (typically wants SOA, MX, NS and MX) (ANY 255)) ;; (typically wants SOA, MX, NS and MX)
(defbinary dns-rr (:byte-order :big-endian :export t)
(name nil :type (custom :lisp-type qname (name nil :type (custom :lisp-type qname
:reader #'read-qname :reader #'read-qname
:writer #'write-qname)) :writer #'write-qname))
@ -712,7 +712,7 @@
((A) '(simple-array (unsigned-byte 8) (4))) ((A) '(simple-array (unsigned-byte 8) (4)))
(otherwise `(simple-array (unsigned-byte 8) (,rdlength))))))) (otherwise `(simple-array (unsigned-byte 8) (,rdlength)))))))
(defbinary dns-message (:byte-order :big-endian) (defbinary dns-message (:byte-order :big-endian :export t)
(header nil :type dns-header) (header nil :type dns-header)
;; the question for the name server ;; the question for the name server