XML/Output: Difference between revisions

=={{header|Rascal}}==

<lang rascal>import Prelude;

import lang::xml::DOM;

list[str] charnames = ["April", "Tam O\'\\Shanter", "Emily"];

list[str] remarks = ["Bubbly: I\'\\m \> Tam and \<= Emily", "Burns: \"When chapman billies leave the street ...\"", "Short & shrift"];

public void xmloutput(list[str] n,list[str] r){

characters = [element(none(),"Character",[attribute(none(),"name",n[i]), charData(r[i])]),charData("\n")| i <- [0..size(n)-1]];

x = document(element(none(),"CharacterRemarks",characters));

S = xmlPretty(x);

return println(S);

}</lang>

This gives an output:

<lang rascal>rascal>xmloutput(charnames, remarks)

<?xml version="1.0" encoding="UTF-8"?>

<CharacterRemarks>

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

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

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

</CharacterRemarks></lang>