diff options
author | patthoyts <patthoyts> | 2005-03-08 15:10:16 +0000 |
---|---|---|
committer | patthoyts <patthoyts> | 2005-03-08 15:10:16 +0000 |
commit | 4e213d5078ebbd043fdd9e8c8593ec8949c3cf92 (patch) | |
tree | 5e613d9239663b75e6c5d77f8e85fead9e61da69 /bench.tcl | |
parent | 13e52adb1dea991b724c50d4e2019eda1f517cd5 (diff) | |
download | jimtcl-4e213d5078ebbd043fdd9e8c8593ec8949c3cf92.zip jimtcl-4e213d5078ebbd043fdd9e8c8593ec8949c3cf92.tar.gz jimtcl-4e213d5078ebbd043fdd9e8c8593ec8949c3cf92.tar.bz2 |
JIM_VERSION is to be an integer value which we present as MAJOR.MINOR to
users. MAJOR is JIM_VERSION / 100
Diffstat (limited to 'bench.tcl')
-rw-r--r-- | bench.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -300,6 +300,13 @@ bench {dynamic code (list)} {dyncode_list} bench {PI digits} {pi_digits} bench {expand} {expand} +proc istcl {} { + return [expr {![catch {info tclversion}]}] +} + if {$batchmode} { - puts [list [info patchlevel] $benchmarks] + if {[catch {info patchlevel} ver]} { + set ver Jim[info version] + } + puts [list $ver $benchmarks] }
\ No newline at end of file |