diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-04-04 13:18:02 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-04-04 13:18:02 -0500 |
| commit | 5cd5a6f5f63bb3cc68af04fe4a98059b43cef658 (patch) | |
| tree | c8d98909adeb7730e5f81c6cfe63924ce3a6ea26 /lib/bindings.ml | |
| parent | 65f10ecb5f6cc3dd7930e00136c4c93565cb240c (diff) | |
| parent | 3a5d6664624d4b7de4b7cec05ecfebdf37550034 (diff) | |
| download | libvyosconfig-5cd5a6f5f63bb3cc68af04fe4a98059b43cef658.tar.gz libvyosconfig-5cd5a6f5f63bb3cc68af04fe4a98059b43cef658.zip | |
Merge pull request #32 from jestabro/commit-post
T7272: T7292: drop test functions and update refs for post commit update of config tree and set tag/leaf data
Diffstat (limited to 'lib/bindings.ml')
| -rw-r--r-- | lib/bindings.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/bindings.ml b/lib/bindings.ml index 0ce05d1..604c05f 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -270,16 +270,6 @@ let mask_tree c_ptr_l c_ptr_r = | CD.Incommensurable -> error_message := "Incommensurable"; Ctypes.null | CD.Empty_comparison -> error_message := "Empty comparison"; Ctypes.null -let show_commit_data c_ptr_a c_ptr_w = - let ct_a = Root.get c_ptr_a in - 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 @@ -316,6 +306,4 @@ struct let () = I.internal "tree_union" ((ptr void) @-> (ptr void) @-> returning (ptr void)) tree_union 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 |