Status: $status" if {[info exists url]} { puts "\t\t
URL: $url" + + if {[info exists sdk_url]} { + puts "\t\t
SDK URL: $sdk_url" + } } if {[info exists description]} { puts "\t\t
Description: $description" } if {[info exists logfile]} { Index: build/web/process_queue ================================================================== --- build/web/process_queue +++ build/web/process_queue @@ -94,11 +94,11 @@ foreach {option value} $buildinfo(options) { switch -- $option { "kitdll" { if {$value} { - set ::env(KITCREATOR_PKGS) "$::env(KITCREATOR_PKGS) kitdll" + set ::env(KITCREATOR_PKGS) "$::env(KITCREATOR_PKGS) kitdll " } } "threaded" { if {$value} { lappend args "--enable-threads" @@ -184,10 +184,11 @@ 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-*" {} @@ -202,10 +203,11 @@ 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 @@ -215,10 +217,18 @@ 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