---

Class ::xo::Timestamp

::xo::Timestamp create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object

::xotcl::Class create ::xo::Timestamp \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

• diff (scripted)

  lindex [:diffs] [expr {$start ? 0 : 1}]

• diffs (scripted)

  set now [clock clicks -milliseconds]
  set ldiff [expr {[info exists :ltime] ? ($now-${:ltime}): 0}]
  set :ltime $now
  return [list [expr {$now-${:time}}] $ldiff]

• init (scripted)

  set :time [clock clicks -milliseconds]

• report (scripted)

  lassign [:diffs] start_diff last_diff
  :log "--$string (${start_diff}ms, diff ${last_diff}ms)"

---