X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftag.mli;h=7e742c1c147e879ed6a1b8a774087e40f0b067eb;hb=cb728132e1c5cb0a171ee09e9b3ced16da08f796;hp=7a11be0ff0fc1dbe6ad76908bbca268f3d114892;hpb=bca508d0e826bc09f8975ba28720a867a828782f;p=SXSI%2Fxpathcomp.git

diff --git a/src/tag.mli b/src/tag.mli
index 7a11be0..7e742c1 100644
--- a/src/tag.mli
+++ b/src/tag.mli
@@ -1,14 +1,12 @@
 type t = int
-type pool
+
 type operations = {
-  tag : pool -> string -> t;
-  to_string : pool -> t -> string;
-  nullt : pool -> t;
-  translate : pool -> t -> t
+  tag : string -> t;
+  to_string : t -> string;
+  translate : t -> t
 }
 
-val tag : string -> t
-
+external  to_int : t -> int = "%identity"
 val document_node : t
 val attribute : t
 val pcdata : t
@@ -17,14 +15,14 @@ val document_node_close : t
 val attribute_close : t
 val pcdata_close : t
 val attribute_data_close : t
+val nullt : t
+val dummy : t
 
 
-val init : pool -> (* operations -> *) unit
-val to_string : t -> string
 val compare : t -> t -> int
 val equal : t -> t -> bool
-val nullt : t
-val dummy : t
+
+
 val dump : Format.formatter -> t -> unit
 val check : t -> unit (* Check internal invariants *)
 
@@ -32,4 +30,10 @@ val check : t -> unit (* Check internal invariants *)
 val hash : t -> int
 val print : Format.formatter -> t -> unit
 
-val dump_tags : unit -> unit
+val init : operations -> unit
+
+val tag : string -> t
+val to_string : t -> string
+val translate : t -> t
+
+