git.annexia.org
/
ocaml-augeas.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
| AugSaveBackup
| AugSaveNewFile
| AugTypeCheck
+ | AugNoStdinc
+ | AugSaveNoop
+ | AugNoLoad
type path = string
type path = string
@@
-45,8
+48,12
@@
external rm : t -> path -> int
= "ocaml_augeas_rm"
external matches : t -> path -> path list
= "ocaml_augeas_match"
= "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 save : t -> unit
= "ocaml_augeas_save"
+external load : t -> unit
+ = "ocaml_augeas_load"
let () =
Callback.register_exception "Augeas.Error" (Error "")
let () =
Callback.register_exception "Augeas.Error" (Error "")