31 lines
1.1 KiB
OCaml
31 lines
1.1 KiB
OCaml
open Proto_alpha_utils.Error_monad
|
|
|
|
let dummy_environment = force_lwt ~msg:"getting dummy env" @@ Misc.init_environment ()
|
|
|
|
let tc = dummy_environment.tezos_context
|
|
|
|
module Proto_alpha = Proto_alpha_utils.Memory_proto_alpha
|
|
open Proto_alpha
|
|
open Alpha_context
|
|
open Alpha_environment
|
|
|
|
let pack ty v = fst @@ force_lwt_alpha ~msg:"packing" @@ Script_ir_translator.pack_data tc ty v
|
|
let unpack_opt (type a) : a Script_typed_ir.ty -> MBytes.t -> a option = fun ty bytes ->
|
|
force_lwt ~msg:"unpacking : parse" (
|
|
if Compare.Int.(MBytes.length bytes >= 1) &&
|
|
Compare.Int.(MBytes.get_uint8 bytes 0 = 0x05) then
|
|
let bytes = MBytes.sub bytes 1 (MBytes.length bytes - 1) in
|
|
match Data_encoding.Binary.of_bytes Script.expr_encoding bytes with
|
|
| None -> return None
|
|
| Some expr ->
|
|
Script_ir_translator.parse_data tc ty (Micheline.root expr) >>=?? fun x -> return (Some (fst x))
|
|
else
|
|
return None
|
|
)
|
|
|
|
let unpack ty a = match unpack_opt ty a with
|
|
| None -> raise @@ Failure "unpacking : of_bytes"
|
|
| Some x -> x
|
|
|
|
let blake2b b = Alpha_environment.Raw_hashes.blake2b b
|