tezos-protocol-002-PsYLVpVv 12.3

tezos-protocol-002-PsYLVpVv

module Kind : sig ... end

type raw = Tezos_base.Operation.t = {

shell : Tezos_base.Operation.shell_header;
proto : Tezos_protocol_environment_structs.V0.M.MBytes.t;

}

val raw_encoding : raw Data_encoding.t

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_repr.t;
} -> Kind.endorsement contents
| Seed_nonce_revelation : {
1. level : Raw_level_repr.t;
2. nonce : Seed_repr.nonce;
} -> 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_repr.t;
2. bh2 : Block_header_repr.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_repr.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_repr.t;
3. proposal : Tezos_crypto.Protocol_hash.t;
4. ballot : Vote_repr.ballot;
} -> Kind.ballot contents
| Manager_operation : {
1. source : Contract_repr.contract;
2. fee : Tez_repr.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_repr.tez;
2. parameters : Script_repr.lazy_expr option;
3. destination : Contract_repr.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_repr.t option;
4. spendable : bool;
5. delegatable : bool;
6. credit : Tez_repr.tez;
7. preorigination : Contract_repr.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_repr.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

val of_list : packed_contents list -> packed_contents_list

val to_list : packed_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;

}

val pack : 'kind operation -> packed_operation

type packed_internal_operation =

| Internal_operation : 'kind internal_operation -> packed_internal_operation

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

val encoding : packed_operation Data_encoding.t

val contents_encoding : packed_contents Data_encoding.t

val contents_list_encoding : packed_contents_list Data_encoding.t

val protocol_data_encoding : packed_protocol_data Data_encoding.t

val unsigned_operation_encoding : 
  (Tezos_base.Operation.shell_header * packed_contents_list) Data_encoding.t

val raw : _ operation -> raw

val hash_raw : raw -> Tezos_crypto.Operation_hash.t

val hash : _ operation -> Tezos_crypto.Operation_hash.t

val hash_packed : packed_operation -> Tezos_crypto.Operation_hash.t

val acceptable_passes : packed_operation -> int list

type Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error +=

| Missing_signature

type Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error +=

| Invalid_signature

val check_signature : 
  Tezos_crypto.Signature.public_key ->
  Tezos_crypto.Chain_id.t ->
  _ operation ->
  (unit,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val check_signature_sync : 
  Tezos_crypto.Signature.public_key ->
  Tezos_crypto.Chain_id.t ->
  _ operation ->
  (unit,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result

val internal_operation_encoding : packed_internal_operation Data_encoding.t

type ('a, 'b) eq =

| Eq : ('a, 'a) eq

val equal : 'a operation -> 'b operation -> ('a, 'b) eq option

module Encoding : sig ... end

package tezos-protocol-002-PsYLVpVv