Cosmetic
This commit is contained in:
parent
0d015c6e9c
commit
7bc67b0c7f
|
@ -146,6 +146,8 @@
|
||||||
(define (packet->dns-message packet)
|
(define (packet->dns-message packet)
|
||||||
(bit-string-case packet
|
(bit-string-case packet
|
||||||
([ (id :: bits 16)
|
([ (id :: bits 16)
|
||||||
|
|
||||||
|
;; 16 bits of flags, opcode, and response-code:
|
||||||
(qr :: (t:named-bit 'request 'response))
|
(qr :: (t:named-bit 'request 'response))
|
||||||
(opcode :: bits 4)
|
(opcode :: bits 4)
|
||||||
(aa :: (t:named-bit 'non-authoritative 'authoritative))
|
(aa :: (t:named-bit 'non-authoritative 'authoritative))
|
||||||
|
@ -154,6 +156,7 @@
|
||||||
(ra :: (t:named-bit 'no-recursion-available 'recursion-available))
|
(ra :: (t:named-bit 'no-recursion-available 'recursion-available))
|
||||||
(= 0 :: bits 3)
|
(= 0 :: bits 3)
|
||||||
(rcode :: bits 4)
|
(rcode :: bits 4)
|
||||||
|
|
||||||
(qdcount :: bits 16)
|
(qdcount :: bits 16)
|
||||||
(ancount :: bits 16)
|
(ancount :: bits 16)
|
||||||
(nscount :: bits 16)
|
(nscount :: bits 16)
|
||||||
|
|
Loading…
Reference in New Issue