diff options
author | John Estabrook <jestabro@vyos.io> | 2022-02-08 21:10:56 -0600 |
---|---|---|
committer | John Estabrook <jestabro@vyos.io> | 2022-04-20 18:09:28 -0500 |
commit | b785b6302a199b7e03609b95279d2bf428b8338d (patch) | |
tree | fc7c02277759b0b66ff4657ee43981c64329ba34 | |
parent | 6fcc55b8b51bdcfaf2e75b254a4a7c9b6b4cb04d (diff) | |
download | libvyosconfig-b785b6302a199b7e03609b95279d2bf428b8338d.tar.gz libvyosconfig-b785b6302a199b7e03609b95279d2bf428b8338d.zip |
configtree: T4235: allow rendering delete commands
(cherry picked from commit eb2ec50dea6fa47326cbbe65b47c31a3a86836ba)
-rw-r--r-- | lib/bindings.ml | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/bindings.ml b/lib/bindings.ml index 40ef120..484a5d7 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -46,8 +46,12 @@ let render_json c_ptr = let render_json_ast c_ptr = CT.render_json_ast (Root.get c_ptr) -let render_commands c_ptr = - CT.render_commands (Root.get c_ptr) [] +let render_commands c_ptr op = + match op with + | "delete" -> + CT.render_commands ~op:CT.Delete (Root.get c_ptr) [] + | _ -> + CT.render_commands ~op:CT.Set (Root.get c_ptr) [] let set_add_value c_ptr path value = let ct = Root.get c_ptr in @@ -180,7 +184,7 @@ struct let () = I.internal "to_string" ((ptr void) @-> returning string) render_config let () = I.internal "to_json" ((ptr void) @-> returning string) render_json let () = I.internal "to_json_ast" ((ptr void) @-> returning string) render_json_ast - let () = I.internal "to_commands" ((ptr void) @-> returning string) render_commands + let () = I.internal "to_commands" ((ptr void) @-> string @-> returning string) render_commands let () = I.internal "set_add_value" ((ptr void) @-> string @-> string @-> returning int) set_add_value let () = I.internal "set_replace_value" ((ptr void) @-> string @-> string @-> returning int) set_replace_value let () = I.internal "set_valueless" ((ptr void) @-> string @-> returning int) set_valueless |