package tezos-protocol-008-PtEdoTez
type execution_trace =
(Alpha_context.Script.location
* Alpha_context.Gas.t
* (Alpha_context.Script.expr * string option) list)
listtype Tezos_protocol_environment_008_PtEdoTez.Error_monad.error += | Reject of Alpha_context.Script.location * Alpha_context.Script.expr * execution_trace option
type Tezos_protocol_environment_008_PtEdoTez.Error_monad.error += | Overflow of Alpha_context.Script.location * execution_trace option
type Tezos_protocol_environment_008_PtEdoTez.Error_monad.error += | Runtime_contract_error : Alpha_context.Contract.t * Alpha_context.Script.expr -> Tezos_protocol_environment_008_PtEdoTez.Error_monad.error
type Tezos_protocol_environment_008_PtEdoTez.Error_monad.error += | Bad_contract_parameter of Alpha_context.Contract.t
type execution_result = {ctxt : Alpha_context.context;storage : Alpha_context.Script.expr;lazy_storage_diff : Alpha_context.Lazy_storage.diffs option;operations : Alpha_context.packed_internal_operation list;
}type step_constants = {source : Alpha_context.Contract.t;payer : Alpha_context.Contract.t;self : Alpha_context.Contract.t;amount : Alpha_context.Tez.t;chain_id : Tezos_protocol_environment_008_PtEdoTez.Chain_id.t;
}module type STEP_LOGGER = sig ... endSTEP_LOGGER is the module type of logging modules as passed to the Michelson interpreter. Note that logging must be performed by side-effects on an underlying log structure.
type logger = (module STEP_LOGGER)val step :
logger ->
Alpha_context.context ->
step_constants ->
('bef, 'aft) Script_typed_ir.descr ->
'bef ->
('aft * Alpha_context.context)
Tezos_protocol_environment_008_PtEdoTez.Error_monad.tzresult
Tezos_protocol_environment_008_PtEdoTez.Lwt.tval execute :
?logger:logger ->
Alpha_context.t ->
Script_ir_translator.unparsing_mode ->
step_constants ->
script:Alpha_context.Script.t ->
entrypoint:string ->
parameter:Alpha_context.Script.expr ->
internal:bool ->
execution_result Tezos_protocol_environment_008_PtEdoTez.Error_monad.tzresult
Tezos_protocol_environment_008_PtEdoTez.Lwt.t