207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
set regfile [file join $workdir file]
set extfile [file join $workdir $extfiletail]
catch {
file mkdir $workdir
}
if {$multifile} {
catch {
cd $pkgdir
exec zip -r $extfile .
}
} else {
set origfile [lindex [glob $pkgdir *] 0]
file copy -force -- $origfile $extfile
}
|
|
>
|
>
>
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
set regfile [file join $workdir file]
set extfile [file join $workdir $extfiletail]
catch {
file mkdir $workdir
}
if {$multifile} {
if {[catch {
cd $pkgdir
file delete $extfile
exec zip -r $extfile . -x build.log
} err]} {
puts "Error while zipping: $err"
}
} else {
set origfile [lindex [glob $pkgdir *] 0]
file copy -force -- $origfile $extfile
}
|