Overview
| Comment: | Updated to create all possible combination of parameters (still requires strict order) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
37af467773e55ef0c3dab9f712508ada |
| User & Date: | rkeene on 2010-02-10 03:36:50 |
| Other Links: | manifest | tags |
Context
|
2010-02-11
| ||
| 13:49 | Added the ability to specify a PLATFORM (defaults to auto-detect) Disabled building of binary packages when PLATFORM is "tcl" Added building Tcllib if PLATFORM is "tcl" check-in: c0fd75de7e user: rkeene tags: trunk | |
|
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 | |
Changes
Modified server/teapot_index from [f9a8f2229a] to [4cfb882ebe].
| ︙ | ︙ | |||
492 493 494 495 496 497 498 499 500 501 502 503 |
close $fd
file rename -force -- $tmpindexfile $indexfile
}
proc create_all_entity_files {dstdir pkginfo_arrlist} {
set entfields $::entity_definition(package)
array set pkginfo $pkginfo_arrlist
set seen_entities [list]
foreach pkgdata [lsort -dictionary [array names pkginfo]] {
| > > > > > > > > > > > > > > > > > > > | | < | | | | | | | | | > | 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 |
close $fd
file rename -force -- $tmpindexfile $indexfile
}
proc create_all_entity_files {dstdir pkginfo_arrlist} {
set entfields $::entity_definition(package)
for {set idx 0} {$idx < [llength $entfields]} {incr idx} {
set fieldname [lindex $entfields $idx]
set fieldname_to_idx($fieldname) $idx
}
set enttypes_list [list]
for {set idx 1} {$idx < int(pow(2, [llength $entfields]))} {incr idx} {
set enttypes_list_cur [list]
for {set subidx 0} {$subidx < [llength $entfields]} {incr subidx} {
if {$idx & (1 << $subidx)} {
lappend enttypes_list_cur [lindex $entfields $subidx]
}
}
lappend enttypes_list $enttypes_list_cur
}
array set pkginfo $pkginfo_arrlist
set seen_entities [list]
foreach pkgdata [lsort -dictionary [array names pkginfo]] {
foreach enttypes $enttypes_list {
unset -nocomplain entity
lappend entity entity package
foreach enttype $enttypes {
set entval [lindex $pkgdata $fieldname_to_idx($enttype)]
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
}
}
}
}
set pkginfo [teapot_index $srcdir]
create_output_index $dstdir $pkginfo
create_output_pkglist $dstdir $pkginfo
|
| ︙ | ︙ |