27 lines
382 B
OCaml
27 lines
382 B
OCaml
type reader =
|
|
{ data : bytes
|
|
; pointer : int
|
|
}
|
|
|
|
type dns_header =
|
|
{ id : int
|
|
; flags : int
|
|
; num_questions : int
|
|
; num_answers : int
|
|
; num_authorities : int
|
|
; num_additionals : int
|
|
}
|
|
|
|
type dns_question =
|
|
{ name : bytes
|
|
; type_ : int
|
|
; class_ : int
|
|
}
|
|
|
|
type dns_record =
|
|
{ name : bytes
|
|
; type_ : int
|
|
; class_ : int
|
|
; ttl : int
|
|
; data : bytes
|
|
}
|