Posted to tcl by colin at Mon Dec 26 15:23:40 GMT 2011view pretty
variable istate DISPATCH catch { set r1 [::Dispatcher pre $r] dict set r1 -time dispatch [expr {[clock microseconds] - [dict get $r -time connected]}] ::Dispatcher do REQUEST $r1 } rsp eo ;# process the request set istate POSTPROCESS dict set r -time postprocess [expr {[clock microseconds] - [dict get $r -time connected]}]