package tezos-protocol-004-Pt24m4xi
type execution_trace =
(Alpha_context.Script.location
* Alpha_context.Gas.t
* (Alpha_context.Script.expr * string option) list)
listtype Tezos_protocol_environment_004_Pt24m4xi.Error_monad.error += | Reject of Alpha_context.Script.location * Alpha_context.Script.expr * execution_trace option
type Tezos_protocol_environment_004_Pt24m4xi.Error_monad.error += | Overflow of Alpha_context.Script.location * execution_trace option
type Tezos_protocol_environment_004_Pt24m4xi.Error_monad.error += | Runtime_contract_error : Alpha_context.Contract.t * Alpha_context.Script.expr -> Tezos_protocol_environment_004_Pt24m4xi.Error_monad.error
type Tezos_protocol_environment_004_Pt24m4xi.Error_monad.error += | Bad_contract_parameter of Alpha_context.Contract.t
type execution_result = {ctxt : Alpha_context.context;storage : Alpha_context.Script.expr;big_map_diff : Alpha_context.Contract.big_map_diff option;operations : Alpha_context.packed_internal_operation list;
}val execute :
Alpha_context.t ->
Script_ir_translator.unparsing_mode ->
source:Alpha_context.Contract.t ->
payer:Alpha_context.Contract.t ->
self:(Alpha_context.Contract.t * Alpha_context.Script.t) ->
parameter:Alpha_context.Script.expr ->
amount:Alpha_context.Tez.t ->
execution_result Tezos_protocol_environment_004_Pt24m4xi.Error_monad.tzresult
Tezos_protocol_environment_004_Pt24m4xi.Lwt.tval trace :
Alpha_context.t ->
Script_ir_translator.unparsing_mode ->
source:Alpha_context.Contract.t ->
payer:Alpha_context.Contract.t ->
self:(Alpha_context.Contract.t * Alpha_context.Script.t) ->
parameter:Alpha_context.Script.expr ->
amount:Alpha_context.Tez.t ->
(execution_result * execution_trace)
Tezos_protocol_environment_004_Pt24m4xi.Error_monad.tzresult
Tezos_protocol_environment_004_Pt24m4xi.Lwt.t