Utf8 normalizer and encoder for HTML.
Given a module Htmlprinter produced by one of the functors in Xml_print, this modules is used as following:
let encode x = fst (Utf8.normalize_html x) in
Htmlprinter.print ~encode documentnormalize str take a possibly invalid utf-8 string and return a valid utf-8 string where invalid bytes have been replaced by the replacement character U+FFFD. The returned boolean is true if invalid bytes were found
val normalize : string -> utf8 * boolnormalize str take a possibly invalid utf-8 string and return a valid utf-8 string where invalid bytes have been replaced by the replacement character U+FFFD. The returned boolean is true if invalid bytes were found
val normalize_html : string -> utf8 * boolSame as normalize plus some extra work : It encode '<' , '>' , '"' , '&' characters with corresponding entities and replaced invalid html character by U+FFFD