diff options
| author | John Estabrook <jestabro@vyos.io> | 2023-03-20 11:07:40 -0500 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2023-03-20 11:12:00 -0500 |
| commit | d2f1a6514300bd946acc8ea89f23b15dc06c8bc0 (patch) | |
| tree | 760ce8e1a91ec67ae5fb8bba2d0397830f5c2767 | |
| parent | 4c1583cd1343c4d0ba6ceae7f9a8c7637ec37790 (diff) | |
| download | libvyosconfig-d2f1a6514300bd946acc8ea89f23b15dc06c8bc0.tar.gz libvyosconfig-d2f1a6514300bd946acc8ea89f23b15dc06c8bc0.zip | |
T5089: add support for optional arg 'ordered_values' (ord_val)
| -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 1f7ef15..37be3a2 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -37,8 +37,8 @@ let from_string s = let get_error () = !error_message -let render_config c_ptr = - CT.render_config (Root.get c_ptr) +let render_config c_ptr ord_val = + CT.render_config ~ord_val:ord_val (Root.get c_ptr) let render_json c_ptr = CT.render_json (Root.get c_ptr) @@ -217,7 +217,7 @@ struct let () = I.internal "destroy" ((ptr void) @-> returning void) destroy let () = I.internal "from_string" (string @-> returning (ptr void)) from_string let () = I.internal "get_error" (void @-> returning string) get_error - let () = I.internal "to_string" ((ptr void) @-> returning string) render_config + let () = I.internal "to_string" ((ptr void) @-> bool @-> 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) @-> string @-> returning string) render_commands |