Anri/dns-toy
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

simplify question to bytes

Browse source
This commit is contained in:
Mylloon 2023-06-05 20:42:05 +02:00
parent a8bbd69b7e
commit 53668483bb
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/query.ml
View file

@ -14,11 +14,8 @@ let header_to_bytes header =
;; ;;
let question_to_bytes question = let question_to_bytes question =
let buffer1 = new_buffer question [ question.type_; question.class_ ] in let buffer = new_buffer question [ question.type_; question.class_ ] in
let buffer2 = Buffer.create (Bytes.length question.name + Bytes.length buffer1) in Bytes.cat buffer question.name
Buffer.add_bytes buffer2 question.name;
Buffer.add_bytes buffer2 buffer1;
buffer2
;; ;;
let encode_dns_name domain_name = let encode_dns_name domain_name =