Lift (mavryk-protocol-demo-noops.Mavryk_protocol_environment_demo

Parameters

module P : Updater.PROTOCOL

Signature

val max_block_length : int

val max_operation_data_length : int

val validation_passes : 
  Mavryk_protocol_environment__.Environment_context.quota list

type block_header_data = P.block_header_data

val block_header_data_encoding : 
  block_header_data Mavryk_base.TzPervasives.Data_encoding.t

type block_header = P.block_header = {

shell : Mavryk_base.TzPervasives.Block_header.shell_header;
protocol_data : block_header_data;

}

type block_header_metadata = P.block_header_metadata

val block_header_metadata_encoding_with_legacy_attestation_name : 
  block_header_metadata Mavryk_base.TzPervasives.Data_encoding.t

val block_header_metadata_encoding : 
  block_header_metadata Mavryk_base.TzPervasives.Data_encoding.t

type operation_data = P.operation_data

type operation_receipt = P.operation_receipt

type operation = P.operation = {

shell : Mavryk_base.TzPervasives.Operation.shell_header;
protocol_data : operation_data;

}

val operation_data_encoding : 
  operation_data Mavryk_base.TzPervasives.Data_encoding.t

val operation_data_encoding_with_legacy_attestation_name : 
  operation_data Mavryk_base.TzPervasives.Data_encoding.t

val operation_receipt_encoding : 
  operation_receipt Mavryk_base.TzPervasives.Data_encoding.t

val operation_receipt_encoding_with_legacy_attestation_name : 
  operation_receipt Mavryk_base.TzPervasives.Data_encoding.t

val operation_data_and_receipt_encoding : 
  (operation_data * operation_receipt) Mavryk_base.TzPervasives.Data_encoding.t

val operation_data_and_receipt_encoding_with_legacy_attestation_name : 
  (operation_data * operation_receipt) Mavryk_base.TzPervasives.Data_encoding.t

val acceptable_pass : operation -> int option

val compare_operations : 
  (Mavryk_crypto.Hashed.Operation_hash.t * operation) ->
  (Mavryk_crypto.Hashed.Operation_hash.t * operation) ->
  int

type validation_state = P.validation_state

type application_state = P.application_state

type mode =

| Application of block_header
| Partial_validation of block_header
| Construction of {
1. predecessor_hash : Mavryk_crypto.Hashed.Block_hash.t;
2. timestamp : Mavryk_base.TzPervasives.Time.Protocol.t;
3. block_header_data : block_header_data;
}
| Partial_construction of {
1. predecessor_hash : Mavryk_crypto.Hashed.Block_hash.t;
2. timestamp : Mavryk_base.TzPervasives.Time.Protocol.t;
}

val validate_operation : 
  ?check_signature:bool ->
  validation_state ->
  Mavryk_crypto.Hashed.Operation_hash.t ->
  operation ->
  validation_state Mavryk_base.TzPervasives.Error_monad.tzresult Lwt.t

val finalize_validation : 
  validation_state ->
  unit Mavryk_base.TzPervasives.Error_monad.tzresult Lwt.t

val apply_operation : 
  application_state ->
  Mavryk_crypto.Hashed.Operation_hash.t ->
  operation ->
  (application_state * operation_receipt)
    Mavryk_base.TzPervasives.Error_monad.tzresult
    Lwt.t

val finalize_application : 
  application_state ->
  Mavryk_base.TzPervasives.Block_header.shell_header option ->
  (Mavryk_protocol_environment__.Environment_context.validation_result
   * block_header_metadata)
    Mavryk_base.TzPervasives.Error_monad.tzresult
    Lwt.t

val rpc_services : 
  Mavryk_protocol_environment__.Environment_context.rpc_context
    Mavryk_rpc.Directory.t

val init : 
  Mavryk_crypto.Hashed.Chain_id.t ->
  Mavryk_protocol_environment__.Environment_context.Context.t ->
  Mavryk_base.TzPervasives.Block_header.shell_header ->
  Mavryk_protocol_environment__.Environment_context.validation_result
    Mavryk_base.TzPervasives.Error_monad.tzresult
    Lwt.t

val value_of_key : 
  chain_id:Mavryk_crypto.Hashed.Chain_id.t ->
  predecessor_context:
    Mavryk_protocol_environment__.Environment_context.Context.t ->
  predecessor_timestamp:Mavryk_base.TzPervasives.Time.Protocol.t ->
  predecessor_level:Stdlib.Int32.t ->
  predecessor_fitness:Mavryk_base.TzPervasives.Fitness.t ->
  predecessor:Mavryk_crypto.Hashed.Block_hash.t ->
  timestamp:Mavryk_base.TzPervasives.Time.Protocol.t ->
  (Mavryk_protocol_environment__.Environment_context.Context.cache_key ->
    Mavryk_protocol_environment__.Environment_context.Context.cache_value
      Mavryk_base.TzPervasives.Error_monad.tzresult
      Lwt.t)
    Mavryk_base.TzPervasives.Error_monad.tzresult
    Lwt.t

val set_log_message_consumer : 
  (Mavryk_base.TzPervasives.Internal_event.level -> string -> unit) ->
  unit

val environment_version : Mavryk_base.TzPervasives.Protocol.env_version

val expected_context_hash : 
  Mavryk_protocol_environment__.Environment_context.header_context_hash_semantics

val begin_validation : 
  Mavryk_protocol_environment__.Environment_context.Context.t ->
  Mavryk_crypto.Hashed.Chain_id.t ->
  mode ->
  predecessor:Mavryk_base.TzPervasives.Block_header.shell_header ->
  cache:
    [ `Force_load
    | `Load
    | `Lazy
    | `Inherited of
      Mavryk_protocol_environment__.Environment_context.Context.block_cache
      * Mavryk_crypto.Hashed.Context_hash.t ] ->
  validation_state Mavryk_base.TzPervasives.Error_monad.tzresult Lwt.t

val begin_application : 
  Mavryk_protocol_environment__.Environment_context.Context.t ->
  Mavryk_crypto.Hashed.Chain_id.t ->
  mode ->
  predecessor:Mavryk_base.TzPervasives.Block_header.shell_header ->
  cache:
    [ `Force_load
    | `Load
    | `Lazy
    | `Inherited of
      Mavryk_protocol_environment__.Environment_context.Context.block_cache
      * Mavryk_crypto.Hashed.Context_hash.t ] ->
  application_state Mavryk_base.TzPervasives.Error_monad.tzresult Lwt.t

module Mempool : sig ... end