Posted to tcl by jdc at Fri Mar 05 13:10:06 GMT 2010view raw

  1. proc wordlist { l } {
  2. set rl [split [string map {\ \0\ \n \ \n} $l] " "]
  3. }
  4.