Overview
| Comment: | Minor cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 88598f958fbd83ff4ed1ab33dbc8b9031fcda1e6 |
| 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
310
311
312
313
314
315
316
317
318
319
320
...
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
|
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} {
if {[file exists $extfile] && !$force} {
continue
}
if {[catch {
cd $pkgdir
file delete -- $extfile
exec zip -r $extfile . -x build.log
} err]} {
puts "Error while zipping: $err"
................................................................................
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} {
lappend entity [lindex $entfields $endidx]
lappend entity [lindex $pkgdata $endidx]
if {[lsearch -exact $seen_entities $entity] != -1} {
continue
}
lappend seen_entities $entity
create_entity_file $entity $dstdir $pkginfo_arrlist
|
>
>
>
>
>
<
<
<
<
|
|
>
>
|
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
...
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
|
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" ................................................................................ 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 |