17 lines
623 B
Plaintext
17 lines
623 B
Plaintext
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){
|
|
if(size(n) != size(r)){
|
|
throw "n and r should be of the same size";
|
|
}
|
|
else{
|
|
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));
|
|
return println(xmlPretty(x));
|
|
}
|
|
}
|