gazagnaire.org
Kubernetes CRI CLI: crictl-shaped client, simulator server, proxy
1(* Scalar wrapper messages (runtime.v1.Int64Value, runtime.v1.UInt64Value).
2 These wrap a single integer so that a "not set" sub-message is distinct from
3 an explicit zero; they appear throughout the security-context and stats
4 types. Field numbers from api.proto. *)
5
6module Pb = Protobuf
7
8type int64_value = { value : int64 }
9
10let int64_value : int64_value Pb.t =
11 let open Pb.Message in
12 v (fun value -> ({ value } : int64_value))
13 |> required 1 Pb.int64 ~enc:(fun (r : int64_value) -> r.value)
14 |> seal
15
16type uint64_value = { value : int64 }
17
18let uint64_value : uint64_value Pb.t =
19 let open Pb.Message in
20 v (fun value -> ({ value } : uint64_value))
21 |> required 1 Pb.uint64 ~enc:(fun (r : uint64_value) -> r.value)
22 |> seal