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 6if {[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} 20exit 1 21