tezos-protocol-alpha 12.3 · OCaml Package

Types representing results of applying an operation.

These are used internally by Apply, and can be used for experimenting with protocol updates, by clients to print out a summary of the operation at pre-injection simulation and at confirmation time, and by block explorers.

type 'kind operation_metadata = {

contents : 'kind contents_result_list;

}

Result of applying a Operation.t. Follows the same structure.

and packed_operation_metadata =

| Operation_metadata : 'kind operation_metadata -> packed_operation_metadata
| No_operation_metadata : packed_operation_metadata

and 'kind contents_result_list =

| Single_result : 'kind contents_result -> 'kind contents_result_list
| Cons_result : 'kind Alpha_context.Kind.manager contents_result * 'rest Alpha_context.Kind.manager contents_result_list -> ('kind * 'rest) Alpha_context.Kind.manager contents_result_list

Result of applying a Operation.contents_list. Follows the same structure.

and packed_contents_result_list =

| Contents_result_list : 'kind contents_result_list -> packed_contents_result_list

and 'kind contents_result =

| Preendorsement_result : {
1. balance_updates : Alpha_context.Receipt.balance_updates;
2. delegate : Tezos_crypto.Signature.public_key_hash;
3. preendorsement_power : int;
} -> Alpha_context.Kind.preendorsement contents_result
| Endorsement_result : {
1. balance_updates : Alpha_context.Receipt.balance_updates;
2. delegate : Tezos_crypto.Signature.public_key_hash;
3. endorsement_power : int;
} -> Alpha_context.Kind.endorsement contents_result
| Seed_nonce_revelation_result : Alpha_context.Receipt.balance_updates -> Alpha_context.Kind.seed_nonce_revelation contents_result
| Double_endorsement_evidence_result : Alpha_context.Receipt.balance_updates -> Alpha_context.Kind.double_endorsement_evidence contents_result
| Double_preendorsement_evidence_result : Alpha_context.Receipt.balance_updates -> Alpha_context.Kind.double_preendorsement_evidence contents_result
| Double_baking_evidence_result : Alpha_context.Receipt.balance_updates -> Alpha_context.Kind.double_baking_evidence contents_result
| Activate_account_result : Alpha_context.Receipt.balance_updates -> Alpha_context.Kind.activate_account contents_result
| Proposals_result : Alpha_context.Kind.proposals contents_result
| Ballot_result : Alpha_context.Kind.ballot contents_result
| Manager_operation_result : {
1. balance_updates : Alpha_context.Receipt.balance_updates;
2. operation_result : 'kind manager_operation_result;
3. internal_operation_results : packed_internal_operation_result list;
} -> 'kind Alpha_context.Kind.manager contents_result

Result of applying an Operation.contents. Follows the same structure.

and packed_contents_result =

| Contents_result : 'kind contents_result -> packed_contents_result

and 'kind manager_operation_result =

| Applied of 'kind successful_manager_operation_result
| Skipped : 'kind Alpha_context.Kind.manager -> 'kind manager_operation_result

The result of an operation in the queue. Skipped ones should always be at the tail, and after a single Failed.

and _ successful_manager_operation_result =

| Reveal_result : {
1. consumed_gas : Alpha_context.Gas.Arith.fp;
} -> Alpha_context.Kind.reveal successful_manager_operation_result
| Transaction_result : {
1. storage : Alpha_context.Script.expr option;
2. lazy_storage_diff : Alpha_context.Lazy_storage.diffs option;
3. balance_updates : Alpha_context.Receipt.balance_updates;
4. originated_contracts : Alpha_context.Contract.t list;
5. consumed_gas : Alpha_context.Gas.Arith.fp;
6. storage_size : Z.t;
7. paid_storage_size_diff : Z.t;
8. allocated_destination_contract : bool;
} -> Alpha_context.Kind.transaction successful_manager_operation_result
| Origination_result : {
1. lazy_storage_diff : Alpha_context.Lazy_storage.diffs option;
2. balance_updates : Alpha_context.Receipt.balance_updates;
3. originated_contracts : Alpha_context.Contract.t list;
4. consumed_gas : Alpha_context.Gas.Arith.fp;
5. storage_size : Z.t;
6. paid_storage_size_diff : Z.t;
} -> Alpha_context.Kind.origination successful_manager_operation_result
| Delegation_result : {
1. consumed_gas : Alpha_context.Gas.Arith.fp;
} -> Alpha_context.Kind.delegation successful_manager_operation_result
| Register_global_constant_result : {
1. balance_updates : Alpha_context.Receipt.balance_updates;
2. consumed_gas : Alpha_context.Gas.Arith.fp;
3. size_of_constant : Z.t;
4. global_address : Script_expr_hash.t;
} -> Alpha_context.Kind.register_global_constant successful_manager_operation_result
| Set_deposits_limit_result : {
1. consumed_gas : Alpha_context.Gas.Arith.fp;
} -> Alpha_context.Kind.set_deposits_limit successful_manager_operation_result
| Tx_rollup_origination_result : {
1. balance_updates : Alpha_context.Receipt.balance_updates;
2. consumed_gas : Alpha_context.Gas.Arith.fp;
3. originated_tx_rollup : Alpha_context.Tx_rollup.t;
} -> Alpha_context.Kind.tx_rollup_origination successful_manager_operation_result

