src/tag.mli

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