File: benchtable.tcl

package info (click to toggle)
openocd 0.9.0-1~bpo8%2B1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-backports
  • size: 24,876 kB
  • sloc: ansic: 275,029; sh: 15,664; tcl: 7,079; asm: 1,913; cpp: 1,671; makefile: 1,200; perl: 717; python: 708; haskell: 35
file content (45 lines) | stat: -rw-r--r-- 1,070 bytes parent folder | download | duplicates (15)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#!/usr/bin/env tclsh
#
# Tabulate the output of Jim's bench.tcl -batch
#
# Copyright (C) 2005 Pat Thoyts <patthoyts@users.sourceforge.net>
#

proc main {filename} {
    set versions {}
    array set bench {}
    set f [open $filename r]
    while {[gets $f data] >= 0} {
        lappend versions [lindex $data 0]
        set results [lindex $data 1]
        foreach {title time} $results {
            lappend bench($title) $time
        }
    }
    close $f

    puts "Jim benchmarks - time in milliseconds"
    puts -nonewline [string repeat " " 21]
    foreach v $versions {
        puts -nonewline [format "% 6s " $v]
    }
    puts ""

    foreach test [lsort [array names bench]] {
        puts -nonewline "[format {% 20s} $test] "
        foreach v $bench($test) {
            if {$v eq "F"} {
                puts -nonewline "     F "
            } else {
                puts -nonewline [format "% 6d " $v]
            }
        }
        puts ""
    }
}

if {!$tcl_interactive} {
    set r [catch {eval [linsert $argv 0 main]} res]
    puts $res
    exit $r
}