15 lines
365 B
OCaml
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
|