Diff

Differences From Artifact [343dd2d6d2]:

To Artifact [93c8b06bf5]:


    33     33   	}
    34     34   
    35     35   	return "Tcl $version for [string totitle $os] on $cpu"
    36     36   }
    37     37   
    38     38   proc pretty_print_buildinfo {buildinfo} {
    39     39   	set desc [list]
    40         -	foreach tag [list min static notk statictk threaded zip] {
           40  +	foreach tag [list min static notk statictk unthreaded threaded zip] {
    41     41   		if {[lsearch -exact $buildinfo $tag] != -1} {
    42     42   			switch -- $tag {
    43     43   				"min" {
    44     44   					lappend desc "Minimally Built"
    45     45   				}
    46     46   				"static" {
    47     47   					lappend desc "Statically Linked"
................................................................................
    51     51   				}
    52     52   				"statictk" {
    53     53   					lappend desc "Tk linked to Kit"
    54     54   				}
    55     55   				"threaded" {
    56     56   					lappend desc "Threaded"
    57     57   				}
           58  +				"unthreaded" {
           59  +					lappend desc "Without Threads"
           60  +				}
    58     61   				"zip" {
    59     62   					lappend desc "Kit Filesystem in Zip"
    60     63   				}
    61     64   			}
    62     65   		}
    63     66   	}
    64     67   
................................................................................
   154    157   	# Store kit information with all kits
   155    158   	set key [list $tclversion $kitos $kitcpu]
   156    159   	lappend allkitinfo($key) [array get kitinfo]
   157    160   }
   158    161   
   159    162   puts $fd "<html>"
   160    163   puts $fd "  <head>"
   161         -puts $fd "    <title>KitCreator Build Status</title>"
          164  +puts $fd "    <title>KitCreator Build and Test Status</title>"
   162    165   puts $fd "  </head>"
   163    166   puts $fd "  <body>"
          167  +puts $fd "    <h1>KitCreator Build and Test Status</h1>"
          168  +puts $fd "    <p>The following table represents the status of the test results from the KitCreator test suite.</p>"
   164    169   puts $fd "    <table cellpadding=\"2\" border=\"1\">"
   165    170   foreach key [lsort -dictionary [array names allkitinfo]] {
   166    171   	puts $fd "      <tr>"
   167    172   	puts $fd "        <th><u>Tclkit for [pretty_print_key $key]</u></th>"
   168    173   	puts $fd "        <th>Kit Size</th>"
   169    174   	puts $fd "        <th>Status</th>"
   170    175   	puts $fd "        <th>Log</th>"
................................................................................
   211    216   		puts $fd "        <td><small><a href=\"$kitinfo(buildfile)\">([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]])</a></small></td>"
   212    217   		puts $fd "        <td>[join $failedtestshtml {, }]</td>"
   213    218   		puts $fd "      </tr>"
   214    219   	}
   215    220   
   216    221   }
   217    222   puts $fd "    </table>"
          223  +puts $fd "    <p>Generated on [clock format [clock seconds]]</p>"
   218    224   puts $fd "  </body>"
   219    225   puts $fd "</html>"
   220    226   
   221    227   close $fd