Source file `int64_int64_option_set.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
include Set.Make (struct
    type t = int64 * int64 option

    let compare = compare
  end)

module Serialize = struct
  let pack (set : t) : ((int32 * int32) * (int32 * int32) option) list =
    set
    |> to_seq
    |> Seq.map (fun (x, y) ->
        ( Misc_utils.int32_int32_of_int64 x,
          Option.map Misc_utils.int32_int32_of_int64 y ))
    |> List.of_seq
end

module Deserialize = struct
  let unpack (l : ((int32 * int32) * (int32 * int32) option) list) : t =
    l
    |> List.to_seq
    |> Seq.map (fun (x, y) ->
        ( Misc_utils.int64_of_int32_int32 x,
          Option.map Misc_utils.int64_of_int32_int32 y ))
    |> of_seq
end