Revision 02e7f855cb4dcc54e2f1e1de41e8720cd1a9ed7f authored by pecornilleau on 04 April 2024, 16:11:12 UTC, committed by pecornilleau on 04 April 2024, 17:15:54 UTC
1 parent eaf7214
dac_rpc.ml
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2023 Marigold <contact@marigold.dev> *)
(* *)
(* Permission is hereby granted, free of charge, to any person obtaining a *)
(* copy of this software and associated documentation files (the "Software"),*)
(* to deal in the Software without restriction, including without limitation *)
(* the rights to use, copy, modify, merge, publish, distribute, sublicense, *)
(* and/or sell copies of the Software, and to permit persons to whom the *)
(* Software is furnished to do so, subject to the following conditions: *)
(* *)
(* The above copyright notice and this permission notice shall be included *)
(* in all copies or substantial portions of the Software. *)
(* *)
(* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*)
(* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *)
(* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *)
(* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*)
(* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *)
(* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *)
(* DEALINGS IN THE SOFTWARE. *)
(* *)
(*****************************************************************************)
let make ?data ?query_string = RPC_core.make ?data ?query_string
(** [encode_bytes_for_json raw] encodes arbitrary byte sequence as hex string for JSON *)
let encode_bytes_to_hex_string raw =
"\"" ^ match Hex.of_string raw with `Hex s -> s ^ "\""
module V0 = struct
let api_prefix = "v0"
let get_preimage page_hash =
make GET [api_prefix; "preimage"; page_hash] JSON.as_string
let make_put_dac_member_signature_request_body ~dac_member_pkh ~root_hash
signature =
let (`Hex root_hash) = root_hash in
`O
[
("root_hash", `String root_hash);
("signer_pkh", `String dac_member_pkh);
( "signature",
`String (Tezos_crypto.Aggregate_signature.to_b58check signature) );
]
let put_dac_member_signature ~hex_root_hash ~dac_member_pkh ~signature =
let payload =
make_put_dac_member_signature_request_body
~dac_member_pkh
~root_hash:hex_root_hash
signature
in
let data : RPC_core.data = Data payload in
make ~data PUT [api_prefix; "dac_member_signature"] @@ fun _resp -> ()
let get_missing_page ~hex_root_hash =
make GET [api_prefix; "missing_page"; Hex.show hex_root_hash] JSON.as_string
let get_certificate ~hex_root_hash =
let (`Hex page_hash) = hex_root_hash in
make GET [api_prefix; "certificates"; page_hash] @@ fun json ->
JSON.
( json |-> "witnesses" |> as_int,
json |-> "aggregate_signature" |> as_string,
json |-> "root_hash" |> as_string,
json |-> "version" |> as_int )
let get_serialized_certificate ~hex_root_hash =
let (`Hex page_hash) = hex_root_hash in
make GET [api_prefix; "serialized_certificates"; page_hash] JSON.as_string
module Coordinator = struct
let post_preimage ~payload =
let preimage =
JSON.parse
~origin:"Rollup.DAC.RPC.coordinator_post_preimage"
(encode_bytes_to_hex_string payload)
in
let data : RPC_core.data = Data (JSON.unannotate preimage) in
make ~data POST [api_prefix; "preimage"] JSON.as_string
end
end
let get_health_live = make GET ["health"; "live"] JSON.as_bool
let get_health_ready = make GET ["health"; "ready"] JSON.as_bool
module V1 = struct
let api_prefix = "v1"
let get_pages page_hash =
make GET [api_prefix; "pages"; page_hash] JSON.as_string
end
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...