parser.mli

   1 exception Parse_error of string * string * int
   2 val parse_error : string -> string -> int -> 'a
   3 val enent : string -> int -> int -> string
   4 val unent : Buffer.t -> string -> int -> int -> unit
   5 val subs : string -> int -> string
   6 val ts :
   7   [< `close | `comment | `doctype | `exclam | `lt | `question | `tag | `text
   8   ] -> string
   9 type attr = string * string
  10 and attrs = attr list
  11 and vp =
  12     Vdata
  13   | Vcdata
  14   | Vopen of string * attrs * bool
  15   | Vclose of string
  16   | Vend
  17 and 'a v = { f : 'a v -> vp -> int -> int -> 'a v; accu : 'a; }
  18 val parse : 'a v -> string -> 'a