Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Changed the printing of the symbol tree to be based on table 'preferedparent', and introduced two procs to shorten the fomratting code. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | ae53becda49638f2f84ea03ecb64f4f9 |
| User & Date: | aku 2008-03-02 01:09:16 |
Context
|
2008-03-05
| ||
| 03:24 | Reverting the change of [a5840849d0]. Use of 'preferedparent' is ok. The problem I attempted to fix is properly fixed by looking at the branch changesets as well during import, and by acknowledging that there can be branches which have no changesets committed to them. check-in: 99004d57 user: aku tags: trunk | |
|
2008-03-03
| ||
| 16:50 | Fix a privilege problem in the default page header. check-in: f08599e8 user: drh tags: trunk | |
|
2008-03-02
| ||
| 01:09 | Changed the printing of the symbol tree to be based on table 'preferedparent', and introduced two procs to shorten the fomratting code. check-in: ae53becd user: aku tags: trunk | |
| 01:07 | Fixed typo in a comment, and extended the description of the pass to be more clear. check-in: e3e3d301 user: aku tags: trunk | |
Changes
Changes to tools/cvs2fossil/lib/c2f_pfiltersym.tcl.
530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 |
proc PrintSymbolTree {} {
if {![log visible? 9]} return
array set sym {}
set n 0
set t 0
set c 0
state foreachrow {
SELECT S.name AS xs,
A.name AS stype,
S.commit_count AS cc,
P.name AS xp,
B.name AS ptype
FROM tag T, symbol S, symbol P, symtype A, symtype B
WHERE S.sid = T.sid
AND P.sid = T.lod
AND A.tid = S.type
AND B.tid = P.type
UNION
SELECT S.name AS xs,
A.name AS stype,
S.commit_count AS cc,
P.name AS xp,
B.name AS ptype
FROM branch B, symbol S, symbol P, symtype A, symtype B
WHERE S.sid = B.sid
AND P.sid = B.lod
AND A.tid = S.type
AND B.tid = P.type
} {
lappend sym($xs) $xp $stype $ptype $cc
maxlen n $xs
maxlen t $stype
maxlen t $ptype
maxlen c $cc
}
foreach s [lsort -dict [array names sym]] {
struct::list assign $sym($s) p stype ptype cc
log write 9 filtersym {Tree: [format %-${t}s $stype] ([format %-${c}d $cc]) [format %-${n}s $s] <-- [format %-${t}s $ptype] $p}
}
return
}
# # ## ### ##### ######## #############
## Configuration
pragma -hasinstances no ; # singleton
pragma -hastypeinfo no ; # no introspection
pragma -hastypedestroy no ; # immortal
|
> | < | < < < < < < < < < < | | | > | | < | > > > |
530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 |
proc PrintSymbolTree {} {
if {![log visible? 9]} return
array set sym {}
set n 0
set t 0
set c 0
set p 0
state foreachrow {
SELECT S.name AS xs,
A.name AS stype,
S.commit_count AS cc,
P.name AS xp,
B.name AS ptype
FROM symbol S, preferedparent SP, symbol P, symtype A, symtype B
WHERE SP.sid = S.sid
AND P.sid = SP.pid
AND A.tid = S.type
AND B.tid = P.type
} {
lappend sym($xs) $xp $stype $ptype $cc
maxlen n $xs
maxlen t $stype
maxlen t $ptype
maxlen c $cc
maxlen p $xp
}
foreach xs [lsort -dict [array names sym]] {
struct::list assign $sym($xs) xp stype ptype cc
log write 9 filtersym {Tree: [lj $t $stype] ([dj $c $cc]) [lj $n $xs] <-- [lj $t $ptype] $xp}
}
return
}
proc lj {n s} { ::format %-${n}s $s }
proc dj {n s} { ::format %-${n}d $s }
# # ## ### ##### ######## #############
## Configuration
pragma -hasinstances no ; # singleton
pragma -hastypeinfo no ; # no introspection
pragma -hastypedestroy no ; # immortal
|