139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
set kitbuilt 1
if {[file tail [file dirname $file]] == "failed"} {
set failedtests [list "${shortfile}-XX-build.log"]
set kitbuilt 0
}
## Split the filename into parts and store each part
set kitbuildinfo [split $shortfile -]
set tclversion [lindex $kitbuildinfo 1]
set kitbuildinfo [lsort -dictionary [lrange $kitbuildinfo 2 end]]
## Determine Kit OS from random file names
unset -nocomplain kitos kitcpu
if {[lsearch -exact $kitbuildinfo "win32"] != -1} {
set idx [lsearch -exact $kitbuildinfo "win32"]
set kitbuildinfo [lreplace $kitbuildinfo $idx $idx]
set kitos "windows"
set kitcpu "i586"
} elseif {[lsearch -exact $kitbuildinfo "arm"] != -1} {
set idx [lsearch -exact $kitbuildinfo "arm"]
set kitbuildinfo [lreplace $kitbuildinfo $idx $idx]
set kitos "linux"
set kitcpu "arm"
} else {
set idx [lsearch -exact $kitbuildinfo "normal"]
if {$idx != -1} {
set kitbuildinfo [lreplace $kitbuildinfo $idx $idx]
}
set kitos [string tolower $tcl_platform(os)]
set kitcpu [string tolower $tcl_platform(machine)]
}
|
>
<
<
<
<
<
<
<
<
<
<
<
<
|
|
<
<
<
<
|
|
|
<
<
|
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
set kitbuilt 1
if {[file tail [file dirname $file]] == "failed"} {
set failedtests [list "${shortfile}-XX-build.log"]
set kitbuilt 0
}
## Split the filename into parts and store each part
unset -nocomplain kitos kitcpu
set kitbuildinfo [split $shortfile -]
set tclversion [lindex $kitbuildinfo 1]
set kitos [lindex $kitbuildinfo 2]
set kitcpu [lindex $kitbuildinfo 3]
### Store the remainder as a list of tags
set kitbuildinfo [lsort -dictionary [lrange $kitbuildinfo 4 end]]
# Generate array to describe this kit
unset -nocomplain kitinfo
set kitinfo(version) $tclversion
set kitinfo(file) $shortfile
set kitinfo(fullfile) $file
set kitinfo(buildfile) $buildfile
|