tezos-protocol-001-PtCJ7pwo 12.3

module type BASIC_DATA = sig ... end

type t

type context = t

type public_key = Tezos_crypto.Signature.public_key

type public_key_hash = Tezos_crypto.Signature.public_key_hash

type signature = Tezos_crypto.Signature.t

module Tez : sig ... end

module Period : sig ... end

module Timestamp : sig ... end

module Raw_level : sig ... end

module Cycle : sig ... end

module Gas : sig ... end

module Script_int : module type of Script_int_repr

module Script_timestamp : sig ... end

module Script : sig ... end

module Constants : sig ... end

module Voting_period : sig ... end

module Level : sig ... end

module Fitness : sig ... end

module Nonce : sig ... end

module Seed : sig ... end

module Contract : sig ... end

module Delegate : sig ... end

module Vote : sig ... end

module Block_header : sig ... end

module Kind : sig ... end

type 'kind operation = {

shell : Tezos_base.Operation.shell_header;
protocol_data : 'kind protocol_data;

}

and 'kind protocol_data = {

contents : 'kind contents_list;
signature : Tezos_crypto.Signature.t option;

}

and _ contents_list =

| Single : 'kind contents -> 'kind contents_list
| Cons : 'kind Kind.manager contents * 'rest Kind.manager contents_list -> ('kind * 'rest) Kind.manager contents_list

and _ contents =

| Endorsement : {
1. level : Raw_level.t;
} -> Kind.endorsement contents
| Seed_nonce_revelation : {
1. level : Raw_level.t;
2. nonce : Nonce.t;
} -> Kind.seed_nonce_revelation contents
| Double_endorsement_evidence : {
1. op1 : Kind.endorsement operation;
2. op2 : Kind.endorsement operation;
} -> Kind.double_endorsement_evidence contents
| Double_baking_evidence : {
1. bh1 : Block_header.t;
2. bh2 : Block_header.t;
} -> Kind.double_baking_evidence contents
| Activate_account : {
1. id : Tezos_crypto.Ed25519.Public_key_hash.t;
2. activation_code : Blinded_public_key_hash.activation_code;
} -> Kind.activate_account contents
| Proposals : {
1. source : Tezos_crypto.Signature.public_key_hash;
2. period : Voting_period.t;
3. proposals : Tezos_crypto.Protocol_hash.t list;
} -> Kind.proposals contents
| Ballot : {
1. source : Tezos_crypto.Signature.public_key_hash;
2. period : Voting_period.t;
3. proposal : Tezos_crypto.Protocol_hash.t;
4. ballot : Vote.ballot;
} -> Kind.ballot contents
| Manager_operation : {
1. source : Contract.contract;
2. fee : Tez.tez;
3. counter : counter;
4. operation : 'kind manager_operation;
5. gas_limit : Z.t;
6. storage_limit : Z.t;
} -> 'kind Kind.manager contents

and _ manager_operation =

| Reveal : Tezos_crypto.Signature.public_key -> Kind.reveal manager_operation
| Transaction : {
1. amount : Tez.tez;
2. parameters : Script.lazy_expr option;
3. destination : Contract.contract;
} -> Kind.transaction manager_operation
| Origination : {
1. manager : Tezos_crypto.Signature.public_key_hash;
2. delegate : Tezos_crypto.Signature.public_key_hash option;
3. script : Script.t option;
4. spendable : bool;
5. delegatable : bool;
6. credit : Tez.tez;
7. preorigination : Contract.t option;
} -> Kind.origination manager_operation
| Delegation : Tezos_crypto.Signature.public_key_hash option -> Kind.delegation manager_operation

and counter = Z.t

type 'kind internal_operation = {

source : Contract.contract;
operation : 'kind manager_operation;
nonce : int;

}

type packed_manager_operation =

| Manager : 'kind manager_operation -> packed_manager_operation

type packed_contents =

| Contents : 'kind contents -> packed_contents

type packed_contents_list =

| Contents_list : 'kind contents_list -> packed_contents_list

type packed_protocol_data =

| Operation_data : 'kind protocol_data -> packed_protocol_data

type packed_operation = {

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

}

type packed_internal_operation =

| Internal_operation : 'kind internal_operation -> packed_internal_operation

val manager_kind : 'kind manager_operation -> 'kind Kind.manager

module Fees : sig ... end

module Operation : sig ... end

module Roll : sig ... end

module Commitment : sig ... end

module Bootstrap : sig ... end

module Global : sig ... end

val prepare_first_block : 
  Environment_context.Context.t ->
  typecheck:
    (context ->
      Script.t ->
      (context,
        Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error
          list)
        Stdlib.result
        Lwt.t) ->
  level:int32 ->
  timestamp:Tezos_base.Time.Protocol.t ->
  fitness:Fitness.t ->
  (context,
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val prepare : 
  Environment_context.Context.t ->
  level:int32 ->
  timestamp:Tezos_base.Time.Protocol.t ->
  fitness:Fitness.t ->
  (context,
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val finalize : 
  ?commit_message:string ->
  context ->
  Environment_context.validation_result

val activate : context -> Tezos_crypto.Protocol_hash.t -> context Lwt.t

val fork_test_chain : 
  context ->
  Tezos_crypto.Protocol_hash.t ->
  Tezos_base.Time.Protocol.t ->
  context Lwt.t

val record_endorsement : 
  context ->
  Tezos_crypto.Signature.public_key_hash ->
  context

val allowed_endorsements : 
  context ->
  (Tezos_crypto.Signature.public_key * int list * bool)
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Signature.Public_key_hash.Map.t

val init_endorsements : 
  context ->
  (Tezos_crypto.Signature.public_key * int list * bool)
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Signature.Public_key_hash.Map.t ->
  context

val reset_internal_nonce : context -> context

val fresh_internal_nonce : 
  context ->
  (context * int,
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error list)
    Stdlib.result

val record_internal_nonce : context -> int -> context

val internal_nonce_already_recorded : context -> int -> bool

val add_fees : 
  context ->
  Tez.t ->
  (context,
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val add_rewards : 
  context ->
  Tez.t ->
  (context,
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val add_deposit : 
  context ->
  Tezos_crypto.Signature.public_key_hash ->
  Tez.t ->
  (context,
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val get_fees : context -> Tez.t

val get_rewards : context -> Tez.t

val get_deposits : 
  context ->
  Tez.t
    Tezos_protocol_environment_001_PtCJ7pwo__Environment.Signature.Public_key_hash.Map.t

val description : context Storage_description.t

package tezos-protocol-001-PtCJ7pwo