2016-12-02 02:20:23 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* 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 *)
|
|
|
|
|
2017-02-24 20:17:53 +04:00
|
|
|
let contextual_static_files : string OCamlRes.Res.root Protocol_hash.Table.t =
|
|
|
|
Protocol_hash.Table.create 7
|
2016-12-02 02:20:23 +04:00
|
|
|
|
|
|
|
let register_static_files version root =
|
2017-02-24 20:17:53 +04:00
|
|
|
Protocol_hash.Table.add contextual_static_files version root
|
2016-12-02 02:20:23 +04:00
|
|
|
|
|
|
|
let find_contextual_static_files version =
|
2017-02-24 20:17:53 +04:00
|
|
|
Protocol_hash.Table.find contextual_static_files version
|
2016-12-02 02:20:23 +04:00
|
|
|
|
2017-02-24 20:17:53 +04:00
|
|
|
let contextual_services : Node_rpc_services.Blocks.block RPC.directory Protocol_hash.Table.t =
|
|
|
|
Protocol_hash.Table.create 7
|
2016-12-02 02:20:23 +04:00
|
|
|
|
|
|
|
let register_services version root =
|
2017-02-24 20:17:53 +04:00
|
|
|
Protocol_hash.Table.add contextual_services version root
|
2016-12-02 02:20:23 +04:00
|
|
|
|
|
|
|
let find_contextual_services version =
|
2017-02-24 20:17:53 +04:00
|
|
|
Protocol_hash.Table.find contextual_services version
|