Raise Out_of_memory when Augeas fails with AUG_ENOMEM

[ocaml-augeas.git] / augeas.ml

diff --git a/augeas.ml b/augeas.ml
index b7e1c58..f556df0 100644 (file)
--- a/augeas.ml
+++ b/augeas.ml
@@ -26,6 +26,9 @@ type flag =
   | AugSaveBackup
   | AugSaveNewFile
   | AugTypeCheck
+  | AugNoStdinc
+  | AugSaveNoop
+  | AugNoLoad
 
 type path = string
 
@@ -45,8 +48,12 @@ external rm : t -> path -> int
   = "ocaml_augeas_rm"
 external matches : t -> path -> path list
   = "ocaml_augeas_match"
+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 "")