tezos-protocol-plugin-alpha 12.3

module S : sig ... end

module type UNPARSING_MODE = sig ... end

module Traced_interpreter (Unparsing_mode : UNPARSING_MODE) : sig ... end

module Unparse_types : sig ... end

val run_operation_service : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  unit ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.packed_operation
   * Tezos_crypto.Chain_id.t) ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.packed_protocol_data
   * Tezos_protocol_alpha.Protocol.Apply_results.packed_operation_metadata,
    Tezos_protocol_environment_alpha__Environment.Error_monad.error
      Tezos_protocol_environment_alpha__Environment.Error_monad.trace)
    result
    Lwt.t

val simulate_operation_service : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  unit ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.packed_operation
   * Tezos_crypto.Chain_id.t
   * int) ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.packed_protocol_data
   * Tezos_protocol_alpha.Protocol.Apply_results.packed_operation_metadata,
    Tezos_protocol_environment_alpha__Environment.Error_monad.error
      Tezos_protocol_environment_alpha__Environment.Error_monad.trace)
    result
    Lwt.t

val register : unit -> unit

val run_code : 
  ?unparsing_mode:
    Tezos_protocol_alpha.Protocol.Script_ir_translator.unparsing_mode ->
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?entrypoint:string ->
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  storage:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  input:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  amount:Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t ->
  balance:Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t ->
  chain_id:Tezos_protocol_alpha.Protocol.Environment.Chain_id.t ->
  source:Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option ->
  payer:Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option ->
  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 ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
   * Tezos_raw_protocol_alpha__Alpha_context.packed_internal_operation list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val trace_code : 
  ?unparsing_mode:
    Tezos_protocol_alpha.Protocol.Script_ir_translator.unparsing_mode ->
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?entrypoint:string ->
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  storage:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  input:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  amount:Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t ->
  balance:Tezos_protocol_alpha.Protocol.Alpha_context.Tez.t ->
  chain_id:Tezos_protocol_alpha.Protocol.Environment.Chain_id.t ->
  source:Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option ->
  payer:Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t option ->
  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 ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
   * Tezos_raw_protocol_alpha__Alpha_context.packed_internal_operation list
   * (Tezos_protocol_alpha.Protocol.Alpha_context.Script.location
      * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t
      * (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr
         * string option)
          list)
       list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Lazy_storage.diffs option,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val run_view : 
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  contract:Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  entrypoint:string ->
  input:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  chain_id:Tezos_protocol_alpha.Protocol.Environment.Chain_id.t ->
  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 ->
  ?payer:Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  unparsing_mode:
    Tezos_protocol_alpha.Protocol.Script_ir_translator.unparsing_mode ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val typecheck_code : 
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  ?show_types:bool ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  ((Tezos_raw_protocol_alpha.Alpha_context.Script.location
    * ((Tezos_raw_protocol_alpha.Alpha_context.Script.expr * string list) list
       * (Tezos_raw_protocol_alpha.Alpha_context.Script.expr * string list)
           list))
     list
   * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val script_size : 
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  storage:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (int,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val typecheck_data : 
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  ?legacy:bool ->
  data:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  ty:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val pack_data : 
  ?gas:Tezos_protocol_alpha.Protocol.Alpha_context.Gas.Arith.integral ->
  data:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  ty:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (bytes * Tezos_protocol_alpha.Protocol.Alpha_context.Gas.t,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val normalize_data : 
  ?legacy:bool ->
  data:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  ty:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  unparsing_mode:
    Tezos_protocol_alpha.Protocol.Script_ir_translator.unparsing_mode ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val normalize_script : 
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  unparsing_mode:
    Tezos_protocol_alpha.Protocol.Script_ir_translator.unparsing_mode ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val normalize_type : 
  ty:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val run_operation : 
  op:Tezos_protocol_alpha.Protocol.Alpha_context.Operation.packed ->
  chain_id:Tezos_protocol_alpha.Protocol.Environment.Chain_id.t ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_raw_protocol_alpha.Alpha_context.Operation.packed_protocol_data
   * Tezos_protocol_alpha.Protocol.Apply_results.packed_operation_metadata,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val simulate_operation : 
  op:Tezos_protocol_alpha.Protocol.Alpha_context.Operation.packed ->
  chain_id:Tezos_protocol_alpha.Protocol.Environment.Chain_id.t ->
  latency:int ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_raw_protocol_alpha.Alpha_context.Operation.packed_protocol_data
   * Tezos_protocol_alpha.Protocol.Apply_results.packed_operation_metadata,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val entrypoint_type : 
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  entrypoint:string ->
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

val list_entrypoints : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  script:Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr ->
  (Tezos_protocol_alpha.Protocol.Michelson_v1_primitives.prim list list
   * (string * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr) list,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    result
    Lwt.t

package tezos-protocol-plugin-alpha