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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
# bench_read.tcl --
#
# Management of benchmarks, reading results in various formats.
#
# Copyright (c) 2005 by Andreas Kupries <andreas_kupries@users.sourceforge.net>
# library derived from runbench.tcl application (C) Jeff Hobbs.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: bench_read.tcl,v 1.3 2006/06/13 23:20:30 andreas_kupries Exp $
# ### ### ### ######### ######### ######### ###########################
## Requisites - Packages and namespace for the commands and data.
package require Tcl 8.2
package require csv
namespace eval ::bench::in {}
# ### ### ### ######### ######### ######### ###########################
## Public API - Result reading
# ::bench::in::read --
#
# Read a bench result in any of the raw/csv/text formats
#
# Arguments:
# path to file to read
#
# Results:
# DATA dictionary, internal representation of the bench results.
proc ::bench::in::read {file} {
set f [open $file r]
set head [gets $f]
if {![string match "# -\\*- tcl -\\*- bench/*" $head]} {
return -code error "Bad file format, not a benchmark file"
} else {
regexp {bench/(.*)$} $head -> format
switch -exact -- $format {
raw - csv - text {
set res [RD$format $f]
}
default {
return -code error "Bad format \"$val\", expected text, csv, or raw"
}
}
}
close $f
return $res
}
# ### ### ### ######### ######### ######### ###########################
## Internal commands
proc ::bench::in::RDraw {chan} {
return [string trimright [::read $chan]]
}
proc ::bench::in::RDcsv {chan} {
# Lines Format
# First line is number of interpreters #n. int
# Next to 1+n is interpreter data. id,ver,path
# Beyond is benchmark results. id,desc,res1,...,res#n
array set DATA {}
# #Interp ...
set nip [lindex [csv::split [gets $chan]] 0]
# Interp data ...
set iplist {}
for {set i 0} {$i < $nip} {incr i} {
foreach {__ ver ip} [csv::split [gets $chan]] break
set DATA([list interp $ip]) $ver
lappend iplist $ip
}
# Benchmark data ...
while {[gets $chan line] >= 0} {
set line [string trim $line]
if {$line == {}} break
set line [csv::split $line]
set desc [lindex $line 1]
set DATA([list desc $desc]) {}
foreach val [lrange $line 2 end] ip $iplist {
if {$val == {}} continue
set DATA([list usec $desc $ip]) $val
}
}
return [array get DATA]
}
proc ::bench::in::RDtext {chan} {
array set DATA {}
# Interp data ...
# Empty line - ignore
# "id: ver path" - interp data.
# Empty line - separator before benchmark data.
set n 0
set iplist {}
while {[gets $chan line] >= 0} {
set line [string trim $line]
if {$line == {}} {
incr n
if {$n == 2} break
continue
}
regexp {[^:]+: ([^ ]+) (.*)$} $line -> ver ip
set DATA([list interp $ip]) $ver
lappend iplist $ip
}
# Benchmark data ...
# '---' -> Ignore.
# '|' column separators. Remove spaces around it. Then treat line
# as CSV data with a particular separator.
# Ignore the INTERP line.
while {[gets $chan line] >= 0} {
set line [string trim $line]
if {$line == {}} continue
if {[string match "+---*" $line]} continue
if {[string match "*INTERP*" $line]} continue
regsub -all "\\| +" $line {|} line
regsub -all " +\\|" $line {|} line
set line [csv::split [string trim $line |] |]
set desc [lindex $line 1]
set DATA([list desc $desc]) {}
foreach val [lrange $line 2 end] ip $iplist {
if {$val == {}} continue
set DATA([list usec $desc $ip]) $val
}
}
return [array get DATA]
}
# ### ### ### ######### ######### ######### ###########################
## Initialize internal data structures.
# ### ### ### ######### ######### ######### ###########################
## Ready to run
package provide bench::in 0.1
|
