Posted to tcl by Colin at Fri Aug 22 06:20:05 GMT 2008view raw
- 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]]
- }
- }}