19 lines
577 B
Plaintext
19 lines
577 B
Plaintext
fcn xmlEscape(text){
|
|
text.replace(" &"," &") .replace(" \""," "")
|
|
.replace(" '"," '") .replace(" <"," <") .replace(" >"," >")
|
|
}
|
|
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();
|