Overview
| Comment: | Minor cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
88598f958fbd83ff4ed1ab33dbc8b903 |
| User & Date: | rkeene on 2010-02-10 03:11:01 |
| Other Links: | manifest | tags |
Context
|
2010-02-10
| ||
| 03:36 | Updated to create all possible combination of parameters (still requires strict order) check-in: 37af467773 user: rkeene tags: trunk | |
| 03:11 | Minor cleanup check-in: 88598f958f user: rkeene tags: trunk | |
| 03:00 | Updated to give more information for ActiveState packages check-in: 69fb00861c user: rkeene tags: trunk | |
Changes
Modified server/teapot_index from [bf14c565da] to [f9a8f2229a].
| ︙ | ︙ | |||
298 299 300 301 302 303 304 305 306 307 308 309 |
set pkgdir $currpkginfo(pkgdir)
set multifile $currpkginfo(multifile)
set extfiletail $currpkginfo(extfile)
set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
set regfile [file join $workdir file]
set extfile [file join $workdir $extfiletail]
catch {
file mkdir $workdir
}
if {$multifile} {
| > > > > > < < < < | 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 |
set pkgdir $currpkginfo(pkgdir)
set multifile $currpkginfo(multifile)
set extfiletail $currpkginfo(extfile)
set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
set regfile [file join $workdir file]
set extfile [file join $workdir $extfiletail]
if {[file exists $extfile] && !$force} {
continue
}
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"
|
| ︙ | ︙ | |||
500 501 502 503 504 505 506 |
set seen_entities [list]
foreach pkgdata [lsort -dictionary [array names pkginfo]] {
unset -nocomplain entity
lappend entity entity package
for {set endidx 0} {$endidx < [llength $entfields]} {incr endidx} {
| > > | | | 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 |
set seen_entities [list]
foreach pkgdata [lsort -dictionary [array names pkginfo]] {
unset -nocomplain entity
lappend entity entity package
for {set endidx 0} {$endidx < [llength $entfields]} {incr endidx} {
set enttype [lindex $entfields $endidx]
set entval [lindex $pkgdata $endidx]
lappend entity $enttype
lappend entity $entval
if {[lsearch -exact $seen_entities $entity] != -1} {
continue
}
lappend seen_entities $entity
create_entity_file $entity $dstdir $pkginfo_arrlist
|
| ︙ | ︙ |