Posted to tcl by silas2 at Fri Jan 12 23:00:52 GMT 2024view raw

  1. set x [convert-to-list {
  2. foo
  3. bar
  4. another line
  5. {
  6. a b c
  7. d e f
  8. }
  9. }]
  10.  
  11. After executing, $x should be:
  12. {foo bar {another line} {
  13. a b c
  14. d e f
  15. }}
  16.  
  17. [llength $x] == 4