diff options
| author | John Estabrook <jestabro@vyos.io> | 2023-07-13 09:57:17 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2023-07-13 09:57:17 -0500 |
| commit | 6ee292541161cfbd4d4fe4a08ba6a44c81aa6d8f (patch) | |
| tree | 8af00a24721a1a580a865133a065d1bf742cb433 | |
| parent | ddfa989d9d7fab9abb5fb59c927e31d8f00967e5 (diff) | |
| download | libvyosconfig-6ee292541161cfbd4d4fe4a08ba6a44c81aa6d8f.tar.gz libvyosconfig-6ee292541161cfbd4d4fe4a08ba6a44c81aa6d8f.zip | |
T5316: drop trim function
| -rw-r--r-- | lib/bindings.ml | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lib/bindings.ml b/lib/bindings.ml index 6ab7aeb..4547a36 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -183,16 +183,6 @@ let diff_tree path c_ptr_l c_ptr_r = | CD.Incommensurable -> error_message := "Incommensurable"; Ctypes.null | CD.Empty_comparison -> error_message := "Empty comparison"; Ctypes.null -let trim_tree c_ptr_l c_ptr_r = - let ct_l = Root.get c_ptr_l in - let ct_r = Root.get c_ptr_r in - try - let ct_ret = CD.trim_tree ct_l ct_r in - Ctypes.Root.create ct_ret - with - | CD.Incommensurable -> error_message := "Incommensurable"; Ctypes.null - | CD.Empty_comparison -> error_message := "Empty comparison"; Ctypes.null - let show_diff cmds path c_ptr_l c_ptr_r = let path = split_on_whitespace path in let ct_l = Root.get c_ptr_l in @@ -249,7 +239,6 @@ struct let () = I.internal "return_value" ((ptr void) @-> string @-> returning string) return_value let () = I.internal "return_values" ((ptr void) @-> string @-> returning string) return_values let () = I.internal "diff_tree" (string @-> (ptr void) @-> (ptr void) @-> returning (ptr void)) diff_tree - let () = I.internal "trim_tree" ((ptr void) @-> (ptr void) @-> returning (ptr void)) trim_tree let () = I.internal "show_diff" (bool @-> string @-> (ptr void) @-> (ptr void) @-> returning string) show_diff let () = I.internal "tree_union" ((ptr void) @-> (ptr void) @-> returning (ptr void)) tree_union let () = I.internal "reference_tree_to_json" (string @-> string @-> returning int) reference_tree_to_json |