projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Commentaries
[tatoo.git]
/
src
/
tree.mli
diff --git
a/src/tree.mli
b/src/tree.mli
index
1d5d77b
..
c75fd26
100644
(file)
--- a/
src/tree.mli
+++ b/
src/tree.mli
@@
-61,6
+61,9
@@
val parent : t -> node -> node
Returns [nil] if [n == nil].
*)
Returns [nil] if [n == nil].
*)
+val is_leaf : t -> node -> bool
+(** Return true if the node is a *)
+
val tag : t -> node -> QName.t
(** Returns the label of a given node *)
val tag : t -> node -> QName.t
(** Returns the label of a given node *)
@@
-74,3
+77,7
@@
val preorder : t -> node -> int
(** Returns the position of a node in pre-order in the tree. The
root has preorder 0. [nil] has pre-order [-1].
*)
(** Returns the position of a node in pre-order in the tree. The
root has preorder 0. [nil] has pre-order [-1].
*)
+
+val print_xml_preorder : out_channel -> t -> node -> unit
+(** Outputs the tree with IDs for nodes as an XML document on the
+ given output_channel *)