2017-11-02 21:57:17 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2017-11-02 21:57:17 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2018-01-29 04:06:47 +04:00
|
|
|
open Proto_alpha
|
|
|
|
open Tezos_context
|
|
|
|
|
2017-11-02 21:57:17 +04:00
|
|
|
val print_expr :
|
|
|
|
Format.formatter ->
|
|
|
|
Script.expr ->
|
|
|
|
unit
|
|
|
|
val print_type_map :
|
|
|
|
Format.formatter ->
|
|
|
|
Michelson_v1_parser.parsed * Script_ir_translator.type_map ->
|
|
|
|
unit
|
|
|
|
val report_errors :
|
|
|
|
Format.formatter ->
|
|
|
|
Michelson_v1_parser.parsed * Error_monad.error list ->
|
|
|
|
unit
|