init.tcl

   1 package require Tcl 8.5
   2 package require Itcl 3.3
   3
   4 namespace eval ::tlc {
   5         namespace export *
   6
   7         variable library \
   8                         [file normalize [file join [pwd] [file dirname [info script]]]]
   9
  10         variable version_base   0.98.0
  11
  12         variable log
  13         set log(threshold)      20
  14 }
  15
  16 source [file join $::tlc::library scripts intersect3.tcl]
  17 lappend auto_path [file join $::tlc::library scripts]
  18
  19 tlc::Uri tlc::uri
  20
  21 namespace import -force itcl::*
  22
  23 package provide TLC-base $::tlc::version_base
  24
  25