Implement Augeas.load API.

diff --git a/augeas-c.c b/augeas-c.c
index 3f5431b..c06bf92 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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. *)