Posted to tcl by kbk at Fri Nov 02 19:54:29 GMT 2012view pretty
proc comain {} { set configVar {configContent} yield [info coroutine] dosomething } proc dosomething {} { upvar \#1 configVar cv yield $cv } coroutine theCoro comain puts [theCoro]
proc comain {} { set configVar {configContent} yield [info coroutine] dosomething } proc dosomething {} { upvar \#1 configVar cv yield $cv } coroutine theCoro comain puts [theCoro]