429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
|
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
if {$build_options(kitdll)} {
set extension "so"
switch -- $build_platform {
"win32" - "win64" {
set extension "dll"
}
"hpux-hppa64" {
set extension "sl"
}
}
## XXX: TODO: The version here needs to match what's in the SONAME
set filename "libtclkit[string map [list "." ""] ${cache_tcl_version}].${extension}"
} else {
set filename "tclkit"
switch -- $build_platform {
"win32" - "win64" {
append filename ".exe"
}
}
}
# Queue build up and wait for it to complete
set fd [open $queue a+]
puts $fd [list filename $filename key $key platform $build_platform tcl_version $build_tcl_version kitcreator_version $build_kitcreator_version packages $build_packages options [array get build_options]]
close $fd
set url "http://kitcreator.rkeene.org/kits/building/$key/"
if {!$resultIsAPI} {
headers redirect $url
?><html>
|
>
>
>
|
|
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
|
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
set extra_keys [list]
if {$build_options(kitdll)} {
set extension "so"
switch -- $build_platform {
"win32" - "win64" {
set extension "dll"
}
"hpux-hppa64" {
set extension "sl"
}
}
## XXX: TODO: The version here needs to match what's in the SONAME
set filename "libtclkit[string map [list "." ""] ${cache_tcl_version}].${extension}"
set sdkfilename "libtclkit[string map [list "." ""] ${cache_tcl_version}]-${build_platform}-sdk.tar.gz"
lappend extra_keys sdkfilename $sdkfilename
} else {
set filename "tclkit"
switch -- $build_platform {
"win32" - "win64" {
append filename ".exe"
}
}
}
# Queue build up and wait for it to complete
set fd [open $queue a+]
puts $fd [list filename $filename key $key platform $build_platform tcl_version $build_tcl_version kitcreator_version $build_kitcreator_version packages $build_packages options [array get build_options] {*}$extra_keys]
close $fd
set url "http://kitcreator.rkeene.org/kits/building/$key/"
if {!$resultIsAPI} {
headers redirect $url
?><html>
|