XML/Output: Difference between revisions

=={{header|zkl}}==

<lang zkl>fcn xmlEscape(text){

text.replace(" &"," &amp;") .replace(" \""," &quot;")

.replace(" '"," &apos;") .replace(" <"," &lt;") .replace(" >"," &gt;")

}

fcn toXML(as,bs){

xml:=Sink("<CharacterRemarks>\n");

as.zipWith('wrap(a,b){

xml.write(" <Character name=\"",xmlEscape(a),"\">",

xmlEscape(b),"</Character>\n");

},bs);

xml.write("</CharacterRemarks>\n").close();

}

toXML(T("April", "Tam O'Shanter", "Emily"),

T("Bubbly: I'm > Tam and <= Emily",

0'|Burns: "When chapman billies leave the street ..."|,

"Short & shrift"))

.print();</lang>

{{out}}

<pre>

<CharacterRemarks>

<Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>

<Character name="Tam O'Shanter">Burns: &quot;When chapman billies leave the street ..."</Character>

<Character name="Emily">Short &amp; shrift</Character>

</CharacterRemarks>

</pre>