(**************************************************************************) (* *) (* Copyright (c) 2014 - 2017. *) (* Dynamic Ledger Solutions, Inc. *) (* *) (* All rights reserved. No warranty, explicit or implicit, provided. *) (* *) (**************************************************************************) open Tezos_micheline type 'l node = ('l, string) Micheline.node type error += Unexpected_macro_annotation of string type error += Sequence_expected of string type error += Invalid_arity of string * int * int 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 val unexpand : 'l node -> 'l node 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