View_helpers (octez-protocol-014-PtKathma-libs.Tezos_protocol_plugin_014_PtKathma.View

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| Viewed_contract_has_no_script

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| View_callback_origination_failed

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| Illformed_view_type of Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Entrypoint.t * Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.expr

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| View_never_returns of Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Entrypoint.t * Tezos_protocol_014_PtKathma.Protocol.Contract_hash.t

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| View_unexpected_return of Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Entrypoint.t * Tezos_protocol_014_PtKathma.Protocol.Contract_hash.t

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| View_not_found of Tezos_protocol_014_PtKathma.Protocol.Contract_hash.t * string

type Tezos_protocol_014_PtKathma.Environment.Error_monad.error +=

| Viewer_unexpected_storage

val make_tzip4_viewer_script : 
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim
    Tezos_micheline.Micheline.canonical ->
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.t

val make_view_parameter : 
  (int, Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim)
    Tezos_micheline.Micheline.node ->
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Contract.t ->
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim
    Tezos_micheline.Micheline.canonical

val extract_view_output_type : 
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Entrypoint.t ->
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim
    Tezos_micheline.Micheline.canonical ->
  (Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim
     Tezos_micheline.Micheline.canonical,
    Tezos_protocol_014_PtKathma.Environment.Error_monad.error
      Tezos_protocol_014_PtKathma.Environment.Error_monad.trace)
    Tezos_protocol_environment_014_PtKathma.Pervasives.result

val extract_parameter_from_operations : 
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Entrypoint.t ->
  Tezos_protocol_014_PtKathma.Protocol.Script_typed_ir.packed_internal_operation
    list ->
  Tezos_protocol_014_PtKathma.Protocol.Contract_hash.t ->
  (Tezos_raw_protocol_014_PtKathma.Alpha_context.Script.expr,
    Tezos_protocol_014_PtKathma.Environment.Error_monad.error
      Tezos_protocol_014_PtKathma.Environment.Error_monad.trace)
    Tezos_protocol_environment_014_PtKathma.Pervasives.result

val make_michelson_viewer_script : 
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Contract.t ->
  string ->
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim
    Tezos_micheline.Micheline.canonical ->
  (Tezos_micheline.Micheline.canonical_location,
    Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim)
    Tezos_micheline.Micheline.node ->
  (Tezos_micheline.Micheline.canonical_location,
    Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim)
    Tezos_micheline.Micheline.node ->
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.t

val extract_value_from_storage : 
  Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.expr ->
  ((Tezos_micheline.Micheline.canonical_location,
     Tezos_protocol_014_PtKathma.Protocol.Alpha_context.Script.prim)
     Tezos_micheline.Micheline.node,
    Tezos_protocol_014_PtKathma.Environment.Error_monad.error
      Tezos_protocol_014_PtKathma.Environment.Error_monad.trace)
    Tezos_protocol_environment_014_PtKathma.Pervasives.result