X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=augeas.ml;h=63379a2a200eba1e5f634534d7e7b3406ede92fb;hb=3ad8256f8c4340156860373043bb28babe005049;hp=974a9400651dcfc1dfbafef6a8b0b98c30d2c145;hpb=a467e365dc114868f948b8b5b18e551b42d64ddd;p=ocaml-augeas.git

diff --git a/augeas.ml b/augeas.ml
index 974a940..63379a2 100644
--- 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
@@ -54,6 +62,10 @@ external create : string -> string option -> flag list -> t
   = "ocaml_augeas_create"
 external close : t -> unit
   = "ocaml_augeas_close"
+external defnode : t -> string -> string -> string option -> int * bool
+  = "ocaml_augeas_defnode"
+external defvar : t -> string -> string option -> int option
+  = "ocaml_augeas_defvar"
 external get : t -> path -> value option
   = "ocaml_augeas_get"
 external exists : t -> path -> bool
@@ -70,8 +82,16 @@ external save : t -> unit
   = "ocaml_augeas_save"
 external load : t -> unit
   = "ocaml_augeas_load"
+external mv : t -> path -> path -> unit
+  = "ocaml_augeas_mv"
 external set : t -> path -> value option -> unit
   = "ocaml_augeas_set"
+external setm : t -> path -> string option -> value option -> int
+  = "ocaml_augeas_setm"
+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, "", "", ""))