Fossil

Check-in [ae53becd]
Login

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ae53becda49638f2f84ea03ecb64f4f9871204a3
User & Date: aku 2008-03-02 01:09:16.000
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
Unified Diff Ignore Whitespace Patch
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
︙︙