Overview
| Comment: | First attempt at providing an "index.tcl" for results that can be parsed in Tcl for [8b5da45955] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5419c4d10742220a26d08f2661660297 |
| User & Date: | rkeene on 2012-02-22 19:58:11 |
| Other Links: | manifest | tags |
Context
|
2012-02-24
| ||
| 10:10 | Updated to exclude ".new" files from being processed check-in: 8cf1b9c2d8 user: rkeene tags: trunk | |
|
2012-02-22
| ||
| 19:58 | First attempt at providing an "index.tcl" for results that can be parsed in Tcl for [8b5da45955] check-in: 5419c4d107 user: rkeene tags: trunk | |
|
2012-02-14
| ||
| 16:09 | Added android build support to test infrastructure check-in: 4ded39fb86 user: rkeene tags: trunk | |
Changes
Modified build/test/publish-tests from [c704512f53] to [7d17ed1d63].
| ︙ | ︙ | |||
40 41 42 43 44 45 46 |
##########################################################################
proc pretty_print_key {key} {
set version [lindex $key 0]
set os [lindex $key 1]
set cpu [lindex $key 2]
switch -glob -- $version {
| | | | > > > > | 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 |
##########################################################################
proc pretty_print_key {key} {
set version [lindex $key 0]
set os [lindex $key 1]
set cpu [lindex $key 2]
switch -glob -- $version {
"cvs_HEAD" - "fossil_trunk" {
set version "from Fossil trunk tip"
}
"cvs_*" {
set tag [join [lrange [split $version _] 1 end] _]
set version "from CVS tag $tag"
}
default {
set version "version $version"
}
}
return "Tcl $version for [string totitle $os] on $cpu"
}
proc pretty_print_buildinfo {buildinfo {rettype "desc"}} {
set desc [list]
set tags [list]
foreach tag [list kitdll debug min static notk nomk4 statictk unthreaded threaded zip] {
if {[lsearch -exact $buildinfo $tag] != -1} {
set pre_desc $desc
switch -- $tag {
"kitdll" {
lappend desc "Built as a Library"
}
"min" {
lappend desc "Minimally Built"
}
|
| ︙ | ︙ | |||
91 92 93 94 95 96 97 98 99 100 101 102 103 104 |
"zip" {
lappend desc "Kit Filesystem in Zip"
}
"debug" {
lappend desc "With Symbols"
}
}
}
}
if {[llength $desc] == 0} {
return "Default Build"
}
| > > > > > > | > > > > > | 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 |
"zip" {
lappend desc "Kit Filesystem in Zip"
}
"debug" {
lappend desc "With Symbols"
}
}
if {$desc != $pre_desc} {
lappend tags $tag
}
}
}
if {[llength $desc] == 0} {
return "Default Build"
}
switch -- $rettype {
"desc" {
return [join $desc {, }]
}
"tag" {
return $tags
}
}
}
proc pretty_print_size {size} {
foreach unit [list "" K M G T P] {
if {$size < 1024} {
if {$size < 10 && $unit != ""} {
set size [expr {round($size * 10) / 10.0}]
|
| ︙ | ︙ | |||
124 125 126 127 128 129 130 | ########################################################################## ## MAIN BODY ############################################################# ########################################################################## file delete -force -- $WEBDIR file mkdir $WEBDIR | | > > > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 |
##########################################################################
## MAIN BODY #############################################################
##########################################################################
file delete -force -- $WEBDIR
file mkdir $WEBDIR
set index_html_filename [file join $WEBDIR index.html]
set index_tcl_filename [file join $WEBDIR index.tcl]
set fd [open "${index_html_filename}.new" w]
file copy -force -- {*}[glob kits/*] $WEBDIR
set totaltests_count [llength [glob tests/*.tcl]]
foreach file [lsort -dictionary [glob -tails -directory $WEBDIR * failed/*]] {
set shortfile $file
|
| ︙ | ︙ | |||
343 344 345 346 347 348 349 |
}
puts $fd " </table>"
puts $fd " <p>Generated on [clock format [clock seconds] -format {%Y%m%dT%H%M%SZ} -timezone :UTC]</p>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
| > > > > > > > | 361 362 363 364 365 366 367 368 369 370 371 372 373 374 |
}
puts $fd " </table>"
puts $fd " <p>Generated on [clock format [clock seconds] -format {%Y%m%dT%H%M%SZ} -timezone :UTC]</p>"
puts $fd " </body>"
puts $fd "</html>"
close $fd
set tfd [open "${index_tcl_filename}.new" w]
puts $tfd [array get allkitinfo]
close $tfd
file rename -force -- "${index_html_filename}.new" $index_html_filename
file rename -force -- "${index_tcl_filename}.new" $index_tcl_filename
|