pkgindex.tcl

来自「linux 下的源代码分析阅读器 red hat公司新版」· TCL 代码 · 共 9 行

if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[info exists tcl_platform(debug)]} {
    package ifneeded registry 1.0 \
            [list load [file join $dir tclreg10d.dll] registry]
} else {
    package ifneeded registry 1.0 \
            [list load [file join $dir tclreg10.dll] registry]
}