summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/commit.ml12
-rw-r--r--src/commit.mli4
2 files changed, 16 insertions, 0 deletions
diff --git a/src/commit.ml b/src/commit.ml
index 4b9edd1..c8cb43e 100644
--- a/src/commit.ml
+++ b/src/commit.ml
@@ -155,6 +155,18 @@ let calculate_priority_lists rt at wt =
let cs_del, cs_add = legacy_order del_tree cs_del' cs_add' in
List.rev (CS.elements cs_del), CS.elements cs_add
+let commit_store c_data =
+ let out =
+ let func acc nd =
+ match nd.reply with
+ | None -> acc ^ "\n"
+ | Some r ->
+ match r.success with
+ | true -> acc ^ "\n"
+ | false -> acc ^ "\n" ^ r.out
+ in List.fold_left func "" c_data.node_list
+ in print_endline out
+
let show_commit_data at wt =
let vc =
Startup.load_daemon_config Defaults.defaults.config_file in
diff --git a/src/commit.mli b/src/commit.mli
index d1c9c69..e765f48 100644
--- a/src/commit.mli
+++ b/src/commit.mli
@@ -27,4 +27,8 @@ val default_node_data : node_data
val default_commit_data : commit_data
+val calculate_priority_lists : Vyos1x.Reference_tree.t -> Vyos1x.Config_tree.t -> Vyos1x.Config_tree.t -> node_data list * node_data list
+
+val commit_store : commit_data -> unit
+
val show_commit_data : Vyos1x.Config_tree.t -> Vyos1x.Config_tree.t -> string