::xotcl::Class ::xowiki::LinkCache

Class Hierarchy of ::xowiki::LinkCache

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

• ::xowiki::LinkCache

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  resolve

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object

::xotcl::Class create ::xowiki::LinkCache \
     -superclass ::xotcl::Object

Methods

• instproc resolve

  ::xowiki::LinkCache instproc resolve {} {
      set key link-[my type]-[my name]-[my parent_id]
      while {1} {
        array set r [ns_cache eval xowiki_cache $key {
          set id [next]
          if {$id == 0 || $id eq ""} break ;# don't cache
          return [list item_id $id package_id [my package_id]]
        }]
        break
      }
      if {![info exists r(item_id)]} {return 0}
      # we have a valid item. Set the the package_id and return the item_id
      my package_id $r(package_id)
      return $r(item_id)
    }