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
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 *)
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
+
+