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]