#! /usr/bin/env tclsh
set queue "/home/rkeene/devel/kitcreator/build/web/queue"
set outdir "/web/customers/kitcreator.rkeene.org/kits"
set builddir "/tmp/kitcreator-web/builds"
if {![file exists "${queue}.old"]} {
if {![file exists $queue]} {
exit 0
}
file rename "$queue" "${queue}.old"
}
set queue "${queue}.old"
set fd [open $queue r]
set data [read $fd]
close $fd
set ::env(TCLKIT) "/home/rkeene/bin/tclkit"
proc handleSDK {workdir input output} {
set workdir [file join $workdir "sdk-rewrite"]
set dirNewName [regsub {\.tar\.gz$} [file tail $output] {}]
file mkdir $workdir
exec gzip -dc $input | tar -C $workdir -xf -
set dirName [glob -nocomplain -directory $workdir *]
if {[llength $dirName] != 1} {
return -code error "Multiple directories found: $dirName"
}
set dirName [lindex $dirName 0]
file rename $dirName [file join $workdir $dirNewName]
exec tar -C $workdir -cf - $dirNewName | gzip -9c > [file join $workdir sdk.tar.gz]
file copy [file join $workdir sdk.tar.gz] $output
}
foreach line [split $data "\n"] {
if {$line == ""} {
continue
}
unset -nocomplain buildinfo
unset -nocomplain outsdkfile
array set buildinfo $line
set outfile [file join $outdir $buildinfo(key) $buildinfo(filename)]
if {[info exists buildinfo(sdkfilename)]} {
set outsdkfile [file join $outdir $buildinfo(key) $buildinfo(sdkfilename)]
}
# Skip if build completed
if {[file exists $outfile]} {
continue
}
# Skip if build failed
if {[file exists $outfile.buildfail]} {
continue
}
# Set the build directory
file delete -force -- $builddir
set workdir [file join $builddir $buildinfo(key) build]
file mkdir $workdir
cd $workdir
# Find place to store build info
set keydir [file join $outdir $buildinfo(key)]
file mkdir $keydir
set fd [open [file join $keydir buildinfo] w]
puts $fd [array get buildinfo]
close $fd
set tarball kitcreator-${buildinfo(kitcreator_version)}.tar.gz
if {[catch {
exec wget -q -O $tarball http://kitcreator.rkeene.org/fossil/tarball/${tarball}?uuid=${buildinfo(kitcreator_version)}
exec gzip -dc $tarball | tar -xf -
cd kitcreator-${buildinfo(kitcreator_version)}
}]} {
continue
}
set script "./build/make-kit-${buildinfo(platform)}"
set args [list]
set ::env(KITCREATOR_PKGS) " [join $buildinfo(packages) " "] "
foreach {option value} $buildinfo(options) {
switch -- $option {
"kitdll" {
if {$value} {
set ::env(KITCREATOR_PKGS) "$::env(KITCREATOR_PKGS) kitdll "
}
}
"threaded" {
if {$value} {
lappend args "--enable-threads"
} else {
lappend args "--disable-threads"
}
}
"debug" {
if {$value} {
lappend args "--enable-symbols"
set ::env(STRIP) true
set ::env(KC_TCL_CFLAGS) -DPURIFY=1
set ::env(KC_TK_CFLAGS) -DPURIFY=1
}
}
"storage" {
lappend args "--enable-kit-storage=$value"
}
"dynamictk" {
if {$value} {
if {[lsearch -exact $buildinfo(packages) "tk"] != -1} {
set ::env(STATICTK) -1
}
}
}
"minbuild" {
if {$value} {
set ::env(KITCREATOR_MINENCODINGS) 1
set ::env(KITCREATOR_MINBUILD) 1
}
}
"staticlibssl" {
if {$value} {
set ::env(KC_TLS_LINKSSLSTATIC) 1
}
}
"buildlibssl" {
if {$value} {
set ::env(KC_TLS_BUILDSSL) 1
}
}
"staticpkgs" {
if {$value} {
set ::env(KC_TCL_STATICPKGS) 1
}
}
"tclutfmax6" {
if {$value} {
set ::env(KC_TCL_UTF_MAX) 6
}
}
"staticmk4" {
}
}
}
catch {
exec ./build/pre.sh
}
catch {
file delete "${outfile}.log"
}
catch {
set cmd [list $script $buildinfo(tcl_version) {*}$args]
set fd [open "${outfile}.log" w+]
puts $fd "Running: export KITCREATOR_PKGS=\"$::env(KITCREATOR_PKGS)\""
foreach variable [list STRIP STATICTK KITCREATOR_MINENCODINGS KITCREATOR_MINBUILD KC_TLS_LINKSSLSTATIC KC_TLS_BUILDSSL KC_TCL_STATICPKGS KC_TCL_UTF_MAX KC_TCL_CFLAGS KC_TK_CFLAGS] {
if {[info exists ::env($variable)]} {
puts $fd "Running: export $variable=\"$::env($variable)\""
}
}
puts $fd "Running: $cmd"
close $fd
}
catch {
exec {*}$cmd >> "${outfile}.log" 2>@1
}
catch {
exec grep ^ {*}[lsort -dictionary [glob */build.log]] >> "${outfile}.log"
}
set errfd [open "${outfile}.log" a+]
foreach file [list tclkit-$buildinfo(tcl_version) {*}[glob -nocomplain libtclkit*]] {
set isSDK false
switch -glob -- $file {
"*.dylib" - "*.so" - "*.sl" - "*.dll" { }
"tclkit-*" {}
"libtclkit-sdk-*.tar.gz" {
set isSDK true
}
default {
continue
}
}
if {$isSDK} {
if {[info exists outsdkfile]} {
if {[catch {
handleSDK $workdir $file $outsdkfile
}]} {
puts $errfd "Error creating SDK: $::errorInfo"
puts stderr "Error creating SDK: $::errorInfo"
}
}
continue
}
if {[file exists $file]} {
file rename $file $outfile
break
}
}
if {[info exists outsdkfile]} {
if {![file exists $outsdkfile]} {
puts $errfd "Error: Should have built an SDK, but didn't ?!?"
}
}
close $errfd
if {![file exists $outfile]} {
set fd [open $outfile.buildfail "w+"]
puts $fd "$line"
close $fd
}
cd $outdir
file delete -force $workdir
}
file delete $queue
exit 0