tezos-protocol-plugin-alpha 10.2

type Tezos_protocol_alpha.Protocol.Environment.Error_monad.error +=

| Viewed_contract_has_no_script

type Tezos_protocol_alpha.Protocol.Environment.Error_monad.error +=

| View_callback_origination_failed

type Tezos_protocol_alpha.Protocol.Environment.Error_monad.error +=

| Illformed_view_type of string * Tezos_protocol_alpha.Protocol.Alpha_context.Script.expr

type Tezos_protocol_alpha.Protocol.Environment.Error_monad.error +=

| View_never_returns of string * Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t

type Tezos_protocol_alpha.Protocol.Environment.Error_monad.error +=

| View_unexpected_return of string * Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t

val make_viewer_script : 
  Tezos_protocol_alpha.Protocol.Alpha_context.Script.prim
    Tezos_micheline.Micheline.canonical ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Script.t

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

val extract_view_output_type : 
  string ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Script.prim
    Tezos_micheline.Micheline.canonical ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.prim
     Tezos_micheline.Micheline.canonical,
    Tezos_protocol_alpha.Protocol.Environment.Error_monad.error
      Tezos_protocol_alpha.Protocol.Environment.Error_monad.trace)
    result

val extract_parameter_from_operations : 
  string ->
  Tezos_protocol_alpha.Protocol.Alpha_context.packed_internal_operation list ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Contract.t ->
  (Tezos_protocol_alpha.Protocol.Alpha_context.Script.lazy_expr,
    Tezos_protocol_alpha.Protocol.Environment.Error_monad.error
      Tezos_protocol_alpha.Protocol.Environment.Error_monad.trace)
    result

package tezos-protocol-plugin-alpha