Mercurial
view third_party/sqlite3/autosetup/find_tclconfig.tcl @ 225:70de0c80d093 hg-web
[hg-web] Add side-by-side changeset diffs
| author | MrJuneJune <me@mrjunejune.com> |
|---|---|
| date | Sun, 02 Aug 2026 14:41:09 -0700 |
| parents | 589bab390fb4 |
| children |
line wrap: on
line source
# # 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