package daypack-lib

  1. Overview
  2. Docs

Source file int64_int64_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
include Set.Make (struct
    type t = int64 * int64

    let compare = compare
  end)

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

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