36 lines
1.6 KiB
OCaml
36 lines
1.6 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Proto_alpha
|
|
open Tezos_context
|
|
|
|
open Tezos_micheline
|
|
|
|
(** The result of parsing and expanding a Michelson V1 script or data. *)
|
|
type parsed =
|
|
{
|
|
source : string ;
|
|
(** The original source code. *)
|
|
unexpanded : string Micheline.canonical ;
|
|
(** Original expression with macros. *)
|
|
expanded : Script.expr ;
|
|
(** Expression with macros fully expanded. *)
|
|
expansion_table :
|
|
(int * (Micheline_parser.location * int list)) list ;
|
|
(** Associates unexpanded nodes to their parsing locations and
|
|
the nodes expanded from it in the expanded expression. *)
|
|
unexpansion_table : (int * int) list ;
|
|
(** Associates an expanded node to its source in the unexpanded
|
|
expression. *)
|
|
}
|
|
|
|
val parse_toplevel : ?check:bool -> string -> parsed Micheline_parser.parsing_result
|
|
val parse_expression : ?check:bool -> string -> parsed Micheline_parser.parsing_result
|
|
val expand_all : source:string -> original:Micheline_parser.node -> parsed Micheline_parser.parsing_result
|