Diff

Differences From Artifact [d2f34a9033]:

To Artifact [c704512f53]:


   138    138   	set shortfile $file
   139    139   	set file [file join $WEBDIR $file]
   140    140   	if {[file isdirectory $file]} {
   141    141   		continue
   142    142   	}
   143    143   
   144    144   	switch -glob -- $file {
   145         -		"*.log" - "*.ttml" - "*.html" - "*.desc" - "*-origname" - "*-tclsh" {
          145  +		"*.log" - "*.ttml" - "*.html" - "*.desc" - "*-origname" - "*-tclsh" - "*-sdk.tar.gz" {
   146    146   			continue
   147    147   		}
   148    148   	}
   149    149   
   150    150   	# Derive what we can from the filename
   151    151   	set buildfile "${shortfile}-build.log"
          152  +	set sdkshortfile "${shortfile}-sdk.tar.gz"
          153  +	set sdkfile "${file}-sdk.tar.gz"
   152    154   
   153    155   	# Determine which tests passed/failed
   154    156   	set failedtests [list]
   155    157   	set passedtests [list]
   156    158   	set testsfile "${file}-tests.log"
   157    159   	if {[file exists $testsfile]} {
   158    160   		set testfd [open $testsfile r]
................................................................................
   199    201   	set kitinfo(buildfile) $buildfile
   200    202   	set kitinfo(failedtests) $failedtests
   201    203   	set kitinfo(passedtests) $passedtests
   202    204   	set kitinfo(buildflags) $kitbuildinfo
   203    205   	set kitinfo(os) $kitos
   204    206   	set kitinfo(cpu) $kitcpu
   205    207   	set kitinfo(built) $kitbuilt
          208  +
          209  +	if {[file exists $sdkfile]} {
          210  +		set kitinfo(sdk) $sdkshortfile
          211  +	}
   206    212   
   207    213   	# Store kit information with all kits
   208    214   	set key [list $tclversion $kitos $kitcpu]
   209    215   	lappend allkitinfo($key) [array get kitinfo]
   210    216   }
   211    217   
   212    218   # Determine human readable name, and URL
................................................................................
   297    303   
   298    304   		set statusinfo $statusdata($status)
   299    305   		set statustext [lindex $statusinfo 0]
   300    306   		set bgcolor    [lindex $statusinfo 1]
   301    307   
   302    308   		set kitdesc [pretty_print_buildinfo $kitinfo(buildflags)]
   303    309   		if {$kitinfo(built)} {
   304         -			puts $fd "        <td><a href=\"$kitinfo(file)\">$kitdesc</a></td>"
          310  +			puts $fd "        <td>"
          311  +			puts $fd "          <a href=\"$kitinfo(file)\">$kitdesc</a>"
          312  +
          313  +			if {[info exists kitinfo(sdk)]} {
          314  +				puts $fd "          <small><a href=\"$kitinfo(sdk)\">(sdk)</a></small>"
          315  +			}
          316  +			puts $fd "        </td>"
   305    317   		} else {
   306    318   			puts $fd "        <td>$kitdesc</td>"
   307    319   		}
   308    320   		puts $fd "        <td>[pretty_print_size [file size [file join $WEBDIR $kitinfo(fullfile)]]]</td>"
   309    321   		puts $fd "        <td bgcolor=\"$bgcolor\">$statustext</td>"
   310    322   		puts $fd "        <td><small><a href=\"$kitinfo(buildfile)\">([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]])</a></small></td>"
   311    323   		puts $fd "        <td>[join $failedtestshtml {,<br>}]</td>"