File: tclcfg.tcl

package info (click to toggle)
libtcl-perl 1.27%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 272 kB
  • sloc: perl: 419; tcl: 15; makefile: 6
file content (15 lines) | stat: -rw-r--r-- 439 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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"