Posted to tcl by Colin at Fri Aug 22 06:20:05 GMT 2008view raw

  1. Co init coco /coco/ {r {
  2. set r [yield] ;# initially just redirect
  3. while {1} {
  4. set content [<h1> "Coco - Coroutining"]
  5. append content [<p> "You have called this coroutine [incr n] times."]
  6. set r [yield [Http Ok [Http NoCache $r] $content]]
  7. }
  8. }}
  9.