This module is the main entry point to valide blocks and protocols.
type limits = {protocol_timeout : Tezos_base.Time.System.Span.t;operation_metadata_size_limit : int option;}val create :
limits ->
Distributed_db.t ->
Block_validator_process.t ->
start_testchain:bool ->
(t, Tezos_error_monad.TzCore.error list) Stdlib.result Lwt.tcreate limits ddb bvp start_testchain creates a Block_validator.
limits contains various timeout limits.ddb is used to commit a block on the storage and get the state of the chain for which the block is submitted to validation.bvp is an instance of the Block_validator_process. bvp is a proxy between the shell and the validation part related to the economic protocol (See Block_validator_process).start_testchain if set to true allows to run the testchain.This function is not supposed to fail. It is implemented this way because of the interface implemented by the Worker module.
type block_validity = | Valid| Invalid_after_precheck of Tezos_error_monad.TzCore.error list| Invalid of Tezos_error_monad.TzCore.error listval validate :
t ->
?canceler:Lwt_canceler.t ->
?peer:Tezos_base.P2p_peer.Id.t ->
?notify_new_block:(Tezos_store.Store.Block.t -> unit) ->
?precheck_and_notify:bool ->
Distributed_db.chain_db ->
Tezos_crypto.Block_hash.t ->
Tezos_base.Block_header.t ->
Tezos_base.Operation.t list list ->
block_validity Lwt.tvalidate ?precheck_and_notify validator ddb hash header ops validates a block header ops of hash hash. It is a no-op in the following cases:
savepointOtherwise it calls the Block_validator_process process associated to the current validator.
canceler is trigerred when the validation of a block fails.peer is the peer which sent the block.If the validation succeeded it processes as follows:
1. The ddb commits the block on the storage.
2. If the next block requires a switch of protocol, it tries to fetch and precompile the next protocol.
3. Call notify_new_block with the committed block.
An error is raised if the validation failed or if the block was already known as invalid. However, if the first validation attempt failed because the protocol was missing, it tries to fetch and download the protocol before trying to validate the block a second time.
val preapply :
t ->
?canceler:Lwt_canceler.t ->
Tezos_store.Store.chain_store ->
predecessor:Tezos_store.Store.Block.t ->
timestamp:Tezos_base.Time.Protocol.t ->
protocol_data:bytes ->
Tezos_base.Operation.t list list ->
(Tezos_base.Block_header.shell_header
* Tezos_error_monad.TzCore.error Tezos_shell_services.Preapply_result.t list,
Tezos_error_monad.TzCore.error list)
Stdlib.result
Lwt.tpreapply validator canceler chains_store predecessor timestamp
protocol_data operations creates a new block and returns it. It may call the Block_validator_process process associated to the current validator. If the preapply is a succeeded, the application resulted is cached to avoid re-apply the block if the next call block validation, through validate, targets the same block.
An error is raised if the pre-apply failed. However, if the first pre-apply attempt failed because the protocol was missing, it tries to fetch and download the protocol before trying to pre-apply the block a second time.
val fetch_and_compile_protocol :
t ->
?peer:Tezos_base.P2p_peer.Id.t ->
?timeout:Tezos_base.Time.System.Span.t ->
Tezos_crypto.Protocol_hash.t ->
(Tezos_protocol_updater.Registered_protocol.t,
Tezos_error_monad.TzCore.error list)
Stdlib.result
Lwt.tval running_worker : unit -> tval status : t -> Tezos_base.Worker_types.worker_statusval pending_requests :
t ->
(Tezos_base.Time.System.t
* Tezos_shell_services.Block_validator_worker_state.Request.view)
listval current_request :
t ->
(Tezos_base.Time.System.t
* Tezos_base.Time.System.t
* Tezos_shell_services.Block_validator_worker_state.Request.view)
option