Artifact f197a4c7bfa8bde7672864fc36dcbc7f85bdda6c:
- File autosetup/autosetup-test-tclsh — part of check-in [2ed09fb8a3] at 2017-10-13 08:43:44 on branch autosetup — Update autosetup to 0.6.8 (v0.6.7-11-g3eb780c) (user: steveb size: 531) [more...]
- File autosetup/test-tclsh — part of check-in [cdd4c6a580] at 2011-10-28 14:42:35 on branch autosetup — Update autosetup to 0.6.3 Some mingw32 improvements. Bootstrap jimsh0.c can now be built for embedding in addition to as jimsh. (user: steveb size: 531)
# A small Tcl script to verify that the chosen
# interpreter works. Sometimes we might e.g. pick up
# an interpreter for a different arch.
# Outputs the full path to the interpreter
if {[catch {info version} version] == 0} {
# This is Jim Tcl
if {$version >= 0.72} {
# Ensure that regexp works
regexp (a.*?) a
puts [info nameofexecutable]
exit 0
}
} elseif {[catch {info tclversion} version] == 0} {
if {$version >= 8.5 && ![string match 8.5a* [info patchlevel]]} {
puts [info nameofexecutable]
exit 0
}
}
exit 1