Tezos_raw_protocol_alpha.Voting_period_storageval init :
Raw_context.t ->
Voting_period_repr.t ->
Raw_context.t Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tInitializes the current context with voting period information.
val init_first_period :
Raw_context.t ->
start_position:Tezos_protocol_environment_alpha.Int32.t ->
Raw_context.t Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tSets the initial period to {voting_period = root; kind = Proposal;
start_position}.
val reset :
Raw_context.t ->
Raw_context.t Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tIncrement the index by one and set the kind to Proposal.
val succ :
Raw_context.t ->
Raw_context.t Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tIncrement the index by one and set the kind to its successor.
val get_current :
Raw_context.t ->
Voting_period_repr.t Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tReturns information about the current voting period.
val get_current_kind :
Raw_context.t ->
Voting_period_repr.kind Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tReturns the current voting period kind.
val is_last_block :
Raw_context.t ->
bool Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tReturns true if the context level is the last of current voting period.
val blocks_before_activation :
Raw_context.t ->
int32 option Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tblocks_before_activation ctxt returns Some b if the current voting period is the Adoption and b blocks must be waited before activation of the next protocol amendment. Returns None if the current period is not Adoption (then more than Constants_storage.blocks_per_voting_period must be waited before activation).
val get_rpc_current_info :
Raw_context.t ->
Voting_period_repr.info Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tReturns the voting period information for the current level.
val get_rpc_succ_info :
Raw_context.t ->
Voting_period_repr.info Tezos_protocol_environment_alpha.Error_monad.tzresult
Tezos_protocol_environment_alpha.Lwt.tReturns the voting period information for the next level.
module Testnet_dictator : sig ... end