Up  

Module Xmlerr

module Xmlerr: sig .. end

xmlerr, parsing xml with errors

type attr = string * string 
type t =
| Tag of string * attr list (*

opening tag

*)
| ETag of string (*

closing tag

*)
| Data of string (*

PCData

*)
| Comm of string (*

Comments

*) 
type src = {
   len : unit -> int;
   get_char : int -> char;
   sub : int -> int -> string;
} 
val string_input : string -> src
val ic_input : Stdlib.in_channel -> src
val parse : src -> t list
val parse_rev : src -> t list
val parse_f : 'a -> (t -> 'a -> 'a) -> src -> 'a
val parse_string : string -> t list
val parse_file : filename:string -> t list
val strip_space : t list -> t list

remove space from beginning and ending of PCData

val x_lowercase : t list -> t list

translate tag names and attr names to lowercase

val print_html : t list -> unit
val print_code : t list -> unit