From 3c2a975fdd1314729c6d7b591344ef1ac80c65a8 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Tue, 6 Jun 2017 15:14:46 +0100 Subject: [PATCH] Implement Augeas.load API. --- augeas-c.c | 13 +++++++++++++ augeas.ml | 2 ++ augeas.mli | 3 +++ 3 files changed, 18 insertions(+) diff --git a/augeas-c.c b/augeas-c.c index 3f5431b..c06bf92 100644 --- a/augeas-c.c +++ b/augeas-c.c @@ -273,3 +273,16 @@ ocaml_augeas_save (value tv) CAMLreturn (Val_unit); } + +/* val load : t -> unit */ +CAMLprim value +ocaml_augeas_load (value tv) +{ + CAMLparam1 (tv); + augeas_t t = Augeas_t_val (tv); + + if (aug_load (t) == -1) + raise_error ("Augeas.load"); + + CAMLreturn (Val_unit); +} diff --git a/augeas.ml b/augeas.ml index fa6c680..f556df0 100644 --- a/augeas.ml +++ b/augeas.ml @@ -52,6 +52,8 @@ external count_matches : t -> path -> int = "ocaml_augeas_count_matches" external save : t -> unit = "ocaml_augeas_save" +external load : t -> unit + = "ocaml_augeas_load" let () = Callback.register_exception "Augeas.Error" (Error "") diff --git a/augeas.mli b/augeas.mli index bada127..64e8240 100644 --- a/augeas.mli +++ b/augeas.mli @@ -90,3 +90,6 @@ val count_matches : t -> path -> int val save : t -> unit (** [save t] saves all pending changes to disk. *) + +val load : t -> unit + (** [load t] loads files into the tree. *) -- 1.8.3.1