Mercurial
comparison third_party/sqlite3/autosetup/find_tclconfig.tcl @ 173:827c6ac504cd hg-web
Merged in default here.
| author | MrJuneJune <me@mrjunejune.com> |
|---|---|
| date | Mon, 19 Jan 2026 18:59:10 -0800 |
| parents | 589bab390fb4 |
| children |
comparison
equal
deleted
inserted
replaced
| 151:c033667da5f9 | 173:827c6ac504cd |
|---|---|
| 1 # | |
| 2 # Run this TCL script to find and print the pathname for the tclConfig.sh | |
| 3 # file. Used by ../configure | |
| 4 # | |
| 5 if {[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 } | |
| 11 if {![file exists $libdir]} { | |
| 12 puts stderr "tclsh reported library directory \"$libdir\" does not exist" | |
| 13 exit 1 | |
| 14 } | |
| 15 if {![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 } | |
| 24 puts $libdir |