summaryrefslogtreecommitdiff
path: root/src/startup.ml
diff options
context:
space:
mode:
authorJohn Estabrook <jestabro@vyos.io>2024-10-23 18:50:46 -0500
committerJohn Estabrook <jestabro@vyos.io>2024-10-27 21:17:35 -0500
commit085b22f7be84944a27e565be4227dc55720bec47 (patch)
tree7ff755934372cfc860408663848a752febff7d5a /src/startup.ml
parent60cc099df46e1cbcb7b37be3fe455978f800887f (diff)
downloadvyconf-085b22f7be84944a27e565be4227dc55720bec47.tar.gz
vyconf-085b22f7be84944a27e565be4227dc55720bec47.zip
T6718: read reference tree json file on startup
Diffstat (limited to 'src/startup.ml')
-rw-r--r--src/startup.ml7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/startup.ml b/src/startup.ml
index b3a967e..7418a81 100644
--- a/src/startup.ml
+++ b/src/startup.ml
@@ -124,3 +124,10 @@ let load_interface_definitions dir =
| Error msg -> Error msg end
with Bad_interface_definition msg -> Error msg
+module I = Vyos1x.Internal.Make(Vyos1x.Reference_tree)
+
+let read_reference_tree file =
+ try
+ let reftree = I.read_internal file in
+ Ok reftree
+ with Sys_error msg -> Error msg