::xotcl::Class ::xo::db::CrCache

Class Hierarchy of ::xo::db::CrCache

• ::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::db::CrCache

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  delete, fetch_object

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object

::xotcl::Class create ::xo::db::CrCache \
     -superclass ::xotcl::Object

Methods

• instproc delete

  ::xo::db::CrCache instproc delete -item_id {
      next
      ::xo::clusterwide ns_cache flush xotcl_object_cache ::$item_id
      # we should probably flush as well cached revisions
    }

• instproc fetch_object

  ::xo::db::CrCache instproc fetch_object {-item_id:required {-revision_id 0} -object:required} {
      set code [ns_cache eval xotcl_object_cache $object {
        set created 1
        #my log "--CACHE new new [self]"
        set o [next]
        return [::Serializer deepSerialize $o]
      }]
      #my log "--CACHE: [self args], created [info exists created] o [info exists o]"
      if {![info exists created]} {
        if {[my isobject $object]} {
          my log "--!! $object exists already"
        } else {
          set o [eval $code]
  	$object initialize_loaded_object
        }
      }
      return $object
    }