1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
let char_to_int : char Fmt.Hmap.Key.key = Fmt.Hmap.Key.create ()
let pp_char_to_int ?padding ?precision ppf v =
Fmt.pp_int ~conv:Fmt.Conv_d ?padding ?precision ppf (Char.code v)
let int32_to_int : int32 Fmt.Hmap.Key.key = Fmt.Hmap.Key.create ()
let pp_int32_to_int ?padding ?precision ppf v =
Fmt.pp_int32 ~conv:Fmt.Conv_d ?padding ?precision ppf v
let v =
let open Fmt.Hmap in
empty |> add char_to_int pp_char_to_int |> add int32_to_int pp_int32_to_int
let ropes_to_string : Ropes.t Fmt.Hmap.Key.key = Fmt.Hmap.Key.create ()
let pp_ropes_to_string ?padding ppf v =
let str, off, len = Ropes.to_string v in
Fmt.pp_string ?padding ppf (String.sub str off len)