1puts "tclsh=[info nameofexecutable]" 2set libdir [info library] 3set dirs [list \ 4 [file dirname $libdir] \ 5 [file dirname [file dirname $libdir]] \ 6 [file join [file dirname [file dirname [info nameofexe]]] lib] \ 7 ] 8foreach dir $dirs { 9 if {[file exists [file join $dir tclConfig.sh]]} { 10 puts "tclConfig.sh=[file join $dir tclConfig.sh]" 11 break 12 } 13} 14puts "tcl_library=$libdir" 15puts "tcl_version=$tcl_version" 16