diff options
| author | John Estabrook <jestabro@vyos.io> | 2025-01-31 15:47:55 -0600 |
|---|---|---|
| committer | John Estabrook <jestabro@vyos.io> | 2025-03-18 10:23:23 -0500 |
| commit | 4809941c24d363c9ab44348ec1060559cf58ce24 (patch) | |
| tree | 4bb550331c55dd9ab269a9bc227ed6c79ef30e17 | |
| parent | 1b4173b8371d1f15ac91f615af1e70e2a4cde898 (diff) | |
| download | libvyosconfig-4809941c24d363c9ab44348ec1060559cf58ce24.tar.gz libvyosconfig-4809941c24d363c9ab44348ec1060559cf58ce24.zip | |
T6946: binding for show_commit_data
| -rw-r--r-- | Makefile | 2 | ||||
| -rw-r--r-- | lib/bindings.ml | 8 |
2 files changed, 9 insertions, 1 deletions
@@ -2,7 +2,7 @@ BUILDDIR=_build VPATH=$(BUILDDIR) OCAMLDIR=$(shell ocamlopt -where) $(shell mkdir -p $(BUILDDIR) $(BUILDDIR)/stub $(BUILDDIR)/lib $(BUILDDIR)/stub_generator $(BUILDDIR)/test $(BUILDDIR)/generated) -PACKAGES=vyos1x-config,re,ctypes.stubs,ctypes.foreign +PACKAGES=vyos1x-config,vyconf.vyconfd-config,re,ctypes.stubs,ctypes.foreign GENERATOR_FILES=$(BUILDDIR)/lib/bindings.cmx \ $(BUILDDIR)/stub_generator/generate.cmx diff --git a/lib/bindings.ml b/lib/bindings.ml index 052495d..09fe5f4 100644 --- a/lib/bindings.ml +++ b/lib/bindings.ml @@ -2,9 +2,11 @@ open Ctypes open Foreign open Vyos1x +open Vyconfd_config module CT = Config_tree module CD = Config_diff +module CM = Commit let error_message = ref "" @@ -245,6 +247,11 @@ let mask_tree c_ptr_l c_ptr_r = | CD.Incommensurable -> error_message := "Incommensurable"; Ctypes.null | CD.Empty_comparison -> error_message := "Empty comparison"; Ctypes.null +let show_commit_data c_ptr_a c_ptr_w = + let ct_a = Root.get c_ptr_a in + let ct_w = Root.get c_ptr_w in + CM.show_commit_data ct_a ct_w + module Stubs(I : Cstubs_inverted.INTERNAL) = struct @@ -278,4 +285,5 @@ struct let () = I.internal "tree_union" ((ptr void) @-> (ptr void) @-> returning (ptr void)) tree_union 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 "show_commit_data" ((ptr void) @-> (ptr void) @-> returning string) show_commit_data end |