debug function now returns string instead of directly printing to stdout
This commit is contained in:
parent
10347ad517
commit
7cfb6f83ac
1 changed files with 9 additions and 9 deletions
18
lib/debug.ml
18
lib/debug.ml
|
@ -1,7 +1,7 @@
|
|||
let print_dns_header (header : Types.dns_header) =
|
||||
Printf.printf
|
||||
let dns_header (header : Types.dns_header) =
|
||||
Printf.sprintf
|
||||
"{ id = %d; flags = %d; num_questions = %d; num_answers = %d; num_authorities = %d; \
|
||||
num_additionals = %d }\n"
|
||||
num_additionals = %d }"
|
||||
header.id
|
||||
header.flags
|
||||
header.num_questions
|
||||
|
@ -10,17 +10,17 @@ let print_dns_header (header : Types.dns_header) =
|
|||
header.num_additionals
|
||||
;;
|
||||
|
||||
let print_dns_question (question : Types.dns_question) =
|
||||
Printf.printf
|
||||
"{ name = '%s'; type_ = %d; class_ = %d }\n"
|
||||
let dns_question (question : Types.dns_question) =
|
||||
Printf.sprintf
|
||||
"{ name = '%s'; type_ = %d; class_ = %d }"
|
||||
(Bytes.to_string question.name)
|
||||
question.type_
|
||||
question.class_
|
||||
;;
|
||||
|
||||
let print_dns_record (record : Types.dns_record) =
|
||||
Printf.printf
|
||||
"{ name = '%s'; type_ = %d; class_ = %d; ttl = %d; data = '%s' }\n"
|
||||
let dns_record (record : Types.dns_record) =
|
||||
Printf.sprintf
|
||||
"{ name = '%s'; type_ = %d; class_ = %d; ttl = %d; data = '%s' }"
|
||||
(Bytes.to_string record.name)
|
||||
record.type_
|
||||
record.class_
|
||||
|
|
Reference in a new issue