(* Distributed under the terms of the LGPL (see LICENCE) *)
(******************************************************************************)
type t
+type pool
+
val attribute : t
val pcdata : t
val tag : string -> t
-val init : string array -> unit
-val clear_pool : unit -> unit
+val init : pool -> unit
val compare : t -> t -> int
val equal : t -> t -> bool
val print : Format.formatter -> t -> unit