174 lines
4.6 KiB
OCaml
174 lines
4.6 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type net = State.net_id = Net of Block_hash.t
|
|
|
|
val errors:
|
|
Client_commands.context ->
|
|
Json_schema.schema Lwt.t
|
|
|
|
val forge_block:
|
|
Client_commands.context ->
|
|
?net:Updater.net_id ->
|
|
?predecessor:Block_hash.t ->
|
|
?timestamp:Time.t ->
|
|
Fitness.fitness ->
|
|
Operation_hash.t list ->
|
|
MBytes.t ->
|
|
MBytes.t Lwt.t
|
|
|
|
val validate_block:
|
|
Client_commands.context ->
|
|
net -> Block_hash.t ->
|
|
unit tzresult Lwt.t
|
|
|
|
val inject_block:
|
|
Client_commands.context ->
|
|
?wait:bool -> ?force:bool ->
|
|
MBytes.t ->
|
|
Block_hash.t tzresult Lwt.t
|
|
|
|
val inject_operation:
|
|
Client_commands.context ->
|
|
?wait:bool -> ?force:bool ->
|
|
MBytes.t ->
|
|
Operation_hash.t tzresult Lwt.t
|
|
|
|
val inject_protocol:
|
|
Client_commands.context ->
|
|
?wait:bool -> ?force:bool ->
|
|
Tezos_compiler.Protocol.t ->
|
|
Protocol_hash.t tzresult Lwt.t
|
|
|
|
module Blocks : sig
|
|
|
|
type block = [
|
|
| `Genesis
|
|
| `Head of int | `Prevalidation
|
|
| `Test_head of int | `Test_prevalidation
|
|
| `Hash of Block_hash.t
|
|
]
|
|
|
|
val net:
|
|
Client_commands.context ->
|
|
block -> net Lwt.t
|
|
val predecessor:
|
|
Client_commands.context ->
|
|
block -> Block_hash.t Lwt.t
|
|
val hash:
|
|
Client_commands.context ->
|
|
block -> Block_hash.t Lwt.t
|
|
val timestamp:
|
|
Client_commands.context ->
|
|
block -> Time.t Lwt.t
|
|
val fitness:
|
|
Client_commands.context ->
|
|
block -> MBytes.t list Lwt.t
|
|
val operations:
|
|
Client_commands.context ->
|
|
block -> Operation_hash.t list Lwt.t
|
|
val protocol:
|
|
Client_commands.context ->
|
|
block -> Protocol_hash.t Lwt.t
|
|
val test_protocol:
|
|
Client_commands.context ->
|
|
block -> Protocol_hash.t option Lwt.t
|
|
val test_network:
|
|
Client_commands.context ->
|
|
block -> (net * Time.t) option Lwt.t
|
|
|
|
val pending_operations:
|
|
Client_commands.context ->
|
|
block -> (error Updater.preapply_result * Operation_hash_set.t) Lwt.t
|
|
|
|
type block_info = {
|
|
hash: Block_hash.t ;
|
|
predecessor: Block_hash.t ;
|
|
fitness: MBytes.t list ;
|
|
timestamp: Time.t ;
|
|
protocol: Protocol_hash.t option ;
|
|
operations: Operation_hash.t list option ;
|
|
net: net ;
|
|
test_protocol: Protocol_hash.t option ;
|
|
test_network: (net * Time.t) option ;
|
|
}
|
|
|
|
val info:
|
|
Client_commands.context ->
|
|
?operations:bool -> block -> block_info Lwt.t
|
|
|
|
val list:
|
|
Client_commands.context ->
|
|
?operations:bool -> ?length:int -> ?heads:Block_hash.t list ->
|
|
?delay:int -> ?min_date:Time.t -> ?min_heads:int ->
|
|
unit -> block_info list list Lwt.t
|
|
|
|
val monitor:
|
|
Client_commands.context ->
|
|
?operations:bool -> ?length:int -> ?heads:Block_hash.t list ->
|
|
?delay:int -> ?min_date:Time.t -> ?min_heads:int ->
|
|
unit -> block_info list list Lwt_stream.t Lwt.t
|
|
|
|
type preapply_result = {
|
|
operations: error Updater.preapply_result ;
|
|
fitness: MBytes.t list ;
|
|
timestamp: Time.t ;
|
|
}
|
|
|
|
val preapply:
|
|
Client_commands.context ->
|
|
block ->
|
|
?timestamp:Time.t ->
|
|
?sort:bool ->
|
|
Hash.Operation_hash.t list -> preapply_result tzresult Lwt.t
|
|
|
|
end
|
|
|
|
module Operations : sig
|
|
val monitor:
|
|
Client_commands.context ->
|
|
?contents:bool -> unit ->
|
|
(Operation_hash.t * Store.operation option) list Lwt_stream.t Lwt.t
|
|
end
|
|
|
|
module Protocols : sig
|
|
val bytes:
|
|
Client_commands.context ->
|
|
Protocol_hash.t -> Store.protocol tzresult Time.timed_data Lwt.t
|
|
|
|
val list:
|
|
Client_commands.context ->
|
|
?contents:bool -> unit ->
|
|
(Protocol_hash.t * Store.protocol option) list Lwt.t
|
|
end
|
|
|
|
val complete:
|
|
Client_commands.context ->
|
|
?block:Blocks.block -> string -> string list Lwt.t
|
|
|
|
val describe:
|
|
Client_commands.context ->
|
|
?recurse:bool -> string list -> RPC.Description.directory_descr Lwt.t
|
|
|
|
(** Low-level *)
|
|
|
|
val get_json:
|
|
Client_commands.context ->
|
|
string list -> Data_encoding.json -> Data_encoding.json Lwt.t
|
|
|
|
val call_service0:
|
|
Client_commands.context ->
|
|
(unit, unit, 'i, 'o) RPC.service -> 'i -> 'o Lwt.t
|
|
val call_service1:
|
|
Client_commands.context ->
|
|
(unit, unit * 'a, 'i, 'o) RPC.service -> 'a -> 'i -> 'o Lwt.t
|
|
val call_service2:
|
|
Client_commands.context ->
|
|
(unit, (unit * 'a) * 'b, 'i, 'o) RPC.service -> 'a -> 'b -> 'i -> 'o Lwt.t
|