tezos-embedded-protocol-012-Psithaca 12.3

module P : sig ... end

val hash : Tezos_crypto.Protocol_hash.t

val max_block_length : int

val max_operation_data_length : int

val validation_passes : Environment_context.quota list

type block_header_data = P.block_header_data

val block_header_data_encoding : block_header_data Data_encoding.t

type block_header = P.block_header = {

shell : Tezos_base.Block_header.shell_header;
protocol_data : block_header_data;

}

type block_header_metadata = P.block_header_metadata

val block_header_metadata_encoding : block_header_metadata Data_encoding.t

type operation_data = P.operation_data

type operation_receipt = P.operation_receipt

type operation = P.operation = {

shell : Tezos_base.Operation.shell_header;
protocol_data : operation_data;

}

val operation_data_encoding : operation_data Data_encoding.t

val operation_receipt_encoding : operation_receipt Data_encoding.t

val operation_data_and_receipt_encoding : 
  (operation_data * operation_receipt) Data_encoding.t

val acceptable_passes : operation -> int list

val relative_position_within_block : operation -> operation -> int

type validation_state = P.validation_state

val apply_operation : 
  validation_state ->
  operation ->
  (validation_state * operation_receipt,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val rpc_services : Environment_context.rpc_context Tezos_rpc.RPC_directory.t

val init : 
  Environment_context.Context.t ->
  Tezos_base.Block_header.shell_header ->
  (Environment_context.validation_result,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val value_of_key : 
  chain_id:Tezos_crypto.Chain_id.t ->
  predecessor_context:Environment_context.Context.t ->
  predecessor_timestamp:Tezos_base.Time.Protocol.t ->
  predecessor_level:Stdlib.Int32.t ->
  predecessor_fitness:Tezos_base.Fitness.t ->
  predecessor:Tezos_crypto.Block_hash.t ->
  timestamp:Tezos_base.Time.Protocol.t ->
  (Environment_context.Context.Cache.key ->
    (Environment_context.Context.Cache.value,
      Tezos_error_monad.TzCore.error
        Tezos_error_monad.Error_monad.TzTrace.trace)
      Stdlib.result
      Lwt.t,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

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

val environment_version : Tezos_base.Protocol.env_version

val begin_partial_application : 
  chain_id:Tezos_crypto.Chain_id.t ->
  ancestor_context:Environment_context.Context.t ->
  predecessor:Tezos_base.Block_header.t ->
  predecessor_hash:Tezos_crypto.Block_hash.t ->
  cache:Environment_context.Context.source_of_cache ->
  block_header ->
  (validation_state, Tezos_error_monad.TzCore.error list) Stdlib.result Lwt.t

val begin_application : 
  chain_id:Tezos_crypto.Chain_id.t ->
  predecessor_context:Environment_context.Context.t ->
  predecessor_timestamp:Tezos_base.Time.Protocol.t ->
  predecessor_fitness:Tezos_base.Fitness.t ->
  cache:Environment_context.Context.source_of_cache ->
  block_header ->
  (validation_state,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val begin_construction : 
  chain_id:Tezos_crypto.Chain_id.t ->
  predecessor_context:Environment_context.Context.t ->
  predecessor_timestamp:Tezos_base.Time.Protocol.t ->
  predecessor_level:Stdlib.Int32.t ->
  predecessor_fitness:Tezos_base.Fitness.t ->
  predecessor:Tezos_crypto.Block_hash.t ->
  timestamp:Tezos_base.Time.Protocol.t ->
  ?protocol_data:block_header_data ->
  cache:Environment_context.Context.source_of_cache ->
  unit ->
  (validation_state,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val finalize_block : 
  validation_state ->
  Tezos_base.Block_header.shell_header option ->
  (Environment_context.validation_result * block_header_metadata,
    Tezos_error_monad.TzCore.error list)
    Stdlib.result
    Lwt.t

val complete_b58prefix : 
  Tezos_protocol_environment.Context.t ->
  string ->
  string list Lwt.t

package tezos-embedded-protocol-012-Psithaca