Fossil SCM
|
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 |
|
21
|
|