---

::xotcl::Class ::xo::OrderedComposite::IndexCompare

Class Hierarchy of ::xo::OrderedComposite::IndexCompare

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

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

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

  getExitHandler, setExitHandler, unsetExitHandler

• ::xo::OrderedComposite::IndexCompare

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __compare, __value_compare

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xotcl::Object

::xotcl::Class create ::xo::OrderedComposite::IndexCompare \
     -superclass ::xotcl::Object

Methods

• instproc __compare

  ::1457577 instproc __compare {a b} {
      set by [my set __orderby]
      set x [$a set $by]
      set y [$b set $by]
      #my log "--value compare  $x $y] => [my __value_compare $x $y 0]"
      return [my __value_compare $x $y 0]
    }
  

• instproc __value_compare

  ::1457577 instproc __value_compare {x y def} {
      set xp [string first . $x]
      set yp [string first . $y]
      if {$xp == -1 && $yp == -1} {
        if {$x < $y} {
  	return -1
        } elseif {$x > $y} {
  	return 1
        } else {
  	return $def
        }
      } elseif {$xp == -1} {
        set yh [string range $y 0 [expr {$yp-1}]]
        return [my __value_compare $x $yh -1]
      } elseif {$yp == -1} {
        set xh [string range $x 0 [expr {$xp-1}]]
        return [my __value_compare $xh $y 1]
      } else {
        set xh [string range $x 0 $xp]
        set yh [string range $y 0 $yp]
        #puts "xh=$xh yh=$yh"
        if {$xh < $yh} {
  	return -1
        } elseif {$xh > $yh} {
  	return 1
        } else {
  	incr xp 
  	incr yp
  	#puts "rest [string range $x $xp end] [string range $y $yp end]"
  	return [my __value_compare [string range $x $xp end] [string range $y $yp end] $def]
        }
      }
    }
  

---