57 lines
2.6 KiB
OCaml
57 lines
2.6 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(** Tezos Shell - Prevalidation of pending operations (a.k.a Mempool) *)
|
|
|
|
(** The prevalidation worker is in charge of the "mempool" (a.k.a. the
|
|
set of known not-invalid-for-sure operations that are not yet
|
|
included in the blockchain).
|
|
|
|
The worker also maintains a sorted subset of the mempool that
|
|
might correspond to a valid block on top of the current head. The
|
|
"in-progress" context produced by the application of those
|
|
operations is called the (pre)validation context.
|
|
|
|
Before to include an operation into the mempool, the prevalidation
|
|
worker tries to append the operation the prevalidation context. If
|
|
the operation is (strongly) refused, it will not be added into the
|
|
mempool and then it will be ignored by the node and never
|
|
broadcasted. If the operation is only "branch_refused" or
|
|
"branch_delayed", the operation won't be appended in the
|
|
prevalidation context, but still broadcasted.
|
|
|
|
*)
|
|
|
|
type t
|
|
|
|
type limits = {
|
|
max_refused_operations : int ;
|
|
operation_timeout : float ;
|
|
worker_limits : Worker_types.limits ;
|
|
}
|
|
|
|
type error += Closed of Chain_id.t
|
|
|
|
val create: limits -> Distributed_db.chain_db -> t Lwt.t
|
|
val shutdown: t -> unit Lwt.t
|
|
val notify_operations: t -> P2p_peer.Id.t -> Mempool.t -> unit
|
|
val inject_operation: t -> Operation.t -> unit tzresult Lwt.t
|
|
val flush: t -> Block_hash.t -> unit tzresult Lwt.t
|
|
val timestamp: t -> Time.t
|
|
val operations: t -> error Preapply_result.t * Operation.t Operation_hash.Map.t
|
|
val context: t -> Tezos_protocol_environment_shell.validation_result tzresult Lwt.t
|
|
val pending: ?block:State.Block.t -> t -> Operation.t Operation_hash.Map.t Lwt.t
|
|
|
|
val running_workers: unit -> (Chain_id.t * t) list
|
|
val status: t -> Worker_types.worker_status
|
|
|
|
val pending_requests : t -> (Time.t * Prevalidator_worker_state.Request.view) list
|
|
val current_request : t -> (Time.t * Time.t * Prevalidator_worker_state.Request.view) option
|
|
val last_events : t -> (Lwt_log_core.level * Prevalidator_worker_state.Event.t list) list
|