1# 2# Run this TCL script to find and print the pathname for the tclConfig.sh 3# file. Used by ../configure 4# 5if {[catch { 6 set libdir [tcl::pkgconfig get libdir,install] 7}]} { 8 puts stderr "tclsh too old: does not support tcl::pkgconfig" 9 exit 1 10} 11if {![file exists $libdir]} { 12 puts stderr "tclsh reported library directory \"$libdir\" does not exist" 13 exit 1 14} 15if {![file exists $libdir/tclConfig.sh]} { 16 set n1 $libdir/tcl$::tcl_version 17 if {[file exists $n1/tclConfig.sh]} { 18 set libdir $n1 19 } else { 20 puts stderr "cannot find tclConfig.sh in either $libdir or $n1" 21 exit 1 22 } 23} 24puts $libdir 25