diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-11-03 11:51:13 -0600 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-11-20 07:55:25 -0600 |
| commit | f26f737f0c58f7f0b5f5299d9f89f45a0143aef6 (patch) | |
| tree | a8136c865c078f7fb76299a2fdbee67e85304ada /libvyosconfig/lib | |
| parent | b02565cb1ad928926d411fbaa48290c9f347154c (diff) | |
| download | vyos-1x-f26f737f0c58f7f0b5f5299d9f89f45a0143aef6.tar.gz vyos-1x-f26f737f0c58f7f0b5f5299d9f89f45a0143aef6.zip | |
T7988: adjust function name to distinguish compare from show config
Diffstat (limited to 'libvyosconfig/lib')
| -rw-r--r-- | libvyosconfig/lib/bindings.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libvyosconfig/lib/bindings.ml b/libvyosconfig/lib/bindings.ml index 78ce3deab..3510a9016 100644 --- a/libvyosconfig/lib/bindings.ml +++ b/libvyosconfig/lib/bindings.ml @@ -378,7 +378,7 @@ 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 show_diff cmds path c_ptr_l c_ptr_r = +let diff_compare cmds path c_ptr_l c_ptr_r = (* alert exn CD.show_diff: [Config_diff.Incommensurable] caught [Config_diff.Empty_comparison] caught @@ -387,7 +387,7 @@ let show_diff cmds path 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 - (CD.show_diff[@alert "-exn"]) ~cmds:cmds path ct_l ct_r + (CD.diff_compare[@alert "-exn"]) ~cmds:cmds path ct_l ct_r with | CD.Incommensurable -> error_message := "Incommensurable"; "#1@" | CD.Empty_comparison -> error_message := "Empty comparison"; "#1@" @@ -499,7 +499,7 @@ 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 "show_diff" (bool @-> string @-> (ptr void) @-> (ptr void) @-> returning string) show_diff + let () = I.internal "diff_compare" (bool @-> string @-> (ptr void) @-> (ptr void) @-> returning string) diff_compare let () = I.internal "tree_union" ((ptr void) @-> (ptr void) @-> returning (ptr void)) tree_union let () = I.internal "tree_merge" (bool @-> (ptr void) @-> (ptr void) @-> returning (ptr void)) tree_merge let () = I.internal "reference_tree_to_json" (string @-> string @-> string @-> returning int) reference_tree_to_json |