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
Add Augeas.defnode
[ocaml-augeas.git]
/
test_augeas.ml
diff --git
a/test_augeas.ml
b/test_augeas.ml
index
1be88b7
..
c47db9a
100644
(file)
--- a/
test_augeas.ml
+++ b/
test_augeas.ml
@@
-26,7
+26,12
@@
let () =
(* Print all files recursively. *)
let rec print path =
(* Print all files recursively. *)
let rec print path =
- if path <> "" then print_endline path;
+ if path <> "" then (
+ let value = Augeas.get aug path in
+ match value with
+ | None -> print_endline path
+ | Some value -> Printf.printf "%s -> '%s'\n%!" path value
+ );
let files = List.sort compare (Augeas.matches aug (path ^ "/*")) in
List.iter print files
in
let files = List.sort compare (Augeas.matches aug (path ^ "/*")) in
List.iter print files
in