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: 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 item -> list (it
0fd0: 65 6d 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 6e em). method n
0fe0: 65 78 74 6d 61 70 20 7b 7d 20 7b 0a 09 24 6d 79 extmap {} {..$my
0ff0: 74 79 70 65 6f 62 6a 20 73 75 63 63 65 73 73 6f typeobj successo
1000: 72 73 20 74 6d 70 20 24 6d 79 69 74 65 6d 73 0a rs tmp $myitems.
1010: 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 .return [array g
1020: 65 74 20 74 6d 70 5d 0a 20 20 20 20 7d 0a 0a 20 et tmp]. }..
1030: 20 20 20 6d 65 74 68 6f 64 20 62 72 65 61 6b 69 method breaki
1040: 6e 74 65 72 6e 61 6c 64 65 70 65 6e 64 65 6e 63 nternaldependenc
1050: 69 65 73 20 7b 7d 20 7b 0a 0a 09 23 23 0a 09 23 ies {} {...##..#
1060: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 6d 65 74 # NOTE: This met
1070: 68 6f 64 2c 20 6d 61 79 62 65 20 69 6e 20 63 6f hod, maybe in co
1080: 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 69 njunction with i
1090: 74 73 20 63 61 6c 6c 65 72 0a 09 23 23 20 20 20 ts caller..##
10a0: 20 20 20 20 73 65 65 6d 73 20 74 6f 20 62 65 20 seems to be
10b0: 61 20 6d 65 6d 6f 72 79 20 68 6f 67 2c 20 65 73 a memory hog, es
10c0: 70 65 63 69 61 6c 6c 79 20 66 6f 72 20 6c 61 72 pecially for lar
10d0: 67 65 0a 09 23 23 20 20 20 20 20 20 20 63 68 61 ge..## cha
10e0: 6e 67 65 73 65 74 73 2c 20 77 69 74 68 20 27 6c ngesets, with 'l
10f0: 61 72 67 65 27 20 6d 65 61 6e 69 6e 67 20 74 6f arge' meaning to
1100: 20 68 61 76 65 20 61 20 27 6c 6f 6e 67 20 6c 69 have a 'long li
1110: 73 74 0a 09 23 23 20 20 20 20 20 20 20 6f 66 20 st..## of
1120: 69 74 65 6d 73 2c 20 73 65 76 65 72 61 6c 20 74 items, several t
1130: 68 6f 75 73 61 6e 64 27 2e 20 49 6e 76 65 73 74 housand'. Invest
1140: 69 67 61 74 65 20 77 68 65 72 65 20 74 68 65 0a igate where the.
1150: 09 23 23 20 20 20 20 20 20 20 6d 65 6d 6f 72 79 .## memory
1160: 20 69 73 20 73 70 65 6e 74 20 61 6e 64 20 74 68 is spent and th
1170: 65 6e 20 6c 6f 6f 6b 20 66 6f 72 20 77 61 79 73 en look for ways
1180: 20 6f 66 20 72 65 63 74 69 66 79 69 6e 67 0a 09 of rectifying..
1190: 23 23 20 20 20 20 20 20 20 74 68 65 20 70 72 6f ## the pro
11a0: 62 6c 65 6d 2e 0a 09 23 23 0a 0a 09 23 20 54 68 blem...##...# Th
11b0: 69 73 20 6d 65 74 68 6f 64 20 69 6e 73 70 65 63 is method inspec
11c0: 74 73 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 ts the changeset
11d0: 73 20 66 6f 72 20 69 6e 74 65 72 6e 61 6c 0a 09 s for internal..
11e0: 23 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 20 # dependencies.
11f0: 4e 6f 74 68 69 6e 67 20 69 73 20 64 6f 6e 65 20 Nothing is done
1200: 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 0a if there are no.
1210: 09 23 20 73 75 63 68 2e 20 4f 74 68 65 72 77 69 .# such. Otherwi
1220: 73 65 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 se the changeset
1230: 20 69 73 20 73 70 6c 69 74 20 69 6e 74 6f 20 61 is split into a
1240: 20 73 65 74 20 6f 66 0a 09 23 20 66 72 61 67 6d set of..# fragm
1250: 65 6e 74 73 20 77 69 74 68 6f 75 74 20 69 6e 74 ents without int
1260: 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 ernal dependenci
1270: 65 73 2c 20 74 72 61 6e 73 66 6f 72 6d 69 6e 67 es, transforming
1280: 20 74 68 65 0a 09 23 20 69 6e 74 65 72 6e 61 6c the..# internal
1290: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 69 6e dependencies in
12a0: 74 6f 20 65 78 74 65 72 6e 61 6c 20 6f 6e 65 73 to external ones
12b0: 2e 20 54 68 65 20 6e 65 77 20 63 68 61 6e 67 65 . The new change
12c0: 73 65 74 73 0a 09 23 20 61 72 65 20 61 64 64 65 sets..# are adde
12d0: 64 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 d to the list of
12e0: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 2e all changesets.
12f0: 0a 0a 09 23 20 57 65 20 70 65 72 66 6f 72 6d 20 ...# We perform
1300: 61 6c 6c 20 6e 65 63 65 73 73 61 72 79 20 73 70 all necessary sp
1310: 6c 69 74 73 20 69 6e 20 6f 6e 65 20 67 6f 2c 20 lits in one go,
1320: 69 6e 73 74 65 61 64 20 6f 66 20 6f 6e 6c 79 0a instead of only.
1330: 09 23 20 6f 6e 65 2e 20 54 68 65 20 70 72 65 76 .# one. The prev
1340: 69 6f 75 73 20 61 6c 67 6f 72 69 74 68 6d 2c 20 ious algorithm,
1350: 61 64 61 70 74 65 64 20 66 72 6f 6d 20 63 76 73 adapted from cvs
1360: 32 73 76 6e 2c 20 63 6f 6d 70 75 74 65 64 0a 09 2svn, computed..
1370: 23 20 61 20 6c 6f 74 20 6f 66 20 73 74 61 74 65 # a lot of state
1380: 20 77 68 69 63 68 20 77 61 73 20 74 68 72 6f 77 which was throw
1390: 6e 20 61 77 61 79 20 61 6e 64 20 74 68 65 6e 20 n away and then
13a0: 63 6f 6d 70 75 74 65 64 20 61 67 61 69 6e 0a 09 computed again..
13b0: 23 20 66 6f 72 20 65 61 63 68 20 6f 66 20 74 68 # for each of th
13c0: 65 20 66 72 61 67 6d 65 6e 74 73 2e 20 49 74 20 e fragments. It
13d0: 73 68 6f 75 6c 64 20 62 65 20 65 61 73 69 65 72 should be easier
13e0: 20 74 6f 20 75 70 64 61 74 65 20 61 6e 64 0a 09 to update and..
13f0: 23 20 72 65 75 73 65 20 74 68 61 74 20 73 74 61 # reuse that sta
1400: 74 65 2e 0a 0a 09 23 20 54 68 65 20 63 6f 64 65 te....# The code
1410: 20 63 68 65 63 6b 73 20 6f 6e 6c 79 20 73 75 63 checks only suc
1420: 63 65 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 cessor dependenc
1430: 69 65 73 2c 20 61 73 20 74 68 69 73 0a 09 23 20 ies, as this..#
1440: 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6f automatically co
1450: 76 65 72 73 20 74 68 65 20 70 72 65 64 65 63 65 vers the predece
1460: 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 69 65 ssor dependencie
1470: 73 20 61 73 20 77 65 6c 6c 20 28 41 0a 09 23 20 s as well (A..#
1480: 73 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e 64 successor depend
1490: 65 6e 63 79 20 61 20 2d 3e 20 62 20 69 73 20 61 ency a -> b is a
14a0: 6c 73 6f 20 61 20 70 72 65 64 65 63 65 73 73 6f lso a predecesso
14b0: 72 20 64 65 70 65 6e 64 65 6e 63 79 0a 09 23 20 r dependency..#
14c0: 62 20 2d 3e 20 61 29 2e 0a 0a 09 23 20 41 72 72 b -> a)....# Arr
14d0: 61 79 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 ay of dependenci
14e0: 65 73 20 28 70 61 72 65 6e 74 20 2d 3e 20 63 68 es (parent -> ch
14f0: 69 6c 64 29 2e 20 54 68 69 73 20 69 73 20 70 75 ild). This is pu
1500: 6c 6c 65 64 20 66 72 6f 6d 0a 09 23 20 74 68 65 lled from..# the
1510: 20 73 74 61 74 65 2c 20 61 6e 64 20 6c 69 6d 69 state, and limi
1520: 74 65 64 20 74 6f 20 73 75 63 63 65 73 73 6f 72 ted to successor
1530: 73 20 77 69 74 68 69 6e 20 74 68 65 20 63 68 61 s within the cha
1540: 6e 67 65 73 65 74 2e 0a 0a 09 61 72 72 61 79 20 ngeset....array
1550: 73 65 74 20 64 65 70 65 6e 64 65 6e 63 69 65 73 set dependencies
1560: 20 7b 7d 0a 09 24 6d 79 74 79 70 65 6f 62 6a 20 {}..$mytypeobj
1570: 69 6e 74 65 72 6e 61 6c 73 75 63 63 65 73 73 6f internalsuccesso
1580: 72 73 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 rs dependencies
1590: 24 6d 79 69 74 65 6d 73 0a 09 69 66 20 7b 21 5b $myitems..if {![
15a0: 61 72 72 61 79 20 73 69 7a 65 20 64 65 70 65 6e array size depen
15b0: 64 65 6e 63 69 65 73 5d 7d 20 7b 72 65 74 75 72 dencies]} {retur
15c0: 6e 20 30 7d 20 3b 20 23 20 4e 6f 74 68 69 6e 67 n 0} ; # Nothing
15d0: 20 74 6f 20 62 72 65 61 6b 2e 0a 0a 09 6c 6f 67 to break....log
15e0: 20 77 72 69 74 65 20 35 20 63 73 65 74 73 20 2e write 5 csets .
15f0: 2e 2e 5b 24 73 65 6c 66 20 73 74 72 5d 2e 2e 2e ..[$self str]...
1600: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1610: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1620: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1630: 2e 2e 2e 2e 0a 0a 09 23 20 57 65 20 68 61 76 65 .......# We have
1640: 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 internal depend
1650: 65 6e 63 69 65 73 20 74 6f 20 62 72 65 61 6b 2e encies to break.
1660: 20 57 65 20 6e 6f 77 20 69 74 65 72 61 74 65 20 We now iterate
1670: 6f 76 65 72 0a 09 23 20 61 6c 6c 20 70 6f 73 69 over..# all posi
1680: 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 6c 69 73 tions in the lis
1690: 74 20 28 77 68 69 63 68 20 69 73 20 63 68 72 6f t (which is chro
16a0: 6e 6f 6c 6f 67 69 63 61 6c 2c 20 61 74 20 6c 65 nological, at le
16b0: 61 73 74 0a 09 23 20 61 73 20 66 61 72 20 61 73 ast..# as far as
16c0: 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 20 the timestamps
16d0: 61 72 65 20 63 6f 72 72 65 63 74 20 61 6e 64 20 are correct and
16e0: 75 6e 69 71 75 65 29 20 61 6e 64 0a 09 23 20 64 unique) and..# d
16f0: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 62 65 73 etermine the bes
1700: 74 20 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 74 t position for t
1710: 68 65 20 62 72 65 61 6b 2c 20 62 79 20 74 72 79 he break, by try
1720: 69 6e 67 20 74 6f 0a 09 23 20 62 72 65 61 6b 20 ing to..# break
1730: 61 73 20 6d 61 6e 79 20 64 65 70 65 6e 64 65 6e as many dependen
1740: 63 69 65 73 20 61 73 20 70 6f 73 73 69 62 6c 65 cies as possible
1750: 20 69 6e 20 6f 6e 65 20 67 6f 2e 20 57 68 65 6e in one go. When
1760: 20 61 0a 09 23 20 62 72 65 61 6b 20 77 61 73 20 a..# break was
1770: 66 6f 75 6e 64 20 74 68 69 73 20 69 73 20 72 65 found this is re
1780: 64 6f 6e 65 20 66 6f 72 20 74 68 65 20 66 72 61 done for the fra
1790: 67 6d 65 6e 74 73 20 63 6f 6d 69 6e 67 20 61 6e gments coming an
17a0: 64 0a 09 23 20 61 66 74 65 72 2c 20 61 66 74 65 d..# after, afte
17b0: 72 20 75 70 64 69 6e 67 20 74 68 65 20 63 72 6f r upding the cro
17c0: 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f ssing informatio
17d0: 6e 2e 0a 0a 09 23 20 44 61 74 61 20 73 74 72 75 n....# Data stru
17e0: 63 74 75 72 65 73 3a 0a 09 23 20 4d 61 70 3a 20 ctures:..# Map:
17f0: 20 50 4f 53 20 20 20 72 65 76 69 73 69 6f 6e 20 POS revision
1800: 69 64 20 20 20 20 20 20 2d 3e 20 70 6f 73 69 74 id -> posit
1810: 69 6f 6e 20 69 6e 20 6c 69 73 74 2e 0a 09 23 20 ion in list...#
1820: 20 20 20 20 20 20 43 52 4f 53 53 20 70 6f 73 69 CROSS posi
1830: 74 69 6f 6e 20 69 6e 20 6c 69 73 74 20 2d 3e 20 tion in list ->
1840: 6e 75 6d 62 65 72 20 6f 66 20 64 65 70 65 6e 64 number of depend
1850: 65 6e 63 69 65 73 20 63 72 6f 73 73 69 6e 67 20 encies crossing
1860: 69 74 0a 09 23 20 20 20 20 20 20 20 44 45 50 43 it..# DEPC
1870: 20 20 64 65 70 65 6e 64 65 6e 63 79 20 20 20 20 dependency
1880: 20 20 20 2d 3e 20 70 6f 73 69 74 69 6f 6e 73 20 -> positions
1890: 69 74 20 63 72 6f 73 73 65 73 0a 09 23 20 4c 69 it crosses..# Li
18a0: 73 74 3a 20 52 41 4e 47 45 20 4f 66 20 74 68 65 st: RANGE Of the
18b0: 20 70 6f 73 69 74 69 6f 6e 73 20 69 74 73 65 6c positions itsel
18c0: 66 2e 0a 09 23 20 41 20 64 65 70 65 6e 64 65 6e f...# A dependen
18d0: 63 79 20 69 73 20 61 20 73 69 6e 67 6c 65 2d 65 cy is a single-e
18e0: 6c 65 6d 65 6e 74 20 6d 61 70 20 70 61 72 65 6e lement map paren
18f0: 74 20 2d 3e 20 63 68 69 6c 64 0a 0a 09 49 6e 69 t -> child...Ini
1900: 74 69 61 6c 69 7a 65 42 72 65 61 6b 53 74 61 74 tializeBreakStat
1910: 65 20 24 6d 79 69 74 65 6d 73 0a 0a 09 73 65 74 e $myitems...set
1920: 20 66 72 61 67 6d 65 6e 74 73 20 7b 7d 0a 09 73 fragments {}..s
1930: 65 74 20 6e 65 77 20 20 20 20 20 20 20 5b 6c 69 et new [li
1940: 73 74 20 24 72 61 6e 67 65 5d 0a 09 61 72 72 61 st $range]..arra
1950: 79 20 73 65 74 20 62 72 65 61 6b 73 20 7b 7d 0a y set breaks {}.
1960: 0a 09 23 20 49 6e 73 74 65 61 64 20 6f 66 20 6f ..# Instead of o
1970: 6e 65 20 6c 69 73 74 20 68 6f 6c 64 69 6e 67 20 ne list holding
1980: 62 6f 74 68 20 70 72 6f 63 65 73 73 65 64 20 61 both processed a
1990: 6e 64 20 70 65 6e 64 69 6e 67 0a 09 23 20 66 72 nd pending..# fr
19a0: 61 67 6d 65 6e 74 73 20 77 65 20 75 73 65 20 74 agments we use t
19b0: 77 6f 2c 20 6f 6e 65 20 66 6f 72 20 74 68 65 20 wo, one for the
19c0: 66 72 61 6d 65 6e 74 73 20 74 6f 20 70 72 6f 63 framents to proc
19d0: 65 73 73 2c 20 6f 6e 65 0a 09 23 20 74 6f 20 68 ess, one..# to h
19e0: 6f 6c 64 20 74 68 65 20 6e 65 77 20 66 72 61 67 old the new frag
19f0: 6d 65 6e 74 73 2c 20 61 6e 64 20 74 68 65 20 6c ments, and the l
1a00: 61 74 74 65 72 20 69 73 20 63 6f 70 69 65 64 20 atter is copied
1a10: 74 6f 20 74 68 65 0a 09 23 20 66 6f 72 6d 65 72 to the..# former
1a20: 20 77 68 65 6e 20 74 68 65 79 20 72 75 6e 20 6f when they run o
1a30: 75 74 2e 20 54 68 69 73 20 6b 65 65 70 73 20 74 ut. This keeps t
1a40: 68 65 20 6c 69 73 74 20 6f 66 20 70 65 6e 64 69 he list of pendi
1a50: 6e 67 0a 09 23 20 66 72 61 67 6d 65 6e 74 73 20 ng..# fragments
1a60: 73 68 6f 72 74 20 77 69 74 68 6f 75 74 20 73 61 short without sa
1a70: 63 72 69 66 69 63 69 6e 67 20 73 70 65 65 64 20 crificing speed
1a80: 62 79 20 73 68 69 66 74 69 6e 67 20 73 74 75 66 by shifting stuf
1a90: 66 0a 09 23 20 64 6f 77 6e 2e 20 57 65 20 65 73 f..# down. We es
1aa0: 70 65 63 69 61 6c 6c 79 20 64 72 6f 70 20 74 68 pecially drop th
1ab0: 65 20 6d 65 6d 6f 72 79 20 6f 66 20 66 72 61 67 e memory of frag
1ac0: 6d 65 6e 74 73 20 62 72 6f 6b 65 6e 0a 09 23 20 ments broken..#
1ad0: 64 75 72 69 6e 67 20 70 72 6f 63 65 73 73 69 6e during processin
1ae0: 67 20 61 66 74 65 72 20 61 20 73 68 6f 72 74 20 g after a short
1af0: 74 69 6d 65 2c 20 69 6e 73 74 65 61 64 20 6f 66 time, instead of
1b00: 20 6c 65 74 74 69 6e 67 20 69 74 0a 09 23 20 63 letting it..# c
1b10: 6f 6e 73 75 6d 65 20 6d 65 6d 6f 72 79 2e 0a 0a onsume memory...
1b20: 09 77 68 69 6c 65 20 7b 5b 6c 6c 65 6e 67 74 68 .while {[llength
1b30: 20 24 6e 65 77 5d 7d 20 7b 0a 0a 09 20 20 20 20 $new]} {...
1b40: 73 65 74 20 70 65 6e 64 69 6e 67 20 24 6e 65 77 set pending $new
1b50: 0a 09 20 20 20 20 73 65 74 20 6e 65 77 20 20 20 .. set new
1b60: 20 20 7b 7d 0a 09 20 20 20 20 73 65 74 20 61 74 {}.. set at
1b70: 20 20 20 20 20 20 30 0a 0a 09 20 20 20 20 77 68 0... wh
1b80: 69 6c 65 20 7b 24 61 74 20 3c 20 5b 6c 6c 65 6e ile {$at < [llen
1b90: 67 74 68 20 24 70 65 6e 64 69 6e 67 5d 7d 20 7b gth $pending]} {
1ba0: 0a 09 09 73 65 74 20 63 75 72 72 65 6e 74 20 5b ...set current [
1bb0: 6c 69 6e 64 65 78 20 24 70 65 6e 64 69 6e 67 20 lindex $pending
1bc0: 24 61 74 5d 0a 0a 09 09 6c 6f 67 20 77 72 69 74 $at]....log writ
1bd0: 65 20 36 20 63 73 65 74 73 20 7b 2e 20 2e 20 2e e 6 csets {. . .
1be0: 2e 20 2e 2e 2e 20 2e 2e 2e 2e 2e 20 2e 2e 2e 2e . ... ..... ....
1bf0: 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e .... ...........
1c00: 2e 2e 7d 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 ..}...log write
1c10: 36 20 63 73 65 74 73 20 7b 53 63 68 65 64 75 6c 6 csets {Schedul
1c20: 65 64 20 20 20 5b 6a 6f 69 6e 20 5b 50 52 73 20 ed [join [PRs
1c30: 5b 6c 72 61 6e 67 65 20 24 70 65 6e 64 69 6e 67 [lrange $pending
1c40: 20 24 61 74 20 65 6e 64 5d 5d 20 7b 20 7d 5d 7d $at end]] { }]}
1c50: 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 36 20 63 ...log write 6 c
1c60: 73 65 74 73 20 7b 43 6f 6e 73 69 64 65 72 69 6e sets {Considerin
1c70: 67 20 5b 50 52 20 24 63 75 72 72 65 6e 74 5d 20 g [PR $current]
1c80: 5c 5b 24 61 74 2f 5b 6c 6c 65 6e 67 74 68 20 24 \[$at/[llength $
1c90: 70 65 6e 64 69 6e 67 5d 5c 5d 7d 0a 0a 09 09 73 pending]\]}....s
1ca0: 65 74 20 62 65 73 74 20 5b 46 69 6e 64 42 65 73 et best [FindBes
1cb0: 74 42 72 65 61 6b 20 24 63 75 72 72 65 6e 74 5d tBreak $current]
1cc0: 0a 0a 09 09 69 66 20 7b 24 62 65 73 74 20 3c 20 ....if {$best <
1cd0: 30 7d 20 7b 0a 09 09 20 20 20 20 23 20 54 68 65 0} {... # The
1ce0: 20 69 6e 73 70 65 63 74 65 64 20 72 61 6e 67 65 inspected range
1cf0: 20 68 61 73 20 6e 6f 20 69 6e 74 65 72 6e 61 6c has no internal
1d00: 0a 09 09 20 20 20 20 23 20 64 65 70 65 6e 64 65 ... # depende
1d10: 6e 63 69 65 73 2e 20 54 68 69 73 20 69 73 20 61 ncies. This is a
1d20: 20 63 6f 6d 70 6c 65 74 65 20 66 72 61 67 6d 65 complete fragme
1d30: 6e 74 2e 0a 09 09 20 20 20 20 6c 61 70 70 65 6e nt.... lappen
1d40: 64 20 66 72 61 67 6d 65 6e 74 73 20 24 63 75 72 d fragments $cur
1d50: 72 65 6e 74 0a 0a 09 09 20 20 20 20 6c 6f 67 20 rent.... log
1d60: 77 72 69 74 65 20 36 20 63 73 65 74 73 20 22 4e write 6 csets "N
1d70: 6f 20 62 72 65 61 6b 73 2c 20 66 69 6e 61 6c 22 o breaks, final"
1d80: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 ...} else {...
1d90: 20 20 23 20 53 70 6c 69 74 20 74 68 65 20 72 61 # Split the ra
1da0: 6e 67 65 20 61 6e 64 20 73 63 68 65 64 75 6c 65 nge and schedule
1db0: 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a 09 the resulting..
1dc0: 09 20 20 20 20 23 20 66 72 61 67 6d 65 6e 74 73 . # fragments
1dd0: 20 66 6f 72 20 66 75 72 74 68 65 72 20 69 6e 73 for further ins
1de0: 70 65 63 74 69 6f 6e 2e 20 52 65 6d 65 6d 62 65 pection. Remembe
1df0: 72 20 74 68 65 0a 09 09 20 20 20 20 23 20 6e 75 r the... # nu
1e00: 6d 62 65 72 20 6f 66 20 64 65 70 65 6e 64 65 6e mber of dependen
1e10: 63 69 65 73 20 63 75 74 20 62 65 66 6f 72 65 20 cies cut before
1e20: 77 65 20 72 65 6d 6f 76 65 20 74 68 65 6d 0a 09 we remove them..
1e30: 09 20 20 20 20 23 20 66 72 6f 6d 20 63 6f 6e 73 . # from cons
1e40: 69 64 65 72 61 74 69 6f 6e 2c 20 66 6f 72 20 64 ideration, for d
1e50: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 61 74 ocumentation lat
1e60: 65 72 2e 0a 0a 09 09 20 20 20 20 73 65 74 20 62 er..... set b
1e70: 72 65 61 6b 73 28 24 62 65 73 74 29 20 24 63 72 reaks($best) $cr
1e80: 6f 73 73 28 24 62 65 73 74 29 0a 0a 09 09 20 20 oss($best)....
1e90: 20 20 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 log write 6 cs
1ea0: 65 74 73 20 22 42 65 73 74 20 62 72 65 61 6b 20 ets "Best break
1eb0: 40 20 24 62 65 73 74 2c 20 63 75 74 74 69 6e 67 @ $best, cutting
1ec0: 20 5b 6e 73 70 20 24 63 72 6f 73 73 28 24 62 65 [nsp $cross($be
1ed0: 73 74 29 20 64 65 70 65 6e 64 65 6e 63 79 20 64 st) dependency d
1ee0: 65 70 65 6e 64 65 6e 63 69 65 73 5d 22 0a 0a 09 ependencies]"...
1ef0: 09 20 20 20 20 23 20 4e 6f 74 65 3a 20 54 68 65 . # Note: The
1f00: 20 76 61 6c 75 65 20 6f 66 20 62 65 73 74 20 69 value of best i
1f10: 73 20 61 6e 20 61 62 6f 6c 75 74 65 20 6c 6f 63 s an abolute loc
1f20: 61 74 69 6f 6e 0a 09 09 20 20 20 20 23 20 69 6e ation... # in
1f30: 20 6d 79 69 74 65 6d 73 2e 20 55 73 65 20 74 68 myitems. Use th
1f40: 65 20 73 74 61 72 74 20 6f 66 20 63 75 72 72 65 e start of curre
1f50: 6e 74 20 74 6f 20 6d 61 6b 65 20 69 74 0a 09 09 nt to make it...
1f60: 20 20 20 20 23 20 61 6e 20 69 6e 64 65 78 20 61 # an index a
1f70: 62 73 6f 6c 75 74 65 20 74 6f 20 63 75 72 72 65 bsolute to curre
1f80: 6e 74 2e 0a 0a 09 09 20 20 20 20 73 65 74 20 62 nt..... set b
1f90: 72 65 6c 20 5b 65 78 70 72 20 7b 24 62 65 73 74 rel [expr {$best
1fa0: 20 2d 20 5b 6c 69 6e 64 65 78 20 24 63 75 72 72 - [lindex $curr
1fb0: 65 6e 74 20 30 5d 7d 5d 0a 09 09 20 20 20 20 73 ent 0]}]... s
1fc0: 65 74 20 62 6e 65 78 74 20 24 62 72 65 6c 20 3b et bnext $brel ;
1fd0: 20 69 6e 63 72 20 62 6e 65 78 74 0a 09 09 20 20 incr bnext...
1fe0: 20 20 73 65 74 20 66 72 61 67 62 65 66 6f 72 65 set fragbefore
1ff0: 20 5b 6c 72 61 6e 67 65 20 24 63 75 72 72 65 6e [lrange $curren
2000: 74 20 30 20 24 62 72 65 6c 5d 0a 09 09 20 20 20 t 0 $brel]...
2010: 20 73 65 74 20 66 72 61 67 61 66 74 65 72 20 20 set fragafter
2020: 5b 6c 72 61 6e 67 65 20 24 63 75 72 72 65 6e 74 [lrange $current
2030: 20 24 62 6e 65 78 74 20 65 6e 64 5d 0a 0a 09 09 $bnext end]....
2040: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 36 20 log write 6
2050: 63 73 65 74 73 20 22 4e 65 77 20 70 69 65 63 65 csets "New piece
2060: 73 20 20 5b 50 52 20 24 66 72 61 67 62 65 66 6f s [PR $fragbefo
2070: 72 65 5d 20 5b 50 52 20 24 66 72 61 67 61 66 74 re] [PR $fragaft
2080: 65 72 5d 22 0a 0a 09 09 20 20 20 20 69 6e 74 65 er]".... inte
2090: 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 5b 6c grity assert {[l
20a0: 6c 65 6e 67 74 68 20 24 66 72 61 67 62 65 66 6f length $fragbefo
20b0: 72 65 5d 7d 20 7b 46 6f 75 6e 64 20 7a 65 72 6f re]} {Found zero
20c0: 2d 6c 65 6e 67 74 68 20 66 72 61 67 6d 65 6e 74 -length fragment
20d0: 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e at the beginnin
20e0: 67 7d 0a 09 09 20 20 20 20 69 6e 74 65 67 72 69 g}... integri
20f0: 74 79 20 61 73 73 65 72 74 20 7b 5b 6c 6c 65 6e ty assert {[llen
2100: 67 74 68 20 24 66 72 61 67 61 66 74 65 72 5d 7d gth $fragafter]}
2110: 20 20 7b 46 6f 75 6e 64 20 7a 65 72 6f 2d 6c 65 {Found zero-le
2120: 6e 67 74 68 20 66 72 61 67 6d 65 6e 74 20 61 74 ngth fragment at
2130: 20 74 68 65 20 65 6e 64 7d 0a 0a 09 09 20 20 20 the end}....
2140: 20 6c 61 70 70 65 6e 64 20 6e 65 77 20 24 66 72 lappend new $fr
2150: 61 67 62 65 66 6f 72 65 20 24 66 72 61 67 61 66 agbefore $fragaf
2160: 74 65 72 0a 09 09 20 20 20 20 43 75 74 41 74 20 ter... CutAt
2170: 24 62 65 73 74 0a 09 09 7d 0a 0a 09 09 69 6e 63 $best...}....inc
2180: 72 20 61 74 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a r at.. }..}..
2190: 09 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 .log write 6 cse
21a0: 74 73 20 22 2e 20 2e 20 2e 2e 20 2e 2e 2e 20 2e ts ". . .. ... .
21b0: 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 20 2e 2e .... ........ ..
21c0: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 22 0a 0a 09 23 ..........."...#
21d0: 20 28 2a 29 20 57 65 20 63 6c 65 61 72 20 6f 75 (*) We clear ou
21e0: 74 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 t the associated
21f0: 20 70 61 72 74 20 6f 66 20 74 68 65 20 6d 79 69 part of the myi
2200: 74 65 6d 6d 61 70 0a 09 23 20 69 6e 2d 6d 65 6d temmap..# in-mem
2210: 6f 72 79 20 69 6e 64 65 78 20 69 6e 20 70 72 65 ory index in pre
2220: 70 61 72 61 74 69 6f 6e 20 66 6f 72 20 6e 65 77 paration for new
2230: 20 64 61 74 61 2e 20 41 20 73 69 6d 70 6c 65 20 data. A simple
2240: 75 6e 73 65 74 0a 09 23 20 69 73 20 65 6e 6f 75 unset..# is enou
2250: 67 68 2c 20 77 65 20 68 61 76 65 20 6e 6f 20 73 gh, we have no s
2260: 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 ymbol changesets
2270: 20 61 74 20 74 68 69 73 20 74 69 6d 65 2c 20 61 at this time, a
2280: 6e 64 0a 09 23 20 74 68 75 73 20 6e 65 76 65 72 nd..# thus never
2290: 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 72 more than one r
22a0: 65 66 65 72 65 6e 63 65 20 69 6e 20 74 68 65 20 eference in the
22b0: 6c 69 73 74 2e 0a 0a 09 66 6f 72 65 61 63 68 20 list....foreach
22c0: 69 69 64 20 24 6d 79 69 74 65 6d 73 20 7b 0a 09 iid $myitems {..
22d0: 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c 69 73 set key [lis
22e0: 74 20 24 6d 79 74 79 70 65 20 24 69 69 64 5d 0a t $mytype $iid].
22f0: 09 20 20 20 20 75 6e 73 65 74 20 6d 79 69 74 65 . unset myite
2300: 6d 6d 61 70 28 24 6b 65 79 29 0a 09 20 20 20 20 mmap($key)..
2310: 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 74 log write 8 cset
2320: 73 20 7b 4d 41 50 2d 20 69 74 65 6d 20 3c 24 6b s {MAP- item <$k
2330: 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b 24 73 65 ey> $self = [$se
2340: 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 0a 09 23 20 lf str]}..}...#
2350: 43 72 65 61 74 65 20 63 68 61 6e 67 65 73 65 74 Create changeset
2360: 73 20 66 6f 72 20 74 68 65 20 66 72 61 67 6d 65 s for the fragme
2370: 6e 74 73 2c 20 72 65 75 73 69 6e 67 20 74 68 65 nts, reusing the
2380: 20 63 75 72 72 65 6e 74 20 6f 6e 65 0a 09 23 20 current one..#
2390: 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 66 72 for the first fr
23a0: 61 67 6d 65 6e 74 2e 20 57 65 20 73 6f 72 74 20 agment. We sort
23b0: 74 68 65 6d 20 69 6e 20 6f 72 64 65 72 20 74 6f them in order to
23c0: 20 61 6c 6c 6f 77 0a 09 23 20 63 68 65 63 6b 69 allow..# checki
23d0: 6e 67 20 66 6f 72 20 67 61 70 73 20 61 6e 64 20 ng for gaps and
23e0: 6e 69 63 65 20 6d 65 73 73 61 67 65 73 2e 0a 0a nice messages...
23f0: 09 73 65 74 20 66 72 61 67 6d 65 6e 74 73 20 5b .set fragments [
2400: 6c 73 6f 72 74 20 2d 69 6e 64 65 78 20 30 20 2d lsort -index 0 -
2410: 69 6e 74 65 67 65 72 20 24 66 72 61 67 6d 65 6e integer $fragmen
2420: 74 73 5d 0a 0a 09 23 70 75 74 73 20 5c 74 2e 5b ts]...#puts \t.[
2430: 6a 6f 69 6e 20 5b 50 52 73 20 24 66 72 61 67 6d join [PRs $fragm
2440: 65 6e 74 73 5d 20 2e 5c 6e 5c 74 2e 5d 2e 0a 0a ents] .\n\t.]...
2450: 09 42 6f 72 64 65 72 20 5b 6c 69 6e 64 65 78 20 .Border [lindex
2460: 24 66 72 61 67 6d 65 6e 74 73 20 30 5d 20 66 69 $fragments 0] fi
2470: 72 73 74 73 20 66 69 72 73 74 65 0a 0a 09 69 6e rsts firste...in
2480: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
2490: 24 66 69 72 73 74 73 20 3d 3d 20 30 7d 20 7b 42 $firsts == 0} {B
24a0: 61 64 20 66 72 61 67 6d 65 6e 74 20 73 74 61 72 ad fragment star
24b0: 74 20 40 20 24 66 69 72 73 74 73 2c 20 67 61 70 t @ $firsts, gap
24c0: 2c 20 6f 72 20 62 65 66 6f 72 65 20 62 65 67 69 , or before begi
24d0: 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 72 61 6e nning of the ran
24e0: 67 65 7d 0a 0a 09 73 65 74 20 6c 61 73 74 65 20 ge}...set laste
24f0: 24 66 69 72 73 74 65 0a 09 66 6f 72 65 61 63 68 $firste..foreach
2500: 20 66 72 61 67 6d 65 6e 74 20 5b 6c 72 61 6e 67 fragment [lrang
2510: 65 20 24 66 72 61 67 6d 65 6e 74 73 20 31 20 65 e $fragments 1 e
2520: 6e 64 5d 20 7b 0a 09 20 20 20 20 42 6f 72 64 65 nd] {.. Borde
2530: 72 20 24 66 72 61 67 6d 65 6e 74 20 73 20 65 0a r $fragment s e.
2540: 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 . integrity a
2550: 73 73 65 72 74 20 7b 24 6c 61 73 74 65 20 3d 3d ssert {$laste ==
2560: 20 28 24 73 20 2d 20 31 29 7d 20 7b 42 61 64 20 ($s - 1)} {Bad
2570: 66 72 61 67 6d 65 6e 74 20 62 6f 72 64 65 72 20 fragment border
2580: 3c 24 6c 61 73 74 65 20 7c 20 24 73 3e 2c 20 67 <$laste | $s>, g
2590: 61 70 20 6f 72 20 6f 76 65 72 6c 61 70 7d 0a 0a ap or overlap}..
25a0: 09 20 20 20 20 73 65 74 20 6e 65 77 20 5b 24 74 . set new [$t
25b0: 79 70 65 20 25 41 55 54 4f 25 20 24 6d 79 70 72 ype %AUTO% $mypr
25c0: 6f 6a 65 63 74 20 24 6d 79 74 79 70 65 20 24 6d oject $mytype $m
25d0: 79 73 72 63 69 64 20 5b 6c 72 61 6e 67 65 20 24 ysrcid [lrange $
25e0: 6d 79 69 74 65 6d 73 20 24 73 20 24 65 5d 5d 0a myitems $s $e]].
25f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 . log
2600: 20 77 72 69 74 65 20 34 20 63 73 65 74 73 20 22 write 4 csets "
2610: 42 72 65 61 6b 69 6e 67 20 5b 24 73 65 6c 66 20 Breaking [$self
2620: 73 74 72 20 5d 20 40 20 24 6c 61 73 74 65 2c 20 str ] @ $laste,
2630: 6e 65 77 20 5b 24 6e 65 77 20 73 74 72 5d 2c 20 new [$new str],
2640: 63 75 74 74 69 6e 67 20 24 62 72 65 61 6b 73 28 cutting $breaks(
2650: 24 6c 61 73 74 65 29 22 0a 0a 09 20 20 20 20 73 $laste)"... s
2660: 65 74 20 6c 61 73 74 65 20 24 65 0a 09 7d 0a 0a et laste $e..}..
2670: 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 .integrity asser
2680: 74 20 7b 0a 09 20 20 20 20 24 6c 61 73 74 65 20 t {.. $laste
2690: 3d 3d 20 28 5b 6c 6c 65 6e 67 74 68 20 24 6d 79 == ([llength $my
26a0: 69 74 65 6d 73 5d 2d 31 29 0a 09 7d 20 7b 42 61 items]-1)..} {Ba
26b0: 64 20 66 72 61 67 6d 65 6e 74 20 65 6e 64 20 40 d fragment end @
26c0: 20 24 6c 61 73 74 65 2c 20 67 61 70 2c 20 6f 72 $laste, gap, or
26d0: 20 62 65 79 6f 6e 64 20 65 6e 64 20 6f 66 20 74 beyond end of t
26e0: 68 65 20 72 61 6e 67 65 7d 0a 0a 09 23 20 50 75 he range}...# Pu
26f0: 74 20 74 68 65 20 66 69 72 73 74 20 66 72 61 67 t the first frag
2700: 6d 65 6e 74 20 69 6e 74 6f 20 74 68 65 20 63 75 ment into the cu
2710: 72 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 2c rrent changeset,
2720: 20 61 6e 64 0a 09 23 20 75 70 64 61 74 65 20 74 and..# update t
2730: 68 65 20 69 6e 2d 6d 65 6d 6f 72 79 20 69 6e 64 he in-memory ind
2740: 65 78 2e 20 57 65 20 63 61 6e 20 73 69 6d 70 6c ex. We can simpl
2750: 79 20 28 72 65 29 61 64 64 20 74 68 65 20 69 74 y (re)add the it
2760: 65 6d 73 0a 09 23 20 62 65 63 61 75 73 65 20 77 ems..# because w
2770: 65 20 63 6c 65 61 72 65 64 20 74 68 65 20 70 72 e cleared the pr
2780: 65 76 69 6f 75 73 6c 79 20 65 78 69 73 74 69 6e eviously existin
2790: 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 73 g information, s
27a0: 65 65 0a 09 23 20 28 2a 29 20 61 62 6f 76 65 2e ee..# (*) above.
27b0: 20 50 65 72 73 69 73 74 65 6e 63 65 20 64 6f 65 Persistence doe
27c0: 73 20 6e 6f 74 20 6d 61 74 74 65 72 20 68 65 72 s not matter her
27d0: 65 2c 20 6e 6f 6e 65 20 6f 66 20 74 68 65 0a 09 e, none of the..
27e0: 23 20 63 68 61 6e 67 65 73 65 74 73 20 68 61 73 # changesets has
27f0: 20 62 65 65 6e 20 73 61 76 65 64 20 74 6f 20 74 been saved to t
2800: 68 65 20 70 65 72 73 69 73 74 65 6e 74 20 73 74 he persistent st
2810: 61 74 65 20 79 65 74 2e 0a 0a 09 73 65 74 20 6d ate yet....set m
2820: 79 69 74 65 6d 73 20 20 5b 6c 72 61 6e 67 65 20 yitems [lrange
2830: 24 6d 79 69 74 65 6d 73 20 20 30 20 24 66 69 72 $myitems 0 $fir
2840: 73 74 65 5d 0a 09 73 65 74 20 6d 79 74 69 74 65 ste]..set mytite
2850: 6d 73 20 5b 6c 72 61 6e 67 65 20 24 6d 79 74 69 ms [lrange $myti
2860: 74 65 6d 73 20 30 20 24 66 69 72 73 74 65 5d 0a tems 0 $firste].
2870: 09 66 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 .foreach iid $my
2880: 69 74 65 6d 73 20 7b 0a 09 20 20 20 20 73 65 74 items {.. set
2890: 20 6b 65 79 20 5b 6c 69 73 74 20 24 6d 79 74 79 key [list $myty
28a0: 70 65 20 24 69 69 64 5d 0a 09 20 20 20 20 73 65 pe $iid].. se
28b0: 74 20 6d 79 69 74 65 6d 6d 61 70 28 24 6b 65 79 t myitemmap($key
28c0: 29 20 24 73 65 6c 66 0a 09 20 20 20 20 6c 6f 67 ) $self.. log
28d0: 20 77 72 69 74 65 20 38 20 63 73 65 74 73 20 7b write 8 csets {
28e0: 4d 41 50 2b 20 69 74 65 6d 20 3c 24 6b 65 79 3e MAP+ item <$key>
28f0: 20 24 73 65 6c 66 20 3d 20 5b 24 73 65 6c 66 20 $self = [$self
2900: 73 74 72 5d 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 str]}..}...retur
2910: 6e 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d n 1. }.. m
2920: 65 74 68 6f 64 20 70 65 72 73 69 73 74 20 7b 7d ethod persist {}
2930: 20 7b 0a 09 73 65 74 20 74 69 64 20 24 6d 79 63 {..set tid $myc
2940: 73 74 79 70 65 28 24 6d 79 74 79 70 65 29 0a 09 stype($mytype)..
2950: 73 65 74 20 70 69 64 20 5b 24 6d 79 70 72 6f 6a set pid [$myproj
2960: 65 63 74 20 69 64 5d 0a 09 73 65 74 20 70 6f 73 ect id]..set pos
2970: 20 30 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 0...state trans
2980: 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 action {.. st
2990: 61 74 65 20 72 75 6e 20 7b 0a 09 09 49 4e 53 45 ate run {...INSE
29a0: 52 54 20 49 4e 54 4f 20 63 68 61 6e 67 65 73 65 RT INTO changese
29b0: 74 20 28 63 69 64 2c 20 20 20 70 69 64 2c 20 20 t (cid, pid,
29c0: 74 79 70 65 2c 20 73 72 63 29 0a 09 09 56 41 4c type, src)...VAL
29d0: 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 UES
29e0: 20 20 20 28 24 6d 79 69 64 2c 20 24 70 69 64 2c ($myid, $pid,
29f0: 20 24 74 69 64 2c 20 24 6d 79 73 72 63 69 64 29 $tid, $mysrcid)
2a00: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 66 ;.. }... f
2a10: 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 69 74 oreach iid $myit
2a20: 65 6d 73 20 7b 0a 09 09 73 74 61 74 65 20 72 75 ems {...state ru
2a30: 6e 20 7b 0a 09 09 20 20 20 20 49 4e 53 45 52 54 n {... INSERT
2a40: 20 49 4e 54 4f 20 63 73 69 74 65 6d 20 28 63 69 INTO csitem (ci
2a50: 64 2c 20 20 20 70 6f 73 2c 20 20 69 69 64 29 0a d, pos, iid).
2a60: 09 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 20 .. VALUES
2a70: 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c ($myid,
2a80: 20 24 70 6f 73 2c 20 24 69 69 64 29 3b 0a 09 09 $pos, $iid);...
2a90: 7d 0a 09 09 69 6e 63 72 20 70 6f 73 0a 09 20 20 }...incr pos..
2aa0: 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 }..}..return.
2ab0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
2ac0: 20 74 69 6d 65 72 61 6e 67 65 20 7b 7d 20 7b 20 timerange {} {
2ad0: 72 65 74 75 72 6e 20 5b 24 6d 79 74 79 70 65 6f return [$mytypeo
2ae0: 62 6a 20 74 69 6d 65 72 61 6e 67 65 20 24 6d 79 bj timerange $my
2af0: 69 74 65 6d 73 5d 20 7d 0a 0a 20 20 20 20 6d 65 items] }.. me
2b00: 74 68 6f 64 20 6c 69 6d 69 74 73 20 7b 7d 20 7b thod limits {} {
2b10: 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 ..struct::list a
2b20: 73 73 69 67 6e 20 5b 24 6d 79 74 79 70 65 6f 62 ssign [$mytypeob
2b30: 6a 20 6c 69 6d 69 74 73 20 24 6d 79 69 74 65 6d j limits $myitem
2b40: 73 5d 20 6d 61 78 70 20 6d 69 6e 73 0a 09 72 65 s] maxp mins..re
2b50: 74 75 72 6e 20 5b 6c 69 73 74 20 5b 54 61 67 49 turn [list [TagI
2b60: 74 65 6d 44 69 63 74 20 24 6d 61 78 70 20 24 6d temDict $maxp $m
2b70: 79 74 79 70 65 5d 20 5b 54 61 67 49 74 65 6d 44 ytype] [TagItemD
2b80: 69 63 74 20 24 6d 69 6e 73 20 24 6d 79 74 79 70 ict $mins $mytyp
2b90: 65 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d e]]. }.. m
2ba0: 65 74 68 6f 64 20 64 72 6f 70 20 7b 7d 20 7b 0a ethod drop {} {.
2bb0: 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 .log write 8 cse
2bc0: 74 73 20 7b 44 72 6f 70 70 69 6e 67 20 24 73 65 ts {Dropping $se
2bd0: 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 74 72 5d lf = [$self str]
2be0: 7d 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 61 }...state transa
2bf0: 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 61 ction {.. sta
2c00: 74 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 54 te run {...DELET
2c10: 45 20 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 E FROM changeset
2c20: 20 20 20 57 48 45 52 45 20 63 69 64 20 3d 20 24 WHERE cid = $
2c30: 6d 79 69 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 myid;...DELETE F
2c40: 52 4f 4d 20 63 73 69 74 65 6d 20 20 20 20 20 20 ROM csitem
2c50: 57 48 45 52 45 20 63 69 64 20 3d 20 24 6d 79 69 WHERE cid = $myi
2c60: 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 52 4f 4d d;...DELETE FROM
2c70: 20 63 73 73 75 63 63 65 73 73 6f 72 20 57 48 45 cssuccessor WHE
2c80: 52 45 20 63 69 64 20 3d 20 24 6d 79 69 64 3b 0a RE cid = $myid;.
2c90: 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 65 61 . }..}..forea
2ca0: 63 68 20 69 69 64 20 24 6d 79 69 74 65 6d 73 20 ch iid $myitems
2cb0: 7b 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b {.. set key [
2cc0: 6c 69 73 74 20 24 6d 79 74 79 70 65 20 24 69 69 list $mytype $ii
2cd0: 64 5d 0a 09 20 20 20 20 75 6e 73 65 74 20 6d 79 d].. unset my
2ce0: 69 74 65 6d 6d 61 70 28 24 6b 65 79 29 0a 09 20 itemmap($key)..
2cf0: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 log write 8 c
2d00: 73 65 74 73 20 7b 4d 41 50 2d 20 69 74 65 6d 20 sets {MAP- item
2d10: 3c 24 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b <$key> $self = [
2d20: 24 73 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 09 $self str]}..}..
2d30: 73 65 74 20 70 6f 73 20 20 20 20 20 20 20 20 20 set pos
2d40: 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 [lsearch -exact
2d50: 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 20 24 $mychangesets $
2d60: 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 63 68 61 self]..set mycha
2d70: 6e 67 65 73 65 74 73 20 5b 6c 72 65 70 6c 61 63 ngesets [lreplac
2d80: 65 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 20 e $mychangesets
2d90: 24 70 6f 73 20 24 70 6f 73 5d 0a 09 73 65 74 20 $pos $pos]..set
2da0: 70 6f 73 20 20 20 20 20 20 20 20 20 20 20 20 20 pos
2db0: 20 20 20 20 20 20 20 5b 6c 73 65 61 72 63 68 20 [lsearch
2dc0: 2d 65 78 61 63 74 20 24 6d 79 74 63 68 61 6e 67 -exact $mytchang
2dd0: 65 73 65 74 73 28 24 6d 79 74 79 70 65 29 20 24 esets($mytype) $
2de0: 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 74 63 68 self]..set mytch
2df0: 61 6e 67 65 73 65 74 73 28 24 6d 79 74 79 70 65 angesets($mytype
2e00: 29 20 5b 6c 72 65 70 6c 61 63 65 20 24 6d 79 74 ) [lreplace $myt
2e10: 63 68 61 6e 67 65 73 65 74 73 28 24 6d 79 74 79 changesets($myty
2e20: 70 65 29 20 24 70 6f 73 20 24 70 6f 73 5d 0a 0a pe) $pos $pos]..
2e30: 09 23 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 .# Return the li
2e40: 73 74 20 6f 66 20 70 72 65 64 65 63 65 73 73 6f st of predecesso
2e50: 72 73 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 rs so that they
2e60: 63 61 6e 20 62 65 20 61 64 6a 75 73 74 65 64 2e can be adjusted.
2e70: 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 ..return [struct
2e80: 3a 3a 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 74 ::list map [stat
2e90: 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c e run {.. SEL
2ea0: 45 43 54 20 63 69 64 0a 09 20 20 20 20 46 52 4f ECT cid.. FRO
2eb0: 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 0a M cssuccessor.
2ec0: 09 20 20 20 20 57 48 45 52 45 20 20 6e 69 64 20 . WHERE nid
2ed0: 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 5b 6d 79 74 = $myid..}] [myt
2ee0: 79 70 65 6d 65 74 68 6f 64 20 6f 66 5d 5d 0a 20 ypemethod of]].
2ef0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
2f00: 20 72 65 70 6f 72 74 6c 6f 6f 70 20 7b 7b 6b 69 reportloop {{ki
2f10: 6c 6c 20 31 7d 7d 20 7b 0a 09 23 20 57 65 20 70 ll 1}} {..# We p
2f20: 72 69 6e 74 20 74 68 65 20 69 74 65 6d 73 20 77 rint the items w
2f30: 68 69 63 68 20 61 72 65 20 70 72 6f 64 75 63 69 hich are produci
2f40: 6e 67 20 74 68 65 20 6c 6f 6f 70 2c 20 61 6e 64 ng the loop, and
2f50: 20 68 6f 77 2e 0a 0a 09 73 65 74 20 68 64 72 20 how....set hdr
2f60: 22 53 65 6c 66 2d 72 65 66 65 72 65 6e 74 69 61 "Self-referentia
2f70: 6c 20 63 68 61 6e 67 65 73 65 74 20 5b 24 73 65 l changeset [$se
2f80: 6c 66 20 73 74 72 5d 20 5f 5f 5f 5f 5f 5f 5f 5f lf str] ________
2f90: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 0a 09 73 65 74 __________"..set
2fa0: 20 66 74 72 20 5b 72 65 67 73 75 62 20 2d 61 6c ftr [regsub -al
2fb0: 6c 20 7b 5b 5e 20 09 5d 7d 20 24 68 64 72 20 7b l {[^ .]} $hdr {
2fc0: 5f 7d 5d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 _}]...log write
2fd0: 30 20 63 73 65 74 73 20 24 68 64 72 0a 09 66 6f 0 csets $hdr..fo
2fe0: 72 65 61 63 68 20 7b 69 74 65 6d 20 6e 65 78 74 reach {item next
2ff0: 69 74 65 6d 7d 20 5b 24 6d 79 74 79 70 65 6f 62 item} [$mytypeob
3000: 6a 20 6c 6f 6f 70 73 20 24 6d 79 69 74 65 6d 73 j loops $myitems
3010: 5d 20 7b 0a 09 20 20 20 20 23 20 43 72 65 61 74 ] {.. # Creat
3020: 65 20 74 61 67 67 65 64 20 69 74 65 6d 73 20 66 e tagged items f
3030: 72 6f 6d 20 74 68 65 20 69 64 20 61 6e 64 20 6f rom the id and o
3040: 75 72 20 74 79 70 65 2e 0a 09 20 20 20 20 73 65 ur type... se
3050: 74 20 69 74 65 6d 20 20 20 20 20 5b 6c 69 73 74 t item [list
3060: 20 24 6d 79 74 79 70 65 20 20 24 69 74 65 6d 5d $mytype $item]
3070: 0a 09 20 20 20 20 73 65 74 20 6e 65 78 74 69 74 .. set nextit
3080: 65 6d 20 5b 6c 69 73 74 20 24 6d 79 74 79 70 65 em [list $mytype
3090: 20 24 6e 65 78 74 69 74 65 6d 5d 0a 09 20 20 20 $nextitem]..
30a0: 20 23 20 50 72 69 6e 74 61 62 6c 65 20 6c 61 62 # Printable lab
30b0: 65 6c 73 2e 0a 09 20 20 20 20 73 65 74 20 69 20 els... set i
30c0: 20 22 3c 5b 24 74 79 70 65 20 69 74 65 6d 73 74 "<[$type itemst
30d0: 72 20 24 69 74 65 6d 5d 3e 22 0a 09 20 20 20 20 r $item]>"..
30e0: 73 65 74 20 6e 20 20 22 3c 5b 24 74 79 70 65 20 set n "<[$type
30f0: 69 74 65 6d 73 74 72 20 24 6e 65 78 74 69 74 65 itemstr $nextite
3100: 6d 5d 3e 22 0a 09 20 20 20 20 73 65 74 20 6e 63 m]>".. set nc
3110: 73 20 24 6d 79 69 74 65 6d 6d 61 70 28 24 6e 65 s $myitemmap($ne
3120: 78 74 69 74 65 6d 29 0a 09 20 20 20 20 23 20 50 xtitem).. # P
3130: 72 69 6e 74 0a 09 20 20 20 20 6c 6f 67 20 77 72 rint.. log wr
3140: 69 74 65 20 30 20 63 73 65 74 73 20 7b 2a 20 24 ite 0 csets {* $
3150: 69 20 2d 2d 3e 20 24 6e 20 2d 2d 3e 20 63 73 20 i --> $n --> cs
3160: 5b 24 6e 63 73 20 73 74 72 5d 7d 0a 09 7d 0a 09 [$ncs str]}..}..
3170: 6c 6f 67 20 77 72 69 74 65 20 30 20 63 73 65 74 log write 0 cset
3180: 73 20 24 66 74 72 0a 0a 09 69 66 20 7b 21 24 6b s $ftr...if {!$k
3190: 69 6c 6c 7d 20 72 65 74 75 72 6e 0a 09 74 72 6f ill} return..tro
31a0: 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 22 5b uble internal "[
31b0: 24 73 65 6c 66 20 73 74 72 5d 20 64 65 70 65 6e $self str] depen
31c0: 64 73 20 6f 6e 20 69 74 73 65 6c 66 22 0a 09 72 ds on itself"..r
31d0: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
31e0: 20 6d 65 74 68 6f 64 20 70 75 73 68 74 6f 20 7b method pushto {
31f0: 73 76 20 72 65 70 6f 73 69 74 6f 72 79 20 64 61 sv repository da
3200: 74 65 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 te} {..upvar 1 $
3210: 73 76 20 73 74 61 74 65 0a 0a 09 23 20 47 65 6e sv state...# Gen
3220: 65 72 61 74 65 20 61 6e 64 20 69 6d 70 6f 72 74 erate and import
3230: 20 74 68 65 20 6d 61 6e 69 66 65 73 74 20 66 6f the manifest fo
3240: 72 20 74 68 69 73 20 63 68 61 6e 67 65 73 65 74 r this changeset
3250: 2e 0a 09 23 0a 09 23 20 44 61 74 61 20 6e 65 65 ...#..# Data nee
3260: 64 65 64 3a 0a 09 23 20 2d 20 43 6f 6d 6d 69 74 ded:..# - Commit
3270: 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 20 message
3280: 20 20 20 20 20 20 20 28 2d 2d 20 6d 79 73 72 63 (-- mysrc
3290: 69 64 20 2d 3e 20 72 65 70 6f 73 69 74 6f 72 79 id -> repository
32a0: 20 6d 65 74 61 29 0a 09 23 20 2d 20 55 73 65 72 meta)..# - User
32b0: 20 64 6f 69 6e 67 20 74 68 65 20 63 6f 6d 6d 69 doing the commi
32c0: 74 20 20 20 20 20 20 20 20 28 73 2e 61 2e 29 0a t (s.a.).
32d0: 09 23 0a 09 23 20 2d 20 54 69 6d 65 73 74 61 6d .#..# - Timestam
32e0: 70 20 6f 66 20 77 68 65 6e 20 63 6f 6d 6d 69 74 p of when commit
32f0: 74 65 64 20 20 28 63 6f 6d 6d 61 6e 64 20 61 72 ted (command ar
3300: 67 75 6d 65 6e 74 29 0a 09 23 0a 09 23 20 2d 20 gument)..#..# -
3310: 54 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 67 The parent chang
3320: 65 73 65 74 2c 20 69 66 20 61 6e 79 2e 20 49 66 eset, if any. If
3330: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 61 72 there is no par
3340: 65 6e 74 20 75 73 65 0a 09 23 20 20 20 74 68 65 ent use..# the
3350: 20 65 6d 70 74 79 20 62 61 73 65 20 72 65 76 69 empty base revi
3360: 73 69 6f 6e 20 61 73 20 70 61 72 65 6e 74 2e 0a sion as parent..
3370: 09 23 0a 09 23 20 2d 20 4c 69 73 74 20 6f 66 20 .#..# - List of
3380: 74 68 65 20 66 69 6c 65 20 72 65 76 69 73 69 6f the file revisio
3390: 6e 73 20 69 6e 20 74 68 65 20 63 68 61 6e 67 65 ns in the change
33a0: 73 65 74 2e 0a 0a 09 73 74 72 75 63 74 3a 3a 6c set....struct::l
33b0: 69 73 74 20 61 73 73 69 67 6e 20 5b 24 6d 79 70 ist assign [$myp
33c0: 72 6f 6a 65 63 74 20 67 65 74 6d 65 74 61 20 24 roject getmeta $
33d0: 6d 79 73 72 63 69 64 5d 20 5f 5f 20 62 72 61 6e mysrcid] __ bran
33e0: 63 68 20 75 73 65 72 20 6d 65 73 73 61 67 65 0a ch user message.
33f0: 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 .struct::list as
3400: 73 69 67 6e 20 24 62 72 61 6e 63 68 20 5f 5f 20 sign $branch __
3410: 6c 6f 64 6e 61 6d 65 0a 0a 09 23 20 50 65 72 66 lodname...# Perf
3420: 6f 72 6d 20 74 68 65 20 69 6d 70 6f 72 74 2e 20 orm the import.
3430: 41 73 20 70 61 72 74 20 6f 66 20 74 68 61 74 20 As part of that
3440: 63 6f 6e 76 65 72 74 20 74 68 65 20 6c 69 73 74 convert the list
3450: 20 6f 66 0a 09 23 20 69 74 65 6d 73 20 69 6e 20 of..# items in
3460: 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 69 6e the changeset in
3470: 74 6f 20 75 75 69 64 73 20 61 6e 64 20 70 72 69 to uuids and pri
3480: 6e 74 61 62 6c 65 20 64 61 74 61 2e 0a 0a 09 73 ntable data....s
3490: 65 74 20 75 75 69 64 20 5b 55 70 64 61 74 65 73 et uuid [Updates
34a0: 74 61 74 65 20 73 74 61 74 65 20 24 6c 6f 64 6e tate state $lodn
34b0: 61 6d 65 20 5c 0a 09 09 20 20 20 20 20 20 5b 24 ame \... [$
34c0: 72 65 70 6f 73 69 74 6f 72 79 20 69 6d 70 6f 72 repository impor
34d0: 74 72 65 76 69 73 69 6f 6e 20 5b 24 73 65 6c 66 trevision [$self
34e0: 20 73 74 72 5d 20 5c 0a 09 09 09 20 20 20 24 75 str] \.... $u
34f0: 73 65 72 20 24 6d 65 73 73 61 67 65 20 24 64 61 ser $message $da
3500: 74 65 20 5c 0a 09 09 09 20 20 20 5b 47 65 74 70 te \.... [Getp
3510: 61 72 65 6e 74 20 73 74 61 74 65 20 24 6c 6f 64 arent state $lod
3520: 6e 61 6d 65 20 24 6d 79 70 72 6f 6a 65 63 74 5d name $myproject]
3530: 20 5c 0a 09 09 09 20 20 20 5b 47 65 74 72 65 76 \.... [Getrev
3540: 69 73 69 6f 6e 69 6e 66 6f 20 24 6d 79 69 74 65 isioninfo $myite
3550: 6d 73 5d 5d 5d 0a 0a 09 23 20 52 65 6d 65 6d 62 ms]]]...# Rememb
3560: 65 72 20 74 68 65 20 77 68 6f 6c 65 20 63 68 61 er the whole cha
3570: 6e 67 65 73 65 74 20 2f 20 75 75 69 64 20 6d 61 ngeset / uuid ma
3580: 70 70 69 6e 67 2c 20 66 6f 72 20 74 68 65 20 74 pping, for the t
3590: 61 67 73 2e 0a 0a 09 73 74 61 74 65 20 72 75 6e ags....state run
35a0: 20 7b 0a 09 20 20 20 20 49 4e 53 45 52 54 20 49 {.. INSERT I
35b0: 4e 54 4f 20 63 73 75 75 69 64 20 28 63 69 64 2c NTO csuuid (cid,
35c0: 20 20 20 75 75 69 64 29 0a 09 20 20 20 20 56 41 uuid).. VA
35d0: 4c 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 LUES
35e0: 20 28 24 6d 79 69 64 2c 20 24 75 75 69 64 29 0a ($myid, $uuid).
35f0: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
3600: 0a 0a 20 20 20 20 70 72 6f 63 20 47 65 74 72 65 .. proc Getre
3610: 76 69 73 69 6f 6e 69 6e 66 6f 20 7b 72 65 76 69 visioninfo {revi
3620: 73 69 6f 6e 73 7d 20 7b 0a 09 73 65 74 20 74 68 sions} {..set th
3630: 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 eset ('[join $re
3640: 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 visions {','}]')
3650: 0a 09 73 65 74 20 72 65 76 69 73 69 6f 6e 73 20 ..set revisions
3660: 7b 7d 0a 09 66 6f 72 65 61 63 68 20 7b 66 72 69 {}..foreach {fri
3670: 64 20 70 61 74 68 20 66 6e 61 6d 65 20 72 65 76 d path fname rev
3680: 6e 72 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 5b nr} [state run [
3690: 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 subst -nocommand
36a0: 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 s -nobackslashes
36b0: 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 55 {.. SELECT U
36c0: 2e 75 75 69 64 2c 20 46 2e 76 69 73 69 62 6c 65 .uuid, F.visible
36d0: 2c 20 46 2e 6e 61 6d 65 2c 20 52 2e 72 65 76 0a , F.name, R.rev.
36e0: 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 . FROM revi
36f0: 73 69 6f 6e 20 52 2c 20 72 65 76 75 75 69 64 20 sion R, revuuid
3700: 55 2c 20 66 69 6c 65 20 46 0a 09 20 20 20 20 57 U, file F.. W
3710: 48 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 HERE R.rid IN $
3720: 74 68 65 73 65 74 20 20 2d 2d 20 41 6c 6c 20 73 theset -- All s
3730: 70 65 63 69 66 69 65 64 20 72 65 76 69 73 69 6f pecified revisio
3740: 6e 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 55 ns.. AND U
3750: 2e 72 69 64 20 3d 20 52 2e 72 69 64 20 20 20 20 .rid = R.rid
3760: 20 2d 2d 20 67 65 74 20 66 6f 73 73 69 6c 20 75 -- get fossil u
3770: 75 69 64 20 6f 66 20 72 65 76 69 73 69 6f 6e 0a uid of revision.
3780: 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 69 . AND F.fi
3790: 64 20 3d 20 52 2e 66 69 64 20 20 20 20 20 2d 2d d = R.fid --
37a0: 20 67 65 74 20 66 69 6c 65 20 6f 66 20 72 65 76 get file of rev
37b0: 69 73 69 6f 6e 0a 09 7d 5d 5d 20 7b 0a 09 20 20 ision..}]] {..
37c0: 20 20 6c 61 70 70 65 6e 64 20 72 65 76 69 73 69 lappend revisi
37d0: 6f 6e 73 20 24 66 72 69 64 20 24 70 61 74 68 20 ons $frid $path
37e0: 24 66 6e 61 6d 65 2f 24 72 65 76 6e 72 0a 09 7d $fname/$revnr..}
37f0: 0a 09 72 65 74 75 72 6e 20 24 72 65 76 69 73 69 ..return $revisi
3800: 6f 6e 73 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 ons. }.. p
3810: 72 6f 63 20 47 65 74 70 61 72 65 6e 74 20 7b 73 roc Getparent {s
3820: 76 20 6c 6f 64 6e 61 6d 65 20 70 72 6f 6a 65 63 v lodname projec
3830: 74 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 73 t} {..upvar 1 $s
3840: 76 20 73 74 61 74 65 0a 0a 09 23 20 54 68 65 20 v state...# The
3850: 70 61 72 65 6e 74 20 69 73 20 64 65 74 65 72 6d parent is determ
3860: 69 6e 65 64 20 76 69 61 20 74 68 65 20 6c 69 6e ined via the lin
3870: 65 2d 6f 66 2d 64 65 76 65 6c 6f 70 6d 65 6e 74 e-of-development
3880: 20 28 4c 4f 44 29 0a 09 23 20 69 6e 66 6f 72 6d (LOD)..# inform
3890: 61 74 69 6f 6e 20 6f 66 20 65 61 63 68 20 63 68 ation of each ch
38a0: 61 6e 67 65 73 65 74 2c 20 61 6e 64 20 74 68 65 angeset, and the
38b0: 20 68 69 73 74 6f 72 79 20 6f 66 0a 09 23 20 69 history of..# i
38c0: 6d 70 6f 72 74 73 2e 20 54 68 65 20 6c 61 73 74 mports. The last
38d0: 20 63 68 61 6e 67 65 73 65 74 20 63 6f 6d 6d 69 changeset commi
38e0: 74 74 65 64 20 74 6f 20 74 68 65 20 73 61 6d 65 tted to the same
38f0: 20 4c 4f 44 20 69 73 0a 09 23 20 74 61 6b 65 6e LOD is..# taken
3900: 20 61 73 20 74 68 65 20 70 61 72 65 6e 74 20 6f as the parent o
3910: 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 68 f the current ch
3920: 61 6e 67 65 73 65 74 2e 20 49 66 20 74 68 65 0a angeset. If the.
3930: 09 23 20 63 68 61 6e 67 65 73 65 74 20 69 73 20 .# changeset is
3940: 74 68 65 20 66 69 72 73 74 20 6f 6e 20 74 68 61 the first on tha
3950: 74 20 4c 4f 44 20 69 74 20 63 61 6e 20 62 65 20 t LOD it can be
3960: 65 69 74 68 65 72 20 73 70 61 77 6e 65 64 0a 09 either spawned..
3970: 23 20 66 72 6f 6d 20 61 6e 6f 74 68 65 72 20 4c # from another L
3980: 4f 44 2c 20 6f 72 20 64 65 74 61 63 68 65 64 2e OD, or detached.
3990: 20 46 6f 72 20 74 68 65 20 66 69 72 73 74 20 63 For the first c
39a0: 61 73 65 20 77 65 0a 09 23 20 72 65 74 72 69 65 ase we..# retrie
39b0: 76 65 20 74 68 65 20 70 61 72 65 6e 74 20 4c 4f ve the parent LO
39c0: 44 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 D of the current
39d0: 20 4c 4f 44 20 73 79 6d 62 6f 6c 20 28 2a 29 20 LOD symbol (*)
39e0: 61 6e 64 0a 09 23 20 72 65 63 68 65 63 6b 20 66 and..# recheck f
39f0: 6f 72 20 61 20 63 6f 6d 6d 69 74 74 65 64 20 63 or a committed c
3a00: 68 61 6e 67 65 73 65 74 2e 20 54 68 65 20 73 65 hangeset. The se
3a10: 63 6f 6e 64 20 63 61 73 65 20 69 73 20 74 61 6b cond case is tak
3a20: 65 6e 0a 09 23 20 69 66 20 74 68 61 74 20 6c 6f en..# if that lo
3a30: 6f 6b 75 70 20 66 61 69 6c 73 20 61 73 20 77 65 okup fails as we
3a40: 6c 6c 2e 0a 09 23 0a 09 23 20 28 2a 29 20 41 6e ll...#..# (*) An
3a50: 64 20 74 68 69 73 20 70 61 72 65 6e 74 20 77 61 d this parent wa
3a60: 73 20 66 6f 75 6e 64 20 69 6e 20 70 72 65 76 69 s found in previ
3a70: 6f 75 73 20 70 61 73 73 65 73 20 77 68 65 6e 0a ous passes when.
3a80: 09 23 20 20 20 20 20 64 65 74 65 72 6d 69 6e 69 .# determini
3a90: 6e 67 20 74 68 65 20 70 72 65 66 65 72 65 64 20 ng the prefered
3aa0: 70 61 72 65 6e 74 73 20 6f 66 20 61 6c 6c 20 74 parents of all t
3ab0: 68 65 20 73 79 6d 62 6f 6c 73 2e 0a 0a 09 23 20 he symbols....#
3ac0: 4e 4f 54 45 3a 20 54 68 65 20 61 62 6f 76 65 20 NOTE: The above
3ad0: 69 73 20 69 6e 63 6f 6d 70 6c 65 74 65 20 61 6e is incomplete an
3ae0: 64 20 62 75 67 67 79 2e 20 56 65 6e 64 6f 72 2d d buggy. Vendor-
3af0: 62 72 61 6e 63 68 65 73 20 61 6e 64 0a 09 23 20 branches and..#
3b00: 20 20 20 20 20 20 74 68 65 20 76 61 72 69 6f 75 the variou
3b10: 73 20 70 6f 73 73 69 62 69 6c 69 74 69 65 73 20 s possibilities
3b20: 6f 66 20 69 74 73 20 69 6e 74 65 72 61 63 74 69 of its interacti
3b30: 6f 6e 20 77 69 74 68 20 74 68 65 0a 09 23 20 20 on with the..#
3b40: 20 20 20 20 20 74 72 75 6e 6b 20 61 72 65 20 6e trunk are n
3b50: 6f 74 20 66 75 6c 6c 79 20 68 61 6e 64 6c 65 64 ot fully handled
3b60: 2e 0a 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 ....if {[info ex
3b70: 69 73 74 73 20 73 74 61 74 65 28 24 6c 6f 64 6e ists state($lodn
3b80: 61 6d 65 29 5d 7d 20 7b 0a 09 20 20 20 20 23 20 ame)]} {.. #
3b90: 4c 4f 44 20 65 78 69 73 74 73 20 61 6e 64 20 68 LOD exists and h
3ba0: 61 73 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 as already been
3bb0: 63 6f 6d 6d 69 74 74 65 64 20 74 6f 2e 0a 09 20 committed to...
3bc0: 20 20 20 72 65 74 75 72 6e 20 24 73 74 61 74 65 return $state
3bd0: 28 24 6c 6f 64 6e 61 6d 65 29 0a 09 7d 0a 0a 09 ($lodname)..}...
3be0: 23 20 4c 4f 44 20 68 61 73 20 6e 6f 74 20 62 65 # LOD has not be
3bf0: 65 6e 20 63 6f 6d 6d 69 74 74 65 64 20 74 6f 20 en committed to
3c00: 62 65 66 6f 72 65 2c 20 74 68 69 73 20 69 73 20 before, this is
3c10: 74 68 65 20 66 69 72 73 74 0a 09 23 20 74 69 6d the first..# tim
3c20: 65 2e 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 e. Determine the
3c30: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 61 72 name of the par
3c40: 65 6e 74 20 4c 4f 44 2e 0a 0a 09 73 65 74 20 6c ent LOD....set l
3c50: 6f 64 6e 61 6d 65 20 5b 5b 5b 24 70 72 6f 6a 65 odname [[[$proje
3c60: 63 74 20 67 65 74 73 79 6d 62 6f 6c 20 24 6c 6f ct getsymbol $lo
3c70: 64 6e 61 6d 65 5d 20 70 61 72 65 6e 74 5d 20 6e dname] parent] n
3c80: 61 6d 65 5d 0a 0a 09 69 66 20 7b 5b 69 6e 66 6f ame]...if {[info
3c90: 20 65 78 69 73 74 73 20 73 74 61 74 65 28 24 6c exists state($l
3ca0: 6f 64 6e 61 6d 65 29 5d 7d 20 7b 0a 09 20 20 20 odname)]} {..
3cb0: 20 23 20 54 68 65 20 70 61 72 65 6e 74 61 6c 20 # The parental
3cc0: 4c 4f 44 20 68 61 73 20 62 65 65 6e 20 63 6f 6d LOD has been com
3cd0: 6d 69 74 74 65 64 20 74 6f 2c 20 74 61 6b 65 20 mitted to, take
3ce0: 74 68 61 74 20 6c 61 73 74 0a 09 20 20 20 20 23 that last.. #
3cf0: 20 63 68 61 6e 67 65 73 65 74 20 61 73 20 74 68 changeset as th
3d00: 65 20 73 70 61 77 6e 70 6f 69 6e 74 20 66 6f 72 e spawnpoint for
3d10: 20 74 68 65 20 6e 65 77 20 4c 4f 44 2e 0a 09 20 the new LOD...
3d20: 20 20 20 72 65 74 75 72 6e 20 24 73 74 61 74 65 return $state
3d30: 28 24 6c 6f 64 6e 61 6d 65 29 0a 09 7d 0a 0a 09 ($lodname)..}...
3d40: 23 20 54 68 65 20 70 61 72 65 6e 74 61 6c 20 4c # The parental L
3d50: 4f 44 20 69 73 20 6e 6f 74 20 64 65 66 69 6e 65 OD is not define
3d60: 64 20 28 79 65 74 29 2e 20 54 68 69 73 20 4c 4f d (yet). This LO
3d70: 44 20 69 73 0a 09 23 20 64 65 74 61 63 68 65 64 D is..# detached
3d80: 2e 20 57 65 20 63 68 6f 6f 73 65 20 61 73 20 6f . We choose as o
3d90: 75 72 20 70 61 72 65 6e 74 20 74 68 65 20 61 75 ur parent the au
3da0: 74 6f 6d 61 74 69 63 20 65 6d 70 74 79 20 72 6f tomatic empty ro
3db0: 6f 74 0a 09 23 20 62 61 73 65 6c 69 6e 65 20 6f ot..# baseline o
3dc0: 66 20 74 68 65 20 74 61 72 67 65 74 20 72 65 70 f the target rep
3dd0: 6f 73 69 74 6f 72 79 2e 0a 09 72 65 74 75 72 6e ository...return
3de0: 20 7b 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 {}. }.. p
3df0: 72 6f 63 20 55 70 64 61 74 65 73 74 61 74 65 20 roc Updatestate
3e00: 7b 73 76 20 6c 6f 64 6e 61 6d 65 20 75 75 69 64 {sv lodname uuid
3e10: 7d 20 7b 0a 09 23 20 52 65 6d 65 6d 62 65 72 20 } {..# Remember
3e20: 74 68 65 20 69 6d 70 6f 72 74 65 64 20 63 68 61 the imported cha
3e30: 6e 67 65 73 65 74 20 69 6e 20 74 68 65 20 73 74 ngeset in the st
3e40: 61 74 65 2c 20 75 6e 64 65 72 20 6f 75 72 20 4c ate, under our L
3e50: 4f 44 2e 0a 0a 09 75 70 76 61 72 20 31 20 24 73 OD....upvar 1 $s
3e60: 76 20 73 74 61 74 65 0a 09 73 65 74 20 73 74 61 v state..set sta
3e70: 74 65 28 24 6c 6f 64 6e 61 6d 65 29 20 24 75 75 te($lodname) $uu
3e80: 69 64 0a 09 72 65 74 75 72 6e 20 24 75 75 69 64 id..return $uuid
3e90: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 . }.. type
3ea0: 6d 65 74 68 6f 64 20 73 70 6c 69 74 20 7b 63 73 method split {cs
3eb0: 65 74 20 61 72 67 73 7d 20 7b 0a 09 23 20 41 73 et args} {..# As
3ec0: 20 70 61 72 74 20 6f 66 20 74 68 65 20 63 72 65 part of the cre
3ed0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6e 65 77 ation of the new
3ee0: 20 63 68 61 6e 67 65 73 65 74 73 20 73 70 65 63 changesets spec
3ef0: 69 66 69 65 64 20 69 6e 0a 09 23 20 41 52 47 53 ified in..# ARGS
3f00: 20 61 73 20 73 65 74 73 20 6f 66 20 69 74 65 6d as sets of item
3f10: 73 2c 20 61 6c 6c 20 73 75 62 73 65 74 73 20 6f s, all subsets o
3f20: 66 20 43 53 45 54 27 73 20 69 74 65 6d 20 73 65 f CSET's item se
3f30: 74 2c 20 43 53 45 54 0a 09 23 20 77 69 6c 6c 20 t, CSET..# will
3f40: 62 65 20 64 72 6f 70 70 65 64 20 66 72 6f 6d 20 be dropped from
3f50: 61 6c 6c 20 64 61 74 61 62 61 73 65 73 2c 20 69 all databases, i
3f60: 6e 20 61 6e 64 20 6f 75 74 20 6f 66 20 6d 65 6d n and out of mem
3f70: 6f 72 79 2c 0a 09 23 20 61 6e 64 20 74 68 65 6e ory,..# and then
3f80: 20 64 65 73 74 72 6f 79 65 64 2e 0a 09 23 0a 09 destroyed...#..
3f90: 23 20 4e 6f 74 65 3a 20 54 68 65 20 69 74 65 6d # Note: The item
3fa0: 20 6c 69 73 74 73 20 66 6f 75 6e 64 20 69 6e 20 lists found in
3fb0: 61 72 67 73 20 61 72 65 20 74 61 67 67 65 64 20 args are tagged
3fc0: 69 74 65 6d 73 2e 20 54 68 65 79 0a 09 23 20 68 items. They..# h
3fd0: 61 76 65 20 74 6f 20 68 61 76 65 20 74 68 65 20 ave to have the
3fe0: 73 61 6d 65 20 74 79 70 65 20 61 73 20 74 68 65 same type as the
3ff0: 20 63 68 61 6e 67 65 73 65 74 2c 20 62 65 69 6e changeset, bein
4000: 67 20 73 75 62 73 65 74 73 0a 09 23 20 6f 66 20 g subsets..# of
4010: 69 74 73 20 69 74 65 6d 73 2e 20 54 68 69 73 20 its items. This
4020: 69 73 20 63 68 65 63 6b 65 64 20 69 6e 20 55 6e is checked in Un
4030: 74 61 67 31 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 tag1....log writ
4040: 65 20 38 20 63 73 65 74 73 20 7b 4f 4c 44 3a 20 e 8 csets {OLD:
4050: 5b 6c 73 6f 72 74 20 5b 24 63 73 65 74 20 69 74 [lsort [$cset it
4060: 65 6d 73 5d 5d 7d 0a 09 56 61 6c 69 64 61 74 65 ems]]}..Validate
4070: 46 72 61 67 6d 65 6e 74 73 20 24 63 73 65 74 20 Fragments $cset
4080: 24 61 72 67 73 0a 0a 09 23 20 41 6c 6c 20 63 68 $args...# All ch
4090: 65 63 6b 73 20 70 61 73 73 2c 20 61 63 74 75 61 ecks pass, actua
40a0: 6c 6c 79 20 70 65 72 66 6f 72 6d 20 74 68 65 20 lly perform the
40b0: 73 70 6c 69 74 2e 0a 0a 09 73 74 72 75 63 74 3a split....struct:
40c0: 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 24 63 :list assign [$c
40d0: 73 65 74 20 64 61 74 61 5d 20 70 72 6f 6a 65 63 set data] projec
40e0: 74 20 63 73 74 79 70 65 20 63 73 73 72 63 0a 0a t cstype cssrc..
40f0: 09 73 65 74 20 70 72 65 64 65 63 65 73 73 6f 72 .set predecessor
4100: 73 20 5b 24 63 73 65 74 20 64 72 6f 70 5d 0a 09 s [$cset drop]..
4110: 24 63 73 65 74 20 64 65 73 74 72 6f 79 0a 0a 09 $cset destroy...
4120: 73 65 74 20 6e 65 77 63 73 65 74 73 20 7b 7d 0a set newcsets {}.
4130: 09 66 6f 72 65 61 63 68 20 66 72 61 67 6d 65 6e .foreach fragmen
4140: 74 69 74 65 6d 73 20 24 61 72 67 73 20 7b 0a 09 titems $args {..
4150: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 log write 8
4160: 63 73 65 74 73 20 7b 4d 41 4b 45 3a 20 5b 6c 73 csets {MAKE: [ls
4170: 6f 72 74 20 24 66 72 61 67 6d 65 6e 74 69 74 65 ort $fragmentite
4180: 6d 73 5d 7d 0a 0a 09 20 20 20 20 73 65 74 20 66 ms]}... set f
4190: 72 61 67 6d 65 6e 74 20 5b 24 74 79 70 65 20 25 ragment [$type %
41a0: 41 55 54 4f 25 20 24 70 72 6f 6a 65 63 74 20 24 AUTO% $project $
41b0: 63 73 74 79 70 65 20 24 63 73 73 72 63 20 5c 0a cstype $cssrc \.
41c0: 09 09 09 20 20 20 20 20 20 5b 55 6e 74 61 67 20 ... [Untag
41d0: 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 24 $fragmentitems $
41e0: 63 73 74 79 70 65 5d 5d 0a 09 20 20 20 20 6c 61 cstype]].. la
41f0: 70 70 65 6e 64 20 6e 65 77 63 73 65 74 73 20 24 ppend newcsets $
4200: 66 72 61 67 6d 65 6e 74 0a 0a 09 20 20 20 20 24 fragment... $
4210: 66 72 61 67 6d 65 6e 74 20 70 65 72 73 69 73 74 fragment persist
4220: 0a 09 20 20 20 20 24 66 72 61 67 6d 65 6e 74 20 .. $fragment
4230: 64 65 74 65 72 6d 69 6e 65 73 75 63 63 65 73 73 determinesuccess
4240: 6f 72 73 0a 09 7d 0a 0a 09 23 20 54 68 65 20 70 ors..}...# The p
4250: 72 65 64 65 63 65 73 73 6f 72 73 20 68 61 76 65 redecessors have
4260: 20 74 6f 20 72 65 63 6f 6d 70 75 74 65 20 74 68 to recompute th
4270: 65 69 72 20 73 75 63 63 65 73 73 6f 72 73 2c 20 eir successors,
4280: 69 2e 65 2e 0a 09 23 20 72 65 6d 6f 76 65 20 74 i.e...# remove t
4290: 68 65 20 64 72 6f 70 70 65 64 20 63 68 61 6e 67 he dropped chang
42a0: 65 73 65 74 20 61 6e 64 20 70 75 74 20 6f 6e 65 eset and put one
42b0: 20 6f 66 20 74 68 65 20 66 72 61 67 6d 65 6e 74 of the fragment
42c0: 73 0a 09 23 20 69 6e 74 6f 20 69 74 73 20 70 6c s..# into its pl
42d0: 61 63 65 2e 0a 09 66 6f 72 65 61 63 68 20 70 20 ace...foreach p
42e0: 24 70 72 65 64 65 63 65 73 73 6f 72 73 20 7b 0a $predecessors {.
42f0: 09 20 20 20 20 24 70 20 64 65 74 65 72 6d 69 6e . $p determin
4300: 65 73 75 63 63 65 73 73 6f 72 73 0a 09 7d 0a 0a esuccessors..}..
4310: 09 72 65 74 75 72 6e 20 24 6e 65 77 63 73 65 74 .return $newcset
4320: 73 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 s. }.. typ
4330: 65 6d 65 74 68 6f 64 20 69 74 65 6d 73 74 72 20 emethod itemstr
4340: 7b 69 74 65 6d 7d 20 7b 0a 09 73 74 72 75 63 74 {item} {..struct
4350: 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 24 69 ::list assign $i
4360: 74 65 6d 20 69 74 79 70 65 20 69 69 64 0a 09 72 tem itype iid..r
4370: 65 74 75 72 6e 20 5b 24 69 74 79 70 65 20 73 74 eturn [$itype st
4380: 72 20 24 69 69 64 5d 0a 20 20 20 20 7d 0a 0a 20 r $iid]. }..
4390: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 typemethod st
43a0: 72 6c 69 73 74 20 7b 63 68 61 6e 67 65 73 65 74 rlist {changeset
43b0: 73 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b 6a 6f s} {..return [jo
43c0: 69 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 in [struct::list
43d0: 20 6d 61 70 20 24 63 68 61 6e 67 65 73 65 74 73 map $changesets
43e0: 20 5b 6d 79 70 72 6f 63 20 49 44 5d 5d 5d 0a 20 [myproc ID]]].
43f0: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 }.. proc I
4400: 44 20 7b 63 73 65 74 7d 20 7b 20 24 63 73 65 74 D {cset} { $cset
4410: 20 73 74 72 20 7d 0a 0a 20 20 20 20 70 72 6f 63 str }.. proc
4420: 20 55 6e 74 61 67 20 7b 74 61 67 67 65 64 69 74 Untag {taggedit
4430: 65 6d 73 20 63 73 74 79 70 65 7d 20 7b 0a 09 72 ems cstype} {..r
4440: 65 74 75 72 6e 20 5b 73 74 72 75 63 74 3a 3a 6c eturn [struct::l
4450: 69 73 74 20 6d 61 70 20 24 74 61 67 67 65 64 69 ist map $taggedi
4460: 74 65 6d 73 20 5b 6d 79 70 72 6f 63 20 55 6e 74 tems [myproc Unt
4470: 61 67 31 20 24 63 73 74 79 70 65 5d 5d 0a 20 20 ag1 $cstype]].
4480: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 55 6e }.. proc Un
4490: 74 61 67 31 20 7b 63 73 74 79 70 65 20 74 68 65 tag1 {cstype the
44a0: 69 74 65 6d 7d 20 7b 0a 09 73 74 72 75 63 74 3a item} {..struct:
44b0: 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 24 74 68 :list assign $th
44c0: 65 69 74 65 6d 20 74 20 69 0a 09 69 6e 74 65 67 eitem t i..integ
44d0: 72 69 74 79 20 61 73 73 65 72 74 20 7b 24 63 73 rity assert {$cs
44e0: 74 79 70 65 20 65 71 20 24 74 7d 20 7b 49 74 65 type eq $t} {Ite
44f0: 6d 20 24 69 27 73 20 74 79 70 65 20 69 73 20 27 m $i's type is '
4500: 24 74 27 2c 20 65 78 70 65 63 74 65 64 20 27 24 $t', expected '$
4510: 63 73 74 79 70 65 27 7d 0a 09 72 65 74 75 72 6e cstype'}..return
4520: 20 24 69 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 $i. }.. p
4530: 72 6f 63 20 54 61 67 49 74 65 6d 44 69 63 74 20 roc TagItemDict
4540: 7b 69 74 65 6d 64 69 63 74 20 63 73 74 79 70 65 {itemdict cstype
4550: 7d 20 7b 0a 09 73 65 74 20 72 65 73 20 7b 7d 0a } {..set res {}.
4560: 09 66 6f 72 65 61 63 68 20 7b 69 20 76 7d 20 24 .foreach {i v} $
4570: 69 74 65 6d 64 69 63 74 20 7b 20 6c 61 70 70 65 itemdict { lappe
4580: 6e 64 20 72 65 73 20 5b 6c 69 73 74 20 24 63 73 nd res [list $cs
4590: 74 79 70 65 20 24 69 5d 20 24 76 20 7d 0a 09 72 type $i] $v }..r
45a0: 65 74 75 72 6e 20 24 72 65 73 0a 20 20 20 20 7d eturn $res. }
45b0: 0a 0a 20 20 20 20 70 72 6f 63 20 56 61 6c 69 64 .. proc Valid
45c0: 61 74 65 46 72 61 67 6d 65 6e 74 73 20 7b 63 73 ateFragments {cs
45d0: 65 74 20 66 72 61 67 6d 65 6e 74 73 7d 20 7b 0a et fragments} {.
45e0: 09 23 20 43 68 65 63 6b 20 74 68 65 20 76 61 72 .# Check the var
45f0: 69 6f 75 73 20 69 6e 74 65 67 72 69 74 79 20 63 ious integrity c
4600: 6f 6e 73 74 72 61 69 6e 74 73 20 66 6f 72 20 74 onstraints for t
4610: 68 65 20 66 72 61 67 6d 65 6e 74 73 0a 09 23 20 he fragments..#
4620: 73 70 65 63 69 66 79 69 6e 67 20 68 6f 77 20 74 specifying how t
4630: 6f 20 73 70 6c 69 74 20 74 68 65 20 63 68 61 6e o split the chan
4640: 67 65 73 65 74 3a 0a 09 23 0a 09 23 20 2a 20 57 geset:..#..# * W
4650: 65 20 6d 75 73 74 20 68 61 76 65 20 74 77 6f 20 e must have two
4660: 6f 72 20 6d 6f 72 65 20 66 72 61 67 6d 65 6e 74 or more fragment
4670: 73 2c 20 61 73 20 73 70 6c 69 74 74 69 6e 67 20 s, as splitting
4680: 61 0a 09 23 20 20 20 63 68 61 6e 67 65 73 65 74 a..# changeset
4690: 20 69 6e 74 6f 20 6f 6e 65 20 6d 61 6b 65 73 20 into one makes
46a0: 6e 6f 20 73 65 6e 73 65 2e 0a 09 23 20 2a 20 4e no sense...# * N
46b0: 6f 20 66 72 61 67 6d 65 6e 74 20 6d 61 79 20 62 o fragment may b
46c0: 65 20 65 6d 70 74 79 2e 0a 09 23 20 2a 20 41 6c e empty...# * Al
46d0: 6c 20 66 72 61 67 6d 65 6e 74 73 20 68 61 76 65 l fragments have
46e0: 20 74 6f 20 62 65 20 74 72 75 65 20 73 75 62 73 to be true subs
46f0: 65 74 73 20 6f 66 20 74 68 65 20 69 74 65 6d 73 ets of the items
4700: 20 69 6e 20 74 68 65 0a 09 23 20 20 20 63 68 61 in the..# cha
4710: 6e 67 65 73 65 74 20 74 6f 20 73 70 6c 69 74 2e ngeset to split.
4720: 20 54 68 65 20 27 74 72 75 65 27 20 69 73 20 69 The 'true' is i
4730: 6d 70 6c 69 65 64 20 62 65 63 61 75 73 65 20 6e mplied because n
4740: 6f 6e 65 20 61 72 65 0a 09 23 20 20 20 61 6c 6c one are..# all
4750: 6f 77 65 64 20 74 6f 20 62 65 20 65 6d 70 74 79 owed to be empty
4760: 2c 20 73 6f 20 65 61 63 68 20 68 61 73 20 74 6f , so each has to
4770: 20 62 65 20 73 6d 61 6c 6c 65 72 20 74 68 61 6e be smaller than
4780: 20 74 68 65 0a 09 23 20 20 20 74 6f 74 61 6c 2e the..# total.
4790: 0a 09 23 20 2a 20 54 68 65 20 75 6e 69 6f 6e 20 ..# * The union
47a0: 6f 66 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 of the fragments
47b0: 20 68 61 73 20 74 6f 20 62 65 20 74 68 65 20 69 has to be the i
47c0: 74 65 6d 20 73 65 74 20 6f 66 20 74 68 65 0a 09 tem set of the..
47d0: 23 20 20 20 63 68 61 6e 67 65 73 65 74 2e 0a 09 # changeset...
47e0: 23 20 2a 20 54 68 65 20 66 72 61 67 6d 65 6e 74 # * The fragment
47f0: 20 6d 75 73 74 20 6e 6f 74 20 6f 76 65 72 6c 61 must not overla
4800: 70 2c 20 69 2e 65 2e 20 74 68 65 69 72 20 70 61 p, i.e. their pa
4810: 69 72 77 69 73 65 0a 09 23 20 20 20 69 6e 74 65 irwise..# inte
4820: 72 73 65 63 74 69 6f 6e 73 20 68 61 76 65 20 74 rsections have t
4830: 6f 20 62 65 20 65 6d 70 74 79 2e 0a 0a 09 73 65 o be empty....se
4840: 74 20 63 6f 76 65 72 20 7b 7d 0a 09 66 6f 72 65 t cover {}..fore
4850: 61 63 68 20 66 72 61 67 6d 65 6e 74 69 74 65 6d ach fragmentitem
4860: 73 20 24 66 72 61 67 6d 65 6e 74 73 20 7b 0a 09 s $fragments {..
4870: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 log write 8
4880: 63 73 65 74 73 20 7b 4e 45 57 3a 20 5b 6c 73 6f csets {NEW: [lso
4890: 72 74 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d rt $fragmentitem
48a0: 73 5d 7d 0a 0a 09 20 20 20 20 69 6e 74 65 67 72 s]}... integr
48b0: 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 09 21 ity assert {...!
48c0: 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 65 6d 70 [struct::set emp
48d0: 74 79 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d ty $fragmentitem
48e0: 73 5d 0a 09 20 20 20 20 7d 20 7b 63 68 61 6e 67 s].. } {chang
48f0: 65 73 65 74 20 66 72 61 67 6d 65 6e 74 20 69 73 eset fragment is
4900: 20 65 6d 70 74 79 7d 0a 0a 09 20 20 20 20 69 6e empty}... in
4910: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
4920: 0a 09 09 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 ...[struct::set
4930: 73 75 62 73 65 74 6f 66 20 24 66 72 61 67 6d 65 subsetof $fragme
4940: 6e 74 69 74 65 6d 73 20 5b 24 63 73 65 74 20 69 ntitems [$cset i
4950: 74 65 6d 73 5d 5d 0a 09 20 20 20 20 7d 20 7b 63 tems]].. } {c
4960: 68 61 6e 67 65 73 65 74 20 66 72 61 67 6d 65 6e hangeset fragmen
4970: 74 20 69 73 20 6e 6f 74 20 61 20 73 75 62 73 65 t is not a subse
4980: 74 7d 0a 09 20 20 20 20 73 74 72 75 63 74 3a 3a t}.. struct::
4990: 73 65 74 20 61 64 64 20 63 6f 76 65 72 20 24 66 set add cover $f
49a0: 72 61 67 6d 65 6e 74 69 74 65 6d 73 0a 09 7d 0a ragmentitems..}.
49b0: 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 ..integrity asse
49c0: 72 74 20 7b 0a 09 20 20 20 20 5b 73 74 72 75 63 rt {.. [struc
49d0: 74 3a 3a 73 65 74 20 65 71 75 61 6c 20 24 63 6f t::set equal $co
49e0: 76 65 72 20 5b 24 63 73 65 74 20 69 74 65 6d 73 ver [$cset items
49f0: 5d 5d 0a 09 20 7d 20 7b 54 68 65 20 66 72 61 67 ]].. } {The frag
4a00: 6d 65 6e 74 73 20 64 6f 20 6e 6f 74 20 63 6f 76 ments do not cov
4a10: 65 72 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 er the original
4a20: 63 68 61 6e 67 65 73 65 74 7d 0a 0a 09 73 65 74 changeset}...set
4a30: 20 69 20 31 0a 09 66 6f 72 65 61 63 68 20 66 69 i 1..foreach fi
4a40: 61 20 24 66 72 61 67 6d 65 6e 74 73 20 7b 0a 09 a $fragments {..
4a50: 20 20 20 20 66 6f 72 65 61 63 68 20 66 69 62 20 foreach fib
4a60: 5b 6c 72 61 6e 67 65 20 24 66 72 61 67 6d 65 6e [lrange $fragmen
4a70: 74 73 20 24 69 20 65 6e 64 5d 20 7b 0a 09 09 69 ts $i end] {...i
4a80: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
4a90: 7b 0a 09 09 20 20 20 20 5b 73 74 72 75 63 74 3a {... [struct:
4aa0: 3a 73 65 74 20 65 6d 70 74 79 20 5b 73 74 72 75 :set empty [stru
4ab0: 63 74 3a 3a 73 65 74 20 69 6e 74 65 72 73 65 63 ct::set intersec
4ac0: 74 20 24 66 69 61 20 24 66 69 62 5d 5d 0a 09 09 t $fia $fib]]...
4ad0: 7d 20 7b 54 68 65 20 66 72 61 67 6d 65 6e 74 73 } {The fragments
4ae0: 20 3c 24 66 69 61 3e 20 61 6e 64 20 3c 24 66 69 <$fia> and <$fi
4af0: 62 3e 20 6f 76 65 72 6c 61 70 7d 0a 09 20 20 20 b> overlap}..
4b00: 20 7d 0a 09 20 20 20 20 69 6e 63 72 20 69 0a 09 }.. incr i..
4b10: 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d }...return. }
4b20: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
4b30: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
4b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
4b50: 20 20 23 23 20 53 74 61 74 65 0a 0a 20 20 20 20 ## State..
4b60: 76 61 72 69 61 62 6c 65 20 6d 79 69 64 20 20 20 variable myid
4b70: 20 20 20 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f {} ; # Id o
4b80: 66 20 74 68 65 20 63 73 65 74 20 66 6f 72 20 74 f the cset for t
4b90: 68 65 20 70 65 72 73 69 73 74 65 6e 74 0a 09 09 he persistent...
4ba0: 09 20 20 20 20 20 20 23 20 73 74 61 74 65 2e 0a . # state..
4bb0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 variable myp
4bc0: 72 6f 6a 65 63 74 20 20 20 7b 7d 20 3b 20 23 20 roject {} ; #
4bd0: 52 65 66 65 72 65 6e 63 65 20 6f 66 20 74 68 65 Reference of the
4be0: 20 70 72 6f 6a 65 63 74 20 6f 62 6a 65 63 74 20 project object
4bf0: 74 68 65 0a 09 09 09 20 20 20 20 20 20 23 20 63 the.... # c
4c00: 68 61 6e 67 65 73 65 74 20 62 65 6c 6f 6e 67 73 hangeset belongs
4c10: 20 74 6f 2e 0a 20 20 20 20 76 61 72 69 61 62 6c to.. variabl
4c20: 65 20 6d 79 74 79 70 65 20 20 20 20 20 20 7b 7d e mytype {}
4c30: 20 3b 20 23 20 57 68 61 74 20 74 68 65 20 63 68 ; # What the ch
4c40: 61 6e 67 65 73 65 74 20 69 73 20 62 61 73 65 64 angeset is based
4c50: 20 6f 6e 0a 09 09 09 20 20 20 20 20 20 23 20 28 on.... # (
4c60: 72 65 76 69 73 69 6f 6e 73 2c 20 74 61 67 73 2c revisions, tags,
4c70: 20 6f 72 20 62 72 61 6e 63 68 65 73 29 2e 0a 09 or branches)...
4c80: 09 09 20 20 20 20 20 20 23 20 56 61 6c 75 65 73 .. # Values
4c90: 3a 20 53 65 65 20 6d 79 63 73 74 79 70 65 2e 20 : See mycstype.
4ca0: 4e 6f 74 65 20 74 68 61 74 20 77 65 0a 09 09 09 Note that we....
4cb0: 20 20 20 20 20 20 23 20 68 61 76 65 20 74 6f 20 # have to
4cc0: 6b 65 65 70 20 74 68 65 20 6e 61 6d 65 73 20 6f keep the names o
4cd0: 66 20 74 68 65 20 68 65 6c 70 65 72 0a 09 09 09 f the helper....
4ce0: 20 20 20 20 20 20 23 20 73 69 6e 67 6c 65 74 6f # singleto
4cf0: 6e 73 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 ns in sync with
4d00: 74 68 65 20 63 6f 6e 74 65 6e 74 73 0a 09 09 09 the contents....
4d10: 20 20 20 20 20 20 23 20 6f 66 20 73 74 61 74 65 # of state
4d20: 20 74 61 62 6c 65 20 27 63 73 74 79 70 65 27 2c table 'cstype',
4d30: 20 61 6e 64 20 76 61 72 69 6f 75 73 0a 09 09 09 and various....
4d40: 20 20 20 20 20 20 23 20 6f 74 68 65 72 20 70 6c # other pl
4d50: 61 63 65 73 20 75 73 69 6e 67 20 74 68 65 6d 20 aces using them
4d60: 68 61 72 64 77 69 72 65 64 2e 0a 20 20 20 20 76 hardwired.. v
4d70: 61 72 69 61 62 6c 65 20 6d 79 74 79 70 65 6f 62 ariable mytypeob
4d80: 6a 20 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 j {} ; # Refer
4d90: 65 6e 63 65 20 74 6f 20 74 68 65 20 63 6f 6e 74 ence to the cont
4da0: 61 69 6e 65 72 20 66 6f 72 20 74 68 65 0a 09 09 ainer for the...
4db0: 09 20 20 20 20 20 20 23 20 74 79 70 65 20 64 65 . # type de
4dc0: 70 65 6e 64 65 6e 74 20 63 6f 64 65 2e 20 44 65 pendent code. De
4dd0: 72 69 76 65 64 20 66 72 6f 6d 0a 09 09 09 20 20 rived from....
4de0: 20 20 20 20 23 20 6d 79 74 79 70 65 2e 0a 20 20 # mytype..
4df0: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 73 72 63 variable mysrc
4e00: 69 64 20 20 20 20 20 7b 7d 20 3b 20 23 20 49 64 id {} ; # Id
4e10: 20 6f 66 20 74 68 65 20 6d 65 74 61 64 61 74 61 of the metadata
4e20: 20 6f 72 20 73 79 6d 62 6f 6c 20 74 68 65 20 63 or symbol the c
4e30: 73 65 74 0a 09 09 09 20 20 20 20 20 20 23 20 69 set.... # i
4e40: 73 20 62 61 73 65 64 20 6f 6e 2e 0a 20 20 20 20 s based on..
4e50: 76 61 72 69 61 62 6c 65 20 6d 79 69 74 65 6d 73 variable myitems
4e60: 20 20 20 20 20 7b 7d 20 3b 20 23 20 4c 69 73 74 {} ; # List
4e70: 20 6f 66 20 74 68 65 20 66 69 6c 65 20 6c 65 76 of the file lev
4e80: 65 6c 20 72 65 76 69 73 69 6f 6e 73 2c 0a 09 09 el revisions,...
4e90: 09 20 20 20 20 20 20 23 20 74 61 67 73 2c 20 6f . # tags, o
4ea0: 72 20 62 72 61 6e 63 68 65 73 20 69 6e 20 74 68 r branches in th
4eb0: 65 20 63 73 65 74 2c 20 61 73 0a 09 09 09 20 20 e cset, as....
4ec0: 20 20 20 20 23 20 69 64 73 2e 20 4e 6f 74 20 74 # ids. Not t
4ed0: 61 67 67 65 64 2e 0a 20 20 20 20 76 61 72 69 61 agged.. varia
4ee0: 62 6c 65 20 6d 79 74 69 74 65 6d 73 20 20 20 20 ble mytitems
4ef0: 7b 7d 20 3b 20 23 20 41 73 20 6d 79 69 74 65 6d {} ; # As myitem
4f00: 73 2c 20 74 68 65 20 74 61 67 67 65 64 20 66 6f s, the tagged fo
4f10: 72 6d 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 rm.. variable
4f20: 20 6d 79 70 6f 73 20 20 20 20 20 20 20 7b 7d 20 mypos {}
4f30: 3b 20 23 20 43 6f 6d 6d 69 74 20 70 6f 73 69 74 ; # Commit posit
4f40: 69 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 6e 67 ion of the chang
4f50: 65 73 65 74 2c 20 69 66 0a 09 09 09 20 20 20 20 eset, if....
4f60: 20 20 23 20 6b 6e 6f 77 6e 2e 0a 0a 20 20 20 20 # known...
4f70: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
4f80: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
4f90: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 49 #######. ## I
4fa0: 6e 74 65 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a nternal methods.
4fb0: 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c . typevariabl
4fc0: 65 20 6d 79 63 6f 75 6e 74 65 72 20 20 20 20 20 e mycounter
4fd0: 20 20 20 30 20 3b 20 23 20 49 64 20 63 6f 75 6e 0 ; # Id coun
4fe0: 74 65 72 20 66 6f 72 20 63 73 65 74 73 2e 20 4c ter for csets. L
4ff0: 61 73 74 20 69 64 0a 09 09 09 09 20 20 20 20 20 ast id.....
5000: 20 23 20 75 73 65 64 2e 0a 20 20 20 20 74 79 70 # used.. typ
5010: 65 76 61 72 69 61 62 6c 65 20 6d 79 63 73 74 79 evariable mycsty
5020: 70 65 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 pe -array {} ; #
5030: 20 4d 61 70 20 63 73 74 79 70 65 73 20 28 6e 61 Map cstypes (na
5040: 6d 65 73 29 20 74 6f 20 70 65 72 73 69 73 74 65 mes) to persiste
5050: 6e 74 0a 09 09 09 09 20 20 20 20 20 20 23 20 69 nt..... # i
5060: 64 73 2e 20 4e 6f 74 65 20 74 68 61 74 20 77 65 ds. Note that we
5070: 20 68 61 76 65 20 74 6f 20 6b 65 65 70 0a 09 09 have to keep...
5080: 09 09 20 20 20 20 20 20 23 20 74 68 65 20 6e 61 .. # the na
5090: 6d 65 73 20 69 6e 20 74 68 65 20 74 61 62 6c 65 mes in the table
50a0: 20 27 63 73 74 79 70 65 27 0a 09 09 09 09 20 20 'cstype'.....
50b0: 20 20 20 20 23 20 69 6e 20 73 79 6e 63 20 77 69 # in sync wi
50c0: 74 68 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 th the names of
50d0: 74 68 65 0a 09 09 09 09 20 20 20 20 20 20 23 20 the..... #
50e0: 68 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e helper singleton
50f0: 73 2e 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 s... typemeth
5100: 6f 64 20 69 6e 6f 72 64 65 72 20 7b 70 72 6f 6a od inorder {proj
5110: 65 63 74 69 64 7d 20 7b 0a 09 23 20 52 65 74 75 ectid} {..# Retu
5120: 72 6e 20 61 6c 6c 20 72 65 76 69 73 69 6f 6e 20 rn all revision
5130: 63 68 61 6e 67 65 73 65 74 73 20 66 6f 72 20 74 changesets for t
5140: 68 65 20 73 70 65 63 69 66 69 65 64 20 70 72 6f he specified pro
5150: 6a 65 63 74 2c 20 69 6e 0a 09 23 20 74 68 65 20 ject, in..# the
5160: 6f 72 64 65 72 20 67 69 76 65 6e 20 74 6f 20 74 order given to t
5170: 68 65 6d 20 62 79 20 74 68 65 20 73 6f 72 74 20 hem by the sort
5180: 70 61 73 73 65 73 2e 20 42 6f 74 68 20 74 68 65 passes. Both the
5190: 0a 09 23 20 66 69 6c 74 65 72 69 6e 67 20 62 79 ..# filtering by
51a0: 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 73 6f 72 project and sor
51b0: 74 69 6e 67 20 6d 61 6b 65 20 75 73 65 20 6f 66 ting make use of
51c0: 20 27 70 72 6f 6a 65 63 74 3a 3a 72 65 76 0a 09 'project::rev..
51d0: 23 20 72 65 76 27 20 69 6d 70 6f 73 73 69 62 6c # rev' impossibl
51e0: 65 2e 0a 0a 09 73 65 74 20 72 65 73 20 7b 7d 0a e....set res {}.
51f0: 09 66 6f 72 65 61 63 68 20 7b 63 69 64 20 63 64 .foreach {cid cd
5200: 61 74 65 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 ate} [state run
5210: 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e {.. SELECT C.
5220: 63 69 64 2c 20 54 2e 64 61 74 65 0a 09 20 20 20 cid, T.date..
5230: 20 46 52 4f 4d 20 20 20 63 68 61 6e 67 65 73 65 FROM changese
5240: 74 20 43 2c 20 63 73 74 69 6d 65 73 74 61 6d 70 t C, cstimestamp
5250: 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 20 43 T.. WHERE C
5260: 2e 74 79 70 65 20 3d 20 30 20 20 20 20 20 20 20 .type = 0
5270: 20 20 20 2d 2d 20 6c 69 6d 69 74 20 74 6f 20 72 -- limit to r
5280: 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 evision changese
5290: 74 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 ts.. AND C
52a0: 2e 70 69 64 20 20 3d 20 24 70 72 6f 6a 65 63 74 .pid = $project
52b0: 69 64 20 2d 2d 20 6c 69 6d 69 74 20 74 6f 20 63 id -- limit to c
52c0: 68 61 6e 67 65 73 65 74 73 20 69 6e 20 70 72 6f hangesets in pro
52d0: 6a 65 63 74 0a 09 20 20 20 20 41 4e 44 20 20 20 ject.. AND
52e0: 20 54 2e 63 69 64 20 20 3d 20 43 2e 63 69 64 20 T.cid = C.cid
52f0: 20 20 20 20 20 2d 2d 20 67 65 74 20 6f 72 64 65 -- get orde
5300: 72 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ring information
5310: 0a 09 20 20 20 20 4f 52 44 45 52 20 42 59 20 54 .. ORDER BY T
5320: 2e 64 61 74 65 20 20 20 20 20 20 20 20 20 20 20 .date
5330: 20 2d 2d 20 73 6f 72 74 20 69 6e 74 6f 20 63 6f -- sort into co
5340: 6d 6d 69 74 20 6f 72 64 65 72 0a 09 7d 5d 20 7b mmit order..}] {
5350: 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 .. lappend re
5360: 73 20 24 6d 79 69 64 6d 61 70 28 24 63 69 64 29 s $myidmap($cid)
5370: 20 24 63 64 61 74 65 0a 09 7d 0a 09 72 65 74 75 $cdate..}..retu
5380: 72 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 rn $res. }..
5390: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 67 65 typemethod ge
53a0: 74 63 73 74 79 70 65 73 20 7b 7d 20 7b 0a 09 66 tcstypes {} {..f
53b0: 6f 72 65 61 63 68 20 7b 74 69 64 20 6e 61 6d 65 oreach {tid name
53c0: 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 } [state run {..
53d0: 20 20 20 20 53 45 4c 45 43 54 20 74 69 64 2c 20 SELECT tid,
53e0: 6e 61 6d 65 20 46 52 4f 4d 20 63 73 74 79 70 65 name FROM cstype
53f0: 3b 0a 09 7d 5d 20 7b 20 73 65 74 20 6d 79 63 73 ;..}] { set mycs
5400: 74 79 70 65 28 24 6e 61 6d 65 29 20 24 74 69 64 type($name) $tid
5410: 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d }..return. }
5420: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
5430: 20 6c 6f 61 64 20 7b 72 65 70 6f 73 69 74 6f 72 load {repositor
5440: 79 7d 20 7b 0a 09 73 65 74 20 6e 20 30 0a 09 6c y} {..set n 0..l
5450: 6f 67 20 77 72 69 74 65 20 32 20 63 73 65 74 73 og write 2 csets
5460: 20 7b 4c 6f 61 64 69 6e 67 20 74 68 65 20 63 68 {Loading the ch
5470: 61 6e 67 65 73 65 74 73 7d 0a 09 66 6f 72 65 61 angesets}..forea
5480: 63 68 20 7b 69 64 20 70 69 64 20 63 73 74 79 70 ch {id pid cstyp
5490: 65 20 73 72 63 69 64 7d 20 5b 73 74 61 74 65 20 e srcid} [state
54a0: 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 run {.. SELEC
54b0: 54 20 43 2e 63 69 64 2c 20 43 2e 70 69 64 2c 20 T C.cid, C.pid,
54c0: 43 53 2e 6e 61 6d 65 2c 20 43 2e 73 72 63 0a 09 CS.name, C.src..
54d0: 20 20 20 20 46 52 4f 4d 20 20 20 63 68 61 6e 67 FROM chang
54e0: 65 73 65 74 20 43 2c 20 63 73 74 79 70 65 20 43 eset C, cstype C
54f0: 53 0a 09 20 20 20 20 57 48 45 52 45 20 20 43 2e S.. WHERE C.
5500: 74 79 70 65 20 3d 20 43 53 2e 74 69 64 0a 09 20 type = CS.tid..
5510: 20 20 20 4f 52 44 45 52 20 42 59 20 43 2e 63 69 ORDER BY C.ci
5520: 64 0a 09 7d 5d 20 7b 0a 09 20 20 20 20 6c 6f 67 d..}] {.. log
5530: 20 70 72 6f 67 72 65 73 73 20 32 20 63 73 65 74 progress 2 cset
5540: 73 20 24 6e 20 7b 7d 0a 09 20 20 20 20 73 65 74 s $n {}.. set
5550: 20 72 20 5b 24 74 79 70 65 20 25 41 55 54 4f 25 r [$type %AUTO%
5560: 20 5b 24 72 65 70 6f 73 69 74 6f 72 79 20 70 72 [$repository pr
5570: 6f 6a 65 63 74 6f 66 20 24 70 69 64 5d 20 24 63 ojectof $pid] $c
5580: 73 74 79 70 65 20 24 73 72 63 69 64 20 5b 73 74 stype $srcid [st
5590: 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c 45 ate run {...SELE
55a0: 43 54 20 43 2e 69 69 64 0a 09 09 46 52 4f 4d 20 CT C.iid...FROM
55b0: 20 20 63 73 69 74 65 6d 20 43 0a 09 09 57 48 45 csitem C...WHE
55c0: 52 45 20 20 43 2e 63 69 64 20 3d 20 24 69 64 0a RE C.cid = $id.
55d0: 09 09 4f 52 44 45 52 20 42 59 20 43 2e 70 6f 73 ..ORDER BY C.pos
55e0: 0a 09 20 20 20 20 7d 5d 20 24 69 64 5d 0a 09 20 .. }] $id]..
55f0: 20 20 20 69 6e 63 72 20 6e 0a 09 7d 0a 09 72 65 incr n..}..re
5600: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
5610: 74 79 70 65 6d 65 74 68 6f 64 20 6c 6f 61 64 63 typemethod loadc
5620: 6f 75 6e 74 65 72 20 7b 7d 20 7b 0a 09 23 20 49 ounter {} {..# I
5630: 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 63 6f nitialize the co
5640: 75 6e 74 65 72 20 66 72 6f 6d 20 74 68 65 20 73 unter from the s
5650: 74 61 74 65 0a 09 6c 6f 67 20 77 72 69 74 65 20 tate..log write
5660: 32 20 63 73 65 74 73 20 7b 4c 6f 61 64 69 6e 67 2 csets {Loading
5670: 20 63 68 61 6e 67 65 73 65 74 20 63 6f 75 6e 74 changeset count
5680: 65 72 7d 0a 09 73 65 74 20 6d 79 63 6f 75 6e 74 er}..set mycount
5690: 65 72 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 er [state one {
56a0: 53 45 4c 45 43 54 20 4d 41 58 28 63 69 64 29 20 SELECT MAX(cid)
56b0: 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 7d FROM changeset }
56c0: 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ]..return. }.
56d0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
56e0: 6e 75 6d 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 num {} { return
56f0: 24 6d 79 63 6f 75 6e 74 65 72 20 7d 0a 0a 20 20 $mycounter }..
5700: 20 20 70 72 6f 63 20 49 6e 69 74 69 61 6c 69 7a proc Initializ
5710: 65 42 72 65 61 6b 53 74 61 74 65 20 7b 72 65 76 eBreakState {rev
5720: 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 isions} {..upvar
5730: 20 31 20 70 6f 73 20 70 6f 73 20 63 72 6f 73 73 1 pos pos cross
5740: 20 63 72 6f 73 73 20 72 61 6e 67 65 20 72 61 6e cross range ran
5750: 67 65 20 64 65 70 63 20 64 65 70 63 20 64 65 6c ge depc depc del
5760: 74 61 20 64 65 6c 74 61 20 5c 0a 09 20 20 20 20 ta delta \..
5770: 64 65 70 65 6e 64 65 6e 63 69 65 73 20 64 65 70 dependencies dep
5780: 65 6e 64 65 6e 63 69 65 73 0a 0a 09 23 20 46 69 endencies...# Fi
5790: 72 73 74 20 77 65 20 63 72 65 61 74 65 20 61 20 rst we create a
57a0: 6d 61 70 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 map of positions
57b0: 20 74 6f 20 6d 61 6b 65 20 69 74 20 65 61 73 69 to make it easi
57c0: 65 72 20 74 6f 0a 09 23 20 64 65 74 65 72 6d 69 er to..# determi
57d0: 6e 65 20 77 68 65 74 68 65 72 20 61 20 64 65 70 ne whether a dep
57e0: 65 6e 64 65 6e 63 79 20 63 72 6f 73 73 65 73 20 endency crosses
57f0: 61 20 70 61 72 74 69 63 75 6c 61 72 20 69 6e 64 a particular ind
5800: 65 78 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 ex....array set
5810: 70 6f 73 20 20 20 7b 7d 0a 09 61 72 72 61 79 20 pos {}..array
5820: 73 65 74 20 63 72 6f 73 73 20 7b 7d 0a 09 61 72 set cross {}..ar
5830: 72 61 79 20 73 65 74 20 64 65 70 63 20 20 7b 7d ray set depc {}
5840: 0a 09 73 65 74 20 72 61 6e 67 65 20 20 20 20 20 ..set range
5850: 20 20 7b 7d 0a 09 73 65 74 20 6e 20 30 0a 09 66 {}..set n 0..f
5860: 6f 72 65 61 63 68 20 72 65 76 20 24 72 65 76 69 oreach rev $revi
5870: 73 69 6f 6e 73 20 7b 0a 09 20 20 20 20 6c 61 70 sions {.. lap
5880: 70 65 6e 64 20 72 61 6e 67 65 20 24 6e 0a 09 20 pend range $n..
5890: 20 20 20 73 65 74 20 70 6f 73 28 24 72 65 76 29 set pos($rev)
58a0: 20 24 6e 0a 09 20 20 20 20 73 65 74 20 63 72 6f $n.. set cro
58b0: 73 73 28 24 6e 29 20 30 0a 09 20 20 20 20 69 6e ss($n) 0.. in
58c0: 63 72 20 6e 0a 09 7d 0a 0a 09 23 20 53 65 63 6f cr n..}...# Seco
58d0: 6e 64 6c 79 20 77 65 20 63 6f 75 6e 74 20 74 68 ndly we count th
58e0: 65 20 63 72 6f 73 73 69 6e 67 73 20 70 65 72 20 e crossings per
58f0: 70 6f 73 69 74 69 6f 6e 2c 20 62 79 20 69 74 65 position, by ite
5900: 72 61 74 69 6e 67 0a 09 23 20 6f 76 65 72 20 74 rating..# over t
5910: 68 65 20 72 65 63 6f 72 64 65 64 20 69 6e 74 65 he recorded inte
5920: 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 rnal dependencie
5930: 73 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 66 20 s....# Note: If
5940: 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 20 61 the timestamps a
5950: 72 65 20 62 61 64 6c 79 20 6f 75 74 20 6f 66 20 re badly out of
5960: 6f 72 64 65 72 20 69 74 20 69 73 0a 09 23 20 20 order it is..#
5970: 20 20 20 20 20 70 6f 73 73 69 62 6c 65 20 74 6f possible to
5980: 20 68 61 76 65 20 61 20 62 61 63 6b 77 61 72 64 have a backward
5990: 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e successor depen
59a0: 64 65 6e 63 79 2c 0a 09 23 20 20 20 20 20 20 20 dency,..#
59b0: 69 2e 65 2e 20 77 69 74 68 20 73 74 61 72 74 20 i.e. with start
59c0: 3e 20 65 6e 64 2e 20 57 65 20 6d 61 79 20 68 61 > end. We may ha
59d0: 76 65 20 74 6f 20 73 77 61 70 20 74 68 65 20 69 ve to swap the i
59e0: 6e 64 69 63 65 73 0a 09 23 20 20 20 20 20 20 20 ndices..#
59f0: 74 6f 20 65 6e 73 75 72 65 20 74 68 61 74 20 74 to ensure that t
5a00: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 6f 6f he following loo
5a10: 70 20 72 75 6e 73 20 63 6f 72 72 65 63 74 6c 79 p runs correctly
5a20: 2e 0a 09 23 0a 09 23 20 4e 6f 74 65 20 32 3a 20 ...#..# Note 2:
5a30: 73 74 61 72 74 20 3d 3d 20 65 6e 64 20 69 73 20 start == end is
5a40: 6e 6f 74 20 70 6f 73 73 69 62 6c 65 2e 20 49 74 not possible. It
5a50: 20 69 6e 64 69 63 61 74 65 73 20 61 0a 09 23 20 indicates a..#
5a60: 20 20 20 20 20 20 20 20 73 65 6c 66 2d 64 65 70 self-dep
5a70: 65 6e 64 65 6e 63 79 20 64 75 65 20 74 6f 20 74 endency due to t
5a80: 68 65 20 75 6e 69 71 75 65 6e 65 73 73 20 6f 66 he uniqueness of
5a90: 20 70 6f 73 69 74 69 6f 6e 73 2c 0a 09 23 20 20 positions,..#
5aa0: 20 20 20 20 20 20 20 61 6e 64 20 74 68 61 74 20 and that
5ab0: 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 77 65 20 is something we
5ac0: 68 61 76 65 20 72 75 6c 65 64 20 6f 75 74 20 61 have ruled out a
5ad0: 6c 72 65 61 64 79 2c 20 73 65 65 0a 09 23 20 20 lready, see..#
5ae0: 20 20 20 20 20 20 20 27 72 65 76 20 69 6e 74 65 'rev inte
5af0: 72 6e 61 6c 73 75 63 63 65 73 73 6f 72 73 27 2e rnalsuccessors'.
5b00: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 ...foreach {rid
5b10: 63 68 69 6c 64 72 65 6e 7d 20 5b 61 72 72 61 79 children} [array
5b20: 20 67 65 74 20 64 65 70 65 6e 64 65 6e 63 69 65 get dependencie
5b30: 73 5d 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 s] {.. foreac
5b40: 68 20 63 68 69 6c 64 20 24 63 68 69 6c 64 72 65 h child $childre
5b50: 6e 20 7b 0a 09 09 73 65 74 20 64 6b 65 79 20 20 n {...set dkey
5b60: 20 20 5b 6c 69 73 74 20 24 72 69 64 20 24 63 68 [list $rid $ch
5b70: 69 6c 64 5d 0a 09 09 73 65 74 20 73 74 61 72 74 ild]...set start
5b80: 20 20 20 24 70 6f 73 28 24 72 69 64 29 0a 09 09 $pos($rid)...
5b90: 73 65 74 20 65 6e 64 20 20 20 20 20 24 70 6f 73 set end $pos
5ba0: 28 24 63 68 69 6c 64 29 0a 09 09 73 65 74 20 63 ($child)...set c
5bb0: 72 6f 73 73 65 73 20 7b 7d 0a 0a 09 09 69 66 20 rosses {}....if
5bc0: 7b 24 73 74 61 72 74 20 3e 20 24 65 6e 64 7d 20 {$start > $end}
5bd0: 7b 0a 09 09 20 20 20 20 77 68 69 6c 65 20 7b 24 {... while {$
5be0: 65 6e 64 20 3c 20 24 73 74 61 72 74 7d 20 7b 0a end < $start} {.
5bf0: 09 09 09 6c 61 70 70 65 6e 64 20 63 72 6f 73 73 ...lappend cross
5c00: 65 73 20 24 65 6e 64 0a 09 09 09 69 6e 63 72 20 es $end....incr
5c10: 63 72 6f 73 73 28 24 65 6e 64 29 0a 09 09 09 69 cross($end)....i
5c20: 6e 63 72 20 65 6e 64 0a 09 09 20 20 20 20 7d 0a ncr end... }.
5c30: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
5c40: 20 77 68 69 6c 65 20 7b 24 73 74 61 72 74 20 3c while {$start <
5c50: 20 24 65 6e 64 7d 20 7b 0a 09 09 09 6c 61 70 70 $end} {....lapp
5c60: 65 6e 64 20 63 72 6f 73 73 65 73 20 24 73 74 61 end crosses $sta
5c70: 72 74 0a 09 09 09 69 6e 63 72 20 63 72 6f 73 73 rt....incr cross
5c80: 28 24 73 74 61 72 74 29 0a 09 09 09 69 6e 63 72 ($start)....incr
5c90: 20 73 74 61 72 74 0a 09 09 20 20 20 20 7d 0a 09 start... }..
5ca0: 09 7d 0a 09 09 73 65 74 20 64 65 70 63 28 24 64 .}...set depc($d
5cb0: 6b 65 79 29 20 24 63 72 6f 73 73 65 73 0a 09 20 key) $crosses..
5cc0: 20 20 20 7d 0a 09 7d 0a 0a 09 49 6e 69 74 69 61 }..}...Initia
5cd0: 6c 69 7a 65 44 65 6c 74 61 73 20 24 72 65 76 69 lizeDeltas $revi
5ce0: 73 69 6f 6e 73 0a 09 72 65 74 75 72 6e 0a 20 20 sions..return.
5cf0: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 6e }.. proc In
5d00: 69 74 69 61 6c 69 7a 65 44 65 6c 74 61 73 20 7b itializeDeltas {
5d10: 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 revisions} {..up
5d20: 76 61 72 20 31 20 64 65 6c 74 61 20 64 65 6c 74 var 1 delta delt
5d30: 61 0a 0a 09 23 20 50 75 6c 6c 20 74 68 65 20 74 a...# Pull the t
5d40: 69 6d 65 73 74 61 6d 70 73 20 66 6f 72 20 61 6c imestamps for al
5d50: 6c 20 72 65 76 69 73 69 6f 6e 73 20 69 6e 20 74 l revisions in t
5d60: 68 65 20 63 68 61 6e 67 65 73 65 74 73 20 61 6e he changesets an
5d70: 64 0a 09 23 20 63 6f 6d 70 75 74 65 20 74 68 65 d..# compute the
5d80: 69 72 20 64 65 6c 74 61 73 20 66 6f 72 20 75 73 ir deltas for us
5d90: 65 20 62 79 20 74 68 65 20 62 72 65 61 6b 20 66 e by the break f
5da0: 69 6e 64 65 72 2e 0a 0a 09 61 72 72 61 79 20 73 inder....array s
5db0: 65 74 20 64 65 6c 74 61 20 7b 7d 0a 09 61 72 72 et delta {}..arr
5dc0: 61 79 20 73 65 74 20 73 74 61 6d 70 20 7b 7d 0a ay set stamp {}.
5dd0: 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b ..set theset ('[
5de0: 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 join $revisions
5df0: 7b 27 2c 27 7d 5d 27 29 0a 09 66 6f 72 65 61 63 {','}]')..foreac
5e00: 68 20 7b 72 69 64 20 74 69 6d 65 7d 20 5b 73 74 h {rid time} [st
5e10: 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d ate run [subst -
5e20: 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 nocommands -noba
5e30: 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 ckslashes {..
5e40: 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 SELECT R.rid, R
5e50: 2e 64 61 74 65 0a 09 20 20 20 20 46 52 4f 4d 20 .date.. FROM
5e60: 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 revision R..
5e70: 57 48 45 52 45 20 52 2e 72 69 64 20 49 4e 20 24 WHERE R.rid IN $
5e80: 74 68 65 73 65 74 0a 09 7d 5d 5d 20 7b 0a 09 20 theset..}]] {..
5e90: 20 20 20 73 65 74 20 73 74 61 6d 70 28 24 72 69 set stamp($ri
5ea0: 64 29 20 24 74 69 6d 65 0a 09 7d 0a 0a 09 73 65 d) $time..}...se
5eb0: 74 20 6e 20 30 0a 09 66 6f 72 65 61 63 68 20 72 t n 0..foreach r
5ec0: 69 64 20 5b 6c 72 61 6e 67 65 20 24 72 65 76 69 id [lrange $revi
5ed0: 73 69 6f 6e 73 20 30 20 65 6e 64 2d 31 5d 20 72 sions 0 end-1] r
5ee0: 6e 65 78 74 20 5b 6c 72 61 6e 67 65 20 24 72 65 next [lrange $re
5ef0: 76 69 73 69 6f 6e 73 20 31 20 65 6e 64 5d 20 7b visions 1 end] {
5f00: 0a 09 20 20 20 20 73 65 74 20 64 65 6c 74 61 28 .. set delta(
5f10: 24 6e 29 20 5b 65 78 70 72 20 7b 24 73 74 61 6d $n) [expr {$stam
5f20: 70 28 24 72 6e 65 78 74 29 20 2d 20 24 73 74 61 p($rnext) - $sta
5f30: 6d 70 28 24 72 69 64 29 7d 5d 0a 09 20 20 20 20 mp($rid)}]..
5f40: 69 6e 63 72 20 6e 0a 09 7d 0a 09 72 65 74 75 72 incr n..}..retur
5f50: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f n. }.. pro
5f60: 63 20 46 69 6e 64 42 65 73 74 42 72 65 61 6b 20 c FindBestBreak
5f70: 7b 72 61 6e 67 65 7d 20 7b 0a 09 75 70 76 61 72 {range} {..upvar
5f80: 20 31 20 63 72 6f 73 73 20 63 72 6f 73 73 20 64 1 cross cross d
5f90: 65 6c 74 61 20 64 65 6c 74 61 0a 0a 09 23 20 44 elta delta...# D
5fa0: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 62 65 73 etermine the bes
5fb0: 74 20 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e t break location
5fc0: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 72 61 in the given ra
5fd0: 6e 67 65 20 6f 66 0a 09 23 20 70 6f 73 69 74 69 nge of..# positi
5fe0: 6f 6e 73 2e 20 46 69 72 73 74 20 77 65 20 6c 6f ons. First we lo
5ff0: 6f 6b 20 66 6f 72 20 74 68 65 20 6c 6f 63 61 74 ok for the locat
6000: 69 6f 6e 73 20 77 69 74 68 20 74 68 65 20 6d 61 ions with the ma
6010: 78 69 6d 61 6c 0a 09 23 20 6e 75 6d 62 65 72 20 ximal..# number
6020: 6f 66 20 63 72 6f 73 73 69 6e 67 73 2e 20 49 66 of crossings. If
6030: 20 74 68 65 72 65 20 61 72 65 20 73 65 76 65 72 there are sever
6040: 61 6c 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 74 al we look for t
6050: 68 65 0a 09 23 20 73 68 6f 72 74 65 73 74 20 74 he..# shortest t
6060: 69 6d 65 20 69 6e 74 65 72 76 61 6c 20 61 6d 6f ime interval amo
6070: 6e 67 20 74 68 65 6d 2e 20 49 66 20 77 65 20 73 ng them. If we s
6080: 74 69 6c 6c 20 68 61 76 65 20 6d 75 6c 74 69 70 till have multip
6090: 6c 65 0a 09 23 20 70 6f 73 73 69 62 69 6c 69 74 le..# possibilit
60a0: 69 65 73 20 61 66 74 65 72 20 74 68 61 74 20 77 ies after that w
60b0: 65 20 73 65 6c 65 63 74 20 74 68 65 20 65 61 72 e select the ear
60c0: 6c 69 65 73 74 20 6c 6f 63 61 74 69 6f 6e 0a 09 liest location..
60d0: 23 20 61 6d 6f 6e 67 20 74 68 65 73 65 2e 0a 0a # among these...
60e0: 09 23 20 4e 6f 74 65 3a 20 49 66 20 74 68 65 20 .# Note: If the
60f0: 6d 61 78 69 6d 61 6c 20 6e 75 6d 62 65 72 20 6f maximal number o
6100: 66 20 63 72 6f 73 73 69 6e 67 73 20 69 73 20 30 f crossings is 0
6110: 20 74 68 65 6e 20 74 68 65 20 72 61 6e 67 65 0a then the range.
6120: 09 23 20 20 20 20 20 20 20 68 61 73 20 6e 6f 20 .# has no
6130: 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 internal depende
6140: 6e 63 69 65 73 2c 20 61 6e 64 20 6e 6f 20 62 72 ncies, and no br
6150: 65 61 6b 20 6c 6f 63 61 74 69 6f 6e 20 61 74 0a eak location at.
6160: 09 23 20 20 20 20 20 20 20 61 6c 6c 2e 20 54 68 .# all. Th
6170: 69 73 20 70 6f 73 73 69 62 69 6c 69 74 79 20 69 is possibility i
6180: 73 20 73 69 67 6e 61 6c 65 64 20 76 69 61 20 72 s signaled via r
6190: 65 73 75 6c 74 20 2d 31 2e 0a 0a 09 23 20 4e 6f esult -1....# No
61a0: 74 65 3a 20 41 20 72 61 6e 67 65 20 6f 66 20 6c te: A range of l
61b0: 65 6e 67 74 68 20 31 20 6f 72 20 6c 65 73 73 20 ength 1 or less
61c0: 63 61 6e 6e 6f 74 20 68 61 76 65 20 69 6e 74 65 cannot have inte
61d0: 72 6e 61 6c 0a 09 23 20 20 20 20 20 20 20 64 65 rnal..# de
61e0: 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 73 20 74 pendencies, as t
61f0: 68 61 74 20 6e 65 65 64 73 20 61 74 20 6c 65 61 hat needs at lea
6200: 73 74 20 74 77 6f 20 72 65 76 69 73 69 6f 6e 73 st two revisions
6210: 20 69 6e 0a 09 23 20 20 20 20 20 20 20 74 68 65 in..# the
6220: 20 72 61 6e 67 65 2e 0a 0a 09 69 66 20 7b 5b 6c range....if {[l
6230: 6c 65 6e 67 74 68 20 24 72 61 6e 67 65 5d 20 3c length $range] <
6240: 20 32 7d 20 7b 20 72 65 74 75 72 6e 20 2d 31 20 2} { return -1
6250: 7d 0a 0a 09 73 65 74 20 6d 61 78 20 2d 31 0a 09 }...set max -1..
6260: 73 65 74 20 62 65 73 74 20 7b 7d 0a 0a 09 66 6f set best {}...fo
6270: 72 65 61 63 68 20 6c 6f 63 61 74 69 6f 6e 20 24 reach location $
6280: 72 61 6e 67 65 20 7b 0a 09 20 20 20 20 73 65 74 range {.. set
6290: 20 63 72 6f 73 73 69 6e 67 73 20 24 63 72 6f 73 crossings $cros
62a0: 73 28 24 6c 6f 63 61 74 69 6f 6e 29 0a 09 20 20 s($location)..
62b0: 20 20 69 66 20 7b 24 63 72 6f 73 73 69 6e 67 73 if {$crossings
62c0: 20 3e 20 24 6d 61 78 7d 20 7b 0a 09 09 73 65 74 > $max} {...set
62d0: 20 6d 61 78 20 20 24 63 72 6f 73 73 69 6e 67 73 max $crossings
62e0: 0a 09 09 73 65 74 20 62 65 73 74 20 5b 6c 69 73 ...set best [lis
62f0: 74 20 24 6c 6f 63 61 74 69 6f 6e 5d 0a 09 09 63 t $location]...c
6300: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 7d 20 65 ontinue.. } e
6310: 6c 73 65 69 66 20 7b 24 63 72 6f 73 73 69 6e 67 lseif {$crossing
6320: 73 20 3d 3d 20 24 6d 61 78 7d 20 7b 0a 09 09 6c s == $max} {...l
6330: 61 70 70 65 6e 64 20 62 65 73 74 20 24 6c 6f 63 append best $loc
6340: 61 74 69 6f 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a ation.. }..}.
6350: 0a 09 69 66 20 7b 24 6d 61 78 20 3d 3d 20 30 7d ..if {$max == 0}
6360: 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 { re
6370: 74 75 72 6e 20 2d 31 20 7d 0a 09 69 66 20 7b 5b turn -1 }..if {[
6380: 6c 6c 65 6e 67 74 68 20 24 62 65 73 74 5d 20 3d llength $best] =
6390: 3d 20 31 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c = 1} { return [l
63a0: 69 6e 64 65 78 20 24 62 65 73 74 20 30 5d 20 7d index $best 0] }
63b0: 0a 0a 09 73 65 74 20 6c 6f 63 61 74 69 6f 6e 73 ...set locations
63c0: 20 24 62 65 73 74 0a 09 73 65 74 20 62 65 73 74 $best..set best
63d0: 20 7b 7d 0a 09 73 65 74 20 6d 69 6e 20 2d 31 0a {}..set min -1.
63e0: 0a 09 66 6f 72 65 61 63 68 20 6c 6f 63 61 74 69 ..foreach locati
63f0: 6f 6e 20 24 6c 6f 63 61 74 69 6f 6e 73 20 7b 0a on $locations {.
6400: 09 20 20 20 20 73 65 74 20 69 6e 74 65 72 76 61 . set interva
6410: 6c 20 24 64 65 6c 74 61 28 24 6c 6f 63 61 74 69 l $delta($locati
6420: 6f 6e 29 0a 09 20 20 20 20 69 66 20 7b 28 24 6d on).. if {($m
6430: 69 6e 20 3c 20 30 29 20 7c 7c 20 28 24 69 6e 74 in < 0) || ($int
6440: 65 72 76 61 6c 20 3c 20 24 6d 69 6e 29 7d 20 7b erval < $min)} {
6450: 0a 09 09 73 65 74 20 6d 69 6e 20 20 24 69 6e 74 ...set min $int
6460: 65 72 76 61 6c 0a 09 09 73 65 74 20 62 65 73 74 erval...set best
6470: 20 5b 6c 69 73 74 20 24 6c 6f 63 61 74 69 6f 6e [list $location
6480: 5d 0a 09 20 20 20 20 7d 20 65 6c 73 65 69 66 20 ].. } elseif
6490: 7b 24 69 6e 74 65 72 76 61 6c 20 3d 3d 20 24 6d {$interval == $m
64a0: 69 6e 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 in} {...lappend
64b0: 62 65 73 74 20 24 6c 6f 63 61 74 69 6f 6e 0a 09 best $location..
64c0: 20 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 7b 5b }..}...if {[
64d0: 6c 6c 65 6e 67 74 68 20 24 62 65 73 74 5d 20 3d llength $best] =
64e0: 3d 20 31 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c = 1} { return [l
64f0: 69 6e 64 65 78 20 24 62 65 73 74 20 30 5d 20 7d index $best 0] }
6500: 0a 0a 09 72 65 74 75 72 6e 20 5b 6c 69 6e 64 65 ...return [linde
6510: 78 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67 65 x [lsort -intege
6520: 72 20 2d 69 6e 63 72 65 61 73 69 6e 67 20 24 62 r -increasing $b
6530: 65 73 74 5d 20 30 5d 0a 20 20 20 20 7d 0a 0a 20 est] 0]. }..
6540: 20 20 20 70 72 6f 63 20 43 75 74 41 74 20 7b 6c proc CutAt {l
6550: 6f 63 61 74 69 6f 6e 7d 20 7b 0a 09 75 70 76 61 ocation} {..upva
6560: 72 20 31 20 63 72 6f 73 73 20 63 72 6f 73 73 20 r 1 cross cross
6570: 64 65 70 63 20 64 65 70 63 0a 0a 09 23 20 49 74 depc depc...# It
6580: 20 77 61 73 20 64 65 63 69 64 65 64 20 74 6f 20 was decided to
6590: 73 70 6c 69 74 20 74 68 65 20 63 68 61 6e 67 65 split the change
65a0: 73 65 74 20 61 74 20 74 68 65 20 67 69 76 65 6e set at the given
65b0: 0a 09 23 20 6c 6f 63 61 74 69 6f 6e 2e 20 54 68 ..# location. Th
65c0: 69 73 20 63 75 74 73 20 61 20 6e 75 6d 62 65 72 is cuts a number
65d0: 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 65 73 of dependencies
65e0: 2e 20 48 65 72 65 20 77 65 20 75 70 64 61 74 65 . Here we update
65f0: 0a 09 23 20 74 68 65 20 63 72 6f 73 73 20 69 6e ..# the cross in
6600: 66 6f 72 6d 61 74 69 6f 6e 20 73 6f 20 74 68 61 formation so tha
6610: 74 20 74 68 65 20 62 72 65 61 6b 20 66 69 6e 64 t the break find
6620: 65 72 20 68 61 73 20 61 63 63 75 72 61 74 65 0a er has accurate.
6630: 09 23 20 64 61 74 61 20 77 68 65 6e 20 77 65 20 .# data when we
6640: 6c 6f 6f 6b 20 61 74 20 74 68 65 20 67 65 6e 65 look at the gene
6650: 72 61 74 65 64 20 66 72 61 67 6d 65 6e 74 73 2e rated fragments.
6660: 0a 0a 09 73 65 74 20 73 69 78 20 5b 6c 6f 67 20 ...set six [log
6670: 76 69 73 69 62 6c 65 3f 20 36 5d 0a 0a 09 66 6f visible? 6]...fo
6680: 72 65 61 63 68 20 7b 64 65 70 20 72 61 6e 67 65 reach {dep range
6690: 7d 20 5b 61 72 72 61 79 20 67 65 74 20 64 65 70 } [array get dep
66a0: 63 5d 20 7b 0a 09 20 20 20 20 23 20 43 68 65 63 c] {.. # Chec
66b0: 6b 20 61 6c 6c 20 64 65 70 65 6e 64 65 6e 63 69 k all dependenci
66c0: 65 73 20 73 74 69 6c 6c 20 6b 6e 6f 77 6e 2c 20 es still known,
66d0: 74 61 6b 65 20 74 68 65 69 72 20 72 61 6e 67 65 take their range
66e0: 20 61 6e 64 0a 09 20 20 20 20 23 20 73 65 65 20 and.. # see
66f0: 69 66 20 74 68 65 20 62 72 65 61 6b 20 6c 6f 63 if the break loc
6700: 61 74 69 6f 6e 20 66 61 6c 6c 73 20 77 69 74 68 ation falls with
6710: 69 6e 2e 0a 0a 09 20 20 20 20 42 6f 72 64 65 72 in.... Border
6720: 20 24 72 61 6e 67 65 20 73 20 65 0a 09 20 20 20 $range s e..
6730: 20 69 66 20 7b 24 6c 6f 63 61 74 69 6f 6e 20 3c if {$location <
6740: 20 24 73 7d 20 63 6f 6e 74 69 6e 75 65 20 3b 20 $s} continue ;
6750: 23 20 62 72 65 61 6b 20 62 65 66 6f 72 65 20 72 # break before r
6760: 61 6e 67 65 2c 20 69 67 6e 6f 72 65 0a 09 20 20 ange, ignore..
6770: 20 20 69 66 20 7b 24 6c 6f 63 61 74 69 6f 6e 20 if {$location
6780: 3e 20 24 65 7d 20 63 6f 6e 74 69 6e 75 65 20 3b > $e} continue ;
6790: 20 23 20 62 72 65 61 6b 20 61 66 74 65 72 20 72 # break after r
67a0: 61 6e 67 65 2c 20 69 67 6e 6f 72 65 2e 0a 0a 09 ange, ignore....
67b0: 20 20 20 20 23 20 54 68 69 73 20 64 65 70 65 6e # This depen
67c0: 64 65 6e 63 79 20 63 72 6f 73 73 65 73 20 74 68 dency crosses th
67d0: 65 20 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e e break location
67e0: 2e 20 57 65 20 72 65 6d 6f 76 65 20 69 74 0a 09 . We remove it..
67f0: 20 20 20 20 23 20 66 72 6f 6d 20 74 68 65 20 63 # from the c
6800: 72 6f 73 73 69 6e 67 73 20 63 6f 75 6e 74 65 72 rossings counter
6810: 73 2c 20 61 6e 64 20 74 68 65 6e 20 61 6c 73 6f s, and then also
6820: 20 66 72 6f 6d 20 74 68 65 20 73 65 74 0a 09 20 from the set..
6830: 20 20 20 23 20 6f 66 20 6b 6e 6f 77 6e 20 64 65 # of known de
6840: 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 73 20 77 pendencies, as w
6850: 65 20 61 72 65 20 64 6f 6e 65 20 77 69 74 68 20 e are done with
6860: 69 74 2e 0a 0a 09 20 20 20 20 66 6f 72 65 61 63 it.... foreac
6870: 68 20 6c 6f 63 20 24 64 65 70 63 28 24 64 65 70 h loc $depc($dep
6880: 29 20 7b 20 69 6e 63 72 20 63 72 6f 73 73 28 24 ) { incr cross($
6890: 6c 6f 63 29 20 2d 31 20 7d 0a 09 20 20 20 20 75 loc) -1 }.. u
68a0: 6e 73 65 74 20 64 65 70 63 28 24 64 65 70 29 0a nset depc($dep).
68b0: 0a 09 20 20 20 20 69 66 20 7b 21 24 73 69 78 7d .. if {!$six}
68c0: 20 63 6f 6e 74 69 6e 75 65 0a 0a 09 20 20 20 20 continue...
68d0: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 struct::list ass
68e0: 69 67 6e 20 24 64 65 70 20 70 61 72 65 6e 74 20 ign $dep parent
68f0: 63 68 69 6c 64 0a 09 20 20 20 20 6c 6f 67 20 77 child.. log w
6900: 72 69 74 65 20 35 20 63 73 65 74 73 20 22 42 72 rite 5 csets "Br
6910: 6f 6b 65 20 64 65 70 65 6e 64 65 6e 63 79 20 5b oke dependency [
6920: 50 44 20 24 70 61 72 65 6e 74 5d 20 2d 2d 3e 20 PD $parent] -->
6930: 5b 50 44 20 24 63 68 69 6c 64 5d 22 0a 09 7d 0a [PD $child]"..}.
6940: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
6950: 20 20 20 20 23 20 50 72 69 6e 74 20 69 64 65 6e # Print iden
6960: 74 69 66 79 69 6e 67 20 64 61 74 61 20 66 6f 72 tifying data for
6970: 20 61 20 72 65 76 69 73 69 6f 6e 20 28 70 72 6f a revision (pro
6980: 6a 65 63 74 2c 20 66 69 6c 65 2c 20 64 6f 74 74 ject, file, dott
6990: 65 64 20 72 65 76 0a 20 20 20 20 23 20 6e 75 6d ed rev. # num
69a0: 62 65 72 29 2c 20 66 6f 72 20 68 69 67 68 20 76 ber), for high v
69b0: 65 72 62 6f 73 69 74 79 20 6c 6f 67 20 6f 75 74 erbosity log out
69c0: 70 75 74 2e 0a 20 20 20 20 23 20 54 4f 44 4f 3a put.. # TODO:
69d0: 20 52 65 70 6c 61 63 65 20 77 69 74 68 20 63 61 Replace with ca
69e0: 6c 6c 20 74 6f 20 69 74 65 6d 73 74 72 20 28 6c ll to itemstr (l
69f0: 69 73 74 20 72 65 76 20 24 69 64 29 0a 0a 20 20 ist rev $id)..
6a00: 20 20 70 72 6f 63 20 50 44 20 7b 69 64 7d 20 7b proc PD {id} {
6a10: 0a 09 66 6f 72 65 61 63 68 20 7b 70 20 66 20 72 ..foreach {p f r
6a20: 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 } [state run {..
6a30: 09 53 45 4c 45 43 54 20 50 2e 6e 61 6d 65 20 2c .SELECT P.name ,
6a40: 20 46 2e 6e 61 6d 65 2c 20 52 2e 72 65 76 0a 09 F.name, R.rev..
6a50: 09 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 .FROM revision R
6a60: 2c 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 , file F, projec
6a70: 74 20 50 0a 09 09 57 48 45 52 45 20 52 2e 72 69 t P...WHERE R.ri
6a80: 64 20 3d 20 24 69 64 20 20 20 20 2d 2d 20 46 69 d = $id -- Fi
6a90: 6e 64 20 73 70 65 63 69 66 69 65 64 20 66 69 6c nd specified fil
6aa0: 65 20 72 65 76 69 73 69 6f 6e 0a 09 09 41 4e 44 e revision...AND
6ab0: 20 20 20 46 2e 66 69 64 20 3d 20 52 2e 66 69 64 F.fid = R.fid
6ac0: 20 20 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 -- Get file of
6ad0: 20 74 68 65 20 72 65 76 69 73 69 6f 6e 0a 09 09 the revision...
6ae0: 41 4e 44 20 20 20 50 2e 70 69 64 20 3d 20 46 2e AND P.pid = F.
6af0: 70 69 64 20 20 2d 2d 20 47 65 74 20 70 72 6f 6a pid -- Get proj
6b00: 65 63 74 20 6f 66 20 74 68 65 20 66 69 6c 65 2e ect of the file.
6b10: 0a 09 7d 5d 20 62 72 65 61 6b 0a 09 72 65 74 75 ..}] break..retu
6b20: 72 6e 20 22 27 24 70 20 3a 20 24 66 2f 24 72 27 rn "'$p : $f/$r'
6b30: 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 50 ". }.. # P
6b40: 72 69 6e 74 69 6e 67 20 6f 6e 65 20 6f 72 20 6d rinting one or m
6b50: 6f 72 65 20 72 61 6e 67 65 73 2c 20 66 6f 72 6d ore ranges, form
6b60: 61 74 74 65 64 2c 20 61 6e 64 20 6f 6e 6c 79 20 atted, and only
6b70: 74 68 65 69 72 20 62 6f 72 64 65 72 20 74 6f 0a their border to.
6b80: 20 20 20 20 23 20 6b 65 65 70 20 74 68 65 20 73 # keep the s
6b90: 74 72 69 6e 67 73 20 73 68 6f 72 74 2e 0a 0a 20 trings short...
6ba0: 20 20 20 70 72 6f 63 20 50 52 73 20 7b 72 61 6e proc PRs {ran
6bb0: 67 65 73 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b ges} {..return [
6bc0: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 struct::list map
6bd0: 20 24 72 61 6e 67 65 73 20 5b 6d 79 70 72 6f 63 $ranges [myproc
6be0: 20 50 52 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 PR]]. }..
6bf0: 20 70 72 6f 63 20 50 52 20 7b 72 61 6e 67 65 7d proc PR {range}
6c00: 20 7b 0a 09 42 6f 72 64 65 72 20 24 72 61 6e 67 {..Border $rang
6c10: 65 20 73 20 65 0a 09 72 65 74 75 72 6e 20 3c 24 e s e..return <$
6c20: 7b 73 7d 2e 2e 2e 24 7b 65 7d 3e 0a 20 20 20 20 {s}...${e}>.
6c30: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 42 6f 72 64 }.. proc Bord
6c40: 65 72 20 7b 72 61 6e 67 65 20 73 76 20 65 76 7d er {range sv ev}
6c50: 20 7b 0a 09 75 70 76 61 72 20 31 20 24 73 76 20 {..upvar 1 $sv
6c60: 73 20 24 65 76 20 65 0a 09 73 65 74 20 73 20 5b s $ev e..set s [
6c70: 6c 69 6e 64 65 78 20 24 72 61 6e 67 65 20 30 5d lindex $range 0]
6c80: 0a 09 73 65 74 20 65 20 5b 6c 69 6e 64 65 78 20 ..set e [lindex
6c90: 24 72 61 6e 67 65 20 65 6e 64 5d 0a 09 72 65 74 $range end]..ret
6ca0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
6cb0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
6cc0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
6cd0: 23 23 23 23 23 23 0a 0a 20 20 20 20 74 79 70 65 ######.. type
6ce0: 76 61 72 69 61 62 6c 65 20 6d 79 63 68 61 6e 67 variable mychang
6cf0: 65 73 65 74 73 20 20 20 20 20 20 20 20 20 7b 7d esets {}
6d00: 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 61 6c 6c ; # List of all
6d10: 20 6b 6e 6f 77 6e 0a 09 09 09 09 09 20 20 20 23 known...... #
6d20: 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 20 20 20 changesets..
6d30: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
6d40: 74 63 68 61 6e 67 65 73 65 74 73 20 2d 61 72 72 tchangesets -arr
6d50: 61 79 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f ay {} ; # List o
6d60: 66 20 61 6c 6c 20 6b 6e 6f 77 6e 0a 09 09 09 09 f all known.....
6d70: 09 20 20 20 23 20 63 68 61 6e 67 65 73 65 74 73 . # changesets
6d80: 20 6f 66 20 61 20 74 79 70 65 2e 0a 20 20 20 20 of a type..
6d90: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 69 typevariable myi
6da0: 74 65 6d 6d 61 70 20 20 20 20 20 2d 61 72 72 61 temmap -arra
6db0: 79 20 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f y {} ; # Map fro
6dc0: 6d 20 69 74 65 6d 73 20 28 74 61 67 67 65 64 29 m items (tagged)
6dd0: 0a 09 09 09 09 09 20 20 20 23 20 74 6f 20 74 68 ...... # to th
6de0: 65 20 6c 69 73 74 20 6f 66 20 63 68 61 6e 67 65 e list of change
6df0: 73 65 74 73 0a 09 09 09 09 09 20 20 20 23 20 63 sets...... # c
6e00: 6f 6e 74 61 69 6e 69 6e 67 20 69 74 2e 20 45 61 ontaining it. Ea
6e10: 63 68 20 69 74 65 6d 0a 09 09 09 09 09 20 20 20 ch item......
6e20: 23 20 63 61 6e 20 62 65 20 75 73 65 64 20 62 79 # can be used by
6e30: 20 6f 6e 6c 79 20 6f 6e 65 0a 09 09 09 09 09 20 only one......
6e40: 20 20 23 20 63 68 61 6e 67 65 73 65 74 2e 0a 20 # changeset..
6e50: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
6e60: 6d 79 69 64 6d 61 70 20 20 20 2d 61 72 72 61 79 myidmap -array
6e70: 20 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d {} ; # Map from
6e80: 20 63 68 61 6e 67 65 73 65 74 20 69 64 20 74 6f changeset id to
6e90: 0a 09 09 09 09 20 20 20 20 20 20 20 23 20 63 68 ..... # ch
6ea0: 61 6e 67 65 73 65 74 2e 0a 0a 20 20 20 20 74 79 angeset... ty
6eb0: 70 65 6d 65 74 68 6f 64 20 61 6c 6c 20 20 20 20 pemethod all
6ec0: 7b 7d 20 20 20 20 7b 20 72 65 74 75 72 6e 20 24 {} { return $
6ed0: 6d 79 63 68 61 6e 67 65 73 65 74 73 20 7d 0a 20 mychangesets }.
6ee0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 typemethod of
6ef0: 20 20 20 20 20 7b 63 69 64 7d 20 7b 20 72 65 74 {cid} { ret
6f00: 75 72 6e 20 24 6d 79 69 64 6d 61 70 28 24 63 69 urn $myidmap($ci
6f10: 64 29 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 d) }. typemet
6f20: 68 6f 64 20 6f 66 69 74 65 6d 20 7b 69 69 64 7d hod ofitem {iid}
6f30: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 69 74 65 { return $myite
6f40: 6d 6d 61 70 28 24 69 69 64 29 20 7d 0a 0a 20 20 mmap($iid) }..
6f50: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 72 65 76 typemethod rev
6f60: 20 20 20 20 7b 7d 20 20 20 20 7b 20 72 65 74 75 {} { retu
6f70: 72 6e 20 24 6d 79 74 63 68 61 6e 67 65 73 65 74 rn $mytchangeset
6f80: 73 28 72 65 76 29 20 7d 0a 20 20 20 20 74 79 70 s(rev) }. typ
6f90: 65 6d 65 74 68 6f 64 20 73 79 6d 20 20 20 20 7b emethod sym {
6fa0: 7d 20 20 20 20 7b 20 72 65 74 75 72 6e 20 5b 63 } { return [c
6fb0: 6f 6e 63 61 74 20 5c 0a 09 09 09 09 09 20 20 24 oncat \...... $
6fc0: 7b 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 73 {mytchangesets(s
6fd0: 79 6d 3a 3a 62 72 61 6e 63 68 29 7d 20 5c 0a 09 ym::branch)} \..
6fe0: 09 09 09 09 20 20 24 7b 6d 79 74 63 68 61 6e 67 .... ${mytchang
6ff0: 65 73 65 74 73 28 73 79 6d 3a 3a 74 61 67 29 7d esets(sym::tag)}
7000: 5d 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 ] }.. # # ##
7010: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
7020: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
7030: 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 67 75 72 . ## Configur
7040: 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 61 67 6d ation.. pragm
7050: 61 20 2d 68 61 73 74 79 70 65 69 6e 66 6f 20 20 a -hastypeinfo
7060: 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 74 79 70 no ; # no typ
7070: 65 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a e introspection.
7080: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 pragma -hasi
7090: 6e 66 6f 20 20 20 20 20 20 20 20 6e 6f 20 20 3b nfo no ;
70a0: 20 23 20 6e 6f 20 6f 62 6a 65 63 74 20 69 6e 74 # no object int
70b0: 72 6f 73 70 65 63 74 69 6f 6e 0a 0a 20 20 20 20 rospection..
70c0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
70d0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
70e0: 23 23 23 23 23 23 23 0a 7d 0a 0a 23 23 0a 23 23 #######.}..##.##
70f0: 20 4e 4f 54 45 3a 20 54 68 65 20 73 75 63 63 65 NOTE: The succe
7100: 73 73 6f 72 20 61 6e 64 20 70 72 65 64 65 63 65 ssor and predece
7110: 73 73 6f 72 20 6d 65 74 68 6f 64 73 20 64 65 66 ssor methods def
7120: 69 6e 65 64 20 62 79 20 74 68 65 20 63 6c 61 73 ined by the clas
7130: 73 65 73 0a 23 23 20 20 20 20 20 20 20 62 65 6c ses.## bel
7140: 6f 77 20 61 72 65 20 2d 2d 20 62 6f 74 74 6c 65 ow are -- bottle
7150: 20 6e 65 63 6b 73 20 2d 2d 2e 20 4c 6f 6f 6b 20 necks --. Look
7160: 66 6f 72 20 77 61 79 73 20 74 6f 20 6d 61 6b 65 for ways to make
7170: 20 74 68 65 20 53 51 4c 0a 23 23 20 20 20 20 20 the SQL.##
7180: 20 20 66 61 73 74 65 72 2e 0a 23 23 0a 0a 23 20 faster..##..#
7190: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
71a0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
71b0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
71c0: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 48 ###########.## H
71d0: 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 2e elper singleton.
71e0: 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 72 65 Commands for re
71f0: 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 vision changeset
7200: 73 2e 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a s...snit::type :
7210: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
7220: 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 ort::cvs::projec
7230: 74 3a 3a 72 65 76 3a 3a 72 65 76 20 7b 0a 20 20 t::rev::rev {.
7240: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 72 typemethod byr
7250: 65 76 69 73 69 6f 6e 20 7b 7d 20 7b 20 72 65 74 evision {} { ret
7260: 75 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 urn 1 }. type
7270: 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c 20 method bysymbol
7280: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 {} { return 0
7290: 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 }. typemethod
72a0: 20 69 73 74 61 67 20 20 20 20 20 20 7b 7d 20 7b istag {} {
72b0: 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 return 0 }.
72c0: 74 79 70 65 6d 65 74 68 6f 64 20 69 73 62 72 61 typemethod isbra
72d0: 6e 63 68 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 nch {} { retur
72e0: 6e 20 30 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d n 0 }.. typem
72f0: 65 74 68 6f 64 20 73 74 72 20 7b 72 65 76 69 73 ethod str {revis
7300: 69 6f 6e 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a ion} {..struct::
7310: 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 73 74 61 list assign [sta
7320: 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 te run {.. SE
7330: 4c 45 43 54 20 52 2e 72 65 76 2c 20 46 2e 6e 61 LECT R.rev, F.na
7340: 6d 65 2c 20 50 2e 6e 61 6d 65 0a 09 20 20 20 20 me, P.name..
7350: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
7360: 52 2c 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 R, file F, proje
7370: 63 74 20 50 0a 09 20 20 20 20 57 48 45 52 45 20 ct P.. WHERE
7380: 20 52 2e 72 69 64 20 3d 20 24 72 65 76 69 73 69 R.rid = $revisi
7390: 6f 6e 20 2d 2d 20 46 69 6e 64 20 73 70 65 63 69 on -- Find speci
73a0: 66 69 65 64 20 66 69 6c 65 20 72 65 76 69 73 69 fied file revisi
73b0: 6f 6e 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 on.. AND F
73c0: 2e 66 69 64 20 3d 20 52 2e 66 69 64 20 20 20 20 .fid = R.fid
73d0: 20 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 20 -- Get file of
73e0: 74 68 65 20 72 65 76 69 73 69 6f 6e 0a 09 20 20 the revision..
73f0: 20 20 41 4e 44 20 20 20 20 50 2e 70 69 64 20 3d AND P.pid =
7400: 20 46 2e 70 69 64 20 20 20 20 20 2d 2d 20 47 65 F.pid -- Ge
7410: 74 20 70 72 6f 6a 65 63 74 20 6f 66 20 74 68 65 t project of the
7420: 20 66 69 6c 65 2e 0a 09 7d 5d 20 72 65 76 6e 72 file...}] revnr
7430: 20 66 6e 61 6d 65 20 70 6e 61 6d 65 0a 09 72 65 fname pname..re
7440: 74 75 72 6e 20 22 24 70 6e 61 6d 65 2f 24 7b 72 turn "$pname/${r
7450: 65 76 6e 72 7d 3a 3a 24 66 6e 61 6d 65 22 0a 20 evnr}::$fname".
7460: 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 }.. # resu
7470: 6c 74 20 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 lt = list (minti
7480: 6d 65 2c 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 me, maxtime).
7490: 20 74 79 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 typemethod time
74a0: 72 61 6e 67 65 20 7b 69 74 65 6d 73 7d 20 7b 0a range {items} {.
74b0: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
74c0: 6f 69 6e 20 24 69 74 65 6d 73 20 7b 27 2c 27 7d oin $items {','}
74d0: 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 ]')..return [sta
74e0: 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e te run [subst -n
74f0: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 ocommands -nobac
7500: 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 kslashes {..
7510: 53 45 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 SELECT MIN(R.dat
7520: 65 29 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a e), MAX(R.date).
7530: 09 20 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 . FROM revisi
7540: 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 on R.. WHERE
7550: 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 R.rid IN $theset
7560: 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 -- Restrict to
7570: 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 revisions of int
7580: 65 72 65 73 74 0a 09 7d 5d 5d 0a 20 20 20 20 7d erest..}]]. }
7590: 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 29 20 .. # var(dv)
75a0: 3d 20 64 69 63 74 20 28 72 65 76 69 73 69 6f 6e = dict (revision
75b0: 20 2d 3e 20 6c 69 73 74 20 28 72 65 76 69 73 69 -> list (revisi
75c0: 6f 6e 29 29 0a 20 20 20 20 74 79 70 65 6d 65 74 on)). typemet
75d0: 68 6f 64 20 69 6e 74 65 72 6e 61 6c 73 75 63 63 hod internalsucc
75e0: 65 73 73 6f 72 73 20 7b 64 76 20 72 65 76 69 73 essors {dv revis
75f0: 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 ions} {..upvar 1
7600: 20 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 $dv dependencie
7610: 73 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 s..set theset ('
7620: 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 [join $revisions
7630: 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 23 20 53 65 {','}]')...# Se
7640: 65 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 62 e 'successors' b
7650: 65 6c 6f 77 20 66 6f 72 20 74 68 65 20 6d 61 69 elow for the mai
7660: 6e 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 n explanation of
7670: 0a 09 23 20 74 68 65 20 76 61 72 69 6f 75 73 20 ..# the various
7680: 63 61 73 65 73 2e 20 54 68 69 73 20 70 69 65 63 cases. This piec
7690: 65 20 69 73 20 73 70 65 63 69 61 6c 20 69 6e 20 e is special in
76a0: 74 68 61 74 20 69 74 0a 09 23 20 72 65 73 74 72 that it..# restr
76b0: 69 63 74 73 20 74 68 65 20 73 75 63 63 65 73 73 icts the success
76c0: 6f 72 73 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 ors we look for
76d0: 74 6f 20 74 68 65 20 73 61 6d 65 20 73 65 74 20 to the same set
76e0: 6f 66 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 20 of..# revisions
76f0: 77 65 20 73 74 61 72 74 20 66 72 6f 6d 2e 20 53 we start from. S
7700: 65 6e 73 69 62 6c 65 20 61 73 20 77 65 20 61 72 ensible as we ar
7710: 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a 09 23 e looking for..#
7720: 20 63 68 61 6e 67 65 73 65 74 20 69 6e 74 65 72 changeset inter
7730: 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 nal dependencies
7740: 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 64 65 ....array set de
7750: 70 20 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b p {}...foreach {
7760: 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 rid child} [stat
7770: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
7780: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
7790: 73 6c 61 73 68 65 73 20 7b 0a 20 20 20 20 2d 2d slashes {. --
77a0: 20 28 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 (1) Primary chi
77b0: 6c 64 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 ld.. SELECT R
77c0: 2e 72 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 .rid, R.child..
77d0: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
77e0: 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 on R.. WHERE
77f0: 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 R.rid IN $the
7800: 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 set -- Restr
7810: 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 ict to revisions
7820: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 of interest..
7830: 20 20 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 AND R.child
7840: 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 IS NOT NULL
7850: 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 -- Has primary c
7860: 68 69 6c 64 0a 09 20 20 20 20 41 4e 44 20 20 20 hild.. AND
7870: 20 52 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 R.child IN $the
7880: 73 65 74 20 20 20 20 20 2d 2d 20 57 68 69 63 68 set -- Which
7890: 20 69 73 20 61 6c 73 6f 20 6f 66 20 69 6e 74 65 is also of inte
78a0: 72 65 73 74 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 rest. UNION.
78b0: 20 20 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 -- (2) Second
78c0: 61 72 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 ary (branch) chi
78d0: 6c 64 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 ldren.. SELEC
78e0: 54 20 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a T R.rid, B.brid.
78f0: 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 . FROM revi
7900: 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e sion R, revision
7910: 62 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 branchchildren B
7920: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
7930: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
7940: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
7950: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
7960: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
7970: 44 20 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 D R.rid = B.r
7980: 69 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 id -- S
7990: 65 6c 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 elect subset of
79a0: 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a branch children.
79b0: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 62 72 . AND B.br
79c0: 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 id IN $theset
79d0: 20 20 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 -- Which is a
79e0: 6c 73 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a lso of interest.
79f0: 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d UNION. --
7a00: 20 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 (4) Child of tr
7a10: 75 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 unk root success
7a20: 6f 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 or of last NTDB
7a30: 6f 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 on trunk... S
7a40: 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e ELECT R.rid, RA.
7a50: 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 child.. FROM
7a60: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
7a70: 73 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 sion RA.. WHE
7a80: 52 45 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 RE R.rid IN $t
7a90: 68 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 heset -- Re
7aa0: 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 strict to revisi
7ab0: 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a ons of interest.
7ac0: 09 20 20 20 20 41 4e 44 20 20 20 52 2e 69 73 64 . AND R.isd
7ad0: 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 efault
7ae0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
7af0: 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 o NTDB.. AND
7b00: 20 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 4e R.dbchild IS N
7b10: 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 OT NULL -- and
7b20: 20 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e last NTDB belon
7b30: 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 ging to trunk..
7b40: 20 20 20 41 4e 44 20 20 20 52 41 2e 72 69 64 20 AND RA.rid
7b50: 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 = R.dbchild
7b60: 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 -- Go directly
7b70: 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 to trunk root..
7b80: 20 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c AND RA.chil
7b90: 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 d IS NOT NULL
7ba0: 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 -- Has primary
7bb0: 63 68 69 6c 64 2e 0a 20 20 20 20 20 20 20 20 20 child..
7bc0: 20 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c AND RA.chil
7bd0: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
7be0: 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c 73 -- Which is als
7bf0: 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 7d o of interest..}
7c00: 5d 5d 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e 73 ]] {.. # Cons
7c10: 69 64 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 73 ider moving this
7c20: 20 74 6f 20 74 68 65 20 69 6e 74 65 67 72 69 74 to the integrit
7c30: 79 20 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 69 y module... i
7c40: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
7c50: 7b 24 72 69 64 20 21 3d 20 24 63 68 69 6c 64 7d {$rid != $child}
7c60: 20 7b 52 65 76 69 73 69 6f 6e 20 24 72 69 64 20 {Revision $rid
7c70: 64 65 70 65 6e 64 73 20 6f 6e 20 69 74 73 65 6c depends on itsel
7c80: 66 2e 7d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 f.}.. lappend
7c90: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 24 72 dependencies($r
7ca0: 69 64 29 20 24 63 68 69 6c 64 0a 09 20 20 20 20 id) $child..
7cb0: 73 65 74 20 64 65 70 28 24 72 69 64 2c 24 63 68 set dep($rid,$ch
7cc0: 69 6c 64 29 20 2e 0a 09 7d 0a 0a 09 23 20 54 68 ild) ...}...# Th
7cd0: 65 20 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 73 e sql statements
7ce0: 20 61 62 6f 76 65 20 6c 6f 6f 6b 73 20 6f 6e 6c above looks onl
7cf0: 79 20 66 6f 72 20 64 69 72 65 63 74 20 64 65 70 y for direct dep
7d00: 65 6e 64 65 6e 63 69 65 73 0a 09 23 20 62 65 74 endencies..# bet
7d10: 77 65 65 6e 20 72 65 76 69 73 69 6f 6e 20 69 6e ween revision in
7d20: 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 the changeset.
7d30: 48 6f 77 65 76 65 72 20 64 75 65 20 74 6f 20 74 However due to t
7d40: 68 65 0a 09 23 20 76 61 67 61 72 69 65 73 20 6f he..# vagaries o
7d50: 66 20 6d 65 74 61 20 64 61 74 61 20 69 74 20 69 f meta data it i
7d60: 73 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 s possible for t
7d70: 77 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 0a wo revisions of.
7d80: 09 23 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 .# the same file
7d90: 20 74 6f 20 65 6e 64 20 75 70 20 69 6e 20 74 68 to end up in th
7da0: 65 20 73 61 6d 65 20 63 68 61 6e 67 65 73 65 74 e same changeset
7db0: 2c 20 77 69 74 68 6f 75 74 20 61 0a 09 23 20 64 , without a..# d
7dc0: 69 72 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 irect dependency
7dd0: 20 62 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 48 between them. H
7de0: 6f 77 65 76 65 72 20 77 65 20 6b 6e 6f 77 20 74 owever we know t
7df0: 68 61 74 20 74 68 65 72 65 0a 09 23 20 68 61 73 hat there..# has
7e00: 20 74 6f 20 62 65 20 61 20 61 6e 20 69 6e 64 69 to be a an indi
7e10: 72 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 2c rect dependency,
7e20: 20 62 65 20 69 74 20 74 68 72 6f 75 67 68 20 70 be it through p
7e30: 72 69 6d 61 72 79 0a 09 23 20 63 68 69 6c 64 72 rimary..# childr
7e40: 65 6e 2c 20 62 72 61 6e 63 68 20 63 68 69 6c 64 en, branch child
7e50: 72 65 6e 2c 20 6f 72 20 61 20 63 6f 6d 62 69 6e ren, or a combin
7e60: 61 74 69 6f 6e 20 74 68 65 72 65 6f 66 2e 0a 0a ation thereof...
7e70: 09 23 20 57 65 20 6e 6f 77 20 66 69 6c 6c 20 69 .# We now fill i
7e80: 6e 20 74 68 65 73 65 20 70 73 65 75 64 6f 2d 64 n these pseudo-d
7e90: 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 69 66 20 ependencies, if
7ea0: 6e 6f 20 73 75 63 68 0a 09 23 20 64 65 70 65 6e no such..# depen
7eb0: 64 65 6e 63 79 20 65 78 69 73 74 73 20 61 6c 72 dency exists alr
7ec0: 65 61 64 79 2e 20 54 68 65 20 64 69 72 65 63 74 eady. The direct
7ed0: 69 6f 6e 20 6f 66 20 74 68 65 20 64 65 70 65 6e ion of the depen
7ee0: 64 65 6e 63 79 0a 09 23 20 69 73 20 61 63 74 75 dency..# is actu
7ef0: 61 6c 6c 79 20 69 72 72 65 6c 65 76 61 6e 74 20 ally irrelevant
7f00: 66 6f 72 20 74 68 69 73 2e 0a 0a 09 23 20 4e 4f for this....# NO
7f10: 54 45 3a 20 54 68 69 73 20 69 73 20 64 69 66 66 TE: This is diff
7f20: 65 72 65 6e 74 20 66 72 6f 6d 20 63 76 73 32 73 erent from cvs2s
7f30: 76 6e 2e 20 4f 75 72 20 73 70 69 72 69 74 75 61 vn. Our spiritua
7f40: 6c 20 61 6e 63 65 73 74 6f 72 0a 09 23 20 64 6f l ancestor..# do
7f50: 65 73 20 6e 6f 74 20 75 73 65 20 73 75 63 68 20 es not use such
7f60: 70 73 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 pseudo-dependenc
7f70: 69 65 73 2c 20 68 6f 77 65 76 65 72 20 69 74 20 ies, however it
7f80: 75 73 65 73 20 61 0a 09 23 20 43 4f 4d 4d 49 54 uses a..# COMMIT
7f90: 5f 54 48 52 45 53 48 4f 4c 44 2c 20 61 20 74 69 _THRESHOLD, a ti
7fa0: 6d 65 20 69 6e 74 65 72 76 61 6c 20 63 6f 6d 6d me interval comm
7fb0: 69 74 73 20 73 68 6f 75 6c 64 20 66 61 6c 6c 2e its should fall.
7fc0: 20 54 68 69 73 0a 09 23 20 77 69 6c 6c 20 67 72 This..# will gr
7fd0: 65 61 74 6c 79 20 72 65 64 75 63 65 73 20 74 68 eatly reduces th
7fe0: 65 20 72 69 73 6b 20 6f 66 20 67 65 74 74 69 6e e risk of gettin
7ff0: 67 20 66 61 72 20 73 65 70 61 72 61 74 65 64 0a g far separated.
8000: 09 23 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 .# revisions of
8010: 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e the same file in
8020: 74 6f 20 6f 6e 65 20 63 68 61 6e 67 65 73 65 74 to one changeset
8030: 2e 0a 0a 09 23 20 57 65 20 61 6c 6c 6f 77 20 72 ....# We allow r
8040: 65 76 69 73 69 6f 6e 73 20 74 6f 20 62 65 20 66 evisions to be f
8050: 61 72 20 61 70 61 72 74 20 69 6e 20 74 69 6d 65 ar apart in time
8060: 20 69 6e 20 74 68 65 20 73 61 6d 65 0a 09 23 20 in the same..#
8070: 63 68 61 6e 67 65 73 65 74 2c 20 62 75 74 20 69 changeset, but i
8080: 6e 20 74 75 72 6e 20 6e 65 65 64 20 74 68 65 20 n turn need the
8090: 70 73 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 pseudo-dependenc
80a0: 69 65 73 20 74 6f 0a 09 23 20 68 61 6e 64 6c 65 ies to..# handle
80b0: 20 74 68 69 73 2e 0a 0a 09 61 72 72 61 79 20 73 this....array s
80c0: 65 74 20 66 69 64 73 20 7b 7d 0a 09 66 6f 72 65 et fids {}..fore
80d0: 61 63 68 20 7b 72 69 64 20 66 69 64 7d 20 5b 73 ach {rid fid} [s
80e0: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
80f0: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
8100: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
8110: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
8120: 52 2e 66 69 64 0a 20 20 20 20 20 20 20 20 20 20 R.fid.
8130: 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f FROM revisio
8140: 6e 20 52 0a 20 20 20 20 20 20 20 20 20 20 20 20 n R.
8150: 57 48 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 WHERE R.rid IN
8160: 24 74 68 65 73 65 74 0a 09 7d 5d 5d 20 7b 20 6c $theset..}]] { l
8170: 61 70 70 65 6e 64 20 66 69 64 73 28 24 66 69 64 append fids($fid
8180: 29 20 24 72 69 64 20 7d 0a 0a 09 66 6f 72 65 61 ) $rid }...forea
8190: 63 68 20 7b 66 69 64 20 72 69 64 73 7d 20 5b 61 ch {fid rids} [a
81a0: 72 72 61 79 20 67 65 74 20 66 69 64 73 5d 20 7b rray get fids] {
81b0: 0a 09 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 .. if {[lleng
81c0: 74 68 20 24 72 69 64 73 5d 20 3c 20 32 7d 20 63 th $rids] < 2} c
81d0: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 66 6f 72 ontinue.. for
81e0: 65 61 63 68 20 61 20 24 72 69 64 73 20 7b 0a 09 each a $rids {..
81f0: 09 66 6f 72 65 61 63 68 20 62 20 24 72 69 64 73 .foreach b $rids
8200: 20 7b 0a 09 09 20 20 20 20 69 66 20 7b 24 61 20 {... if {$a
8210: 3d 3d 20 24 62 7d 20 63 6f 6e 74 69 6e 75 65 0a == $b} continue.
8220: 09 09 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 .. if {[info
8230: 65 78 69 73 74 73 20 64 65 70 28 24 61 2c 24 62 exists dep($a,$b
8240: 29 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 )]} continue...
8250: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
8260: 73 74 73 20 64 65 70 28 24 62 2c 24 61 29 5d 7d sts dep($b,$a)]}
8270: 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 continue...
8280: 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e lappend dependen
8290: 63 69 65 73 28 24 61 29 20 24 62 0a 09 09 20 20 cies($a) $b...
82a0: 20 20 73 65 74 20 64 65 70 28 24 61 2c 24 62 29 set dep($a,$b)
82b0: 20 2e 0a 09 09 20 20 20 20 73 65 74 20 64 65 70 .... set dep
82c0: 28 24 62 2c 24 61 29 20 2e 0a 09 09 7d 0a 09 20 ($b,$a) ....}..
82d0: 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a }..}..return.
82e0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 }.. # res
82f0: 75 6c 74 20 3d 20 34 2d 6c 69 73 74 20 28 69 74 ult = 4-list (it
8300: 65 6d 74 79 70 65 20 69 74 65 6d 69 64 20 6e 65 emtype itemid ne
8310: 78 74 69 74 65 6d 74 79 70 65 20 6e 65 78 74 69 xtitemtype nexti
8320: 74 65 6d 69 64 20 2e 2e 2e 29 0a 20 20 20 20 74 temid ...). t
8330: 79 70 65 6d 65 74 68 6f 64 20 6c 6f 6f 70 73 20 ypemethod loops
8340: 7b 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 23 {revisions} {..#
8350: 20 4e 6f 74 65 3a 20 54 61 67 73 20 61 6e 64 20 Note: Tags and
8360: 62 72 61 6e 63 68 65 73 20 63 61 6e 6e 6f 74 20 branches cannot
8370: 63 61 75 73 65 20 74 68 65 20 6c 6f 6f 70 2e 20 cause the loop.
8380: 54 68 65 69 72 20 69 64 27 73 2c 0a 09 23 20 62 Their id's,..# b
8390: 65 69 6e 67 20 6f 66 20 61 20 66 75 6e 64 61 6d eing of a fundam
83a0: 65 6e 74 61 6c 6c 79 20 64 69 66 66 65 72 65 6e entally differen
83b0: 74 20 74 79 70 65 20 74 68 61 6e 20 74 68 65 20 t type than the
83c0: 72 65 76 69 73 69 6f 6e 73 0a 09 23 20 63 6f 6d revisions..# com
83d0: 69 6e 67 20 69 6e 20 63 61 6e 6e 6f 74 20 62 65 ing in cannot be
83e0: 20 69 6e 20 74 68 65 20 73 65 74 2e 0a 0a 09 73 in the set....s
83f0: 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 et theset ('[joi
8400: 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c n $revisions {',
8410: 27 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 '}]')..return [s
8420: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
8430: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
8440: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
8450: 20 20 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 79 -- (1) Primary
8460: 20 63 68 69 6c 64 0a 09 20 20 20 20 53 45 4c 45 child.. SELE
8470: 43 54 20 52 2e 72 69 64 2c 20 52 2e 63 68 69 6c CT R.rid, R.chil
8480: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 d.. FROM re
8490: 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 vision R.. WH
84a0: 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 ERE R.rid IN
84b0: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
84c0: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
84d0: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
84e0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 .. AND R.c
84f0: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
8500: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
8510: 72 79 20 63 68 69 6c 64 0a 09 20 20 20 20 41 4e ry child.. AN
8520: 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 4e 20 D R.child IN
8530: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c $theset -- L
8540: 6f 6f 70 0a 09 20 20 20 20 2d 2d 0a 09 20 20 20 oop.. --..
8550: 20 55 4e 49 4f 4e 0a 09 20 20 20 20 2d 2d 20 28 UNION.. -- (
8560: 32 29 20 53 65 63 6f 6e 64 61 72 79 20 28 62 72 2) Secondary (br
8570: 61 6e 63 68 29 20 63 68 69 6c 64 72 65 6e 0a 09 anch) children..
8580: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
8590: 2c 20 42 2e 62 72 69 64 0a 09 20 20 20 20 46 52 , B.brid.. FR
85a0: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c OM revision R,
85b0: 20 72 65 76 69 73 69 6f 6e 62 72 61 6e 63 68 63 revisionbranchc
85c0: 68 69 6c 64 72 65 6e 20 42 0a 09 20 20 20 20 57 hildren B.. W
85d0: 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e HERE R.rid IN
85e0: 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 $theset --
85f0: 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 Restrict to revi
8600: 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 sions of interes
8610: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e t.. AND R.
8620: 72 69 64 20 3d 20 42 2e 72 69 64 20 20 20 20 20 rid = B.rid
8630: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 73 -- Select s
8640: 75 62 73 65 74 20 6f 66 20 62 72 61 6e 63 68 20 ubset of branch
8650: 63 68 69 6c 64 72 65 6e 0a 09 20 20 20 20 41 4e children.. AN
8660: 44 20 20 20 20 42 2e 72 69 64 20 20 20 49 4e 20 D B.rid IN
8670: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c $theset -- L
8680: 6f 6f 70 0a 09 20 20 20 20 2d 2d 0a 09 20 20 20 oop.. --..
8690: 20 55 4e 49 4f 4e 0a 09 20 20 20 20 2d 2d 20 28 UNION.. -- (
86a0: 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 4) Child of trun
86b0: 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 k root successor
86c0: 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e of last NTDB on
86d0: 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c trunk... SEL
86e0: 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 68 ECT R.rid, RA.ch
86f0: 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 ild.. FROM
8700: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
8710: 73 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 sion RA.. WHE
8720: 52 45 20 20 52 2e 72 69 64 20 20 20 20 49 4e 20 RE R.rid IN
8730: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
8740: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
8750: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
8760: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 .. AND R.i
8770: 73 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 sdefault
8780: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
8790: 20 74 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e to NTDB.. AN
87a0: 44 20 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 D R.dbchild I
87b0: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 S NOT NULL --
87c0: 61 6e 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 and last NTDB be
87d0: 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b longing to trunk
87e0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e .. AND RA.
87f0: 72 69 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 rid = R.dbchild
8800: 20 20 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 -- Go direc
8810: 74 6c 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f tly to trunk roo
8820: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 t.. AND RA
8830: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
8840: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
8850: 6d 61 72 79 20 63 68 69 6c 64 2e 0a 09 20 20 20 mary child...
8860: 20 41 4e 44 20 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
8870: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
8880: 2d 2d 20 4c 6f 6f 70 0a 09 7d 5d 5d 0a 20 20 20 -- Loop..}]].
8890: 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 }.. # var(dv
88a0: 29 20 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d ) = dict (item -
88b0: 3e 20 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 > list (item)),
88c0: 69 74 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 item = list (ty
88d0: 70 65 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d pe id). typem
88e0: 65 74 68 6f 64 20 73 75 63 63 65 73 73 6f 72 73 ethod successors
88f0: 20 7b 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 {dv revisions}
8900: 7b 0a 09 75 70 76 61 72 20 31 20 24 64 76 20 64 {..upvar 1 $dv d
8910: 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 73 65 74 ependencies..set
8920: 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 theset ('[join
8930: 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d $revisions {','}
8940: 5d 27 29 0a 0a 09 23 20 54 68 65 20 66 6f 6c 6c ]')...# The foll
8950: 6f 77 69 6e 67 20 63 61 73 65 73 20 73 70 65 63 owing cases spec
8960: 69 66 79 20 77 68 65 6e 20 61 20 72 65 76 69 73 ify when a revis
8970: 69 6f 6e 20 53 20 69 73 20 61 20 73 75 63 63 65 ion S is a succe
8980: 73 73 6f 72 0a 09 23 20 6f 66 20 61 20 72 65 76 ssor..# of a rev
8990: 69 73 69 6f 6e 20 52 2e 20 45 61 63 68 20 6f 66 ision R. Each of
89a0: 20 74 68 65 20 63 61 73 65 73 20 74 72 61 6e 73 the cases trans
89b0: 6c 61 74 65 73 20 69 6e 74 6f 20 6f 6e 65 20 6f lates into one o
89c0: 66 0a 09 23 20 74 68 65 20 62 72 61 6e 63 68 65 f..# the branche
89d0: 73 20 6f 66 20 74 68 65 20 53 51 4c 20 55 4e 49 s of the SQL UNI
89e0: 4f 4e 20 63 6f 6d 69 6e 67 20 62 65 6c 6f 77 2e ON coming below.
89f0: 0a 09 23 0a 09 23 20 28 31 29 20 53 20 63 61 6e ..#..# (1) S can
8a00: 20 62 65 20 61 20 70 72 69 6d 61 72 79 20 63 68 be a primary ch
8a10: 69 6c 64 20 6f 66 20 52 2c 20 69 2e 65 2e 20 69 ild of R, i.e. i
8a20: 6e 20 74 68 65 20 73 61 6d 65 20 4c 4f 44 2e 20 n the same LOD.
8a30: 52 0a 09 23 20 20 20 20 20 72 65 66 65 72 65 6e R..# referen
8a40: 63 65 73 20 53 20 64 69 72 65 63 74 6c 79 2e 20 ces S directly.
8a50: 52 2e 63 68 69 6c 64 20 3d 20 53 28 2e 72 69 64 R.child = S(.rid
8a60: 29 2c 20 69 66 20 69 74 20 65 78 69 73 74 73 2e ), if it exists.
8a70: 0a 09 23 0a 09 23 20 28 32 29 20 53 20 63 61 6e ..#..# (2) S can
8a80: 20 62 65 20 61 20 73 65 63 6f 6e 64 61 72 79 2c be a secondary,
8a90: 20 69 2e 65 2e 20 62 72 61 6e 63 68 2c 20 63 68 i.e. branch, ch
8aa0: 69 6c 64 20 6f 66 20 52 2e 20 48 65 72 65 20 74 ild of R. Here t
8ab0: 68 65 0a 09 23 20 20 20 20 20 6c 69 6e 6b 20 69 he..# link i
8ac0: 73 20 6d 61 64 65 20 74 68 72 6f 75 67 68 20 74 s made through t
8ad0: 68 65 20 68 65 6c 70 65 72 20 74 61 62 6c 65 0a he helper table.
8ae0: 09 23 20 20 20 20 20 52 45 56 49 53 49 4f 4e 42 .# REVISIONB
8af0: 52 41 4e 43 48 43 48 49 4c 44 52 45 4e 2e 20 52 RANCHCHILDREN. R
8b00: 2e 72 69 64 20 2d 3e 20 52 42 43 2e 72 69 64 2c .rid -> RBC.rid,
8b10: 20 52 42 43 2e 62 72 69 64 20 3d 0a 09 23 20 20 RBC.brid =..#
8b20: 20 20 20 53 28 2e 72 69 64 29 0a 09 23 0a 09 23 S(.rid)..#..#
8b30: 20 28 33 29 20 4f 72 69 67 69 6e 61 6c 6c 79 20 (3) Originally
8b40: 74 68 69 73 20 75 73 65 20 63 61 73 65 20 64 65 this use case de
8b50: 66 69 6e 65 64 20 74 68 65 20 72 6f 6f 74 20 6f fined the root o
8b60: 66 20 61 20 64 65 74 61 63 68 65 64 0a 09 23 20 f a detached..#
8b70: 20 20 20 20 4e 54 44 42 20 61 73 20 74 68 65 20 NTDB as the
8b80: 73 75 63 63 65 73 73 6f 72 20 6f 66 20 74 68 65 successor of the
8b90: 20 74 72 75 6e 6b 20 72 6f 6f 74 2e 20 54 68 69 trunk root. Thi
8ba0: 73 20 6c 65 61 64 73 20 74 6f 20 61 0a 09 23 20 s leads to a..#
8bb0: 20 20 20 20 62 61 64 20 74 61 6e 67 6c 65 20 6c bad tangle l
8bc0: 61 74 65 72 20 6f 6e 2e 20 57 69 74 68 20 61 20 ater on. With a
8bd0: 64 65 74 61 63 68 65 64 20 4e 54 44 42 20 74 68 detached NTDB th
8be0: 65 20 6f 72 69 67 69 6e 61 6c 0a 09 23 20 20 20 e original..#
8bf0: 20 20 74 72 75 6e 6b 20 72 6f 6f 74 20 72 65 76 trunk root rev
8c00: 69 73 69 6f 6e 20 77 61 73 20 72 65 6d 6f 76 65 ision was remove
8c10: 64 20 61 73 20 69 72 72 65 6c 65 76 61 6e 74 2c d as irrelevant,
8c20: 20 61 6c 6c 6f 77 69 6e 67 0a 09 23 20 20 20 20 allowing..#
8c30: 20 74 68 65 20 6e 6f 6d 69 6e 61 6c 20 72 6f 6f the nominal roo
8c40: 74 20 74 6f 20 62 65 20 6c 61 74 65 72 20 69 6e t to be later in
8c50: 20 74 69 6d 65 20 74 68 61 6e 20 74 68 65 20 4e time than the N
8c60: 54 44 42 0a 09 23 20 20 20 20 20 72 6f 6f 74 2e TDB..# root.
8c70: 20 4e 6f 77 20 73 65 74 74 69 6e 67 20 74 68 69 Now setting thi
8c80: 73 20 64 65 70 65 6e 64 65 6e 63 79 20 77 69 6c s dependency wil
8c90: 6c 20 62 65 20 62 61 63 6b 77 61 72 64 20 69 6e l be backward in
8ca0: 0a 09 23 20 20 20 20 20 74 69 6d 65 2e 20 52 45 ..# time. RE
8cb0: 4d 4f 56 45 44 2e 0a 09 23 0a 09 23 20 28 34 29 MOVED...#..# (4)
8cc0: 20 49 66 20 52 20 69 73 20 74 68 65 20 6c 61 73 If R is the las
8cd0: 74 20 6f 66 20 74 68 65 20 4e 54 44 42 20 72 65 t of the NTDB re
8ce0: 76 69 73 69 6f 6e 73 20 77 68 69 63 68 20 62 65 visions which be
8cf0: 6c 6f 6e 67 20 74 6f 0a 09 23 20 20 20 20 20 74 long to..# t
8d00: 68 65 20 74 72 75 6e 6b 2c 20 74 68 65 6e 20 74 he trunk, then t
8d10: 68 65 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 he primary child
8d20: 20 6f 66 20 74 68 65 20 74 72 75 6e 6b 20 72 6f of the trunk ro
8d30: 6f 74 20 28 74 68 65 0a 09 23 20 20 20 20 20 27 ot (the..# '
8d40: 31 2e 32 27 20 72 65 76 69 73 69 6f 6e 29 20 69 1.2' revision) i
8d50: 73 20 61 20 73 75 63 63 65 73 73 6f 72 2c 20 69 s a successor, i
8d60: 66 20 69 74 20 65 78 69 73 74 73 2e 0a 0a 09 23 f it exists....#
8d70: 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 62 Note that the b
8d80: 72 61 6e 63 68 65 73 20 73 70 61 77 6e 65 64 20 ranches spawned
8d90: 66 72 6f 6d 20 74 68 65 20 72 65 76 69 73 69 6f from the revisio
8da0: 6e 73 2c 20 61 6e 64 20 74 68 65 0a 09 23 20 74 ns, and the..# t
8db0: 61 67 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 ags associated w
8dc0: 69 74 68 20 74 68 65 6d 20 61 72 65 20 73 75 63 ith them are suc
8dd0: 63 65 73 73 6f 72 73 20 61 73 20 77 65 6c 6c 2e cessors as well.
8de0: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 ...foreach {rid
8df0: 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 child} [state ru
8e00: 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d n [subst -nocomm
8e10: 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 ands -nobackslas
8e20: 68 65 73 20 7b 0a 20 20 20 20 2d 2d 20 28 31 29 hes {. -- (1)
8e30: 20 50 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 09 Primary child..
8e40: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
8e50: 2c 20 52 2e 63 68 69 6c 64 0a 09 20 20 20 20 46 , R.child.. F
8e60: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
8e70: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
8e80: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
8e90: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
8ea0: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
8eb0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
8ec0: 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 53 20 D R.child IS
8ed0: 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 NOT NULL -- H
8ee0: 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 as primary child
8ef0: 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d . UNION. -
8f00: 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 79 20 - (2) Secondary
8f10: 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 72 65 (branch) childre
8f20: 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e n.. SELECT R.
8f30: 72 69 64 2c 20 42 2e 62 72 69 64 0a 09 20 20 20 rid, B.brid..
8f40: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
8f50: 20 52 2c 20 72 65 76 69 73 69 6f 6e 62 72 61 6e R, revisionbran
8f60: 63 68 63 68 69 6c 64 72 65 6e 20 42 0a 09 20 20 chchildren B..
8f70: 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 WHERE R.rid
8f80: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
8f90: 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 -- Restrict to r
8fa0: 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 evisions of inte
8fb0: 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 rest.. AND
8fc0: 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 20 20 R.rid = B.rid
8fd0: 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 -- Selec
8fe0: 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 61 6e t subset of bran
8ff0: 63 68 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 ch children.
9000: 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 34 29 UNION. -- (4)
9010: 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 6b 20 Child of trunk
9020: 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 20 6f root successor o
9030: 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e 20 74 f last NTDB on t
9040: 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c 45 43 runk... SELEC
9050: 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 68 69 6c T R.rid, RA.chil
9060: 64 0a 09 20 20 20 20 46 52 4f 4d 20 72 65 76 69 d.. FROM revi
9070: 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e sion R, revision
9080: 20 52 41 0a 09 20 20 20 20 57 48 45 52 45 20 52 RA.. WHERE R
9090: 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 .rid IN $these
90a0: 74 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 t -- Restri
90b0: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
90c0: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
90d0: 20 41 4e 44 20 20 20 52 2e 69 73 64 65 66 61 75 AND R.isdefau
90e0: 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 20 2d lt -
90f0: 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 4e 54 - Restrict to NT
9100: 44 42 0a 09 20 20 20 20 41 4e 44 20 20 20 52 2e DB.. AND R.
9110: 64 62 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e dbchild IS NOT N
9120: 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 ULL -- and las
9130: 74 20 4e 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 t NTDB belonging
9140: 20 74 6f 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 to trunk.. A
9150: 4e 44 20 20 20 52 41 2e 72 69 64 20 3d 20 52 2e ND RA.rid = R.
9160: 64 62 63 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 dbchild --
9170: 47 6f 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 Go directly to t
9180: 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 runk root.. A
9190: 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 20 49 53 ND RA.child IS
91a0: 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 NOT NULL --
91b0: 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c Has primary chil
91c0: 64 2e 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 23 d...}]] {.. #
91d0: 20 43 6f 6e 73 69 64 65 72 20 6d 6f 76 69 6e 67 Consider moving
91e0: 20 74 68 69 73 20 74 6f 20 74 68 65 20 69 6e 74 this to the int
91f0: 65 67 72 69 74 79 20 6d 6f 64 75 6c 65 2e 0a 09 egrity module...
9200: 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 integrity as
9210: 73 65 72 74 20 7b 24 72 69 64 20 21 3d 20 24 63 sert {$rid != $c
9220: 68 69 6c 64 7d 20 7b 52 65 76 69 73 69 6f 6e 20 hild} {Revision
9230: 24 72 69 64 20 64 65 70 65 6e 64 73 20 6f 6e 20 $rid depends on
9240: 69 74 73 65 6c 66 2e 7d 0a 09 20 20 20 20 6c 61 itself.}.. la
9250: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
9260: 65 73 28 5b 6c 69 73 74 20 72 65 76 20 24 72 69 es([list rev $ri
9270: 64 5d 29 20 5b 6c 69 73 74 20 72 65 76 20 24 63 d]) [list rev $c
9280: 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 hild]..}..foreac
9290: 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 h {rid child} [s
92a0: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
92b0: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
92c0: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
92d0: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
92e0: 54 2e 74 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 T.tid.. FROM
92f0: 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 74 61 revision R, ta
9300: 67 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 20 g T.. WHERE
9310: 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 R.rid IN $theset
9320: 20 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 -- Restri
9330: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
9340: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
9350: 20 41 4e 44 20 20 20 20 54 2e 72 65 76 20 3d 20 AND T.rev =
9360: 52 2e 72 69 64 20 20 20 20 20 20 20 20 20 20 2d R.rid -
9370: 2d 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 74 - Select tags at
9380: 74 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 09 tached to them..
9390: 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 }]] {.. lappe
93a0: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
93b0: 5b 6c 69 73 74 20 72 65 76 20 24 72 69 64 5d 29 [list rev $rid])
93c0: 20 5b 6c 69 73 74 20 73 79 6d 3a 3a 74 61 67 20 [list sym::tag
93d0: 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 $child]..}..fore
93e0: 61 63 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 ach {rid child}
93f0: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
9400: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
9410: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 obackslashes {..
9420: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
9430: 2c 20 42 2e 62 69 64 0a 09 20 20 20 20 46 52 4f , B.bid.. FRO
9440: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 M revision R,
9450: 62 72 61 6e 63 68 20 42 0a 09 20 20 20 20 57 48 branch B.. WH
9460: 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 ERE R.rid IN $t
9470: 68 65 73 65 74 20 20 20 20 20 20 20 2d 2d 20 52 heset -- R
9480: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
9490: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
94a0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 72 .. AND B.r
94b0: 6f 6f 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 oot = R.rid
94c0: 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 -- Select br
94d0: 61 6e 63 68 65 73 20 61 74 74 61 63 68 65 64 20 anches attached
94e0: 74 6f 20 74 68 65 6d 0a 09 7d 5d 5d 20 7b 0a 09 to them..}]] {..
94f0: 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 lappend depe
9500: 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 72 ndencies([list r
9510: 65 76 20 24 72 69 64 5d 29 20 5b 6c 69 73 74 20 ev $rid]) [list
9520: 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 63 68 69 sym::branch $chi
9530: 6c 64 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 ld]..}..return.
9540: 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 }.. # resu
9550: 6c 74 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 lt = list (chang
9560: 65 73 65 74 2d 69 64 29 0a 20 20 20 20 74 79 70 eset-id). typ
9570: 65 6d 65 74 68 6f 64 20 63 73 5f 73 75 63 63 65 emethod cs_succe
9580: 73 73 6f 72 73 20 7b 72 65 76 69 73 69 6f 6e 73 ssors {revisions
9590: 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 54 68 } {. # Th
95a0: 69 73 20 69 73 20 61 20 76 61 72 69 61 6e 74 20 is is a variant
95b0: 6f 66 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 of 'successors'
95c0: 77 68 69 63 68 20 6d 61 70 73 20 74 68 65 20 6c which maps the l
95d0: 6f 77 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 ow-level.
95e0: 20 23 20 64 61 74 61 20 64 69 72 65 63 74 6c 79 # data directly
95f0: 20 74 6f 20 74 68 65 20 61 73 73 6f 63 69 61 74 to the associat
9600: 65 64 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 ed changesets. I
9610: 2e 65 2e 20 69 6e 73 74 65 61 64 0a 20 20 20 20 .e. instead.
9620: 20 20 20 20 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f # millions o
9630: 66 20 64 65 70 65 6e 64 65 6e 63 79 20 70 61 69 f dependency pai
9640: 72 73 20 28 69 6e 20 65 78 74 72 65 6d 65 20 63 rs (in extreme c
9650: 61 73 65 73 20 28 45 78 61 6d 70 6c 65 3a 20 54 ases (Example: T
9660: 63 6c 0a 20 20 20 20 20 20 20 20 23 20 43 56 53 cl. # CVS
9670: 29 29 20 77 65 20 72 65 74 75 72 6e 20 61 20 76 )) we return a v
9680: 65 72 79 20 73 68 6f 72 74 20 61 6e 64 20 6d 75 ery short and mu
9690: 63 68 20 6d 6f 72 65 20 6d 61 6e 61 67 65 61 62 ch more manageab
96a0: 6c 65 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 le list.
96b0: 23 20 6f 66 20 63 68 61 6e 67 65 73 65 74 73 2e # of changesets.
96c0: 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 ...set theset ('
96d0: 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 [join $revisions
96e0: 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 75 72 {','}]')..retur
96f0: 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 n [state run [su
9700: 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 bst -nocommands
9710: 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b -nobackslashes {
9720: 0a 20 20 20 20 2d 2d 20 28 31 29 20 50 72 69 6d . -- (1) Prim
9730: 61 72 79 20 63 68 69 6c 64 0a 09 20 20 20 20 53 ary child.. S
9740: 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 ELECT C.cid..
9750: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
9760: 20 52 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 R, csitem CI, c
9770: 68 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 hangeset C..
9780: 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 WHERE R.rid I
9790: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
97a0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
97b0: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
97c0: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 st.. AND R
97d0: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
97e0: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
97f0: 6d 61 72 79 20 63 68 69 6c 64 0a 20 20 20 20 20 mary child.
9800: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 AND CI
9810: 2e 69 69 64 20 3d 20 52 2e 63 68 69 6c 64 20 20 .iid = R.child
9820: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 -- Select a
9830: 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ll changesets.
9840: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
9850: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 20 C.cid = CI.cid
9860: 20 20 20 20 20 20 20 20 2d 2d 20 63 6f 6e 74 61 -- conta
9870: 69 6e 69 6e 67 20 74 68 65 20 70 72 69 6d 61 72 ining the primar
9880: 79 20 63 68 69 6c 64 0a 20 20 20 20 20 20 20 20 y child.
9890: 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 AND C.typ
98a0: 65 20 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 e = 0
98b0: 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 20 72 -- which are r
98c0: 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 evision changese
98d0: 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 ts. UNION.
98e0: 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 -- (2) Secondar
98f0: 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 y (branch) child
9900: 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 ren.. SELECT
9910: 43 2e 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 C.cid.. FROM
9920: 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 revision R, re
9930: 76 69 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c visionbranchchil
9940: 64 72 65 6e 20 42 2c 20 63 73 69 74 65 6d 20 43 dren B, csitem C
9950: 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 I, changeset C..
9960: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
9970: 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 IN $theset
9980: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
9990: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e revisions of in
99a0: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
99b0: 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 R.rid = B.rid
99c0: 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c -- Sel
99d0: 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 ect subset of br
99e0: 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a 20 20 anch children.
99f0: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
9a00: 20 43 49 2e 69 69 64 20 3d 20 42 2e 62 72 69 64 CI.iid = B.brid
9a10: 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 -- Selec
9a20: 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 t all changesets
9a30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
9a40: 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 C.cid = CI.c
9a50: 69 64 09 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 id. -- containi
9a60: 6e 67 20 74 68 65 20 62 72 61 6e 63 68 0a 20 20 ng the branch.
9a70: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
9a80: 20 43 2e 74 79 70 65 20 3d 20 30 09 09 20 20 2d C.type = 0.. -
9a90: 2d 20 77 68 69 63 68 20 61 72 65 20 72 65 76 69 - which are revi
9aa0: 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a sion changesets.
9ab0: 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d UNION. --
9ac0: 20 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 (4) Child of tr
9ad0: 75 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 unk root success
9ae0: 6f 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 or of last NTDB
9af0: 6f 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 on trunk... S
9b00: 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 ELECT C.cid..
9b10: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
9b20: 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 2c R, revision RA,
9b30: 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e csitem CI, chan
9b40: 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 geset C.. WHE
9b50: 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 RE R.rid IN $
9b60: 74 68 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 theset -- R
9b70: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
9b80: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
9b90: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 .. AND R.i
9ba0: 73 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 sdefault
9bb0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
9bc0: 20 74 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e to NTDB.. AN
9bd0: 44 20 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 D R.dbchild I
9be0: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 S NOT NULL --
9bf0: 61 6e 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 and last NTDB be
9c00: 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b longing to trunk
9c10: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e .. AND RA.
9c20: 72 69 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 rid = R.dbchild
9c30: 20 20 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 -- Go direc
9c40: 74 6c 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f tly to trunk roo
9c50: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 t.. AND RA
9c60: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
9c70: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
9c80: 6d 61 72 79 20 63 68 69 6c 64 2e 0a 20 20 20 20 mary child..
9c90: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
9ca0: 49 2e 69 69 64 20 3d 20 52 41 2e 63 68 69 6c 64 I.iid = RA.child
9cb0: 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 -- Select
9cc0: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a all changesets.
9cd0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
9ce0: 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 C.cid = CI.ci
9cf0: 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 d. -- containi
9d00: 6e 67 20 74 68 65 20 70 72 69 6d 61 72 79 20 63 ng the primary c
9d10: 68 69 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 hild.
9d20: 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d AND C.type =
9d30: 20 30 09 09 20 20 20 2d 2d 20 77 68 69 63 68 20 0.. -- which
9d40: 61 72 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 are revision cha
9d50: 6e 67 65 73 65 74 73 0a 20 20 20 20 55 4e 49 4f ngesets. UNIO
9d60: 4e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e N.. SELECT C.
9d70: 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 cid.. FROM
9d80: 72 65 76 69 73 69 6f 6e 20 52 2c 20 74 61 67 20 revision R, tag
9d90: 54 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 T, csitem CI, ch
9da0: 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 angeset C.. W
9db0: 48 45 52 45 20 20 52 2e 72 69 64 20 69 6e 20 24 HERE R.rid in $
9dc0: 74 68 65 73 65 74 20 20 20 20 20 20 20 20 2d 2d theset --
9dd0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
9de0: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
9df0: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 st.. AND T
9e00: 2e 72 65 76 20 3d 20 52 2e 72 69 64 09 20 20 20 .rev = R.rid.
9e10: 2d 2d 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 -- Select tags a
9e20: 74 74 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a ttached to them.
9e30: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
9e40: 20 20 20 43 49 2e 69 69 64 20 3d 20 54 2e 74 69 CI.iid = T.ti
9e50: 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 d -- Se
9e60: 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 lect all changes
9e70: 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ets.
9e80: 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 AND C.cid = C
9e90: 49 2e 63 69 64 09 20 20 20 2d 2d 20 63 6f 6e 74 I.cid. -- cont
9ea0: 61 69 6e 69 6e 67 20 74 68 65 20 74 61 67 73 0a aining the tags.
9eb0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
9ec0: 20 20 20 43 2e 74 79 70 65 20 3d 20 31 09 09 20 C.type = 1..
9ed0: 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 20 74 -- which are t
9ee0: 61 67 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ag changesets.
9ef0: 20 20 55 4e 49 4f 4e 0a 09 20 20 20 20 53 45 4c UNION.. SEL
9f00: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
9f10: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
9f20: 2c 20 62 72 61 6e 63 68 20 42 2c 20 63 73 69 74 , branch B, csit
9f30: 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 em CI, changeset
9f40: 20 43 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 C.. WHERE R
9f50: 2e 72 69 64 20 69 6e 20 24 74 68 65 73 65 74 20 .rid in $theset
9f60: 20 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 -- Restri
9f70: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
9f80: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
9f90: 20 41 4e 44 20 20 20 20 42 2e 72 6f 6f 74 20 3d AND B.root =
9fa0: 20 52 2e 72 69 64 09 20 20 20 2d 2d 20 53 65 6c R.rid. -- Sel
9fb0: 65 63 74 20 62 72 61 6e 63 68 65 73 20 61 74 74 ect branches att
9fc0: 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 20 20 ached to them.
9fd0: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
9fe0: 20 43 49 2e 69 69 64 20 3d 20 42 2e 62 69 64 20 CI.iid = B.bid
9ff0: 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 -- Sele
a000: 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 ct all changeset
a010: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
a020: 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e D C.cid = CI.
a030: 63 69 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 cid. -- contai
a040: 6e 69 6e 67 20 74 68 65 20 62 72 61 6e 63 68 65 ning the branche
a050: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
a060: 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 32 09 D C.type = 2.
a070: 09 20 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 . -- which are
a080: 20 62 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 branch changese
a090: 74 73 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 7d 0a ts..}]]. }.}.
a0a0: 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 .# # ## ### ####
a0b0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
a0c0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
a0d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 ##############.#
a0e0: 23 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 # Helper singlet
a0f0: 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 on. Commands for
a100: 20 74 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 6e tag symbol chan
a110: 67 65 73 65 74 73 2e 0a 0a 73 6e 69 74 3a 3a 74 gesets...snit::t
a120: 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ype ::vc::fossil
a130: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
a140: 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 73 79 6d roject::rev::sym
a150: 3a 3a 74 61 67 20 7b 0a 20 20 20 20 74 79 70 65 ::tag {. type
a160: 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f method byrevisio
a170: 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 n {} { return 0
a180: 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 }. typemethod
a190: 20 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b bysymbol {} {
a1a0: 20 72 65 74 75 72 6e 20 31 20 7d 0a 20 20 20 20 return 1 }.
a1b0: 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 61 67 typemethod istag
a1c0: 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 {} { retur
a1d0: 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 n 1 }. typeme
a1e0: 74 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 thod isbranch
a1f0: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a {} { return 0 }.
a200: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
a210: 73 74 72 20 7b 74 61 67 7d 20 7b 0a 09 73 74 72 str {tag} {..str
a220: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e uct::list assign
a230: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
a240: 20 20 20 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 SELECT S.name
a250: 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d 65 , F.name, P.name
a260: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 .. FROM tag
a270: 20 54 2c 20 73 79 6d 62 6f 6c 20 53 2c 20 66 69 T, symbol S, fi
a280: 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a le F, project P.
a290: 09 20 20 20 20 57 48 45 52 45 20 20 54 2e 74 69 . WHERE T.ti
a2a0: 64 20 3d 20 24 74 61 67 20 20 20 2d 2d 20 46 69 d = $tag -- Fi
a2b0: 6e 64 20 73 70 65 63 69 66 69 65 64 20 74 61 67 nd specified tag
a2c0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 .. AND F.f
a2d0: 69 64 20 3d 20 54 2e 66 69 64 20 20 2d 2d 20 47 id = T.fid -- G
a2e0: 65 74 20 66 69 6c 65 20 6f 66 20 74 61 67 0a 09 et file of tag..
a2f0: 20 20 20 20 41 4e 44 20 20 20 20 50 2e 70 69 64 AND P.pid
a300: 20 3d 20 46 2e 70 69 64 20 20 2d 2d 20 47 65 74 = F.pid -- Get
a310: 20 70 72 6f 6a 65 63 74 20 6f 66 20 66 69 6c 65 project of file
a320: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 53 2e 73 .. AND S.s
a330: 69 64 20 3d 20 54 2e 73 69 64 20 20 2d 2d 20 47 id = T.sid -- G
a340: 65 74 20 73 79 6d 62 6f 6c 20 6f 66 20 74 61 67 et symbol of tag
a350: 0a 09 7d 5d 20 73 6e 61 6d 65 20 66 6e 61 6d 65 ..}] sname fname
a360: 20 70 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 pname..return "
a370: 24 70 6e 61 6d 65 2f 54 27 24 7b 73 6e 61 6d 65 $pname/T'${sname
a380: 7d 27 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 }'::$fname".
a390: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
a3a0: 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c = list (mintime,
a3b0: 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 maxtime). ty
a3c0: 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e pemethod timeran
a3d0: 67 65 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 54 ge {tags} {..# T
a3e0: 68 65 20 72 61 6e 67 65 20 69 73 20 64 65 66 69 he range is defi
a3f0: 6e 65 64 20 61 73 20 74 68 65 20 72 61 6e 67 65 ned as the range
a400: 20 6f 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e of the revision
a410: 73 20 74 68 65 20 74 61 67 73 0a 09 23 20 61 72 s the tags..# ar
a420: 65 20 61 74 74 61 63 68 65 64 20 74 6f 2e 0a 0a e attached to...
a430: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
a440: 6f 69 6e 20 24 74 61 67 73 20 7b 27 2c 27 7d 5d oin $tags {','}]
a450: 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 ')..return [stat
a460: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
a470: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
a480: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 slashes {.. S
a490: 45 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 65 ELECT MIN(R.date
a4a0: 29 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a 09 ), MAX(R.date)..
a4b0: 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 20 54 FROM tag T
a4c0: 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 , revision R..
a4d0: 20 20 57 48 45 52 45 20 20 54 2e 74 69 64 20 49 WHERE T.tid I
a4e0: 4e 20 24 74 68 65 73 65 74 20 20 2d 2d 20 52 65 N $theset -- Re
a4f0: 73 74 72 69 63 74 20 74 6f 20 74 61 67 73 20 6f strict to tags o
a500: 66 20 69 6e 74 65 72 65 73 74 0a 20 20 20 20 20 f interest.
a510: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 52 2e AND R.
a520: 72 69 64 20 3d 20 54 2e 72 65 76 20 20 20 20 20 rid = T.rev
a530: 2d 2d 20 53 65 6c 65 63 74 20 74 61 67 20 70 61 -- Select tag pa
a540: 72 65 6e 74 20 72 65 76 69 73 69 6f 6e 73 0a 09 rent revisions..
a550: 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 }]]. }.. #
a560: 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 var(dv) = dict
a570: 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 (item -> list (i
a580: 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c tem)), item = l
a590: 69 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 ist (type id).
a5a0: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 typemethod suc
a5b0: 63 65 73 73 6f 72 73 20 7b 64 76 20 74 61 67 73 cessors {dv tags
a5c0: 7d 20 7b 0a 09 23 20 54 61 67 73 20 68 61 76 65 } {..# Tags have
a5d0: 20 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 2e 0a no successors..
a5e0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
a5f0: 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 34 2d # result = 4-
a600: 6c 69 73 74 20 28 69 74 65 6d 74 79 70 65 20 69 list (itemtype i
a610: 74 65 6d 69 64 20 6e 65 78 74 69 74 65 6d 74 79 temid nextitemty
a620: 70 65 20 6e 65 78 74 69 74 65 6d 69 64 20 2e 2e pe nextitemid ..
a630: 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f .). typemetho
a640: 64 20 6c 6f 6f 70 73 20 7b 74 61 67 73 7d 20 7b d loops {tags} {
a650: 0a 09 23 20 54 61 67 73 20 68 61 76 65 20 6e 6f ..# Tags have no
a660: 20 73 75 63 63 65 73 73 6f 72 73 2c 20 74 68 65 successors, the
a670: 72 65 66 6f 72 65 20 63 61 6e 6e 6f 74 20 63 61 refore cannot ca
a680: 75 73 65 20 6c 6f 6f 70 73 0a 09 72 65 74 75 72 use loops..retur
a690: 6e 20 7b 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n {}. }..
a6a0: 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 73 74 20 # result = list
a6b0: 28 63 68 61 6e 67 65 73 65 74 2d 69 64 29 0a 20 (changeset-id).
a6c0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 63 73 typemethod cs
a6d0: 5f 73 75 63 63 65 73 73 6f 72 73 20 7b 74 61 67 _successors {tag
a6e0: 73 7d 20 7b 0a 09 23 20 54 61 67 73 20 68 61 76 s} {..# Tags hav
a6f0: 65 20 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 2e e no successors.
a700: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 7d ..return. }.}
a710: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
a720: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
a730: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
a740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
a750: 23 23 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 ## Helper single
a760: 74 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f ton. Commands fo
a770: 72 20 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c 20 r branch symbol
a780: 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 73 6e 69 changesets...sni
a790: 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f t::type ::vc::fo
a7a0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
a7b0: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a s::project::rev:
a7c0: 3a 73 79 6d 3a 3a 62 72 61 6e 63 68 20 7b 0a 20 :sym::branch {.
a7d0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 typemethod by
a7e0: 72 65 76 69 73 69 6f 6e 20 7b 7d 20 7b 20 72 65 revision {} { re
a7f0: 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 74 79 70 turn 0 }. typ
a800: 65 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c emethod bysymbol
a810: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 31 {} { return 1
a820: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
a830: 64 20 69 73 74 61 67 20 20 20 20 20 20 7b 7d 20 d istag {}
a840: 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 { return 0 }.
a850: 20 74 79 70 65 6d 65 74 68 6f 64 20 69 73 62 72 typemethod isbr
a860: 61 6e 63 68 20 20 20 7b 7d 20 7b 20 72 65 74 75 anch {} { retu
a870: 72 6e 20 31 20 7d 0a 0a 20 20 20 20 74 79 70 65 rn 1 }.. type
a880: 6d 65 74 68 6f 64 20 73 74 72 20 7b 62 72 61 6e method str {bran
a890: 63 68 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c ch} {..struct::l
a8a0: 69 73 74 20 61 73 73 69 67 6e 20 5b 73 74 61 74 ist assign [stat
a8b0: 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c e run {.. SEL
a8c0: 45 43 54 20 53 2e 6e 61 6d 65 2c 20 46 2e 6e 61 ECT S.name, F.na
a8d0: 6d 65 2c 20 50 2e 6e 61 6d 65 0a 09 20 20 20 20 me, P.name..
a8e0: 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c FROM branch B,
a8f0: 20 73 79 6d 62 6f 6c 20 53 2c 20 66 69 6c 65 20 symbol S, file
a900: 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 20 20 F, project P..
a910: 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 3d WHERE B.bid =
a920: 20 24 62 72 61 6e 63 68 20 20 2d 2d 20 46 69 6e $branch -- Fin
a930: 64 20 73 70 65 63 69 66 69 65 64 20 62 72 61 6e d specified bran
a940: 63 68 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 ch.. AND F
a950: 2e 66 69 64 20 3d 20 42 2e 66 69 64 20 20 20 20 .fid = B.fid
a960: 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 20 62 -- Get file of b
a970: 72 61 6e 63 68 0a 09 20 20 20 20 41 4e 44 20 20 ranch.. AND
a980: 20 20 50 2e 70 69 64 20 3d 20 46 2e 70 69 64 20 P.pid = F.pid
a990: 20 20 20 2d 2d 20 47 65 74 20 70 72 6f 6a 65 63 -- Get projec
a9a0: 74 20 6f 66 20 66 69 6c 65 0a 09 20 20 20 20 41 t of file.. A
a9b0: 4e 44 20 20 20 20 53 2e 73 69 64 20 3d 20 42 2e ND S.sid = B.
a9c0: 73 69 64 20 20 20 20 2d 2d 20 47 65 74 20 73 79 sid -- Get sy
a9d0: 6d 62 6f 6c 20 6f 66 20 62 72 61 6e 63 68 0a 09 mbol of branch..
a9e0: 7d 5d 20 73 6e 61 6d 65 20 66 6e 61 6d 65 20 70 }] sname fname p
a9f0: 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 24 70 name..return "$p
aa00: 6e 61 6d 65 2f 42 27 24 7b 73 6e 61 6d 65 7d 27 name/B'${sname}'
aa10: 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a ::$fname". }.
aa20: 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 . # result =
aa30: 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d list (mintime, m
aa40: 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 axtime). type
aa50: 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 method timerange
aa60: 20 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 {branches} {..#
aa70: 20 54 68 65 20 72 61 6e 67 65 20 6f 66 20 61 20 The range of a
aa80: 62 72 61 6e 63 68 20 69 73 20 64 65 66 69 6e 65 branch is define
aa90: 64 20 61 73 20 74 68 65 20 72 61 6e 67 65 20 6f d as the range o
aaa0: 66 20 74 68 65 0a 09 23 20 72 65 76 69 73 69 6f f the..# revisio
aab0: 6e 73 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 ns the branches
aac0: 61 72 65 20 73 70 61 77 6e 65 64 20 62 79 2e 20 are spawned by.
aad0: 4e 4f 54 45 20 68 6f 77 65 76 65 72 20 74 68 61 NOTE however tha
aae0: 74 20 74 68 65 0a 09 23 20 62 72 61 6e 63 68 65 t the..# branche
aaf0: 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 s associated wit
ab00: 68 20 61 20 64 65 74 61 63 68 65 64 20 4e 54 44 h a detached NTD
ab10: 42 20 77 69 6c 6c 20 68 61 76 65 20 6e 6f 20 72 B will have no r
ab20: 6f 6f 74 0a 09 23 20 73 70 61 77 6e 69 6e 67 20 oot..# spawning
ab30: 74 68 65 6d 2c 20 68 65 6e 63 65 20 74 68 65 79 them, hence they
ab40: 20 68 61 76 65 20 6e 6f 20 72 65 61 6c 20 74 69 have no real ti
ab50: 6d 65 72 61 6e 67 65 20 61 6e 79 0a 09 23 20 6c merange any..# l
ab60: 6f 6e 67 65 72 2e 20 42 79 20 75 73 69 6e 67 20 onger. By using
ab70: 30 20 77 65 20 70 75 74 20 74 68 65 6d 20 69 6e 0 we put them in
ab80: 20 66 72 6f 6e 74 20 6f 66 20 65 76 65 72 79 74 front of everyt
ab90: 68 69 6e 67 20 65 6c 73 65 2c 0a 09 23 20 61 73 hing else,..# as
aba0: 20 74 68 65 79 20 6c 6f 67 69 63 61 6c 6c 79 20 they logically
abb0: 61 72 65 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 are....set these
abc0: 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 t ('[join $branc
abd0: 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 hes {','}]')..re
abe0: 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 turn [state run
abf0: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
ac00: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
ac10: 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 s {.. SELECT
ac20: 49 46 4e 55 4c 4c 28 4d 49 4e 28 52 2e 64 61 74 IFNULL(MIN(R.dat
ac30: 65 29 2c 30 29 2c 20 49 46 4e 55 4c 4c 28 4d 41 e),0), IFNULL(MA
ac40: 58 28 52 2e 64 61 74 65 29 2c 30 29 0a 09 20 20 X(R.date),0)..
ac50: 20 20 46 52 4f 4d 20 20 62 72 61 6e 63 68 20 42 FROM branch B
ac60: 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 , revision R..
ac70: 20 20 57 48 45 52 45 20 42 2e 62 69 64 20 49 4e WHERE B.bid IN
ac80: 20 24 74 68 65 73 65 74 20 20 20 2d 2d 20 52 65 $theset -- Re
ac90: 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 strict to branch
aca0: 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 es of interest.
acb0: 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 AND
acc0: 20 52 2e 72 69 64 20 3d 20 42 2e 72 6f 6f 74 20 R.rid = B.root
acd0: 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 -- Select br
ace0: 61 6e 63 68 20 70 61 72 65 6e 74 20 72 65 76 69 anch parent revi
acf0: 73 69 6f 6e 73 0a 09 7d 5d 5d 0a 20 20 20 20 7d sions..}]]. }
ad00: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
ad10: 20 34 2d 6c 69 73 74 20 28 69 74 65 6d 74 79 70 4-list (itemtyp
ad20: 65 20 69 74 65 6d 69 64 20 6e 65 78 74 69 74 65 e itemid nextite
ad30: 6d 74 79 70 65 20 6e 65 78 74 69 74 65 6d 69 64 mtype nextitemid
ad40: 20 2e 2e 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 ...). typeme
ad50: 74 68 6f 64 20 6c 6f 6f 70 73 20 7b 62 72 61 6e thod loops {bran
ad60: 63 68 65 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 3a ches} {..# Note:
ad70: 20 52 65 76 69 73 69 6f 6e 73 20 61 6e 64 20 74 Revisions and t
ad80: 61 67 73 20 63 61 6e 6e 6f 74 20 63 61 75 73 65 ags cannot cause
ad90: 20 74 68 65 20 6c 6f 6f 70 2e 20 42 65 69 6e 67 the loop. Being
ada0: 20 6f 66 20 61 0a 09 23 20 66 75 6e 64 61 6d 65 of a..# fundame
adb0: 6e 74 61 6c 6c 79 20 64 69 66 66 65 72 65 6e 74 ntally different
adc0: 20 74 79 70 65 20 74 68 65 79 20 63 61 6e 6e 6f type they canno
add0: 74 20 62 65 20 69 6e 20 74 68 65 20 69 6e 63 6f t be in the inco
ade0: 6d 69 6e 67 0a 09 23 20 73 65 74 20 6f 66 20 69 ming..# set of i
adf0: 64 73 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 ds....set theset
ae00: 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 ('[join $branch
ae10: 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 es {','}]')..ret
ae20: 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b urn [state run [
ae30: 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 subst -nocommand
ae40: 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 s -nobackslashes
ae50: 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 {.. SELECT B
ae60: 2e 62 69 64 2c 20 42 58 2e 62 69 64 0a 09 20 20 .bid, BX.bid..
ae70: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
ae80: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
ae90: 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 0a 09 t P, branch BX..
aea0: 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 WHERE B.bid
aeb0: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 2d 2d IN $theset --
aec0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 Restrict to bra
aed0: 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 nches of interes
aee0: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e t.. AND B.
aef0: 73 69 64 20 3d 20 50 2e 70 69 64 20 20 20 20 20 sid = P.pid
af00: 20 2d 2d 20 47 65 74 20 74 68 65 20 70 72 65 66 -- Get the pref
af10: 65 72 65 64 20 62 72 61 6e 63 68 65 73 20 76 69 ered branches vi
af20: 61 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 58 a.. AND BX
af30: 2e 73 69 64 20 3d 20 50 2e 73 69 64 20 20 20 20 .sid = P.sid
af40: 20 2d 2d 20 74 68 65 20 62 72 61 6e 63 68 20 73 -- the branch s
af50: 79 6d 62 6f 6c 73 0a 09 20 20 20 20 41 4e 44 20 ymbols.. AND
af60: 20 20 20 42 58 2e 62 69 64 20 49 4e 20 24 74 68 BX.bid IN $th
af70: 65 73 65 74 20 20 2d 2d 20 4c 6f 6f 70 0a 09 7d eset -- Loop..}
af80: 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 ]]. }.. #
af90: 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 28 var(dv) = dict (
afa0: 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 item -> list (it
afb0: 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 em)), item = li
afc0: 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 20 st (type id).
afd0: 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 63 typemethod succ
afe0: 65 73 73 6f 72 73 20 7b 64 76 20 62 72 61 6e 63 essors {dv branc
aff0: 68 65 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 hes} {..upvar 1
b000: 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 73 $dv dependencies
b010: 0a 09 23 20 54 68 65 20 66 69 72 73 74 20 72 65 ..# The first re
b020: 76 69 73 69 6f 6e 20 63 6f 6d 6d 69 74 74 65 64 vision committed
b030: 20 6f 6e 20 61 20 62 72 61 6e 63 68 2c 20 61 6e on a branch, an
b040: 64 20 61 6c 6c 20 62 72 61 6e 63 68 65 73 0a 09 d all branches..
b050: 23 20 61 6e 64 20 74 61 67 73 20 77 68 69 63 68 # and tags which
b060: 20 68 61 76 65 20 69 74 20 61 73 20 74 68 65 69 have it as thei
b070: 72 20 70 72 65 66 65 72 65 64 20 70 61 72 65 6e r prefered paren
b080: 74 20 61 72 65 20 74 68 65 0a 09 23 20 73 75 63 t are the..# suc
b090: 63 65 73 73 6f 72 73 20 6f 66 20 61 20 62 72 61 cessors of a bra
b0a0: 6e 63 68 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 nch....set these
b0b0: 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 t ('[join $branc
b0c0: 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 66 6f hes {','}]')..fo
b0d0: 72 65 61 63 68 20 7b 62 69 64 20 63 68 69 6c 64 reach {bid child
b0e0: 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 } [state run [su
b0f0: 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 bst -nocommands
b100: 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b -nobackslashes {
b110: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 .. SELECT B.b
b120: 69 64 2c 20 52 2e 72 69 64 0a 09 20 20 20 20 46 id, R.rid.. F
b130: 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 ROM branch B,
b140: 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 revision R..
b150: 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 WHERE B.bid IN
b160: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
b170: 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 estrict to branc
b180: 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a hes of interest.
b190: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 66 69 . AND B.fi
b1a0: 72 73 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 rst = R.rid
b1b0: 20 2d 2d 20 47 65 74 20 66 69 72 73 74 20 72 65 -- Get first re
b1c0: 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 vision on the br
b1d0: 61 6e 63 68 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 anch..}]] {..
b1e0: 20 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 lappend depende
b1f0: 6e 63 69 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a ncies([list sym:
b200: 3a 62 72 61 6e 63 68 20 24 62 69 64 5d 29 20 5b :branch $bid]) [
b210: 6c 69 73 74 20 72 65 76 20 24 63 68 69 6c 64 5d list rev $child]
b220: 0a 09 7d 0a 09 66 6f 72 65 61 63 68 20 7b 62 69 ..}..foreach {bi
b230: 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 d child} [state
b240: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
b250: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
b260: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c ashes {.. SEL
b270: 45 43 54 20 42 2e 62 69 64 2c 20 42 58 2e 62 69 ECT B.bid, BX.bi
b280: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 d.. FROM br
b290: 61 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 anch B, prefered
b2a0: 70 61 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 parent P, branch
b2b0: 20 42 58 0a 09 20 20 20 20 57 48 45 52 45 20 20 BX.. WHERE
b2c0: 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 B.bid IN $theset
b2d0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
b2e0: 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 to branches of
b2f0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
b300: 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 D B.sid = P.p
b310: 69 64 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 id -- Get
b320: 20 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 subordinate bra
b330: 6e 63 68 65 73 20 76 69 61 20 74 68 65 0a 09 20 nches via the..
b340: 20 20 20 41 4e 44 20 20 20 20 42 58 2e 73 69 64 AND BX.sid
b350: 20 3d 20 50 2e 73 69 64 20 20 20 20 20 20 20 2d = P.sid -
b360: 2d 20 70 72 65 66 65 72 65 64 20 70 61 72 65 6e - prefered paren
b370: 74 73 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 ts of their symb
b380: 6f 6c 73 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 ols..}]] {..
b390: 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e lappend dependen
b3a0: 63 69 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a cies([list sym::
b3b0: 62 72 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c branch $bid]) [l
b3c0: 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e 63 68 20 ist sym::branch
b3d0: 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 $child]..}..fore
b3e0: 61 63 68 20 7b 62 69 64 20 63 68 69 6c 64 7d 20 ach {bid child}
b3f0: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
b400: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
b410: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 obackslashes {..
b420: 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 SELECT B.bid
b430: 2c 20 54 2e 74 69 64 0a 09 20 20 20 20 46 52 4f , T.tid.. FRO
b440: 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 70 72 M branch B, pr
b450: 65 66 65 72 65 64 70 61 72 65 6e 74 20 50 2c 20 eferedparent P,
b460: 74 61 67 20 54 0a 09 20 20 20 20 57 48 45 52 45 tag T.. WHERE
b470: 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 B.bid IN $thes
b480: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
b490: 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f ct to branches o
b4a0: 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 f interest..
b4b0: 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 AND B.sid = P
b4c0: 2e 70 69 64 20 20 20 20 20 20 20 20 2d 2d 20 47 .pid -- G
b4d0: 65 74 20 73 75 62 6f 72 64 69 6e 61 74 65 20 74 et subordinate t
b4e0: 61 67 73 20 76 69 61 20 74 68 65 0a 09 20 20 20 ags via the..
b4f0: 20 41 4e 44 20 20 20 20 54 2e 73 69 64 20 3d 20 AND T.sid =
b500: 50 2e 73 69 64 20 20 20 20 20 20 20 20 2d 2d 20 P.sid --
b510: 70 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 73 prefered parents
b520: 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 6f 6c of their symbol
b530: 73 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 s..}]] {.. la
b540: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
b550: 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 es([list sym::br
b560: 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 anch $bid]) [lis
b570: 74 20 73 79 6d 3a 3a 74 61 67 20 24 63 68 69 6c t sym::tag $chil
b580: 64 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 d]..}..return.
b590: 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c }.. # resul
b5a0: 74 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 t = list (change
b5b0: 73 65 74 2d 69 64 29 0a 20 20 20 20 74 79 70 65 set-id). type
b5c0: 6d 65 74 68 6f 64 20 63 73 5f 73 75 63 63 65 73 method cs_succes
b5d0: 73 6f 72 73 20 7b 62 72 61 6e 63 68 65 73 7d 20 sors {branches}
b5e0: 7b 0a 20 20 20 20 20 20 20 20 23 20 54 68 69 73 {. # This
b5f0: 20 69 73 20 61 20 76 61 72 69 61 6e 74 20 6f 66 is a variant of
b600: 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 77 68 'successors' wh
b610: 69 63 68 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 ich maps the low
b620: 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 23 -level. #
b630: 20 64 61 74 61 20 64 69 72 65 63 74 6c 79 20 74 data directly t
b640: 6f 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 o the associated
b650: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 changesets. I.e
b660: 2e 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 . instead.
b670: 20 20 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 # millions of
b680: 64 65 70 65 6e 64 65 6e 63 79 20 70 61 69 72 73 dependency pairs
b690: 20 28 69 6e 20 65 78 74 72 65 6d 65 20 63 61 73 (in extreme cas
b6a0: 65 73 20 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c es (Example: Tcl
b6b0: 0a 20 20 20 20 20 20 20 20 23 20 43 56 53 29 29 . # CVS))
b6c0: 20 77 65 20 72 65 74 75 72 6e 20 61 20 76 65 72 we return a ver
b6d0: 79 20 73 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 y short and much
b6e0: 20 6d 6f 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 more manageable
b6f0: 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 23 20 list. #
b700: 6f 66 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a of changesets...
b710: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
b720: 6f 69 6e 20 24 62 72 61 6e 63 68 65 73 20 7b 27 oin $branches {'
b730: 2c 27 7d 5d 27 29 0a 20 20 20 20 20 20 20 20 72 ,'}]'). r
b740: 65 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e eturn [state run
b750: 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 [subst -nocomma
b760: 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 nds -nobackslash
b770: 65 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 es {.. SELECT
b780: 20 43 2e 63 69 64 0a 09 20 20 20 20 46 52 4f 4d C.cid.. FROM
b790: 20 20 20 62 72 61 6e 63 68 20 42 2c 20 72 65 76 branch B, rev
b7a0: 69 73 69 6f 6e 20 52 2c 20 63 73 69 74 65 6d 20 ision R, csitem
b7b0: 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a CI, changeset C.
b7c0: 09 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 . WHERE B.bi
b7d0: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
b7e0: 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 -- Restrict to
b7f0: 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 branches of inte
b800: 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 rest.. AND
b810: 20 42 2e 66 69 72 73 74 20 3d 20 52 2e 72 69 64 B.first = R.rid
b820: 09 2d 2d 20 47 65 74 20 66 69 72 73 74 20 72 65 .-- Get first re
b830: 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 vision on the br
b840: 61 6e 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 anch.
b850: 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d AND CI.iid =
b860: 20 52 2e 72 69 64 20 20 20 20 20 20 20 2d 2d 20 R.rid --
b870: 53 65 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 Select all chang
b880: 65 73 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 esets.
b890: 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d AND C.cid =
b8a0: 20 43 49 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 CI.cid.-- conta
b8b0: 69 6e 69 6e 67 20 74 68 69 73 20 72 65 76 69 73 ining this revis
b8c0: 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ion.
b8d0: 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 AND C.type =
b8e0: 30 09 09 2d 2d 20 77 68 69 63 68 20 61 72 65 20 0..-- which are
b8f0: 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 revision changes
b900: 65 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 ets. UNION..
b910: 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a SELECT C.cid.
b920: 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e . FROM bran
b930: 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 ch B, preferedpa
b940: 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 20 42 rent P, branch B
b950: 58 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 X, csitem CI, ch
b960: 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 angeset C.. W
b970: 48 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 HERE B.bid IN $
b980: 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 theset -- Re
b990: 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 strict to branch
b9a0: 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 es of interest..
b9b0: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 73 69 64 AND B.sid
b9c0: 20 3d 20 50 2e 70 69 64 09 2d 2d 20 47 65 74 20 = P.pid.-- Get
b9d0: 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 6e subordinate bran
b9e0: 63 68 65 73 20 76 69 61 20 74 68 65 0a 09 20 20 ches via the..
b9f0: 20 20 41 4e 44 20 20 20 20 42 58 2e 73 69 64 20 AND BX.sid
ba00: 3d 20 50 2e 73 69 64 09 2d 2d 20 70 72 65 66 65 = P.sid.-- prefe
ba10: 72 65 64 20 70 61 72 65 6e 74 73 20 6f 66 20 74 red parents of t
ba20: 68 65 69 72 20 73 79 6d 62 6f 6c 73 0a 20 20 20 heir symbols.
ba30: 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 AND
ba40: 43 49 2e 69 69 64 20 3d 20 42 58 2e 62 69 64 20 CI.iid = BX.bid
ba50: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 -- Select a
ba60: 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ll changesets.
ba70: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
ba80: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 09 C.cid = CI.cid.
ba90: 2d 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 -- containing th
baa0: 65 20 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 e subordinate br
bab0: 61 6e 63 68 65 73 0a 20 20 20 20 20 20 20 20 20 anches.
bac0: 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 AND C.type
bad0: 20 3d 20 32 09 09 2d 2d 20 77 68 69 63 68 20 61 = 2..-- which a
bae0: 72 65 20 62 72 61 6e 63 68 20 63 68 61 6e 67 65 re branch change
baf0: 73 65 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 sets. UNION..
bb00: 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 SELECT C.cid
bb10: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 .. FROM bra
bb20: 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 nch B, preferedp
bb30: 61 72 65 6e 74 20 50 2c 20 74 61 67 20 54 2c 20 arent P, tag T,
bb40: 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 csitem CI, chang
bb50: 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 eset C.. WHER
bb60: 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 E B.bid IN $the
bb70: 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 set -- Restr
bb80: 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 ict to branches
bb90: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
bba0: 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 AND B.sid =
bbb0: 50 2e 70 69 64 09 2d 2d 20 47 65 74 20 73 75 62 P.pid.-- Get sub
bbc0: 6f 72 64 69 6e 61 74 65 20 74 61 67 73 20 76 69 ordinate tags vi
bbd0: 61 20 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 a the.. AND
bbe0: 20 20 54 2e 73 69 64 20 3d 20 50 2e 73 69 64 09 T.sid = P.sid.
bbf0: 2d 2d 20 70 72 65 66 65 72 65 64 20 70 61 72 65 -- prefered pare
bc00: 6e 74 73 20 6f 66 20 74 68 65 69 72 20 73 79 6d nts of their sym
bc10: 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 bols.
bc20: 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d AND CI.iid =
bc30: 20 54 2e 74 69 64 20 20 20 20 20 20 20 2d 2d 20 T.tid --
bc40: 53 65 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 Select all chang
bc50: 65 73 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 esets.
bc60: 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d AND C.cid =
bc70: 20 43 49 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 CI.cid.-- conta
bc80: 69 6e 69 6e 67 20 74 68 65 20 73 75 62 6f 72 64 ining the subord
bc90: 69 6e 61 74 65 20 74 61 67 73 0a 20 20 20 20 20 inate tags.
bca0: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 2e AND C.
bcb0: 74 79 70 65 20 3d 20 31 09 09 2d 2d 20 77 68 69 type = 1..-- whi
bcc0: 63 68 20 61 72 65 20 74 61 67 20 63 68 61 6e 67 ch are tag chang
bcd0: 65 73 65 74 73 0a 09 7d 5d 5d 0a 09 72 65 74 75 esets..}]]..retu
bce0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 rn. }.. ty
bcf0: 70 65 6d 65 74 68 6f 64 20 6c 69 6d 69 74 73 20 pemethod limits
bd00: 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 20 {branches} {..#
bd10: 4e 6f 74 65 73 2e 20 54 68 69 73 20 6d 65 74 68 Notes. This meth
bd20: 6f 64 20 65 78 69 73 74 73 20 6f 6e 6c 79 20 66 od exists only f
bd30: 6f 72 20 62 72 61 6e 63 68 65 73 2e 20 49 74 20 or branches. It
bd40: 69 73 20 6e 65 65 64 65 64 20 74 6f 0a 09 23 20 is needed to..#
bd50: 67 65 74 20 64 65 74 61 69 6c 65 64 20 69 6e 66 get detailed inf
bd60: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 ormation about a
bd70: 20 62 61 63 6b 77 61 72 64 20 62 72 61 6e 63 68 backward branch
bd80: 2e 20 49 74 20 64 6f 65 73 0a 09 23 20 6e 6f 74 . It does..# not
bd90: 20 61 70 70 6c 79 20 74 6f 20 74 61 67 73 2c 20 apply to tags,
bda0: 6e 6f 72 20 72 65 76 69 73 69 6f 6e 73 2e 20 54 nor revisions. T
bdb0: 68 65 20 71 75 65 72 69 65 73 20 63 61 6e 20 61 he queries can a
bdc0: 6c 73 6f 0a 09 23 20 72 65 73 74 72 69 63 74 20 lso..# restrict
bdd0: 74 68 65 6d 73 65 6c 76 65 73 20 74 6f 20 74 68 themselves to th
bde0: 65 20 72 65 76 69 73 69 6f 6e 20 73 75 63 65 73 e revision suces
bdf0: 73 6f 72 73 2f 70 72 65 64 65 63 65 73 73 6f 72 sors/predecessor
be00: 73 0a 09 23 20 6f 66 20 62 72 61 6e 63 68 65 73 s..# of branches
be10: 2c 20 61 73 20 6f 6e 6c 79 20 74 68 65 79 20 68 , as only they h
be20: 61 76 65 20 6f 72 64 65 72 69 6e 67 20 64 61 74 ave ordering dat
be30: 61 20 61 6e 64 20 74 68 75 73 20 63 61 6e 0a 09 a and thus can..
be40: 23 20 63 61 75 73 65 20 74 68 65 20 62 61 63 6b # cause the back
be50: 77 61 72 64 6e 65 73 73 2e 0a 0a 09 73 65 74 20 wardness....set
be60: 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 theset ('[join $
be70: 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d 27 branches {','}]'
be80: 29 0a 0a 09 73 65 74 20 6d 61 78 70 20 5b 73 74 )...set maxp [st
be90: 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d ate run [subst -
bea0: 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 nocommands -noba
beb0: 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 ckslashes {..
bec0: 20 2d 2d 20 6d 61 78 69 6d 61 6c 20 70 72 65 64 -- maximal pred
bed0: 65 63 65 73 73 6f 72 20 70 6f 73 69 74 69 6f 6e ecessor position
bee0: 20 70 65 72 20 62 72 61 6e 63 68 0a 09 20 20 20 per branch..
bef0: 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 4d SELECT B.bid, M
bf00: 41 58 20 28 43 4f 2e 70 6f 73 29 0a 09 20 20 20 AX (CO.pos)..
bf10: 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 FROM branch B
bf20: 2c 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 63 73 , revision R, cs
bf30: 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 item CI, changes
bf40: 65 74 20 43 2c 20 63 73 6f 72 64 65 72 20 43 4f et C, csorder CO
bf50: 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 .. WHERE B.b
bf60: 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 id IN $theset
bf70: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
bf80: 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 branches of int
bf90: 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 erest.. AND
bfa0: 20 20 42 2e 72 6f 6f 74 20 3d 20 52 2e 72 69 64 B.root = R.rid
bfb0: 20 20 20 20 20 20 20 2d 2d 20 47 65 74 20 62 72 -- Get br
bfc0: 61 6e 63 68 20 72 6f 6f 74 20 72 65 76 69 73 69 anch root revisi
bfd0: 6f 6e 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 ons.. AND
bfe0: 43 49 2e 69 69 64 20 3d 20 52 2e 72 69 64 20 20 CI.iid = R.rid
bff0: 20 20 20 20 20 2d 2d 20 47 65 74 20 63 68 61 6e -- Get chan
c000: 67 65 73 65 74 73 20 63 6f 6e 74 61 69 6e 69 6e gesets containin
c010: 67 20 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 g the.. AND
c020: 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 C.cid = CI.cid
c030: 20 20 20 20 20 20 20 2d 2d 20 72 6f 6f 74 20 72 -- root r
c040: 65 76 69 73 69 6f 6e 73 2c 20 77 68 69 63 68 20 evisions, which
c050: 61 72 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 are.. AND
c060: 43 2e 74 79 70 65 20 3d 20 30 20 20 20 20 20 20 C.type = 0
c070: 20 20 20 20 20 2d 2d 20 72 65 76 69 73 69 6f 6e -- revision
c080: 20 63 68 61 6e 67 65 73 65 74 73 0a 09 20 20 20 changesets..
c090: 20 41 4e 44 20 20 20 20 43 4f 2e 63 69 64 20 3d AND CO.cid =
c0a0: 20 43 2e 63 69 64 20 20 20 20 20 20 20 2d 2d 20 C.cid --
c0b0: 47 65 74 20 74 68 65 69 72 20 74 6f 70 6f 6c 6f Get their topolo
c0c0: 67 69 63 61 6c 20 6f 72 64 65 72 69 6e 67 0a 09 gical ordering..
c0d0: 20 20 20 20 47 52 4f 55 50 20 42 59 20 42 2e 62 GROUP BY B.b
c0e0: 69 64 0a 09 7d 5d 5d 0a 0a 09 73 65 74 20 6d 69 id..}]]...set mi
c0f0: 6e 73 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 ns [state run [s
c100: 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 ubst -nocommands
c110: 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 -nobackslashes
c120: 7b 0a 09 20 20 20 20 2d 2d 20 6d 69 6e 69 6d 61 {.. -- minima
c130: 6c 20 73 75 63 63 65 73 73 6f 72 20 70 6f 73 69 l successor posi
c140: 74 69 6f 6e 20 70 65 72 20 62 72 61 6e 63 68 0a tion per branch.
c150: 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 . SELECT B.bi
c160: 64 2c 20 4d 49 4e 20 28 43 4f 2e 70 6f 73 29 0a d, MIN (CO.pos).
c170: 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e . FROM bran
c180: 63 68 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 ch B, revision R
c190: 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 , csitem CI, cha
c1a0: 6e 67 65 73 65 74 20 43 2c 20 63 73 6f 72 64 65 ngeset C, csorde
c1b0: 72 20 43 4f 0a 09 20 20 20 20 57 48 45 52 45 20 r CO.. WHERE
c1c0: 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 B.bid IN $these
c1d0: 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 t -- Restric
c1e0: 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 t to branches of
c1f0: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
c200: 4e 44 20 20 20 20 42 2e 66 69 72 73 74 20 3d 20 ND B.first =
c210: 52 2e 72 69 64 20 20 20 20 20 20 2d 2d 20 47 65 R.rid -- Ge
c220: 74 20 74 68 65 20 66 69 72 73 74 20 72 65 76 69 t the first revi
c230: 73 69 6f 6e 73 20 6f 6e 20 74 68 65 20 62 72 61 sions on the bra
c240: 6e 63 68 65 73 0a 09 20 20 20 20 41 4e 44 20 20 nches.. AND
c250: 20 20 43 49 2e 69 69 64 20 3d 20 52 2e 72 69 64 CI.iid = R.rid
c260: 20 20 20 20 20 20 20 2d 2d 20 47 65 74 20 63 68 -- Get ch
c270: 61 6e 67 65 73 65 74 73 20 63 6f 6e 74 61 69 6e angesets contain
c280: 69 6e 67 20 74 68 65 0a 09 20 20 20 20 41 4e 44 ing the.. AND
c290: 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 C.cid = CI.c
c2a0: 69 64 09 2d 2d 20 66 69 72 73 74 20 72 65 76 69 id.-- first revi
c2b0: 73 69 6f 6e 73 2c 20 77 68 69 63 68 20 61 72 65 sions, which are
c2c0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 .. AND C.t
c2d0: 79 70 65 20 3d 20 30 09 09 2d 2d 20 72 65 76 69 ype = 0..-- revi
c2e0: 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a sion changesets.
c2f0: 09 20 20 20 20 41 4e 44 20 20 20 20 43 4f 2e 63 . AND CO.c
c300: 69 64 20 3d 20 43 2e 63 69 64 09 2d 2d 20 47 65 id = C.cid.-- Ge
c310: 74 20 74 68 65 69 72 20 74 6f 70 6f 6c 6f 67 69 t their topologi
c320: 63 61 6c 20 6f 72 64 65 72 69 6e 67 0a 09 20 20 cal ordering..
c330: 20 20 47 52 4f 55 50 20 42 59 20 42 2e 62 69 64 GROUP BY B.bid
c340: 0a 09 7d 5d 5d 0a 0a 20 20 20 20 20 20 20 20 72 ..}]].. r
c350: 65 74 75 72 6e 20 5b 6c 69 73 74 20 24 6d 61 78 eturn [list $max
c360: 70 20 24 6d 69 6e 73 5d 0a 20 20 20 20 7d 0a 0a p $mins]. }..
c370: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
c380: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
c390: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
c3a0: 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e ## Configuration
c3b0: 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 .. pragma -ha
c3c0: 73 69 6e 73 74 61 6e 63 65 73 20 20 20 6e 6f 20 sinstances no
c3d0: 3b 20 23 20 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 ; # singleton.
c3e0: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 pragma -hastyp
c3f0: 65 69 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 23 20 einfo no ; #
c400: 6e 6f 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e no introspection
c410: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 . pragma -has
c420: 74 79 70 65 64 65 73 74 72 6f 79 20 6e 6f 20 3b typedestroy no ;
c430: 20 23 20 69 6d 6d 6f 72 74 61 6c 0a 7d 0a 0a 23 # immortal.}..#
c440: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
c450: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
c460: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
c470: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 0a ############.##.
c480: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
c490: 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d ::vc::fossil::im
c4a0: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 port::cvs::proje
c4b0: 63 74 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 ct {. namespa
c4c0: 63 65 20 65 78 70 6f 72 74 20 72 65 76 0a 20 20 ce export rev.
c4d0: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
c4e0: 20 72 65 76 20 7b 0a 09 6e 61 6d 65 73 70 61 63 rev {..namespac
c4f0: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 e import ::vc::f
c500: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
c510: 76 73 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 73 vs::state..names
c520: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
c530: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
c540: 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 ::cvs::integrity
c550: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
c560: 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a rt ::vc::tools::
c570: 6d 69 73 63 3a 3a 2a 0a 09 6e 61 6d 65 73 70 61 misc::*..namespa
c580: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
c590: 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 tools::trouble..
c5a0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
c5b0: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f ::vc::tools::lo
c5c0: 67 0a 09 6c 6f 67 20 72 65 67 69 73 74 65 72 20 g..log register
c5d0: 63 73 65 74 73 0a 0a 09 23 20 53 65 74 20 75 70 csets...# Set up
c5e0: 20 74 68 65 20 68 65 6c 70 65 72 20 73 69 6e 67 the helper sing
c5f0: 6c 65 74 6f 6e 73 0a 09 6e 61 6d 65 73 70 61 63 letons..namespac
c600: 65 20 65 76 61 6c 20 72 65 76 20 7b 0a 09 20 20 e eval rev {..
c610: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f namespace impo
c620: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
c630: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 :import::cvs::st
c640: 61 74 65 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 ate.. namespa
c650: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
c660: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
c670: 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 cvs::integrity..
c680: 7d 0a 09 6e 61 6d 65 73 70 61 63 65 20 65 76 61 }..namespace eva
c690: 6c 20 73 79 6d 3a 3a 74 61 67 20 7b 0a 09 20 20 l sym::tag {..
c6a0: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f namespace impo
c6b0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
c6c0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 :import::cvs::st
c6d0: 61 74 65 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 ate.. namespa
c6e0: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
c6f0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
c700: 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 cvs::integrity..
c710: 7d 0a 09 6e 61 6d 65 73 70 61 63 65 20 65 76 61 }..namespace eva
c720: 6c 20 73 79 6d 3a 3a 62 72 61 6e 63 68 20 7b 0a l sym::branch {.
c730: 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 . namespace i
c740: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 mport ::vc::foss
c750: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
c760: 3a 73 74 61 74 65 0a 09 20 20 20 20 6e 61 6d 65 :state.. name
c770: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
c780: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
c790: 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 t::cvs::integrit
c7a0: 79 0a 09 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 y..}. }.}..#
c7b0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
c7c0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
c7d0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
c7e0: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 ###########.## R
c7f0: 65 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 eady..package pr
c800: 6f 76 69 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c ovide vc::fossil
c810: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
c820: 72 6f 6a 65 63 74 3a 3a 72 65 76 20 31 2e 30 0a roject::rev 1.0.
c830: 72 65 74 75 72 6e 0a return.