mirror of
https://github.com/sqlite/sqlite.git
synced 2024-11-25 08:59:33 +01:00
25 lines
614 B
Tcl
25 lines
614 B
Tcl
|
#
|
||
|
|
# Run this TCL script to find and print the pathname for the tclConfig.sh
|
||
|
|
# file. Used by ../configure
|
||
|
|
#
|
||
|
|
if {[catch {
|
||
|
|
set libdir [tcl::pkgconfig get libdir,install]
|
||
|
|
}]} {
|
||
|
|
puts stderr "tclsh too old: does not support tcl::pkgconfig"
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
if {![file exists $libdir]} {
|
||
|
|
puts stderr "tclsh reported library directory \"$libdir\" does not exist"
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
if {![file exists $libdir/tclConfig.sh]} {
|
||
|
|
set n1 $libdir/tcl$::tcl_version
|
||
|
|
if {[file exists $n1/tclConfig.sh]} {
|
||
|
|
set libdir $n1
|
||
|
|
} else {
|
||
|
|
puts stderr "cannot find tclConfig.sh in either $libdir or $n1"
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
}
|
||
|
|
puts $libdir
|