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