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

  1. proc ::paste::xmlquote {s} {
  2. return [string map {
  3. & & < < > > \" " ' '
  4. \x00 " " \x01 " " \x02 " " \x03 " "
  5. \x04 " " \x05 " " \x06 " " \x07 " "
  6. \x08 " " \x0B " "
  7. \x0C " " \x0E " " \x0F " "
  8. \x10 " " \x11 " " \x12 " " \x13 " "
  9. \x14 " " \x15 " " \x16 " " \x17 " "
  10. \x18 " " \x19 " " \x1A " " \x1B " "
  11. \x1C " " \x1D " " \x1E " " \x1F " "
  12. \x7F " "
  13. } $s]
  14. }