Put the node_kind type into a NodeKind module in the Common module.

[tatoo.git] / src / tree / sig.ml

diff --git a/src/tree/sig.ml b/src/tree/sig.ml
index f9bd0b7..aba5917 100644 (file)
--- a/src/tree/sig.ml
+++ b/src/tree/sig.ml
@@ -14,10 +14,11 @@
 (***********************************************************************)
 
 (*
 (***********************************************************************)
 
 (*

-  Time-stamp: <Last modified on 2013-03-05 15:12:47 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-11 00:12:27 CET by Kim Nguyen>

 *)
 
 (** Implementation of documents as binary trees *)
 *)
 
 (** Implementation of documents as binary trees *)

+

 module type S =
 sig
   type node
 module type S =
 sig
   type node


@@ -45,7 +46,6 @@ sig
   val print_xml : out_channel -> t -> node -> unit
   (** Outputs the tree as an XML document on the given output_channel *)
 
   val print_xml : out_channel -> t -> node -> unit
   (** Outputs the tree as an XML document on the given output_channel *)
 

-

   val root : t -> node
   (** Returns the root of the tree *)
 
   val root : t -> node
   (** Returns the root of the tree *)
 


@@ -75,6 +75,9 @@ sig
       QName.text, QName.cdata_section or QName.comment
   *)
 
       QName.text, QName.cdata_section or QName.comment
   *)
 

+  val kind : t -> node -> Common.NodeKind.t
+  (** Returns the kind of the given node *)
+

   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].
   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].