b674c538b2
This refactors `src/node/shell/state.ml` in order to trace the source of blocks and operations. This prepares the node for the three-pass validator. In the procces, it adds an in-memory overlay for blocks and operations.
29 lines
1.3 KiB
OCaml
29 lines
1.3 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(* Tezos Web Interface - version dependent services *)
|
|
|
|
let contextual_static_files : string OCamlRes.Res.root Protocol_hash.Table.t =
|
|
Protocol_hash.Table.create 7
|
|
|
|
let register_static_files version root =
|
|
Protocol_hash.Table.add contextual_static_files version root
|
|
|
|
let find_contextual_static_files version =
|
|
Protocol_hash.Table.find contextual_static_files version
|
|
|
|
let contextual_services : Node_rpc_services.Blocks.block RPC.directory Protocol_hash.Table.t =
|
|
Protocol_hash.Table.create 7
|
|
|
|
let register_services version root =
|
|
Protocol_hash.Table.add contextual_services version root
|
|
|
|
let find_contextual_services version =
|
|
Protocol_hash.Table.find contextual_services version
|