Module `Tezos_raw_protocol_005_PsBabyM1.Script_ir_translator`Source

Sourcetype ('ta, 'tb) eq =

| Eq : ('same, 'same) eq

Sourcetype ex_comparable_ty =

| Ex_comparable_ty : 'a Script_typed_ir.comparable_ty -> ex_comparable_ty

Sourcetype ex_ty =

| Ex_ty : 'a Script_typed_ir.ty -> ex_ty

Sourcetype ex_stack_ty =

| Ex_stack_ty : 'a Script_typed_ir.stack_ty -> ex_stack_ty

Sourcetype ex_script =

| Ex_script : ('a, 'b) Script_typed_ir.script -> ex_script

Sourcetype tc_context =

| Lambda : tc_context
| Dip : 'a Script_typed_ir.stack_ty * tc_context -> tc_context
| Toplevel : {
1. storage_type : 'sto Script_typed_ir.ty;
2. param_type : 'param Script_typed_ir.ty;
3. root_name : string option;
4. legacy_create_contract_literal : bool;
} -> tc_context

Sourcetype 'bef judgement =

| Typed : ('bef, 'aft) Script_typed_ir.descr -> 'bef judgement
| Failed : {
1. descr : 'aft. 'aft Script_typed_ir.stack_ty -> ('bef, 'aft) Script_typed_ir.descr;
} -> 'bef judgement

Sourcetype unparsing_mode =

| Optimized
| Readable

Source

type type_logger =
  int ->
  (Alpha_context.Script.expr * Alpha_context.Script.annot) list ->
  (Alpha_context.Script.expr * Alpha_context.Script.annot) list ->
  unit

Sourceval empty_set : 'a Script_typed_ir.comparable_ty -> 'a Script_typed_ir.set

Source

