Posted to tcl by miguel at Sun Apr 25 13:40:21 GMT 2010view raw
- % namespace eval tcl::unsupported namespace export yieldm
- % namespace import tcl::unsupported::yieldm
- % proc foo {} {while 1 {set r [yieldm]; puts "[llength $r]: $r"}}
- % coroutine m foo
- % m
- 0:
- % m "hi colin :)"
- 1: {hi colin :)}
- % m 1 2 3
- 3: 1 2 3
- % m hi colin :)
- 3: hi colin :)