Tezos_raw_protocol_alpha.Voting_period_reprSourceThe voting period kinds are ordered as follows: Proposal -> Exploration -> Cooldown -> Promotion -> Adoption. This order is the one used be the function succ below.
type voting_period = {index : Tezos_protocol_environment_alpha.Int32.t;kind : kind;start_position : Tezos_protocol_environment_alpha.Int32.t;}A voting period can be of several kinds and is uniquely identified by the counter 'index'. The 'start_position' represents the relative position of the first level of the period with respect to the first level of the Alpha family of protocols.
type info = {voting_period : t;position : Tezos_protocol_environment_alpha.Int32.t;remaining : Tezos_protocol_environment_alpha.Int32.t;}Information about a block with respect to the voting period it belongs to: the voting period, the position within the voting period and the number of remaining blocks till the end of the period. The following invariant is satisfied: `position + remaining + 1 = blocks_per_voting_period`
include Tezos_protocol_environment_alpha.Compare.S with type t := voting_periodval (=) : voting_period -> voting_period -> boolval (<>) : voting_period -> voting_period -> boolval (<) : voting_period -> voting_period -> boolval (<=) : voting_period -> voting_period -> boolval (>=) : voting_period -> voting_period -> boolval (>) : voting_period -> voting_period -> boolval compare : voting_period -> voting_period -> intval equal : voting_period -> voting_period -> boolval max : voting_period -> voting_period -> voting_periodval min : voting_period -> voting_period -> voting_periodraw_reset period ~start_position increment the index by one and set the kind to Proposal which is the period kind that start the voting process. start_position is the level at wich this voting_period started.
raw_succ period ~start_position increment the index by one and set the kind to its successor. start_position is the level at which this voting_period started.
val remaining_blocks :
Level_repr.t ->
t ->
blocks_per_voting_period:Tezos_protocol_environment_alpha.Int32.t ->
Tezos_protocol_environment_alpha.Int32.t