Game (mavkit-l2-libs.Mavkit_smart

module V1 : sig ... end

include Versioned_data.S with type t = V1.t

type versioned

The type of versioned values, including the one that is currently used and the previous ones.

val versioned_encoding : versioned Mavryk_base.TzPervasives.Data_encoding.t

Encoding for versioned values, corresponds to the one defined by the protocol.

val of_versioned : versioned -> V1.t

Conversion to the currently used representation. In practice this function must provide ways to translate values of older versions to the latest one.

val to_versioned : V1.t -> versioned

Wrapping a current value as a versioned one.

include module type of V1
  with type dissection_chunk = V1.dissection_chunk
   and type step = V1.step
   and type refutation = V1.refutation
   and type index = V1.index
   and type player = V1.player
   and type game_state = V1.game_state
   and type conflict = V1.conflict
   and type t = V1.t

type dissection_chunk = V1.dissection_chunk = {

state_hash : State_hash.t option;
tick : Z.t;

}

type step = V1.step =

| Dissection of dissection_chunk list
| Proof of string

type refutation = V1.refutation =

| Start of {
1. player_commitment_hash : Mavkit_smart_rollup.Commitment.Hash.t;
2. opponent_commitment_hash : Mavkit_smart_rollup.Commitment.Hash.t;
}
| Move of {
1. choice : Z.t;
2. step : step;
}

type index = V1.index = {

alice : Mavryk_crypto.Signature.Public_key_hash.t;
bob : Mavryk_crypto.Signature.Public_key_hash.t;

}

val dissection_chunk_encoding : 
  dissection_chunk Mavryk_base.TzPervasives.Data_encoding.t

val dissection_encoding : 
  dissection_chunk list Mavryk_base.TzPervasives.Data_encoding.t

val step_encoding : step Mavryk_base.TzPervasives.Data_encoding.t

val refutation_encoding : refutation Mavryk_base.TzPervasives.Data_encoding.t

val index_encoding : index Mavryk_base.TzPervasives.Data_encoding.t

val make_index : 
  Mavryk_crypto.Signature.Public_key_hash.t ->
  Mavryk_crypto.Signature.Public_key_hash.t ->
  index

type player = V1.player =

| Alice
| Bob

type game_state = V1.game_state =

| Dissecting of {
1. dissection : dissection_chunk list;
2. default_number_of_sections : int;
}
| Final_move of {
1. agreed_start_chunk : dissection_chunk;
2. refuted_stop_chunk : dissection_chunk;
}

type t = V1.t = {

turn : player;
inbox_snapshot : Inbox.V1.history_proof;
dal_snapshot : Dal.Slot_history.t;
start_level : int32;
inbox_level : int32;
game_state : game_state;

}

type conflict = V1.conflict = {

other : Mavryk_crypto.Signature.Public_key_hash.t;
their_commitment : Commitment.t;
our_commitment : Commitment.t;
parent_commitment : Mavkit_smart_rollup.Commitment.Hash.t;

}

val game_state_equal : game_state -> game_state -> bool

val player_encoding : player Mavryk_base.TzPervasives.Data_encoding.t

val game_state_encoding : game_state Mavryk_base.TzPervasives.Data_encoding.t

val encoding : t Mavryk_base.TzPervasives.Data_encoding.t

val conflict_encoding : conflict Mavryk_base.TzPervasives.Data_encoding.t