Mercurial
comparison third_party/sqlite3/autosetup/autosetup-test-tclsh @ 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 # A small Tcl script to verify that the chosen | |
| 2 # interpreter works. Sometimes we might e.g. pick up | |
| 3 # an interpreter for a different arch. | |
| 4 # Outputs the full path to the interpreter | |
| 5 | |
| 6 if {[catch {info version} version] == 0} { | |
| 7 # This is Jim Tcl | |
| 8 if {$version >= 0.72} { | |
| 9 # Ensure that regexp works | |
| 10 regexp (a.*?) a | |
| 11 puts [info nameofexecutable] | |
| 12 exit 0 | |
| 13 } | |
| 14 } elseif {[catch {info tclversion} version] == 0} { | |
| 15 if {$version >= 8.5 && ![string match 8.5a* [info patchlevel]]} { | |
| 16 puts [info nameofexecutable] | |
| 17 exit 0 | |
| 18 } | |
| 19 } | |
| 20 exit 1 |