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 "@"
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
val string_of_number : float -> string
Convert a float to a string using a compact representation compatible with Javascript norme.
module Make (
Xml
:
Xml_sigs.Iterable
)
(
I
:
sig
val emptytags : string list
end
)
(
O
:
Xml_sigs.Output
)
: Xml_sigs.Printer
with type out := O.out and type xml_elt := Xml.elt
module Make_typed (
Xml
:
Xml_sigs.Iterable
)
(
Typed_xml
:
Xml_sigs.Typed_xml
with module Xml := Xml
)
(
O
:
Xml_sigs.Output
)
: Xml_sigs.Typed_printer
with type out := O.out
and type 'a elt := 'a Typed_xml.elt
and type doc := Typed_xml.doc
module Make_simple (
Xml
:
Xml_sigs.Iterable
)
(
F
:
sig
val emptytags : string list
end
)
: Xml_sigs.Simple_printer
with type xml_elt := Xml.elt
module Make_typed_simple (
Xml
:
Xml_sigs.Iterable
)
(
Typed_xml
:
Xml_sigs.Typed_xml
with module Xml := Xml
)
: Xml_sigs.Typed_simple_printer
with type 'a elt := 'a Typed_xml.elt
and type doc := Typed_xml.doc