package conan

  1. Overview
  2. Docs

Source file pps.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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 ~unsigned:false ~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 ~unsigned:false ~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)