Protocol (tezos-protocol-genesis.Tezos_protocol

val hash : Tezos_crypto.Hashed.Protocol_hash.t

val name : string

include module type of struct include Tezos_raw_protocol_genesis end

module Data = Tezos_raw_protocol_genesis.Data

module Main = Tezos_raw_protocol_genesis.Main

module Services = Tezos_raw_protocol_genesis.Services

include module type of struct include Tezos_raw_protocol_genesis.Main end

type block_header_data = Tezos_raw_protocol_genesis.Main.block_header_data = {

command : Tezos_raw_protocol_genesis.Data.Command.t;
signature : Tezos_protocol_environment_genesis.Signature.t;

}

include Tezos_protocol_environment_genesis.Updater.PROTOCOL
  with type block_header_data := block_header_data

val max_block_length : int

val max_operation_data_length : int

val validation_passes : Tezos_protocol_environment_genesis.Updater.quota list

val block_header_data_encoding : 
  block_header_data Tezos_protocol_environment_genesis.Data_encoding.t

type block_header = Tezos_raw_protocol_genesis.Main.block_header = {

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

}

type block_header_metadata =
  Tezos_raw_protocol_genesis.Main.block_header_metadata

val block_header_metadata_encoding : 
  block_header_metadata Tezos_protocol_environment_genesis.Data_encoding.t

type operation_data = Tezos_raw_protocol_genesis.Main.operation_data

type operation_receipt = Tezos_raw_protocol_genesis.Main.operation_receipt

type operation = Tezos_raw_protocol_genesis.Main.operation = {

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

}

val operation_data_encoding : 
  operation_data Tezos_protocol_environment_genesis.Data_encoding.t

val operation_receipt_encoding : 
  operation_receipt Tezos_protocol_environment_genesis.Data_encoding.t

val operation_data_and_receipt_encoding : 
  (operation_data * operation_receipt)
    Tezos_protocol_environment_genesis.Data_encoding.t

val acceptable_passes : operation -> int list

val compare_operations : operation -> operation -> int

type validation_state = Tezos_raw_protocol_genesis.Main.validation_state

val current_context : 
  validation_state ->
  Tezos_protocol_environment_genesis.Context.t
    Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t

val begin_partial_application : 
  chain_id:Tezos_protocol_environment_genesis.Chain_id.t ->
  ancestor_context:Tezos_protocol_environment_genesis.Context.t ->
  predecessor_timestamp:Tezos_protocol_environment_genesis.Time.t ->
  predecessor_fitness:Tezos_protocol_environment_genesis.Fitness.t ->
  block_header ->
  validation_state Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t

val begin_application : 
  chain_id:Tezos_protocol_environment_genesis.Chain_id.t ->
  predecessor_context:Tezos_protocol_environment_genesis.Context.t ->
  predecessor_timestamp:Tezos_protocol_environment_genesis.Time.t ->
  predecessor_fitness:Tezos_protocol_environment_genesis.Fitness.t ->
  block_header ->
  validation_state Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t

val begin_construction : 
  chain_id:Tezos_protocol_environment_genesis.Chain_id.t ->
  predecessor_context:Tezos_protocol_environment_genesis.Context.t ->
  predecessor_timestamp:Tezos_protocol_environment_genesis.Time.t ->
  predecessor_level:Tezos_protocol_environment_genesis.Int32.t ->
  predecessor_fitness:Tezos_protocol_environment_genesis.Fitness.t ->
  predecessor:Tezos_protocol_environment_genesis.Block_hash.t ->
  timestamp:Tezos_protocol_environment_genesis.Time.t ->
  ?protocol_data:block_header_data ->
  unit ->
  validation_state Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t

val apply_operation : 
  validation_state ->
  operation ->
  (validation_state * operation_receipt)
    Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t

val finalize_block : 
  validation_state ->
  (Tezos_protocol_environment_genesis.Updater.validation_result
   * block_header_metadata)
    Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t

val rpc_services : 
  Tezos_protocol_environment_genesis.Updater.rpc_context
    Tezos_protocol_environment_genesis.RPC_directory.t

val init : 
  Tezos_protocol_environment_genesis.Context.t ->
  Tezos_protocol_environment_genesis.Block_header.shell_header ->
  Tezos_protocol_environment_genesis.Updater.validation_result
    Tezos_protocol_environment_genesis.Error_monad.tzresult
    Tezos_protocol_environment_genesis.Lwt.t