diff options
| author | John Estabrook <jestabro@vyos.io> | 2026-04-12 15:08:49 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2026-05-11 09:03:23 -0500 |
| commit | 136152dc252c5e25b364359cbb5064a5a4a21abf (patch) | |
| tree | 6c5e7b211493eec3aa9795d8e267ad9c790c95f8 | |
| parent | 7cf4d14610a021d13e1a54df05cf1bffc03f714b (diff) | |
| download | vyos-1x-136152dc252c5e25b364359cbb5064a5a4a21abf.tar.gz vyos-1x-136152dc252c5e25b364359cbb5064a5a4a21abf.zip | |
T8488: add binding for mask_exclusive
| -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 5d0478e02..ed354f4b9 100644 --- a/libvyosconfig/lib/bindings.ml +++ b/libvyosconfig/lib/bindings.ml @@ -462,7 +462,7 @@ let reference_tree_to_json internal_cache from_dir to_file = let s = Printf.sprintf "Write_error \'%s\'" msg in error_message := s; 1 -let mask_tree c_ptr_l c_ptr_r = +let mask_tree c_ptr_l c_ptr_r exclusive = (* alert exn CD.mask_tree: [Config_diff.Incommensurable] caught [Config_diff.Empty_comparison] caught @@ -470,7 +470,7 @@ let mask_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.mask_tree[@alert "-exn"]) ct_l ct_r in + let ct_ret = (CD.mask_tree[@alert "-exn"]) ~exclusive:exclusive ct_l ct_r in Ctypes.Root.create ct_ret with | CD.Incommensurable -> error_message := "Incommensurable"; Ctypes.null @@ -539,7 +539,7 @@ struct 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 - let () = I.internal "mask_tree" ((ptr void) @-> (ptr void) @-> returning (ptr void)) mask_tree + let () = I.internal "mask_tree" ((ptr void) @-> (ptr void) @-> bool @-> returning (ptr void)) mask_tree let () = I.internal "validate_tree_filter" ((ptr void) @-> string @-> string @-> returning (ptr void)) validate_tree_filter let () = I.internal "config_dict" ((ptr void) @-> (ptr void) @-> (ptr void) @-> string @-> bool @-> bool @-> returning string) config_dict end |