83d72a091e
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
21 lines
531 B
Plaintext
21 lines
531 B
Plaintext
# 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
|