15 lines
473 B
Text
15 lines
473 B
Text
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.
|