Artifact c7b83a7c1c1b9ec99a52853eca61b7d12efac24a:
File
tools/lib/cvs_sig.tcl
part of check-in
[7a64b9e738]
- CVS import. First, fixed sig::next regarding two things. One, we have to take the root version of a file into account as a possible predecessor. Two, a missing changed file may be misclassified and actually be added instead. Second, modified the search for a root changeset of a branch. We now try the existing regular intersection first for exactness, and in case of failure we fall back to a voting scheme to locate the most acceptable aka non-conflicting changeset.
by
aku on
2007-09-27 04:44:19.
0000: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0010: 20 73 74 72 75 63 74 3a 3a 73 65 74 0a 70 61 63 struct::set.pac
0020: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
0030: 3a 63 76 73 3a 3a 77 73 3a 3a 62 72 61 6e 63 68 :cvs::ws::branch
0040: 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c ..namespace eval
0050: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
0060: 73 69 67 3a 3a 62 72 61 6e 63 68 20 7b 0a 20 20 sig::branch {.
0070: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f namespace impo
0080: 72 74 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 rt ::vc::cvs::ws
0090: 3a 3a 62 72 61 6e 63 68 3a 3a 2a 0a 7d 0a 0a 23 ::branch::*.}..#
00a0: 20 53 61 76 65 20 74 68 65 20 6d 61 70 70 69 6e Save the mappin
00b0: 67 20 66 72 6f 6d 20 63 68 61 6e 67 65 73 65 74 g from changeset
00c0: 73 20 74 6f 20 66 69 6c 65 2f 72 65 76 20 73 69 s to file/rev si
00d0: 67 6e 61 74 75 72 65 73 2c 20 61 6e 64 20 66 75 gnatures, and fu
00e0: 72 74 68 65 72 0a 23 20 72 65 6d 65 6d 62 65 72 rther.# remember
00f0: 20 61 6c 6c 20 74 68 65 20 63 73 65 74 73 20 61 all the csets a
0100: 20 73 70 65 63 69 66 69 63 20 66 69 6c 65 2f 72 specific file/r
0110: 65 76 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 62 ev combination b
0120: 65 6c 6f 6e 67 73 20 74 6f 2e 0a 0a 70 72 6f 63 elongs to...proc
0130: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
0140: 73 69 67 3a 3a 64 65 66 20 7b 69 64 20 70 61 72 sig::def {id par
0150: 65 6e 74 20 61 64 64 65 64 20 63 68 61 6e 67 65 ent added change
0160: 64 20 72 65 6d 6f 76 65 64 7d 20 7b 0a 20 20 20 d removed} {.
0170: 20 76 61 72 69 61 62 6c 65 20 73 69 67 0a 20 20 variable sig.
0180: 20 20 76 61 72 69 61 62 6c 65 20 63 73 6c 0a 0a variable csl..
0190: 20 20 20 20 61 72 72 61 79 20 73 65 74 20 6e 65 array set ne
01a0: 77 20 24 73 69 67 28 24 70 61 72 65 6e 74 29 0a w $sig($parent).
01b0: 20 20 20 20 61 72 72 61 79 20 73 65 74 20 6e 65 array set ne
01c0: 77 20 24 61 64 64 65 64 0a 20 20 20 20 61 72 72 w $added. arr
01d0: 61 79 20 73 65 74 20 6e 65 77 20 24 63 68 61 6e ay set new $chan
01e0: 67 65 64 0a 20 20 20 20 66 6f 72 65 61 63 68 20 ged. foreach
01f0: 7b 66 20 72 7d 20 24 72 65 6d 6f 76 65 64 20 7b {f r} $removed {
0200: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 6e 65 77 catch {unset new
0210: 28 24 66 29 7d 7d 0a 20 20 20 20 73 65 74 20 73 ($f)}}. set s
0220: 69 67 28 24 69 64 29 20 5b 44 69 63 74 53 6f 72 ig($id) [DictSor
0230: 74 20 5b 61 72 72 61 79 20 67 65 74 20 6e 65 77 t [array get new
0240: 5d 5d 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 ]].. foreach
0250: 7b 66 20 72 7d 20 5b 61 72 72 61 79 20 67 65 74 {f r} [array get
0260: 20 6e 65 77 5d 20 7b 0a 09 6c 61 70 70 65 6e 64 new] {..lappend
0270: 20 63 73 6c 28 24 66 2c 24 72 29 20 24 69 64 0a csl($f,$r) $id.
0280: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
0290: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
02a0: 76 73 3a 3a 77 73 3a 3a 73 69 67 3a 3a 6e 65 78 vs::ws::sig::nex
02b0: 74 20 7b 69 64 20 61 64 64 65 64 20 63 68 61 6e t {id added chan
02c0: 67 65 64 20 72 65 6d 6f 76 65 64 20 74 61 67 20 ged removed tag
02d0: 74 73 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 ts} {. variab
02e0: 6c 65 20 73 69 67 0a 20 20 20 20 61 72 72 61 79 le sig. array
02f0: 20 73 65 74 20 72 65 76 20 24 73 69 67 28 24 69 set rev $sig($i
0300: 64 29 0a 0a 20 20 20 20 23 70 75 74 73 20 73 69 d).. #puts si
0310: 67 3a 3a 6e 65 78 74 2f 24 74 73 0a 20 20 20 20 g::next/$ts.
0320: 66 6f 72 65 61 63 68 20 7b 66 20 72 7d 20 5b 63 foreach {f r} [c
0330: 6f 6e 63 61 74 20 24 63 68 61 6e 67 65 64 20 24 oncat $changed $
0340: 72 65 6d 6f 76 65 64 5d 20 7b 0a 09 69 66 20 7b removed] {..if {
0350: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 65 ![info exists re
0360: 76 28 24 66 29 5d 7d 20 20 20 20 20 20 20 20 20 v($f)]}
0370: 20 20 20 20 20 7b 0a 0a 09 20 20 20 20 23 20 41 {... # A
0380: 20 66 69 6c 65 20 6d 69 73 73 69 6e 67 20 69 6e file missing in
0390: 20 74 68 65 20 63 61 6e 64 69 64 61 74 65 20 70 the candidate p
03a0: 61 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 20 arent changeset
03b0: 69 73 0a 09 20 20 20 20 23 20 5f 6e 6f 74 5f 20 is.. # _not_
03c0: 61 20 72 65 61 73 6f 6e 20 74 6f 20 72 65 6a 65 a reason to reje
03d0: 63 74 20 69 74 2c 20 61 74 20 6c 65 61 73 74 20 ct it, at least
03e0: 6e 6f 74 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e not immediately.
03f0: 0a 09 20 20 20 20 23 20 54 68 65 20 63 6f 64 65 .. # The code
0400: 20 67 65 6e 65 72 61 74 69 6e 67 20 74 68 65 20 generating the
0410: 74 69 6d 65 6c 69 6e 65 20 65 6e 74 72 69 65 73 timeline entries
0420: 20 68 61 73 20 6f 6e 6c 79 0a 09 20 20 20 20 23 has only.. #
0430: 20 70 61 72 74 69 61 6c 20 69 6e 66 6f 72 6d 61 partial informa
0440: 74 69 6f 6e 20 61 6e 64 20 69 73 20 70 72 6f 6e tion and is pron
0450: 65 20 74 6f 20 6d 69 73 63 6c 61 73 73 69 66 79 e to misclassify
0460: 20 66 69 6c 65 73 0a 09 20 20 20 20 23 20 61 64 files.. # ad
0470: 64 65 64 20 74 6f 20 62 72 61 6e 63 68 65 73 20 ded to branches
0480: 61 73 20 63 68 61 6e 67 65 64 20 69 6e 73 74 65 as changed inste
0490: 61 64 20 6f 66 20 61 64 64 65 64 2e 20 54 68 75 ad of added. Thu
04a0: 73 20 77 65 0a 09 20 20 20 20 23 20 6d 6f 76 65 s we.. # move
04b0: 20 74 68 69 73 20 66 69 6c 65 20 74 6f 20 74 68 this file to th
04c0: 65 20 6c 69 73 74 20 6f 66 20 61 64 64 65 64 20 e list of added
04d0: 74 68 69 6e 67 73 20 61 6e 64 20 63 68 65 63 6b things and check
04e0: 20 69 74 0a 09 20 20 20 20 23 20 61 67 61 69 6e it.. # again
04f0: 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 61 74 as part of that
0500: 2c 20 73 65 65 20 62 65 6c 6f 77 2e 0a 0a 09 20 , see below....
0510: 20 20 20 6c 61 70 70 65 6e 64 20 61 64 64 65 64 lappend added
0520: 20 24 66 20 24 72 0a 09 20 20 20 20 63 6f 6e 74 $f $r.. cont
0530: 69 6e 75 65 0a 09 7d 0a 09 69 66 20 7b 5b 62 72 inue..}..if {[br
0540: 61 6e 63 68 3a 3a 72 6f 6f 74 53 75 63 63 65 73 anch::rootSucces
0550: 73 6f 72 20 24 72 20 24 72 65 76 28 24 66 29 5d sor $r $rev($f)]
0560: 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 69 66 20 7b } continue..if {
0570: 21 5b 62 72 61 6e 63 68 3a 3a 73 75 63 63 65 73 ![branch::succes
0580: 73 6f 72 20 20 20 20 24 72 20 24 72 65 76 28 24 sor $r $rev($
0590: 66 29 5d 7d 20 7b 0a 09 20 20 20 20 23 70 75 74 f)]} {.. #put
05a0: 73 20 22 6e 6f 74 2d 73 75 63 63 65 73 73 6f 72 s "not-successor
05b0: 28 24 72 20 6f 66 20 24 72 65 76 28 24 66 29 29 ($r of $rev($f))
05c0: 22 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 0a ".. return 0.
05d0: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 .}. }.. if
05e0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 64 64 65 {[llength $adde
05f0: 64 5d 7d 20 7b 0a 09 23 20 43 68 65 63 6b 20 74 d]} {..# Check t
0600: 68 61 74 20 61 64 64 65 64 20 66 69 6c 65 73 20 hat added files
0610: 62 65 6c 6f 6e 67 20 74 6f 20 74 68 65 20 62 72 belong to the br
0620: 61 6e 63 68 20 74 6f 6f 21 0a 09 69 66 20 7b 24 anch too!..if {$
0630: 74 61 67 20 6e 65 20 5b 62 72 61 6e 63 68 3a 3a tag ne [branch::
0640: 68 61 73 20 24 74 73 20 24 61 64 64 65 64 5d 7d has $ts $added]}
0650: 20 7b 0a 09 20 20 20 20 23 70 75 74 73 20 22 6e {.. #puts "n
0660: 6f 74 2d 61 64 64 65 64 2d 69 6e 74 6f 2d 73 61 ot-added-into-sa
0670: 6d 65 2d 62 72 61 6e 63 68 22 0a 09 20 20 20 20 me-branch"..
0680: 72 65 74 75 72 6e 20 30 0a 09 7d 0a 20 20 20 20 return 0..}.
0690: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 31 0a 7d }. return 1.}
06a0: 0a 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 ...proc ::vc::cv
06b0: 73 3a 3a 77 73 3a 3a 73 69 67 3a 3a 66 69 6e 64 s::ws::sig::find
06c0: 20 7b 69 64 20 73 69 67 7d 20 7b 0a 20 20 20 20 {id sig} {.
06d0: 73 65 74 20 63 73 6c 69 73 74 20 5b 43 75 74 20 set cslist [Cut
06e0: 24 69 64 20 5b 46 69 6e 64 20 24 73 69 67 5d 5d $id [Find $sig]]
06f0: 0a 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 .. if {[lleng
0700: 74 68 20 24 63 73 6c 69 73 74 5d 20 3c 20 31 7d th $cslist] < 1}
0710: 20 7b 0a 09 70 75 74 73 20 22 4e 4f 20 52 4f 4f {..puts "NO ROO
0720: 54 22 0a 09 23 20 44 65 61 6c 20 68 6f 77 3f 0a T"..# Deal how?.
0730: 09 23 20 2d 20 41 62 6f 72 74 0a 09 23 20 2d 20 .# - Abort..# -
0740: 49 67 6e 6f 72 65 20 74 68 69 73 20 63 68 61 6e Ignore this chan
0750: 67 65 73 65 74 20 61 6e 64 20 74 72 79 20 74 68 geset and try th
0760: 65 20 6e 65 78 74 20 6f 6e 65 0a 09 23 20 20 20 e next one..#
0770: 28 57 68 69 63 68 20 68 61 73 20 68 69 67 68 65 (Which has highe
0780: 72 20 70 72 6f 62 61 62 69 6c 69 74 79 20 6f 66 r probability of
0790: 20 6e 6f 74 20 6d 61 74 63 68 69 6e 67 20 61 73 not matching as
07a0: 20 69 74 20 6d 69 67 68 74 0a 09 23 20 20 20 20 it might..#
07b0: 62 65 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 be the successor
07c0: 20 69 6e 20 74 68 65 20 62 72 61 6e 63 68 20 74 in the branch t
07d0: 6f 20 74 68 69 73 20 63 73 65 74 20 61 6e 64 20 o this cset and
07e0: 6e 6f 74 20 61 20 62 61 73 65 29 2e 0a 09 65 78 not a base)...ex
07f0: 69 74 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20 it. } elseif
0800: 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 73 6c 69 73 {[llength $cslis
0810: 74 5d 20 3e 20 31 7d 20 7b 0a 09 70 75 74 73 20 t] > 1} {..puts
0820: 22 41 4d 42 49 47 4f 55 53 2e 20 46 6f 6c 6c 6f "AMBIGOUS. Follo
0830: 77 69 6e 67 20 63 73 65 74 73 20 6d 61 74 63 68 wing csets match
0840: 20 72 6f 6f 74 20 72 65 71 75 69 72 65 6d 65 6e root requiremen
0850: 74 73 3a 22 0a 09 23 20 44 65 61 6c 20 68 6f 77 ts:"..# Deal how
0860: 3f 20 53 2e 61 2e 0a 09 70 75 74 73 20 5c 74 5b ? S.a...puts \t[
0870: 6a 6f 69 6e 20 24 63 73 6c 69 73 74 20 5c 6e 5c join $cslist \n\
0880: 74 5d 0a 09 65 78 69 74 0a 20 20 20 20 7d 0a 0a t]..exit. }..
0890: 20 20 20 20 73 65 74 20 72 20 5b 6c 69 6e 64 65 set r [linde
08a0: 78 20 24 63 73 6c 69 73 74 20 30 5d 0a 20 20 20 x $cslist 0].
08b0: 20 23 70 75 74 73 20 22 52 4f 4f 54 20 3d 20 24 #puts "ROOT = $
08c0: 72 22 0a 20 20 20 20 72 65 74 75 72 6e 20 24 72 r". return $r
08d0: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
08e0: 76 73 3a 3a 77 73 3a 3a 73 69 67 3a 3a 43 75 74 vs::ws::sig::Cut
08f0: 20 7b 69 64 20 63 73 6c 69 73 74 7d 20 7b 0a 20 {id cslist} {.
0900: 20 20 20 23 20 43 68 61 6e 67 65 73 65 74 73 20 # Changesets
0910: 68 61 76 65 20 74 6f 20 62 65 20 62 65 66 6f 72 have to be befor
0920: 65 20 69 64 21 20 54 68 69 73 20 6d 61 6b 65 73 e id! This makes
0930: 20 66 6f 72 20 61 6e 6f 74 68 65 72 0a 20 20 20 for another.
0940: 20 23 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 2c # intersection,
0950: 20 70 72 6f 67 72 61 6d 6d 61 74 69 63 2e 0a 0a programmatic...
0960: 20 20 20 20 73 65 74 20 72 65 73 20 7b 7d 0a 20 set res {}.
0970: 20 20 20 66 6f 72 65 61 63 68 20 63 20 24 63 73 foreach c $cs
0980: 6c 69 73 74 20 7b 0a 09 69 66 20 7b 24 63 20 3e list {..if {$c >
0990: 3d 20 24 69 64 7d 20 63 6f 6e 74 69 6e 75 65 0a = $id} continue.
09a0: 09 6c 61 70 70 65 6e 64 20 72 65 73 20 24 63 0a .lappend res $c.
09b0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
09c0: 20 24 72 65 73 0a 7d 0a 0a 70 72 6f 63 20 3a 3a $res.}..proc ::
09d0: 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 73 69 67 vc::cvs::ws::sig
09e0: 3a 3a 46 69 6e 64 20 7b 73 69 67 7d 20 7b 0a 20 ::Find {sig} {.
09f0: 20 20 20 23 20 4c 6f 63 61 74 65 20 61 6c 6c 20 # Locate all
0a00: 63 68 61 6e 67 65 73 65 74 73 20 77 68 69 63 68 changesets which
0a10: 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 67 69 76 contain the giv
0a20: 65 6e 20 73 69 67 6e 61 74 75 72 65 2e 0a 0a 20 en signature...
0a30: 20 20 20 23 20 46 69 72 73 74 20 77 65 20 74 72 # First we tr
0a40: 79 20 74 6f 20 74 68 65 20 65 78 61 63 74 20 63 y to the exact c
0a50: 68 61 6e 67 65 73 65 74 2c 20 62 79 20 69 6e 74 hangeset, by int
0a60: 65 72 73 65 63 74 69 6e 67 20 74 68 65 0a 20 20 ersecting the.
0a70: 20 20 23 20 6c 69 76 65 2d 69 6e 74 65 72 76 61 # live-interva
0a80: 6c 73 20 66 6f 72 20 61 6c 6c 20 66 69 6c 65 20 ls for all file
0a90: 72 65 76 69 73 69 6f 6e 73 20 66 6f 75 6e 64 20 revisions found
0aa0: 69 6e 20 74 68 65 0a 20 20 20 20 23 20 73 69 67 in the. # sig
0ab0: 6e 61 74 75 72 65 2e 20 54 68 69 73 20 68 6f 77 nature. This how
0ac0: 65 76 65 72 20 6d 61 79 20 66 61 69 6c 2c 20 61 ever may fail, a
0ad0: 73 20 43 56 53 20 69 73 20 61 62 6c 65 20 74 6f s CVS is able to
0ae0: 20 63 6f 6e 74 61 69 6e 0a 20 20 20 20 23 20 61 contain. # a
0af0: 2d 63 61 75 73 61 6c 20 62 72 61 6e 63 68 20 64 -causal branch d
0b00: 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 0a 20 20 20 efinitions...
0b10: 20 23 20 45 78 61 6d 70 6c 65 3a 20 73 71 6c 69 # Example: sqli
0b20: 74 65 2c 20 62 72 61 6e 63 68 20 22 67 64 62 6d te, branch "gdbm
0b30: 2d 62 72 61 6e 63 68 22 2e 0a 0a 20 20 20 20 23 -branch"... #
0b40: 20 46 69 6c 65 20 27 64 62 2e 63 27 2c 20 62 72 File 'db.c', br
0b50: 61 6e 63 68 20 31 2e 36 2e 32 2c 20 72 6f 6f 74 anch 1.6.2, root
0b60: 20 31 2e 36 2c 20 65 6e 74 65 72 65 64 20 6f 6e 1.6, entered on
0b70: 20 4a 61 6e 20 33 31 2c 20 32 30 30 31 2e 0a 20 Jan 31, 2001..
0b80: 20 20 20 23 20 54 68 65 6e 20 27 64 62 62 65 67 # Then 'dbbeg
0b90: 64 62 6d 2e 63 27 2c 20 20 31 2e 31 2e 32 2c 20 dbm.c', 1.1.2,
0ba0: 72 6f 6f 74 20 31 2e 31 2c 20 65 6e 74 65 72 65 root 1.1, entere
0bb0: 64 20 6f 6e 20 4f 63 74 20 31 39 2c 20 32 30 30 d on Oct 19, 200
0bc0: 30 2e 0a 0a 20 20 20 20 23 20 4d 6f 72 65 20 70 0... # More p
0bd0: 65 72 74 69 6e 65 6e 74 2c 20 72 65 76 69 73 69 ertinent, revisi
0be0: 6f 6e 20 31 2e 32 20 77 61 73 20 65 6e 74 65 72 on 1.2 was enter
0bf0: 65 64 20 4a 61 6e 20 31 33 2c 20 32 30 30 31 2c ed Jan 13, 2001,
0c00: 0a 20 20 20 20 23 20 69 2e 65 2e 20 65 78 69 73 . # i.e. exis
0c10: 74 65 64 20 62 65 66 6f 72 65 20 4a 61 6e 20 33 ted before Jan 3
0c20: 31 2c 20 62 65 66 6f 72 65 20 74 68 65 20 62 72 1, before the br
0c30: 61 6e 63 68 77 61 73 20 61 63 74 75 61 6c 6c 79 anchwas actually
0c40: 0a 20 20 20 20 23 20 6d 61 64 65 2e 20 54 68 75 . # made. Thu
0c50: 73 20 69 74 20 69 73 20 75 6e 63 6c 65 61 72 20 s it is unclear
0c60: 77 68 79 20 31 2e 31 20 69 73 20 69 6e 20 74 68 why 1.1 is in th
0c70: 65 20 62 72 61 6e 63 68 20 69 6e 73 74 65 61 64 e branch instead
0c80: 2e 0a 0a 20 20 20 20 23 20 41 6e 20 61 6c 74 65 ... # An alte
0c90: 72 6e 61 74 69 76 65 20 63 6f 6d 70 6c 65 6d 65 rnative compleme
0ca0: 6e 74 61 72 79 20 71 75 65 73 74 69 6f 6e 20 77 ntary question w
0cb0: 6f 75 6c 64 20 62 65 20 68 6f 77 20 64 62 2e 63 ould be how db.c
0cc0: 20 31 2e 36 0a 20 20 20 20 23 20 65 6e 64 65 64 1.6. # ended
0cd0: 20 75 70 20 69 6e 20 61 20 62 72 61 6e 63 68 20 up in a branch
0ce0: 74 61 67 20 63 72 65 61 74 65 64 20 62 65 66 6f tag created befo
0cf0: 72 65 20 4a 61 6e 20 31 33 2c 20 77 68 65 6e 20 re Jan 13, when
0d00: 74 68 69 73 0a 20 20 20 20 23 20 72 65 76 69 73 this. # revis
0d10: 69 6f 6e 20 64 69 64 20 6e 6f 74 20 65 78 69 73 ion did not exis
0d20: 74 20 79 65 74 2e 0a 0a 20 20 20 20 23 20 53 6f t yet... # So
0d30: 2c 20 43 56 53 20 72 65 70 6f 73 69 74 6f 72 69 , CVS repositori
0d40: 65 73 20 63 61 6e 20 62 65 20 61 2d 63 61 75 73 es can be a-caus
0d50: 61 6c 20 77 68 65 6e 20 69 74 20 63 6f 6d 65 73 al when it comes
0d60: 20 74 6f 20 62 72 61 6e 63 68 65 73 2c 0a 20 20 to branches,.
0d70: 20 20 23 20 61 74 20 6c 65 61 73 74 20 69 6e 20 # at least in
0d80: 74 68 65 20 64 65 74 61 69 6c 73 2e 20 54 68 65 the details. The
0d90: 72 65 66 6f 72 65 20 77 68 69 6c 65 20 74 72 79 refore while try
0da0: 20 66 6f 72 20 61 6e 20 65 78 61 63 74 20 72 65 for an exact re
0db0: 73 75 6c 74 0a 20 20 20 20 23 20 66 69 72 73 74 sult. # first
0dc0: 20 77 65 20 64 6f 20 6e 6f 74 20 66 61 69 6c 20 we do not fail
0dd0: 69 66 20 74 68 61 74 20 66 61 69 6c 73 2c 20 62 if that fails, b
0de0: 75 74 20 75 73 65 20 61 20 76 6f 74 69 6e 67 20 ut use a voting
0df0: 73 63 68 65 6d 65 20 61 73 0a 20 20 20 20 23 20 scheme as. #
0e00: 66 61 6c 6c 62 61 63 6b 20 77 68 69 63 68 20 61 fallback which a
0e10: 6e 73 77 65 72 73 20 74 68 65 20 71 75 65 73 74 nswers the quest
0e20: 69 6f 6e 20 61 62 6f 75 74 20 77 68 69 63 68 20 ion about which
0e30: 63 68 61 6e 67 65 73 65 74 20 69 73 0a 20 20 20 changeset is.
0e40: 20 23 20 61 63 63 65 70 74 61 62 6c 65 20 74 6f # acceptable to
0e50: 20 74 68 65 20 6d 6f 73 74 20 66 69 6c 65 20 72 the most file r
0e60: 65 76 69 73 69 6f 6e 73 20 69 6e 20 74 68 65 20 evisions in the
0e70: 73 69 67 6e 61 74 75 72 65 2e 0a 0a 20 20 20 20 signature...
0e80: 23 20 4e 6f 74 65 20 74 68 61 74 20 6d 75 6c 74 # Note that mult
0e90: 69 70 6c 65 20 63 68 61 6e 67 65 73 65 74 73 20 iple changesets
0ea0: 61 72 65 20 6f 6b 20 61 74 20 74 68 69 73 20 6c are ok at this l
0eb0: 65 76 65 6c 20 61 6e 64 20 61 72 65 0a 20 20 20 evel and are.
0ec0: 20 23 20 73 69 6d 70 6c 79 20 72 65 74 75 72 6e # simply return
0ed0: 65 64 2e 0a 0a 20 20 20 20 73 65 74 20 72 65 73 ed... set res
0ee0: 20 5b 49 6e 74 65 72 73 65 63 74 20 24 73 69 67 [Intersect $sig
0ef0: 5d 0a 20 20 20 20 70 75 74 73 20 45 78 61 63 74 ]. puts Exact
0f00: 3d 28 24 72 65 73 29 0a 0a 20 20 20 20 69 66 20 =($res).. if
0f10: 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 65 73 5d 7d {[llength $res]}
0f20: 20 7b 20 72 65 74 75 72 6e 20 24 72 65 73 20 7d { return $res }
0f30: 0a 0a 20 20 20 20 73 65 74 20 72 65 73 20 5b 56 .. set res [V
0f40: 6f 74 65 20 24 73 69 67 5d 0a 20 20 20 20 70 75 ote $sig]. pu
0f50: 74 73 20 56 6f 74 65 3d 28 24 72 65 73 29 0a 0a ts Vote=($res)..
0f60: 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 0a return $res.
0f70: 7d 0a 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 }...proc ::vc::c
0f80: 76 73 3a 3a 77 73 3a 3a 73 69 67 3a 3a 49 6e 74 vs::ws::sig::Int
0f90: 65 72 73 65 63 74 20 7b 73 69 67 7d 20 7b 0a 20 ersect {sig} {.
0fa0: 20 20 20 76 61 72 69 61 62 6c 65 20 63 73 6c 0a variable csl.
0fb0: 0a 20 20 20 20 73 65 74 20 72 65 73 20 7b 7d 0a . set res {}.
0fc0: 20 20 20 20 73 65 74 20 66 69 72 73 74 20 31 0a set first 1.
0fd0: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 66 20 72 foreach {f r
0fe0: 7d 20 24 73 69 67 20 7b 0a 09 23 70 75 74 73 20 } $sig {..#puts
0ff0: 24 66 2f 24 72 3f 0a 09 23 20 55 6e 6b 6e 6f 77 $f/$r?..# Unknow
1000: 6e 20 66 69 6c 65 20 6e 6f 74 20 75 73 65 64 20 n file not used
1010: 61 6e 79 77 68 65 72 65 0a 09 69 66 20 7b 21 5b anywhere..if {![
1020: 69 6e 66 6f 20 65 78 69 73 74 73 20 63 73 6c 28 info exists csl(
1030: 24 66 2c 24 72 29 5d 7d 20 7b 72 65 74 75 72 6e $f,$r)]} {return
1040: 20 7b 7d 7d 0a 09 23 70 75 74 73 20 24 66 2f 24 {}}..#puts $f/$
1050: 72 5c 74 3d 5c 74 28 24 63 73 6c 28 24 66 2c 24 r\t=\t($csl($f,$
1060: 72 29 29 2a 28 24 72 65 73 29 2f 24 66 69 72 73 r))*($res)/$firs
1070: 74 0a 0a 09 69 66 20 7b 24 66 69 72 73 74 7d 20 t...if {$first}
1080: 7b 0a 09 20 20 20 20 73 65 74 20 72 65 73 20 24 {.. set res $
1090: 63 73 6c 28 24 66 2c 24 72 29 0a 09 20 20 20 20 csl($f,$r)..
10a0: 73 65 74 20 66 69 72 73 74 20 30 0a 09 20 20 20 set first 0..
10b0: 20 23 70 75 74 73 20 46 28 24 72 65 73 29 0a 09 #puts F($res)..
10c0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 73 65 } else {.. se
10d0: 74 20 72 65 73 20 5b 73 74 72 75 63 74 3a 3a 73 t res [struct::s
10e0: 65 74 20 69 6e 74 65 72 73 65 63 74 20 24 72 65 et intersect $re
10f0: 73 20 24 63 73 6c 28 24 66 2c 24 72 29 5d 0a 09 s $csl($f,$r)]..
1100: 20 20 20 20 23 70 75 74 73 20 52 28 24 72 65 73 #puts R($res
1110: 29 0a 09 20 20 20 20 69 66 20 7b 21 5b 6c 6c 65 ).. if {![lle
1120: 6e 67 74 68 20 24 72 65 73 5d 7d 20 7b 72 65 74 ngth $res]} {ret
1130: 75 72 6e 20 7b 7d 7d 0a 09 7d 0a 20 20 20 20 7d urn {}}..}. }
1140: 0a 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 . return $res
1150: 0a 7d 0a 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a .}...proc ::vc::
1160: 63 76 73 3a 3a 77 73 3a 3a 73 69 67 3a 3a 56 6f cvs::ws::sig::Vo
1170: 74 65 20 7b 73 69 67 7d 20 7b 0a 20 20 20 20 76 te {sig} {. v
1180: 61 72 69 61 62 6c 65 20 63 73 6c 0a 0a 20 20 20 ariable csl..
1190: 20 23 20 49 2e 20 41 63 63 75 6d 75 6c 61 74 65 # I. Accumulate
11a0: 20 76 6f 74 65 73 2e 0a 20 20 20 20 61 72 72 61 votes.. arra
11b0: 79 20 73 65 74 20 76 20 7b 7d 0a 20 20 20 20 66 y set v {}. f
11c0: 6f 72 65 61 63 68 20 7b 66 20 72 7d 20 24 73 69 oreach {f r} $si
11d0: 67 20 7b 0a 09 23 20 55 6e 6b 6e 6f 77 6e 20 72 g {..# Unknown r
11e0: 65 76 69 73 69 6f 6e 73 20 64 6f 20 6e 6f 74 20 evisions do not
11f0: 76 6f 74 65 2e 0a 09 69 66 20 7b 21 5b 69 6e 66 vote...if {![inf
1200: 6f 20 65 78 69 73 74 73 20 63 73 6c 28 24 66 2c o exists csl($f,
1210: 24 72 29 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 $r)]} continue..
1220: 66 6f 72 65 61 63 68 20 63 20 24 63 73 6c 28 24 foreach c $csl($
1230: 66 2c 24 72 29 20 7b 0a 09 20 20 20 20 69 66 20 f,$r) {.. if
1240: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 76 28 {[info exists v(
1250: 24 63 29 5d 7d 20 7b 0a 09 09 69 6e 63 72 20 76 $c)]} {...incr v
1260: 28 24 63 29 0a 09 20 20 20 20 7d 20 65 6c 73 65 ($c).. } else
1270: 20 7b 0a 09 09 73 65 74 20 76 28 24 63 29 20 31 {...set v($c) 1
1280: 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d .. }..}. }
1290: 0a 0a 20 20 20 20 23 20 49 6e 76 65 72 74 20 69 .. # Invert i
12a0: 6e 64 65 78 20 66 6f 72 20 65 61 73 69 65 72 20 ndex for easier
12b0: 66 69 6e 64 69 6e 67 20 74 68 65 20 6d 61 78 2c finding the max,
12c0: 20 63 6f 6d 70 75 74 65 20 74 68 65 20 6d 61 78 compute the max
12d0: 20 61 74 20 74 68 65 0a 20 20 20 20 23 20 73 61 at the. # sa
12e0: 6d 65 20 74 69 6d 65 2e 0a 20 20 20 20 61 72 72 me time.. arr
12f0: 61 79 20 73 65 74 20 74 61 6c 6c 79 20 7b 7d 0a ay set tally {}.
1300: 20 20 20 20 73 65 74 20 6d 61 78 20 2d 31 0a 20 set max -1.
1310: 20 20 20 66 6f 72 65 61 63 68 20 7b 63 20 6e 7d foreach {c n}
1320: 20 5b 61 72 72 61 79 20 67 65 74 20 76 5d 20 7b [array get v] {
1330: 0a 09 6c 61 70 70 65 6e 64 20 74 61 6c 6c 79 28 ..lappend tally(
1340: 24 6e 29 20 24 63 0a 09 69 66 20 7b 24 6e 20 3e $n) $c..if {$n >
1350: 20 24 6d 61 78 7d 20 7b 73 65 74 20 6d 61 78 20 $max} {set max
1360: 24 6e 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 $n}. }.. #
1370: 70 61 72 72 61 79 20 74 61 6c 6c 79 0a 20 20 20 parray tally.
1380: 20 70 75 74 73 20 4d 61 78 3d 24 6d 61 78 0a 0a puts Max=$max..
1390: 20 20 20 20 23 20 52 65 74 75 72 6e 20 74 68 65 # Return the
13a0: 20 63 68 61 6e 67 65 73 65 74 73 20 68 61 76 69 changesets havi
13b0: 6e 67 20 74 68 65 20 6d 6f 73 74 20 76 6f 74 65 ng the most vote
13c0: 73 2e 0a 20 20 20 20 72 65 74 75 72 6e 20 24 74 s.. return $t
13d0: 61 6c 6c 79 28 24 6d 61 78 29 0a 7d 0a 0a 0a 70 ally($max).}...p
13e0: 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 roc ::vc::cvs::w
13f0: 73 3a 3a 73 69 67 3a 3a 44 69 63 74 53 6f 72 74 s::sig::DictSort
1400: 20 7b 64 69 63 74 7d 20 7b 0a 20 20 20 20 61 72 {dict} {. ar
1410: 72 61 79 20 73 65 74 20 61 20 24 64 69 63 74 0a ray set a $dict.
1420: 20 20 20 20 73 65 74 20 72 20 7b 7d 0a 20 20 20 set r {}.
1430: 20 66 6f 72 65 61 63 68 20 6b 20 5b 6c 73 6f 72 foreach k [lsor
1440: 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 61 t [array names a
1450: 5d 5d 20 7b 0a 09 6c 61 70 70 65 6e 64 20 72 20 ]] {..lappend r
1460: 24 6b 20 24 61 28 24 6b 29 0a 20 20 20 20 7d 0a $k $a($k). }.
1470: 20 20 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a return $r.}.
1480: 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c ..namespace eval
1490: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
14a0: 73 69 67 20 7b 0a 20 20 20 20 76 61 72 69 61 62 sig {. variab
14b0: 6c 65 20 20 73 69 67 20 3b 20 23 20 63 73 65 74 le sig ; # cset
14c0: 20 69 64 20 2d 3e 20 73 69 67 6e 61 74 75 72 65 id -> signature
14d0: 0a 20 20 20 20 61 72 72 61 79 20 73 65 74 20 73 . array set s
14e0: 69 67 20 7b 7b 7d 20 7b 7d 7d 0a 20 20 20 20 76 ig {{} {}}. v
14f0: 61 72 69 61 62 6c 65 20 20 63 73 6c 20 3b 20 23 ariable csl ; #
1500: 20 66 69 6c 65 20 78 20 72 65 76 20 2d 3e 20 6c file x rev -> l
1510: 69 73 74 20 28 63 73 65 74 20 69 64 29 0a 20 20 ist (cset id).
1520: 20 20 61 72 72 61 79 20 73 65 74 20 63 73 6c 20 array set csl
1530: 7b 7d 0a 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 {}.. namespac
1540: 65 20 65 78 70 6f 72 74 20 64 65 66 20 66 69 6e e export def fin
1550: 64 20 6e 65 78 74 0a 7d 0a 0a 70 61 63 6b 61 67 d next.}..packag
1560: 65 20 70 72 6f 76 69 64 65 20 76 63 3a 3a 63 76 e provide vc::cv
1570: 73 3a 3a 77 73 3a 3a 73 69 67 20 31 2e 30 0a 72 s::ws::sig 1.0.r
1580: 65 74 75 72 6e 0a eturn.