val set_fold : 
  ('elt -> 'acc -> 'acc) ->
  'elt Script_typed_ir.set ->
  'acc ->
  'acc

Sourceval set_update : 'a -> bool -> 'a Script_typed_ir.set -> 'a Script_typed_ir.set

Sourceval set_mem : 'elt -> 'elt Script_typed_ir.set -> bool

Source

val set_size : 
  'elt Script_typed_ir.set ->
  Alpha_context.Script_int.n Alpha_context.Script_int.num

Source

val empty_map : 
  'a Script_typed_ir.comparable_ty ->
  ('a, 'b) Script_typed_ir.map

Source

val map_fold : 
  ('key -> 'value -> 'acc -> 'acc) ->
  ('key, 'value) Script_typed_ir.map ->
  'acc ->
  'acc

Source

val map_update : 
  'a ->
  'b option ->
  ('a, 'b) Script_typed_ir.map ->
  ('a, 'b) Script_typed_ir.map

Sourceval map_mem : 'key -> ('key, 'value) Script_typed_ir.map -> bool

Sourceval map_get : 'key -> ('key, 'value) Script_typed_ir.map -> 'value option

Source

val map_key_ty : 
  ('a, 'b) Script_typed_ir.map ->
  'a Script_typed_ir.comparable_ty

Source

val map_size : 
  ('a, 'b) Script_typed_ir.map ->
  Alpha_context.Script_int.n Alpha_context.Script_int.num

Source

val empty_big_map : 
  'a Script_typed_ir.comparable_ty ->
  'b Script_typed_ir.ty ->
  ('a, 'b) Script_typed_ir.big_map

Source

val big_map_mem : 
  Alpha_context.context ->
  'key ->
  ('key, 'value) Script_typed_ir.big_map ->
  (bool * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val big_map_get : 
  Alpha_context.context ->
  'key ->
  ('key, 'value) Script_typed_ir.big_map ->
  ('value option * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val big_map_update : 
  'key ->
  'value option ->
  ('key, 'value) Script_typed_ir.big_map ->
  ('key, 'value) Script_typed_ir.big_map

Source

val ty_eq : 
  Alpha_context.context ->
  'ta Script_typed_ir.ty ->
  'tb Script_typed_ir.ty ->
  (('ta Script_typed_ir.ty, 'tb Script_typed_ir.ty) eq * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult

Sourceval compare_comparable : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> int

Source

val parse_data : 
  ?type_logger:type_logger ->
  Alpha_context.context ->
  legacy:bool ->
  'a Script_typed_ir.ty ->
  Alpha_context.Script.node ->
  ('a * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val unparse_data : 
  Alpha_context.context ->
  unparsing_mode ->
  'a Script_typed_ir.ty ->
  'a ->
  (Alpha_context.Script.node * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val parse_instr : 
  ?type_logger:type_logger ->
  tc_context ->
  Alpha_context.context ->
  legacy:bool ->
  Alpha_context.Script.node ->
  'bef Script_typed_ir.stack_ty ->
  ('bef judgement * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val parse_ty : 
  Alpha_context.context ->
  legacy:bool ->
  allow_big_map:bool ->
  allow_operation:bool ->
  allow_contract:bool ->
  Alpha_context.Script.node ->
  (ex_ty * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult

Source

val parse_packable_ty : 
  Alpha_context.context ->
  legacy:bool ->
  Alpha_context.Script.node ->
  (ex_ty * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult

Source

val unparse_ty : 
  Alpha_context.context ->
  'a Script_typed_ir.ty ->
  (Alpha_context.Script.node * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val parse_toplevel : 
  legacy:bool ->
  Alpha_context.Script.expr ->
  (Alpha_context.Script.node
   * Alpha_context.Script.node
   * Alpha_context.Script.node
   * string option)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult

Source

val add_field_annot : 
  [ `Field_annot of string ] option ->
  [ `Var_annot of string ] option ->
  Alpha_context.Script.node ->
  Alpha_context.Script.node

Source

val typecheck_code : 
  Alpha_context.context ->
  Alpha_context.Script.expr ->
  (Script_tc_errors.type_map * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val typecheck_data : 
  ?type_logger:type_logger ->
  Alpha_context.context ->
  (Alpha_context.Script.expr * Alpha_context.Script.expr) ->
  Alpha_context.context
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val parse_script : 
  ?type_logger:type_logger ->
  Alpha_context.context ->
  legacy:bool ->
  Alpha_context.Script.t ->
  (ex_script * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val unparse_script : 
  Alpha_context.context ->
  unparsing_mode ->
  ('a, 'b) Script_typed_ir.script ->
  (Alpha_context.Script.t * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val parse_contract : 
  legacy:bool ->
  Alpha_context.context ->
  Alpha_context.Script.location ->
  'a Script_typed_ir.ty ->
  Alpha_context.Contract.t ->
  entrypoint:string ->
  (Alpha_context.context * 'a Script_typed_ir.typed_contract)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val parse_contract_for_script : 
  legacy:bool ->
  Alpha_context.context ->
  Alpha_context.Script.location ->
  'a Script_typed_ir.ty ->
  Alpha_context.Contract.t ->
  entrypoint:string ->
  (Alpha_context.context * 'a Script_typed_ir.typed_contract option)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val find_entrypoint : 
  't Script_typed_ir.ty ->
  root_name:string option ->
  string ->
  ((Alpha_context.Script.node -> Alpha_context.Script.node) * ex_ty)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult

Source

module Entrypoints_map : 
  Tezos_protocol_environment_005_PsBabyM1.S.MAP with type key = string

Source

val list_entrypoints : 
  't Script_typed_ir.ty ->
  Alpha_context.context ->
  root_name:string option ->
  (Michelson_v1_primitives.prim list list
   * (Michelson_v1_primitives.prim list * Alpha_context.Script.node)
       Entrypoints_map.t)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult

Source

val pack_data : 
  Alpha_context.context ->
  'a Script_typed_ir.ty ->
  'a ->
  (Tezos_protocol_environment_005_PsBabyM1.MBytes.t * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val hash_data : 
  Alpha_context.context ->
  'a Script_typed_ir.ty ->
  'a ->
  (Script_expr_hash.t * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Sourcetype big_map_ids

Sourceval no_big_map_id : big_map_ids

Source

val collect_big_maps : 
  Alpha_context.context ->
  'a Script_typed_ir.ty ->
  'a ->
  (big_map_ids * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Source

val list_of_big_map_ids : 
  big_map_ids ->
  Tezos_protocol_environment_005_PsBabyM1.Z.t list

Source

val extract_big_map_diff : 
  Alpha_context.context ->
  unparsing_mode ->
  temporary:bool ->
  to_duplicate:big_map_ids ->
  to_update:big_map_ids ->
  'a Script_typed_ir.ty ->
  'a ->
  ('a * Alpha_context.Contract.big_map_diff option * Alpha_context.context)
    Tezos_protocol_environment_005_PsBabyM1.Error_monad.tzresult
    Tezos_protocol_environment_005_PsBabyM1.Lwt.t

Install

Dune Dependency

Authors

Maintainers

Sources

doc/tezos-protocol-005-PsBabyM1.raw/Tezos_raw_protocol_005_PsBabyM1/Script_ir_translator/index.html

Module `Tezos_raw_protocol_005_PsBabyM1.Script_ir_translator`Source

package tezos-protocol-005-PsBabyM1

Install

Dune Dependency

Authors

Maintainers

Sources

doc/tezos-protocol-005-PsBabyM1.raw/Tezos_raw_protocol_005_PsBabyM1/Script_ir_translator/index.html

Module Tezos_raw_protocol_005_PsBabyM1.Script_ir_translatorSource

Module `Tezos_raw_protocol_005_PsBabyM1.Script_ir_translator`Source