Client_proto_programs (octez-protocol-013-PtJakart-libs.Tezos_client_013_PtJakart.Client_proto

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_013_PtJakart.Protocol.Script_ir_translator.unparsing_mode;
now : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Script_timestamp.t option;
level : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Script_int.n Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Script_int.num option;
source : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Contract.t option;
payer : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Contract.t option;
gas : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Gas.Arith.integral option;

}

type run_view_params = {

shared_params : simulation_params;
contract : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Contract.t;
entrypoint : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Entrypoint.t;

}

type run_script_view_params = {

shared_params : simulation_params;
contract : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Contract.t;
view : string;
unlimited_gas : bool;

}

type run_params = {

shared_params : simulation_params;
amount : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Tez.t option;
balance : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Tez.t option;
program : Michelson_v1_parser.parsed;
storage : Michelson_v1_parser.parsed;
entrypoint : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Entrypoint.t option;
self : Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Contract.t 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_013_PtJakart.Protocol.Alpha_context.Script.expr
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val run_script_view : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  run_script_view_params ->
  Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Script.expr
    Tezos_base.TzPervasives.tzresult
    Lwt.t

run_script_view cctxt ~chain ~block params executes the RPC to run a Michelson view offchain and returns its value.

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_013_PtJakart.Protocol.Alpha_context.Script.expr
   * Tezos_protocol_013_PtJakart.Protocol.Apply_results.packed_internal_contents
       list
   * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Lazy_storage.diffs
       option)
    Tezos_base.TzPervasives.tzresult
    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_013_PtJakart.Protocol.Alpha_context.Script.expr
   * Tezos_protocol_013_PtJakart.Protocol.Apply_results.packed_internal_contents
       list
   * Tezos_protocol_013_PtJakart.Protocol.Script_typed_ir.execution_trace
   * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Lazy_storage.diffs
       option)
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val print_view_result : 
  Protocol_client_context.full ->
  Tezos_protocol_013_PtJakart.Protocol.Script_repr.expr
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

val print_run_result : 
  Protocol_client_context.full ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  (Tezos_protocol_013_PtJakart.Protocol.Script_repr.expr
   * Tezos_protocol_013_PtJakart.Protocol.Apply_results.packed_internal_contents
       list
   * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Lazy_storage.diffs
       option)
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

val print_trace_result : 
  Protocol_client_context.full ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  (Tezos_protocol_013_PtJakart.Protocol.Script_repr.expr
   * Tezos_protocol_013_PtJakart.Protocol.Apply_results.packed_internal_contents
       list
   * Tezos_protocol_013_PtJakart.Protocol.Script_typed_ir.execution_trace
   * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Lazy_storage.diffs
       option)
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult 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_013_PtJakart.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  data:Michelson_v1_parser.parsed ->
  ty:Michelson_v1_parser.parsed ->
  unit ->
  Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Gas.t
    Tezos_base.TzPervasives.tzresult
    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_013_PtJakart.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  show_types:bool ->
  Michelson_v1_parser.parsed ->
  (Tezos_protocol_013_PtJakart.Protocol.Script_tc_errors.type_map
   * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Gas.t)
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val print_typecheck_result : 
  emacs:bool ->
  show_types:bool ->
  print_source_on_error:bool ->
  Michelson_v1_parser.parsed ->
  (Tezos_protocol_013_PtJakart.Protocol.Script_tc_errors.type_map
   * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Gas.t)
    Tezos_base.TzPervasives.tzresult ->
  Tezos_client_base.Client_context.printer ->
  unit Tezos_base.TzPervasives.tzresult 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_013_PtJakart.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  program:Michelson_v1_parser.parsed ->
  storage:Michelson_v1_parser.parsed ->
  unit ->
  int Tezos_base.TzPervasives.tzresult 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:Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Entrypoint.t ->
  Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Script.expr option
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val print_entrypoint_type : 
  Protocol_client_context.full ->
  emacs:bool ->
  ?script_name:string ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  entrypoint:Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Entrypoint.t ->
  Tezos_protocol_013_PtJakart.Protocol.Script_repr.expr option
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult 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_013_PtJakart.Protocol.Alpha_context.Script.expr)
    list
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val print_entrypoints_list : 
  Protocol_client_context.full ->
  emacs:bool ->
  ?script_name:string ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  (string * Tezos_protocol_013_PtJakart.Protocol.Alpha_context.Script.expr)
    list
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult 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_013_PtJakart.Protocol.Michelson_v1_primitives.prim list list
    Tezos_base.TzPervasives.tzresult
    Lwt.t

val print_unreachables : 
  Protocol_client_context.full ->
  emacs:bool ->
  ?script_name:string ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  Tezos_protocol_013_PtJakart.Protocol.Michelson_v1_primitives.prim list list
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t