vers set kitcreator_versions($vers) $vers } set kitcreator_version_selected [lindex [lsort -dictionary [array names kitcreator_versions]] end] set kitcreator_versions(trunk) "Fossil Trunk Tip" set tcl_versions(8.5.15) 8.5.15 set tcl_versions(8.6.1) 8.6.1 set tcl_versions(8.6.2) 8.6.2 set tcl_versions(fossil_trunk) "Fossil Trunk Tip" set platforms(android-arm) "Android/ARM" set platforms(freebsd-amd64) "FreeBSD/amd64" set platforms(hpux-hppa64) "HP-UX/PA-RISC 2.0" set platforms(linux-amd64) "Linux/amd64" set platforms(linux-arm) "Linux/ARM" set platforms(linux-i386) "Linux/i386" set platforms(linux-mipsel) "Linux/MIPS" set platforms(netbsd-amd64) "NetBSD/amd64" set platforms(netbsd-i386) "NetBSD/i386" set platforms(solaris-amd64) "Solaris/amd64" set platforms(solaris-i386) "Solaris/i386" set platforms(solaris-sparc) "Solaris/SPARC" set platforms(solaris-sparc64) "Solaris/SPARC64" set platforms(win32) "Windows/i386" set platforms(win64) "Windows/amd64" set packages(tk) "Tk" set packages(mk4tcl) "Metakit" set packages(tcc4tcl) "tcc4tcl" set packages(tls) TLS set packages(dbus) D-BUS set packages(tclx) TclX set disable { platform linux-mipsel {tk tcc4tcl} platform android-arm tk platform netbsd-amd64 {tk tcc4tcl} platform netbsd-i386 {tk tcc4tcl} platform solaris-sparc tcc4tcl platform solaris-sparc64 tcc4tcl platform hpux-hppa64 tcc4tcl platform linux-arm tk } set specific { platform win32 file icon {Kit Icon} platform win32 text description {Description} platform win64 file icon {Kit Icon} platform win64 text description {Description} } if {[info exists args(platform)] && [info exists args(tcl_version)] && [info exist args(kitcreator_version)]} { # Read in arguments ## Mandatory arguments set build_platform $args(platform) set build_tcl_version $args(tcl_version) set build_kitcreator_version $args(kitcreator_version) ## Optional Arguments set build_packages [list] set build_options(threaded) 0 set build_options(kitdll) 0 set build_options(debug) 0 foreach arg [array names args] { switch -glob -- $arg { "option_package_*" { set package [join [lrange [split $arg _] 2 end] _] lappend build_packages $package } "option_threaded" { set build_options(threaded) 1 } "option_kitdll" { set build_options(kitdll) 1 } "option_debug" { set build_options(debug) 1 } "option_storage" { switch -- $args($arg) { "mk4" - "zip" - "cvfs" { set build_options(storage) $args($arg) } } } } } set build_packages [lsort -dictionary $build_packages] # Validate arguments if {![info exists platforms($build_platform)]} { unset build_platform } if {![info exists tcl_versions($build_tcl_version)]} { unset build_tcl_version } if {![info exists kitcreator_versions($build_kitcreator_version)]} { unset build_kitcreator_version } foreach package $build_packages { if {![info exists packages($package)]} { unset build_packages break } } # Resolve version numbers to checkin IDs ## XXX: TODO set cache_tcl_version $build_tcl_version if {$build_tcl_version == "fossil_trunk"} { set cache_tcl_version [clock format [clock seconds] -format {%Y%m%d}] } set cache_kitcreator_version $build_kitcreator_version if {$build_kitcreator_version == "trunk"} { set cache_kitcreator_version [clock format [clock seconds] -format {%Y%m%d}] } # Generate a serialized hash that represents the state of the build ## Load a secret so keys cannot be pre-computed (but remain consistent) set secretfd [open $secretfile "r"] set secret [gets $secretfd] 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 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/" headers redirect $url ?> KitCreator, Web Interface

KitCreator Web Interface

Build in progress, see for build information

KitCreator, Web Interface

KitCreator Web Interface

KitCreator Version:
Tcl Version:
Platform:
Kit Options: Package:
Kit: Threaded
Kit: Debugging Build
Kit: Build Library (KitDLL)
Kit Storage: