58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
set tcl_versions(8.6.3) 8.6.3
set tcl_versions(8.6.4) 8.6.4
set tcl_versions(8.6.5) 8.6.5
set tcl_versions(8.6.6) 8.6.6
set tcl_versions(8.6.7) 8.6.7
set tcl_versions(8.6.8) 8.6.8
set tcl_versions(8.6.9) 8.6.9
set tcl_versions(fossil_trunk) "Fossil Trunk Tip"
set tcl_version_list [lsort -dictionary [array names tcl_versions]]
set tcl_version_selected [lindex $tcl_version_list end-1]
# Platforms
set platforms(android-arm) "Android/ARM"
|
>
|
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
set tcl_versions(8.6.3) 8.6.3
set tcl_versions(8.6.4) 8.6.4
set tcl_versions(8.6.5) 8.6.5
set tcl_versions(8.6.6) 8.6.6
set tcl_versions(8.6.7) 8.6.7
set tcl_versions(8.6.8) 8.6.8
set tcl_versions(8.6.9) 8.6.9
set tcl_versions(8.6.10) 8.6.10
set tcl_versions(fossil_trunk) "Fossil Trunk Tip"
set tcl_version_list [lsort -dictionary [array names tcl_versions]]
set tcl_version_selected [lindex $tcl_version_list end-1]
# Platforms
set platforms(android-arm) "Android/ARM"
|
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
|
close $secretfd
## Compute basic key
set key [list $secret $build_platform $cache_tcl_version $cache_kitcreator_version $build_packages]
## Update key with options in deterministic order
foreach option [lsort -dictionary [array names build_options]] {
switch -- $option {
"threaded" - "kitdll" - "debug" {
# For boolean options, skip them if they are not enabled
if {!$build_options($option)} {
continue
}
}
}
lappend key [list "option:$option" $build_options($option)]
}
## Convert key to a user-consumable string via hashing
set key [string tolower [sha1::sha1 -hex $key]]
# Determine filename
|
<
<
<
<
<
<
<
<
|
415
416
417
418
419
420
421
422
423
424
425
426
427
428
|
close $secretfd
## Compute basic key
set key [list $secret $build_platform $cache_tcl_version $cache_kitcreator_version $build_packages]
## Update key with options in deterministic order
foreach option [lsort -dictionary [array names build_options]] {
lappend key [list "option:$option" $build_options($option)]
}
## Convert key to a user-consumable string via hashing
set key [string tolower [sha1::sha1 -hex $key]]
# Determine filename
|