From a4cbf694160b74a70735db65adb712d40b417079 Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Sun, 16 Mar 2025 22:13:10 -0500 Subject: T7121: add commit_store stub callback and expose needed functions --- src/commit.ml | 12 ++++++++++++ src/commit.mli | 4 ++++ 2 files changed, 16 insertions(+) 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 -- cgit v1.2.3