93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
catch {
file delete "${outfile}.log"
}
catch {
set cmd [list $script $buildinfo(tcl_version) {*}$args]
set fd [open "${outfile}.log" w+]
puts $fd "Running: $cmd"
close $fd
}
catch {
exec {*}$cmd >> "${outfile}.log" 2>@1
}
|
>
>
>
>
>
>
|
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
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)\""
if {[info exists ::env(STRIP)]} {
puts $fd "Running: export STRIP=\"$::env(STRIP)\""
}
puts $fd "Running: $cmd"
close $fd
}
catch {
exec {*}$cmd >> "${outfile}.log" 2>@1
}
|