X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=tag.mli;fp=tag.mli;h=46efbcfd5c4f5440d7afc3b7a4c25f264de68b5a;hb=d64e3a3a9ef6329caafdba848ef78427fce0d689;hp=c7a15cbd51f6466c4b4c7929343a9a7ad67faa5a;hpb=c74aa5a224a41d3ab9d1a7ae4ebb4e58083a578c;p=SXSI%2Fxpathcomp.git

diff --git a/tag.mli b/tag.mli
index c7a15cb..46efbcf 100644
--- a/tag.mli
+++ b/tag.mli
@@ -1,17 +1,17 @@
-(******************************************************************************)
-(*  SXSI : XPath evaluator                                                    *)
-(*  Kim Nguyen (Kim.Nguyen@nicta.com.au)                                      *)
-(*  Copyright NICTA 2008                                                      *)
-(*  Distributed under the terms of the LGPL (see LICENCE)                     *)
-(******************************************************************************)
-type t
-type pool
-
-val attribute : t
-val pcdata : t
+type t = int
+type pool 
 val tag : string -> t
+val pcdata : t
+val attribute : t
 val init : pool -> unit
+val to_string : t -> string
 val compare : t -> t -> int
 val equal : t -> t -> bool
+
+val dump : Format.formatter -> t -> unit
+val check : t -> unit (* Check internal invariants *)
+  
+(* Data structures *)
+val hash : t -> int
 val print : Format.formatter -> t -> unit
-val to_string : t -> string
+