mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 17:24:34 +00:00
3cba42d5cc
Estimated hours taken: 5 Branches: main Use the new stream typeclass in the term_to_xml standard library module. In the process remove some clutter from the interface by marking as obsolete the predicates that do not take a stream argument and remove the "_to_stream" suffix from those predicates that do take a stream argument. library/term_to_xml.m: Use the stream.writer/3 typeclass where appropriate. Make all XML writer predicates require a stream argument and remove the "_to_stream" suffix from these predicates. Move all deprecated predicates to the end of the interface and pragma obsolete them. Reword some comments. Remove the behaviour of replacing "]]>" with "]]>" in CDATA elements, since that behaviour is a bit misleading, because ">" has no special meaning in CDATA. Instead just document that "]]>" is not allowed in CDATA elements. browser/browse.m: tests/hard_coded/write_xml.m: tests/hard_coded/xmlable_test.m: Conform to the above changes.
76 lines
1.6 KiB
Mathematica
76 lines
1.6 KiB
Mathematica
:- module xmlable_test.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module term_to_xml, map, pair, svmap, list, string.
|
|
|
|
main(!IO) :-
|
|
map.init(Map),
|
|
some [!Map] (
|
|
!:Map = Map,
|
|
svmap.set(1, "one", !Map),
|
|
svmap.set(2, "two", !Map),
|
|
svmap.set(3, "three", !Map),
|
|
svmap.set(4, "four", !Map),
|
|
svmap.set(5, "five", !Map),
|
|
svmap.set(6, "six &<>!@$%^`&*()-+='", !Map),
|
|
write_xml_doc_style_dtd(io.stdout_stream, !.Map, no_stylesheet,
|
|
external_dtd(
|
|
public_system("-//W3C//DTD XHTML 1.0 Strict//EN",
|
|
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd")),
|
|
!IO),
|
|
io.nl(!IO),
|
|
write_xml_doc(io.stdout_stream, !.Map, !IO),
|
|
io.nl(!IO),
|
|
write_xml_element(io.stdout_stream, 2, !.Map, !IO)
|
|
),
|
|
nl(!IO).
|
|
|
|
:- instance xmlable(map(K, V)) where [
|
|
func(to_xml/1) is map_to_xhtml
|
|
].
|
|
|
|
:- func map_to_xhtml(map(K, V)::in) = (xml::out(xml_doc)) is det.
|
|
|
|
map_to_xhtml(Map) = Doc :-
|
|
map.to_assoc_list(Map, AssocList),
|
|
Rows = list.map(make_table_row, AssocList),
|
|
Doc = elem("html", [], [
|
|
elem("head", [], [
|
|
elem("title", [], [
|
|
data("Testing <123>")
|
|
])
|
|
]),
|
|
comment("Hi -- Mom!"),
|
|
elem("body", [], [
|
|
elem("table",
|
|
[
|
|
attr("border", "1"),
|
|
attr("cellspacing", "0"),
|
|
attr("cellpadding", "5")
|
|
],
|
|
Rows),
|
|
raw("<hr />"),
|
|
entity("nbsp"),
|
|
comment("inline comment"),
|
|
elem("script",
|
|
[attr("type", "text/javascript")],
|
|
[cdata("document.write('hello');")]
|
|
)
|
|
])
|
|
]).
|
|
|
|
:- func make_table_row(pair(K, V)) = xml.
|
|
|
|
make_table_row(K - V) =
|
|
elem("tr", [], [
|
|
elem("td", [], [data(string.string(K))]),
|
|
elem("td", [], [data(string.string(V))])
|
|
]).
|