15 lines
379 B
OCaml
15 lines
379 B
OCaml
open Printf
|
|
|
|
let rec print_slice ?(width=8) 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_slice ~width b (start + width) last
|
|
|
|
let print_bytes ?(width=8) b width =
|
|
let l = Bytes.length b in
|
|
print_slice ~width b 0 l
|