pkgindex.tcl

跑leach需要的

if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[string compare $::tcl_platform(platform) windows]} {return}
if {[info exists ::tcl_platform(debug)]} {
    package ifneeded dde 1.2.2 [list load [file join $dir tcldde12g.dll] dde]
} else {
    package ifneeded dde 1.2.2 [list load [file join $dir tcldde12.dll] dde]
}