2017-09-29 18:20:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2017-09-29 18:20:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type ('l, 'p) node =
|
|
|
|
|
| Int of 'l * string
|
|
|
|
|
| String of 'l * string
|
|
|
|
|
| Prim of 'l * 'p * ('l, 'p) node list * string option
|
|
|
|
|
| Seq of 'l * ('l, 'p) node list * string option
|
|
|
|
|
|
|
|
|
|
type 'p canonical
|
|
|
|
|
type canonical_location = int
|
|
|
|
|
|
|
|
|
|
val root : 'p canonical -> (canonical_location, 'p) node
|
|
|
|
|
val canonical_location_encoding : canonical_location Data_encoding.encoding
|
|
|
|
|
val canonical_encoding : 'l Data_encoding.encoding -> 'l canonical Data_encoding.encoding
|
|
|
|
|
val erased_encoding : 'l -> 'p Data_encoding.encoding -> ('l, 'p) node Data_encoding.encoding
|
|
|
|
|
val table_encoding : 'l Data_encoding.encoding -> 'p Data_encoding.encoding -> ('l, 'p) node Data_encoding.encoding
|
|
|
|
|
|
|
|
|
|
val location : ('l, 'p) node -> 'l
|
|
|
|
|
val annotation : ('l, 'p) node -> string option
|
|
|
|
|
|
|
|
|
|
val strip_locations : (_, 'p) node -> 'p canonical
|
|
|
|
|
val extract_locations : ('l, 'p) node -> 'p canonical * (canonical_location * 'l) list
|
|
|
|
|
val inject_locations : (canonical_location -> 'l) -> 'p canonical -> ('l, 'p) node
|
