67 lines
2.2 KiB
OCaml
67 lines
2.2 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open Types
|
||
|
|
|
||
|
|
let error_encoding =
|
||
|
|
let open Data_encoding in
|
||
|
|
describe
|
||
|
|
~description:
|
||
|
|
"The full list of error is available with \
|
||
|
|
the global RPC `/errors`"
|
||
|
|
(conv
|
||
|
|
(fun exn -> `A (List.map json_of_error exn))
|
||
|
|
(function `A exns -> List.map error_of_json exns | _ -> [])
|
||
|
|
json)
|
||
|
|
|
||
|
|
let wrap_tzerror encoding =
|
||
|
|
let open Data_encoding in
|
||
|
|
union [
|
||
|
|
case
|
||
|
|
(obj1 (req "ok" encoding))
|
||
|
|
(function Ok x -> Some x | _ -> None)
|
||
|
|
(fun x -> Ok x) ;
|
||
|
|
case
|
||
|
|
(obj1 (req "error" error_encoding))
|
||
|
|
(function Error x -> Some x | _ -> None)
|
||
|
|
(fun x -> Error x) ;
|
||
|
|
]
|
||
|
|
|
||
|
|
module Forge = struct
|
||
|
|
let block custom_root =
|
||
|
|
let open Data_encoding in
|
||
|
|
RPC.service
|
||
|
|
~description: "Forge a block"
|
||
|
|
~input:
|
||
|
|
(obj4
|
||
|
|
(req "net_id" Updater.net_id_encoding)
|
||
|
|
(req "predecessor" Block_hash.encoding)
|
||
|
|
(req "timestamp" Time.encoding)
|
||
|
|
(req "block" Block.encoding))
|
||
|
|
~output: (obj1 (req "payload" bytes))
|
||
|
|
RPC.Path.(custom_root / "helpers" / "forge" / "block")
|
||
|
|
end
|
||
|
|
|
||
|
|
let rpc_services : Context.t RPC.directory =
|
||
|
|
let dir = RPC.empty in
|
||
|
|
let dir =
|
||
|
|
RPC.register
|
||
|
|
dir
|
||
|
|
(Forge.block RPC.Path.root)
|
||
|
|
(fun _ctxt (net_id, predecessor, timestamp, block) ->
|
||
|
|
let fitness = Fitness.header_fitness block.fitness in
|
||
|
|
let shell = { Updater.net_id ; predecessor ; timestamp ;
|
||
|
|
fitness ; operations = [] } in
|
||
|
|
RPC.Answer.return
|
||
|
|
(Data_encoding.Binary.to_bytes
|
||
|
|
(Data_encoding.tup2 Updater.shell_block_encoding Block.encoding)
|
||
|
|
(shell, block)))
|
||
|
|
in
|
||
|
|
dir
|