Improve error reporting on init

[ocaml-augeas.git] / augeas.ml

diff --git a/augeas.ml b/augeas.ml
index 974a940..7601200 100644 (file)
--- a/augeas.ml
+++ b/augeas.ml
@@ -27,6 +27,10 @@ type flag =
   | AugNoStdinc
   | AugSaveNoop
   | AugNoLoad
+  | AugNoModlAutoload
+  | AugEnableSpan
+  | AugNoErrClose
+  | AugTraceModuleLoading
 
 type error_code =
   | AugErrInternal
@@ -44,6 +48,10 @@ type error_code =
   | AugErrCpDesc
   | AugErrUnknown of int
 
+type transform_mode =
+  | Include
+  | Exclude
+
 exception Error of error_code * string * string * string
 
 type path = string
@@ -72,6 +80,10 @@ external load : t -> unit
   = "ocaml_augeas_load"
 external set : t -> path -> value option -> unit
   = "ocaml_augeas_set"
+external transform : t -> string -> string -> transform_mode -> unit
+  = "ocaml_augeas_transform"
+external source : t -> path -> path option
+  = "ocaml_augeas_source"
 
 let () =
   Callback.register_exception "Augeas.Error" (Error (AugErrInternal, "", "", ""))