Source file `chunk.ml`

1
2
3
4
5
6
7
8
9
10
type t = int * string

let length (_, data) = String.length data

let pp fmt (addr, data) =
  Format.fprintf fmt "0x%04x, " addr;

  if String.is_valid_utf_8 data then Format.fprintf fmt "\"%s\"" data
  else
    Format.pp_print_string fmt (Cstruct.to_hex_string (Cstruct.of_string data))