---

Class Relations

• class: ::xotcl::Object

::xotcl::Object create ::xotcl::config

Methods (to be applied on the object)

• load (scripted)

  source $file
  foreach i [array names ::auto_index [list $obj *proc *]] {
    set type [lindex $i 1]
    set meth [lindex $i 2]
    if {[$obj info ${type}s $meth] == {}} {
      $obj $type $meth auto $::auto_index($i)
    }
    }

• mkindex (scripted)

  set sp {[     ]+}
  set st {^[     ]*}
  set wd {([^     ;]+)}
  foreach creator $meta {
    ::lappend cp $st$creator${sp}create$sp$wd
    ::lappend ap $st$creator$sp$wd
  }
  foreach methodkind {proc instproc} {
    ::lappend mp $st$wd${sp}($methodkind)$sp$wd
  }
  foreach cl [concat ::xotcl::Class [::xotcl::Class info heritage]] {
    ::lappend meths {*}[$cl info instcommands]
  }
  set old [pwd]
  cd $dir
  ::append idx "# Tcl autoload index file, version 2.0\n"
  ::append idx "# xotcl additions generated with "
  ::append idx "\"::xotcl::config::mkindex [list $meta] [list $dir] $args\"\n"
  set oc 0
  set mc 0
  foreach file [glob -nocomplain -- {*}$args] {
    if {[catch {set f [open $file]} msg]} {
      catch {close $f}
      cd $old
      error $msg
    }
    while {[gets $f line] >= 0} {
      foreach c $cp {
        if {[regexp $c $line x obj]==1 &&
            [string index $obj 0]!={$}} then {
          ::incr oc
          ::append idx "set auto_index($obj) "
          ::append idx "\"::xotcl::config::load $obj \$dir/$file\"\n"
        }
      }
      foreach a $ap {
        if {[regexp $a $line x obj]==1 &&
            [string index $obj 0]!={$} &&
            [lsearch -exact $meths $obj]==-1} {
          ::incr oc
          ::append idx "set auto_index($obj) "
          ::append idx "\"::xotcl::config::load $obj \$dir/$file\"\n"
        }
      }
      foreach m $mp {
        if {[regexp $m $line x obj ty pr]==1 &&
            [string index $obj 0]!={$} &&
            [string index $pr 0]!={$}} then {
          ::incr mc
          ::append idx "set \{auto_index($obj "
          ::append idx "$ty $pr)\} \"source \$dir/$file\"\n"
        }
      }
    }
    close $f
  }
  set t [open tclIndex a+]
  puts $t $idx nonewline
  close $t
  cd $old
  return "$oc objects, $mc methods"

---