Posted to tcl by miguel at Sun Apr 25 13:40:21 GMT 2010view raw

  1. % namespace eval tcl::unsupported namespace export yieldm
  2. % namespace import tcl::unsupported::yieldm
  3. % proc foo {} {while 1 {set r [yieldm]; puts "[llength $r]: $r"}}
  4. % coroutine m foo
  5. % m
  6. 0:
  7. % m "hi colin :)"
  8. 1: {hi colin :)}
  9. % m 1 2 3
  10. 3: 1 2 3
  11. % m hi colin :)
  12. 3: hi colin :)