diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-02-17 14:38:41 -0600 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-03-18 10:23:23 -0500 |
| commit | 91853bf4daf0a9fedc2f0f13516ef94db54fb244 (patch) | |
| tree | ea4d9b33f23958be64faabbbff762135a461b1ee /lib | |
| parent | e3ae891db98471b61fb6a6a56e5c6c2c494314cb (diff) | |
| download | libvyosconfig-91853bf4daf0a9fedc2f0f13516ef94db54fb244.tar.gz libvyosconfig-91853bf4daf0a9fedc2f0f13516ef94db54fb244.zip | |
T7121: add binding for test_commit
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/bindings.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/bindings.ml b/lib/bindings.ml index 49f4657..0ce05d1 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -3,10 +3,12 @@ open Foreign open Vyos1x open Vyconfd_config +open Commitd_client module CT = Config_tree module CD = Config_diff module CM = Commit +module VC = Vycall_client module I = Internal.Make(Config_tree) @@ -273,6 +275,11 @@ let show_commit_data c_ptr_a c_ptr_w = let ct_w = Root.get c_ptr_w in CM.show_commit_data ct_a ct_w +let test_commit c_ptr_a c_ptr_w = + let ct_a = Root.get c_ptr_a in + let ct_w = Root.get c_ptr_w in + VC.test_commit ct_a ct_w + module Stubs(I : Cstubs_inverted.INTERNAL) = struct @@ -310,4 +317,5 @@ struct let () = I.internal "reference_tree_to_json" (string @-> string @-> string @-> returning int) reference_tree_to_json let () = I.internal "mask_tree" ((ptr void) @-> (ptr void) @-> returning (ptr void)) mask_tree let () = I.internal "show_commit_data" ((ptr void) @-> (ptr void) @-> returning string) show_commit_data + let () = I.internal "test_commit" ((ptr void) @-> (ptr void) @-> returning void) test_commit end |