2017-11-14 03:32:46 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2017-11-14 03:32:46 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2016-09-08 21:13:10 +04:00
|
|
|
(** View over the context store, restricted to types, access and
|
|
|
|
functional manipulation of an existing context. *)
|
|
|
|
|
2017-11-15 16:06:41 +04:00
|
|
|
type t
|
|
|
|
|
|
|
|
(** Keys in (kex x value) database implementations *)
|
|
|
|
type key = string list
|
|
|
|
|
|
|
|
(** Values in (kex x value) database implementations *)
|
|
|
|
type value = MBytes.t
|
|
|
|
|
|
|
|
val mem: t -> key -> bool Lwt.t
|
|
|
|
val dir_mem: t -> key -> bool Lwt.t
|
|
|
|
val get: t -> key -> value option Lwt.t
|
|
|
|
val set: t -> key -> value -> t Lwt.t
|
|
|
|
val del: t -> key -> t Lwt.t
|
|
|
|
val list: t -> key list -> key list Lwt.t
|
|
|
|
val remove_rec: t -> key -> t Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-11-14 20:28:37 +04:00
|
|
|
val register_resolver:
|
2017-02-19 21:22:32 +04:00
|
|
|
'a Base58.encoding -> (t -> string -> 'a list Lwt.t) -> unit
|
2016-11-14 20:28:37 +04:00
|
|
|
|
2017-02-19 21:22:32 +04:00
|
|
|
val complete: t -> string -> string list Lwt.t
|