16 lines
463 B
Plaintext
16 lines
463 B
Plaintext
DEFINE subst ==
|
|
[[['< "<" putchars]
|
|
['> ">" putchars]
|
|
['& "&" putchars]
|
|
[putch]] case] step;
|
|
|
|
XMLOutput ==
|
|
"<CharacterRemarks>\n" putchars
|
|
["<Character name=\"" putchars uncons swap putchars "\">" putchars first subst "</Character>\n" putchars] step
|
|
"</CharacterRemarks>\n" putchars.
|
|
|
|
[["April" "Bubbly: I'm > Tam and <= Emily"]
|
|
["Tam O'Shanter" "Burns: \"When chapman billies leave the street ...\""]
|
|
["Emily" "Short & shrift"]
|
|
] XMLOutput.
|