;;; mkhtml.xom
CROSS-TRANSLATE
GLOBAL STREAM theAlpha
FIND-START
OUTPUT "Index%n"
OUTPUT "Permuted Index of Selected Phrases
%n"
OUTPUT ""
SET BUFFER theAlpha to ""
FIND-END
OUTPUT "
%n"
OUTPUT "
%n"
OUTPUT "Automatically generated by
"_
" Academia Sinica Computing Center's "_
"QAML Tools
%n"_
""
OUTPUT " "
FIND [LETTER or DIGIT]=theLetter [ANY EXCEPT "<"]+ [ANY EXCEPT "%n"]+=theLine "%n"
DO UNLESS PATTERN theLetter IS EQUAL "%g(theAlpha)"
SET BUFFER theAlpha TO PATTERN theLetter
OUTPUT "%n"
OUTPUT "
- %g(theAlpha) -
%n"
OUTPUT "%n"
DONE
OUTPUT "%x(theLine)
%n"