Posted to tcl by Colin at Fri Aug 22 06:20:05 GMT 2008view pretty
Co init coco /coco/ {r { set r [yield] ;# initially just redirect while {1} { set content [<h1> "Coco - Coroutining"] append content [<p> "You have called this coroutine [incr n] times."] set r [yield [Http Ok [Http NoCache $r] $content]] } }}