2017-06-14 23:35:24 +02:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2017-11-14 00:36:14 +01:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2017-06-14 23:35:24 +02:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
2017-11-27 06:13:12 +01:00
|
|
|
open Tezos_micheline
|
|
|
|
|
|
2017-11-02 18:57:17 +01:00
|
|
|
type 'l node = ('l, string) Micheline.node
|
2017-06-14 23:35:24 +02:00
|
|
|
|
2017-12-01 17:00:32 +01:00
|
|
|
type error += Unexpected_macro_annotation of string
|
2017-12-05 15:47:11 +01:00
|
|
|
type error += Sequence_expected of string
|
|
|
|
|
type error += Invalid_arity of string * int * int
|
2017-06-14 23:35:24 +02:00
|
|
|
|
2017-12-01 17:00:32 +01:00
|
|
|
val expand : 'l node -> 'l node tzresult
|
|
|
|
|
|
|
|
|
|
val expand_caddadr : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_set_caddadr : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_map_caddadr : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_dxiiivp : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_paaiair : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_duuuuup : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_compare : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_asserts : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_unpaaiair : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_if_some : 'l node -> 'l node option tzresult
|
|
|
|
|
val expand_if_right : 'l node -> 'l node option tzresult
|
2017-06-14 23:35:24 +02:00
|
|
|
|
2017-11-02 18:57:17 +01:00
|
|
|
val unexpand : 'l node -> 'l node
|
2017-06-14 23:35:24 +02:00
|
|
|
|
2017-11-02 18:57:17 +01:00
|
|
|
val unexpand_caddadr : 'l node -> 'l node option
|
|
|
|
|
val unexpand_set_caddadr : 'l node -> 'l node option
|
|
|
|
|
val unexpand_map_caddadr : 'l node -> 'l node option
|
|
|
|
|
val unexpand_dxiiivp : 'l node -> 'l node option
|
|
|
|
|
val unexpand_paaiair : 'l node -> 'l node option
|
|
|
|
|
val unexpand_duuuuup : 'l node -> 'l node option
|
|
|
|
|
val unexpand_compare : 'l node -> 'l node option
|
|
|
|
|
val unexpand_asserts : 'l node -> 'l node option
|
|
|
|
|
val unexpand_unpaaiair : 'l node -> 'l node option
|
|
|
|
|
val unexpand_if_some : 'l node -> 'l node option
|
|
|
|
|
val unexpand_if_right : 'l node -> 'l node option
|
