puts "tclsh=[info nameofexecutable]"
set libdir [info library]
set dirs [list \
[file dirname $libdir] \
[file dirname [file dirname $libdir]] \
[file join [file dirname [file dirname [info nameofexe]]] lib] \
]
foreach dir $dirs {
if {[file exists [file join $dir tclConfig.sh]]} {
puts "tclConfig.sh=[file join $dir tclConfig.sh]"
break
}
}
puts "tcl_library=$libdir"
puts "tcl_version=$tcl_version"