Result of applying a manager_operation_content, either internal or external.

and packed_successful_manager_operation_result =

| Successful_manager_result : 'kind successful_manager_operation_result -> packed_successful_manager_operation_result

and packed_internal_operation_result =

| Internal_operation_result : 'kind Alpha_context.internal_operation * 'kind manager_operation_result -> packed_internal_operation_result

val pack_migration_operation_results : 
  Alpha_context.Migration.origination_result list ->
  packed_successful_manager_operation_result list

val operation_metadata_encoding : packed_operation_metadata Data_encoding.t

Serializer for packed_operation_result.

val operation_data_and_metadata_encoding : 
  (Alpha_context.Operation.packed_protocol_data * packed_operation_metadata)
    Data_encoding.t

type 'kind contents_and_result_list =

| Single_and_result : 'kind Alpha_context.contents * 'kind contents_result -> 'kind contents_and_result_list
| Cons_and_result : 'kind Alpha_context.Kind.manager Alpha_context.contents * 'kind Alpha_context.Kind.manager contents_result * 'rest Alpha_context.Kind.manager contents_and_result_list -> ('kind * 'rest) Alpha_context.Kind.manager contents_and_result_list

type packed_contents_and_result_list =

| Contents_and_result_list : 'kind contents_and_result_list -> packed_contents_and_result_list

val contents_and_result_list_encoding : 
  packed_contents_and_result_list Data_encoding.t

val pack_contents_list : 
  'kind Alpha_context.contents_list ->
  'kind contents_result_list ->
  'kind contents_and_result_list

val unpack_contents_list : 
  'kind contents_and_result_list ->
  'kind Alpha_context.contents_list * 'kind contents_result_list

val to_list : packed_contents_result_list -> packed_contents_result list

type ('a, 'b) eq =

| Eq : ('a, 'a) eq

val kind_equal_list : 
  'kind Alpha_context.contents_list ->
  'kind2 contents_result_list ->
  ('kind, 'kind2) eq option

type block_metadata = {

proposer : Tezos_crypto.Signature.public_key_hash;
baker : Tezos_crypto.Signature.public_key_hash;
level_info : Alpha_context.Level.t;
voting_period_info : Alpha_context.Voting_period.info;
nonce_hash : Nonce_hash.t option;
consumed_gas : Alpha_context.Gas.Arith.fp;
deactivated : Tezos_crypto.Signature.public_key_hash list;
balance_updates : Alpha_context.Receipt.balance_updates;
liquidity_baking_escape_ema : Alpha_context.Liquidity_baking.escape_ema;
implicit_operations_results : packed_successful_manager_operation_result list;

}

val block_metadata_encoding : block_metadata Data_encoding.t

type precheck_result = {

consumed_gas : Alpha_context.Gas.Arith.fp;
balance_updates : Alpha_context.Receipt.balance_updates;

}

type 'kind prechecked_contents = {

contents : 'kind Alpha_context.contents;
result : precheck_result;

}

type _ prechecked_contents_list =

| PrecheckedSingle : 'kind prechecked_contents -> 'kind prechecked_contents_list
| PrecheckedCons : 'kind Alpha_context.Kind.manager prechecked_contents * 'rest Alpha_context.Kind.manager prechecked_contents_list -> ('kind * 'rest) Alpha_context.Kind.manager prechecked_contents_list

package tezos-protocol-alpha