::xotcl::Class ::xo::Timestamp

Class Hierarchy of ::xo::Timestamp

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  __exitHandler, getExitHandler, setExitHandler, unsetExitHandler

• ::xo::Timestamp

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  diff, diffs, init, report

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object

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

Methods

• instproc diff

  ::xo::Timestamp instproc diff -start:switch {
      lindex [my diffs] [expr {$start ? 0 : 1}]
    }

• instproc diffs

  ::xo::Timestamp instproc diffs {} {
      set now [clock clicks -milliseconds]
      set ldiff [expr {[my exists ltime] ? [expr {$now-[my set ltime]}] : 0}]
      my set ltime $now
      return [list [expr {$now-[my set time]}] $ldiff]
    }

• instproc init

  ::xo::Timestamp instproc init {} {my set time [clock clicks -milliseconds]}

• instproc report

  ::xo::Timestamp instproc report {{string {}}} {
      foreach {start_diff last_diff} [my diffs] break
      my log "--$string (${start_diff}ms, diff ${last_diff}ms)"
    }