57 lines
2.5 KiB
OCaml
57 lines
2.5 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(** 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
|
|
|
|
(** Creation and destruction of a "prevalidation" worker. *)
|
|
val create: Tezos_p2p.net -> State.Net.t -> t Lwt.t
|
|
val shutdown: t -> unit Lwt.t
|
|
|
|
(** Notify the prevalidator of a new operation. This is the
|
|
entry-point used by the P2P layer. The operation content has been
|
|
previously stored on disk. *)
|
|
val register_operation: t -> Operation_hash.t -> unit
|
|
|
|
(** Conditionnaly inject a new operation in the node: the operation will
|
|
be ignored when it is (strongly) refused This is the
|
|
entry-point used by the P2P layer. The operation content has been
|
|
previously stored on disk. *)
|
|
val inject_operation:
|
|
t -> ?force:bool -> Store.operation -> unit tzresult Lwt.t
|
|
|
|
val flush: t -> unit
|
|
val timestamp: t -> Time.t
|
|
val operations: t -> error Updater.preapply_result * Operation_hash_set.t
|
|
val context: t -> Context.t
|
|
val protocol: t -> (module Updater.REGISTRED_PROTOCOL)
|
|
|
|
val preapply:
|
|
State.state -> Context.t -> (module Updater.REGISTRED_PROTOCOL) ->
|
|
Block_hash.t -> Time.t -> bool -> Operation_hash.t list ->
|
|
(Context.t * error Updater.preapply_result) tzresult Lwt.t
|