0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0a 23 ## -*- tcl -*-.#
0010: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
0020: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0030: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 ############.##
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 Copyright (c) 20
0060: 30 37 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 07 Andreas Kupri
0070: 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 es..#.# This sof
0080: 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73 65 tware is license
0090: 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 d as described i
00a0: 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45 4e n the file LICEN
00b0: 53 45 2c 20 77 68 69 63 68 0a 23 20 79 6f 75 20 SE, which.# you
00c0: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 should have rece
00d0: 69 76 65 64 20 61 73 20 70 61 72 74 20 6f 66 20 ived as part of
00e0: 74 68 69 73 20 64 69 73 74 72 69 62 75 74 69 6f this distributio
00f0: 6e 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 74 n..#.# This soft
0100: 77 61 72 65 20 63 6f 6e 73 69 73 74 73 20 6f 66 ware consists of
0110: 20 76 6f 6c 75 6e 74 61 72 79 20 63 6f 6e 74 72 voluntary contr
0120: 69 62 75 74 69 6f 6e 73 20 6d 61 64 65 20 62 79 ibutions made by
0130: 20 6d 61 6e 79 0a 23 20 69 6e 64 69 76 69 64 75 many.# individu
0140: 61 6c 73 2e 20 20 46 6f 72 20 65 78 61 63 74 20 als. For exact
0150: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 20 68 69 73 contribution his
0160: 74 6f 72 79 2c 20 73 65 65 20 74 68 65 20 72 65 tory, see the re
0170: 76 69 73 69 6f 6e 0a 23 20 68 69 73 74 6f 72 79 vision.# history
0180: 20 61 6e 64 20 6c 6f 67 73 2c 20 61 76 61 69 6c and logs, avail
0190: 61 62 6c 65 20 61 74 20 68 74 74 70 3a 2f 2f 66 able at http://f
01a0: 6f 73 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e ossil-scm.hwaci.
01b0: 63 6f 6d 2f 66 6f 73 73 69 6c 0a 23 20 23 20 23 com/fossil.# # #
01c0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
01d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
01e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
01f0: 23 23 23 23 23 23 23 23 0a 0a 23 23 20 52 65 76 ########..## Rev
0200: 69 73 69 6f 6e 73 20 70 65 72 20 70 72 6f 6a 65 isions per proje
0210: 63 74 2c 20 61 6b 61 20 43 68 61 6e 67 65 73 65 ct, aka Changese
0220: 74 73 2e 20 54 68 65 73 65 20 6f 62 6a 65 63 74 ts. These object
0230: 73 20 61 72 65 20 66 69 72 73 74 20 75 73 65 64 s are first used
0240: 0a 23 23 20 69 6e 20 70 61 73 73 20 35 2c 20 77 .## in pass 5, w
0250: 68 69 63 68 20 63 72 65 61 74 65 73 20 74 68 65 hich creates the
0260: 20 69 6e 69 74 69 61 6c 20 73 65 74 20 63 6f 76 initial set cov
0270: 65 72 69 6e 67 20 74 68 65 20 72 65 70 6f 73 69 ering the reposi
0280: 74 6f 72 79 2e 0a 0a 23 20 23 20 23 23 20 23 23 tory...# # ## ##
0290: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
02a0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
02b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02c0: 23 23 23 23 0a 23 23 20 52 65 71 75 69 72 65 6d ####.## Requirem
02d0: 65 6e 74 73 0a 0a 70 61 63 6b 61 67 65 20 72 65 ents..package re
02e0: 71 75 69 72 65 20 54 63 6c 20 38 2e 34 20 20 20 quire Tcl 8.4
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0300: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
0310: 52 65 71 75 69 72 65 64 20 72 75 6e 74 69 6d 65 Required runtime
0320: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0330: 65 20 73 6e 69 74 20 20 20 20 20 20 20 20 20 20 e snit
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0350: 20 20 20 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 ; # OO s
0360: 79 73 74 65 6d 2e 0a 70 61 63 6b 61 67 65 20 72 ystem..package r
0370: 65 71 75 69 72 65 20 73 74 72 75 63 74 3a 3a 73 equire struct::s
0380: 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 et
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
03a0: 20 53 65 74 20 6f 70 65 72 61 74 69 6f 6e 73 2e Set operations.
03b0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
03c0: 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 vc::tools::misc
03d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03e0: 20 20 20 20 20 20 20 3b 20 23 20 54 65 78 74 20 ; # Text
03f0: 66 6f 72 6d 61 74 74 69 6e 67 0a 70 61 63 6b 61 formatting.packa
0400: 67 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 74 ge require vc::t
0410: 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 20 20 ools::trouble
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0430: 20 3b 20 23 20 45 72 72 6f 72 20 72 65 70 6f 72 ; # Error repor
0440: 74 69 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 ting..package re
0450: 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a quire vc::tools:
0460: 3a 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 :log
0470: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
0480: 55 73 65 72 20 66 65 65 64 62 61 63 6b 2e 0a 70 User feedback..p
0490: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 ackage require v
04a0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
04b0: 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 20 20 20 t::cvs::state
04c0: 20 20 20 20 20 3b 20 23 20 53 74 61 74 65 20 73 ; # State s
04d0: 74 6f 72 61 67 65 2e 0a 70 61 63 6b 61 67 65 20 torage..package
04e0: 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 require vc::foss
04f0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
0500: 3a 69 6e 74 65 67 72 69 74 79 20 20 20 20 3b 20 :integrity ;
0510: 23 20 53 74 61 74 65 20 69 6e 74 65 67 72 69 74 # State integrit
0520: 79 20 63 68 65 63 6b 73 2e 0a 0a 23 20 23 20 23 y checks...# # #
0530: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
0540: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
0550: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0560: 23 23 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e 69 ########.##..sni
0570: 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f t::type ::vc::fo
0580: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0590: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 s::project::rev
05a0: 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 {. # # ## ###
05b0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
05c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
05d0: 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 0a ## Public API.
05e0: 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f 72 . constructor
05f0: 20 7b 70 72 6f 6a 65 63 74 20 63 73 74 79 70 65 {project cstype
0600: 20 73 72 63 69 64 20 69 74 65 6d 73 20 7b 74 68 srcid items {th
0610: 65 69 64 20 7b 7d 7d 7d 20 7b 0a 09 69 66 20 7b eid {}}} {..if {
0620: 24 74 68 65 69 64 20 6e 65 20 22 22 7d 20 7b 0a $theid ne ""} {.
0630: 09 20 20 20 20 73 65 74 20 6d 79 69 64 20 24 74 . set myid $t
0640: 68 65 69 64 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 heid..} else {..
0650: 20 20 20 20 73 65 74 20 6d 79 69 64 20 5b 69 6e set myid [in
0660: 63 72 20 6d 79 63 6f 75 6e 74 65 72 5d 0a 09 7d cr mycounter]..}
0670: 0a 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 ...integrity ass
0680: 65 72 74 20 7b 0a 09 20 20 20 20 5b 69 6e 66 6f ert {.. [info
0690: 20 65 78 69 73 74 73 20 6d 79 63 73 74 79 70 65 exists mycstype
06a0: 28 24 63 73 74 79 70 65 29 5d 0a 09 7d 20 7b 42 ($cstype)]..} {B
06b0: 61 64 20 63 68 61 6e 67 65 73 65 74 20 74 79 70 ad changeset typ
06c0: 65 20 27 24 63 73 74 79 70 65 27 2e 7d 0a 0a 09 e '$cstype'.}...
06d0: 73 65 74 20 6d 79 70 72 6f 6a 65 63 74 20 20 20 set myproject
06e0: 24 70 72 6f 6a 65 63 74 0a 09 73 65 74 20 6d 79 $project..set my
06f0: 74 79 70 65 20 20 20 20 20 20 24 63 73 74 79 70 type $cstyp
0700: 65 0a 09 73 65 74 20 6d 79 74 79 70 65 6f 62 6a e..set mytypeobj
0710: 20 20 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a ::vc::fossil:
0720: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 :import::cvs::pr
0730: 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 24 7b 63 73 oject::rev::${cs
0740: 74 79 70 65 7d 0a 09 73 65 74 20 6d 79 73 72 63 type}..set mysrc
0750: 69 64 09 24 73 72 63 69 64 0a 09 73 65 74 20 6d id.$srcid..set m
0760: 79 69 74 65 6d 73 20 20 20 20 20 24 69 74 65 6d yitems $item
0770: 73 0a 09 73 65 74 20 6d 79 70 6f 73 20 20 20 20 s..set mypos
0780: 20 20 20 7b 7d 20 3b 20 23 20 43 6f 6d 6d 69 74 {} ; # Commit
0790: 20 6c 6f 63 61 74 69 6f 6e 20 69 73 20 6e 6f 74 location is not
07a0: 20 6b 6e 6f 77 6e 20 79 65 74 2e 0a 0a 09 23 20 known yet....#
07b0: 4b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 74 68 Keep track of th
07c0: 65 20 67 65 6e 65 72 61 74 65 64 20 63 68 61 6e e generated chan
07d0: 67 65 73 65 74 73 20 61 6e 64 20 6f 66 20 74 68 gesets and of th
07e0: 65 20 69 6e 76 65 72 73 65 0a 09 23 20 6d 61 70 e inverse..# map
07f0: 70 69 6e 67 20 66 72 6f 6d 20 69 74 65 6d 73 20 ping from items
0800: 74 6f 20 74 68 65 6d 2e 0a 09 6c 61 70 70 65 6e to them...lappen
0810: 64 20 6d 79 63 68 61 6e 67 65 73 65 74 73 20 20 d mychangesets
0820: 20 24 73 65 6c 66 0a 09 6c 61 70 70 65 6e 64 20 $self..lappend
0830: 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 24 63 mytchangesets($c
0840: 73 74 79 70 65 29 20 24 73 65 6c 66 0a 09 73 65 stype) $self..se
0850: 74 20 20 20 20 20 6d 79 69 64 6d 61 70 28 24 6d t myidmap($m
0860: 79 69 64 29 20 24 73 65 6c 66 0a 09 66 6f 72 65 yid) $self..fore
0870: 61 63 68 20 69 69 64 20 24 69 74 65 6d 73 20 7b ach iid $items {
0880: 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c .. set key [l
0890: 69 73 74 20 24 63 73 74 79 70 65 20 24 69 69 64 ist $cstype $iid
08a0: 5d 0a 09 20 20 20 20 73 65 74 20 6d 79 69 74 65 ].. set myite
08b0: 6d 6d 61 70 28 24 6b 65 79 29 20 24 73 65 6c 66 mmap($key) $self
08c0: 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 .. lappend my
08d0: 74 69 74 65 6d 73 20 24 6b 65 79 0a 09 20 20 20 titems $key..
08e0: 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 log write 8 cse
08f0: 74 73 20 7b 4d 41 50 2b 20 69 74 65 6d 20 3c 24 ts {MAP+ item <$
0900: 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b 24 73 key> $self = [$s
0910: 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 09 72 65 elf str]}..}..re
0920: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
0930: 6d 65 74 68 6f 64 20 73 74 72 20 7b 7d 20 7b 0a method str {} {.
0940: 09 73 65 74 20 73 74 72 20 20 20 20 22 3c 22 0a .set str "<".
0950: 09 73 65 74 20 64 65 74 61 69 6c 20 22 22 0a 09 .set detail ""..
0960: 69 66 20 7b 5b 24 6d 79 74 79 70 65 6f 62 6a 20 if {[$mytypeobj
0970: 62 79 73 79 6d 62 6f 6c 5d 7d 20 7b 0a 09 20 20 bysymbol]} {..
0980: 20 20 73 65 74 20 64 65 74 61 69 6c 20 22 20 27 set detail " '
0990: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 0a 09 09 53 [state one {...S
09a0: 45 4c 45 43 54 20 53 2e 6e 61 6d 65 0a 09 09 46 ELECT S.name...F
09b0: 52 4f 4d 20 20 20 73 79 6d 62 6f 6c 20 53 0a 09 ROM symbol S..
09c0: 09 57 48 45 52 45 20 20 53 2e 73 69 64 20 3d 20 .WHERE S.sid =
09d0: 24 6d 79 73 72 63 69 64 0a 09 20 20 20 20 7d 5d $mysrcid.. }]
09e0: 27 22 0a 09 7d 0a 09 61 70 70 65 6e 64 20 73 74 '"..}..append st
09f0: 72 20 22 24 6d 79 74 79 70 65 20 24 7b 6d 79 69 r "$mytype ${myi
0a00: 64 7d 24 7b 64 65 74 61 69 6c 7d 3e 22 0a 09 72 d}${detail}>"..r
0a10: 65 74 75 72 6e 20 24 73 74 72 0a 20 20 20 20 7d eturn $str. }
0a20: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 64 20 .. method id
0a30: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 {} { return $
0a40: 6d 79 69 64 20 7d 0a 20 20 20 20 6d 65 74 68 6f myid }. metho
0a50: 64 20 69 74 65 6d 73 20 7b 7d 20 7b 20 72 65 74 d items {} { ret
0a60: 75 72 6e 20 24 6d 79 74 69 74 65 6d 73 20 7d 0a urn $mytitems }.
0a70: 20 20 20 20 6d 65 74 68 6f 64 20 64 61 74 61 20 method data
0a80: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c 69 {} { return [li
0a90: 73 74 20 24 6d 79 70 72 6f 6a 65 63 74 20 24 6d st $myproject $m
0aa0: 79 74 79 70 65 20 24 6d 79 73 72 63 69 64 5d 20 ytype $mysrcid]
0ab0: 7d 0a 0a 20 20 20 20 64 65 6c 65 67 61 74 65 20 }.. delegate
0ac0: 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c 20 method bysymbol
0ad0: 20 20 74 6f 20 6d 79 74 79 70 65 6f 62 6a 0a 20 to mytypeobj.
0ae0: 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74 68 delegate meth
0af0: 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 74 6f od byrevision to
0b00: 20 6d 79 74 79 70 65 6f 62 6a 0a 20 20 20 20 64 mytypeobj. d
0b10: 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 69 elegate method i
0b20: 73 62 72 61 6e 63 68 20 20 20 74 6f 20 6d 79 74 sbranch to myt
0b30: 79 70 65 6f 62 6a 0a 20 20 20 20 64 65 6c 65 67 ypeobj. deleg
0b40: 61 74 65 20 6d 65 74 68 6f 64 20 69 73 74 61 67 ate method istag
0b50: 20 20 20 20 20 20 74 6f 20 6d 79 74 79 70 65 6f to mytypeo
0b60: 62 6a 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 bj.. method s
0b70: 65 74 70 6f 73 20 7b 70 7d 20 7b 20 73 65 74 20 etpos {p} { set
0b80: 6d 79 70 6f 73 20 24 70 20 3b 20 72 65 74 75 72 mypos $p ; retur
0b90: 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 n }. method p
0ba0: 6f 73 20 20 20 20 7b 7d 20 20 7b 20 72 65 74 75 os {} { retu
0bb0: 72 6e 20 24 6d 79 70 6f 73 20 7d 0a 0a 20 20 20 rn $mypos }..
0bc0: 20 6d 65 74 68 6f 64 20 64 65 74 65 72 6d 69 6e method determin
0bd0: 65 73 75 63 63 65 73 73 6f 72 73 20 7b 7d 20 7b esuccessors {} {
0be0: 0a 09 23 20 50 61 73 73 20 36 20 6f 70 65 72 61 ..# Pass 6 opera
0bf0: 74 69 6f 6e 2e 20 43 6f 6d 70 75 74 65 20 70 72 tion. Compute pr
0c00: 6f 6a 65 63 74 2d 6c 65 76 65 6c 20 64 65 70 65 oject-level depe
0c10: 6e 64 65 6e 63 69 65 73 20 66 72 6f 6d 0a 09 23 ndencies from..#
0c20: 20 74 68 65 20 66 69 6c 65 2d 6c 65 76 65 6c 20 the file-level
0c30: 64 61 74 61 20 61 6e 64 20 73 61 76 65 20 69 74 data and save it
0c40: 20 62 61 63 6b 20 74 6f 20 74 68 65 20 73 74 61 back to the sta
0c50: 74 65 2e 20 54 68 69 73 20 6d 61 79 0a 09 23 20 te. This may..#
0c60: 62 65 20 63 61 6c 6c 65 64 20 64 75 72 69 6e 67 be called during
0c70: 20 74 68 65 20 63 79 63 6c 65 20 62 72 65 61 6b the cycle break
0c80: 65 72 20 70 61 73 73 65 73 20 61 73 20 77 65 6c er passes as wel
0c90: 6c 2c 20 74 6f 20 61 64 6a 75 73 74 0a 09 23 20 l, to adjust..#
0ca0: 74 68 65 20 73 75 63 63 65 73 73 6f 72 20 69 6e the successor in
0cb0: 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 20 63 68 61 formation of cha
0cc0: 6e 67 65 73 65 74 73 20 77 68 69 63 68 20 61 72 ngesets which ar
0cd0: 65 20 74 68 65 0a 09 23 20 70 72 65 64 65 63 65 e the..# predece
0ce0: 73 73 6f 72 73 20 6f 66 20 64 72 6f 70 70 65 64 ssors of dropped
0cf0: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 46 6f 72 changesets. For
0d00: 20 74 68 65 6d 20 77 65 20 68 61 76 65 20 74 6f them we have to
0d10: 0a 09 23 20 72 65 6d 6f 76 65 20 74 68 65 69 72 ..# remove their
0d20: 20 65 78 69 73 74 69 6e 67 20 69 6e 66 6f 72 6d existing inform
0d30: 61 74 69 6f 6e 20 66 69 72 73 74 20 62 65 66 6f ation first befo
0d40: 72 65 20 69 6e 73 65 72 74 69 6e 67 20 74 68 65 re inserting the
0d50: 0a 09 23 20 6e 65 77 20 64 61 74 61 2e 0a 09 73 ..# new data...s
0d60: 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 tate run {..
0d70: 44 45 4c 45 54 45 20 46 52 4f 4d 20 63 73 73 75 DELETE FROM cssu
0d80: 63 63 65 73 73 6f 72 20 57 48 45 52 45 20 63 69 ccessor WHERE ci
0d90: 64 20 3d 20 24 6d 79 69 64 3b 0a 09 7d 0a 09 73 d = $myid;..}..s
0da0: 65 74 20 6c 6f 6f 70 20 30 0a 09 66 6f 72 65 61 et loop 0..forea
0db0: 63 68 20 6e 69 64 20 5b 24 6d 79 74 79 70 65 6f ch nid [$mytypeo
0dc0: 62 6a 20 63 73 5f 73 75 63 63 65 73 73 6f 72 73 bj cs_successors
0dd0: 20 24 6d 79 69 74 65 6d 73 5d 20 7b 0a 09 20 20 $myitems] {..
0de0: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
0df0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 73 73 75 INSERT INTO cssu
0e00: 63 63 65 73 73 6f 72 20 28 63 69 64 2c 20 20 6e ccessor (cid, n
0e10: 69 64 29 0a 09 09 56 41 4c 55 45 53 20 20 20 20 id)...VALUES
0e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 ($
0e30: 6d 79 69 64 2c 24 6e 69 64 29 0a 09 20 20 20 20 myid,$nid)..
0e40: 7d 0a 09 20 20 20 20 69 66 20 7b 24 6e 69 64 20 }.. if {$nid
0e50: 3d 3d 20 24 6d 79 69 64 7d 20 7b 20 73 65 74 20 == $myid} { set
0e60: 6c 6f 6f 70 20 31 20 7d 0a 09 7d 0a 09 23 20 52 loop 1 }..}..# R
0e70: 65 70 6f 72 74 20 61 66 74 65 72 20 74 68 65 20 eport after the
0e80: 63 6f 6d 70 6c 65 74 65 20 73 74 72 75 63 74 75 complete structu
0e90: 72 65 20 68 61 73 20 62 65 65 6e 20 73 61 76 65 re has been save
0ea0: 64 2e 0a 09 69 66 20 7b 24 6c 6f 6f 70 7d 20 7b d...if {$loop} {
0eb0: 20 24 73 65 6c 66 20 72 65 70 6f 72 74 6c 6f 6f $self reportloo
0ec0: 70 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 p }..return.
0ed0: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
0ee0: 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 65 = list (changese
0ef0: 74 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 75 t). method su
0f00: 63 63 65 73 73 6f 72 73 20 7b 7d 20 7b 0a 09 23 ccessors {} {..#
0f10: 20 55 73 65 20 74 68 65 20 64 61 74 61 20 73 61 Use the data sa
0f20: 76 65 64 20 62 79 20 70 61 73 73 20 36 2e 0a 09 ved by pass 6...
0f30: 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 3a 3a return [struct::
0f40: 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 74 65 20 list map [state
0f50: 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 run {.. SELEC
0f60: 54 20 53 2e 6e 69 64 0a 09 20 20 20 20 46 52 4f T S.nid.. FRO
0f70: 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 20 M cssuccessor
0f80: 53 0a 09 20 20 20 20 57 48 45 52 45 20 20 53 2e S.. WHERE S.
0f90: 63 69 64 20 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 cid = $myid..}]
0fa0: 5b 6d 79 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 [mytypemethod of
0fb0: 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 ]]. }.. #
0fc0: 72 65 73 75 6c 74 20 3d 20 64 69 63 74 20 28 69 result = dict (i
0fd0: 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 63 68 61 tem -> list (cha
0fe0: 6e 67 65 73 65 74 29 29 0a 20 20 20 20 6d 65 74 ngeset)). met
0ff0: 68 6f 64 20 73 75 63 63 65 73 73 6f 72 6d 61 70 hod successormap
1000: 20 7b 7d 20 7b 0a 09 23 20 4e 4f 54 45 20 2f 20 {} {..# NOTE /
1010: 46 55 54 55 52 45 3a 20 44 65 66 69 6e 69 74 69 FUTURE: Definiti
1020: 76 65 20 62 6f 74 74 6c 65 6e 65 63 6b 20 28 63 ve bottleneck (c
1030: 61 6e 20 62 65 20 6d 69 6c 6c 69 6f 6e 73 20 6f an be millions o
1040: 66 20 70 61 69 72 73 29 2e 0a 09 23 0a 09 23 20 f pairs)...#..#
1050: 4f 6e 6c 79 20 75 73 65 72 20 69 73 20 70 61 73 Only user is pas
1060: 73 20 39 2c 20 63 6f 6d 70 75 74 69 6e 67 20 74 s 9, computing t
1070: 68 65 20 6c 69 6d 69 74 73 20 6f 66 20 62 61 63 he limits of bac
1080: 6b 77 61 72 64 0a 09 23 20 62 72 61 6e 63 68 65 kward..# branche
1090: 73 20 70 65 72 20 62 72 61 6e 63 68 20 69 6e 20 s per branch in
10a0: 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 54 the changeset. T
10b0: 4f 44 4f 3a 20 46 6f 6c 64 20 74 68 61 74 20 69 ODO: Fold that i
10c0: 6e 74 6f 0a 09 23 20 74 68 65 20 53 51 4c 20 71 nto..# the SQL q
10d0: 75 65 72 79 2c 20 69 2e 65 2e 20 6d 6f 76 65 20 uery, i.e. move
10e0: 74 68 65 20 63 72 75 6e 63 68 69 6e 67 20 66 72 the crunching fr
10f0: 6f 6d 20 54 63 6c 20 74 6f 20 43 2e 0a 0a 09 61 om Tcl to C....a
1100: 72 72 61 79 20 73 65 74 20 74 6d 70 20 7b 7d 0a rray set tmp {}.
1110: 09 66 6f 72 65 61 63 68 20 7b 72 65 76 20 63 68 .foreach {rev ch
1120: 69 6c 64 72 65 6e 7d 20 5b 24 73 65 6c 66 20 6e ildren} [$self n
1130: 65 78 74 6d 61 70 5d 20 7b 0a 09 20 20 20 20 66 extmap] {.. f
1140: 6f 72 65 61 63 68 20 63 68 69 6c 64 20 24 63 68 oreach child $ch
1150: 69 6c 64 72 65 6e 20 7b 0a 09 09 6c 61 70 70 65 ildren {...lappe
1160: 6e 64 20 74 6d 70 28 24 72 65 76 29 20 24 6d 79 nd tmp($rev) $my
1170: 69 74 65 6d 6d 61 70 28 24 63 68 69 6c 64 29 0a itemmap($child).
1180: 09 20 20 20 20 7d 0a 09 20 20 20 20 73 65 74 20 . }.. set
1190: 74 6d 70 28 24 72 65 76 29 20 5b 6c 73 6f 72 74 tmp($rev) [lsort
11a0: 20 2d 75 6e 69 71 75 65 20 24 74 6d 70 28 24 72 -unique $tmp($r
11b0: 65 76 29 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 20 ev)]..}..return
11c0: 5b 61 72 72 61 79 20 67 65 74 20 74 6d 70 5d 0a [array get tmp].
11d0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 }.. # res
11e0: 75 6c 74 20 3d 20 64 69 63 74 20 28 69 74 65 6d ult = dict (item
11f0: 20 2d 3e 20 6c 69 73 74 20 28 63 68 61 6e 67 65 -> list (change
1200: 73 65 74 29 29 0a 20 20 20 20 6d 65 74 68 6f 64 set)). method
1210: 20 70 72 65 64 65 63 65 73 73 6f 72 6d 61 70 20 predecessormap
1220: 7b 7d 20 7b 0a 09 23 20 4e 4f 54 45 20 2f 20 46 {} {..# NOTE / F
1230: 55 54 55 52 45 3a 20 44 65 66 69 6e 69 74 69 76 UTURE: Definitiv
1240: 65 20 62 6f 74 74 6c 65 6e 65 63 6b 20 28 63 61 e bottleneck (ca
1250: 6e 20 62 65 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 n be millions of
1260: 20 70 61 69 72 73 29 2e 0a 09 23 0a 09 23 20 4f pairs)...#..# O
1270: 6e 6c 79 20 75 73 65 72 20 69 73 20 70 61 73 73 nly user is pass
1280: 20 39 2c 20 63 6f 6d 70 75 74 69 6e 67 20 74 68 9, computing th
1290: 65 20 6c 69 6d 69 74 73 20 6f 66 20 62 61 63 6b e limits of back
12a0: 77 61 72 64 0a 09 23 20 62 72 61 6e 63 68 65 73 ward..# branches
12b0: 20 70 65 72 20 62 72 61 6e 63 68 20 69 6e 20 74 per branch in t
12c0: 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 54 4f he changeset. TO
12d0: 44 4f 3a 20 46 6f 6c 64 20 74 68 61 74 20 69 6e DO: Fold that in
12e0: 74 6f 0a 09 23 20 74 68 65 20 53 51 4c 20 71 75 to..# the SQL qu
12f0: 65 72 79 2c 20 69 2e 65 2e 20 6d 6f 76 65 20 74 ery, i.e. move t
1300: 68 65 20 63 72 75 6e 63 68 69 6e 67 20 66 72 6f he crunching fro
1310: 6d 20 54 63 6c 20 74 6f 20 43 2e 0a 0a 09 61 72 m Tcl to C....ar
1320: 72 61 79 20 73 65 74 20 74 6d 70 20 7b 7d 0a 09 ray set tmp {}..
1330: 66 6f 72 65 61 63 68 20 7b 72 65 76 20 63 68 69 foreach {rev chi
1340: 6c 64 72 65 6e 7d 20 5b 24 73 65 6c 66 20 70 72 ldren} [$self pr
1350: 65 6d 61 70 5d 20 7b 0a 09 20 20 20 20 66 6f 72 emap] {.. for
1360: 65 61 63 68 20 63 68 69 6c 64 20 24 63 68 69 6c each child $chil
1370: 64 72 65 6e 20 7b 0a 09 09 6c 61 70 70 65 6e 64 dren {...lappend
1380: 20 74 6d 70 28 24 72 65 76 29 20 24 6d 79 69 74 tmp($rev) $myit
1390: 65 6d 6d 61 70 28 24 63 68 69 6c 64 29 0a 09 20 emmap($child)..
13a0: 20 20 20 7d 0a 09 20 20 20 20 73 65 74 20 74 6d }.. set tm
13b0: 70 28 24 72 65 76 29 20 5b 6c 73 6f 72 74 20 2d p($rev) [lsort -
13c0: 75 6e 69 71 75 65 20 24 74 6d 70 28 24 72 65 76 unique $tmp($rev
13d0: 29 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 20 5b 61 )]..}..return [a
13e0: 72 72 61 79 20 67 65 74 20 74 6d 70 5d 0a 20 20 rray get tmp].
13f0: 20 20 7d 0a 0a 20 20 20 20 23 20 69 74 65 6d 20 }.. # item
1400: 2d 3e 20 6c 69 73 74 20 28 69 74 65 6d 29 0a 20 -> list (item).
1410: 20 20 20 6d 65 74 68 6f 64 20 6e 65 78 74 6d 61 method nextma
1420: 70 20 7b 7d 20 7b 0a 09 23 69 66 20 7b 5b 6c 6c p {} {..#if {[ll
1430: 65 6e 67 74 68 20 24 6d 79 6e 65 78 74 6d 61 70 ength $mynextmap
1440: 5d 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 6e ]} { return $myn
1450: 65 78 74 6d 61 70 20 7d 0a 09 24 6d 79 74 79 70 extmap }..$mytyp
1460: 65 6f 62 6a 20 73 75 63 63 65 73 73 6f 72 73 20 eobj successors
1470: 74 6d 70 20 24 6d 79 69 74 65 6d 73 0a 09 72 65 tmp $myitems..re
1480: 74 75 72 6e 20 5b 61 72 72 61 79 20 67 65 74 20 turn [array get
1490: 74 6d 70 5d 0a 09 23 73 65 74 20 6d 79 6e 65 78 tmp]..#set mynex
14a0: 74 6d 61 70 20 5b 61 72 72 61 79 20 67 65 74 20 tmap [array get
14b0: 74 6d 70 5d 0a 09 23 72 65 74 75 72 6e 20 24 6d tmp]..#return $m
14c0: 79 6e 65 78 74 6d 61 70 0a 20 20 20 20 7d 0a 0a ynextmap. }..
14d0: 20 20 20 20 23 20 69 74 65 6d 20 2d 3e 20 6c 69 # item -> li
14e0: 73 74 20 28 69 74 65 6d 29 0a 20 20 20 20 6d 65 st (item). me
14f0: 74 68 6f 64 20 70 72 65 6d 61 70 20 7b 7d 20 7b thod premap {} {
1500: 0a 09 23 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 ..#if {[llength
1510: 24 6d 79 70 72 65 6d 61 70 5d 7d 20 7b 20 72 65 $mypremap]} { re
1520: 74 75 72 6e 20 24 6d 79 70 72 65 6d 61 70 20 7d turn $mypremap }
1530: 0a 09 24 6d 79 74 79 70 65 6f 62 6a 20 70 72 65 ..$mytypeobj pre
1540: 64 65 63 65 73 73 6f 72 73 20 74 6d 70 20 24 6d decessors tmp $m
1550: 79 69 74 65 6d 73 0a 09 72 65 74 75 72 6e 20 5b yitems..return [
1560: 61 72 72 61 79 20 67 65 74 20 74 6d 70 5d 0a 09 array get tmp]..
1570: 23 73 65 74 20 6d 79 70 72 65 6d 61 70 20 5b 61 #set mypremap [a
1580: 72 72 61 79 20 67 65 74 20 74 6d 70 5d 0a 09 23 rray get tmp]..#
1590: 72 65 74 75 72 6e 20 24 6d 79 70 72 65 6d 61 70 return $mypremap
15a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
15b0: 6f 64 20 62 72 65 61 6b 69 6e 74 65 72 6e 61 6c od breakinternal
15c0: 64 65 70 65 6e 64 65 6e 63 69 65 73 20 7b 7d 20 dependencies {}
15d0: 7b 0a 0a 09 23 23 0a 09 23 23 20 4e 4f 54 45 3a {...##..## NOTE:
15e0: 20 54 68 69 73 20 6d 65 74 68 6f 64 2c 20 6d 61 This method, ma
15f0: 79 62 65 20 69 6e 20 63 6f 6e 6a 75 6e 63 74 69 ybe in conjuncti
1600: 6f 6e 20 77 69 74 68 20 69 74 73 20 63 61 6c 6c on with its call
1610: 65 72 0a 09 23 23 20 20 20 20 20 20 20 73 65 65 er..## see
1620: 6d 73 20 74 6f 20 62 65 20 61 20 6d 65 6d 6f 72 ms to be a memor
1630: 79 20 68 6f 67 2c 20 65 73 70 65 63 69 61 6c 6c y hog, especiall
1640: 79 20 66 6f 72 20 6c 61 72 67 65 0a 09 23 23 20 y for large..##
1650: 20 20 20 20 20 20 63 68 61 6e 67 65 73 65 74 73 changesets
1660: 2c 20 77 69 74 68 20 27 6c 61 72 67 65 27 20 6d , with 'large' m
1670: 65 61 6e 69 6e 67 20 74 6f 20 68 61 76 65 20 61 eaning to have a
1680: 20 27 6c 6f 6e 67 20 6c 69 73 74 0a 09 23 23 20 'long list..##
1690: 20 20 20 20 20 20 6f 66 20 69 74 65 6d 73 2c 20 of items,
16a0: 73 65 76 65 72 61 6c 20 74 68 6f 75 73 61 6e 64 several thousand
16b0: 27 2e 20 49 6e 76 65 73 74 69 67 61 74 65 20 77 '. Investigate w
16c0: 68 65 72 65 20 74 68 65 0a 09 23 23 20 20 20 20 here the..##
16d0: 20 20 20 6d 65 6d 6f 72 79 20 69 73 20 73 70 65 memory is spe
16e0: 6e 74 20 61 6e 64 20 74 68 65 6e 20 6c 6f 6f 6b nt and then look
16f0: 20 66 6f 72 20 77 61 79 73 20 6f 66 20 72 65 63 for ways of rec
1700: 74 69 66 79 69 6e 67 0a 09 23 23 20 20 20 20 20 tifying..##
1710: 20 20 74 68 65 20 70 72 6f 62 6c 65 6d 2e 0a 09 the problem...
1720: 23 23 0a 0a 09 23 20 54 68 69 73 20 6d 65 74 68 ##...# This meth
1730: 6f 64 20 69 6e 73 70 65 63 74 73 20 74 68 65 20 od inspects the
1740: 63 68 61 6e 67 65 73 65 74 73 20 66 6f 72 20 69 changesets for i
1750: 6e 74 65 72 6e 61 6c 0a 09 23 20 64 65 70 65 6e nternal..# depen
1760: 64 65 6e 63 69 65 73 2e 20 4e 6f 74 68 69 6e 67 dencies. Nothing
1770: 20 69 73 20 64 6f 6e 65 20 69 66 20 74 68 65 72 is done if ther
1780: 65 20 61 72 65 20 6e 6f 0a 09 23 20 73 75 63 68 e are no..# such
1790: 2e 20 4f 74 68 65 72 77 69 73 65 20 74 68 65 20 . Otherwise the
17a0: 63 68 61 6e 67 65 73 65 74 20 69 73 20 73 70 6c changeset is spl
17b0: 69 74 20 69 6e 74 6f 20 61 20 73 65 74 20 6f 66 it into a set of
17c0: 0a 09 23 20 66 72 61 67 6d 65 6e 74 73 20 77 69 ..# fragments wi
17d0: 74 68 6f 75 74 20 69 6e 74 65 72 6e 61 6c 20 64 thout internal d
17e0: 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 74 72 61 ependencies, tra
17f0: 6e 73 66 6f 72 6d 69 6e 67 20 74 68 65 0a 09 23 nsforming the..#
1800: 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 internal depend
1810: 65 6e 63 69 65 73 20 69 6e 74 6f 20 65 78 74 65 encies into exte
1820: 72 6e 61 6c 20 6f 6e 65 73 2e 20 54 68 65 20 6e rnal ones. The n
1830: 65 77 20 63 68 61 6e 67 65 73 65 74 73 0a 09 23 ew changesets..#
1840: 20 61 72 65 20 61 64 64 65 64 20 74 6f 20 74 68 are added to th
1850: 65 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 63 68 e list of all ch
1860: 61 6e 67 65 73 65 74 73 2e 0a 0a 09 23 20 57 65 angesets....# We
1870: 20 70 65 72 66 6f 72 6d 20 61 6c 6c 20 6e 65 63 perform all nec
1880: 65 73 73 61 72 79 20 73 70 6c 69 74 73 20 69 6e essary splits in
1890: 20 6f 6e 65 20 67 6f 2c 20 69 6e 73 74 65 61 64 one go, instead
18a0: 20 6f 66 20 6f 6e 6c 79 0a 09 23 20 6f 6e 65 2e of only..# one.
18b0: 20 54 68 65 20 70 72 65 76 69 6f 75 73 20 61 6c The previous al
18c0: 67 6f 72 69 74 68 6d 2c 20 61 64 61 70 74 65 64 gorithm, adapted
18d0: 20 66 72 6f 6d 20 63 76 73 32 73 76 6e 2c 20 63 from cvs2svn, c
18e0: 6f 6d 70 75 74 65 64 0a 09 23 20 61 20 6c 6f 74 omputed..# a lot
18f0: 20 6f 66 20 73 74 61 74 65 20 77 68 69 63 68 20 of state which
1900: 77 61 73 20 74 68 72 6f 77 6e 20 61 77 61 79 20 was thrown away
1910: 61 6e 64 20 74 68 65 6e 20 63 6f 6d 70 75 74 65 and then compute
1920: 64 20 61 67 61 69 6e 0a 09 23 20 66 6f 72 20 65 d again..# for e
1930: 61 63 68 20 6f 66 20 74 68 65 20 66 72 61 67 6d ach of the fragm
1940: 65 6e 74 73 2e 20 49 74 20 73 68 6f 75 6c 64 20 ents. It should
1950: 62 65 20 65 61 73 69 65 72 20 74 6f 20 75 70 64 be easier to upd
1960: 61 74 65 20 61 6e 64 0a 09 23 20 72 65 75 73 65 ate and..# reuse
1970: 20 74 68 61 74 20 73 74 61 74 65 2e 0a 0a 09 23 that state....#
1980: 20 54 68 65 20 63 6f 64 65 20 63 68 65 63 6b 73 The code checks
1990: 20 6f 6e 6c 79 20 73 75 63 63 65 73 73 6f 72 20 only successor
19a0: 64 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 73 dependencies, as
19b0: 20 74 68 69 73 0a 09 23 20 61 75 74 6f 6d 61 74 this..# automat
19c0: 69 63 61 6c 6c 79 20 63 6f 76 65 72 73 20 74 68 ically covers th
19d0: 65 20 70 72 65 64 65 63 65 73 73 6f 72 20 64 65 e predecessor de
19e0: 70 65 6e 64 65 6e 63 69 65 73 20 61 73 20 77 65 pendencies as we
19f0: 6c 6c 20 28 41 0a 09 23 20 73 75 63 63 65 73 73 ll (A..# success
1a00: 6f 72 20 64 65 70 65 6e 64 65 6e 63 79 20 61 20 or dependency a
1a10: 2d 3e 20 62 20 69 73 20 61 6c 73 6f 20 61 20 70 -> b is also a p
1a20: 72 65 64 65 63 65 73 73 6f 72 20 64 65 70 65 6e redecessor depen
1a30: 64 65 6e 63 79 0a 09 23 20 62 20 2d 3e 20 61 29 dency..# b -> a)
1a40: 2e 0a 0a 09 23 20 41 72 72 61 79 20 6f 66 20 64 ....# Array of d
1a50: 65 70 65 6e 64 65 6e 63 69 65 73 20 28 70 61 72 ependencies (par
1a60: 65 6e 74 20 2d 3e 20 63 68 69 6c 64 29 2e 20 54 ent -> child). T
1a70: 68 69 73 20 69 73 20 70 75 6c 6c 65 64 20 66 72 his is pulled fr
1a80: 6f 6d 0a 09 23 20 74 68 65 20 73 74 61 74 65 2c om..# the state,
1a90: 20 61 6e 64 20 6c 69 6d 69 74 65 64 20 74 6f 20 and limited to
1aa0: 73 75 63 63 65 73 73 6f 72 73 20 77 69 74 68 69 successors withi
1ab0: 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e n the changeset.
1ac0: 0a 0a 09 61 72 72 61 79 20 73 65 74 20 64 65 70 ...array set dep
1ad0: 65 6e 64 65 6e 63 69 65 73 20 7b 7d 0a 09 24 6d endencies {}..$m
1ae0: 79 74 79 70 65 6f 62 6a 20 69 6e 74 65 72 6e 61 ytypeobj interna
1af0: 6c 73 75 63 63 65 73 73 6f 72 73 20 64 65 70 65 lsuccessors depe
1b00: 6e 64 65 6e 63 69 65 73 20 24 6d 79 69 74 65 6d ndencies $myitem
1b10: 73 0a 09 69 66 20 7b 21 5b 61 72 72 61 79 20 73 s..if {![array s
1b20: 69 7a 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 ize dependencies
1b30: 5d 7d 20 7b 72 65 74 75 72 6e 20 30 7d 20 3b 20 ]} {return 0} ;
1b40: 23 20 4e 6f 74 68 69 6e 67 20 74 6f 20 62 72 65 # Nothing to bre
1b50: 61 6b 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 ak....log write
1b60: 35 20 63 73 65 74 73 20 2e 2e 2e 5b 24 73 65 6c 5 csets ...[$sel
1b70: 66 20 73 74 72 5d 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e f str]..........
1b80: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1b90: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1ba0: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 0a 0a 09 ................
1bb0: 23 20 57 65 20 68 61 76 65 20 69 6e 74 65 72 6e # We have intern
1bc0: 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 al dependencies
1bd0: 74 6f 20 62 72 65 61 6b 2e 20 57 65 20 6e 6f 77 to break. We now
1be0: 20 69 74 65 72 61 74 65 20 6f 76 65 72 0a 09 23 iterate over..#
1bf0: 20 61 6c 6c 20 70 6f 73 69 74 69 6f 6e 73 20 69 all positions i
1c00: 6e 20 74 68 65 20 6c 69 73 74 20 28 77 68 69 63 n the list (whic
1c10: 68 20 69 73 20 63 68 72 6f 6e 6f 6c 6f 67 69 63 h is chronologic
1c20: 61 6c 2c 20 61 74 20 6c 65 61 73 74 0a 09 23 20 al, at least..#
1c30: 61 73 20 66 61 72 20 61 73 20 74 68 65 20 74 69 as far as the ti
1c40: 6d 65 73 74 61 6d 70 73 20 61 72 65 20 63 6f 72 mestamps are cor
1c50: 72 65 63 74 20 61 6e 64 20 75 6e 69 71 75 65 29 rect and unique)
1c60: 20 61 6e 64 0a 09 23 20 64 65 74 65 72 6d 69 6e and..# determin
1c70: 65 20 74 68 65 20 62 65 73 74 20 70 6f 73 69 74 e the best posit
1c80: 69 6f 6e 20 66 6f 72 20 74 68 65 20 62 72 65 61 ion for the brea
1c90: 6b 2c 20 62 79 20 74 72 79 69 6e 67 20 74 6f 0a k, by trying to.
1ca0: 09 23 20 62 72 65 61 6b 20 61 73 20 6d 61 6e 79 .# break as many
1cb0: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 61 73 dependencies as
1cc0: 20 70 6f 73 73 69 62 6c 65 20 69 6e 20 6f 6e 65 possible in one
1cd0: 20 67 6f 2e 20 57 68 65 6e 20 61 0a 09 23 20 62 go. When a..# b
1ce0: 72 65 61 6b 20 77 61 73 20 66 6f 75 6e 64 20 74 reak was found t
1cf0: 68 69 73 20 69 73 20 72 65 64 6f 6e 65 20 66 6f his is redone fo
1d00: 72 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 20 r the fragments
1d10: 63 6f 6d 69 6e 67 20 61 6e 64 0a 09 23 20 61 66 coming and..# af
1d20: 74 65 72 2c 20 61 66 74 65 72 20 75 70 64 69 6e ter, after updin
1d30: 67 20 74 68 65 20 63 72 6f 73 73 69 6e 67 20 69 g the crossing i
1d40: 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 09 23 20 nformation....#
1d50: 44 61 74 61 20 73 74 72 75 63 74 75 72 65 73 3a Data structures:
1d60: 0a 09 23 20 4d 61 70 3a 20 20 50 4f 53 20 20 20 ..# Map: POS
1d70: 72 65 76 69 73 69 6f 6e 20 69 64 20 20 20 20 20 revision id
1d80: 20 2d 3e 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 -> position in
1d90: 6c 69 73 74 2e 0a 09 23 20 20 20 20 20 20 20 43 list...# C
1da0: 52 4f 53 53 20 70 6f 73 69 74 69 6f 6e 20 69 6e ROSS position in
1db0: 20 6c 69 73 74 20 2d 3e 20 6e 75 6d 62 65 72 20 list -> number
1dc0: 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 of dependencies
1dd0: 63 72 6f 73 73 69 6e 67 20 69 74 0a 09 23 20 20 crossing it..#
1de0: 20 20 20 20 20 44 45 50 43 20 20 64 65 70 65 6e DEPC depen
1df0: 64 65 6e 63 79 20 20 20 20 20 20 20 2d 3e 20 70 dency -> p
1e00: 6f 73 69 74 69 6f 6e 73 20 69 74 20 63 72 6f 73 ositions it cros
1e10: 73 65 73 0a 09 23 20 4c 69 73 74 3a 20 52 41 4e ses..# List: RAN
1e20: 47 45 20 4f 66 20 74 68 65 20 70 6f 73 69 74 69 GE Of the positi
1e30: 6f 6e 73 20 69 74 73 65 6c 66 2e 0a 09 23 20 41 ons itself...# A
1e40: 20 64 65 70 65 6e 64 65 6e 63 79 20 69 73 20 61 dependency is a
1e50: 20 73 69 6e 67 6c 65 2d 65 6c 65 6d 65 6e 74 20 single-element
1e60: 6d 61 70 20 70 61 72 65 6e 74 20 2d 3e 20 63 68 map parent -> ch
1e70: 69 6c 64 0a 0a 09 49 6e 69 74 69 61 6c 69 7a 65 ild...Initialize
1e80: 42 72 65 61 6b 53 74 61 74 65 20 24 6d 79 69 74 BreakState $myit
1e90: 65 6d 73 0a 0a 09 73 65 74 20 66 72 61 67 6d 65 ems...set fragme
1ea0: 6e 74 73 20 7b 7d 0a 09 73 65 74 20 6e 65 77 20 nts {}..set new
1eb0: 20 20 20 20 20 20 5b 6c 69 73 74 20 24 72 61 6e [list $ran
1ec0: 67 65 5d 0a 09 61 72 72 61 79 20 73 65 74 20 62 ge]..array set b
1ed0: 72 65 61 6b 73 20 7b 7d 0a 0a 09 23 20 49 6e 73 reaks {}...# Ins
1ee0: 74 65 61 64 20 6f 66 20 6f 6e 65 20 6c 69 73 74 tead of one list
1ef0: 20 68 6f 6c 64 69 6e 67 20 62 6f 74 68 20 70 72 holding both pr
1f00: 6f 63 65 73 73 65 64 20 61 6e 64 20 70 65 6e 64 ocessed and pend
1f10: 69 6e 67 0a 09 23 20 66 72 61 67 6d 65 6e 74 73 ing..# fragments
1f20: 20 77 65 20 75 73 65 20 74 77 6f 2c 20 6f 6e 65 we use two, one
1f30: 20 66 6f 72 20 74 68 65 20 66 72 61 6d 65 6e 74 for the frament
1f40: 73 20 74 6f 20 70 72 6f 63 65 73 73 2c 20 6f 6e s to process, on
1f50: 65 0a 09 23 20 74 6f 20 68 6f 6c 64 20 74 68 65 e..# to hold the
1f60: 20 6e 65 77 20 66 72 61 67 6d 65 6e 74 73 2c 20 new fragments,
1f70: 61 6e 64 20 74 68 65 20 6c 61 74 74 65 72 20 69 and the latter i
1f80: 73 20 63 6f 70 69 65 64 20 74 6f 20 74 68 65 0a s copied to the.
1f90: 09 23 20 66 6f 72 6d 65 72 20 77 68 65 6e 20 74 .# former when t
1fa0: 68 65 79 20 72 75 6e 20 6f 75 74 2e 20 54 68 69 hey run out. Thi
1fb0: 73 20 6b 65 65 70 73 20 74 68 65 20 6c 69 73 74 s keeps the list
1fc0: 20 6f 66 20 70 65 6e 64 69 6e 67 0a 09 23 20 66 of pending..# f
1fd0: 72 61 67 6d 65 6e 74 73 20 73 68 6f 72 74 20 77 ragments short w
1fe0: 69 74 68 6f 75 74 20 73 61 63 72 69 66 69 63 69 ithout sacrifici
1ff0: 6e 67 20 73 70 65 65 64 20 62 79 20 73 68 69 66 ng speed by shif
2000: 74 69 6e 67 20 73 74 75 66 66 0a 09 23 20 64 6f ting stuff..# do
2010: 77 6e 2e 20 57 65 20 65 73 70 65 63 69 61 6c 6c wn. We especiall
2020: 79 20 64 72 6f 70 20 74 68 65 20 6d 65 6d 6f 72 y drop the memor
2030: 79 20 6f 66 20 66 72 61 67 6d 65 6e 74 73 20 62 y of fragments b
2040: 72 6f 6b 65 6e 0a 09 23 20 64 75 72 69 6e 67 20 roken..# during
2050: 70 72 6f 63 65 73 73 69 6e 67 20 61 66 74 65 72 processing after
2060: 20 61 20 73 68 6f 72 74 20 74 69 6d 65 2c 20 69 a short time, i
2070: 6e 73 74 65 61 64 20 6f 66 20 6c 65 74 74 69 6e nstead of lettin
2080: 67 20 69 74 0a 09 23 20 63 6f 6e 73 75 6d 65 20 g it..# consume
2090: 6d 65 6d 6f 72 79 2e 0a 0a 09 77 68 69 6c 65 20 memory....while
20a0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 6e 65 77 5d 7d {[llength $new]}
20b0: 20 7b 0a 0a 09 20 20 20 20 73 65 74 20 70 65 6e {... set pen
20c0: 64 69 6e 67 20 24 6e 65 77 0a 09 20 20 20 20 73 ding $new.. s
20d0: 65 74 20 6e 65 77 20 20 20 20 20 7b 7d 0a 09 20 et new {}..
20e0: 20 20 20 73 65 74 20 61 74 20 20 20 20 20 20 30 set at 0
20f0: 0a 0a 09 20 20 20 20 77 68 69 6c 65 20 7b 24 61 ... while {$a
2100: 74 20 3c 20 5b 6c 6c 65 6e 67 74 68 20 24 70 65 t < [llength $pe
2110: 6e 64 69 6e 67 5d 7d 20 7b 0a 09 09 73 65 74 20 nding]} {...set
2120: 63 75 72 72 65 6e 74 20 5b 6c 69 6e 64 65 78 20 current [lindex
2130: 24 70 65 6e 64 69 6e 67 20 24 61 74 5d 0a 0a 09 $pending $at]...
2140: 09 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 .log write 6 cse
2150: 74 73 20 7b 2e 20 2e 20 2e 2e 20 2e 2e 2e 20 2e ts {. . .. ... .
2160: 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 20 2e 2e .... ........ ..
2170: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 7d 0a 09 09 6c ...........}...l
2180: 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 74 73 og write 6 csets
2190: 20 7b 53 63 68 65 64 75 6c 65 64 20 20 20 5b 6a {Scheduled [j
21a0: 6f 69 6e 20 5b 50 52 73 20 5b 6c 72 61 6e 67 65 oin [PRs [lrange
21b0: 20 24 70 65 6e 64 69 6e 67 20 24 61 74 20 65 6e $pending $at en
21c0: 64 5d 5d 20 7b 20 7d 5d 7d 0a 09 09 6c 6f 67 20 d]] { }]}...log
21d0: 77 72 69 74 65 20 36 20 63 73 65 74 73 20 7b 43 write 6 csets {C
21e0: 6f 6e 73 69 64 65 72 69 6e 67 20 5b 50 52 20 24 onsidering [PR $
21f0: 63 75 72 72 65 6e 74 5d 20 5c 5b 24 61 74 2f 5b current] \[$at/[
2200: 6c 6c 65 6e 67 74 68 20 24 70 65 6e 64 69 6e 67 llength $pending
2210: 5d 5c 5d 7d 0a 0a 09 09 73 65 74 20 62 65 73 74 ]\]}....set best
2220: 20 5b 46 69 6e 64 42 65 73 74 42 72 65 61 6b 20 [FindBestBreak
2230: 24 63 75 72 72 65 6e 74 5d 0a 0a 09 09 69 66 20 $current]....if
2240: 7b 24 62 65 73 74 20 3c 20 30 7d 20 7b 0a 09 09 {$best < 0} {...
2250: 20 20 20 20 23 20 54 68 65 20 69 6e 73 70 65 63 # The inspec
2260: 74 65 64 20 72 61 6e 67 65 20 68 61 73 20 6e 6f ted range has no
2270: 20 69 6e 74 65 72 6e 61 6c 0a 09 09 20 20 20 20 internal...
2280: 23 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 20 # dependencies.
2290: 54 68 69 73 20 69 73 20 61 20 63 6f 6d 70 6c 65 This is a comple
22a0: 74 65 20 66 72 61 67 6d 65 6e 74 2e 0a 09 09 20 te fragment....
22b0: 20 20 20 6c 61 70 70 65 6e 64 20 66 72 61 67 6d lappend fragm
22c0: 65 6e 74 73 20 24 63 75 72 72 65 6e 74 0a 0a 09 ents $current...
22d0: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 36 . log write 6
22e0: 20 63 73 65 74 73 20 22 4e 6f 20 62 72 65 61 6b csets "No break
22f0: 73 2c 20 66 69 6e 61 6c 22 0a 09 09 7d 20 65 6c s, final"...} el
2300: 73 65 20 7b 0a 09 09 20 20 20 20 23 20 53 70 6c se {... # Spl
2310: 69 74 20 74 68 65 20 72 61 6e 67 65 20 61 6e 64 it the range and
2320: 20 73 63 68 65 64 75 6c 65 20 74 68 65 20 72 65 schedule the re
2330: 73 75 6c 74 69 6e 67 0a 09 09 20 20 20 20 23 20 sulting... #
2340: 66 72 61 67 6d 65 6e 74 73 20 66 6f 72 20 66 75 fragments for fu
2350: 72 74 68 65 72 20 69 6e 73 70 65 63 74 69 6f 6e rther inspection
2360: 2e 20 52 65 6d 65 6d 62 65 72 20 74 68 65 0a 09 . Remember the..
2370: 09 20 20 20 20 23 20 6e 75 6d 62 65 72 20 6f 66 . # number of
2380: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 63 75 dependencies cu
2390: 74 20 62 65 66 6f 72 65 20 77 65 20 72 65 6d 6f t before we remo
23a0: 76 65 20 74 68 65 6d 0a 09 09 20 20 20 20 23 20 ve them... #
23b0: 66 72 6f 6d 20 63 6f 6e 73 69 64 65 72 61 74 69 from considerati
23c0: 6f 6e 2c 20 66 6f 72 20 64 6f 63 75 6d 65 6e 74 on, for document
23d0: 61 74 69 6f 6e 20 6c 61 74 65 72 2e 0a 0a 09 09 ation later.....
23e0: 20 20 20 20 73 65 74 20 62 72 65 61 6b 73 28 24 set breaks($
23f0: 62 65 73 74 29 20 24 63 72 6f 73 73 28 24 62 65 best) $cross($be
2400: 73 74 29 0a 0a 09 09 20 20 20 20 6c 6f 67 20 77 st).... log w
2410: 72 69 74 65 20 36 20 63 73 65 74 73 20 22 42 65 rite 6 csets "Be
2420: 73 74 20 62 72 65 61 6b 20 40 20 24 62 65 73 74 st break @ $best
2430: 2c 20 63 75 74 74 69 6e 67 20 5b 6e 73 70 20 24 , cutting [nsp $
2440: 63 72 6f 73 73 28 24 62 65 73 74 29 20 64 65 70 cross($best) dep
2450: 65 6e 64 65 6e 63 79 20 64 65 70 65 6e 64 65 6e endency dependen
2460: 63 69 65 73 5d 22 0a 0a 09 09 20 20 20 20 23 20 cies]".... #
2470: 4e 6f 74 65 3a 20 54 68 65 20 76 61 6c 75 65 20 Note: The value
2480: 6f 66 20 62 65 73 74 20 69 73 20 61 6e 20 61 62 of best is an ab
2490: 6f 6c 75 74 65 20 6c 6f 63 61 74 69 6f 6e 0a 09 olute location..
24a0: 09 20 20 20 20 23 20 69 6e 20 6d 79 69 74 65 6d . # in myitem
24b0: 73 2e 20 55 73 65 20 74 68 65 20 73 74 61 72 74 s. Use the start
24c0: 20 6f 66 20 63 75 72 72 65 6e 74 20 74 6f 20 6d of current to m
24d0: 61 6b 65 20 69 74 0a 09 09 20 20 20 20 23 20 61 ake it... # a
24e0: 6e 20 69 6e 64 65 78 20 61 62 73 6f 6c 75 74 65 n index absolute
24f0: 20 74 6f 20 63 75 72 72 65 6e 74 2e 0a 0a 09 09 to current.....
2500: 20 20 20 20 73 65 74 20 62 72 65 6c 20 5b 65 78 set brel [ex
2510: 70 72 20 7b 24 62 65 73 74 20 2d 20 5b 6c 69 6e pr {$best - [lin
2520: 64 65 78 20 24 63 75 72 72 65 6e 74 20 30 5d 7d dex $current 0]}
2530: 5d 0a 09 09 20 20 20 20 73 65 74 20 62 6e 65 78 ]... set bnex
2540: 74 20 24 62 72 65 6c 20 3b 20 69 6e 63 72 20 62 t $brel ; incr b
2550: 6e 65 78 74 0a 09 09 20 20 20 20 73 65 74 20 66 next... set f
2560: 72 61 67 62 65 66 6f 72 65 20 5b 6c 72 61 6e 67 ragbefore [lrang
2570: 65 20 24 63 75 72 72 65 6e 74 20 30 20 24 62 72 e $current 0 $br
2580: 65 6c 5d 0a 09 09 20 20 20 20 73 65 74 20 66 72 el]... set fr
2590: 61 67 61 66 74 65 72 20 20 5b 6c 72 61 6e 67 65 agafter [lrange
25a0: 20 24 63 75 72 72 65 6e 74 20 24 62 6e 65 78 74 $current $bnext
25b0: 20 65 6e 64 5d 0a 0a 09 09 20 20 20 20 6c 6f 67 end].... log
25c0: 20 77 72 69 74 65 20 36 20 63 73 65 74 73 20 22 write 6 csets "
25d0: 4e 65 77 20 70 69 65 63 65 73 20 20 5b 50 52 20 New pieces [PR
25e0: 24 66 72 61 67 62 65 66 6f 72 65 5d 20 5b 50 52 $fragbefore] [PR
25f0: 20 24 66 72 61 67 61 66 74 65 72 5d 22 0a 0a 09 $fragafter]"...
2600: 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 . integrity a
2610: 73 73 65 72 74 20 7b 5b 6c 6c 65 6e 67 74 68 20 ssert {[llength
2620: 24 66 72 61 67 62 65 66 6f 72 65 5d 7d 20 7b 46 $fragbefore]} {F
2630: 6f 75 6e 64 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 ound zero-length
2640: 20 66 72 61 67 6d 65 6e 74 20 61 74 20 74 68 65 fragment at the
2650: 20 62 65 67 69 6e 6e 69 6e 67 7d 0a 09 09 20 20 beginning}...
2660: 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 integrity asse
2670: 72 74 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 66 72 rt {[llength $fr
2680: 61 67 61 66 74 65 72 5d 7d 20 20 7b 46 6f 75 6e agafter]} {Foun
2690: 64 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 66 72 d zero-length fr
26a0: 61 67 6d 65 6e 74 20 61 74 20 74 68 65 20 65 6e agment at the en
26b0: 64 7d 0a 0a 09 09 20 20 20 20 6c 61 70 70 65 6e d}.... lappen
26c0: 64 20 6e 65 77 20 24 66 72 61 67 62 65 66 6f 72 d new $fragbefor
26d0: 65 20 24 66 72 61 67 61 66 74 65 72 0a 09 09 20 e $fragafter...
26e0: 20 20 20 43 75 74 41 74 20 24 62 65 73 74 0a 09 CutAt $best..
26f0: 09 7d 0a 0a 09 09 69 6e 63 72 20 61 74 0a 09 20 .}....incr at..
2700: 20 20 20 7d 0a 09 7d 0a 0a 09 6c 6f 67 20 77 72 }..}...log wr
2710: 69 74 65 20 36 20 63 73 65 74 73 20 22 2e 20 2e ite 6 csets ". .
2720: 20 2e 2e 20 2e 2e 2e 20 2e 2e 2e 2e 2e 20 2e 2e .. ... ..... ..
2730: 2e 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 2e ...... .........
2740: 2e 2e 2e 2e 22 0a 0a 09 23 20 28 2a 29 20 57 65 ...."...# (*) We
2750: 20 63 6c 65 61 72 20 6f 75 74 20 74 68 65 20 61 clear out the a
2760: 73 73 6f 63 69 61 74 65 64 20 70 61 72 74 20 6f ssociated part o
2770: 66 20 74 68 65 20 6d 79 69 74 65 6d 6d 61 70 0a f the myitemmap.
2780: 09 23 20 69 6e 2d 6d 65 6d 6f 72 79 20 69 6e 64 .# in-memory ind
2790: 65 78 20 69 6e 20 70 72 65 70 61 72 61 74 69 6f ex in preparatio
27a0: 6e 20 66 6f 72 20 6e 65 77 20 64 61 74 61 2e 20 n for new data.
27b0: 41 20 73 69 6d 70 6c 65 20 75 6e 73 65 74 0a 09 A simple unset..
27c0: 23 20 69 73 20 65 6e 6f 75 67 68 2c 20 77 65 20 # is enough, we
27d0: 68 61 76 65 20 6e 6f 20 73 79 6d 62 6f 6c 20 63 have no symbol c
27e0: 68 61 6e 67 65 73 65 74 73 20 61 74 20 74 68 69 hangesets at thi
27f0: 73 20 74 69 6d 65 2c 20 61 6e 64 0a 09 23 20 74 s time, and..# t
2800: 68 75 73 20 6e 65 76 65 72 20 6d 6f 72 65 20 74 hus never more t
2810: 68 61 6e 20 6f 6e 65 20 72 65 66 65 72 65 6e 63 han one referenc
2820: 65 20 69 6e 20 74 68 65 20 6c 69 73 74 2e 0a 0a e in the list...
2830: 09 66 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 .foreach iid $my
2840: 69 74 65 6d 73 20 7b 0a 09 20 20 20 20 73 65 74 items {.. set
2850: 20 6b 65 79 20 5b 6c 69 73 74 20 24 6d 79 74 79 key [list $myty
2860: 70 65 20 24 69 69 64 5d 0a 09 20 20 20 20 75 6e pe $iid].. un
2870: 73 65 74 20 6d 79 69 74 65 6d 6d 61 70 28 24 6b set myitemmap($k
2880: 65 79 29 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 ey).. log wri
2890: 74 65 20 38 20 63 73 65 74 73 20 7b 4d 41 50 2d te 8 csets {MAP-
28a0: 20 69 74 65 6d 20 3c 24 6b 65 79 3e 20 24 73 65 item <$key> $se
28b0: 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 74 72 5d lf = [$self str]
28c0: 7d 0a 09 7d 0a 0a 09 23 20 43 72 65 61 74 65 20 }..}...# Create
28d0: 63 68 61 6e 67 65 73 65 74 73 20 66 6f 72 20 74 changesets for t
28e0: 68 65 20 66 72 61 67 6d 65 6e 74 73 2c 20 72 65 he fragments, re
28f0: 75 73 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e using the curren
2900: 74 20 6f 6e 65 0a 09 23 20 66 6f 72 20 74 68 65 t one..# for the
2910: 20 66 69 72 73 74 20 66 72 61 67 6d 65 6e 74 2e first fragment.
2920: 20 57 65 20 73 6f 72 74 20 74 68 65 6d 20 69 6e We sort them in
2930: 20 6f 72 64 65 72 20 74 6f 20 61 6c 6c 6f 77 0a order to allow.
2940: 09 23 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 .# checking for
2950: 67 61 70 73 20 61 6e 64 20 6e 69 63 65 20 6d 65 gaps and nice me
2960: 73 73 61 67 65 73 2e 0a 0a 09 73 65 74 20 66 72 ssages....set fr
2970: 61 67 6d 65 6e 74 73 20 5b 6c 73 6f 72 74 20 2d agments [lsort -
2980: 69 6e 64 65 78 20 30 20 2d 69 6e 74 65 67 65 72 index 0 -integer
2990: 20 24 66 72 61 67 6d 65 6e 74 73 5d 0a 0a 09 23 $fragments]...#
29a0: 70 75 74 73 20 5c 74 2e 5b 6a 6f 69 6e 20 5b 50 puts \t.[join [P
29b0: 52 73 20 24 66 72 61 67 6d 65 6e 74 73 5d 20 2e Rs $fragments] .
29c0: 5c 6e 5c 74 2e 5d 2e 0a 0a 09 42 6f 72 64 65 72 \n\t.]....Border
29d0: 20 5b 6c 69 6e 64 65 78 20 24 66 72 61 67 6d 65 [lindex $fragme
29e0: 6e 74 73 20 30 5d 20 66 69 72 73 74 73 20 66 69 nts 0] firsts fi
29f0: 72 73 74 65 0a 0a 09 69 6e 74 65 67 72 69 74 79 rste...integrity
2a00: 20 61 73 73 65 72 74 20 7b 24 66 69 72 73 74 73 assert {$firsts
2a10: 20 3d 3d 20 30 7d 20 7b 42 61 64 20 66 72 61 67 == 0} {Bad frag
2a20: 6d 65 6e 74 20 73 74 61 72 74 20 40 20 24 66 69 ment start @ $fi
2a30: 72 73 74 73 2c 20 67 61 70 2c 20 6f 72 20 62 65 rsts, gap, or be
2a40: 66 6f 72 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f fore beginning o
2a50: 66 20 74 68 65 20 72 61 6e 67 65 7d 0a 0a 09 73 f the range}...s
2a60: 65 74 20 6c 61 73 74 65 20 24 66 69 72 73 74 65 et laste $firste
2a70: 0a 09 66 6f 72 65 61 63 68 20 66 72 61 67 6d 65 ..foreach fragme
2a80: 6e 74 20 5b 6c 72 61 6e 67 65 20 24 66 72 61 67 nt [lrange $frag
2a90: 6d 65 6e 74 73 20 31 20 65 6e 64 5d 20 7b 0a 09 ments 1 end] {..
2aa0: 20 20 20 20 42 6f 72 64 65 72 20 24 66 72 61 67 Border $frag
2ab0: 6d 65 6e 74 20 73 20 65 0a 09 20 20 20 20 69 6e ment s e.. in
2ac0: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
2ad0: 24 6c 61 73 74 65 20 3d 3d 20 28 24 73 20 2d 20 $laste == ($s -
2ae0: 31 29 7d 20 7b 42 61 64 20 66 72 61 67 6d 65 6e 1)} {Bad fragmen
2af0: 74 20 62 6f 72 64 65 72 20 3c 24 6c 61 73 74 65 t border <$laste
2b00: 20 7c 20 24 73 3e 2c 20 67 61 70 20 6f 72 20 6f | $s>, gap or o
2b10: 76 65 72 6c 61 70 7d 0a 0a 09 20 20 20 20 73 65 verlap}... se
2b20: 74 20 6e 65 77 20 5b 24 74 79 70 65 20 25 41 55 t new [$type %AU
2b30: 54 4f 25 20 24 6d 79 70 72 6f 6a 65 63 74 20 24 TO% $myproject $
2b40: 6d 79 74 79 70 65 20 24 6d 79 73 72 63 69 64 20 mytype $mysrcid
2b50: 5b 6c 72 61 6e 67 65 20 24 6d 79 69 74 65 6d 73 [lrange $myitems
2b60: 20 24 73 20 24 65 5d 5d 0a 0a 20 20 20 20 20 20 $s $e]]..
2b70: 20 20 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 log write
2b80: 34 20 63 73 65 74 73 20 22 42 72 65 61 6b 69 6e 4 csets "Breakin
2b90: 67 20 5b 24 73 65 6c 66 20 73 74 72 20 5d 20 40 g [$self str ] @
2ba0: 20 24 6c 61 73 74 65 2c 20 6e 65 77 20 5b 24 6e $laste, new [$n
2bb0: 65 77 20 73 74 72 5d 2c 20 63 75 74 74 69 6e 67 ew str], cutting
2bc0: 20 24 62 72 65 61 6b 73 28 24 6c 61 73 74 65 29 $breaks($laste)
2bd0: 22 0a 0a 09 20 20 20 20 73 65 74 20 6c 61 73 74 "... set last
2be0: 65 20 24 65 0a 09 7d 0a 0a 09 69 6e 74 65 67 72 e $e..}...integr
2bf0: 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 20 20 ity assert {..
2c00: 20 20 24 6c 61 73 74 65 20 3d 3d 20 28 5b 6c 6c $laste == ([ll
2c10: 65 6e 67 74 68 20 24 6d 79 69 74 65 6d 73 5d 2d ength $myitems]-
2c20: 31 29 0a 09 7d 20 7b 42 61 64 20 66 72 61 67 6d 1)..} {Bad fragm
2c30: 65 6e 74 20 65 6e 64 20 40 20 24 6c 61 73 74 65 ent end @ $laste
2c40: 2c 20 67 61 70 2c 20 6f 72 20 62 65 79 6f 6e 64 , gap, or beyond
2c50: 20 65 6e 64 20 6f 66 20 74 68 65 20 72 61 6e 67 end of the rang
2c60: 65 7d 0a 0a 09 23 20 50 75 74 20 74 68 65 20 66 e}...# Put the f
2c70: 69 72 73 74 20 66 72 61 67 6d 65 6e 74 20 69 6e irst fragment in
2c80: 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 to the current c
2c90: 68 61 6e 67 65 73 65 74 2c 20 61 6e 64 0a 09 23 hangeset, and..#
2ca0: 20 75 70 64 61 74 65 20 74 68 65 20 69 6e 2d 6d update the in-m
2cb0: 65 6d 6f 72 79 20 69 6e 64 65 78 2e 20 57 65 20 emory index. We
2cc0: 63 61 6e 20 73 69 6d 70 6c 79 20 28 72 65 29 61 can simply (re)a
2cd0: 64 64 20 74 68 65 20 69 74 65 6d 73 0a 09 23 20 dd the items..#
2ce0: 62 65 63 61 75 73 65 20 77 65 20 63 6c 65 61 72 because we clear
2cf0: 65 64 20 74 68 65 20 70 72 65 76 69 6f 75 73 6c ed the previousl
2d00: 79 20 65 78 69 73 74 69 6e 67 20 69 6e 66 6f 72 y existing infor
2d10: 6d 61 74 69 6f 6e 2c 20 73 65 65 0a 09 23 20 28 mation, see..# (
2d20: 2a 29 20 61 62 6f 76 65 2e 20 50 65 72 73 69 73 *) above. Persis
2d30: 74 65 6e 63 65 20 64 6f 65 73 20 6e 6f 74 20 6d tence does not m
2d40: 61 74 74 65 72 20 68 65 72 65 2c 20 6e 6f 6e 65 atter here, none
2d50: 20 6f 66 20 74 68 65 0a 09 23 20 63 68 61 6e 67 of the..# chang
2d60: 65 73 65 74 73 20 68 61 73 20 62 65 65 6e 20 73 esets has been s
2d70: 61 76 65 64 20 74 6f 20 74 68 65 20 70 65 72 73 aved to the pers
2d80: 69 73 74 65 6e 74 20 73 74 61 74 65 20 79 65 74 istent state yet
2d90: 2e 0a 0a 09 73 65 74 20 6d 79 69 74 65 6d 73 20 ....set myitems
2da0: 20 5b 6c 72 61 6e 67 65 20 24 6d 79 69 74 65 6d [lrange $myitem
2db0: 73 20 20 30 20 24 66 69 72 73 74 65 5d 0a 09 73 s 0 $firste]..s
2dc0: 65 74 20 6d 79 74 69 74 65 6d 73 20 5b 6c 72 61 et mytitems [lra
2dd0: 6e 67 65 20 24 6d 79 74 69 74 65 6d 73 20 30 20 nge $mytitems 0
2de0: 24 66 69 72 73 74 65 5d 0a 09 66 6f 72 65 61 63 $firste]..foreac
2df0: 68 20 69 69 64 20 24 6d 79 69 74 65 6d 73 20 7b h iid $myitems {
2e00: 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c .. set key [l
2e10: 69 73 74 20 24 6d 79 74 79 70 65 20 24 69 69 64 ist $mytype $iid
2e20: 5d 0a 09 20 20 20 20 73 65 74 20 6d 79 69 74 65 ].. set myite
2e30: 6d 6d 61 70 28 24 6b 65 79 29 20 24 73 65 6c 66 mmap($key) $self
2e40: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
2e50: 38 20 63 73 65 74 73 20 7b 4d 41 50 2b 20 69 74 8 csets {MAP+ it
2e60: 65 6d 20 3c 24 6b 65 79 3e 20 24 73 65 6c 66 20 em <$key> $self
2e70: 3d 20 5b 24 73 65 6c 66 20 73 74 72 5d 7d 0a 09 = [$self str]}..
2e80: 7d 0a 0a 09 72 65 74 75 72 6e 20 31 0a 20 20 20 }...return 1.
2e90: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 }.. method p
2ea0: 65 72 73 69 73 74 20 7b 7d 20 7b 0a 09 73 65 74 ersist {} {..set
2eb0: 20 74 69 64 20 24 6d 79 63 73 74 79 70 65 28 24 tid $mycstype($
2ec0: 6d 79 74 79 70 65 29 0a 09 73 65 74 20 70 69 64 mytype)..set pid
2ed0: 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 69 64 5d [$myproject id]
2ee0: 0a 09 73 65 74 20 70 6f 73 20 30 0a 0a 09 73 74 ..set pos 0...st
2ef0: 61 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 ate transaction
2f00: 7b 0a 09 20 20 20 20 73 74 61 74 65 20 72 75 6e {.. state run
2f10: 20 7b 0a 09 09 49 4e 53 45 52 54 20 49 4e 54 4f {...INSERT INTO
2f20: 20 63 68 61 6e 67 65 73 65 74 20 28 63 69 64 2c changeset (cid,
2f30: 20 20 20 70 69 64 2c 20 20 74 79 70 65 2c 20 73 pid, type, s
2f40: 72 63 29 0a 09 09 56 41 4c 55 45 53 20 20 20 20 rc)...VALUES
2f50: 20 20 20 20 20 20 20 20 20 20 20 20 28 24 6d 79 ($my
2f60: 69 64 2c 20 24 70 69 64 2c 20 24 74 69 64 2c 20 id, $pid, $tid,
2f70: 24 6d 79 73 72 63 69 64 29 3b 0a 09 20 20 20 20 $mysrcid);..
2f80: 7d 0a 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 }... foreach
2f90: 69 69 64 20 24 6d 79 69 74 65 6d 73 20 7b 0a 09 iid $myitems {..
2fa0: 09 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 20 .state run {...
2fb0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 INSERT INTO c
2fc0: 73 69 74 65 6d 20 28 63 69 64 2c 20 20 20 70 6f sitem (cid, po
2fd0: 73 2c 20 20 69 69 64 29 0a 09 09 20 20 20 20 56 s, iid)... V
2fe0: 41 4c 55 45 53 20 20 20 20 20 20 20 20 20 20 20 ALUES
2ff0: 20 20 28 24 6d 79 69 64 2c 20 24 70 6f 73 2c 20 ($myid, $pos,
3000: 24 69 69 64 29 3b 0a 09 09 7d 0a 09 09 69 6e 63 $iid);...}...inc
3010: 72 20 70 6f 73 0a 09 20 20 20 20 7d 0a 09 7d 0a r pos.. }..}.
3020: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
3030: 20 20 20 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 method timera
3040: 6e 67 65 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 nge {} { return
3050: 5b 24 6d 79 74 79 70 65 6f 62 6a 20 74 69 6d 65 [$mytypeobj time
3060: 72 61 6e 67 65 20 24 6d 79 69 74 65 6d 73 5d 20 range $myitems]
3070: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 6c 69 }.. method li
3080: 6d 69 74 73 20 7b 7d 20 7b 0a 09 73 74 72 75 63 mits {} {..struc
3090: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b t::list assign [
30a0: 24 6d 79 74 79 70 65 6f 62 6a 20 6c 69 6d 69 74 $mytypeobj limit
30b0: 73 20 24 6d 79 69 74 65 6d 73 5d 20 6d 61 78 70 s $myitems] maxp
30c0: 20 6d 69 6e 73 0a 09 72 65 74 75 72 6e 20 5b 6c mins..return [l
30d0: 69 73 74 20 5b 54 61 67 49 74 65 6d 44 69 63 74 ist [TagItemDict
30e0: 20 24 6d 61 78 70 20 24 6d 79 74 79 70 65 5d 20 $maxp $mytype]
30f0: 5b 54 61 67 49 74 65 6d 44 69 63 74 20 24 6d 69 [TagItemDict $mi
3100: 6e 73 20 24 6d 79 74 79 70 65 5d 5d 0a 20 20 20 ns $mytype]].
3110: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 }.. method d
3120: 72 6f 70 20 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 rop {} {..log wr
3130: 69 74 65 20 38 20 63 73 65 74 73 20 7b 44 72 6f ite 8 csets {Dro
3140: 70 70 69 6e 67 20 24 73 65 6c 66 20 3d 20 5b 24 pping $self = [$
3150: 73 65 6c 66 20 73 74 72 5d 7d 0a 0a 09 73 74 61 self str]}...sta
3160: 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b te transaction {
3170: 0a 09 20 20 20 20 73 74 61 74 65 20 72 75 6e 20 .. state run
3180: 7b 0a 09 09 44 45 4c 45 54 45 20 46 52 4f 4d 20 {...DELETE FROM
3190: 63 68 61 6e 67 65 73 65 74 20 20 20 57 48 45 52 changeset WHER
31a0: 45 20 63 69 64 20 3d 20 24 6d 79 69 64 3b 0a 09 E cid = $myid;..
31b0: 09 44 45 4c 45 54 45 20 46 52 4f 4d 20 63 73 69 .DELETE FROM csi
31c0: 74 65 6d 20 20 20 20 20 20 57 48 45 52 45 20 63 tem WHERE c
31d0: 69 64 20 3d 20 24 6d 79 69 64 3b 0a 09 09 44 45 id = $myid;...DE
31e0: 4c 45 54 45 20 46 52 4f 4d 20 63 73 73 75 63 63 LETE FROM cssucc
31f0: 65 73 73 6f 72 20 57 48 45 52 45 20 63 69 64 20 essor WHERE cid
3200: 3d 20 24 6d 79 69 64 3b 0a 09 20 20 20 20 7d 0a = $myid;.. }.
3210: 09 7d 0a 09 66 6f 72 65 61 63 68 20 69 69 64 20 .}..foreach iid
3220: 24 6d 79 69 74 65 6d 73 20 7b 0a 09 20 20 20 20 $myitems {..
3230: 73 65 74 20 6b 65 79 20 5b 6c 69 73 74 20 24 6d set key [list $m
3240: 79 74 79 70 65 20 24 69 69 64 5d 0a 09 20 20 20 ytype $iid]..
3250: 20 75 6e 73 65 74 20 6d 79 69 74 65 6d 6d 61 70 unset myitemmap
3260: 28 24 6b 65 79 29 0a 09 20 20 20 20 6c 6f 67 20 ($key).. log
3270: 77 72 69 74 65 20 38 20 63 73 65 74 73 20 7b 4d write 8 csets {M
3280: 41 50 2d 20 69 74 65 6d 20 3c 24 6b 65 79 3e 20 AP- item <$key>
3290: 24 73 65 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 $self = [$self s
32a0: 74 72 5d 7d 0a 09 7d 0a 09 73 65 74 20 70 6f 73 tr]}..}..set pos
32b0: 20 20 20 20 20 20 20 20 20 20 5b 6c 73 65 61 72 [lsear
32c0: 63 68 20 2d 65 78 61 63 74 20 24 6d 79 63 68 61 ch -exact $mycha
32d0: 6e 67 65 73 65 74 73 20 24 73 65 6c 66 5d 0a 09 ngesets $self]..
32e0: 73 65 74 20 6d 79 63 68 61 6e 67 65 73 65 74 73 set mychangesets
32f0: 20 5b 6c 72 65 70 6c 61 63 65 20 24 6d 79 63 68 [lreplace $mych
3300: 61 6e 67 65 73 65 74 73 20 24 70 6f 73 20 24 70 angesets $pos $p
3310: 6f 73 5d 0a 09 73 65 74 20 70 6f 73 20 20 20 20 os]..set pos
3320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3330: 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 [lsearch -exact
3340: 24 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 24 $mytchangesets($
3350: 6d 79 74 79 70 65 29 20 24 73 65 6c 66 5d 0a 09 mytype) $self]..
3360: 73 65 74 20 6d 79 74 63 68 61 6e 67 65 73 65 74 set mytchangeset
3370: 73 28 24 6d 79 74 79 70 65 29 20 5b 6c 72 65 70 s($mytype) [lrep
3380: 6c 61 63 65 20 24 6d 79 74 63 68 61 6e 67 65 73 lace $mytchanges
3390: 65 74 73 28 24 6d 79 74 79 70 65 29 20 24 70 6f ets($mytype) $po
33a0: 73 20 24 70 6f 73 5d 0a 0a 09 23 20 52 65 74 75 s $pos]...# Retu
33b0: 72 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 rn the list of p
33c0: 72 65 64 65 63 65 73 73 6f 72 73 20 73 6f 20 74 redecessors so t
33d0: 68 61 74 20 74 68 65 79 20 63 61 6e 20 62 65 20 hat they can be
33e0: 61 64 6a 75 73 74 65 64 2e 0a 09 72 65 74 75 72 adjusted...retur
33f0: 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 n [struct::list
3400: 6d 61 70 20 5b 73 74 61 74 65 20 72 75 6e 20 7b map [state run {
3410: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 63 69 64 .. SELECT cid
3420: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 63 73 73 .. FROM css
3430: 75 63 63 65 73 73 6f 72 0a 09 20 20 20 20 57 48 uccessor.. WH
3440: 45 52 45 20 20 6e 69 64 20 3d 20 24 6d 79 69 64 ERE nid = $myid
3450: 0a 09 7d 5d 20 5b 6d 79 74 79 70 65 6d 65 74 68 ..}] [mytypemeth
3460: 6f 64 20 6f 66 5d 5d 0a 20 20 20 20 7d 0a 0a 20 od of]]. }..
3470: 20 20 20 6d 65 74 68 6f 64 20 72 65 70 6f 72 74 method report
3480: 6c 6f 6f 70 20 7b 7b 6b 69 6c 6c 20 31 7d 7d 20 loop {{kill 1}}
3490: 7b 0a 09 23 20 57 65 20 70 72 69 6e 74 20 74 68 {..# We print th
34a0: 65 20 69 74 65 6d 73 20 77 68 69 63 68 20 61 72 e items which ar
34b0: 65 20 70 72 6f 64 75 63 69 6e 67 20 74 68 65 20 e producing the
34c0: 6c 6f 6f 70 2c 20 61 6e 64 20 68 6f 77 2e 0a 0a loop, and how...
34d0: 09 73 65 74 20 68 64 72 20 22 53 65 6c 66 2d 72 .set hdr "Self-r
34e0: 65 66 65 72 65 6e 74 69 61 6c 20 63 68 61 6e 67 eferential chang
34f0: 65 73 65 74 20 5b 24 73 65 6c 66 20 73 74 72 5d eset [$self str]
3500: 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f _______________
3510: 5f 5f 5f 22 0a 09 73 65 74 20 66 74 72 20 5b 72 ___"..set ftr [r
3520: 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 5e 20 09 egsub -all {[^ .
3530: 5d 7d 20 24 68 64 72 20 7b 5f 7d 5d 0a 0a 09 6c ]} $hdr {_}]...l
3540: 6f 67 20 77 72 69 74 65 20 30 20 63 73 65 74 73 og write 0 csets
3550: 20 24 68 64 72 0a 09 66 6f 72 65 61 63 68 20 7b $hdr..foreach {
3560: 69 74 65 6d 20 6e 65 78 74 69 74 65 6d 7d 20 5b item nextitem} [
3570: 24 6d 79 74 79 70 65 6f 62 6a 20 6c 6f 6f 70 73 $mytypeobj loops
3580: 20 24 6d 79 69 74 65 6d 73 5d 20 7b 0a 09 20 20 $myitems] {..
3590: 20 20 23 20 43 72 65 61 74 65 20 74 61 67 67 65 # Create tagge
35a0: 64 20 69 74 65 6d 73 20 66 72 6f 6d 20 74 68 65 d items from the
35b0: 20 69 64 20 61 6e 64 20 6f 75 72 20 74 79 70 65 id and our type
35c0: 2e 0a 09 20 20 20 20 73 65 74 20 69 74 65 6d 20 ... set item
35d0: 20 20 20 20 5b 6c 69 73 74 20 24 6d 79 74 79 70 [list $mytyp
35e0: 65 20 20 24 69 74 65 6d 5d 0a 09 20 20 20 20 73 e $item].. s
35f0: 65 74 20 6e 65 78 74 69 74 65 6d 20 5b 6c 69 73 et nextitem [lis
3600: 74 20 24 6d 79 74 79 70 65 20 24 6e 65 78 74 69 t $mytype $nexti
3610: 74 65 6d 5d 0a 09 20 20 20 20 23 20 50 72 69 6e tem].. # Prin
3620: 74 61 62 6c 65 20 6c 61 62 65 6c 73 2e 0a 09 20 table labels...
3630: 20 20 20 73 65 74 20 69 20 20 22 3c 5b 24 74 79 set i "<[$ty
3640: 70 65 20 69 74 65 6d 73 74 72 20 24 69 74 65 6d pe itemstr $item
3650: 5d 3e 22 0a 09 20 20 20 20 73 65 74 20 6e 20 20 ]>".. set n
3660: 22 3c 5b 24 74 79 70 65 20 69 74 65 6d 73 74 72 "<[$type itemstr
3670: 20 24 6e 65 78 74 69 74 65 6d 5d 3e 22 0a 09 20 $nextitem]>"..
3680: 20 20 20 73 65 74 20 6e 63 73 20 24 6d 79 69 74 set ncs $myit
3690: 65 6d 6d 61 70 28 24 6e 65 78 74 69 74 65 6d 29 emmap($nextitem)
36a0: 0a 09 20 20 20 20 23 20 50 72 69 6e 74 0a 09 20 .. # Print..
36b0: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 30 20 63 log write 0 c
36c0: 73 65 74 73 20 7b 2a 20 24 69 20 2d 2d 3e 20 24 sets {* $i --> $
36d0: 6e 20 2d 2d 3e 20 63 73 20 5b 24 6e 63 73 20 73 n --> cs [$ncs s
36e0: 74 72 5d 7d 0a 09 7d 0a 09 6c 6f 67 20 77 72 69 tr]}..}..log wri
36f0: 74 65 20 30 20 63 73 65 74 73 20 24 66 74 72 0a te 0 csets $ftr.
3700: 0a 09 69 66 20 7b 21 24 6b 69 6c 6c 7d 20 72 65 ..if {!$kill} re
3710: 74 75 72 6e 0a 09 74 72 6f 75 62 6c 65 20 69 6e turn..trouble in
3720: 74 65 72 6e 61 6c 20 22 5b 24 73 65 6c 66 20 73 ternal "[$self s
3730: 74 72 5d 20 64 65 70 65 6e 64 73 20 6f 6e 20 69 tr] depends on i
3740: 74 73 65 6c 66 22 0a 09 72 65 74 75 72 6e 0a 20 tself"..return.
3750: 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 }.. typeme
3760: 74 68 6f 64 20 73 70 6c 69 74 20 7b 63 73 65 74 thod split {cset
3770: 20 61 72 67 73 7d 20 7b 0a 09 23 20 41 73 20 70 args} {..# As p
3780: 61 72 74 20 6f 66 20 74 68 65 20 63 72 65 61 74 art of the creat
3790: 69 6f 6e 20 6f 66 20 74 68 65 20 6e 65 77 20 63 ion of the new c
37a0: 68 61 6e 67 65 73 65 74 73 20 73 70 65 63 69 66 hangesets specif
37b0: 69 65 64 20 69 6e 0a 09 23 20 41 52 47 53 20 61 ied in..# ARGS a
37c0: 73 20 73 65 74 73 20 6f 66 20 69 74 65 6d 73 2c s sets of items,
37d0: 20 61 6c 6c 20 73 75 62 73 65 74 73 20 6f 66 20 all subsets of
37e0: 43 53 45 54 27 73 20 69 74 65 6d 20 73 65 74 2c CSET's item set,
37f0: 20 43 53 45 54 0a 09 23 20 77 69 6c 6c 20 62 65 CSET..# will be
3800: 20 64 72 6f 70 70 65 64 20 66 72 6f 6d 20 61 6c dropped from al
3810: 6c 20 64 61 74 61 62 61 73 65 73 2c 20 69 6e 20 l databases, in
3820: 61 6e 64 20 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 and out of memor
3830: 79 2c 0a 09 23 20 61 6e 64 20 74 68 65 6e 20 64 y,..# and then d
3840: 65 73 74 72 6f 79 65 64 2e 0a 09 23 0a 09 23 20 estroyed...#..#
3850: 4e 6f 74 65 3a 20 54 68 65 20 69 74 65 6d 20 6c Note: The item l
3860: 69 73 74 73 20 66 6f 75 6e 64 20 69 6e 20 61 72 ists found in ar
3870: 67 73 20 61 72 65 20 74 61 67 67 65 64 20 69 74 gs are tagged it
3880: 65 6d 73 2e 20 54 68 65 79 0a 09 23 20 68 61 76 ems. They..# hav
3890: 65 20 74 6f 20 68 61 76 65 20 74 68 65 20 73 61 e to have the sa
38a0: 6d 65 20 74 79 70 65 20 61 73 20 74 68 65 20 63 me type as the c
38b0: 68 61 6e 67 65 73 65 74 2c 20 62 65 69 6e 67 20 hangeset, being
38c0: 73 75 62 73 65 74 73 0a 09 23 20 6f 66 20 69 74 subsets..# of it
38d0: 73 20 69 74 65 6d 73 2e 20 54 68 69 73 20 69 73 s items. This is
38e0: 20 63 68 65 63 6b 65 64 20 69 6e 20 55 6e 74 61 checked in Unta
38f0: 67 31 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 g1....log write
3900: 38 20 63 73 65 74 73 20 7b 4f 4c 44 3a 20 5b 6c 8 csets {OLD: [l
3910: 73 6f 72 74 20 5b 24 63 73 65 74 20 69 74 65 6d sort [$cset item
3920: 73 5d 5d 7d 0a 09 56 61 6c 69 64 61 74 65 46 72 s]]}..ValidateFr
3930: 61 67 6d 65 6e 74 73 20 24 63 73 65 74 20 24 61 agments $cset $a
3940: 72 67 73 0a 0a 09 23 20 41 6c 6c 20 63 68 65 63 rgs...# All chec
3950: 6b 73 20 70 61 73 73 2c 20 61 63 74 75 61 6c 6c ks pass, actuall
3960: 79 20 70 65 72 66 6f 72 6d 20 74 68 65 20 73 70 y perform the sp
3970: 6c 69 74 2e 0a 0a 09 73 74 72 75 63 74 3a 3a 6c lit....struct::l
3980: 69 73 74 20 61 73 73 69 67 6e 20 5b 24 63 73 65 ist assign [$cse
3990: 74 20 64 61 74 61 5d 20 70 72 6f 6a 65 63 74 20 t data] project
39a0: 63 73 74 79 70 65 20 63 73 73 72 63 0a 0a 09 73 cstype cssrc...s
39b0: 65 74 20 70 72 65 64 65 63 65 73 73 6f 72 73 20 et predecessors
39c0: 5b 24 63 73 65 74 20 64 72 6f 70 5d 0a 09 24 63 [$cset drop]..$c
39d0: 73 65 74 20 64 65 73 74 72 6f 79 0a 0a 09 73 65 set destroy...se
39e0: 74 20 6e 65 77 63 73 65 74 73 20 7b 7d 0a 09 66 t newcsets {}..f
39f0: 6f 72 65 61 63 68 20 66 72 61 67 6d 65 6e 74 69 oreach fragmenti
3a00: 74 65 6d 73 20 24 61 72 67 73 20 7b 0a 09 20 20 tems $args {..
3a10: 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 log write 8 cs
3a20: 65 74 73 20 7b 4d 41 4b 45 3a 20 5b 6c 73 6f 72 ets {MAKE: [lsor
3a30: 74 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 t $fragmentitems
3a40: 5d 7d 0a 0a 09 20 20 20 20 73 65 74 20 66 72 61 ]}... set fra
3a50: 67 6d 65 6e 74 20 5b 24 74 79 70 65 20 25 41 55 gment [$type %AU
3a60: 54 4f 25 20 24 70 72 6f 6a 65 63 74 20 24 63 73 TO% $project $cs
3a70: 74 79 70 65 20 24 63 73 73 72 63 20 5c 0a 09 09 type $cssrc \...
3a80: 09 20 20 20 20 20 20 5b 55 6e 74 61 67 20 24 66 . [Untag $f
3a90: 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 24 63 73 ragmentitems $cs
3aa0: 74 79 70 65 5d 5d 0a 09 20 20 20 20 6c 61 70 70 type]].. lapp
3ab0: 65 6e 64 20 6e 65 77 63 73 65 74 73 20 24 66 72 end newcsets $fr
3ac0: 61 67 6d 65 6e 74 0a 0a 09 20 20 20 20 24 66 72 agment... $fr
3ad0: 61 67 6d 65 6e 74 20 70 65 72 73 69 73 74 0a 09 agment persist..
3ae0: 20 20 20 20 24 66 72 61 67 6d 65 6e 74 20 64 65 $fragment de
3af0: 74 65 72 6d 69 6e 65 73 75 63 63 65 73 73 6f 72 terminesuccessor
3b00: 73 0a 09 7d 0a 0a 09 23 20 54 68 65 20 70 72 65 s..}...# The pre
3b10: 64 65 63 65 73 73 6f 72 73 20 68 61 76 65 20 74 decessors have t
3b20: 6f 20 72 65 63 6f 6d 70 75 74 65 20 74 68 65 69 o recompute thei
3b30: 72 20 73 75 63 63 65 73 73 6f 72 73 2c 20 69 2e r successors, i.
3b40: 65 2e 0a 09 23 20 72 65 6d 6f 76 65 20 74 68 65 e...# remove the
3b50: 20 64 72 6f 70 70 65 64 20 63 68 61 6e 67 65 73 dropped changes
3b60: 65 74 20 61 6e 64 20 70 75 74 20 6f 6e 65 20 6f et and put one o
3b70: 66 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 0a f the fragments.
3b80: 09 23 20 69 6e 74 6f 20 69 74 73 20 70 6c 61 63 .# into its plac
3b90: 65 2e 0a 09 66 6f 72 65 61 63 68 20 70 20 24 70 e...foreach p $p
3ba0: 72 65 64 65 63 65 73 73 6f 72 73 20 7b 0a 09 20 redecessors {..
3bb0: 20 20 20 24 70 20 64 65 74 65 72 6d 69 6e 65 73 $p determines
3bc0: 75 63 63 65 73 73 6f 72 73 0a 09 7d 0a 0a 09 72 uccessors..}...r
3bd0: 65 74 75 72 6e 20 24 6e 65 77 63 73 65 74 73 0a eturn $newcsets.
3be0: 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d }.. typem
3bf0: 65 74 68 6f 64 20 69 74 65 6d 73 74 72 20 7b 69 ethod itemstr {i
3c00: 74 65 6d 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a tem} {..struct::
3c10: 6c 69 73 74 20 61 73 73 69 67 6e 20 24 69 74 65 list assign $ite
3c20: 6d 20 69 74 79 70 65 20 69 69 64 0a 09 72 65 74 m itype iid..ret
3c30: 75 72 6e 20 5b 24 69 74 79 70 65 20 73 74 72 20 urn [$itype str
3c40: 24 69 69 64 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 $iid]. }..
3c50: 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 72 6c typemethod strl
3c60: 69 73 74 20 7b 63 68 61 6e 67 65 73 65 74 73 7d ist {changesets}
3c70: 20 7b 0a 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e {..return [join
3c80: 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d [struct::list m
3c90: 61 70 20 24 63 68 61 6e 67 65 73 65 74 73 20 5b ap $changesets [
3ca0: 6d 79 70 72 6f 63 20 49 44 5d 5d 5d 0a 20 20 20 myproc ID]]].
3cb0: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 44 20 }.. proc ID
3cc0: 7b 63 73 65 74 7d 20 7b 20 24 63 73 65 74 20 73 {cset} { $cset s
3cd0: 74 72 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 55 tr }.. proc U
3ce0: 6e 74 61 67 20 7b 74 61 67 67 65 64 69 74 65 6d ntag {taggeditem
3cf0: 73 20 63 73 74 79 70 65 7d 20 7b 0a 09 72 65 74 s cstype} {..ret
3d00: 75 72 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 urn [struct::lis
3d10: 74 20 6d 61 70 20 24 74 61 67 67 65 64 69 74 65 t map $taggedite
3d20: 6d 73 20 5b 6d 79 70 72 6f 63 20 55 6e 74 61 67 ms [myproc Untag
3d30: 31 20 24 63 73 74 79 70 65 5d 5d 0a 20 20 20 20 1 $cstype]].
3d40: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 55 6e 74 61 }.. proc Unta
3d50: 67 31 20 7b 63 73 74 79 70 65 20 74 68 65 69 74 g1 {cstype theit
3d60: 65 6d 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c em} {..struct::l
3d70: 69 73 74 20 61 73 73 69 67 6e 20 24 74 68 65 69 ist assign $thei
3d80: 74 65 6d 20 74 20 69 0a 09 69 6e 74 65 67 72 69 tem t i..integri
3d90: 74 79 20 61 73 73 65 72 74 20 7b 24 63 73 74 79 ty assert {$csty
3da0: 70 65 20 65 71 20 24 74 7d 20 7b 49 74 65 6d 20 pe eq $t} {Item
3db0: 24 69 27 73 20 74 79 70 65 20 69 73 20 27 24 74 $i's type is '$t
3dc0: 27 2c 20 65 78 70 65 63 74 65 64 20 27 24 63 73 ', expected '$cs
3dd0: 74 79 70 65 27 7d 0a 09 72 65 74 75 72 6e 20 24 type'}..return $
3de0: 69 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f i. }.. pro
3df0: 63 20 54 61 67 49 74 65 6d 44 69 63 74 20 7b 69 c TagItemDict {i
3e00: 74 65 6d 64 69 63 74 20 63 73 74 79 70 65 7d 20 temdict cstype}
3e10: 7b 0a 09 73 65 74 20 72 65 73 20 7b 7d 0a 09 66 {..set res {}..f
3e20: 6f 72 65 61 63 68 20 7b 69 20 76 7d 20 24 69 74 oreach {i v} $it
3e30: 65 6d 64 69 63 74 20 7b 20 6c 61 70 70 65 6e 64 emdict { lappend
3e40: 20 72 65 73 20 5b 6c 69 73 74 20 24 63 73 74 79 res [list $csty
3e50: 70 65 20 24 69 5d 20 24 76 20 7d 0a 09 72 65 74 pe $i] $v }..ret
3e60: 75 72 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a urn $res. }..
3e70: 20 20 20 20 70 72 6f 63 20 56 61 6c 69 64 61 74 proc Validat
3e80: 65 46 72 61 67 6d 65 6e 74 73 20 7b 63 73 65 74 eFragments {cset
3e90: 20 66 72 61 67 6d 65 6e 74 73 7d 20 7b 0a 09 23 fragments} {..#
3ea0: 20 43 68 65 63 6b 20 74 68 65 20 76 61 72 69 6f Check the vario
3eb0: 75 73 20 69 6e 74 65 67 72 69 74 79 20 63 6f 6e us integrity con
3ec0: 73 74 72 61 69 6e 74 73 20 66 6f 72 20 74 68 65 straints for the
3ed0: 20 66 72 61 67 6d 65 6e 74 73 0a 09 23 20 73 70 fragments..# sp
3ee0: 65 63 69 66 79 69 6e 67 20 68 6f 77 20 74 6f 20 ecifying how to
3ef0: 73 70 6c 69 74 20 74 68 65 20 63 68 61 6e 67 65 split the change
3f00: 73 65 74 3a 0a 09 23 0a 09 23 20 2a 20 57 65 20 set:..#..# * We
3f10: 6d 75 73 74 20 68 61 76 65 20 74 77 6f 20 6f 72 must have two or
3f20: 20 6d 6f 72 65 20 66 72 61 67 6d 65 6e 74 73 2c more fragments,
3f30: 20 61 73 20 73 70 6c 69 74 74 69 6e 67 20 61 0a as splitting a.
3f40: 09 23 20 20 20 63 68 61 6e 67 65 73 65 74 20 69 .# changeset i
3f50: 6e 74 6f 20 6f 6e 65 20 6d 61 6b 65 73 20 6e 6f nto one makes no
3f60: 20 73 65 6e 73 65 2e 0a 09 23 20 2a 20 4e 6f 20 sense...# * No
3f70: 66 72 61 67 6d 65 6e 74 20 6d 61 79 20 62 65 20 fragment may be
3f80: 65 6d 70 74 79 2e 0a 09 23 20 2a 20 41 6c 6c 20 empty...# * All
3f90: 66 72 61 67 6d 65 6e 74 73 20 68 61 76 65 20 74 fragments have t
3fa0: 6f 20 62 65 20 74 72 75 65 20 73 75 62 73 65 74 o be true subset
3fb0: 73 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 s of the items i
3fc0: 6e 20 74 68 65 0a 09 23 20 20 20 63 68 61 6e 67 n the..# chang
3fd0: 65 73 65 74 20 74 6f 20 73 70 6c 69 74 2e 20 54 eset to split. T
3fe0: 68 65 20 27 74 72 75 65 27 20 69 73 20 69 6d 70 he 'true' is imp
3ff0: 6c 69 65 64 20 62 65 63 61 75 73 65 20 6e 6f 6e lied because non
4000: 65 20 61 72 65 0a 09 23 20 20 20 61 6c 6c 6f 77 e are..# allow
4010: 65 64 20 74 6f 20 62 65 20 65 6d 70 74 79 2c 20 ed to be empty,
4020: 73 6f 20 65 61 63 68 20 68 61 73 20 74 6f 20 62 so each has to b
4030: 65 20 73 6d 61 6c 6c 65 72 20 74 68 61 6e 20 74 e smaller than t
4040: 68 65 0a 09 23 20 20 20 74 6f 74 61 6c 2e 0a 09 he..# total...
4050: 23 20 2a 20 54 68 65 20 75 6e 69 6f 6e 20 6f 66 # * The union of
4060: 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 20 68 the fragments h
4070: 61 73 20 74 6f 20 62 65 20 74 68 65 20 69 74 65 as to be the ite
4080: 6d 20 73 65 74 20 6f 66 20 74 68 65 0a 09 23 20 m set of the..#
4090: 20 20 63 68 61 6e 67 65 73 65 74 2e 0a 09 23 20 changeset...#
40a0: 2a 20 54 68 65 20 66 72 61 67 6d 65 6e 74 20 6d * The fragment m
40b0: 75 73 74 20 6e 6f 74 20 6f 76 65 72 6c 61 70 2c ust not overlap,
40c0: 20 69 2e 65 2e 20 74 68 65 69 72 20 70 61 69 72 i.e. their pair
40d0: 77 69 73 65 0a 09 23 20 20 20 69 6e 74 65 72 73 wise..# inters
40e0: 65 63 74 69 6f 6e 73 20 68 61 76 65 20 74 6f 20 ections have to
40f0: 62 65 20 65 6d 70 74 79 2e 0a 0a 09 73 65 74 20 be empty....set
4100: 63 6f 76 65 72 20 7b 7d 0a 09 66 6f 72 65 61 63 cover {}..foreac
4110: 68 20 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 h fragmentitems
4120: 24 66 72 61 67 6d 65 6e 74 73 20 7b 0a 09 20 20 $fragments {..
4130: 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 log write 8 cs
4140: 65 74 73 20 7b 4e 45 57 3a 20 5b 6c 73 6f 72 74 ets {NEW: [lsort
4150: 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d $fragmentitems]
4160: 7d 0a 0a 09 20 20 20 20 69 6e 74 65 67 72 69 74 }... integrit
4170: 79 20 61 73 73 65 72 74 20 7b 0a 09 09 21 5b 73 y assert {...![s
4180: 74 72 75 63 74 3a 3a 73 65 74 20 65 6d 70 74 79 truct::set empty
4190: 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d $fragmentitems]
41a0: 0a 09 20 20 20 20 7d 20 7b 63 68 61 6e 67 65 73 .. } {changes
41b0: 65 74 20 66 72 61 67 6d 65 6e 74 20 69 73 20 65 et fragment is e
41c0: 6d 70 74 79 7d 0a 0a 09 20 20 20 20 69 6e 74 65 mpty}... inte
41d0: 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 grity assert {..
41e0: 09 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 73 75 .[struct::set su
41f0: 62 73 65 74 6f 66 20 24 66 72 61 67 6d 65 6e 74 bsetof $fragment
4200: 69 74 65 6d 73 20 5b 24 63 73 65 74 20 69 74 65 items [$cset ite
4210: 6d 73 5d 5d 0a 09 20 20 20 20 7d 20 7b 63 68 61 ms]].. } {cha
4220: 6e 67 65 73 65 74 20 66 72 61 67 6d 65 6e 74 20 ngeset fragment
4230: 69 73 20 6e 6f 74 20 61 20 73 75 62 73 65 74 7d is not a subset}
4240: 0a 09 20 20 20 20 73 74 72 75 63 74 3a 3a 73 65 .. struct::se
4250: 74 20 61 64 64 20 63 6f 76 65 72 20 24 66 72 61 t add cover $fra
4260: 67 6d 65 6e 74 69 74 65 6d 73 0a 09 7d 0a 0a 09 gmentitems..}...
4270: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
4280: 20 7b 0a 09 20 20 20 20 5b 73 74 72 75 63 74 3a {.. [struct:
4290: 3a 73 65 74 20 65 71 75 61 6c 20 24 63 6f 76 65 :set equal $cove
42a0: 72 20 5b 24 63 73 65 74 20 69 74 65 6d 73 5d 5d r [$cset items]]
42b0: 0a 09 20 7d 20 7b 54 68 65 20 66 72 61 67 6d 65 .. } {The fragme
42c0: 6e 74 73 20 64 6f 20 6e 6f 74 20 63 6f 76 65 72 nts do not cover
42d0: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 63 68 the original ch
42e0: 61 6e 67 65 73 65 74 7d 0a 0a 09 73 65 74 20 69 angeset}...set i
42f0: 20 31 0a 09 66 6f 72 65 61 63 68 20 66 69 61 20 1..foreach fia
4300: 24 66 72 61 67 6d 65 6e 74 73 20 7b 0a 09 20 20 $fragments {..
4310: 20 20 66 6f 72 65 61 63 68 20 66 69 62 20 5b 6c foreach fib [l
4320: 72 61 6e 67 65 20 24 66 72 61 67 6d 65 6e 74 73 range $fragments
4330: 20 24 69 20 65 6e 64 5d 20 7b 0a 09 09 69 6e 74 $i end] {...int
4340: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a egrity assert {.
4350: 09 09 20 20 20 20 5b 73 74 72 75 63 74 3a 3a 73 .. [struct::s
4360: 65 74 20 65 6d 70 74 79 20 5b 73 74 72 75 63 74 et empty [struct
4370: 3a 3a 73 65 74 20 69 6e 74 65 72 73 65 63 74 20 ::set intersect
4380: 24 66 69 61 20 24 66 69 62 5d 5d 0a 09 09 7d 20 $fia $fib]]...}
4390: 7b 54 68 65 20 66 72 61 67 6d 65 6e 74 73 20 3c {The fragments <
43a0: 24 66 69 61 3e 20 61 6e 64 20 3c 24 66 69 62 3e $fia> and <$fib>
43b0: 20 6f 76 65 72 6c 61 70 7d 0a 09 20 20 20 20 7d overlap}.. }
43c0: 0a 09 20 20 20 20 69 6e 63 72 20 69 0a 09 7d 0a .. incr i..}.
43d0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
43e0: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
43f0: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
4400: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
4410: 23 23 20 53 74 61 74 65 0a 0a 20 20 20 20 76 61 ## State.. va
4420: 72 69 61 62 6c 65 20 6d 79 69 64 20 20 20 20 20 riable myid
4430: 20 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f 66 20 {} ; # Id of
4440: 74 68 65 20 63 73 65 74 20 66 6f 72 20 74 68 65 the cset for the
4450: 20 70 65 72 73 69 73 74 65 6e 74 0a 09 09 09 20 persistent....
4460: 20 20 20 20 20 23 20 73 74 61 74 65 2e 0a 20 20 # state..
4470: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 72 6f variable mypro
4480: 6a 65 63 74 20 20 20 7b 7d 20 3b 20 23 20 52 65 ject {} ; # Re
4490: 66 65 72 65 6e 63 65 20 6f 66 20 74 68 65 20 70 ference of the p
44a0: 72 6f 6a 65 63 74 20 6f 62 6a 65 63 74 20 74 68 roject object th
44b0: 65 0a 09 09 09 20 20 20 20 20 20 23 20 63 68 61 e.... # cha
44c0: 6e 67 65 73 65 74 20 62 65 6c 6f 6e 67 73 20 74 ngeset belongs t
44d0: 6f 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 o.. variable
44e0: 6d 79 74 79 70 65 20 20 20 20 20 20 7b 7d 20 3b mytype {} ;
44f0: 20 23 20 57 68 61 74 20 74 68 65 20 63 68 61 6e # What the chan
4500: 67 65 73 65 74 20 69 73 20 62 61 73 65 64 20 6f geset is based o
4510: 6e 0a 09 09 09 20 20 20 20 20 20 23 20 28 72 65 n.... # (re
4520: 76 69 73 69 6f 6e 73 2c 20 74 61 67 73 2c 20 6f visions, tags, o
4530: 72 20 62 72 61 6e 63 68 65 73 29 2e 0a 09 09 09 r branches).....
4540: 20 20 20 20 20 20 23 20 56 61 6c 75 65 73 3a 20 # Values:
4550: 53 65 65 20 6d 79 63 73 74 79 70 65 2e 20 4e 6f See mycstype. No
4560: 74 65 20 74 68 61 74 20 77 65 0a 09 09 09 20 20 te that we....
4570: 20 20 20 20 23 20 68 61 76 65 20 74 6f 20 6b 65 # have to ke
4580: 65 70 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 ep the names of
4590: 74 68 65 20 68 65 6c 70 65 72 0a 09 09 09 20 20 the helper....
45a0: 20 20 20 20 23 20 73 69 6e 67 6c 65 74 6f 6e 73 # singletons
45b0: 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 74 68 in sync with th
45c0: 65 20 63 6f 6e 74 65 6e 74 73 0a 09 09 09 20 20 e contents....
45d0: 20 20 20 20 23 20 6f 66 20 73 74 61 74 65 20 74 # of state t
45e0: 61 62 6c 65 20 27 63 73 74 79 70 65 27 2c 20 61 able 'cstype', a
45f0: 6e 64 20 76 61 72 69 6f 75 73 0a 09 09 09 20 20 nd various....
4600: 20 20 20 20 23 20 6f 74 68 65 72 20 70 6c 61 63 # other plac
4610: 65 73 20 75 73 69 6e 67 20 74 68 65 6d 20 68 61 es using them ha
4620: 72 64 77 69 72 65 64 2e 0a 20 20 20 20 76 61 72 rdwired.. var
4630: 69 61 62 6c 65 20 6d 79 74 79 70 65 6f 62 6a 20 iable mytypeobj
4640: 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e {} ; # Referen
4650: 63 65 20 74 6f 20 74 68 65 20 63 6f 6e 74 61 69 ce to the contai
4660: 6e 65 72 20 66 6f 72 20 74 68 65 0a 09 09 09 20 ner for the....
4670: 20 20 20 20 20 23 20 74 79 70 65 20 64 65 70 65 # type depe
4680: 6e 64 65 6e 74 20 63 6f 64 65 2e 20 44 65 72 69 ndent code. Deri
4690: 76 65 64 20 66 72 6f 6d 0a 09 09 09 20 20 20 20 ved from....
46a0: 20 20 23 20 6d 79 74 79 70 65 2e 0a 20 20 20 20 # mytype..
46b0: 76 61 72 69 61 62 6c 65 20 6d 79 73 72 63 69 64 variable mysrcid
46c0: 20 20 20 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f {} ; # Id o
46d0: 66 20 74 68 65 20 6d 65 74 61 64 61 74 61 20 6f f the metadata o
46e0: 72 20 73 79 6d 62 6f 6c 20 74 68 65 20 63 73 65 r symbol the cse
46f0: 74 0a 09 09 09 20 20 20 20 20 20 23 20 69 73 20 t.... # is
4700: 62 61 73 65 64 20 6f 6e 2e 0a 20 20 20 20 76 61 based on.. va
4710: 72 69 61 62 6c 65 20 6d 79 69 74 65 6d 73 20 20 riable myitems
4720: 20 20 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f {} ; # List o
4730: 66 20 74 68 65 20 66 69 6c 65 20 6c 65 76 65 6c f the file level
4740: 20 72 65 76 69 73 69 6f 6e 73 2c 0a 09 09 09 20 revisions,....
4750: 20 20 20 20 20 23 20 74 61 67 73 2c 20 6f 72 20 # tags, or
4760: 62 72 61 6e 63 68 65 73 20 69 6e 20 74 68 65 20 branches in the
4770: 63 73 65 74 2c 20 61 73 0a 09 09 09 20 20 20 20 cset, as....
4780: 20 20 23 20 69 64 73 2e 20 4e 6f 74 20 74 61 67 # ids. Not tag
4790: 67 65 64 2e 0a 20 20 20 20 76 61 72 69 61 62 6c ged.. variabl
47a0: 65 20 6d 79 74 69 74 65 6d 73 20 20 20 20 7b 7d e mytitems {}
47b0: 20 3b 20 23 20 41 73 20 6d 79 69 74 65 6d 73 2c ; # As myitems,
47c0: 20 74 68 65 20 74 61 67 67 65 64 20 66 6f 72 6d the tagged form
47d0: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
47e0: 79 70 72 65 6d 61 70 20 20 20 20 7b 7d 20 3b 20 ypremap {} ;
47f0: 23 20 44 69 63 74 69 6f 6e 61 72 79 20 6d 61 70 # Dictionary map
4800: 70 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 69 74 ping from the it
4810: 65 6d 73 20 28 74 61 67 67 65 64 20 6e 6f 77 29 ems (tagged now)
4820: 0a 09 09 09 20 20 20 20 20 20 23 20 74 6f 20 74 .... # to t
4830: 68 65 69 72 20 70 72 65 64 65 63 65 73 73 6f 72 heir predecessor
4840: 73 2c 20 61 6c 73 6f 20 74 61 67 67 65 64 2e 20 s, also tagged.
4850: 41 0a 09 09 09 20 20 20 20 20 20 23 20 63 61 63 A.... # cac
4860: 68 65 20 74 6f 20 61 76 6f 69 64 20 6c 6f 61 64 he to avoid load
4870: 69 6e 67 20 74 68 69 73 20 66 72 6f 6d 20 74 68 ing this from th
4880: 65 0a 09 09 09 20 20 20 20 20 20 23 20 73 74 61 e.... # sta
4890: 74 65 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 63 te more than onc
48a0: 65 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 e.. variable
48b0: 6d 79 6e 65 78 74 6d 61 70 20 20 20 7b 7d 20 3b mynextmap {} ;
48c0: 20 23 20 44 69 63 74 69 6f 6e 61 72 79 20 6d 61 # Dictionary ma
48d0: 70 70 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 69 pping from the i
48e0: 74 65 6d 73 20 28 74 61 67 67 65 64 29 0a 09 09 tems (tagged)...
48f0: 09 20 20 20 20 20 20 23 20 74 6f 20 74 68 65 69 . # to thei
4900: 72 20 73 75 63 63 65 73 73 6f 72 73 20 28 61 6c r successors (al
4910: 73 6f 20 74 61 67 67 65 64 29 2e 20 41 0a 09 09 so tagged). A...
4920: 09 20 20 20 20 20 20 23 20 63 61 63 68 65 20 74 . # cache t
4930: 6f 20 61 76 6f 69 64 20 6c 6f 61 64 69 6e 67 20 o avoid loading
4940: 74 68 69 73 20 66 72 6f 6d 20 74 68 65 0a 09 09 this from the...
4950: 09 20 20 20 20 20 20 23 20 73 74 61 74 65 20 6d . # state m
4960: 6f 72 65 20 74 68 61 6e 20 6f 6e 63 65 2e 0a 20 ore than once..
4970: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 6f variable mypo
4980: 73 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 43 s {} ; # C
4990: 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f 6e 20 6f ommit position o
49a0: 66 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2c f the changeset,
49b0: 20 69 66 0a 09 09 09 20 20 20 20 20 20 23 20 6b if.... # k
49c0: 6e 6f 77 6e 2e 0a 0a 20 20 20 20 23 20 23 20 23 nown... # # #
49d0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
49e0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
49f0: 23 23 0a 20 20 20 20 23 23 20 49 6e 74 65 72 6e ##. ## Intern
4a00: 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 al methods..
4a10: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 63 typevariable myc
4a20: 6f 75 6e 74 65 72 20 20 20 20 20 20 20 20 30 20 ounter 0
4a30: 3b 20 23 20 49 64 20 63 6f 75 6e 74 65 72 20 66 ; # Id counter f
4a40: 6f 72 20 63 73 65 74 73 2e 20 4c 61 73 74 20 69 or csets. Last i
4a50: 64 0a 09 09 09 09 20 20 20 20 20 20 23 20 75 73 d..... # us
4a60: 65 64 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 ed.. typevari
4a70: 61 62 6c 65 20 6d 79 63 73 74 79 70 65 20 2d 61 able mycstype -a
4a80: 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 20 rray {} ; # Map
4a90: 63 73 74 79 70 65 73 20 28 6e 61 6d 65 73 29 20 cstypes (names)
4aa0: 74 6f 20 70 65 72 73 69 73 74 65 6e 74 0a 09 09 to persistent...
4ab0: 09 09 20 20 20 20 20 20 23 20 69 64 73 2e 20 4e .. # ids. N
4ac0: 6f 74 65 20 74 68 61 74 20 77 65 20 68 61 76 65 ote that we have
4ad0: 20 74 6f 20 6b 65 65 70 0a 09 09 09 09 20 20 20 to keep.....
4ae0: 20 20 20 23 20 74 68 65 20 6e 61 6d 65 73 20 69 # the names i
4af0: 6e 20 74 68 65 20 74 61 62 6c 65 20 27 63 73 74 n the table 'cst
4b00: 79 70 65 27 0a 09 09 09 09 20 20 20 20 20 20 23 ype'..... #
4b10: 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 74 68 in sync with th
4b20: 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 0a 09 e names of the..
4b30: 09 09 09 20 20 20 20 20 20 23 20 68 65 6c 70 65 ... # helpe
4b40: 72 20 73 69 6e 67 6c 65 74 6f 6e 73 2e 0a 0a 20 r singletons...
4b50: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 67 65 typemethod ge
4b60: 74 63 73 74 79 70 65 73 20 7b 7d 20 7b 0a 09 66 tcstypes {} {..f
4b70: 6f 72 65 61 63 68 20 7b 74 69 64 20 6e 61 6d 65 oreach {tid name
4b80: 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 } [state run {..
4b90: 20 20 20 20 53 45 4c 45 43 54 20 74 69 64 2c 20 SELECT tid,
4ba0: 6e 61 6d 65 20 46 52 4f 4d 20 63 73 74 79 70 65 name FROM cstype
4bb0: 3b 0a 09 7d 5d 20 7b 20 73 65 74 20 6d 79 63 73 ;..}] { set mycs
4bc0: 74 79 70 65 28 24 6e 61 6d 65 29 20 24 74 69 64 type($name) $tid
4bd0: 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d }..return. }
4be0: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
4bf0: 20 6c 6f 61 64 63 6f 75 6e 74 65 72 20 7b 7d 20 loadcounter {}
4c00: 7b 0a 09 23 20 49 6e 69 74 69 61 6c 69 7a 65 20 {..# Initialize
4c10: 74 68 65 20 63 6f 75 6e 74 65 72 20 66 72 6f 6d the counter from
4c20: 20 74 68 65 20 73 74 61 74 65 0a 09 6c 6f 67 20 the state..log
4c30: 77 72 69 74 65 20 32 20 69 6e 69 74 63 73 65 74 write 2 initcset
4c40: 73 20 7b 4c 6f 61 64 69 6e 67 20 63 68 61 6e 67 s {Loading chang
4c50: 65 73 65 74 20 63 6f 75 6e 74 65 72 7d 0a 09 73 eset counter}..s
4c60: 65 74 20 6d 79 63 6f 75 6e 74 65 72 20 5b 73 74 et mycounter [st
4c70: 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 ate one { SELECT
4c80: 20 4d 41 58 28 63 69 64 29 20 46 52 4f 4d 20 63 MAX(cid) FROM c
4c90: 68 61 6e 67 65 73 65 74 20 7d 5d 0a 09 72 65 74 hangeset }]..ret
4ca0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 urn. }.. t
4cb0: 79 70 65 6d 65 74 68 6f 64 20 6e 75 6d 20 7b 7d ypemethod num {}
4cc0: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 63 6f 75 { return $mycou
4cd0: 6e 74 65 72 20 7d 0a 0a 20 20 20 20 70 72 6f 63 nter }.. proc
4ce0: 20 49 6e 69 74 69 61 6c 69 7a 65 42 72 65 61 6b InitializeBreak
4cf0: 53 74 61 74 65 20 7b 72 65 76 69 73 69 6f 6e 73 State {revisions
4d00: 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 70 6f 73 } {..upvar 1 pos
4d10: 20 70 6f 73 20 63 72 6f 73 73 20 63 72 6f 73 73 pos cross cross
4d20: 20 72 61 6e 67 65 20 72 61 6e 67 65 20 64 65 70 range range dep
4d30: 63 20 64 65 70 63 20 64 65 6c 74 61 20 64 65 6c c depc delta del
4d40: 74 61 20 5c 0a 09 20 20 20 20 64 65 70 65 6e 64 ta \.. depend
4d50: 65 6e 63 69 65 73 20 64 65 70 65 6e 64 65 6e 63 encies dependenc
4d60: 69 65 73 0a 0a 09 23 20 46 69 72 73 74 20 77 65 ies...# First we
4d70: 20 63 72 65 61 74 65 20 61 20 6d 61 70 20 6f 66 create a map of
4d80: 20 70 6f 73 69 74 69 6f 6e 73 20 74 6f 20 6d 61 positions to ma
4d90: 6b 65 20 69 74 20 65 61 73 69 65 72 20 74 6f 0a ke it easier to.
4da0: 09 23 20 64 65 74 65 72 6d 69 6e 65 20 77 68 65 .# determine whe
4db0: 74 68 65 72 20 61 20 64 65 70 65 6e 64 65 6e 63 ther a dependenc
4dc0: 79 20 63 72 6f 73 73 65 73 20 61 20 70 61 72 74 y crosses a part
4dd0: 69 63 75 6c 61 72 20 69 6e 64 65 78 2e 0a 0a 09 icular index....
4de0: 61 72 72 61 79 20 73 65 74 20 70 6f 73 20 20 20 array set pos
4df0: 7b 7d 0a 09 61 72 72 61 79 20 73 65 74 20 63 72 {}..array set cr
4e00: 6f 73 73 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 oss {}..array se
4e10: 74 20 64 65 70 63 20 20 7b 7d 0a 09 73 65 74 20 t depc {}..set
4e20: 72 61 6e 67 65 20 20 20 20 20 20 20 7b 7d 0a 09 range {}..
4e30: 73 65 74 20 6e 20 30 0a 09 66 6f 72 65 61 63 68 set n 0..foreach
4e40: 20 72 65 76 20 24 72 65 76 69 73 69 6f 6e 73 20 rev $revisions
4e50: 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 72 {.. lappend r
4e60: 61 6e 67 65 20 24 6e 0a 09 20 20 20 20 73 65 74 ange $n.. set
4e70: 20 70 6f 73 28 24 72 65 76 29 20 24 6e 0a 09 20 pos($rev) $n..
4e80: 20 20 20 73 65 74 20 63 72 6f 73 73 28 24 6e 29 set cross($n)
4e90: 20 30 0a 09 20 20 20 20 69 6e 63 72 20 6e 0a 09 0.. incr n..
4ea0: 7d 0a 0a 09 23 20 53 65 63 6f 6e 64 6c 79 20 77 }...# Secondly w
4eb0: 65 20 63 6f 75 6e 74 20 74 68 65 20 63 72 6f 73 e count the cros
4ec0: 73 69 6e 67 73 20 70 65 72 20 70 6f 73 69 74 69 sings per positi
4ed0: 6f 6e 2c 20 62 79 20 69 74 65 72 61 74 69 6e 67 on, by iterating
4ee0: 0a 09 23 20 6f 76 65 72 20 74 68 65 20 72 65 63 ..# over the rec
4ef0: 6f 72 64 65 64 20 69 6e 74 65 72 6e 61 6c 20 64 orded internal d
4f00: 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 0a 09 23 ependencies....#
4f10: 20 4e 6f 74 65 3a 20 49 66 20 74 68 65 20 74 69 Note: If the ti
4f20: 6d 65 73 74 61 6d 70 73 20 61 72 65 20 62 61 64 mestamps are bad
4f30: 6c 79 20 6f 75 74 20 6f 66 20 6f 72 64 65 72 20 ly out of order
4f40: 69 74 20 69 73 0a 09 23 20 20 20 20 20 20 20 70 it is..# p
4f50: 6f 73 73 69 62 6c 65 20 74 6f 20 68 61 76 65 20 ossible to have
4f60: 61 20 62 61 63 6b 77 61 72 64 20 73 75 63 63 65 a backward succe
4f70: 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 79 2c ssor dependency,
4f80: 0a 09 23 20 20 20 20 20 20 20 69 2e 65 2e 20 77 ..# i.e. w
4f90: 69 74 68 20 73 74 61 72 74 20 3e 20 65 6e 64 2e ith start > end.
4fa0: 20 57 65 20 6d 61 79 20 68 61 76 65 20 74 6f 20 We may have to
4fb0: 73 77 61 70 20 74 68 65 20 69 6e 64 69 63 65 73 swap the indices
4fc0: 0a 09 23 20 20 20 20 20 20 20 74 6f 20 65 6e 73 ..# to ens
4fd0: 75 72 65 20 74 68 61 74 20 74 68 65 20 66 6f 6c ure that the fol
4fe0: 6c 6f 77 69 6e 67 20 6c 6f 6f 70 20 72 75 6e 73 lowing loop runs
4ff0: 20 63 6f 72 72 65 63 74 6c 79 2e 0a 09 23 0a 09 correctly...#..
5000: 23 20 4e 6f 74 65 20 32 3a 20 73 74 61 72 74 20 # Note 2: start
5010: 3d 3d 20 65 6e 64 20 69 73 20 6e 6f 74 20 70 6f == end is not po
5020: 73 73 69 62 6c 65 2e 20 49 74 20 69 6e 64 69 63 ssible. It indic
5030: 61 74 65 73 20 61 0a 09 23 20 20 20 20 20 20 20 ates a..#
5040: 20 20 73 65 6c 66 2d 64 65 70 65 6e 64 65 6e 63 self-dependenc
5050: 79 20 64 75 65 20 74 6f 20 74 68 65 20 75 6e 69 y due to the uni
5060: 71 75 65 6e 65 73 73 20 6f 66 20 70 6f 73 69 74 queness of posit
5070: 69 6f 6e 73 2c 0a 09 23 20 20 20 20 20 20 20 20 ions,..#
5080: 20 61 6e 64 20 74 68 61 74 20 69 73 20 73 6f 6d and that is som
5090: 65 74 68 69 6e 67 20 77 65 20 68 61 76 65 20 72 ething we have r
50a0: 75 6c 65 64 20 6f 75 74 20 61 6c 72 65 61 64 79 uled out already
50b0: 2c 20 73 65 65 0a 09 23 20 20 20 20 20 20 20 20 , see..#
50c0: 20 27 72 65 76 20 69 6e 74 65 72 6e 61 6c 73 75 'rev internalsu
50d0: 63 63 65 73 73 6f 72 73 27 2e 0a 0a 09 66 6f 72 ccessors'....for
50e0: 65 61 63 68 20 7b 72 69 64 20 63 68 69 6c 64 72 each {rid childr
50f0: 65 6e 7d 20 5b 61 72 72 61 79 20 67 65 74 20 64 en} [array get d
5100: 65 70 65 6e 64 65 6e 63 69 65 73 5d 20 7b 0a 09 ependencies] {..
5110: 20 20 20 20 66 6f 72 65 61 63 68 20 63 68 69 6c foreach chil
5120: 64 20 24 63 68 69 6c 64 72 65 6e 20 7b 0a 09 09 d $children {...
5130: 73 65 74 20 64 6b 65 79 20 20 20 20 5b 6c 69 73 set dkey [lis
5140: 74 20 24 72 69 64 20 24 63 68 69 6c 64 5d 0a 09 t $rid $child]..
5150: 09 73 65 74 20 73 74 61 72 74 20 20 20 24 70 6f .set start $po
5160: 73 28 24 72 69 64 29 0a 09 09 73 65 74 20 65 6e s($rid)...set en
5170: 64 20 20 20 20 20 24 70 6f 73 28 24 63 68 69 6c d $pos($chil
5180: 64 29 0a 09 09 73 65 74 20 63 72 6f 73 73 65 73 d)...set crosses
5190: 20 7b 7d 0a 0a 09 09 69 66 20 7b 24 73 74 61 72 {}....if {$star
51a0: 74 20 3e 20 24 65 6e 64 7d 20 7b 0a 09 09 20 20 t > $end} {...
51b0: 20 20 77 68 69 6c 65 20 7b 24 65 6e 64 20 3c 20 while {$end <
51c0: 24 73 74 61 72 74 7d 20 7b 0a 09 09 09 6c 61 70 $start} {....lap
51d0: 70 65 6e 64 20 63 72 6f 73 73 65 73 20 24 65 6e pend crosses $en
51e0: 64 0a 09 09 09 69 6e 63 72 20 63 72 6f 73 73 28 d....incr cross(
51f0: 24 65 6e 64 29 0a 09 09 09 69 6e 63 72 20 65 6e $end)....incr en
5200: 64 0a 09 09 20 20 20 20 7d 0a 09 09 7d 20 65 6c d... }...} el
5210: 73 65 20 7b 0a 09 09 20 20 20 20 77 68 69 6c 65 se {... while
5220: 20 7b 24 73 74 61 72 74 20 3c 20 24 65 6e 64 7d {$start < $end}
5230: 20 7b 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 72 {....lappend cr
5240: 6f 73 73 65 73 20 24 73 74 61 72 74 0a 09 09 09 osses $start....
5250: 69 6e 63 72 20 63 72 6f 73 73 28 24 73 74 61 72 incr cross($star
5260: 74 29 0a 09 09 09 69 6e 63 72 20 73 74 61 72 74 t)....incr start
5270: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 09 73 ... }...}...s
5280: 65 74 20 64 65 70 63 28 24 64 6b 65 79 29 20 24 et depc($dkey) $
5290: 63 72 6f 73 73 65 73 0a 09 20 20 20 20 7d 0a 09 crosses.. }..
52a0: 7d 0a 0a 09 49 6e 69 74 69 61 6c 69 7a 65 44 65 }...InitializeDe
52b0: 6c 74 61 73 20 24 72 65 76 69 73 69 6f 6e 73 0a ltas $revisions.
52c0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
52d0: 20 20 20 70 72 6f 63 20 49 6e 69 74 69 61 6c 69 proc Initiali
52e0: 7a 65 44 65 6c 74 61 73 20 7b 72 65 76 69 73 69 zeDeltas {revisi
52f0: 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 ons} {..upvar 1
5300: 64 65 6c 74 61 20 64 65 6c 74 61 0a 0a 09 23 20 delta delta...#
5310: 50 75 6c 6c 20 74 68 65 20 74 69 6d 65 73 74 61 Pull the timesta
5320: 6d 70 73 20 66 6f 72 20 61 6c 6c 20 72 65 76 69 mps for all revi
5330: 73 69 6f 6e 73 20 69 6e 20 74 68 65 20 63 68 61 sions in the cha
5340: 6e 67 65 73 65 74 73 20 61 6e 64 0a 09 23 20 63 ngesets and..# c
5350: 6f 6d 70 75 74 65 20 74 68 65 69 72 20 64 65 6c ompute their del
5360: 74 61 73 20 66 6f 72 20 75 73 65 20 62 79 20 74 tas for use by t
5370: 68 65 20 62 72 65 61 6b 20 66 69 6e 64 65 72 2e he break finder.
5380: 0a 0a 09 61 72 72 61 79 20 73 65 74 20 64 65 6c ...array set del
5390: 74 61 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 74 ta {}..array set
53a0: 20 73 74 61 6d 70 20 7b 7d 0a 0a 09 73 65 74 20 stamp {}...set
53b0: 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 theset ('[join $
53c0: 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d revisions {','}]
53d0: 27 29 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 ')..foreach {rid
53e0: 20 74 69 6d 65 7d 20 5b 73 74 61 74 65 20 72 75 time} [state ru
53f0: 6e 20 22 0a 09 20 20 20 20 53 45 4c 45 43 54 20 n ".. SELECT
5400: 52 2e 72 69 64 2c 20 52 2e 64 61 74 65 0a 09 20 R.rid, R.date..
5410: 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e FROM revision
5420: 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e R.. WHERE R.
5430: 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 rid IN $theset..
5440: 22 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 73 74 "] {.. set st
5450: 61 6d 70 28 24 72 69 64 29 20 24 74 69 6d 65 0a amp($rid) $time.
5460: 09 7d 0a 0a 09 73 65 74 20 6e 20 30 0a 09 66 6f .}...set n 0..fo
5470: 72 65 61 63 68 20 72 69 64 20 5b 6c 72 61 6e 67 reach rid [lrang
5480: 65 20 24 72 65 76 69 73 69 6f 6e 73 20 30 20 65 e $revisions 0 e
5490: 6e 64 2d 31 5d 20 72 6e 65 78 74 20 5b 6c 72 61 nd-1] rnext [lra
54a0: 6e 67 65 20 24 72 65 76 69 73 69 6f 6e 73 20 31 nge $revisions 1
54b0: 20 65 6e 64 5d 20 7b 0a 09 20 20 20 20 73 65 74 end] {.. set
54c0: 20 64 65 6c 74 61 28 24 6e 29 20 5b 65 78 70 72 delta($n) [expr
54d0: 20 7b 24 73 74 61 6d 70 28 24 72 6e 65 78 74 29 {$stamp($rnext)
54e0: 20 2d 20 24 73 74 61 6d 70 28 24 72 69 64 29 7d - $stamp($rid)}
54f0: 5d 0a 09 20 20 20 20 69 6e 63 72 20 6e 0a 09 7d ].. incr n..}
5500: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
5510: 20 20 20 20 70 72 6f 63 20 46 69 6e 64 42 65 73 proc FindBes
5520: 74 42 72 65 61 6b 20 7b 72 61 6e 67 65 7d 20 7b tBreak {range} {
5530: 0a 09 75 70 76 61 72 20 31 20 63 72 6f 73 73 20 ..upvar 1 cross
5540: 63 72 6f 73 73 20 64 65 6c 74 61 20 64 65 6c 74 cross delta delt
5550: 61 0a 0a 09 23 20 44 65 74 65 72 6d 69 6e 65 20 a...# Determine
5560: 74 68 65 20 62 65 73 74 20 62 72 65 61 6b 20 6c the best break l
5570: 6f 63 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 67 ocation in the g
5580: 69 76 65 6e 20 72 61 6e 67 65 20 6f 66 0a 09 23 iven range of..#
5590: 20 70 6f 73 69 74 69 6f 6e 73 2e 20 46 69 72 73 positions. Firs
55a0: 74 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 74 68 t we look for th
55b0: 65 20 6c 6f 63 61 74 69 6f 6e 73 20 77 69 74 68 e locations with
55c0: 20 74 68 65 20 6d 61 78 69 6d 61 6c 0a 09 23 20 the maximal..#
55d0: 6e 75 6d 62 65 72 20 6f 66 20 63 72 6f 73 73 69 number of crossi
55e0: 6e 67 73 2e 20 49 66 20 74 68 65 72 65 20 61 72 ngs. If there ar
55f0: 65 20 73 65 76 65 72 61 6c 20 77 65 20 6c 6f 6f e several we loo
5600: 6b 20 66 6f 72 20 74 68 65 0a 09 23 20 73 68 6f k for the..# sho
5610: 72 74 65 73 74 20 74 69 6d 65 20 69 6e 74 65 72 rtest time inter
5620: 76 61 6c 20 61 6d 6f 6e 67 20 74 68 65 6d 2e 20 val among them.
5630: 49 66 20 77 65 20 73 74 69 6c 6c 20 68 61 76 65 If we still have
5640: 20 6d 75 6c 74 69 70 6c 65 0a 09 23 20 70 6f 73 multiple..# pos
5650: 73 69 62 69 6c 69 74 69 65 73 20 61 66 74 65 72 sibilities after
5660: 20 74 68 61 74 20 77 65 20 73 65 6c 65 63 74 20 that we select
5670: 74 68 65 20 65 61 72 6c 69 65 73 74 20 6c 6f 63 the earliest loc
5680: 61 74 69 6f 6e 0a 09 23 20 61 6d 6f 6e 67 20 74 ation..# among t
5690: 68 65 73 65 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 hese....# Note:
56a0: 49 66 20 74 68 65 20 6d 61 78 69 6d 61 6c 20 6e If the maximal n
56b0: 75 6d 62 65 72 20 6f 66 20 63 72 6f 73 73 69 6e umber of crossin
56c0: 67 73 20 69 73 20 30 20 74 68 65 6e 20 74 68 65 gs is 0 then the
56d0: 20 72 61 6e 67 65 0a 09 23 20 20 20 20 20 20 20 range..#
56e0: 68 61 73 20 6e 6f 20 69 6e 74 65 72 6e 61 6c 20 has no internal
56f0: 64 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 6e dependencies, an
5700: 64 20 6e 6f 20 62 72 65 61 6b 20 6c 6f 63 61 74 d no break locat
5710: 69 6f 6e 20 61 74 0a 09 23 20 20 20 20 20 20 20 ion at..#
5720: 61 6c 6c 2e 20 54 68 69 73 20 70 6f 73 73 69 62 all. This possib
5730: 69 6c 69 74 79 20 69 73 20 73 69 67 6e 61 6c 65 ility is signale
5740: 64 20 76 69 61 20 72 65 73 75 6c 74 20 2d 31 2e d via result -1.
5750: 0a 0a 09 23 20 4e 6f 74 65 3a 20 41 20 72 61 6e ...# Note: A ran
5760: 67 65 20 6f 66 20 6c 65 6e 67 74 68 20 31 20 6f ge of length 1 o
5770: 72 20 6c 65 73 73 20 63 61 6e 6e 6f 74 20 68 61 r less cannot ha
5780: 76 65 20 69 6e 74 65 72 6e 61 6c 0a 09 23 20 20 ve internal..#
5790: 20 20 20 20 20 64 65 70 65 6e 64 65 6e 63 69 65 dependencie
57a0: 73 2c 20 61 73 20 74 68 61 74 20 6e 65 65 64 73 s, as that needs
57b0: 20 61 74 20 6c 65 61 73 74 20 74 77 6f 20 72 65 at least two re
57c0: 76 69 73 69 6f 6e 73 20 69 6e 0a 09 23 20 20 20 visions in..#
57d0: 20 20 20 20 74 68 65 20 72 61 6e 67 65 2e 0a 0a the range...
57e0: 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 .if {[llength $r
57f0: 61 6e 67 65 5d 20 3c 20 32 7d 20 7b 20 72 65 74 ange] < 2} { ret
5800: 75 72 6e 20 2d 31 20 7d 0a 0a 09 73 65 74 20 6d urn -1 }...set m
5810: 61 78 20 2d 31 0a 09 73 65 74 20 62 65 73 74 20 ax -1..set best
5820: 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 6c 6f 63 {}...foreach loc
5830: 61 74 69 6f 6e 20 24 72 61 6e 67 65 20 7b 0a 09 ation $range {..
5840: 20 20 20 20 73 65 74 20 63 72 6f 73 73 69 6e 67 set crossing
5850: 73 20 24 63 72 6f 73 73 28 24 6c 6f 63 61 74 69 s $cross($locati
5860: 6f 6e 29 0a 09 20 20 20 20 69 66 20 7b 24 63 72 on).. if {$cr
5870: 6f 73 73 69 6e 67 73 20 3e 20 24 6d 61 78 7d 20 ossings > $max}
5880: 7b 0a 09 09 73 65 74 20 6d 61 78 20 20 24 63 72 {...set max $cr
5890: 6f 73 73 69 6e 67 73 0a 09 09 73 65 74 20 62 65 ossings...set be
58a0: 73 74 20 5b 6c 69 73 74 20 24 6c 6f 63 61 74 69 st [list $locati
58b0: 6f 6e 5d 0a 09 09 63 6f 6e 74 69 6e 75 65 0a 09 on]...continue..
58c0: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 63 } elseif {$c
58d0: 72 6f 73 73 69 6e 67 73 20 3d 3d 20 24 6d 61 78 rossings == $max
58e0: 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 62 65 } {...lappend be
58f0: 73 74 20 24 6c 6f 63 61 74 69 6f 6e 0a 09 20 20 st $location..
5900: 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 7b 24 6d 61 }..}...if {$ma
5910: 78 20 3d 3d 20 30 7d 20 20 20 20 20 20 20 20 20 x == 0}
5920: 20 20 20 7b 20 72 65 74 75 72 6e 20 2d 31 20 7d { return -1 }
5930: 0a 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 ..if {[llength $
5940: 62 65 73 74 5d 20 3d 3d 20 31 7d 20 7b 20 72 65 best] == 1} { re
5950: 74 75 72 6e 20 5b 6c 69 6e 64 65 78 20 24 62 65 turn [lindex $be
5960: 73 74 20 30 5d 20 7d 0a 0a 09 73 65 74 20 6c 6f st 0] }...set lo
5970: 63 61 74 69 6f 6e 73 20 24 62 65 73 74 0a 09 73 cations $best..s
5980: 65 74 20 62 65 73 74 20 7b 7d 0a 09 73 65 74 20 et best {}..set
5990: 6d 69 6e 20 2d 31 0a 0a 09 66 6f 72 65 61 63 68 min -1...foreach
59a0: 20 6c 6f 63 61 74 69 6f 6e 20 24 6c 6f 63 61 74 location $locat
59b0: 69 6f 6e 73 20 7b 0a 09 20 20 20 20 73 65 74 20 ions {.. set
59c0: 69 6e 74 65 72 76 61 6c 20 24 64 65 6c 74 61 28 interval $delta(
59d0: 24 6c 6f 63 61 74 69 6f 6e 29 0a 09 20 20 20 20 $location)..
59e0: 69 66 20 7b 28 24 6d 69 6e 20 3c 20 30 29 20 7c if {($min < 0) |
59f0: 7c 20 28 24 69 6e 74 65 72 76 61 6c 20 3c 20 24 | ($interval < $
5a00: 6d 69 6e 29 7d 20 7b 0a 09 09 73 65 74 20 6d 69 min)} {...set mi
5a10: 6e 20 20 24 69 6e 74 65 72 76 61 6c 0a 09 09 73 n $interval...s
5a20: 65 74 20 62 65 73 74 20 5b 6c 69 73 74 20 24 6c et best [list $l
5a30: 6f 63 61 74 69 6f 6e 5d 0a 09 20 20 20 20 7d 20 ocation].. }
5a40: 65 6c 73 65 69 66 20 7b 24 69 6e 74 65 72 76 61 elseif {$interva
5a50: 6c 20 3d 3d 20 24 6d 69 6e 7d 20 7b 0a 09 09 6c l == $min} {...l
5a60: 61 70 70 65 6e 64 20 62 65 73 74 20 24 6c 6f 63 append best $loc
5a70: 61 74 69 6f 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a ation.. }..}.
5a80: 0a 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 ..if {[llength $
5a90: 62 65 73 74 5d 20 3d 3d 20 31 7d 20 7b 20 72 65 best] == 1} { re
5aa0: 74 75 72 6e 20 5b 6c 69 6e 64 65 78 20 24 62 65 turn [lindex $be
5ab0: 73 74 20 30 5d 20 7d 0a 0a 09 72 65 74 75 72 6e st 0] }...return
5ac0: 20 5b 6c 69 6e 64 65 78 20 5b 6c 73 6f 72 74 20 [lindex [lsort
5ad0: 2d 69 6e 74 65 67 65 72 20 2d 69 6e 63 72 65 61 -integer -increa
5ae0: 73 69 6e 67 20 24 62 65 73 74 5d 20 30 5d 0a 20 sing $best] 0].
5af0: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 43 }.. proc C
5b00: 75 74 41 74 20 7b 6c 6f 63 61 74 69 6f 6e 7d 20 utAt {location}
5b10: 7b 0a 09 75 70 76 61 72 20 31 20 63 72 6f 73 73 {..upvar 1 cross
5b20: 20 63 72 6f 73 73 20 64 65 70 63 20 64 65 70 63 cross depc depc
5b30: 0a 0a 09 23 20 49 74 20 77 61 73 20 64 65 63 69 ...# It was deci
5b40: 64 65 64 20 74 6f 20 73 70 6c 69 74 20 74 68 65 ded to split the
5b50: 20 63 68 61 6e 67 65 73 65 74 20 61 74 20 74 68 changeset at th
5b60: 65 20 67 69 76 65 6e 0a 09 23 20 6c 6f 63 61 74 e given..# locat
5b70: 69 6f 6e 2e 20 54 68 69 73 20 63 75 74 73 20 61 ion. This cuts a
5b80: 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 70 65 6e number of depen
5b90: 64 65 6e 63 69 65 73 2e 20 48 65 72 65 20 77 65 dencies. Here we
5ba0: 20 75 70 64 61 74 65 0a 09 23 20 74 68 65 20 63 update..# the c
5bb0: 72 6f 73 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ross information
5bc0: 20 73 6f 20 74 68 61 74 20 74 68 65 20 62 72 65 so that the bre
5bd0: 61 6b 20 66 69 6e 64 65 72 20 68 61 73 20 61 63 ak finder has ac
5be0: 63 75 72 61 74 65 0a 09 23 20 64 61 74 61 20 77 curate..# data w
5bf0: 68 65 6e 20 77 65 20 6c 6f 6f 6b 20 61 74 20 74 hen we look at t
5c00: 68 65 20 67 65 6e 65 72 61 74 65 64 20 66 72 61 he generated fra
5c10: 67 6d 65 6e 74 73 2e 0a 0a 09 73 65 74 20 73 69 gments....set si
5c20: 78 20 5b 6c 6f 67 20 76 69 73 69 62 6c 65 3f 20 x [log visible?
5c30: 36 5d 0a 0a 09 66 6f 72 65 61 63 68 20 7b 64 65 6]...foreach {de
5c40: 70 20 72 61 6e 67 65 7d 20 5b 61 72 72 61 79 20 p range} [array
5c50: 67 65 74 20 64 65 70 63 5d 20 7b 0a 09 20 20 20 get depc] {..
5c60: 20 23 20 43 68 65 63 6b 20 61 6c 6c 20 64 65 70 # Check all dep
5c70: 65 6e 64 65 6e 63 69 65 73 20 73 74 69 6c 6c 20 endencies still
5c80: 6b 6e 6f 77 6e 2c 20 74 61 6b 65 20 74 68 65 69 known, take thei
5c90: 72 20 72 61 6e 67 65 20 61 6e 64 0a 09 20 20 20 r range and..
5ca0: 20 23 20 73 65 65 20 69 66 20 74 68 65 20 62 72 # see if the br
5cb0: 65 61 6b 20 6c 6f 63 61 74 69 6f 6e 20 66 61 6c eak location fal
5cc0: 6c 73 20 77 69 74 68 69 6e 2e 0a 0a 09 20 20 20 ls within....
5cd0: 20 42 6f 72 64 65 72 20 24 72 61 6e 67 65 20 73 Border $range s
5ce0: 20 65 0a 09 20 20 20 20 69 66 20 7b 24 6c 6f 63 e.. if {$loc
5cf0: 61 74 69 6f 6e 20 3c 20 24 73 7d 20 63 6f 6e 74 ation < $s} cont
5d00: 69 6e 75 65 20 3b 20 23 20 62 72 65 61 6b 20 62 inue ; # break b
5d10: 65 66 6f 72 65 20 72 61 6e 67 65 2c 20 69 67 6e efore range, ign
5d20: 6f 72 65 0a 09 20 20 20 20 69 66 20 7b 24 6c 6f ore.. if {$lo
5d30: 63 61 74 69 6f 6e 20 3e 20 24 65 7d 20 63 6f 6e cation > $e} con
5d40: 74 69 6e 75 65 20 3b 20 23 20 62 72 65 61 6b 20 tinue ; # break
5d50: 61 66 74 65 72 20 72 61 6e 67 65 2c 20 69 67 6e after range, ign
5d60: 6f 72 65 2e 0a 0a 09 20 20 20 20 23 20 54 68 69 ore.... # Thi
5d70: 73 20 64 65 70 65 6e 64 65 6e 63 79 20 63 72 6f s dependency cro
5d80: 73 73 65 73 20 74 68 65 20 62 72 65 61 6b 20 6c sses the break l
5d90: 6f 63 61 74 69 6f 6e 2e 20 57 65 20 72 65 6d 6f ocation. We remo
5da0: 76 65 20 69 74 0a 09 20 20 20 20 23 20 66 72 6f ve it.. # fro
5db0: 6d 20 74 68 65 20 63 72 6f 73 73 69 6e 67 73 20 m the crossings
5dc0: 63 6f 75 6e 74 65 72 73 2c 20 61 6e 64 20 74 68 counters, and th
5dd0: 65 6e 20 61 6c 73 6f 20 66 72 6f 6d 20 74 68 65 en also from the
5de0: 20 73 65 74 0a 09 20 20 20 20 23 20 6f 66 20 6b set.. # of k
5df0: 6e 6f 77 6e 20 64 65 70 65 6e 64 65 6e 63 69 65 nown dependencie
5e00: 73 2c 20 61 73 20 77 65 20 61 72 65 20 64 6f 6e s, as we are don
5e10: 65 20 77 69 74 68 20 69 74 2e 0a 0a 09 20 20 20 e with it....
5e20: 20 66 6f 72 65 61 63 68 20 6c 6f 63 20 24 64 65 foreach loc $de
5e30: 70 63 28 24 64 65 70 29 20 7b 20 69 6e 63 72 20 pc($dep) { incr
5e40: 63 72 6f 73 73 28 24 6c 6f 63 29 20 2d 31 20 7d cross($loc) -1 }
5e50: 0a 09 20 20 20 20 75 6e 73 65 74 20 64 65 70 63 .. unset depc
5e60: 28 24 64 65 70 29 0a 0a 09 20 20 20 20 69 66 20 ($dep)... if
5e70: 7b 21 24 73 69 78 7d 20 63 6f 6e 74 69 6e 75 65 {!$six} continue
5e80: 0a 0a 09 20 20 20 20 73 74 72 75 63 74 3a 3a 6c ... struct::l
5e90: 69 73 74 20 61 73 73 69 67 6e 20 24 64 65 70 20 ist assign $dep
5ea0: 70 61 72 65 6e 74 20 63 68 69 6c 64 0a 09 20 20 parent child..
5eb0: 20 20 6c 6f 67 20 77 72 69 74 65 20 35 20 63 73 log write 5 cs
5ec0: 65 74 73 20 22 42 72 6f 6b 65 20 64 65 70 65 6e ets "Broke depen
5ed0: 64 65 6e 63 79 20 5b 50 44 20 24 70 61 72 65 6e dency [PD $paren
5ee0: 74 5d 20 2d 2d 3e 20 5b 50 44 20 24 63 68 69 6c t] --> [PD $chil
5ef0: 64 5d 22 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a d]"..}...return.
5f00: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 50 72 69 }.. # Pri
5f10: 6e 74 20 69 64 65 6e 74 69 66 79 69 6e 67 20 64 nt identifying d
5f20: 61 74 61 20 66 6f 72 20 61 20 72 65 76 69 73 69 ata for a revisi
5f30: 6f 6e 20 28 70 72 6f 6a 65 63 74 2c 20 66 69 6c on (project, fil
5f40: 65 2c 20 64 6f 74 74 65 64 20 72 65 76 0a 20 20 e, dotted rev.
5f50: 20 20 23 20 6e 75 6d 62 65 72 29 2c 20 66 6f 72 # number), for
5f60: 20 68 69 67 68 20 76 65 72 62 6f 73 69 74 79 20 high verbosity
5f70: 6c 6f 67 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 log output..
5f80: 23 20 54 4f 44 4f 3a 20 52 65 70 6c 61 63 65 20 # TODO: Replace
5f90: 77 69 74 68 20 63 61 6c 6c 20 74 6f 20 69 74 65 with call to ite
5fa0: 6d 73 74 72 20 28 6c 69 73 74 20 72 65 76 20 24 mstr (list rev $
5fb0: 69 64 29 0a 0a 20 20 20 20 70 72 6f 63 20 50 44 id).. proc PD
5fc0: 20 7b 69 64 7d 20 7b 0a 09 66 6f 72 65 61 63 68 {id} {..foreach
5fd0: 20 7b 70 20 66 20 72 7d 20 5b 73 74 61 74 65 20 {p f r} [state
5fe0: 72 75 6e 20 7b 0a 09 09 53 45 4c 45 43 54 20 50 run {...SELECT P
5ff0: 2e 6e 61 6d 65 20 2c 20 46 2e 6e 61 6d 65 2c 20 .name , F.name,
6000: 52 2e 72 65 76 0a 09 09 46 52 4f 4d 20 72 65 76 R.rev...FROM rev
6010: 69 73 69 6f 6e 20 52 2c 20 66 69 6c 65 20 46 2c ision R, file F,
6020: 20 70 72 6f 6a 65 63 74 20 50 0a 09 09 57 48 45 project P...WHE
6030: 52 45 20 52 2e 72 69 64 20 3d 20 24 69 64 0a 09 RE R.rid = $id..
6040: 09 41 4e 44 20 20 20 46 2e 66 69 64 20 3d 20 52 .AND F.fid = R
6050: 2e 66 69 64 0a 09 09 41 4e 44 20 20 20 50 2e 70 .fid...AND P.p
6060: 69 64 20 3d 20 46 2e 70 69 64 0a 09 7d 5d 20 62 id = F.pid..}] b
6070: 72 65 61 6b 0a 09 72 65 74 75 72 6e 20 22 27 24 reak..return "'$
6080: 70 20 3a 20 24 66 2f 24 72 27 22 0a 20 20 20 20 p : $f/$r'".
6090: 7d 0a 0a 20 20 20 20 23 20 50 72 69 6e 74 69 6e }.. # Printin
60a0: 67 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 72 61 g one or more ra
60b0: 6e 67 65 73 2c 20 66 6f 72 6d 61 74 74 65 64 2c nges, formatted,
60c0: 20 61 6e 64 20 6f 6e 6c 79 20 74 68 65 69 72 20 and only their
60d0: 62 6f 72 64 65 72 20 74 6f 0a 20 20 20 20 23 20 border to. #
60e0: 6b 65 65 70 20 74 68 65 20 73 74 72 69 6e 67 73 keep the strings
60f0: 20 73 68 6f 72 74 2e 0a 0a 20 20 20 20 70 72 6f short... pro
6100: 63 20 50 52 73 20 7b 72 61 6e 67 65 73 7d 20 7b c PRs {ranges} {
6110: 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 ..return [struct
6120: 3a 3a 6c 69 73 74 20 6d 61 70 20 24 72 61 6e 67 ::list map $rang
6130: 65 73 20 5b 6d 79 70 72 6f 63 20 50 52 5d 5d 0a es [myproc PR]].
6140: 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 }.. proc
6150: 50 52 20 7b 72 61 6e 67 65 7d 20 7b 0a 09 42 6f PR {range} {..Bo
6160: 72 64 65 72 20 24 72 61 6e 67 65 20 73 20 65 0a rder $range s e.
6170: 09 72 65 74 75 72 6e 20 3c 24 7b 73 7d 2e 2e 2e .return <${s}...
6180: 24 7b 65 7d 3e 0a 20 20 20 20 7d 0a 0a 20 20 20 ${e}>. }..
6190: 20 70 72 6f 63 20 42 6f 72 64 65 72 20 7b 72 61 proc Border {ra
61a0: 6e 67 65 20 73 76 20 65 76 7d 20 7b 0a 09 75 70 nge sv ev} {..up
61b0: 76 61 72 20 31 20 24 73 76 20 73 20 24 65 76 20 var 1 $sv s $ev
61c0: 65 0a 09 73 65 74 20 73 20 5b 6c 69 6e 64 65 78 e..set s [lindex
61d0: 20 24 72 61 6e 67 65 20 30 5d 0a 09 73 65 74 20 $range 0]..set
61e0: 65 20 5b 6c 69 6e 64 65 78 20 24 72 61 6e 67 65 e [lindex $range
61f0: 20 65 6e 64 5d 0a 09 72 65 74 75 72 6e 0a 20 20 end]..return.
6200: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 }.. # # ##
6210: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
6220: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
6230: 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 .. typevariab
6240: 6c 65 20 6d 79 63 68 61 6e 67 65 73 65 74 73 20 le mychangesets
6250: 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 4c {} ; # L
6260: 69 73 74 20 6f 66 20 61 6c 6c 20 6b 6e 6f 77 6e ist of all known
6270: 0a 09 09 09 09 09 20 20 20 23 20 63 68 61 6e 67 ...... # chang
6280: 65 73 65 74 73 2e 0a 20 20 20 20 74 79 70 65 76 esets.. typev
6290: 61 72 69 61 62 6c 65 20 6d 79 74 63 68 61 6e 67 ariable mytchang
62a0: 65 73 65 74 73 20 2d 61 72 72 61 79 20 7b 7d 20 esets -array {}
62b0: 3b 20 23 20 4c 69 73 74 20 6f 66 20 61 6c 6c 20 ; # List of all
62c0: 6b 6e 6f 77 6e 0a 09 09 09 09 09 20 20 20 23 20 known...... #
62d0: 63 68 61 6e 67 65 73 65 74 73 20 6f 66 20 61 20 changesets of a
62e0: 74 79 70 65 2e 0a 20 20 20 20 74 79 70 65 76 61 type.. typeva
62f0: 72 69 61 62 6c 65 20 6d 79 69 74 65 6d 6d 61 70 riable myitemmap
6300: 20 20 20 20 20 2d 61 72 72 61 79 20 7b 7d 20 3b -array {} ;
6310: 20 23 20 4d 61 70 20 66 72 6f 6d 20 69 74 65 6d # Map from item
6320: 73 20 28 74 61 67 67 65 64 29 0a 09 09 09 09 09 s (tagged)......
6330: 20 20 20 23 20 74 6f 20 74 68 65 20 6c 69 73 74 # to the list
6340: 20 6f 66 20 63 68 61 6e 67 65 73 65 74 73 0a 09 of changesets..
6350: 09 09 09 09 20 20 20 23 20 63 6f 6e 74 61 69 6e .... # contain
6360: 69 6e 67 20 69 74 2e 20 45 61 63 68 20 69 74 65 ing it. Each ite
6370: 6d 0a 09 09 09 09 09 20 20 20 23 20 63 61 6e 20 m...... # can
6380: 62 65 20 75 73 65 64 20 62 79 20 6f 6e 6c 79 20 be used by only
6390: 6f 6e 65 0a 09 09 09 09 09 20 20 20 23 20 63 68 one...... # ch
63a0: 61 6e 67 65 73 65 74 2e 0a 20 20 20 20 74 79 70 angeset.. typ
63b0: 65 76 61 72 69 61 62 6c 65 20 6d 79 69 64 6d 61 evariable myidma
63c0: 70 20 20 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 p -array {} ;
63d0: 23 20 4d 61 70 20 66 72 6f 6d 20 63 68 61 6e 67 # Map from chang
63e0: 65 73 65 74 20 69 64 20 74 6f 0a 09 09 09 09 20 eset id to.....
63f0: 20 20 20 20 20 20 23 20 63 68 61 6e 67 65 73 65 # changese
6400: 74 2e 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 t... typemeth
6410: 6f 64 20 61 6c 6c 20 20 20 20 7b 7d 20 20 20 20 od all {}
6420: 7b 20 72 65 74 75 72 6e 20 24 6d 79 63 68 61 6e { return $mychan
6430: 67 65 73 65 74 73 20 7d 0a 20 20 20 20 74 79 70 gesets }. typ
6440: 65 6d 65 74 68 6f 64 20 6f 66 20 20 20 20 20 7b emethod of {
6450: 63 69 64 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d cid} { return $m
6460: 79 69 64 6d 61 70 28 24 63 69 64 29 20 7d 0a 20 yidmap($cid) }.
6470: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 typemethod of
6480: 69 74 65 6d 20 7b 69 69 64 7d 20 7b 20 72 65 74 item {iid} { ret
6490: 75 72 6e 20 24 6d 79 69 74 65 6d 6d 61 70 28 24 urn $myitemmap($
64a0: 69 69 64 29 20 7d 0a 0a 20 20 20 20 74 79 70 65 iid) }.. type
64b0: 6d 65 74 68 6f 64 20 72 65 76 20 20 20 20 7b 7d method rev {}
64c0: 20 20 20 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 { return $my
64d0: 74 63 68 61 6e 67 65 73 65 74 73 28 72 65 76 29 tchangesets(rev)
64e0: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
64f0: 64 20 73 79 6d 20 20 20 20 7b 7d 20 20 20 20 7b d sym {} {
6500: 20 72 65 74 75 72 6e 20 5b 63 6f 6e 63 61 74 20 return [concat
6510: 5c 0a 09 09 09 09 09 20 20 24 7b 6d 79 74 63 68 \...... ${mytch
6520: 61 6e 67 65 73 65 74 73 28 73 79 6d 3a 3a 62 72 angesets(sym::br
6530: 61 6e 63 68 29 7d 20 5c 0a 09 09 09 09 09 20 20 anch)} \......
6540: 24 7b 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 ${mytchangesets(
6550: 73 79 6d 3a 3a 74 61 67 29 7d 5d 20 7d 0a 0a 20 sym::tag)}] }..
6560: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
6570: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
6580: 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 ##########. #
6590: 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a # Configuration.
65a0: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 . pragma -has
65b0: 74 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 20 typeinfo no
65c0: 3b 20 23 20 6e 6f 20 74 79 70 65 20 69 6e 74 72 ; # no type intr
65d0: 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 ospection. pr
65e0: 61 67 6d 61 20 2d 68 61 73 69 6e 66 6f 20 20 20 agma -hasinfo
65f0: 20 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 no ; # no
6600: 6f 62 6a 65 63 74 20 69 6e 74 72 6f 73 70 65 63 object introspec
6610: 74 69 6f 6e 0a 0a 20 20 20 20 23 20 23 20 23 23 tion.. # # ##
6620: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
6630: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
6640: 23 0a 7d 0a 0a 23 23 0a 23 23 20 4e 4f 54 45 3a #.}..##.## NOTE:
6650: 20 54 68 65 20 73 75 63 63 65 73 73 6f 72 20 61 The successor a
6660: 6e 64 20 70 72 65 64 65 63 65 73 73 6f 72 20 6d nd predecessor m
6670: 65 74 68 6f 64 73 20 64 65 66 69 6e 65 64 20 62 ethods defined b
6680: 79 20 74 68 65 20 63 6c 61 73 73 65 73 0a 23 23 y the classes.##
6690: 20 20 20 20 20 20 20 62 65 6c 6f 77 20 61 72 65 below are
66a0: 20 2d 2d 20 62 6f 74 74 6c 65 20 6e 65 63 6b 73 -- bottle necks
66b0: 20 2d 2d 2e 20 4c 6f 6f 6b 20 66 6f 72 20 77 61 --. Look for wa
66c0: 79 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 53 ys to make the S
66d0: 51 4c 0a 23 23 20 20 20 20 20 20 20 66 61 73 74 QL.## fast
66e0: 65 72 2e 0a 23 23 0a 0a 23 20 23 20 23 23 20 23 er..##..# # ## #
66f0: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
6700: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 # #############
6710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6720: 23 23 23 23 23 0a 23 23 20 48 65 6c 70 65 72 20 #####.## Helper
6730: 73 69 6e 67 6c 65 74 6f 6e 2e 20 43 6f 6d 6d 61 singleton. Comma
6740: 6e 64 73 20 66 6f 72 20 72 65 76 69 73 69 6f 6e nds for revision
6750: 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 73 6e changesets...sn
6760: 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 it::type ::vc::f
6770: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
6780: 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 vs::project::rev
6790: 3a 3a 72 65 76 20 7b 0a 20 20 20 20 74 79 70 65 ::rev {. type
67a0: 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f method byrevisio
67b0: 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 31 20 n {} { return 1
67c0: 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 }. typemethod
67d0: 20 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b bysymbol {} {
67e0: 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 return 0 }.
67f0: 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 61 67 typemethod istag
6800: 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 {} { retur
6810: 6e 20 30 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 n 0 }. typeme
6820: 74 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 thod isbranch
6830: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a {} { return 0 }.
6840: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
6850: 73 74 72 20 7b 72 65 76 69 73 69 6f 6e 7d 20 7b str {revision} {
6860: 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 ..struct::list a
6870: 73 73 69 67 6e 20 5b 73 74 61 74 65 20 72 75 6e ssign [state run
6880: 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 {.. SELECT R
6890: 2e 72 65 76 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e .rev, F.name, P.
68a0: 6e 61 6d 65 0a 09 20 20 20 20 46 52 4f 4d 20 20 name.. FROM
68b0: 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 66 69 6c revision R, fil
68c0: 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 e F, project P..
68d0: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
68e0: 20 3d 20 24 72 65 76 69 73 69 6f 6e 0a 09 20 20 = $revision..
68f0: 20 20 41 4e 44 20 20 20 20 46 2e 66 69 64 20 3d AND F.fid =
6900: 20 52 2e 66 69 64 0a 09 20 20 20 20 41 4e 44 20 R.fid.. AND
6910: 20 20 20 50 2e 70 69 64 20 3d 20 46 2e 70 69 64 P.pid = F.pid
6920: 0a 09 7d 5d 20 72 65 76 6e 72 20 66 6e 61 6d 65 ..}] revnr fname
6930: 20 70 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 pname..return "
6940: 24 70 6e 61 6d 65 2f 24 7b 72 65 76 6e 72 7d 3a $pname/${revnr}:
6950: 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a 0a :$fname". }..
6960: 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 6c # result = l
6970: 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d 61 ist (mintime, ma
6980: 78 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 6d xtime). typem
6990: 65 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 20 ethod timerange
69a0: 7b 69 74 65 6d 73 7d 20 7b 0a 09 73 65 74 20 74 {items} {..set t
69b0: 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 69 heset ('[join $i
69c0: 74 65 6d 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 tems {','}]')..r
69d0: 65 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e eturn [state run
69e0: 20 22 0a 09 20 20 20 20 53 45 4c 45 43 54 20 4d ".. SELECT M
69f0: 49 4e 28 52 2e 64 61 74 65 29 2c 20 4d 41 58 28 IN(R.date), MAX(
6a00: 52 2e 64 61 74 65 29 0a 09 20 20 20 20 46 52 4f R.date).. FRO
6a10: 4d 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 M revision R..
6a20: 20 20 57 48 45 52 45 20 52 2e 72 69 64 20 49 4e WHERE R.rid IN
6a30: 20 24 74 68 65 73 65 74 0a 09 22 5d 0a 20 20 20 $theset.."].
6a40: 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 }.. # var(dv
6a50: 29 20 3d 20 64 69 63 74 20 28 72 65 76 69 73 69 ) = dict (revisi
6a60: 6f 6e 20 2d 3e 20 6c 69 73 74 20 28 72 65 76 69 on -> list (revi
6a70: 73 69 6f 6e 29 29 0a 20 20 20 20 74 79 70 65 6d sion)). typem
6a80: 65 74 68 6f 64 20 69 6e 74 65 72 6e 61 6c 73 75 ethod internalsu
6a90: 63 63 65 73 73 6f 72 73 20 7b 64 76 20 72 65 76 ccessors {dv rev
6aa0: 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 isions} {..upvar
6ab0: 20 31 20 24 64 76 20 64 65 70 65 6e 64 65 6e 63 1 $dv dependenc
6ac0: 69 65 73 0a 09 73 65 74 20 74 68 65 73 65 74 20 ies..set theset
6ad0: 28 27 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f ('[join $revisio
6ae0: 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 23 20 ns {','}]')...#
6af0: 53 65 65 20 27 73 75 63 63 65 73 73 6f 72 73 27 See 'successors'
6b00: 20 62 65 6c 6f 77 20 66 6f 72 20 74 68 65 20 6d below for the m
6b10: 61 69 6e 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 ain explanation
6b20: 6f 66 0a 09 23 20 74 68 65 20 76 61 72 69 6f 75 of..# the variou
6b30: 73 20 63 61 73 65 73 2e 20 54 68 69 73 20 70 69 s cases. This pi
6b40: 65 63 65 20 69 73 20 73 70 65 63 69 61 6c 20 69 ece is special i
6b50: 6e 20 74 68 61 74 20 69 74 0a 09 23 20 72 65 73 n that it..# res
6b60: 74 72 69 63 74 73 20 74 68 65 20 73 75 63 63 65 tricts the succe
6b70: 73 73 6f 72 73 20 77 65 20 6c 6f 6f 6b 20 66 6f ssors we look fo
6b80: 72 20 74 6f 20 74 68 65 20 73 61 6d 65 20 73 65 r to the same se
6b90: 74 20 6f 66 0a 09 23 20 72 65 76 69 73 69 6f 6e t of..# revision
6ba0: 73 20 77 65 20 73 74 61 72 74 20 66 72 6f 6d 2e s we start from.
6bb0: 20 53 65 6e 73 69 62 6c 65 20 61 73 20 77 65 20 Sensible as we
6bc0: 61 72 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a are looking for.
6bd0: 09 23 20 63 68 61 6e 67 65 73 65 74 20 69 6e 74 .# changeset int
6be0: 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 ernal dependenci
6bf0: 65 73 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 es....array set
6c00: 64 65 70 20 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 dep {}...foreach
6c10: 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 {rid child} [st
6c20: 61 74 65 20 72 75 6e 20 22 0a 20 20 20 2d 2d 20 ate run ". --
6c30: 28 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 6c (1) Primary chil
6c40: 64 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e d.. SELECT R.
6c50: 72 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 20 rid, R.child..
6c60: 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f FROM revisio
6c70: 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 n R.. WHERE
6c80: 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 R.rid IN $thes
6c90: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
6ca0: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
6cb0: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
6cc0: 20 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 20 AND R.child
6cd0: 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d IS NOT NULL -
6ce0: 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 - Has primary ch
6cf0: 69 6c 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 ild.. AND
6d00: 52 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 73 R.child IN $thes
6d10: 65 74 20 20 20 20 20 2d 2d 20 57 68 69 63 68 20 et -- Which
6d20: 69 73 20 61 6c 73 6f 20 6f 66 20 69 6e 74 65 72 is also of inter
6d30: 65 73 74 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 est. UNION.
6d40: 20 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 -- (2) Seconda
6d50: 72 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 6c ry (branch) chil
6d60: 64 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 dren.. SELECT
6d70: 20 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a 09 R.rid, B.brid..
6d80: 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 FROM revis
6d90: 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 62 ion R, revisionb
6da0: 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 0a ranchchildren B.
6db0: 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 . WHERE R.ri
6dc0: 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 d IN $theset
6dd0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
6de0: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 o revisions of i
6df0: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
6e00: 20 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 R.rid = B.ri
6e10: 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 d -- Se
6e20: 6c 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 62 lect subset of b
6e30: 72 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a 09 ranch children..
6e40: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 62 72 69 AND B.bri
6e50: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
6e60: 20 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c -- Which is al
6e70: 73 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 so of interest.
6e80: 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 UNION. --
6e90: 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 (4) Child of tru
6ea0: 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f nk root successo
6eb0: 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f r of last NTDB o
6ec0: 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 n trunk... SE
6ed0: 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 LECT R.rid, RA.c
6ee0: 68 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 72 hild.. FROM r
6ef0: 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 evision R, revis
6f00: 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 52 ion RA.. WHER
6f10: 45 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 E R.rid IN $th
6f20: 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 73 eset -- Res
6f30: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
6f40: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
6f50: 20 20 20 20 41 4e 44 20 20 20 52 2e 69 73 64 65 AND R.isde
6f60: 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 20 fault
6f70: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
6f80: 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 20 NTDB.. AND
6f90: 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 4e 4f R.dbchild IS NO
6fa0: 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 20 T NULL -- and
6fb0: 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e 67 last NTDB belong
6fc0: 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 20 ing to trunk..
6fd0: 20 20 41 4e 44 20 20 20 52 41 2e 72 69 64 20 3d AND RA.rid =
6fe0: 20 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 20 R.dbchild
6ff0: 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 74 -- Go directly t
7000: 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 o trunk root..
7010: 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
7020: 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 IS NOT NULL
7030: 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 -- Has primary c
7040: 68 69 6c 64 2e 0a 20 20 20 20 20 20 20 20 20 20 hild..
7050: 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
7060: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
7070: 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c 73 6f -- Which is also
7080: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 22 5d of interest.."]
7090: 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e 73 69 64 {.. # Consid
70a0: 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 73 20 74 er moving this t
70b0: 6f 20 74 68 65 20 69 6e 74 65 67 72 69 74 79 20 o the integrity
70c0: 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 69 6e 74 module... int
70d0: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 24 egrity assert {$
70e0: 72 69 64 20 21 3d 20 24 63 68 69 6c 64 7d 20 7b rid != $child} {
70f0: 52 65 76 69 73 69 6f 6e 20 24 72 69 64 20 64 65 Revision $rid de
7100: 70 65 6e 64 73 20 6f 6e 20 69 74 73 65 6c 66 2e pends on itself.
7110: 7d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 }.. lappend d
7120: 65 70 65 6e 64 65 6e 63 69 65 73 28 24 72 69 64 ependencies($rid
7130: 29 20 24 63 68 69 6c 64 0a 09 20 20 20 20 73 65 ) $child.. se
7140: 74 20 64 65 70 28 24 72 69 64 2c 24 63 68 69 6c t dep($rid,$chil
7150: 64 29 20 2e 0a 09 7d 0a 0a 09 23 20 54 68 65 20 d) ...}...# The
7160: 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 61 sql statements a
7170: 62 6f 76 65 20 6c 6f 6f 6b 73 20 6f 6e 6c 79 20 bove looks only
7180: 66 6f 72 20 64 69 72 65 63 74 20 64 65 70 65 6e for direct depen
7190: 64 65 6e 63 69 65 73 0a 09 23 20 62 65 74 77 65 dencies..# betwe
71a0: 65 6e 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 74 en revision in t
71b0: 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 48 6f he changeset. Ho
71c0: 77 65 76 65 72 20 64 75 65 20 74 6f 20 74 68 65 wever due to the
71d0: 0a 09 23 20 76 61 67 61 72 69 65 73 20 6f 66 20 ..# vagaries of
71e0: 6d 65 74 61 20 64 61 74 61 20 69 74 20 69 73 20 meta data it is
71f0: 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 77 6f possible for two
7200: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 0a 09 23 revisions of..#
7210: 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 74 the same file t
7220: 6f 20 65 6e 64 20 75 70 20 69 6e 20 74 68 65 20 o end up in the
7230: 73 61 6d 65 20 63 68 61 6e 67 65 73 65 74 2c 20 same changeset,
7240: 77 69 74 68 6f 75 74 20 61 0a 09 23 20 64 69 72 without a..# dir
7250: 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 20 62 ect dependency b
7260: 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 48 6f 77 etween them. How
7270: 65 76 65 72 20 77 65 20 6b 6e 6f 77 20 74 68 61 ever we know tha
7280: 74 20 74 68 65 72 65 0a 09 23 20 68 61 73 20 74 t there..# has t
7290: 6f 20 62 65 20 61 20 61 6e 20 69 6e 64 69 72 65 o be a an indire
72a0: 63 74 20 64 65 70 65 6e 64 65 6e 63 79 2c 20 62 ct dependency, b
72b0: 65 20 69 74 20 74 68 72 6f 75 67 68 20 70 72 69 e it through pri
72c0: 6d 61 72 79 0a 09 23 20 63 68 69 6c 64 72 65 6e mary..# children
72d0: 2c 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 , branch childre
72e0: 6e 2c 20 6f 72 20 61 20 63 6f 6d 62 69 6e 61 74 n, or a combinat
72f0: 69 6f 6e 20 74 68 65 72 65 6f 66 2e 0a 0a 09 23 ion thereof....#
7300: 20 57 65 20 6e 6f 77 20 66 69 6c 6c 20 69 6e 20 We now fill in
7310: 74 68 65 73 65 20 70 73 65 75 64 6f 2d 64 65 70 these pseudo-dep
7320: 65 6e 64 65 6e 63 69 65 73 2c 20 69 66 20 6e 6f endencies, if no
7330: 20 73 75 63 68 0a 09 23 20 64 65 70 65 6e 64 65 such..# depende
7340: 6e 63 79 20 65 78 69 73 74 73 20 61 6c 72 65 61 ncy exists alrea
7350: 64 79 2e 20 54 68 65 20 64 69 72 65 63 74 69 6f dy. The directio
7360: 6e 20 6f 66 20 74 68 65 20 64 65 70 65 6e 64 65 n of the depende
7370: 6e 63 79 0a 09 23 20 69 73 20 61 63 74 75 61 6c ncy..# is actual
7380: 6c 79 20 69 72 72 65 6c 65 76 61 6e 74 20 66 6f ly irrelevant fo
7390: 72 20 74 68 69 73 2e 0a 0a 09 23 20 4e 4f 54 45 r this....# NOTE
73a0: 3a 20 54 68 69 73 20 69 73 20 64 69 66 66 65 72 : This is differ
73b0: 65 6e 74 20 66 72 6f 6d 20 63 76 73 32 73 76 6e ent from cvs2svn
73c0: 2e 20 4f 75 72 20 73 70 69 72 69 74 75 61 6c 20 . Our spiritual
73d0: 61 6e 63 65 73 74 6f 72 0a 09 23 20 64 6f 65 73 ancestor..# does
73e0: 20 6e 6f 74 20 75 73 65 20 73 75 63 68 20 70 73 not use such ps
73f0: 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 65 eudo-dependencie
7400: 73 2c 20 68 6f 77 65 76 65 72 20 69 74 20 75 73 s, however it us
7410: 65 73 20 61 0a 09 23 20 43 4f 4d 4d 49 54 5f 54 es a..# COMMIT_T
7420: 48 52 45 53 48 4f 4c 44 2c 20 61 20 74 69 6d 65 HRESHOLD, a time
7430: 20 69 6e 74 65 72 76 61 6c 20 63 6f 6d 6d 69 74 interval commit
7440: 73 20 73 68 6f 75 6c 64 20 66 61 6c 6c 2e 20 54 s should fall. T
7450: 68 69 73 0a 09 23 20 77 69 6c 6c 20 67 72 65 61 his..# will grea
7460: 74 6c 79 20 72 65 64 75 63 65 73 20 74 68 65 20 tly reduces the
7470: 72 69 73 6b 20 6f 66 20 67 65 74 74 69 6e 67 20 risk of getting
7480: 66 61 72 20 73 65 70 61 72 61 74 65 64 0a 09 23 far separated..#
7490: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 74 68 revisions of th
74a0: 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e 74 6f e same file into
74b0: 20 6f 6e 65 20 63 68 61 6e 67 65 73 65 74 2e 0a one changeset..
74c0: 0a 09 23 20 57 65 20 61 6c 6c 6f 77 20 72 65 76 ..# We allow rev
74d0: 69 73 69 6f 6e 73 20 74 6f 20 62 65 20 66 61 72 isions to be far
74e0: 20 61 70 61 72 74 20 69 6e 20 74 69 6d 65 20 69 apart in time i
74f0: 6e 20 74 68 65 20 73 61 6d 65 0a 09 23 20 63 68 n the same..# ch
7500: 61 6e 67 65 73 65 74 2c 20 62 75 74 20 69 6e 20 angeset, but in
7510: 74 75 72 6e 20 6e 65 65 64 20 74 68 65 20 70 73 turn need the ps
7520: 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 65 eudo-dependencie
7530: 73 20 74 6f 0a 09 23 20 68 61 6e 64 6c 65 20 74 s to..# handle t
7540: 68 69 73 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 his....array set
7550: 20 66 69 64 73 20 7b 7d 0a 09 66 6f 72 65 61 63 fids {}..foreac
7560: 68 20 7b 72 69 64 20 66 69 64 7d 20 5b 73 74 61 h {rid fid} [sta
7570: 74 65 20 72 75 6e 20 22 0a 09 20 20 20 20 53 45 te run ".. SE
7580: 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 2e 66 69 LECT R.rid, R.fi
7590: 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 52 d. FR
75a0: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a OM revision R.
75b0: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 45 52 WHER
75c0: 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 E R.rid IN $the
75d0: 73 65 74 0a 09 22 5d 20 7b 20 6c 61 70 70 65 6e set.."] { lappen
75e0: 64 20 66 69 64 73 28 24 66 69 64 29 20 24 72 69 d fids($fid) $ri
75f0: 64 20 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b 66 d }...foreach {f
7600: 69 64 20 72 69 64 73 7d 20 5b 61 72 72 61 79 20 id rids} [array
7610: 67 65 74 20 66 69 64 73 5d 20 7b 0a 09 20 20 20 get fids] {..
7620: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 if {[llength $r
7630: 69 64 73 5d 20 3c 20 32 7d 20 63 6f 6e 74 69 6e ids] < 2} contin
7640: 75 65 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 ue.. foreach
7650: 61 20 24 72 69 64 73 20 7b 0a 09 09 66 6f 72 65 a $rids {...fore
7660: 61 63 68 20 62 20 24 72 69 64 73 20 7b 0a 09 09 ach b $rids {...
7670: 20 20 20 20 69 66 20 7b 24 61 20 3d 3d 20 24 62 if {$a == $b
7680: 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 } continue...
7690: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
76a0: 73 20 64 65 70 28 24 61 2c 24 62 29 5d 7d 20 63 s dep($a,$b)]} c
76b0: 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 69 66 ontinue... if
76c0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 64 {[info exists d
76d0: 65 70 28 24 62 2c 24 61 29 5d 7d 20 63 6f 6e 74 ep($b,$a)]} cont
76e0: 69 6e 75 65 0a 09 09 20 20 20 20 6c 61 70 70 65 inue... lappe
76f0: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
7700: 24 61 29 20 24 62 0a 09 09 20 20 20 20 73 65 74 $a) $b... set
7710: 20 64 65 70 28 24 61 2c 24 62 29 20 2e 0a 09 09 dep($a,$b) ....
7720: 20 20 20 20 73 65 74 20 64 65 70 28 24 62 2c 24 set dep($b,$
7730: 61 29 20 2e 0a 09 09 7d 0a 09 20 20 20 20 7d 0a a) ....}.. }.
7740: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
7750: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
7760: 20 34 2d 6c 69 73 74 20 28 69 74 65 6d 74 79 70 4-list (itemtyp
7770: 65 20 69 74 65 6d 69 64 20 6e 65 78 74 69 74 65 e itemid nextite
7780: 6d 74 79 70 65 20 6e 65 78 74 69 74 65 6d 69 64 mtype nextitemid
7790: 20 2e 2e 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 ...). typeme
77a0: 74 68 6f 64 20 6c 6f 6f 70 73 20 7b 72 65 76 69 thod loops {revi
77b0: 73 69 6f 6e 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 sions} {..# Note
77c0: 3a 20 54 61 67 73 20 61 6e 64 20 62 72 61 6e 63 : Tags and branc
77d0: 68 65 73 20 63 61 6e 6e 6f 74 20 63 61 75 73 65 hes cannot cause
77e0: 20 74 68 65 20 6c 6f 6f 70 2e 20 54 68 65 69 72 the loop. Their
77f0: 20 69 64 27 73 2c 0a 09 23 20 62 65 69 6e 20 6f id's,..# bein o
7800: 66 20 61 20 66 75 6e 64 61 6d 65 6e 74 61 6c 6c f a fundamentall
7810: 79 20 64 69 66 66 65 72 65 6e 74 20 74 79 70 65 y different type
7820: 20 74 68 61 6e 20 74 68 65 20 72 65 76 69 73 69 than the revisi
7830: 6f 6e 73 0a 09 23 20 63 6f 6d 69 6e 67 20 69 6e ons..# coming in
7840: 20 63 61 6e 6e 6f 74 20 62 65 20 69 6e 20 74 68 cannot be in th
7850: 65 20 73 65 74 2e 0a 0a 09 73 65 74 20 74 68 65 e set....set the
7860: 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 set ('[join $rev
7870: 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a isions {','}]').
7880: 09 72 65 74 75 72 6e 20 5b 73 74 61 74 65 20 72 .return [state r
7890: 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d un [subst -nocom
78a0: 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 mands -nobacksla
78b0: 73 68 65 73 20 7b 0a 09 20 20 20 20 2d 2d 20 28 shes {.. -- (
78c0: 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 6c 64 1) Primary child
78d0: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 .. SELECT R.r
78e0: 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 20 20 id, R.child..
78f0: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
7900: 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 R.. WHERE R
7910: 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 .rid IN $these
7920: 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 t -- Restric
7930: 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f t to revisions o
7940: 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 f interest..
7950: 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 AND R.child I
7960: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d S NOT NULL --
7970: 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 Has primary chi
7980: 6c 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 ld.. AND R
7990: 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 73 65 .child IN $these
79a0: 74 20 20 20 20 20 2d 2d 20 4c 6f 6f 70 0a 09 20 t -- Loop..
79b0: 20 20 20 2d 2d 0a 09 20 20 20 20 55 4e 49 4f 4e --.. UNION
79c0: 0a 09 20 20 20 20 2d 2d 20 28 32 29 20 53 65 63 .. -- (2) Sec
79d0: 6f 6e 64 61 72 79 20 28 62 72 61 6e 63 68 29 20 ondary (branch)
79e0: 63 68 69 6c 64 72 65 6e 0a 09 20 20 20 20 53 45 children.. SE
79f0: 4c 45 43 54 20 52 2e 72 69 64 2c 20 42 2e 62 72 LECT R.rid, B.br
7a00: 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 id.. FROM r
7a10: 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 evision R, revis
7a20: 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c 64 72 65 ionbranchchildre
7a30: 6e 20 42 0a 09 20 20 20 20 57 48 45 52 45 20 20 n B.. WHERE
7a40: 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 R.rid IN $thes
7a50: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
7a60: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
7a70: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
7a80: 20 41 4e 44 20 20 20 20 52 2e 72 69 64 20 3d 20 AND R.rid =
7a90: 42 2e 72 69 64 20 20 20 20 20 20 20 20 20 20 2d B.rid -
7aa0: 2d 20 53 65 6c 65 63 74 20 73 75 62 73 65 74 20 - Select subset
7ab0: 6f 66 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 of branch childr
7ac0: 65 6e 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 en.. AND B
7ad0: 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 .rid IN $these
7ae0: 74 20 20 20 20 20 2d 2d 20 4c 6f 6f 70 0a 09 20 t -- Loop..
7af0: 20 20 20 2d 2d 0a 09 20 20 20 20 55 4e 49 4f 4e --.. UNION
7b00: 0a 09 20 20 20 20 2d 2d 20 28 34 29 20 43 68 69 .. -- (4) Chi
7b10: 6c 64 20 6f 66 20 74 72 75 6e 6b 20 72 6f 6f 74 ld of trunk root
7b20: 20 73 75 63 63 65 73 73 6f 72 20 6f 66 20 6c 61 successor of la
7b30: 73 74 20 4e 54 44 42 20 6f 6e 20 74 72 75 6e 6b st NTDB on trunk
7b40: 2e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e ... SELECT R.
7b50: 72 69 64 2c 20 52 41 2e 63 68 69 6c 64 0a 09 20 rid, RA.child..
7b60: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
7b70: 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 on R, revision R
7b80: 41 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e A.. WHERE R.
7b90: 72 69 64 20 20 20 20 49 4e 20 24 74 68 65 73 65 rid IN $these
7ba0: 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 t -- Restric
7bb0: 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f t to revisions o
7bc0: 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 f interest..
7bd0: 41 4e 44 20 20 20 20 52 2e 69 73 64 65 66 61 75 AND R.isdefau
7be0: 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 20 2d lt -
7bf0: 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 4e 54 - Restrict to NT
7c00: 44 42 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 DB.. AND R
7c10: 2e 64 62 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 .dbchild IS NOT
7c20: 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 20 6c 61 NULL -- and la
7c30: 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e 67 69 6e st NTDB belongin
7c40: 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 20 20 20 g to trunk..
7c50: 41 4e 44 20 20 20 20 52 41 2e 72 69 64 20 3d 20 AND RA.rid =
7c60: 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 20 2d R.dbchild -
7c70: 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 74 6f - Go directly to
7c80: 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 trunk root..
7c90: 20 41 4e 44 20 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
7ca0: 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 IS NOT NULL
7cb0: 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 -- Has primary c
7cc0: 68 69 6c 64 2e 0a 09 20 20 20 20 41 4e 44 20 20 hild... AND
7cd0: 20 20 52 41 2e 63 68 69 6c 64 20 49 4e 20 24 74 RA.child IN $t
7ce0: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c 6f 6f heset -- Loo
7cf0: 70 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 p..}]]. }..
7d00: 20 20 23 20 76 61 72 28 64 76 29 20 3d 20 64 69 # var(dv) = di
7d10: 63 74 20 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 ct (item -> list
7d20: 20 28 69 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 (item)), item
7d30: 3d 20 6c 69 73 74 20 28 74 79 70 65 20 69 64 29 = list (type id)
7d40: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
7d50: 73 75 63 63 65 73 73 6f 72 73 20 7b 64 76 20 72 successors {dv r
7d60: 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 evisions} {..upv
7d70: 61 72 20 31 20 24 64 76 20 64 65 70 65 6e 64 65 ar 1 $dv depende
7d80: 6e 63 69 65 73 0a 09 73 65 74 20 74 68 65 73 65 ncies..set these
7d90: 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 69 73 t ('[join $revis
7da0: 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 ions {','}]')...
7db0: 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 # The following
7dc0: 63 61 73 65 73 20 73 70 65 63 69 66 79 20 77 68 cases specify wh
7dd0: 65 6e 20 61 20 72 65 76 69 73 69 6f 6e 20 53 20 en a revision S
7de0: 69 73 20 61 20 73 75 63 63 65 73 73 6f 72 0a 09 is a successor..
7df0: 23 20 6f 66 20 61 20 72 65 76 69 73 69 6f 6e 20 # of a revision
7e00: 52 2e 20 45 61 63 68 20 6f 66 20 74 68 65 20 63 R. Each of the c
7e10: 61 73 65 73 20 74 72 61 6e 73 6c 61 74 65 73 20 ases translates
7e20: 69 6e 74 6f 20 6f 6e 65 20 6f 66 0a 09 23 20 74 into one of..# t
7e30: 68 65 20 62 72 61 6e 63 68 65 73 20 6f 66 20 74 he branches of t
7e40: 68 65 20 53 51 4c 20 55 4e 49 4f 4e 20 63 6f 6d he SQL UNION com
7e50: 69 6e 67 20 62 65 6c 6f 77 2e 0a 09 23 0a 09 23 ing below...#..#
7e60: 20 28 31 29 20 53 20 63 61 6e 20 62 65 20 61 20 (1) S can be a
7e70: 70 72 69 6d 61 72 79 20 63 68 69 6c 64 20 6f 66 primary child of
7e80: 20 52 2c 20 69 2e 65 2e 20 69 6e 20 74 68 65 20 R, i.e. in the
7e90: 73 61 6d 65 20 4c 4f 44 2e 20 52 0a 09 23 20 20 same LOD. R..#
7ea0: 20 20 20 72 65 66 65 72 65 6e 63 65 73 20 53 20 references S
7eb0: 64 69 72 65 63 74 6c 79 2e 20 52 2e 63 68 69 6c directly. R.chil
7ec0: 64 20 3d 20 53 28 2e 72 69 64 29 2c 20 69 66 20 d = S(.rid), if
7ed0: 69 74 20 65 78 69 73 74 73 2e 0a 09 23 0a 09 23 it exists...#..#
7ee0: 20 28 32 29 20 53 20 63 61 6e 20 62 65 20 61 20 (2) S can be a
7ef0: 73 65 63 6f 6e 64 61 72 79 2c 20 69 2e 65 2e 20 secondary, i.e.
7f00: 62 72 61 6e 63 68 2c 20 63 68 69 6c 64 20 6f 66 branch, child of
7f10: 20 52 2e 20 48 65 72 65 20 74 68 65 0a 09 23 20 R. Here the..#
7f20: 20 20 20 20 6c 69 6e 6b 20 69 73 20 6d 61 64 65 link is made
7f30: 20 74 68 72 6f 75 67 68 20 74 68 65 20 68 65 6c through the hel
7f40: 70 65 72 20 74 61 62 6c 65 0a 09 23 20 20 20 20 per table..#
7f50: 20 52 45 56 49 53 49 4f 4e 42 52 41 4e 43 48 43 REVISIONBRANCHC
7f60: 48 49 4c 44 52 45 4e 2e 20 52 2e 72 69 64 20 2d HILDREN. R.rid -
7f70: 3e 20 52 42 43 2e 72 69 64 2c 20 52 42 43 2e 62 > RBC.rid, RBC.b
7f80: 72 69 64 20 3d 0a 09 23 20 20 20 20 20 53 28 2e rid =..# S(.
7f90: 72 69 64 29 0a 09 23 0a 09 23 20 28 33 29 20 4f rid)..#..# (3) O
7fa0: 72 69 67 69 6e 61 6c 6c 79 20 74 68 69 73 20 75 riginally this u
7fb0: 73 65 20 63 61 73 65 20 64 65 66 69 6e 65 64 20 se case defined
7fc0: 74 68 65 20 72 6f 6f 74 20 6f 66 20 61 20 64 65 the root of a de
7fd0: 74 61 63 68 65 64 0a 09 23 20 20 20 20 20 4e 54 tached..# NT
7fe0: 44 42 20 61 73 20 74 68 65 20 73 75 63 63 65 73 DB as the succes
7ff0: 73 6f 72 20 6f 66 20 74 68 65 20 74 72 75 6e 6b sor of the trunk
8000: 20 72 6f 6f 74 2e 20 54 68 69 73 20 6c 65 61 64 root. This lead
8010: 73 20 74 6f 20 61 0a 09 23 20 20 20 20 20 62 61 s to a..# ba
8020: 64 20 74 61 6e 67 6c 65 20 6c 61 74 65 72 20 6f d tangle later o
8030: 6e 2e 20 57 69 74 68 20 61 20 64 65 74 61 63 68 n. With a detach
8040: 65 64 20 4e 54 44 42 20 74 68 65 20 6f 72 69 67 ed NTDB the orig
8050: 69 6e 61 6c 0a 09 23 20 20 20 20 20 74 72 75 6e inal..# trun
8060: 6b 20 72 6f 6f 74 20 72 65 76 69 73 69 6f 6e 20 k root revision
8070: 77 61 73 20 72 65 6d 6f 76 65 64 20 61 73 20 69 was removed as i
8080: 72 72 65 6c 65 76 61 6e 74 2c 20 61 6c 6c 6f 77 rrelevant, allow
8090: 69 6e 67 0a 09 23 20 20 20 20 20 74 68 65 20 6e ing..# the n
80a0: 6f 6d 69 6e 61 6c 20 72 6f 6f 74 20 74 6f 20 62 ominal root to b
80b0: 65 20 6c 61 74 65 72 20 69 6e 20 74 69 6d 65 20 e later in time
80c0: 74 68 61 6e 20 74 68 65 20 4e 54 44 42 0a 09 23 than the NTDB..#
80d0: 20 20 20 20 20 72 6f 6f 74 2e 20 4e 6f 77 20 73 root. Now s
80e0: 65 74 74 69 6e 67 20 74 68 69 73 20 64 65 70 65 etting this depe
80f0: 6e 64 65 6e 63 79 20 77 69 6c 6c 20 62 65 20 62 ndency will be b
8100: 61 63 6b 77 61 72 64 20 69 6e 0a 09 23 20 20 20 ackward in..#
8110: 20 20 74 69 6d 65 2e 20 52 45 4d 4f 56 45 44 2e time. REMOVED.
8120: 0a 09 23 0a 09 23 20 28 34 29 20 49 66 20 52 20 ..#..# (4) If R
8130: 69 73 20 74 68 65 20 6c 61 73 74 20 6f 66 20 74 is the last of t
8140: 68 65 20 4e 54 44 42 20 72 65 76 69 73 69 6f 6e he NTDB revision
8150: 73 20 77 68 69 63 68 20 62 65 6c 6f 6e 67 20 74 s which belong t
8160: 6f 0a 09 23 20 20 20 20 20 74 68 65 20 74 72 75 o..# the tru
8170: 6e 6b 2c 20 74 68 65 6e 20 74 68 65 20 70 72 69 nk, then the pri
8180: 6d 61 72 79 20 63 68 69 6c 64 20 6f 66 20 74 68 mary child of th
8190: 65 20 74 72 75 6e 6b 20 72 6f 6f 74 20 28 74 68 e trunk root (th
81a0: 65 0a 09 23 20 20 20 20 20 27 31 2e 32 27 20 72 e..# '1.2' r
81b0: 65 76 69 73 69 6f 6e 29 20 69 73 20 61 20 73 75 evision) is a su
81c0: 63 63 65 73 73 6f 72 2c 20 69 66 20 69 74 20 65 ccessor, if it e
81d0: 78 69 73 74 73 2e 0a 0a 09 23 20 4e 6f 74 65 20 xists....# Note
81e0: 74 68 61 74 20 74 68 65 20 62 72 61 6e 63 68 65 that the branche
81f0: 73 20 73 70 61 77 6e 65 64 20 66 72 6f 6d 20 74 s spawned from t
8200: 68 65 20 72 65 76 69 73 69 6f 6e 73 2c 20 61 6e he revisions, an
8210: 64 20 74 68 65 0a 09 23 20 74 61 67 73 20 61 73 d the..# tags as
8220: 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 sociated with th
8230: 65 6d 20 61 72 65 20 73 75 63 63 65 73 73 6f 72 em are successor
8240: 73 20 61 73 20 77 65 6c 6c 2e 0a 0a 09 66 6f 72 s as well....for
8250: 65 61 63 68 20 7b 72 69 64 20 63 68 69 6c 64 7d each {rid child}
8260: 20 5b 73 74 61 74 65 20 72 75 6e 20 22 0a 20 20 [state run ".
8270: 20 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 79 20 -- (1) Primary
8280: 63 68 69 6c 64 0a 09 20 20 20 20 53 45 4c 45 43 child.. SELEC
8290: 54 20 52 2e 72 69 64 2c 20 52 2e 63 68 69 6c 64 T R.rid, R.child
82a0: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 .. FROM rev
82b0: 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 ision R.. WHE
82c0: 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 RE R.rid IN $
82d0: 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 theset -- Re
82e0: 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 strict to revisi
82f0: 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a ons of interest.
8300: 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 68 . AND R.ch
8310: 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 ild IS NOT NULL
8320: 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 -- Has primar
8330: 79 20 63 68 69 6c 64 0a 20 20 20 20 55 4e 49 4f y child. UNIO
8340: 4e 0a 20 20 20 20 2d 2d 20 28 32 29 20 53 65 63 N. -- (2) Sec
8350: 6f 6e 64 61 72 79 20 28 62 72 61 6e 63 68 29 20 ondary (branch)
8360: 63 68 69 6c 64 72 65 6e 0a 09 20 20 20 20 53 45 children.. SE
8370: 4c 45 43 54 20 52 2e 72 69 64 2c 20 42 2e 62 72 LECT R.rid, B.br
8380: 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 id.. FROM r
8390: 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 evision R, revis
83a0: 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c 64 72 65 ionbranchchildre
83b0: 6e 20 42 0a 09 20 20 20 20 57 48 45 52 45 20 20 n B.. WHERE
83c0: 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 R.rid IN $thes
83d0: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
83e0: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
83f0: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
8400: 20 41 4e 44 20 20 20 20 52 2e 72 69 64 20 3d 20 AND R.rid =
8410: 42 2e 72 69 64 20 20 20 20 20 20 20 20 20 20 2d B.rid -
8420: 2d 20 53 65 6c 65 63 74 20 73 75 62 73 65 74 20 - Select subset
8430: 6f 66 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 of branch childr
8440: 65 6e 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 en. UNION.
8450: 20 2d 2d 20 28 34 29 20 43 68 69 6c 64 20 6f 66 -- (4) Child of
8460: 20 74 72 75 6e 6b 20 72 6f 6f 74 20 73 75 63 63 trunk root succ
8470: 65 73 73 6f 72 20 6f 66 20 6c 61 73 74 20 4e 54 essor of last NT
8480: 44 42 20 6f 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 DB on trunk...
8490: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
84a0: 52 41 2e 63 68 69 6c 64 0a 09 20 20 20 20 46 52 RA.child.. FR
84b0: 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 OM revision R, r
84c0: 65 76 69 73 69 6f 6e 20 52 41 0a 09 20 20 20 20 evision RA..
84d0: 57 48 45 52 45 20 52 2e 72 69 64 20 20 20 49 4e WHERE R.rid IN
84e0: 20 24 74 68 65 73 65 74 20 20 20 20 20 20 2d 2d $theset --
84f0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
8500: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
8510: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 52 2e st.. AND R.
8520: 69 73 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 isdefault
8530: 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 -- Restric
8540: 74 20 74 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 t to NTDB.. A
8550: 4e 44 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 ND R.dbchild I
8560: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 S NOT NULL --
8570: 61 6e 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 and last NTDB be
8580: 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b longing to trunk
8590: 0a 09 20 20 20 20 41 4e 44 20 20 20 52 41 2e 72 .. AND RA.r
85a0: 69 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 id = R.dbchild
85b0: 20 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 -- Go direct
85c0: 6c 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 ly to trunk root
85d0: 0a 09 20 20 20 20 41 4e 44 20 20 20 52 41 2e 63 .. AND RA.c
85e0: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
85f0: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
8600: 72 79 20 63 68 69 6c 64 2e 0a 09 22 5d 20 7b 0a ry child..."] {.
8610: 09 20 20 20 20 23 20 43 6f 6e 73 69 64 65 72 20 . # Consider
8620: 6d 6f 76 69 6e 67 20 74 68 69 73 20 74 6f 20 74 moving this to t
8630: 68 65 20 69 6e 74 65 67 72 69 74 79 20 6d 6f 64 he integrity mod
8640: 75 6c 65 2e 0a 09 20 20 20 20 69 6e 74 65 67 72 ule... integr
8650: 69 74 79 20 61 73 73 65 72 74 20 7b 24 72 69 64 ity assert {$rid
8660: 20 21 3d 20 24 63 68 69 6c 64 7d 20 7b 52 65 76 != $child} {Rev
8670: 69 73 69 6f 6e 20 24 72 69 64 20 64 65 70 65 6e ision $rid depen
8680: 64 73 20 6f 6e 20 69 74 73 65 6c 66 2e 7d 0a 09 ds on itself.}..
8690: 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 lappend depe
86a0: 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 72 ndencies([list r
86b0: 65 76 20 24 72 69 64 5d 29 20 5b 6c 69 73 74 20 ev $rid]) [list
86c0: 72 65 76 20 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 rev $child]..}..
86d0: 66 6f 72 65 61 63 68 20 7b 72 69 64 20 63 68 69 foreach {rid chi
86e0: 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 22 ld} [state run "
86f0: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 .. SELECT R.r
8700: 69 64 2c 20 54 2e 74 69 64 0a 09 20 20 20 20 46 id, T.tid.. F
8710: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
8720: 2c 20 74 61 67 20 54 0a 09 20 20 20 20 57 48 45 , tag T.. WHE
8730: 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 RE R.rid IN $th
8740: 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 20 20 eset.. AND
8750: 20 54 2e 72 65 76 20 3d 20 52 2e 72 69 64 0a 09 T.rev = R.rid..
8760: 22 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e "] {.. lappen
8770: 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 5b d dependencies([
8780: 6c 69 73 74 20 72 65 76 20 24 72 69 64 5d 29 20 list rev $rid])
8790: 5b 6c 69 73 74 20 73 79 6d 3a 3a 74 61 67 20 24 [list sym::tag $
87a0: 63 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 child]..}..forea
87b0: 63 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b ch {rid child} [
87c0: 73 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 20 state run "..
87d0: 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 42 SELECT R.rid, B
87e0: 2e 62 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 .bid.. FROM
87f0: 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 62 72 61 revision R, bra
8800: 6e 63 68 20 42 0a 09 20 20 20 20 57 48 45 52 45 nch B.. WHERE
8810: 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 R.rid IN $thes
8820: 65 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 et.. AND B
8830: 2e 72 6f 6f 74 20 3d 20 52 2e 72 69 64 0a 09 22 .root = R.rid.."
8840: 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 ] {.. lappend
8850: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 5b 6c dependencies([l
8860: 69 73 74 20 72 65 76 20 24 72 69 64 5d 29 20 5b ist rev $rid]) [
8870: 6c 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e 63 68 list sym::branch
8880: 20 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 72 65 74 $child]..}..ret
8890: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
88a0: 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 var(dv) = dict
88b0: 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 (item -> list (i
88c0: 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c tem)), item = l
88d0: 69 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 ist (type id).
88e0: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 70 72 65 typemethod pre
88f0: 64 65 63 65 73 73 6f 72 73 20 7b 64 76 20 72 65 decessors {dv re
8900: 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 visions} {..upva
8910: 72 20 31 20 24 64 76 20 64 65 70 65 6e 64 65 6e r 1 $dv dependen
8920: 63 69 65 73 0a 09 73 65 74 20 74 68 65 73 65 74 cies..set theset
8930: 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 ('[join $revisi
8940: 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 23 ons {','}]')...#
8950: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 The following c
8960: 61 73 65 73 20 73 70 65 63 69 66 79 20 77 68 65 ases specify whe
8970: 6e 20 61 20 72 65 76 69 73 69 6f 6e 20 50 20 69 n a revision P i
8980: 73 20 61 0a 09 23 20 70 72 65 64 65 63 65 73 73 s a..# predecess
8990: 6f 72 20 6f 66 20 61 20 72 65 76 69 73 69 6f 6e or of a revision
89a0: 20 52 2e 20 45 61 63 68 20 6f 66 20 74 68 65 20 R. Each of the
89b0: 63 61 73 65 73 20 74 72 61 6e 73 6c 61 74 65 73 cases translates
89c0: 0a 09 23 20 69 6e 74 6f 20 6f 6e 65 20 6f 66 20 ..# into one of
89d0: 74 68 65 20 62 72 61 6e 63 68 65 73 20 6f 66 20 the branches of
89e0: 74 68 65 20 53 51 4c 20 55 4e 49 4f 4e 20 63 6f the SQL UNION co
89f0: 6d 69 6e 67 20 62 65 6c 6f 77 2e 0a 09 23 0a 09 ming below...#..
8a00: 23 20 28 31 29 20 54 68 65 20 69 6d 6d 65 64 69 # (1) The immedi
8a10: 61 74 65 20 70 61 72 65 6e 74 20 52 2e 70 61 72 ate parent R.par
8a20: 65 6e 74 20 6f 66 20 52 20 69 73 20 61 20 70 72 ent of R is a pr
8a30: 65 64 65 63 65 73 73 6f 72 20 6f 66 0a 09 23 20 edecessor of..#
8a40: 20 20 20 20 52 2e 20 4e 4f 54 45 3a 20 54 68 69 R. NOTE: Thi
8a50: 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 52 20 s is true for R
8a60: 65 69 74 68 65 72 20 70 72 69 6d 61 72 79 20 6f either primary o
8a70: 72 20 73 65 63 6f 6e 64 61 72 79 0a 09 23 20 20 r secondary..#
8a80: 20 20 20 63 68 69 6c 64 20 6f 66 20 50 2e 20 49 child of P. I
8a90: 74 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 79 20 t not necessary
8aa0: 74 6f 20 64 69 73 74 69 6e 67 75 69 73 68 20 74 to distinguish t
8ab0: 68 65 20 74 77 6f 0a 09 23 20 20 20 20 20 63 61 he two..# ca
8ac0: 73 65 73 2c 20 69 6e 20 63 6f 6e 74 72 61 73 74 ses, in contrast
8ad0: 20 74 6f 20 74 68 65 20 63 6f 64 65 20 72 65 74 to the code ret
8ae0: 72 69 65 76 69 6e 67 20 74 68 65 20 73 75 63 63 rieving the succ
8af0: 65 73 73 6f 72 0a 09 23 20 20 20 20 20 69 6e 66 essor..# inf
8b00: 6f 72 6d 61 74 69 6f 6e 2e 0a 09 23 0a 09 23 20 ormation...#..#
8b10: 28 32 29 20 54 68 65 20 63 6f 6d 70 6c 65 6d 65 (2) The compleme
8b20: 6e 74 20 6f 66 20 73 75 63 63 65 73 73 6f 72 20 nt of successor
8b30: 63 61 73 65 20 28 33 29 2e 20 54 68 65 20 74 72 case (3). The tr
8b40: 75 6e 6b 20 72 6f 6f 74 20 69 73 0a 09 23 20 20 unk root is..#
8b50: 20 20 20 61 20 70 72 65 64 65 63 65 73 73 6f 72 a predecessor
8b60: 20 6f 66 20 61 20 4e 54 44 42 20 72 6f 6f 74 2e of a NTDB root.
8b70: 20 52 45 4d 4f 56 45 44 2e 20 53 65 65 20 27 73 REMOVED. See 's
8b80: 75 63 63 65 73 73 6f 72 73 27 0a 09 23 20 20 20 uccessors'..#
8b90: 20 20 66 6f 72 20 74 68 65 20 65 78 70 6c 61 6e for the explan
8ba0: 61 74 69 6f 6e 2e 0a 09 23 0a 09 23 20 28 33 29 ation...#..# (3)
8bb0: 20 54 68 65 20 63 6f 6d 70 6c 65 6d 65 6e 74 20 The complement
8bc0: 6f 66 20 73 75 63 63 65 73 73 6f 72 20 63 61 73 of successor cas
8bd0: 65 20 28 34 29 2e 20 54 68 65 20 6c 61 73 74 20 e (4). The last
8be0: 4e 54 44 42 0a 09 23 20 20 20 20 20 72 65 76 69 NTDB..# revi
8bf0: 73 69 6f 6e 20 62 65 6c 6f 6e 67 69 6e 67 20 74 sion belonging t
8c00: 6f 20 74 68 65 20 74 72 75 6e 6b 20 69 73 20 61 o the trunk is a
8c10: 20 70 72 65 64 65 63 65 73 73 6f 72 20 6f 66 20 predecessor of
8c20: 74 68 65 0a 09 23 20 20 20 20 20 70 72 69 6d 61 the..# prima
8c30: 72 79 20 63 68 69 6c 64 20 6f 66 20 74 68 65 20 ry child of the
8c40: 74 72 75 6e 6b 20 72 6f 6f 74 20 28 54 68 65 20 trunk root (The
8c50: 27 31 2e 32 27 20 72 65 76 69 73 69 6f 6e 29 2e '1.2' revision).
8c60: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 ...foreach {rid
8c70: 70 61 72 65 6e 74 7d 20 5b 73 74 61 74 65 20 72 parent} [state r
8c80: 75 6e 20 22 0a 20 20 20 2d 2d 20 28 31 29 20 50 un ". -- (1) P
8c90: 72 69 6d 61 72 79 20 70 61 72 65 6e 74 2c 20 63 rimary parent, c
8ca0: 61 6e 20 62 65 20 69 6e 20 64 69 66 66 65 72 65 an be in differe
8cb0: 6e 74 20 4c 4f 44 20 66 6f 72 20 66 69 72 73 74 nt LOD for first
8cc0: 20 69 6e 20 61 20 62 72 61 6e 63 68 0a 09 20 20 in a branch..
8cd0: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
8ce0: 52 2e 70 61 72 65 6e 74 0a 09 20 20 20 20 46 52 R.parent.. FR
8cf0: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a OM revision R.
8d00: 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 . WHERE R.ri
8d10: 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 d IN $theset
8d20: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
8d30: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 o revisions of i
8d40: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
8d50: 20 20 20 20 52 2e 70 61 72 65 6e 74 20 49 53 20 R.parent IS
8d60: 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 48 61 NOT NULL -- Ha
8d70: 73 20 70 72 69 6d 61 72 79 20 70 61 72 65 6e 74 s primary parent
8d80: 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d . UNION. -
8d90: 2d 20 28 33 29 20 4c 61 73 74 20 4e 54 44 42 20 - (3) Last NTDB
8da0: 6f 6e 20 74 72 75 6e 6b 20 69 73 20 70 72 65 64 on trunk is pred
8db0: 65 63 65 73 73 6f 72 20 6f 66 20 63 68 69 6c 64 ecessor of child
8dc0: 20 6f 66 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 of trunk root..
8dd0: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
8de0: 2c 20 52 41 2e 64 62 70 61 72 65 6e 74 0a 09 20 , RA.dbparent..
8df0: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
8e00: 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 on R, revision R
8e10: 41 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e A.. WHERE R.
8e20: 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 rid IN $theset
8e30: 20 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 -- Restri
8e40: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
8e50: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
8e60: 20 41 4e 44 20 20 20 20 4e 4f 54 20 52 2e 69 73 AND NOT R.is
8e70: 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 default
8e80: 20 2d 2d 20 6e 6f 74 20 6f 6e 20 4e 54 44 42 0a -- not on NTDB.
8e90: 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 70 61 . AND R.pa
8ea0: 72 65 6e 74 20 49 53 20 4e 4f 54 20 4e 55 4c 4c rent IS NOT NULL
8eb0: 20 20 20 20 20 2d 2d 20 77 68 69 63 68 20 61 72 -- which ar
8ec0: 65 20 6e 6f 74 20 72 6f 6f 74 0a 09 20 20 20 20 e not root..
8ed0: 41 4e 44 20 20 20 20 52 41 2e 72 69 64 20 3d 20 AND RA.rid =
8ee0: 52 2e 70 61 72 65 6e 74 20 20 20 20 20 20 20 20 R.parent
8ef0: 2d 2d 20 67 6f 20 74 6f 20 74 68 65 69 72 20 70 -- go to their p
8f00: 61 72 65 6e 74 0a 09 20 20 20 20 41 4e 44 20 20 arent.. AND
8f10: 20 20 52 41 2e 64 62 70 61 72 65 6e 74 20 49 53 RA.dbparent IS
8f20: 20 4e 4f 54 20 4e 55 4c 4c 20 20 2d 2d 20 77 68 NOT NULL -- wh
8f30: 69 63 68 20 68 61 73 20 74 6f 20 72 65 66 65 72 ich has to refer
8f40: 20 74 6f 20 4e 54 44 42 27 73 20 72 6f 6f 74 0a to NTDB's root.
8f50: 09 22 5d 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e ."] {.. # Con
8f60: 73 69 64 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 sider moving thi
8f70: 73 20 74 6f 20 74 68 65 20 69 6e 74 65 67 72 69 s to the integri
8f80: 74 79 20 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 ty module...
8f90: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
8fa0: 20 7b 24 72 69 64 20 21 3d 20 24 70 61 72 65 6e {$rid != $paren
8fb0: 74 7d 20 7b 52 65 76 69 73 69 6f 6e 20 24 72 69 t} {Revision $ri
8fc0: 64 20 64 65 70 65 6e 64 73 20 6f 6e 20 69 74 73 d depends on its
8fd0: 65 6c 66 2e 7d 0a 09 20 20 20 20 6c 61 70 70 65 elf.}.. lappe
8fe0: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
8ff0: 5b 6c 69 73 74 20 72 65 76 20 24 72 69 64 5d 29 [list rev $rid])
9000: 20 5b 6c 69 73 74 20 72 65 76 20 24 70 61 72 65 [list rev $pare
9010: 6e 74 5d 0a 09 7d 0a 0a 09 23 20 54 68 65 20 72 nt]..}...# The r
9020: 65 76 69 73 69 6f 6e 73 20 77 68 69 63 68 20 61 evisions which a
9030: 72 65 20 74 68 65 20 66 69 72 73 74 20 6f 6e 20 re the first on
9040: 61 20 62 72 61 6e 63 68 20 68 61 76 65 20 74 68 a branch have th
9050: 61 74 0a 09 23 20 62 72 61 6e 63 68 20 61 73 20 at..# branch as
9060: 74 68 65 69 72 20 70 72 65 64 65 63 65 73 73 6f their predecesso
9070: 72 2e 20 4e 6f 74 65 20 74 68 61 74 20 72 65 76 r. Note that rev
9080: 69 73 69 6f 6e 73 20 63 61 6e 6e 6f 74 20 62 65 isions cannot be
9090: 0a 09 23 20 6f 6e 20 74 61 67 73 20 69 6e 20 74 ..# on tags in t
90a0: 68 65 20 73 61 6d 65 20 6d 61 6e 6e 65 72 2c 20 he same manner,
90b0: 73 6f 20 74 61 67 73 20 63 61 6e 6e 6f 74 20 62 so tags cannot b
90c0: 65 20 70 72 65 64 65 63 65 73 73 6f 72 73 0a 09 e predecessors..
90d0: 23 20 6f 66 20 72 65 76 69 73 69 6f 6e 73 2e 20 # of revisions.
90e0: 54 68 69 73 20 63 6f 6d 70 6c 65 6d 65 6e 74 73 This complements
90f0: 20 74 68 61 74 20 74 68 65 79 20 68 61 76 65 20 that they have
9100: 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 0a 09 23 no successors..#
9110: 20 28 53 65 65 20 73 79 6d 3a 3a 74 61 67 2f 73 (See sym::tag/s
9120: 75 63 63 65 73 73 6f 72 73 29 2e 0a 0a 09 66 6f uccessors)....fo
9130: 72 65 61 63 68 20 7b 72 69 64 20 70 61 72 65 6e reach {rid paren
9140: 74 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 22 0a t} [state run ".
9150: 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 . SELECT R.ri
9160: 64 2c 20 42 2e 62 69 64 0a 09 20 20 20 20 46 52 d, B.bid.. FR
9170: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c OM revision R,
9180: 20 62 72 61 6e 63 68 20 42 0a 09 20 20 20 20 57 branch B.. W
9190: 48 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 HERE R.rid IN $
91a0: 74 68 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 theset.. AND
91b0: 20 20 20 42 2e 66 69 72 73 74 20 3d 20 52 2e 72 B.first = R.r
91c0: 69 64 0a 09 22 5d 20 7b 0a 09 20 20 20 20 6c 61 id.."] {.. la
91d0: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
91e0: 65 73 28 5b 6c 69 73 74 20 72 65 76 20 24 72 69 es([list rev $ri
91f0: 64 5d 29 20 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 d]) [list sym::b
9200: 72 61 6e 63 68 20 24 70 61 72 65 6e 74 5d 0a 09 ranch $parent]..
9210: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
9220: 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 . # result =
9230: 6c 69 73 74 20 28 63 68 61 6e 67 65 73 65 74 2d list (changeset-
9240: 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 id). typemeth
9250: 6f 64 20 63 73 5f 73 75 63 63 65 73 73 6f 72 73 od cs_successors
9260: 20 7b 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 20 {revisions} {.
9270: 20 20 20 20 20 20 20 23 20 54 68 69 73 20 69 73 # This is
9280: 20 61 20 76 61 72 69 61 6e 74 20 6f 66 20 27 73 a variant of 's
9290: 75 63 63 65 73 73 6f 72 73 27 20 77 68 69 63 68 uccessors' which
92a0: 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 2d 6c 65 maps the low-le
92b0: 76 65 6c 0a 20 20 20 20 20 20 20 20 23 20 64 61 vel. # da
92c0: 74 61 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 ta directly to t
92d0: 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 63 68 he associated ch
92e0: 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 2e 20 69 angesets. I.e. i
92f0: 6e 73 74 65 61 64 0a 20 20 20 20 20 20 20 20 23 nstead. #
9300: 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 64 65 70 millions of dep
9310: 65 6e 64 65 6e 63 79 20 70 61 69 72 73 20 28 69 endency pairs (i
9320: 6e 20 65 78 74 72 65 6d 65 20 63 61 73 65 73 20 n extreme cases
9330: 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c 0a 20 20 (Example: Tcl.
9340: 20 20 20 20 20 20 23 20 43 56 53 29 29 20 77 65 # CVS)) we
9350: 20 72 65 74 75 72 6e 20 61 20 76 65 72 79 20 73 return a very s
9360: 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 20 6d 6f hort and much mo
9370: 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 20 6c 69 re manageable li
9380: 73 74 0a 20 20 20 20 20 20 20 20 23 20 6f 66 20 st. # of
9390: 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 09 73 65 changesets....se
93a0: 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e t theset ('[join
93b0: 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 $revisions {','
93c0: 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 }]')..return [st
93d0: 61 74 65 20 72 75 6e 20 22 0a 09 20 20 20 20 53 ate run ".. S
93e0: 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 ELECT C.cid..
93f0: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
9400: 20 52 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 R, csitem CI, c
9410: 68 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 hangeset C..
9420: 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 WHERE R.rid I
9430: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
9440: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
9450: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
9460: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 st.. AND R
9470: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
9480: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
9490: 6d 61 72 79 20 63 68 69 6c 64 0a 20 20 20 20 20 mary child.
94a0: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 AND CI
94b0: 2e 69 69 64 20 3d 20 52 2e 63 68 69 6c 64 0a 20 .iid = R.child.
94c0: 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 AND
94d0: 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 C.cid = CI.cid
94e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
94f0: 20 20 20 20 43 2e 74 79 70 65 20 3d 20 30 0a 20 C.type = 0.
9500: 20 20 20 55 4e 49 4f 4e 0a 09 20 20 20 20 53 45 UNION.. SE
9510: 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 LECT C.cid..
9520: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
9530: 52 2c 20 72 65 76 69 73 69 6f 6e 62 72 61 6e 63 R, revisionbranc
9540: 68 63 68 69 6c 64 72 65 6e 20 42 2c 20 63 73 69 hchildren B, csi
9550: 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 65 tem CI, changese
9560: 74 20 43 0a 09 20 20 20 20 57 48 45 52 45 20 20 t C.. WHERE
9570: 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 R.rid IN $thes
9580: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
9590: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
95a0: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
95b0: 20 41 4e 44 20 20 20 20 52 2e 72 69 64 20 3d 20 AND R.rid =
95c0: 42 2e 72 69 64 20 20 20 20 20 20 20 20 20 20 2d B.rid -
95d0: 2d 20 53 65 6c 65 63 74 20 73 75 62 73 65 74 20 - Select subset
95e0: 6f 66 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 of branch childr
95f0: 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 en. A
9600: 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d 20 42 ND CI.iid = B
9610: 2e 62 72 69 64 0a 20 20 20 20 20 20 20 20 20 20 .brid.
9620: 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d AND C.cid =
9630: 20 43 49 2e 63 69 64 0a 20 20 20 20 20 20 20 20 CI.cid.
9640: 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 AND C.typ
9650: 65 20 3d 20 30 0a 20 20 20 20 55 4e 49 4f 4e 0a e = 0. UNION.
9660: 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 . SELECT C.ci
9670: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 d.. FROM re
9680: 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 vision R, revisi
9690: 6f 6e 20 52 41 2c 20 63 73 69 74 65 6d 20 43 49 on RA, csitem CI
96a0: 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 20 , changeset C..
96b0: 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 20 WHERE R.rid
96c0: 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 IN $theset
96d0: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
96e0: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e revisions of in
96f0: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
9700: 20 20 20 52 2e 69 73 64 65 66 61 75 6c 74 20 20 R.isdefault
9710: 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 52 65 -- Re
9720: 73 74 72 69 63 74 20 74 6f 20 4e 54 44 42 0a 09 strict to NTDB..
9730: 20 20 20 20 41 4e 44 20 20 20 20 52 2e 64 62 63 AND R.dbc
9740: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
9750: 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 74 20 4e -- and last N
9760: 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f TDB belonging to
9770: 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 4e 44 20 trunk.. AND
9780: 20 20 20 52 41 2e 72 69 64 20 3d 20 52 2e 64 62 RA.rid = R.db
9790: 63 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 47 6f child -- Go
97a0: 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 72 75 directly to tru
97b0: 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 4e 44 nk root.. AND
97c0: 20 20 20 20 52 41 2e 63 68 69 6c 64 20 49 53 20 RA.child IS
97d0: 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 NOT NULL -- H
97e0: 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 as primary child
97f0: 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e .. AN
9800: 44 20 20 20 20 43 49 2e 69 69 64 20 3d 20 52 41 D CI.iid = RA
9810: 2e 63 68 69 6c 64 0a 20 20 20 20 20 20 20 20 20 .child.
9820: 20 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 AND C.cid
9830: 3d 20 43 49 2e 63 69 64 0a 20 20 20 20 20 20 20 = CI.cid.
9840: 20 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 AND C.ty
9850: 70 65 20 3d 20 30 0a 20 20 20 20 55 4e 49 4f 4e pe = 0. UNION
9860: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 .. SELECT C.c
9870: 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 id.. FROM r
9880: 65 76 69 73 69 6f 6e 20 52 2c 20 74 61 67 20 54 evision R, tag T
9890: 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 , csitem CI, cha
98a0: 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 ngeset C.. WH
98b0: 45 52 45 20 20 52 2e 72 69 64 20 69 6e 20 24 74 ERE R.rid in $t
98c0: 68 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 20 heset.. AND
98d0: 20 20 54 2e 72 65 76 20 3d 20 52 2e 72 69 64 0a T.rev = R.rid.
98e0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
98f0: 20 20 20 43 49 2e 69 69 64 20 3d 20 54 2e 74 69 CI.iid = T.ti
9900: 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e d. AN
9910: 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e D C.cid = CI.
9920: 63 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 cid.
9930: 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 AND C.type =
9940: 31 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 20 1. UNION..
9950: 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 SELECT C.cid..
9960: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
9970: 6f 6e 20 52 2c 20 62 72 61 6e 63 68 20 42 2c 20 on R, branch B,
9980: 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 csitem CI, chang
9990: 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 eset C.. WHER
99a0: 45 20 20 52 2e 72 69 64 20 69 6e 20 24 74 68 65 E R.rid in $the
99b0: 73 65 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 set.. AND
99c0: 42 2e 72 6f 6f 74 20 3d 20 52 2e 72 69 64 0a 20 B.root = R.rid.
99d0: 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 AND
99e0: 20 20 43 49 2e 69 69 64 20 3d 20 42 2e 62 69 64 CI.iid = B.bid
99f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
9a00: 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 C.cid = CI.c
9a10: 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 id. A
9a20: 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 32 ND C.type = 2
9a30: 0a 09 22 5d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 .."]. }.}..#
9a40: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
9a50: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
9a60: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
9a70: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 48 ###########.## H
9a80: 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 2e elper singleton.
9a90: 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 74 61 Commands for ta
9aa0: 67 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 g symbol changes
9ab0: 65 74 73 2e 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 ets...snit::type
9ac0: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
9ad0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a mport::cvs::proj
9ae0: 65 63 74 3a 3a 72 65 76 3a 3a 73 79 6d 3a 3a 74 ect::rev::sym::t
9af0: 61 67 20 7b 0a 20 20 20 20 74 79 70 65 6d 65 74 ag {. typemet
9b00: 68 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 7b hod byrevision {
9b10: 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 } { return 0 }.
9b20: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 typemethod by
9b30: 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b 20 72 65 symbol {} { re
9b40: 74 75 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 turn 1 }. typ
9b50: 65 6d 65 74 68 6f 64 20 69 73 74 61 67 20 20 20 emethod istag
9b60: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 31 {} { return 1
9b70: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
9b80: 64 20 69 73 62 72 61 6e 63 68 20 20 20 7b 7d 20 d isbranch {}
9b90: 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 0a 20 20 { return 0 }..
9ba0: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 72 typemethod str
9bb0: 20 7b 74 61 67 7d 20 7b 0a 09 73 74 72 75 63 74 {tag} {..struct
9bc0: 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 73 ::list assign [s
9bd0: 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 tate run {..
9be0: 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 2c 20 46 SELECT S.name, F
9bf0: 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d 65 0a 09 20 .name, P.name..
9c00: 20 20 20 46 52 4f 4d 20 20 20 74 61 67 20 54 2c FROM tag T,
9c10: 20 73 79 6d 62 6f 6c 20 53 2c 20 66 69 6c 65 20 symbol S, file
9c20: 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 20 20 F, project P..
9c30: 20 20 57 48 45 52 45 20 20 54 2e 74 69 64 20 3d WHERE T.tid =
9c40: 20 24 74 61 67 0a 09 20 20 20 20 41 4e 44 20 20 $tag.. AND
9c50: 20 20 46 2e 66 69 64 20 3d 20 54 2e 66 69 64 0a F.fid = T.fid.
9c60: 09 20 20 20 20 41 4e 44 20 20 20 20 50 2e 70 69 . AND P.pi
9c70: 64 20 3d 20 46 2e 70 69 64 0a 09 20 20 20 20 41 d = F.pid.. A
9c80: 4e 44 20 20 20 20 53 2e 73 69 64 20 3d 20 54 2e ND S.sid = T.
9c90: 73 69 64 0a 09 7d 5d 20 73 6e 61 6d 65 20 66 6e sid..}] sname fn
9ca0: 61 6d 65 20 70 6e 61 6d 65 0a 09 72 65 74 75 72 ame pname..retur
9cb0: 6e 20 22 24 70 6e 61 6d 65 2f 54 27 24 7b 73 6e n "$pname/T'${sn
9cc0: 61 6d 65 7d 27 3a 3a 24 66 6e 61 6d 65 22 0a 20 ame}'::$fname".
9cd0: 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 }.. # resu
9ce0: 6c 74 20 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 lt = list (minti
9cf0: 6d 65 2c 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 me, maxtime).
9d00: 20 74 79 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 typemethod time
9d10: 72 61 6e 67 65 20 7b 74 61 67 73 7d 20 7b 0a 09 range {tags} {..
9d20: 23 20 54 68 65 20 72 61 6e 67 65 20 69 73 20 64 # The range is d
9d30: 65 66 69 6e 65 64 20 61 73 20 74 68 65 20 72 61 efined as the ra
9d40: 6e 67 65 20 6f 66 20 74 68 65 20 72 65 76 69 73 nge of the revis
9d50: 69 6f 6e 73 20 74 68 65 20 74 61 67 73 0a 09 23 ions the tags..#
9d60: 20 61 72 65 20 61 74 74 61 63 68 65 64 20 74 6f are attached to
9d70: 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 ....set theset (
9d80: 27 5b 6a 6f 69 6e 20 24 74 61 67 73 20 7b 27 2c '[join $tags {',
9d90: 27 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 '}]')..return [s
9da0: 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 20 20 tate run "..
9db0: 53 45 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 SELECT MIN(R.dat
9dc0: 65 29 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a e), MAX(R.date).
9dd0: 09 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 20 . FROM tag
9de0: 54 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 T, revision R..
9df0: 20 20 20 57 48 45 52 45 20 20 54 2e 74 69 64 20 WHERE T.tid
9e00: 49 4e 20 24 74 68 65 73 65 74 0a 20 20 20 20 20 IN $theset.
9e10: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 52 2e AND R.
9e20: 72 69 64 20 3d 20 54 2e 72 65 76 0a 09 22 5d 0a rid = T.rev.."].
9e30: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 }.. # var
9e40: 28 64 76 29 20 3d 20 64 69 63 74 20 28 69 74 65 (dv) = dict (ite
9e50: 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 65 6d 29 m -> list (item)
9e60: 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 73 74 20 ), item = list
9e70: 28 74 79 70 65 20 69 64 29 0a 20 20 20 20 74 79 (type id). ty
9e80: 70 65 6d 65 74 68 6f 64 20 73 75 63 63 65 73 73 pemethod success
9e90: 6f 72 73 20 7b 64 76 20 74 61 67 73 7d 20 7b 0a ors {dv tags} {.
9ea0: 09 23 20 54 61 67 73 20 68 61 76 65 20 6e 6f 20 .# Tags have no
9eb0: 73 75 63 63 65 73 73 6f 72 73 2e 0a 09 72 65 74 successors...ret
9ec0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
9ed0: 20 72 65 73 75 6c 74 20 3d 20 34 2d 6c 69 73 74 result = 4-list
9ee0: 20 28 69 74 65 6d 74 79 70 65 20 69 74 65 6d 69 (itemtype itemi
9ef0: 64 20 6e 65 78 74 69 74 65 6d 74 79 70 65 20 6e d nextitemtype n
9f00: 65 78 74 69 74 65 6d 69 64 20 2e 2e 2e 29 0a 20 extitemid ...).
9f10: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6c 6f typemethod lo
9f20: 6f 70 73 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 ops {tags} {..#
9f30: 54 61 67 73 20 68 61 76 65 20 6e 6f 20 73 75 63 Tags have no suc
9f40: 63 65 73 73 6f 72 73 2c 20 74 68 65 72 65 66 6f cessors, therefo
9f50: 72 65 20 63 61 6e 6e 6f 74 20 63 61 75 73 65 20 re cannot cause
9f60: 6c 6f 6f 70 73 0a 09 72 65 74 75 72 6e 20 7b 7d loops..return {}
9f70: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 76 61 . }.. # va
9f80: 72 28 64 76 29 20 3d 20 64 69 63 74 20 28 69 74 r(dv) = dict (it
9f90: 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 65 6d em -> list (item
9fa0: 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 73 74 )), item = list
9fb0: 20 28 74 79 70 65 20 69 64 29 0a 20 20 20 20 74 (type id). t
9fc0: 79 70 65 6d 65 74 68 6f 64 20 70 72 65 64 65 63 ypemethod predec
9fd0: 65 73 73 6f 72 73 20 7b 64 76 20 74 61 67 73 7d essors {dv tags}
9fe0: 20 7b 0a 09 75 70 76 61 72 20 31 20 24 64 76 20 {..upvar 1 $dv
9ff0: 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 23 20 dependencies..#
a000: 54 68 65 20 70 72 65 64 65 63 65 73 73 6f 72 73 The predecessors
a010: 20 6f 66 20 61 20 74 61 67 20 61 72 65 20 61 6c of a tag are al
a020: 6c 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 20 l the revisions
a030: 74 68 65 20 74 61 67 73 20 61 72 65 0a 09 23 20 the tags are..#
a040: 61 74 74 61 63 68 65 64 20 74 6f 2c 20 61 73 20 attached to, as
a050: 77 65 6c 6c 20 61 73 20 61 6c 6c 20 74 68 65 20 well as all the
a060: 62 72 61 6e 63 68 65 73 20 6f 72 20 74 61 67 73 branches or tags
a070: 20 77 68 69 63 68 20 61 72 65 0a 09 23 20 74 68 which are..# th
a080: 65 69 72 20 70 72 65 66 65 72 65 64 20 70 61 72 eir prefered par
a090: 65 6e 74 73 2e 0a 0a 09 73 65 74 20 74 68 65 73 ents....set thes
a0a0: 65 74 20 28 27 5b 6a 6f 69 6e 20 24 74 61 67 73 et ('[join $tags
a0b0: 20 7b 27 2c 27 7d 5d 27 29 0a 09 66 6f 72 65 61 {','}]')..forea
a0c0: 63 68 20 7b 74 69 64 20 70 61 72 65 6e 74 7d 20 ch {tid parent}
a0d0: 5b 73 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 [state run "..
a0e0: 20 20 53 45 4c 45 43 54 20 54 2e 74 69 64 2c 20 SELECT T.tid,
a0f0: 52 2e 72 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 R.rid.. FROM
a100: 20 20 74 61 67 20 54 2c 20 72 65 76 69 73 69 6f tag T, revisio
a110: 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 n R.. WHERE
a120: 54 2e 74 69 64 20 49 4e 20 24 74 68 65 73 65 74 T.tid IN $theset
a130: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 2e 72 .. AND T.r
a140: 65 76 20 3d 20 52 2e 72 69 64 0a 09 22 5d 20 7b ev = R.rid.."] {
a150: 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 .. lappend de
a160: 70 65 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 pendencies([list
a170: 20 73 79 6d 3a 3a 74 61 67 20 24 74 69 64 5d 29 sym::tag $tid])
a180: 20 5b 6c 69 73 74 20 72 65 76 20 24 70 61 72 65 [list rev $pare
a190: 6e 74 5d 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 68 nt]..}...foreach
a1a0: 20 7b 74 69 64 20 70 61 72 65 6e 74 7d 20 5b 73 {tid parent} [s
a1b0: 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 20 20 tate run "..
a1c0: 53 45 4c 45 43 54 20 54 2e 74 69 64 2c 20 42 2e SELECT T.tid, B.
a1d0: 62 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 bid.. FROM
a1e0: 74 61 67 20 54 2c 20 70 72 65 66 65 72 65 64 70 tag T, preferedp
a1f0: 61 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 20 arent P, branch
a200: 42 0a 09 20 20 20 20 57 48 45 52 45 20 20 54 2e B.. WHERE T.
a210: 74 69 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 tid IN $theset..
a220: 20 20 20 20 41 4e 44 20 20 20 20 54 2e 73 69 64 AND T.sid
a230: 20 3d 20 50 2e 73 69 64 0a 09 20 20 20 20 41 4e = P.sid.. AN
a240: 44 20 20 20 20 50 2e 70 69 64 20 3d 20 42 2e 73 D P.pid = B.s
a250: 69 64 0a 09 22 5d 20 7b 0a 09 20 20 20 20 6c 61 id.."] {.. la
a260: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
a270: 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 74 61 es([list sym::ta
a280: 67 20 24 74 69 64 5d 29 20 5b 6c 69 73 74 20 73 g $tid]) [list s
a290: 79 6d 3a 3a 62 72 61 6e 63 68 20 24 70 61 72 65 ym::branch $pare
a2a0: 6e 74 5d 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 68 nt]..}...foreach
a2b0: 20 7b 74 69 64 20 70 61 72 65 6e 74 7d 20 5b 73 {tid parent} [s
a2c0: 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 20 20 tate run "..
a2d0: 53 45 4c 45 43 54 20 54 2e 74 69 64 2c 20 54 58 SELECT T.tid, TX
a2e0: 2e 74 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 .tid.. FROM
a2f0: 20 74 61 67 20 54 2c 20 70 72 65 66 65 72 65 64 tag T, prefered
a300: 70 61 72 65 6e 74 20 50 2c 20 74 61 67 20 54 58 parent P, tag TX
a310: 0a 09 20 20 20 20 57 48 45 52 45 20 20 54 2e 74 .. WHERE T.t
a320: 69 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 20 id IN $theset..
a330: 20 20 20 41 4e 44 20 20 20 20 54 2e 73 69 64 20 AND T.sid
a340: 3d 20 50 2e 73 69 64 0a 09 20 20 20 20 41 4e 44 = P.sid.. AND
a350: 20 20 20 20 50 2e 70 69 64 20 3d 20 54 58 2e 73 P.pid = TX.s
a360: 69 64 0a 09 22 5d 20 7b 0a 09 20 20 20 20 6c 61 id.."] {.. la
a370: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
a380: 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 74 61 es([list sym::ta
a390: 67 20 24 74 69 64 5d 29 20 5b 6c 69 73 74 20 73 g $tid]) [list s
a3a0: 79 6d 3a 3a 74 61 67 20 24 70 61 72 65 6e 74 5d ym::tag $parent]
a3b0: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
a3c0: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
a3d0: 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 65 = list (changese
a3e0: 74 2d 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 t-id). typeme
a3f0: 74 68 6f 64 20 63 73 5f 73 75 63 63 65 73 73 6f thod cs_successo
a400: 72 73 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 54 rs {tags} {..# T
a410: 61 67 73 20 68 61 76 65 20 6e 6f 20 73 75 63 63 ags have no succ
a420: 65 73 73 6f 72 73 2e 0a 09 72 65 74 75 72 6e 0a essors...return.
a430: 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 }.}..# # ##
a440: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
a450: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
a460: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
a470: 23 23 23 23 23 23 0a 23 23 20 48 65 6c 70 65 72 ######.## Helper
a480: 20 73 69 6e 67 6c 65 74 6f 6e 2e 20 43 6f 6d 6d singleton. Comm
a490: 61 6e 64 73 20 66 6f 72 20 62 72 61 6e 63 68 20 ands for branch
a4a0: 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 symbol changeset
a4b0: 73 2e 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a s...snit::type :
a4c0: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
a4d0: 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 ort::cvs::projec
a4e0: 74 3a 3a 72 65 76 3a 3a 73 79 6d 3a 3a 62 72 61 t::rev::sym::bra
a4f0: 6e 63 68 20 7b 0a 20 20 20 20 74 79 70 65 6d 65 nch {. typeme
a500: 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 thod byrevision
a510: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a {} { return 0 }.
a520: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 typemethod b
a530: 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b 20 72 ysymbol {} { r
a540: 65 74 75 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 eturn 1 }. ty
a550: 70 65 6d 65 74 68 6f 64 20 69 73 74 61 67 20 20 pemethod istag
a560: 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 {} { return
a570: 30 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 0 }. typemeth
a580: 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 7b 7d od isbranch {}
a590: 20 7b 20 72 65 74 75 72 6e 20 31 20 7d 0a 0a 20 { return 1 }..
a5a0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 typemethod st
a5b0: 72 20 7b 62 72 61 6e 63 68 7d 20 7b 0a 09 73 74 r {branch} {..st
a5c0: 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 ruct::list assig
a5d0: 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 n [state run {..
a5e0: 20 20 20 20 53 45 4c 45 43 54 20 53 2e 6e 61 6d SELECT S.nam
a5f0: 65 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d e, F.name, P.nam
a600: 65 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 e.. FROM br
a610: 61 6e 63 68 20 42 2c 20 73 79 6d 62 6f 6c 20 53 anch B, symbol S
a620: 2c 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 , file F, projec
a630: 74 20 50 0a 09 20 20 20 20 57 48 45 52 45 20 20 t P.. WHERE
a640: 42 2e 62 69 64 20 3d 20 24 62 72 61 6e 63 68 0a B.bid = $branch.
a650: 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 69 . AND F.fi
a660: 64 20 3d 20 42 2e 66 69 64 0a 09 20 20 20 20 41 d = B.fid.. A
a670: 4e 44 20 20 20 20 50 2e 70 69 64 20 3d 20 46 2e ND P.pid = F.
a680: 70 69 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 pid.. AND
a690: 53 2e 73 69 64 20 3d 20 42 2e 73 69 64 0a 09 7d S.sid = B.sid..}
a6a0: 5d 20 73 6e 61 6d 65 20 66 6e 61 6d 65 20 70 6e ] sname fname pn
a6b0: 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 24 70 6e ame..return "$pn
a6c0: 61 6d 65 2f 42 27 24 7b 73 6e 61 6d 65 7d 27 3a ame/B'${sname}':
a6d0: 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a 0a :$fname". }..
a6e0: 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 6c # result = l
a6f0: 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d 61 ist (mintime, ma
a700: 78 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 6d xtime). typem
a710: 65 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 20 ethod timerange
a720: 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 20 {branches} {..#
a730: 54 68 65 20 72 61 6e 67 65 20 6f 66 20 61 20 62 The range of a b
a740: 72 61 6e 63 68 20 69 73 20 64 65 66 69 6e 65 64 ranch is defined
a750: 20 61 73 20 74 68 65 20 72 61 6e 67 65 20 6f 66 as the range of
a760: 20 74 68 65 0a 09 23 20 72 65 76 69 73 69 6f 6e the..# revision
a770: 73 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 61 s the branches a
a780: 72 65 20 73 70 61 77 6e 65 64 20 62 79 2e 20 4e re spawned by. N
a790: 4f 54 45 20 68 6f 77 65 76 65 72 20 74 68 61 74 OTE however that
a7a0: 20 74 68 65 0a 09 23 20 62 72 61 6e 63 68 65 73 the..# branches
a7b0: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
a7c0: 20 61 20 64 65 74 61 63 68 65 64 20 4e 54 44 42 a detached NTDB
a7d0: 20 77 69 6c 6c 20 68 61 76 65 20 6e 6f 20 72 6f will have no ro
a7e0: 6f 74 0a 09 23 20 73 70 61 77 6e 69 6e 67 20 74 ot..# spawning t
a7f0: 68 65 6d 2c 20 68 65 6e 63 65 20 74 68 65 79 20 hem, hence they
a800: 68 61 76 65 20 6e 6f 20 72 65 61 6c 20 74 69 6d have no real tim
a810: 65 72 61 6e 67 65 20 61 6e 79 0a 09 23 20 6c 6f erange any..# lo
a820: 6e 67 65 72 2e 20 42 79 20 75 73 69 6e 67 20 30 nger. By using 0
a830: 20 77 65 20 70 75 74 20 74 68 65 6d 20 69 6e 20 we put them in
a840: 66 72 6f 6e 74 20 6f 66 20 65 76 65 72 79 74 68 front of everyth
a850: 69 6e 67 20 65 6c 73 65 2c 0a 09 23 20 61 73 20 ing else,..# as
a860: 74 68 65 79 20 6c 6f 67 69 63 61 6c 6c 79 20 61 they logically a
a870: 72 65 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 re....set theset
a880: 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 ('[join $branch
a890: 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 es {','}]')..ret
a8a0: 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 22 urn [state run "
a8b0: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 49 46 4e .. SELECT IFN
a8c0: 55 4c 4c 28 4d 49 4e 28 52 2e 64 61 74 65 29 2c ULL(MIN(R.date),
a8d0: 30 29 2c 20 49 46 4e 55 4c 4c 28 4d 41 58 28 52 0), IFNULL(MAX(R
a8e0: 2e 64 61 74 65 29 2c 30 29 0a 09 20 20 20 20 46 .date),0).. F
a8f0: 52 4f 4d 20 20 62 72 61 6e 63 68 20 42 2c 20 72 ROM branch B, r
a900: 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 evision R.. W
a910: 48 45 52 45 20 42 2e 62 69 64 20 49 4e 20 24 74 HERE B.bid IN $t
a920: 68 65 73 65 74 0a 20 20 20 20 20 20 20 20 20 20 heset.
a930: 20 20 41 4e 44 20 20 20 52 2e 72 69 64 20 3d 20 AND R.rid =
a940: 42 2e 72 6f 6f 74 0a 09 22 5d 0a 20 20 20 20 7d B.root.."]. }
a950: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
a960: 20 34 2d 6c 69 73 74 20 28 69 74 65 6d 74 79 70 4-list (itemtyp
a970: 65 20 69 74 65 6d 69 64 20 6e 65 78 74 69 74 65 e itemid nextite
a980: 6d 74 79 70 65 20 6e 65 78 74 69 74 65 6d 69 64 mtype nextitemid
a990: 20 2e 2e 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 ...). typeme
a9a0: 74 68 6f 64 20 6c 6f 6f 70 73 20 7b 62 72 61 6e thod loops {bran
a9b0: 63 68 65 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 3a ches} {..# Note:
a9c0: 20 52 65 76 69 73 69 6f 6e 73 20 61 6e 64 20 74 Revisions and t
a9d0: 61 67 73 20 63 61 6e 6e 6f 74 20 63 61 75 73 65 ags cannot cause
a9e0: 20 74 68 65 20 6c 6f 6f 70 2e 20 42 65 69 6e 67 the loop. Being
a9f0: 20 6f 66 20 61 0a 09 23 20 66 75 6e 64 61 6d 65 of a..# fundame
aa00: 6e 74 61 6c 6c 79 20 64 69 66 66 65 72 65 6e 74 ntally different
aa10: 20 74 79 70 65 20 74 68 65 79 20 63 61 6e 6e 6f type they canno
aa20: 74 20 62 65 20 69 6e 20 74 68 65 20 69 6e 63 6f t be in the inco
aa30: 6d 69 6e 67 0a 09 23 20 73 65 74 20 6f 66 20 69 ming..# set of i
aa40: 64 73 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 ds....set theset
aa50: 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 ('[join $branch
aa60: 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 es {','}]')..ret
aa70: 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b urn [state run [
aa80: 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 subst -nocommand
aa90: 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 s -nobackslashes
aaa0: 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 {.. SELECT B
aab0: 2e 62 69 64 2c 20 42 58 2e 62 69 64 0a 09 20 20 .bid, BX.bid..
aac0: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
aad0: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
aae0: 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 0a 09 t P, branch BX..
aaf0: 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 WHERE B.bid
ab00: 20 49 4e 20 24 74 68 65 73 65 74 0a 09 20 20 20 IN $theset..
ab10: 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 AND B.sid =
ab20: 50 2e 70 69 64 0a 09 20 20 20 20 41 4e 44 20 20 P.pid.. AND
ab30: 20 20 42 58 2e 73 69 64 20 3d 20 50 2e 73 69 64 BX.sid = P.sid
ab40: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 58 2e .. AND BX.
ab50: 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 bid IN $theset..
ab60: 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 }]]. }.. #
ab70: 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 var(dv) = dict
ab80: 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 (item -> list (i
ab90: 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c tem)), item = l
aba0: 69 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 ist (type id).
abb0: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 typemethod suc
abc0: 63 65 73 73 6f 72 73 20 7b 64 76 20 62 72 61 6e cessors {dv bran
abd0: 63 68 65 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 ches} {..upvar 1
abe0: 20 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 $dv dependencie
abf0: 73 0a 09 23 20 54 68 65 20 66 69 72 73 74 20 72 s..# The first r
ac00: 65 76 69 73 69 6f 6e 20 63 6f 6d 6d 69 74 74 65 evision committe
ac10: 64 20 6f 6e 20 61 20 62 72 61 6e 63 68 2c 20 61 d on a branch, a
ac20: 6e 64 20 61 6c 6c 20 62 72 61 6e 63 68 65 73 0a nd all branches.
ac30: 09 23 20 61 6e 64 20 74 61 67 73 20 77 68 69 63 .# and tags whic
ac40: 68 20 68 61 76 65 20 69 74 20 61 73 20 74 68 65 h have it as the
ac50: 69 72 20 70 72 65 66 65 72 65 64 20 70 61 72 65 ir prefered pare
ac60: 6e 74 20 61 72 65 20 74 68 65 0a 09 23 20 73 75 nt are the..# su
ac70: 63 63 65 73 73 6f 72 73 20 6f 66 20 61 20 62 72 ccessors of a br
ac80: 61 6e 63 68 2e 0a 0a 09 73 65 74 20 74 68 65 73 anch....set thes
ac90: 65 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e et ('[join $bran
aca0: 63 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 66 ches {','}]')..f
acb0: 6f 72 65 61 63 68 20 7b 62 69 64 20 63 68 69 6c oreach {bid chil
acc0: 64 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 22 0a d} [state run ".
acd0: 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 . SELECT B.bi
ace0: 64 2c 20 52 2e 72 69 64 0a 09 20 20 20 20 46 52 d, R.rid.. FR
acf0: 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 72 OM branch B, r
ad00: 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 evision R.. W
ad10: 48 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 HERE B.bid IN $
ad20: 74 68 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 theset.. AND
ad30: 20 20 20 42 2e 66 69 72 73 74 20 3d 20 52 2e 72 B.first = R.r
ad40: 69 64 0a 09 22 5d 20 7b 0a 09 20 20 20 20 6c 61 id.."] {.. la
ad50: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
ad60: 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 es([list sym::br
ad70: 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 anch $bid]) [lis
ad80: 74 20 72 65 76 20 24 63 68 69 6c 64 5d 0a 09 7d t rev $child]..}
ad90: 0a 09 66 6f 72 65 61 63 68 20 7b 62 69 64 20 63 ..foreach {bid c
ada0: 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 6e hild} [state run
adb0: 20 22 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 ".. SELECT B
adc0: 2e 62 69 64 2c 20 42 58 2e 62 69 64 0a 09 20 20 .bid, BX.bid..
add0: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
ade0: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
adf0: 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 0a 09 t P, branch BX..
ae00: 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 WHERE B.bid
ae10: 20 49 4e 20 24 74 68 65 73 65 74 0a 09 20 20 20 IN $theset..
ae20: 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 AND B.sid =
ae30: 50 2e 70 69 64 0a 09 20 20 20 20 41 4e 44 20 20 P.pid.. AND
ae40: 20 20 42 58 2e 73 69 64 20 3d 20 50 2e 73 69 64 BX.sid = P.sid
ae50: 0a 09 22 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 .."] {.. lapp
ae60: 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 end dependencies
ae70: 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e ([list sym::bran
ae80: 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 74 20 ch $bid]) [list
ae90: 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 63 68 69 sym::branch $chi
aea0: 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 68 20 ld]..}..foreach
aeb0: 7b 62 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 {bid child} [sta
aec0: 74 65 20 72 75 6e 20 22 0a 09 20 20 20 20 53 45 te run ".. SE
aed0: 4c 45 43 54 20 42 2e 62 69 64 2c 20 54 2e 74 69 LECT B.bid, T.ti
aee0: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 d.. FROM br
aef0: 61 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 anch B, prefered
af00: 70 61 72 65 6e 74 20 50 2c 20 74 61 67 20 54 0a parent P, tag T.
af10: 09 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 . WHERE B.bi
af20: 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 20 20 d IN $theset..
af30: 20 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d AND B.sid =
af40: 20 50 2e 70 69 64 0a 09 20 20 20 20 41 4e 44 20 P.pid.. AND
af50: 20 20 20 54 2e 73 69 64 20 3d 20 50 2e 73 69 64 T.sid = P.sid
af60: 0a 09 22 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 .."] {.. lapp
af70: 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 end dependencies
af80: 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e ([list sym::bran
af90: 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 74 20 ch $bid]) [list
afa0: 73 79 6d 3a 3a 74 61 67 20 24 63 68 69 6c 64 5d sym::tag $child]
afb0: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
afc0: 7d 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 29 }.. # var(dv)
afd0: 20 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d 3e = dict (item ->
afe0: 20 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 69 list (item)), i
aff0: 74 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 70 tem = list (typ
b000: 65 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 e id). typeme
b010: 74 68 6f 64 20 70 72 65 64 65 63 65 73 73 6f 72 thod predecessor
b020: 73 20 7b 64 76 20 62 72 61 6e 63 68 65 73 7d 20 s {dv branches}
b030: 7b 0a 09 75 70 76 61 72 20 31 20 24 64 76 20 64 {..upvar 1 $dv d
b040: 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 23 20 54 ependencies..# T
b050: 68 65 20 70 72 65 64 65 63 65 73 73 6f 72 73 20 he predecessors
b060: 6f 66 20 61 20 62 72 61 6e 63 68 20 61 72 65 20 of a branch are
b070: 61 6c 6c 20 74 68 65 20 72 65 76 69 73 69 6f 6e all the revision
b080: 73 20 74 68 65 0a 09 23 20 62 72 61 6e 63 68 65 s the..# branche
b090: 73 20 61 72 65 20 73 70 61 77 6e 65 64 20 66 72 s are spawned fr
b0a0: 6f 6d 2c 20 61 73 20 77 65 6c 6c 20 61 73 20 61 om, as well as a
b0b0: 6c 6c 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 ll the branches
b0c0: 6f 72 0a 09 23 20 74 61 67 73 20 77 68 69 63 68 or..# tags which
b0d0: 20 61 72 65 20 74 68 65 69 72 20 70 72 65 66 65 are their prefe
b0e0: 72 65 64 20 70 61 72 65 6e 74 73 2e 0a 0a 09 73 red parents....s
b0f0: 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 et theset ('[joi
b100: 6e 20 24 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 n $branches {','
b110: 7d 5d 27 29 0a 09 66 6f 72 65 61 63 68 20 7b 62 }]')..foreach {b
b120: 69 64 20 70 61 72 65 6e 74 7d 20 5b 73 74 61 74 id parent} [stat
b130: 65 20 72 75 6e 20 22 0a 09 20 20 20 20 53 45 4c e run ".. SEL
b140: 45 43 54 20 42 2e 42 69 64 2c 20 52 2e 72 69 64 ECT B.Bid, R.rid
b150: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 .. FROM bra
b160: 6e 63 68 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 nch B, revision
b170: 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 2e R.. WHERE B.
b180: 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 bid IN $theset..
b190: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 72 6f 6f AND B.roo
b1a0: 74 20 3d 20 52 2e 72 69 64 0a 09 22 5d 20 7b 0a t = R.rid.."] {.
b1b0: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 . lappend dep
b1c0: 65 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 endencies([list
b1d0: 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 62 69 64 sym::branch $bid
b1e0: 5d 29 20 5b 6c 69 73 74 20 72 65 76 20 24 70 61 ]) [list rev $pa
b1f0: 72 65 6e 74 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 rent]..}..foreac
b200: 68 20 7b 62 69 64 20 70 61 72 65 6e 74 7d 20 5b h {bid parent} [
b210: 73 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 20 state run "..
b220: 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 42 SELECT B.bid, B
b230: 58 2e 62 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 X.bid.. FROM
b240: 20 20 62 72 61 6e 63 68 20 42 2c 20 70 72 65 66 branch B, pref
b250: 65 72 65 64 70 61 72 65 6e 74 20 50 2c 20 62 72 eredparent P, br
b260: 61 6e 63 68 20 42 58 0a 09 20 20 20 20 57 48 45 anch BX.. WHE
b270: 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 RE B.bid IN $th
b280: 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 20 20 eset.. AND
b290: 20 42 2e 73 69 64 20 3d 20 50 2e 73 69 64 0a 09 B.sid = P.sid..
b2a0: 20 20 20 20 41 4e 44 20 20 20 20 50 2e 70 69 64 AND P.pid
b2b0: 20 3d 20 42 58 2e 73 69 64 0a 09 22 5d 20 7b 0a = BX.sid.."] {.
b2c0: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 . lappend dep
b2d0: 65 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 endencies([list
b2e0: 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 62 69 64 sym::branch $bid
b2f0: 5d 29 20 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 ]) [list sym::br
b300: 61 6e 63 68 20 24 70 61 72 65 6e 74 5d 0a 09 7d anch $parent]..}
b310: 0a 09 66 6f 72 65 61 63 68 20 7b 62 69 64 20 70 ..foreach {bid p
b320: 61 72 65 6e 74 7d 20 5b 73 74 61 74 65 20 72 75 arent} [state ru
b330: 6e 20 22 0a 09 20 20 20 20 53 45 4c 45 43 54 20 n ".. SELECT
b340: 42 2e 62 69 64 2c 20 54 2e 74 69 64 0a 09 20 20 B.bid, T.tid..
b350: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
b360: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
b370: 74 20 50 2c 20 74 61 67 20 54 0a 09 20 20 20 20 t P, tag T..
b380: 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 WHERE B.bid IN
b390: 24 74 68 65 73 65 74 0a 09 20 20 20 20 41 4e 44 $theset.. AND
b3a0: 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 73 69 B.sid = P.si
b3b0: 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 50 2e d.. AND P.
b3c0: 70 69 64 20 3d 20 54 2e 73 69 64 0a 09 22 5d 20 pid = T.sid.."]
b3d0: 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 {.. lappend d
b3e0: 65 70 65 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 ependencies([lis
b3f0: 74 20 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 62 t sym::branch $b
b400: 69 64 5d 29 20 5b 6c 69 73 74 20 73 79 6d 3a 3a id]) [list sym::
b410: 74 61 67 20 24 70 61 72 65 6e 74 5d 0a 09 7d 0a tag $parent]..}.
b420: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
b430: 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 # result = li
b440: 73 74 20 28 63 68 61 6e 67 65 73 65 74 2d 69 64 st (changeset-id
b450: 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 ). typemethod
b460: 20 63 73 5f 73 75 63 63 65 73 73 6f 72 73 20 7b cs_successors {
b470: 62 72 61 6e 63 68 65 73 7d 20 7b 0a 20 20 20 20 branches} {.
b480: 20 20 20 20 23 20 54 68 69 73 20 69 73 20 61 20 # This is a
b490: 76 61 72 69 61 6e 74 20 6f 66 20 27 73 75 63 63 variant of 'succ
b4a0: 65 73 73 6f 72 73 27 20 77 68 69 63 68 20 6d 61 essors' which ma
b4b0: 70 73 20 74 68 65 20 6c 6f 77 2d 6c 65 76 65 6c ps the low-level
b4c0: 0a 20 20 20 20 20 20 20 20 23 20 64 61 74 61 20 . # data
b4d0: 64 69 72 65 63 74 6c 79 20 74 6f 20 74 68 65 20 directly to the
b4e0: 61 73 73 6f 63 69 61 74 65 64 20 63 68 61 6e 67 associated chang
b4f0: 65 73 65 74 73 2e 20 49 2e 65 2e 20 69 6e 73 74 esets. I.e. inst
b500: 65 61 64 0a 20 20 20 20 20 20 20 20 23 20 6d 69 ead. # mi
b510: 6c 6c 69 6f 6e 73 20 6f 66 20 64 65 70 65 6e 64 llions of depend
b520: 65 6e 63 79 20 70 61 69 72 73 20 28 69 6e 20 65 ency pairs (in e
b530: 78 74 72 65 6d 65 20 63 61 73 65 73 20 28 45 78 xtreme cases (Ex
b540: 61 6d 70 6c 65 3a 20 54 63 6c 0a 20 20 20 20 20 ample: Tcl.
b550: 20 20 20 23 20 43 56 53 29 29 20 77 65 20 72 65 # CVS)) we re
b560: 74 75 72 6e 20 61 20 76 65 72 79 20 73 68 6f 72 turn a very shor
b570: 74 20 61 6e 64 20 6d 75 63 68 20 6d 6f 72 65 20 t and much more
b580: 6d 61 6e 61 67 65 61 62 6c 65 20 6c 69 73 74 0a manageable list.
b590: 20 20 20 20 20 20 20 20 23 20 6f 66 20 63 68 61 # of cha
b5a0: 6e 67 65 73 65 74 73 2e 0a 0a 09 73 65 74 20 74 ngesets....set t
b5b0: 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 62 heset ('[join $b
b5c0: 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d 27 29 ranches {','}]')
b5d0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
b5e0: 5b 73 74 61 74 65 20 72 75 6e 20 22 0a 09 20 20 [state run "..
b5f0: 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 SELECT C.cid..
b600: 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 FROM branc
b610: 68 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 2c h B, revision R,
b620: 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e csitem CI, chan
b630: 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 geset C.. WHE
b640: 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 RE B.bid IN $th
b650: 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 20 20 eset.. AND
b660: 20 42 2e 66 69 72 73 74 20 3d 20 52 2e 72 69 64 B.first = R.rid
b670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
b680: 20 20 20 20 43 49 2e 69 69 64 20 3d 20 52 2e 72 CI.iid = R.r
b690: 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 id. A
b6a0: 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 ND C.cid = CI
b6b0: 2e 63 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 .cid.
b6c0: 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d AND C.type =
b6d0: 20 30 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 0. UNION..
b6e0: 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 SELECT C.cid..
b6f0: 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 FROM branc
b700: 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 h B, preferedpar
b710: 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 ent P, branch BX
b720: 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 , csitem CI, cha
b730: 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 ngeset C.. WH
b740: 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 ERE B.bid IN $t
b750: 68 65 73 65 74 0a 09 20 20 20 20 41 4e 44 20 20 heset.. AND
b760: 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 69 64 0a B.sid = P.pid.
b770: 09 20 20 20 20 41 4e 44 20 20 20 20 42 58 2e 73 . AND BX.s
b780: 69 64 20 3d 20 50 2e 73 69 64 0a 20 20 20 20 20 id = P.sid.
b790: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 AND CI
b7a0: 2e 69 69 64 20 3d 20 42 58 2e 62 69 64 0a 20 20 .iid = BX.bid.
b7b0: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
b7c0: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 0a C.cid = CI.cid.
b7d0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
b7e0: 20 20 20 43 2e 74 79 70 65 20 3d 20 32 0a 20 20 C.type = 2.
b7f0: 20 20 55 4e 49 4f 4e 0a 09 20 20 20 20 53 45 4c UNION.. SEL
b800: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
b810: 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 ROM branch B,
b820: 70 72 65 66 65 72 65 64 70 61 72 65 6e 74 20 50 preferedparent P
b830: 2c 20 74 61 67 20 54 2c 20 63 73 69 74 65 6d 20 , tag T, csitem
b840: 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a CI, changeset C.
b850: 09 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 . WHERE B.bi
b860: 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 20 20 d IN $theset..
b870: 20 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d AND B.sid =
b880: 20 50 2e 70 69 64 0a 09 20 20 20 20 41 4e 44 20 P.pid.. AND
b890: 20 20 20 54 2e 73 69 64 20 3d 20 50 2e 73 69 64 T.sid = P.sid
b8a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
b8b0: 20 20 20 20 43 49 2e 69 69 64 20 3d 20 54 2e 74 CI.iid = T.t
b8c0: 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 id. A
b8d0: 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 ND C.cid = CI
b8e0: 2e 63 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 .cid.
b8f0: 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d AND C.type =
b900: 20 31 0a 09 22 5d 0a 09 72 65 74 75 72 6e 0a 20 1.."]..return.
b910: 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 }.. typeme
b920: 74 68 6f 64 20 6c 69 6d 69 74 73 20 7b 62 72 61 thod limits {bra
b930: 6e 63 68 65 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 nches} {..# Note
b940: 73 2e 20 54 68 69 73 20 6d 65 74 68 6f 64 20 65 s. This method e
b950: 78 69 73 74 73 20 6f 6e 6c 79 20 66 6f 72 20 62 xists only for b
b960: 72 61 6e 63 68 65 73 2e 20 49 74 20 69 73 20 6e ranches. It is n
b970: 65 65 64 65 64 20 74 6f 0a 09 23 20 67 65 74 20 eeded to..# get
b980: 64 65 74 61 69 6c 65 64 20 69 6e 66 6f 72 6d 61 detailed informa
b990: 74 69 6f 6e 20 61 62 6f 75 74 20 61 20 62 61 63 tion about a bac
b9a0: 6b 77 61 72 64 20 62 72 61 6e 63 68 2e 20 49 74 kward branch. It
b9b0: 20 64 6f 65 73 0a 09 23 20 6e 6f 74 20 61 70 70 does..# not app
b9c0: 6c 79 20 74 6f 20 74 61 67 73 2c 20 6e 6f 72 20 ly to tags, nor
b9d0: 72 65 76 69 73 69 6f 6e 73 2e 20 54 68 65 20 71 revisions. The q
b9e0: 75 65 72 69 65 73 20 63 61 6e 20 61 6c 73 6f 0a ueries can also.
b9f0: 09 23 20 72 65 73 74 72 69 63 74 20 74 68 65 6d .# restrict them
ba00: 73 65 6c 76 65 73 20 74 6f 20 74 68 65 20 72 65 selves to the re
ba10: 76 69 73 69 6f 6e 20 73 75 63 65 73 73 6f 72 73 vision sucessors
ba20: 2f 70 72 65 64 65 63 65 73 73 6f 72 73 0a 09 23 /predecessors..#
ba30: 20 6f 66 20 62 72 61 6e 63 68 65 73 2c 20 61 73 of branches, as
ba40: 20 6f 6e 6c 79 20 74 68 65 79 20 68 61 76 65 20 only they have
ba50: 6f 72 64 65 72 69 6e 67 20 64 61 74 61 20 61 6e ordering data an
ba60: 64 20 74 68 75 73 20 63 61 6e 0a 09 23 20 63 61 d thus can..# ca
ba70: 75 73 65 20 74 68 65 20 62 61 63 6b 77 61 72 64 use the backward
ba80: 6e 65 73 73 2e 0a 0a 09 73 65 74 20 74 68 65 73 ness....set thes
ba90: 65 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e et ('[join $bran
baa0: 63 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 ches {','}]')...
bab0: 73 65 74 20 6d 61 78 70 20 5b 73 74 61 74 65 20 set maxp [state
bac0: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
bad0: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
bae0: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 2d 2d 20 ashes {.. --
baf0: 6d 61 78 69 6d 61 6c 20 70 72 65 64 65 63 65 73 maximal predeces
bb00: 73 6f 72 20 70 6f 73 69 74 69 6f 6e 20 70 65 72 sor position per
bb10: 20 62 72 61 6e 63 68 0a 09 20 20 20 20 53 45 4c branch.. SEL
bb20: 45 43 54 20 42 2e 62 69 64 2c 20 4d 41 58 20 28 ECT B.bid, MAX (
bb30: 43 4f 2e 70 6f 73 29 0a 09 20 20 20 20 46 52 4f CO.pos).. FRO
bb40: 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 72 65 M branch B, re
bb50: 76 69 73 69 6f 6e 20 52 2c 20 63 73 69 74 65 6d vision R, csitem
bb60: 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 CI, changeset C
bb70: 2c 20 63 73 6f 72 64 65 72 20 43 4f 0a 09 20 20 , csorder CO..
bb80: 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 WHERE B.bid I
bb90: 4e 20 24 74 68 65 73 65 74 0a 09 20 20 20 20 41 N $theset.. A
bba0: 4e 44 20 20 20 20 42 2e 72 6f 6f 74 20 3d 20 52 ND B.root = R
bbb0: 2e 72 69 64 0a 09 20 20 20 20 41 4e 44 20 20 20 .rid.. AND
bbc0: 20 43 49 2e 69 69 64 20 3d 20 52 2e 72 69 64 0a CI.iid = R.rid.
bbd0: 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e 63 69 . AND C.ci
bbe0: 64 20 3d 20 43 49 2e 63 69 64 0a 09 20 20 20 20 d = CI.cid..
bbf0: 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 AND C.type =
bc00: 30 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 4f 0.. AND CO
bc10: 2e 63 69 64 20 3d 20 43 2e 63 69 64 0a 09 20 20 .cid = C.cid..
bc20: 20 20 47 52 4f 55 50 20 42 59 20 42 2e 62 69 64 GROUP BY B.bid
bc30: 0a 09 7d 5d 5d 0a 0a 09 73 65 74 20 6d 69 6e 73 ..}]]...set mins
bc40: 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 [state run [sub
bc50: 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d st -nocommands -
bc60: 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a nobackslashes {.
bc70: 09 20 20 20 20 2d 2d 20 6d 69 6e 69 6d 61 6c 20 . -- minimal
bc80: 73 75 63 63 65 73 73 6f 72 20 70 6f 73 69 74 69 successor positi
bc90: 6f 6e 20 70 65 72 20 62 72 61 6e 63 68 0a 09 20 on per branch..
bca0: 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c SELECT B.bid,
bcb0: 20 4d 49 4e 20 28 43 4f 2e 70 6f 73 29 0a 09 20 MIN (CO.pos)..
bcc0: 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 FROM branch
bcd0: 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 B, revision R,
bce0: 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 csitem CI, chang
bcf0: 65 73 65 74 20 43 2c 20 63 73 6f 72 64 65 72 20 eset C, csorder
bd00: 43 4f 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 CO.. WHERE B
bd10: 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 0a .bid IN $theset.
bd20: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 66 69 . AND B.fi
bd30: 72 73 74 20 3d 20 52 2e 72 69 64 0a 09 20 20 20 rst = R.rid..
bd40: 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d AND CI.iid =
bd50: 20 52 2e 72 69 64 0a 09 20 20 20 20 41 4e 44 20 R.rid.. AND
bd60: 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 C.cid = CI.ci
bd70: 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e d.. AND C.
bd80: 74 79 70 65 20 3d 20 30 0a 09 20 20 20 20 41 4e type = 0.. AN
bd90: 44 20 20 20 20 43 4f 2e 63 69 64 20 3d 20 43 2e D CO.cid = C.
bda0: 63 69 64 0a 09 20 20 20 20 47 52 4f 55 50 20 42 cid.. GROUP B
bdb0: 59 20 42 2e 62 69 64 0a 09 7d 5d 5d 0a 0a 20 20 Y B.bid..}]]..
bdc0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 return [li
bdd0: 73 74 20 24 6d 61 78 70 20 24 6d 69 6e 73 5d 0a st $maxp $mins].
bde0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 }.. # # #
bdf0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
be00: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
be10: 23 23 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 67 ##. ## Config
be20: 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 61 uration.. pra
be30: 67 6d 61 20 2d 68 61 73 69 6e 73 74 61 6e 63 65 gma -hasinstance
be40: 73 20 20 20 6e 6f 20 3b 20 23 20 73 69 6e 67 6c s no ; # singl
be50: 65 74 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 eton. pragma
be60: 2d 68 61 73 74 79 70 65 69 6e 66 6f 20 20 20 20 -hastypeinfo
be70: 6e 6f 20 3b 20 23 20 6e 6f 20 69 6e 74 72 6f 73 no ; # no intros
be80: 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 pection. prag
be90: 6d 61 20 2d 68 61 73 74 79 70 65 64 65 73 74 72 ma -hastypedestr
bea0: 6f 79 20 6e 6f 20 3b 20 23 20 69 6d 6d 6f 72 74 oy no ; # immort
beb0: 61 6c 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 al.}..# # ## ###
bec0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
bed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 ############# ##
bee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
bef0: 23 23 23 0a 23 23 0a 0a 6e 61 6d 65 73 70 61 63 ###.##..namespac
bf00: 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 e eval ::vc::fos
bf10: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
bf20: 3a 3a 70 72 6f 6a 65 63 74 20 7b 0a 20 20 20 20 ::project {.
bf30: 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 74 namespace export
bf40: 20 72 65 76 0a 20 20 20 20 6e 61 6d 65 73 70 61 rev. namespa
bf50: 63 65 20 65 76 61 6c 20 72 65 76 20 7b 0a 09 6e ce eval rev {..n
bf60: 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 amespace import
bf70: 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d ::vc::fossil::im
bf80: 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 port::cvs::state
bf90: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
bfa0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
bfb0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e :import::cvs::in
bfc0: 74 65 67 72 69 74 79 0a 09 6e 61 6d 65 73 70 61 tegrity..namespa
bfd0: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
bfe0: 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a 09 tools::misc::*..
bff0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
c000: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 ::vc::tools::tr
c010: 6f 75 62 6c 65 0a 09 6e 61 6d 65 73 70 61 63 65 ouble..namespace
c020: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f import ::vc::to
c030: 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 65 ols::log..log re
c040: 67 69 73 74 65 72 20 63 73 65 74 73 0a 0a 09 23 gister csets...#
c050: 20 53 65 74 20 75 70 20 74 68 65 20 68 65 6c 70 Set up the help
c060: 65 72 20 73 69 6e 67 6c 65 74 6f 6e 73 0a 09 6e er singletons..n
c070: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 72 65 amespace eval re
c080: 76 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 v {.. namespa
c090: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
c0a0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
c0b0: 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 20 20 cvs::state..
c0c0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
c0d0: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
c0e0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 mport::cvs::inte
c0f0: 67 72 69 74 79 0a 09 7d 0a 09 6e 61 6d 65 73 70 grity..}..namesp
c100: 61 63 65 20 65 76 61 6c 20 73 79 6d 3a 3a 74 61 ace eval sym::ta
c110: 67 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 g {.. namespa
c120: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
c130: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
c140: 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 20 20 cvs::state..
c150: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
c160: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
c170: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 mport::cvs::inte
c180: 67 72 69 74 79 0a 09 7d 0a 09 6e 61 6d 65 73 70 grity..}..namesp
c190: 61 63 65 20 65 76 61 6c 20 73 79 6d 3a 3a 62 72 ace eval sym::br
c1a0: 61 6e 63 68 20 7b 0a 09 20 20 20 20 6e 61 6d 65 anch {.. name
c1b0: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
c1c0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
c1d0: 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 t::cvs::state..
c1e0: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 namespace imp
c1f0: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ort ::vc::fossil
c200: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 ::import::cvs::i
c210: 6e 74 65 67 72 69 74 79 0a 09 7d 0a 20 20 20 20 ntegrity..}.
c220: 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 20 }.}..# # ## ###
c230: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
c240: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
c250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
c260: 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 61 63 ##.## Ready..pac
c270: 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 3a kage provide vc:
c280: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
c290: 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 :cvs::project::r
c2a0: 65 76 20 31 2e 30 0a 72 65 74 75 72 6e 0a ev 1.0.return.