Client_proto_programs (octez-protocol-alpha-libs.Tezos_client_alpha.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_alpha.Protocol.Script_ir_unparser.unparsing_mode;
now : Tezos_protocol_alpha.Protocol.Script_timestamp.t option;
level : Tezos_protocol_alpha.Protocol.Script_int.n Tezos_protocol_alpha.Protocol.Script_int.num option;
sender : Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option;
payer : Signature.public_key_hash option;
gas : Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral option;
other_contracts : Tezos_protocol_plugin_alpha.RPC.Scripts.S.other_contract_description list option;
extra_big_maps : Tezos_protocol_plugin_alpha.RPC.Scripts.S.extra_big_map_description list option;

}

type run_view_params = {

shared_params : simulation_params;
contract : Tezos_protocol_alpha.Protocol.Contract_hash.t;
entrypoint : Tezos_protocol_alpha.Protocol.Alpha_context.Entrypoint.t;

}

type run_script_view_params = {

shared_params : simulation_params;
contract : Tezos_protocol_alpha.Protocol.Contract_hash.t;
view : string;
unlimited_gas : bool;

}

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 option;
program : Michelson_v1_parser.parsed;
storage : Michelson_v1_parser.parsed;
entrypoint : Tezos_protocol_alpha.Protocol.Alpha_context.Entrypoint.t option;
self : Tezos_protocol_alpha.Protocol.Contract_hash.t option;

}

type run_instr_params = {

shared_params : simulation_params;
amount : Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t;
balance : Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t option;
stack : (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr) list;
self : Tezos_protocol_alpha.Protocol.Contract_hash.t option;
parameter : Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr option;
legacy : bool;

}

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_base.TzPervasives.tzresult
    Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.run_tzip4_view

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_alpha.Protocol.Alpha_context.Script.expr
    Tezos_base.TzPervasives.tzresult
    Lwt.t

run_script_view cctxt ~chain ~block params executes Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.run_script_view, 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_alpha.Protocol.Alpha_context.Script.expr
   * Tezos_protocol_alpha.Protocol.Apply_internal_results.packed_internal_operation
       list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option)
    Tezos_base.TzPervasives.tzresult
    Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.run_code

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.Apply_internal_results.packed_internal_operation
       list
   * Tezos_protocol_alpha.Protocol.Script_typed_ir.execution_trace
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option)
    Tezos_base.TzPervasives.tzresult
    Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.trace_code

val run_instr : 
  Protocol_client_context.rpc_context ->
  chain:Tezos_shell_services.Shell_services.chain ->
  block:Tezos_shell_services.Shell_services.block ->
  run_instr_params ->
  ((Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
    * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr)
     list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t)
    Tezos_base.TzPervasives.tzresult
    Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.run_instr

val print_view_result : 
  Protocol_client_context.full ->
  Tezos_protocol_alpha.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_alpha.Protocol.Script_repr.expr
   * Tezos_protocol_alpha.Protocol.Apply_internal_results.packed_internal_operation
       list
   * Tezos_protocol_alpha.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_alpha.Protocol.Script_repr.expr
   * Tezos_protocol_alpha.Protocol.Apply_internal_results.packed_internal_operation
       list
   * Tezos_protocol_alpha.Protocol.Script_typed_ir.execution_trace
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option)
    Tezos_base.TzPervasives.tzresult ->
  unit Tezos_base.TzPervasives.tzresult Lwt.t

val print_run_instr_result : 
  Protocol_client_context.full ->
  show_source:bool ->
  parsed:Michelson_v1_parser.parsed ->
  ((Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
    * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr)
     list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t)
    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_alpha.Protocol.Alpha_context.Gas.Arith.integral option ->
  legacy:bool ->
  data:Michelson_v1_parser.parsed ->
  ty:Michelson_v1_parser.parsed ->
  unit ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t
    Tezos_base.TzPervasives.tzresult
    Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.typecheck_data

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 option ->
  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_base.TzPervasives.tzresult
    Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.typecheck_code

val print_typecheck_result : 
  emacs:bool ->
  show_types:bool ->
  print_source_on_error:bool ->
  display_names:bool ->
  name:string ->
  Michelson_v1_parser.parsed ->
  (Tezos_protocol_alpha.Protocol.Script_tc_errors.type_map
   * Tezos_protocol_alpha.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_alpha.Protocol.Alpha_context.Gas.Arith.integral option ->
  legacy:bool ->
  program:Michelson_v1_parser.parsed ->
  storage:Michelson_v1_parser.parsed ->
  unit ->
  int Tezos_base.TzPervasives.tzresult Lwt.t

Calls Tezos_protocol_plugin_alpha.Plugin.RPC.Scripts.script_size

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_alpha.Protocol.Alpha_context.Entrypoint.t ->
  Tezos_protocol_alpha.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_alpha.Protocol.Alpha_context.Entrypoint.t ->
  Tezos_protocol_alpha.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_alpha.Protocol.Alpha_context.Script.expr) list
    Tezos_base.TzPervasives.tzresult
    Lwt.t

Calls Michelson_v1_entrypoints.list_entrypoints

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

Calls Michelson_v1_entrypoints.print_unreachables