Module XML_print


module XML_print: sig .. end
Printer for XML.

val encode_unsafe_char : string -> string
The encoder maps strings to HTML and must encode the unsafe characters '<', '>', '"', '&' and the control characters 0-8, 11-12, 14-31, 127 to HTML entities. encode_unsafe is the default for ?encode in output and pretty_print below. Other implementations are provided by the module Netencoding in the OcamlNet library, e.g.: let encode = Netencoding.Html.encode ~in_enc:`Enc_iso88591 ~out_enc:`Enc_usascii (), Where national characters are replaced by HTML entities. The user is of course free to write her own implementation.
See also OcamlNet
val encode_unsafe_char_and_at : string -> string
In addition, encode "@" as "&#64;" in the hope that this will fool simple minded email address harvesters.
val compose_decl : ?version:string -> ?encoding:string -> unit -> string
encoding is the name of the character encoding, e.g. "US-ASCII" or "UTF-8"
val compose_doctype : string -> string list -> string
module Make: 
functor (XML : XML_sigs.Iterable) ->
functor (I : sig
val emptytags : string list
end) ->
functor (O : XML_sigs.Output) -> XML_sigs.Printer with type out := O.out and type xml_elt := XML.elt
module MakeTyped: 
functor (XML : XML_sigs.Iterable) ->
functor (TypedXML : XML_sigs.TypedXML with module XML := XML) ->
functor (O : XML_sigs.Output) -> XML_sigs.TypedPrinter with type out := O.out and type 'a elt := 'a TypedXML.elt and type doc := TypedXML.doc
module MakeSimple: 
functor (XML : XML_sigs.Iterable) ->
functor (F : sig
val emptytags : string list
end) -> XML_sigs.SimplePrinter with type xml_elt := XML.elt
module MakeTypedSimple: 
functor (XML : XML_sigs.Iterable) ->
functor (TypedXML : XML_sigs.TypedXML with module XML := XML) -> XML_sigs.TypedSimplePrinter with type 'a elt := 'a TypedXML.elt and type doc := TypedXML.doc