71 lines
2.3 KiB
OCaml
71 lines
2.3 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
type t
|
||
|
|
|
||
|
|
val supported_versions: P2p.version list
|
||
|
|
|
||
|
|
val create:
|
||
|
|
genesis:Store.genesis ->
|
||
|
|
store_root:string ->
|
||
|
|
context_root:string ->
|
||
|
|
?test_protocol:Protocol_hash.t ->
|
||
|
|
?patch_context:(Context.t -> Context.t Lwt.t) ->
|
||
|
|
(P2p.config * P2p.limits) option ->
|
||
|
|
t tzresult Lwt.t
|
||
|
|
|
||
|
|
module RPC : sig
|
||
|
|
|
||
|
|
type block = Node_rpc_services.Blocks.block
|
||
|
|
type block_info = Node_rpc_services.Blocks.block_info
|
||
|
|
|
||
|
|
val inject_block:
|
||
|
|
t -> ?force:bool -> MBytes.t -> (Block_hash.t * unit tzresult Lwt.t) Lwt.t
|
||
|
|
val inject_operation:
|
||
|
|
t -> ?force:bool -> MBytes.t -> (Operation_hash.t * unit tzresult Lwt.t) Lwt.t
|
||
|
|
|
||
|
|
val raw_block_info:
|
||
|
|
t -> Block_hash.t -> block_info Lwt.t
|
||
|
|
val block_watcher:
|
||
|
|
t -> block_info Lwt_stream.t * (unit -> unit)
|
||
|
|
val valid_block_watcher:
|
||
|
|
t -> (block_info Lwt_stream.t * (unit -> unit)) Lwt.t
|
||
|
|
val heads: t -> block_info Block_hash_map.t Lwt.t
|
||
|
|
|
||
|
|
val list:
|
||
|
|
t -> int -> Block_hash.t list -> block_info list list Lwt.t
|
||
|
|
|
||
|
|
val block_info:
|
||
|
|
t -> block -> block_info Lwt.t
|
||
|
|
|
||
|
|
val operations:
|
||
|
|
t -> block -> Operation_hash.t list Lwt.t
|
||
|
|
val operation_content:
|
||
|
|
t -> Operation_hash.t -> Store.operation tzresult Time.timed_data option Lwt.t
|
||
|
|
val operation_watcher:
|
||
|
|
t -> (Operation_hash.t * Store.operation) Lwt_stream.t * (unit -> unit)
|
||
|
|
|
||
|
|
val pending_operations:
|
||
|
|
t -> block -> (error Updater.preapply_result * Operation_hash_set.t) Lwt.t
|
||
|
|
|
||
|
|
val context_dir:
|
||
|
|
t -> block -> 'a RPC.directory option Lwt.t
|
||
|
|
|
||
|
|
val preapply:
|
||
|
|
t -> block ->
|
||
|
|
timestamp:Time.t -> sort:bool ->
|
||
|
|
Operation_hash.t list ->
|
||
|
|
(Protocol.fitness * error Updater.preapply_result) tzresult Lwt.t
|
||
|
|
|
||
|
|
val validate: t -> State.net_id -> Block_hash.t -> unit tzresult Lwt.t
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
val shutdown: t -> unit Lwt.t
|