diff options
| author | John Estabrook <jestabro@vyos.io> | 2024-10-07 10:56:57 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-10-07 10:56:57 -0500 |
| commit | 9e4f6c1494fcff64ad22503b704dbdd43347b0a6 (patch) | |
| tree | a32af9b9337da51f81828550c8bddc5754111dba /lib | |
| parent | f6c7e99c68fa501a50fc0efc06d201ea7792e4b3 (diff) | |
| parent | fc911b083cddbd69a0e517619f607b815c70303c (diff) | |
| download | libvyosconfig-9e4f6c1494fcff64ad22503b704dbdd43347b0a6.tar.gz libvyosconfig-9e4f6c1494fcff64ad22503b704dbdd43347b0a6.zip | |
Merge pull request #20 from natali-rs1985/T4318
T4318: Allow pass value for set_tag function
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/bindings.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/bindings.ml b/lib/bindings.ml index 28cc525..02f606a 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -114,11 +114,11 @@ let rename_node c_ptr path newname = Root.set c_ptr new_ct; 0 (* return 0 *) -let set_tag c_ptr path = +let set_tag c_ptr path value = let ct = Root.get c_ptr in let path = split_on_whitespace path in try - Root.set c_ptr (CT.set_tag ct path true); + Root.set c_ptr (CT.set_tag ct path value); 0 (* return 0 *) with _ -> 1 @@ -264,7 +264,7 @@ struct let () = I.internal "delete_node" ((ptr void) @-> string @-> returning int) delete_node let () = I.internal "rename_node" ((ptr void) @-> string @-> string @-> returning int) rename_node let () = I.internal "copy_node" ((ptr void) @-> string @-> string @-> returning int) copy_node - let () = I.internal "set_tag" ((ptr void) @-> string @-> returning int) set_tag + let () = I.internal "set_tag" ((ptr void) @-> string @-> bool @-> returning int) set_tag let () = I.internal "is_tag" ((ptr void) @-> string @-> returning int) is_tag let () = I.internal "set_leaf" ((ptr void) @-> string @-> bool @-> returning int) set_leaf let () = I.internal "is_leaf" ((ptr void) @-> string @-> returning bool) is_leaf |