oboy/src/hexa.ml

15 lines
365 B
OCaml

open Printf
let print_bytes b ?(width=8) =
let l = Bytes.length b in
let rec print_line b start last =
if start < last then
let max = min (start + width - 1) last in
for i = start to max do
printf "%02X " (Bytes.get b i |> int_of_char)
done;
print_newline ();
print_line b (start + width) last
in
print_line b 0 l