Posted to tcl by jdc at Thu Mar 21 07:41:24 GMT 2013view raw

  1. package require struct::queue
  2.  
  3. set Q [struct::queue]
  4.  
  5. $Q put T1
  6. $Q put T2
  7. $Q put T3 T4 T5
  8.  
  9. while {[$Q size]} {
  10. puts [$Q get]
  11. }
  12.  
  13. $Q destroy