Diff

Differences From Artifact [ccd0830569]:

To Artifact [da07d29b3c]:


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