Mercurial
comparison third_party/sqlite3/autosetup/find_tclconfig.tcl @ 167:589bab390fb4
[ThirdParty] Added sqlite3 to the third_party.
| author | MrJuneJune <me@mrjunejune.com> |
|---|---|
| date | Mon, 19 Jan 2026 16:28:45 -0800 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 166:78ea8d5ccc87 | 167:589bab390fb4 |
|---|---|
| 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 |