2019-10-07 14:18:32 +00:00
|
|
|
open Proto_alpha_utils
|
|
|
|
open Trace
|
|
|
|
open Mini_c
|
|
|
|
open Michelson
|
|
|
|
|
|
|
|
(*
|
|
|
|
module Stack = Meta_michelson.Stack
|
|
|
|
*)
|
|
|
|
val empty: environment
|
2019-11-25 17:15:25 -06:00
|
|
|
val get : environment -> Var.t -> michelson result
|
|
|
|
val set : environment -> Var.t -> michelson result
|
2019-10-07 14:18:32 +00:00
|
|
|
|
|
|
|
val pack_closure : environment -> selector -> michelson result
|
|
|
|
val unpack_closure : environment -> michelson result
|
|
|
|
|
|
|
|
(*
|
|
|
|
val add : environment -> (string * type_value) -> michelson result
|
|
|
|
val select : ?rev:bool -> ?keep:bool -> environment -> string list -> michelson result
|
|
|
|
|
|
|
|
val select_env : environment -> environment -> michelson result
|
|
|
|
|
|
|
|
val clear : environment -> (michelson * environment) result
|
|
|
|
|
|
|
|
val pack : environment -> michelson result
|
|
|
|
|
|
|
|
val unpack : environment -> michelson result
|
|
|
|
|
|
|
|
val pack_select : environment -> string list -> michelson result
|
|
|
|
|
|
|
|
val add_packed_anon : environment -> type_value -> michelson result
|
|
|
|
|
|
|
|
val pop : environment -> environment result
|
|
|
|
*)
|