tezos-client-alpha 12.3 · OCaml Package

module Program : 
  Tezos_client_base.Client_aliases.Alias
    with type t =
           Michelson_v1_parser.parsed
             Tezos_micheline.Micheline_parser.parsing_result

type simulation_params = {

input : Michelson_v1_parser.parsed;
unparsing_mode : Tezos_protocol_alpha.Protocol.Script_ir_translator.unparsing_mode;
now : Tezos_protocol_alpha.Protocol.Alpha_context.Script_timestamp.t option;
level : Tezos_protocol_alpha.Protocol.Alpha_context.Script_int.n Tezos_protocol_alpha.Protocol.Alpha_context.Script_int.num option;
source : Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option;
payer : Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option;
gas : Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral option;

}

type run_view_params = {

shared_params : simulation_params;
contract : Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t;
entrypoint : string;

}

type run_params = {

shared_params : simulation_params;
amount : Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t option;
balance : Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t;
program : Michelson_v1_parser.parsed;
storage : Michelson_v1_parser.parsed;
entrypoint : string option;

}

val run_view : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  run_view_params ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val run : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  run_params ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
   * Tezos_protocol_alpha.Protocol.Alpha_context.packed_internal_operation list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val trace : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  run_params ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
   * Tezos_protocol_alpha.Protocol.Alpha_context.packed_internal_operation list
   * Tezos_protocol_alpha.Protocol.Script_typed_ir.execution_trace
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val print_view_result : 
  Tezos_client_base.Client_context.printer ->
  (Tezos_protocol_alpha.Protocol.Script_repr.expr,
    Tezos_error_monad.TzCore.error list)
    result ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

val print_run_result : 
  Tezos_client_base.Client_context.printer ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Script_repr.expr
   * Tezos_protocol_alpha.Protocol.Alpha_context.packed_internal_operation list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option,
    Tezos_error_monad.TzCore.error list)
    result ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

val print_trace_result : 
  Tezos_client_base.Client_context.printer ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Script_repr.expr
   * Tezos_protocol_alpha.Protocol.Alpha_context.packed_internal_operation list
   * Tezos_protocol_alpha.Protocol.Script_typed_ir.execution_trace
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option,
    Tezos_error_monad.TzCore.error list)
    result ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

val typecheck_data : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  data:Michelson_v1_parser.parsed ->
  ty:Michelson_v1_parser.parsed ->
  unit ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val typecheck_program : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  show_types:bool ->
  Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Script_tc_errors.type_map
   * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val print_typecheck_result : 
  emacs:bool ->
  show_types:bool ->
  print_source_on_error:bool ->
  Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Script_tc_errors.type_map
   * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t,
    Tezos_error_monad.TzCore.error list)
    result ->
  Tezos_client_base.Client_context.printer ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

val script_size : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  program:Michelson_v1_parser.parsed ->
  storage:Michelson_v1_parser.parsed ->
  unit ->
  (int, Tezos_error_monad.TzCore.error list) result Lwt.t

val entrypoint_type : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  Michelson_v1_parser.parsed ->
  entrypoint:string ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr option,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val print_entrypoint_type : 
  Tezos_client_base.Client_context.printer ->
  emacs:bool ->
  ?script_name:string ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  entrypoint:string ->
  (Tezos_protocol_alpha.Protocol.Script_repr.expr option,
    Tezos_error_monad.TzCore.error list)
    result ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

val list_entrypoints : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  Michelson_v1_parser.parsed ->
  ((string * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr) list,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val print_entrypoints_list : 
  Tezos_client_base.Client_context.printer ->
  emacs:bool ->
  ?script_name:string ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  ((string * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr) list,
    Tezos_error_monad.TzCore.error list)
    result ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

val list_unreachables : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Michelson_v1_primitives.prim list list,
    Tezos_error_monad.TzCore.error list)
    result
    Lwt.t

val print_unreachables : 
  Tezos_client_base.Client_context.printer ->
  emacs:bool ->
  ?script_name:string ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Michelson_v1_primitives.prim list list,
    Tezos_error_monad.TzCore.error list)
    result ->
  (unit, Tezos_error_monad.TzCore.error list) result Lwt.t

package tezos-client-alpha