aboutsummaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-01-24 10:26:24 +1000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 11:02:38 +1000
commit1df9b19429212012b245a88b08ab37caef564d1c (patch)
treee48d6153d5cde43723f2729d92e0b75d7e848ea1 /tools
parentc4ec906079ac99fe52e8c4b27036ca0f2495848f (diff)
downloadjimtcl-1df9b19429212012b245a88b08ab37caef564d1c.zip
jimtcl-1df9b19429212012b245a88b08ab37caef564d1c.tar.gz
jimtcl-1df9b19429212012b245a88b08ab37caef564d1c.tar.bz2
Implement some new features
Implement 'lreplace' Implement 'string last' Implement 'pid' Implement 'info procs' Implement 'info script' Implement 'info patchlevel' as an alias for 'info version' Implement syslog extensions for jim Fix return code display in jim-interactive.c Make jim more compatible if JIM_TCL_COMPAT is set *: Use tcl_interactive rather than jim_interactive *: Use auto_path rather than jim_libpath Add "." to the lib search path, not "./" Fix a couple of files with CRLF line endings
Diffstat (limited to 'tools')
-rw-r--r--tools/benchtable.tcl5
1 files changed, 2 insertions, 3 deletions
diff --git a/tools/benchtable.tcl b/tools/benchtable.tcl
index df14884..1ac9583 100644
--- a/tools/benchtable.tcl
+++ b/tools/benchtable.tcl
@@ -9,8 +9,7 @@ proc main {filename} {
set versions {}
array set bench {}
set f [open $filename r]
- while {![eof $f]} {
- gets $f data
+ while {[gets $f data] >= 0} {
lappend versions [lindex $data 0]
set results [lindex $data 1]
foreach {title time} $results {
@@ -26,7 +25,7 @@ proc main {filename} {
}
puts ""
- foreach test [array names bench] {
+ foreach test [lsort [array names bench]] {
puts -nonewline "[format {% 20s} $test] "
foreach v $bench($test) {
if {$v eq "F"} {