Explicitly comment the structure of a simple test case.
This commit is contained in:
parent
4a80d69283
commit
b10ff08ce5
17
test-dns.rkt
17
test-dns.rkt
|
@ -16,10 +16,19 @@
|
||||||
;; 00000010: 67 6C 65 03 63 6F 6D 00 : 00 FF 00 01 gle.com.....
|
;; 00000010: 67 6C 65 03 63 6F 6D 00 : 00 FF 00 01 gle.com.....
|
||||||
;; 0000001C:
|
;; 0000001C:
|
||||||
(define (q-google-in-any-bytes)
|
(define (q-google-in-any-bytes)
|
||||||
(bytes #x66 #x3A #x01 #x00 #x00 #x01 #x00 #x00
|
(bytes #x66 #x3A ;; query ID
|
||||||
#x00 #x00 #x00 #x00 #x06 #x67 #x6F #x6F
|
#x01 #x00 ;; flags and bits
|
||||||
#x67 #x6C #x65 #x03 #x63 #x6F #x6D #x00
|
#x00 #x01 ;; one question
|
||||||
#x00 #xFF #x00 #x01))
|
#x00 #x00 ;; no answers
|
||||||
|
#x00 #x00 ;; no name server records
|
||||||
|
#x00 #x00 ;; no additional records
|
||||||
|
;; The question:
|
||||||
|
#x06 #x67 #x6F #x6F #x67 #x6C #x65 ;; "google"
|
||||||
|
#x03 #x63 #x6F #x6D ;; "com"
|
||||||
|
#x00 ;; end of domain name
|
||||||
|
#x00 #xFF ;; query type ANY
|
||||||
|
#x00 #x01 ;; query class IN
|
||||||
|
))
|
||||||
|
|
||||||
;; q-google-in-any : DNSMessage
|
;; q-google-in-any : DNSMessage
|
||||||
;; Decoded (q-google-in-any-bytes).
|
;; Decoded (q-google-in-any-bytes).
|
||||||
|
|
Loading…
Reference in New Issue