src/tag.mli

   1 type t = int
   2 type pool
   3 type operations = {
   4   tag : pool -> string -> t;
   5   to_string : pool -> t -> string;
   6   nullt : pool -> t;
   7   translate : pool -> t -> t
   8 }
   9
  10 val tag : string -> t
  11
  12 val document_node : t
  13 val attribute : t
  14 val pcdata : t
  15 val attribute_data : t
  16 val document_node_close : t
  17 val attribute_close : t
  18 val pcdata_close : t
  19 val attribute_data_close : t
  20
  21
  22 val init : pool -> (* operations -> *) unit
  23 val to_string : t -> string
  24 val compare : t -> t -> int
  25 val equal : t -> t -> bool
  26 val nullt : t
  27 val dummy : t
  28 val dump : Format.formatter -> t -> unit
  29 val check : t -> unit (* Check internal invariants *)
  30
  31 (* Data structures *)
  32 val hash : t -> int
  33 val print : Format.formatter -> t -> unit
  34
  35 val dump_tags : unit -> unit