Posted to tcl by patthoyts at Wed Sep 19 00:11:03 GMT 2007view pretty

proc ::paste::xmlquote {s} {
    return [string map {
        & & < < > > \" " ' '
        \x00 " " \x01 " " \x02 " " \x03 " "
        \x04 " " \x05 " " \x06 " " \x07 " "
        \x08 " "                   \x0B " "
        \x0C " "          \x0E " " \x0F " "
        \x10 " " \x11 " " \x12 " " \x13 " "
        \x14 " " \x15 " " \x16 " " \x17 " "
        \x18 " " \x19 " " \x1A " " \x1B " "
        \x1C " " \x1D " " \x1E " " \x1F " "
        \x7F " "
    } $s]
}