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 72 65 70 6f 73 69 74 6f t::cvs::reposito
04c0: 72 79 20 20 20 3b 20 23 20 52 65 70 6f 73 69 74 ry ; # Reposit
04d0: 6f 72 79 20 6d 61 6e 61 67 65 6d 65 6e 74 2e 0a ory management..
04e0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
04f0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0500: 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 20 20 rt::cvs::state
0510: 20 20 20 20 20 20 3b 20 23 20 53 74 61 74 65 20 ; # State
0520: 73 74 6f 72 61 67 65 2e 0a 70 61 63 6b 61 67 65 storage..package
0530: 20 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 require vc::fos
0540: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
0550: 3a 3a 69 6e 74 65 67 72 69 74 79 20 20 20 20 3b ::integrity ;
0560: 20 23 20 53 74 61 74 65 20 69 6e 74 65 67 72 69 # State integri
0570: 74 79 20 63 68 65 63 6b 73 2e 0a 0a 23 20 23 20 ty checks...# #
0580: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
0590: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
05a0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
05b0: 23 23 23 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e #########.##..sn
05c0: 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 it::type ::vc::f
05d0: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
05e0: 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 vs::project::rev
05f0: 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 {. # # ## ##
0600: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
0610: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 #############.
0620: 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 ## Public API
0630: 0a 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f .. constructo
0640: 72 20 7b 70 72 6f 6a 65 63 74 20 63 73 74 79 70 r {project cstyp
0650: 65 20 73 72 63 69 64 20 69 74 65 6d 73 20 7b 74 e srcid items {t
0660: 68 65 69 64 20 7b 7d 7d 7d 20 7b 0a 09 69 66 20 heid {}}} {..if
0670: 7b 24 74 68 65 69 64 20 6e 65 20 22 22 7d 20 7b {$theid ne ""} {
0680: 0a 09 20 20 20 20 73 65 74 20 6d 79 69 64 20 24 .. set myid $
0690: 74 68 65 69 64 0a 09 7d 20 65 6c 73 65 20 7b 0a theid..} else {.
06a0: 09 20 20 20 20 73 65 74 20 6d 79 69 64 20 5b 69 . set myid [i
06b0: 6e 63 72 20 6d 79 63 6f 75 6e 74 65 72 5d 0a 09 ncr mycounter]..
06c0: 7d 0a 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 }...integrity as
06d0: 73 65 72 74 20 7b 0a 09 20 20 20 20 5b 69 6e 66 sert {.. [inf
06e0: 6f 20 65 78 69 73 74 73 20 6d 79 63 73 74 79 70 o exists mycstyp
06f0: 65 28 24 63 73 74 79 70 65 29 5d 0a 09 7d 20 7b e($cstype)]..} {
0700: 42 61 64 20 63 68 61 6e 67 65 73 65 74 20 74 79 Bad changeset ty
0710: 70 65 20 27 24 63 73 74 79 70 65 27 2e 7d 0a 0a pe '$cstype'.}..
0720: 09 73 65 74 20 6d 79 70 72 6f 6a 65 63 74 20 20 .set myproject
0730: 20 24 70 72 6f 6a 65 63 74 0a 09 73 65 74 20 6d $project..set m
0740: 79 74 79 70 65 20 20 20 20 20 20 24 63 73 74 79 ytype $csty
0750: 70 65 0a 09 73 65 74 20 6d 79 74 79 70 65 6f 62 pe..set mytypeob
0760: 6a 20 20 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c j ::vc::fossil
0770: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
0780: 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 24 7b 63 roject::rev::${c
0790: 73 74 79 70 65 7d 0a 09 73 65 74 20 6d 79 73 72 stype}..set mysr
07a0: 63 69 64 09 24 73 72 63 69 64 0a 09 73 65 74 20 cid.$srcid..set
07b0: 6d 79 69 74 65 6d 73 20 20 20 20 20 24 69 74 65 myitems $ite
07c0: 6d 73 0a 09 73 65 74 20 6d 79 70 6f 73 20 20 20 ms..set mypos
07d0: 20 20 20 20 7b 7d 20 3b 20 23 20 43 6f 6d 6d 69 {} ; # Commi
07e0: 74 20 6c 6f 63 61 74 69 6f 6e 20 69 73 20 6e 6f t location is no
07f0: 74 20 6b 6e 6f 77 6e 20 79 65 74 2e 0a 0a 09 23 t known yet....#
0800: 20 4b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 74 Keep track of t
0810: 68 65 20 67 65 6e 65 72 61 74 65 64 20 63 68 61 he generated cha
0820: 6e 67 65 73 65 74 73 20 61 6e 64 20 6f 66 20 74 ngesets and of t
0830: 68 65 20 69 6e 76 65 72 73 65 0a 09 23 20 6d 61 he inverse..# ma
0840: 70 70 69 6e 67 20 66 72 6f 6d 20 69 74 65 6d 73 pping from items
0850: 20 74 6f 20 74 68 65 6d 2e 0a 09 6c 61 70 70 65 to them...lappe
0860: 6e 64 20 6d 79 63 68 61 6e 67 65 73 65 74 73 20 nd mychangesets
0870: 20 20 24 73 65 6c 66 0a 09 6c 61 70 70 65 6e 64 $self..lappend
0880: 20 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 24 mytchangesets($
0890: 63 73 74 79 70 65 29 20 24 73 65 6c 66 0a 09 73 cstype) $self..s
08a0: 65 74 20 20 20 20 20 6d 79 69 64 6d 61 70 28 24 et myidmap($
08b0: 6d 79 69 64 29 20 24 73 65 6c 66 0a 09 66 6f 72 myid) $self..for
08c0: 65 61 63 68 20 69 69 64 20 24 69 74 65 6d 73 20 each iid $items
08d0: 7b 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b {.. set key [
08e0: 6c 69 73 74 20 24 63 73 74 79 70 65 20 24 69 69 list $cstype $ii
08f0: 64 5d 0a 09 20 20 20 20 73 65 74 20 6d 79 69 74 d].. set myit
0900: 65 6d 6d 61 70 28 24 6b 65 79 29 20 24 73 65 6c emmap($key) $sel
0910: 66 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d f.. lappend m
0920: 79 74 69 74 65 6d 73 20 24 6b 65 79 0a 09 20 20 ytitems $key..
0930: 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 log write 8 cs
0940: 65 74 73 20 7b 4d 41 50 2b 20 69 74 65 6d 20 3c ets {MAP+ item <
0950: 24 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b 24 $key> $self = [$
0960: 73 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 09 72 self str]}..}..r
0970: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
0980: 20 6d 65 74 68 6f 64 20 73 74 72 20 7b 7d 20 7b method str {} {
0990: 0a 09 73 65 74 20 73 74 72 20 20 20 20 22 3c 22 ..set str "<"
09a0: 0a 09 73 65 74 20 64 65 74 61 69 6c 20 22 22 0a ..set detail "".
09b0: 09 69 66 20 7b 5b 24 6d 79 74 79 70 65 6f 62 6a .if {[$mytypeobj
09c0: 20 62 79 73 79 6d 62 6f 6c 5d 7d 20 7b 0a 09 20 bysymbol]} {..
09d0: 20 20 20 73 65 74 20 64 65 74 61 69 6c 20 22 20 set detail "
09e0: 27 5b 73 74 61 74 65 20 6f 6e 65 20 7b 0a 09 09 '[state one {...
09f0: 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 0a 09 09 SELECT S.name...
0a00: 46 52 4f 4d 20 20 20 73 79 6d 62 6f 6c 20 53 0a FROM symbol S.
0a10: 09 09 57 48 45 52 45 20 20 53 2e 73 69 64 20 3d ..WHERE S.sid =
0a20: 20 24 6d 79 73 72 63 69 64 0a 09 20 20 20 20 7d $mysrcid.. }
0a30: 5d 27 22 0a 09 7d 0a 09 61 70 70 65 6e 64 20 73 ]'"..}..append s
0a40: 74 72 20 22 24 6d 79 74 79 70 65 20 24 7b 6d 79 tr "$mytype ${my
0a50: 69 64 7d 24 7b 64 65 74 61 69 6c 7d 3e 22 0a 09 id}${detail}>"..
0a60: 72 65 74 75 72 6e 20 24 73 74 72 0a 20 20 20 20 return $str.
0a70: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 64 }.. method id
0a80: 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 {} { return
0a90: 24 6d 79 69 64 20 7d 0a 20 20 20 20 6d 65 74 68 $myid }. meth
0aa0: 6f 64 20 69 74 65 6d 73 20 7b 7d 20 7b 20 72 65 od items {} { re
0ab0: 74 75 72 6e 20 24 6d 79 74 69 74 65 6d 73 20 7d turn $mytitems }
0ac0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 61 74 61 . method data
0ad0: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c {} { return [l
0ae0: 69 73 74 20 24 6d 79 70 72 6f 6a 65 63 74 20 24 ist $myproject $
0af0: 6d 79 74 79 70 65 20 24 6d 79 73 72 63 69 64 5d mytype $mysrcid]
0b00: 20 7d 0a 0a 20 20 20 20 64 65 6c 65 67 61 74 65 }.. delegate
0b10: 20 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c method bysymbol
0b20: 20 20 20 74 6f 20 6d 79 74 79 70 65 6f 62 6a 0a to mytypeobj.
0b30: 20 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74 delegate met
0b40: 68 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 74 hod byrevision t
0b50: 6f 20 6d 79 74 79 70 65 6f 62 6a 0a 20 20 20 20 o mytypeobj.
0b60: 64 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 delegate method
0b70: 69 73 62 72 61 6e 63 68 20 20 20 74 6f 20 6d 79 isbranch to my
0b80: 74 79 70 65 6f 62 6a 0a 20 20 20 20 64 65 6c 65 typeobj. dele
0b90: 67 61 74 65 20 6d 65 74 68 6f 64 20 69 73 74 61 gate method ista
0ba0: 67 20 20 20 20 20 20 74 6f 20 6d 79 74 79 70 65 g to mytype
0bb0: 6f 62 6a 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 obj.. method
0bc0: 73 65 74 70 6f 73 20 7b 70 7d 20 7b 20 73 65 74 setpos {p} { set
0bd0: 20 6d 79 70 6f 73 20 24 70 20 3b 20 72 65 74 75 mypos $p ; retu
0be0: 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 rn }. method
0bf0: 70 6f 73 20 20 20 20 7b 7d 20 20 7b 20 72 65 74 pos {} { ret
0c00: 75 72 6e 20 24 6d 79 70 6f 73 20 7d 0a 0a 20 20 urn $mypos }..
0c10: 20 20 6d 65 74 68 6f 64 20 64 65 74 65 72 6d 69 method determi
0c20: 6e 65 73 75 63 63 65 73 73 6f 72 73 20 7b 7d 20 nesuccessors {}
0c30: 7b 0a 09 23 20 50 61 73 73 20 36 20 6f 70 65 72 {..# Pass 6 oper
0c40: 61 74 69 6f 6e 2e 20 43 6f 6d 70 75 74 65 20 70 ation. Compute p
0c50: 72 6f 6a 65 63 74 2d 6c 65 76 65 6c 20 64 65 70 roject-level dep
0c60: 65 6e 64 65 6e 63 69 65 73 20 66 72 6f 6d 0a 09 endencies from..
0c70: 23 20 74 68 65 20 66 69 6c 65 2d 6c 65 76 65 6c # the file-level
0c80: 20 64 61 74 61 20 61 6e 64 20 73 61 76 65 20 69 data and save i
0c90: 74 20 62 61 63 6b 20 74 6f 20 74 68 65 20 73 74 t back to the st
0ca0: 61 74 65 2e 20 54 68 69 73 20 6d 61 79 0a 09 23 ate. This may..#
0cb0: 20 62 65 20 63 61 6c 6c 65 64 20 64 75 72 69 6e be called durin
0cc0: 67 20 74 68 65 20 63 79 63 6c 65 20 62 72 65 61 g the cycle brea
0cd0: 6b 65 72 20 70 61 73 73 65 73 20 61 73 20 77 65 ker passes as we
0ce0: 6c 6c 2c 20 74 6f 20 61 64 6a 75 73 74 0a 09 23 ll, to adjust..#
0cf0: 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 20 69 the successor i
0d00: 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 20 63 68 nformation of ch
0d10: 61 6e 67 65 73 65 74 73 20 77 68 69 63 68 20 61 angesets which a
0d20: 72 65 20 74 68 65 0a 09 23 20 70 72 65 64 65 63 re the..# predec
0d30: 65 73 73 6f 72 73 20 6f 66 20 64 72 6f 70 70 65 essors of droppe
0d40: 64 20 63 68 61 6e 67 65 73 65 74 73 2e 20 46 6f d changesets. Fo
0d50: 72 20 74 68 65 6d 20 77 65 20 68 61 76 65 20 74 r them we have t
0d60: 6f 0a 09 23 20 72 65 6d 6f 76 65 20 74 68 65 69 o..# remove thei
0d70: 72 20 65 78 69 73 74 69 6e 67 20 69 6e 66 6f 72 r existing infor
0d80: 6d 61 74 69 6f 6e 20 66 69 72 73 74 20 62 65 66 mation first bef
0d90: 6f 72 65 20 69 6e 73 65 72 74 69 6e 67 20 74 68 ore inserting th
0da0: 65 0a 09 23 20 6e 65 77 20 64 61 74 61 2e 0a 09 e..# new data...
0db0: 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 state run {..
0dc0: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 63 73 73 DELETE FROM css
0dd0: 75 63 63 65 73 73 6f 72 20 57 48 45 52 45 20 63 uccessor WHERE c
0de0: 69 64 20 3d 20 24 6d 79 69 64 3b 0a 09 7d 0a 09 id = $myid;..}..
0df0: 73 65 74 20 6c 6f 6f 70 20 30 0a 09 66 6f 72 65 set loop 0..fore
0e00: 61 63 68 20 6e 69 64 20 5b 24 6d 79 74 79 70 65 ach nid [$mytype
0e10: 6f 62 6a 20 63 73 5f 73 75 63 63 65 73 73 6f 72 obj cs_successor
0e20: 73 20 24 6d 79 69 74 65 6d 73 5d 20 7b 0a 09 20 s $myitems] {..
0e30: 20 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 state run {..
0e40: 09 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 73 73 .INSERT INTO css
0e50: 75 63 63 65 73 73 6f 72 20 28 63 69 64 2c 20 20 uccessor (cid,
0e60: 6e 69 64 29 0a 09 09 56 41 4c 55 45 53 20 20 20 nid)...VALUES
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
0e80: 24 6d 79 69 64 2c 24 6e 69 64 29 0a 09 20 20 20 $myid,$nid)..
0e90: 20 7d 0a 09 20 20 20 20 69 66 20 7b 24 6e 69 64 }.. if {$nid
0ea0: 20 3d 3d 20 24 6d 79 69 64 7d 20 7b 20 73 65 74 == $myid} { set
0eb0: 20 6c 6f 6f 70 20 31 20 7d 0a 09 7d 0a 09 23 20 loop 1 }..}..#
0ec0: 52 65 70 6f 72 74 20 61 66 74 65 72 20 74 68 65 Report after the
0ed0: 20 63 6f 6d 70 6c 65 74 65 20 73 74 72 75 63 74 complete struct
0ee0: 75 72 65 20 68 61 73 20 62 65 65 6e 20 73 61 76 ure has been sav
0ef0: 65 64 2e 0a 09 69 66 20 7b 24 6c 6f 6f 70 7d 20 ed...if {$loop}
0f00: 7b 20 24 73 65 6c 66 20 72 65 70 6f 72 74 6c 6f { $self reportlo
0f10: 6f 70 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 op }..return.
0f20: 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 }.. # result
0f30: 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 = list (changes
0f40: 65 74 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 et). method s
0f50: 75 63 63 65 73 73 6f 72 73 20 7b 7d 20 7b 0a 09 uccessors {} {..
0f60: 23 20 55 73 65 20 74 68 65 20 64 61 74 61 20 73 # Use the data s
0f70: 61 76 65 64 20 62 79 20 70 61 73 73 20 36 2e 0a aved by pass 6..
0f80: 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 3a .return [struct:
0f90: 3a 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 74 65 :list map [state
0fa0: 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 run {.. SELE
0fb0: 43 54 20 53 2e 6e 69 64 0a 09 20 20 20 20 46 52 CT S.nid.. FR
0fc0: 4f 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 OM cssuccessor
0fd0: 20 53 0a 09 20 20 20 20 57 48 45 52 45 20 20 53 S.. WHERE S
0fe0: 2e 63 69 64 20 3d 20 24 6d 79 69 64 0a 09 7d 5d .cid = $myid..}]
0ff0: 20 5b 6d 79 74 79 70 65 6d 65 74 68 6f 64 20 6f [mytypemethod o
1000: 66 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 f]]. }.. #
1010: 20 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 item -> list (i
1020: 74 65 6d 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 tem). method
1030: 6e 65 78 74 6d 61 70 20 7b 7d 20 7b 0a 09 24 6d nextmap {} {..$m
1040: 79 74 79 70 65 6f 62 6a 20 73 75 63 63 65 73 73 ytypeobj success
1050: 6f 72 73 20 74 6d 70 20 24 6d 79 69 74 65 6d 73 ors tmp $myitems
1060: 0a 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 ..return [array
1070: 67 65 74 20 74 6d 70 5d 0a 20 20 20 20 7d 0a 0a get tmp]. }..
1080: 20 20 20 20 6d 65 74 68 6f 64 20 62 72 65 61 6b method break
1090: 69 6e 74 65 72 6e 61 6c 64 65 70 65 6e 64 65 6e internaldependen
10a0: 63 69 65 73 20 7b 7d 20 7b 0a 0a 09 23 23 0a 09 cies {} {...##..
10b0: 23 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 6d 65 ## NOTE: This me
10c0: 74 68 6f 64 2c 20 6d 61 79 62 65 20 69 6e 20 63 thod, maybe in c
10d0: 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 onjunction with
10e0: 69 74 73 20 63 61 6c 6c 65 72 0a 09 23 23 20 20 its caller..##
10f0: 20 20 20 20 20 73 65 65 6d 73 20 74 6f 20 62 65 seems to be
1100: 20 61 20 6d 65 6d 6f 72 79 20 68 6f 67 2c 20 65 a memory hog, e
1110: 73 70 65 63 69 61 6c 6c 79 20 66 6f 72 20 6c 61 specially for la
1120: 72 67 65 0a 09 23 23 20 20 20 20 20 20 20 63 68 rge..## ch
1130: 61 6e 67 65 73 65 74 73 2c 20 77 69 74 68 20 27 angesets, with '
1140: 6c 61 72 67 65 27 20 6d 65 61 6e 69 6e 67 20 74 large' meaning t
1150: 6f 20 68 61 76 65 20 61 20 27 6c 6f 6e 67 20 6c o have a 'long l
1160: 69 73 74 0a 09 23 23 20 20 20 20 20 20 20 6f 66 ist..## of
1170: 20 69 74 65 6d 73 2c 20 73 65 76 65 72 61 6c 20 items, several
1180: 74 68 6f 75 73 61 6e 64 27 2e 20 49 6e 76 65 73 thousand'. Inves
1190: 74 69 67 61 74 65 20 77 68 65 72 65 20 74 68 65 tigate where the
11a0: 0a 09 23 23 20 20 20 20 20 20 20 6d 65 6d 6f 72 ..## memor
11b0: 79 20 69 73 20 73 70 65 6e 74 20 61 6e 64 20 74 y is spent and t
11c0: 68 65 6e 20 6c 6f 6f 6b 20 66 6f 72 20 77 61 79 hen look for way
11d0: 73 20 6f 66 20 72 65 63 74 69 66 79 69 6e 67 0a s of rectifying.
11e0: 09 23 23 20 20 20 20 20 20 20 74 68 65 20 70 72 .## the pr
11f0: 6f 62 6c 65 6d 2e 0a 09 23 23 0a 0a 09 23 20 54 oblem...##...# T
1200: 68 69 73 20 6d 65 74 68 6f 64 20 69 6e 73 70 65 his method inspe
1210: 63 74 73 20 74 68 65 20 63 68 61 6e 67 65 73 65 cts the changese
1220: 74 73 20 66 6f 72 20 69 6e 74 65 72 6e 61 6c 0a ts for internal.
1230: 09 23 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e .# dependencies.
1240: 20 4e 6f 74 68 69 6e 67 20 69 73 20 64 6f 6e 65 Nothing is done
1250: 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f if there are no
1260: 0a 09 23 20 73 75 63 68 2e 20 4f 74 68 65 72 77 ..# such. Otherw
1270: 69 73 65 20 74 68 65 20 63 68 61 6e 67 65 73 65 ise the changese
1280: 74 20 69 73 20 73 70 6c 69 74 20 69 6e 74 6f 20 t is split into
1290: 61 20 73 65 74 20 6f 66 0a 09 23 20 66 72 61 67 a set of..# frag
12a0: 6d 65 6e 74 73 20 77 69 74 68 6f 75 74 20 69 6e ments without in
12b0: 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 ternal dependenc
12c0: 69 65 73 2c 20 74 72 61 6e 73 66 6f 72 6d 69 6e ies, transformin
12d0: 67 20 74 68 65 0a 09 23 20 69 6e 74 65 72 6e 61 g the..# interna
12e0: 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 69 l dependencies i
12f0: 6e 74 6f 20 65 78 74 65 72 6e 61 6c 20 6f 6e 65 nto external one
1300: 73 2e 20 54 68 65 20 6e 65 77 20 63 68 61 6e 67 s. The new chang
1310: 65 73 65 74 73 0a 09 23 20 61 72 65 20 61 64 64 esets..# are add
1320: 65 64 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6f ed to the list o
1330: 66 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 f all changesets
1340: 2e 0a 0a 09 23 20 57 65 20 70 65 72 66 6f 72 6d ....# We perform
1350: 20 61 6c 6c 20 6e 65 63 65 73 73 61 72 79 20 73 all necessary s
1360: 70 6c 69 74 73 20 69 6e 20 6f 6e 65 20 67 6f 2c plits in one go,
1370: 20 69 6e 73 74 65 61 64 20 6f 66 20 6f 6e 6c 79 instead of only
1380: 0a 09 23 20 6f 6e 65 2e 20 54 68 65 20 70 72 65 ..# one. The pre
1390: 76 69 6f 75 73 20 61 6c 67 6f 72 69 74 68 6d 2c vious algorithm,
13a0: 20 61 64 61 70 74 65 64 20 66 72 6f 6d 20 63 76 adapted from cv
13b0: 73 32 73 76 6e 2c 20 63 6f 6d 70 75 74 65 64 0a s2svn, computed.
13c0: 09 23 20 61 20 6c 6f 74 20 6f 66 20 73 74 61 74 .# a lot of stat
13d0: 65 20 77 68 69 63 68 20 77 61 73 20 74 68 72 6f e which was thro
13e0: 77 6e 20 61 77 61 79 20 61 6e 64 20 74 68 65 6e wn away and then
13f0: 20 63 6f 6d 70 75 74 65 64 20 61 67 61 69 6e 0a computed again.
1400: 09 23 20 66 6f 72 20 65 61 63 68 20 6f 66 20 74 .# for each of t
1410: 68 65 20 66 72 61 67 6d 65 6e 74 73 2e 20 49 74 he fragments. It
1420: 20 73 68 6f 75 6c 64 20 62 65 20 65 61 73 69 65 should be easie
1430: 72 20 74 6f 20 75 70 64 61 74 65 20 61 6e 64 0a r to update and.
1440: 09 23 20 72 65 75 73 65 20 74 68 61 74 20 73 74 .# reuse that st
1450: 61 74 65 2e 0a 0a 09 23 20 54 68 65 20 63 6f 64 ate....# The cod
1460: 65 20 63 68 65 63 6b 73 20 6f 6e 6c 79 20 73 75 e checks only su
1470: 63 63 65 73 73 6f 72 20 64 65 70 65 6e 64 65 6e ccessor dependen
1480: 63 69 65 73 2c 20 61 73 20 74 68 69 73 0a 09 23 cies, as this..#
1490: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 automatically c
14a0: 6f 76 65 72 73 20 74 68 65 20 70 72 65 64 65 63 overs the predec
14b0: 65 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 69 essor dependenci
14c0: 65 73 20 61 73 20 77 65 6c 6c 20 28 41 0a 09 23 es as well (A..#
14d0: 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e successor depen
14e0: 64 65 6e 63 79 20 61 20 2d 3e 20 62 20 69 73 20 dency a -> b is
14f0: 61 6c 73 6f 20 61 20 70 72 65 64 65 63 65 73 73 also a predecess
1500: 6f 72 20 64 65 70 65 6e 64 65 6e 63 79 0a 09 23 or dependency..#
1510: 20 62 20 2d 3e 20 61 29 2e 0a 0a 09 23 20 41 72 b -> a)....# Ar
1520: 72 61 79 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 ray of dependenc
1530: 69 65 73 20 28 70 61 72 65 6e 74 20 2d 3e 20 63 ies (parent -> c
1540: 68 69 6c 64 29 2e 20 54 68 69 73 20 69 73 20 70 hild). This is p
1550: 75 6c 6c 65 64 20 66 72 6f 6d 0a 09 23 20 74 68 ulled from..# th
1560: 65 20 73 74 61 74 65 2c 20 61 6e 64 20 6c 69 6d e state, and lim
1570: 69 74 65 64 20 74 6f 20 73 75 63 63 65 73 73 6f ited to successo
1580: 72 73 20 77 69 74 68 69 6e 20 74 68 65 20 63 68 rs within the ch
1590: 61 6e 67 65 73 65 74 2e 0a 0a 09 61 72 72 61 79 angeset....array
15a0: 20 73 65 74 20 64 65 70 65 6e 64 65 6e 63 69 65 set dependencie
15b0: 73 20 7b 7d 0a 09 24 6d 79 74 79 70 65 6f 62 6a s {}..$mytypeobj
15c0: 20 69 6e 74 65 72 6e 61 6c 73 75 63 63 65 73 73 internalsuccess
15d0: 6f 72 73 20 64 65 70 65 6e 64 65 6e 63 69 65 73 ors dependencies
15e0: 20 24 6d 79 69 74 65 6d 73 0a 09 69 66 20 7b 21 $myitems..if {!
15f0: 5b 61 72 72 61 79 20 73 69 7a 65 20 64 65 70 65 [array size depe
1600: 6e 64 65 6e 63 69 65 73 5d 7d 20 7b 72 65 74 75 ndencies]} {retu
1610: 72 6e 20 30 7d 20 3b 20 23 20 4e 6f 74 68 69 6e rn 0} ; # Nothin
1620: 67 20 74 6f 20 62 72 65 61 6b 2e 0a 0a 09 6c 6f g to break....lo
1630: 67 20 77 72 69 74 65 20 35 20 63 73 65 74 73 20 g write 5 csets
1640: 2e 2e 2e 5b 24 73 65 6c 66 20 73 74 72 5d 2e 2e ...[$self str]..
1650: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1660: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1670: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1680: 2e 2e 2e 2e 2e 0a 0a 09 23 20 57 65 20 68 61 76 ........# We hav
1690: 65 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e e internal depen
16a0: 64 65 6e 63 69 65 73 20 74 6f 20 62 72 65 61 6b dencies to break
16b0: 2e 20 57 65 20 6e 6f 77 20 69 74 65 72 61 74 65 . We now iterate
16c0: 20 6f 76 65 72 0a 09 23 20 61 6c 6c 20 70 6f 73 over..# all pos
16d0: 69 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 6c 69 itions in the li
16e0: 73 74 20 28 77 68 69 63 68 20 69 73 20 63 68 72 st (which is chr
16f0: 6f 6e 6f 6c 6f 67 69 63 61 6c 2c 20 61 74 20 6c onological, at l
1700: 65 61 73 74 0a 09 23 20 61 73 20 66 61 72 20 61 east..# as far a
1710: 73 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 s the timestamps
1720: 20 61 72 65 20 63 6f 72 72 65 63 74 20 61 6e 64 are correct and
1730: 20 75 6e 69 71 75 65 29 20 61 6e 64 0a 09 23 20 unique) and..#
1740: 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 62 65 determine the be
1750: 73 74 20 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 st position for
1760: 74 68 65 20 62 72 65 61 6b 2c 20 62 79 20 74 72 the break, by tr
1770: 79 69 6e 67 20 74 6f 0a 09 23 20 62 72 65 61 6b ying to..# break
1780: 20 61 73 20 6d 61 6e 79 20 64 65 70 65 6e 64 65 as many depende
1790: 6e 63 69 65 73 20 61 73 20 70 6f 73 73 69 62 6c ncies as possibl
17a0: 65 20 69 6e 20 6f 6e 65 20 67 6f 2e 20 57 68 65 e in one go. Whe
17b0: 6e 20 61 0a 09 23 20 62 72 65 61 6b 20 77 61 73 n a..# break was
17c0: 20 66 6f 75 6e 64 20 74 68 69 73 20 69 73 20 72 found this is r
17d0: 65 64 6f 6e 65 20 66 6f 72 20 74 68 65 20 66 72 edone for the fr
17e0: 61 67 6d 65 6e 74 73 20 63 6f 6d 69 6e 67 20 61 agments coming a
17f0: 6e 64 0a 09 23 20 61 66 74 65 72 2c 20 61 66 74 nd..# after, aft
1800: 65 72 20 75 70 64 69 6e 67 20 74 68 65 20 63 72 er upding the cr
1810: 6f 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 ossing informati
1820: 6f 6e 2e 0a 0a 09 23 20 44 61 74 61 20 73 74 72 on....# Data str
1830: 75 63 74 75 72 65 73 3a 0a 09 23 20 4d 61 70 3a uctures:..# Map:
1840: 20 20 50 4f 53 20 20 20 72 65 76 69 73 69 6f 6e POS revision
1850: 20 69 64 20 20 20 20 20 20 2d 3e 20 70 6f 73 69 id -> posi
1860: 74 69 6f 6e 20 69 6e 20 6c 69 73 74 2e 0a 09 23 tion in list...#
1870: 20 20 20 20 20 20 20 43 52 4f 53 53 20 70 6f 73 CROSS pos
1880: 69 74 69 6f 6e 20 69 6e 20 6c 69 73 74 20 2d 3e ition in list ->
1890: 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 70 65 6e number of depen
18a0: 64 65 6e 63 69 65 73 20 63 72 6f 73 73 69 6e 67 dencies crossing
18b0: 20 69 74 0a 09 23 20 20 20 20 20 20 20 44 45 50 it..# DEP
18c0: 43 20 20 64 65 70 65 6e 64 65 6e 63 79 20 20 20 C dependency
18d0: 20 20 20 20 2d 3e 20 70 6f 73 69 74 69 6f 6e 73 -> positions
18e0: 20 69 74 20 63 72 6f 73 73 65 73 0a 09 23 20 4c it crosses..# L
18f0: 69 73 74 3a 20 52 41 4e 47 45 20 4f 66 20 74 68 ist: RANGE Of th
1900: 65 20 70 6f 73 69 74 69 6f 6e 73 20 69 74 73 65 e positions itse
1910: 6c 66 2e 0a 09 23 20 41 20 64 65 70 65 6e 64 65 lf...# A depende
1920: 6e 63 79 20 69 73 20 61 20 73 69 6e 67 6c 65 2d ncy is a single-
1930: 65 6c 65 6d 65 6e 74 20 6d 61 70 20 70 61 72 65 element map pare
1940: 6e 74 20 2d 3e 20 63 68 69 6c 64 0a 0a 09 49 6e nt -> child...In
1950: 69 74 69 61 6c 69 7a 65 42 72 65 61 6b 53 74 61 itializeBreakSta
1960: 74 65 20 24 6d 79 69 74 65 6d 73 0a 0a 09 73 65 te $myitems...se
1970: 74 20 66 72 61 67 6d 65 6e 74 73 20 7b 7d 0a 09 t fragments {}..
1980: 73 65 74 20 6e 65 77 20 20 20 20 20 20 20 5b 6c set new [l
1990: 69 73 74 20 24 72 61 6e 67 65 5d 0a 09 61 72 72 ist $range]..arr
19a0: 61 79 20 73 65 74 20 62 72 65 61 6b 73 20 7b 7d ay set breaks {}
19b0: 0a 0a 09 23 20 49 6e 73 74 65 61 64 20 6f 66 20 ...# Instead of
19c0: 6f 6e 65 20 6c 69 73 74 20 68 6f 6c 64 69 6e 67 one list holding
19d0: 20 62 6f 74 68 20 70 72 6f 63 65 73 73 65 64 20 both processed
19e0: 61 6e 64 20 70 65 6e 64 69 6e 67 0a 09 23 20 66 and pending..# f
19f0: 72 61 67 6d 65 6e 74 73 20 77 65 20 75 73 65 20 ragments we use
1a00: 74 77 6f 2c 20 6f 6e 65 20 66 6f 72 20 74 68 65 two, one for the
1a10: 20 66 72 61 6d 65 6e 74 73 20 74 6f 20 70 72 6f framents to pro
1a20: 63 65 73 73 2c 20 6f 6e 65 0a 09 23 20 74 6f 20 cess, one..# to
1a30: 68 6f 6c 64 20 74 68 65 20 6e 65 77 20 66 72 61 hold the new fra
1a40: 67 6d 65 6e 74 73 2c 20 61 6e 64 20 74 68 65 20 gments, and the
1a50: 6c 61 74 74 65 72 20 69 73 20 63 6f 70 69 65 64 latter is copied
1a60: 20 74 6f 20 74 68 65 0a 09 23 20 66 6f 72 6d 65 to the..# forme
1a70: 72 20 77 68 65 6e 20 74 68 65 79 20 72 75 6e 20 r when they run
1a80: 6f 75 74 2e 20 54 68 69 73 20 6b 65 65 70 73 20 out. This keeps
1a90: 74 68 65 20 6c 69 73 74 20 6f 66 20 70 65 6e 64 the list of pend
1aa0: 69 6e 67 0a 09 23 20 66 72 61 67 6d 65 6e 74 73 ing..# fragments
1ab0: 20 73 68 6f 72 74 20 77 69 74 68 6f 75 74 20 73 short without s
1ac0: 61 63 72 69 66 69 63 69 6e 67 20 73 70 65 65 64 acrificing speed
1ad0: 20 62 79 20 73 68 69 66 74 69 6e 67 20 73 74 75 by shifting stu
1ae0: 66 66 0a 09 23 20 64 6f 77 6e 2e 20 57 65 20 65 ff..# down. We e
1af0: 73 70 65 63 69 61 6c 6c 79 20 64 72 6f 70 20 74 specially drop t
1b00: 68 65 20 6d 65 6d 6f 72 79 20 6f 66 20 66 72 61 he memory of fra
1b10: 67 6d 65 6e 74 73 20 62 72 6f 6b 65 6e 0a 09 23 gments broken..#
1b20: 20 64 75 72 69 6e 67 20 70 72 6f 63 65 73 73 69 during processi
1b30: 6e 67 20 61 66 74 65 72 20 61 20 73 68 6f 72 74 ng after a short
1b40: 20 74 69 6d 65 2c 20 69 6e 73 74 65 61 64 20 6f time, instead o
1b50: 66 20 6c 65 74 74 69 6e 67 20 69 74 0a 09 23 20 f letting it..#
1b60: 63 6f 6e 73 75 6d 65 20 6d 65 6d 6f 72 79 2e 0a consume memory..
1b70: 0a 09 77 68 69 6c 65 20 7b 5b 6c 6c 65 6e 67 74 ..while {[llengt
1b80: 68 20 24 6e 65 77 5d 7d 20 7b 0a 0a 09 20 20 20 h $new]} {...
1b90: 20 73 65 74 20 70 65 6e 64 69 6e 67 20 24 6e 65 set pending $ne
1ba0: 77 0a 09 20 20 20 20 73 65 74 20 6e 65 77 20 20 w.. set new
1bb0: 20 20 20 7b 7d 0a 09 20 20 20 20 73 65 74 20 61 {}.. set a
1bc0: 74 20 20 20 20 20 20 30 0a 0a 09 20 20 20 20 77 t 0... w
1bd0: 68 69 6c 65 20 7b 24 61 74 20 3c 20 5b 6c 6c 65 hile {$at < [lle
1be0: 6e 67 74 68 20 24 70 65 6e 64 69 6e 67 5d 7d 20 ngth $pending]}
1bf0: 7b 0a 09 09 73 65 74 20 63 75 72 72 65 6e 74 20 {...set current
1c00: 5b 6c 69 6e 64 65 78 20 24 70 65 6e 64 69 6e 67 [lindex $pending
1c10: 20 24 61 74 5d 0a 0a 09 09 6c 6f 67 20 77 72 69 $at]....log wri
1c20: 74 65 20 36 20 63 73 65 74 73 20 7b 2e 20 2e 20 te 6 csets {. .
1c30: 2e 2e 20 2e 2e 2e 20 2e 2e 2e 2e 2e 20 2e 2e 2e .. ... ..... ...
1c40: 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ..... ..........
1c50: 2e 2e 2e 7d 0a 09 09 6c 6f 67 20 77 72 69 74 65 ...}...log write
1c60: 20 36 20 63 73 65 74 73 20 7b 53 63 68 65 64 75 6 csets {Schedu
1c70: 6c 65 64 20 20 20 5b 6a 6f 69 6e 20 5b 50 52 73 led [join [PRs
1c80: 20 5b 6c 72 61 6e 67 65 20 24 70 65 6e 64 69 6e [lrange $pendin
1c90: 67 20 24 61 74 20 65 6e 64 5d 5d 20 7b 20 7d 5d g $at end]] { }]
1ca0: 7d 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 36 20 }...log write 6
1cb0: 63 73 65 74 73 20 7b 43 6f 6e 73 69 64 65 72 69 csets {Consideri
1cc0: 6e 67 20 5b 50 52 20 24 63 75 72 72 65 6e 74 5d ng [PR $current]
1cd0: 20 5c 5b 24 61 74 2f 5b 6c 6c 65 6e 67 74 68 20 \[$at/[llength
1ce0: 24 70 65 6e 64 69 6e 67 5d 5c 5d 7d 0a 0a 09 09 $pending]\]}....
1cf0: 73 65 74 20 62 65 73 74 20 5b 46 69 6e 64 42 65 set best [FindBe
1d00: 73 74 42 72 65 61 6b 20 24 63 75 72 72 65 6e 74 stBreak $current
1d10: 5d 0a 0a 09 09 69 66 20 7b 24 62 65 73 74 20 3c ]....if {$best <
1d20: 20 30 7d 20 7b 0a 09 09 20 20 20 20 23 20 54 68 0} {... # Th
1d30: 65 20 69 6e 73 70 65 63 74 65 64 20 72 61 6e 67 e inspected rang
1d40: 65 20 68 61 73 20 6e 6f 20 69 6e 74 65 72 6e 61 e has no interna
1d50: 6c 0a 09 09 20 20 20 20 23 20 64 65 70 65 6e 64 l... # depend
1d60: 65 6e 63 69 65 73 2e 20 54 68 69 73 20 69 73 20 encies. This is
1d70: 61 20 63 6f 6d 70 6c 65 74 65 20 66 72 61 67 6d a complete fragm
1d80: 65 6e 74 2e 0a 09 09 20 20 20 20 6c 61 70 70 65 ent.... lappe
1d90: 6e 64 20 66 72 61 67 6d 65 6e 74 73 20 24 63 75 nd fragments $cu
1da0: 72 72 65 6e 74 0a 0a 09 09 20 20 20 20 6c 6f 67 rrent.... log
1db0: 20 77 72 69 74 65 20 36 20 63 73 65 74 73 20 22 write 6 csets "
1dc0: 4e 6f 20 62 72 65 61 6b 73 2c 20 66 69 6e 61 6c No breaks, final
1dd0: 22 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 "...} else {...
1de0: 20 20 20 23 20 53 70 6c 69 74 20 74 68 65 20 72 # Split the r
1df0: 61 6e 67 65 20 61 6e 64 20 73 63 68 65 64 75 6c ange and schedul
1e00: 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a e the resulting.
1e10: 09 09 20 20 20 20 23 20 66 72 61 67 6d 65 6e 74 .. # fragment
1e20: 73 20 66 6f 72 20 66 75 72 74 68 65 72 20 69 6e s for further in
1e30: 73 70 65 63 74 69 6f 6e 2e 20 52 65 6d 65 6d 62 spection. Rememb
1e40: 65 72 20 74 68 65 0a 09 09 20 20 20 20 23 20 6e er the... # n
1e50: 75 6d 62 65 72 20 6f 66 20 64 65 70 65 6e 64 65 umber of depende
1e60: 6e 63 69 65 73 20 63 75 74 20 62 65 66 6f 72 65 ncies cut before
1e70: 20 77 65 20 72 65 6d 6f 76 65 20 74 68 65 6d 0a we remove them.
1e80: 09 09 20 20 20 20 23 20 66 72 6f 6d 20 63 6f 6e .. # from con
1e90: 73 69 64 65 72 61 74 69 6f 6e 2c 20 66 6f 72 20 sideration, for
1ea0: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 61 documentation la
1eb0: 74 65 72 2e 0a 0a 09 09 20 20 20 20 73 65 74 20 ter..... set
1ec0: 62 72 65 61 6b 73 28 24 62 65 73 74 29 20 24 63 breaks($best) $c
1ed0: 72 6f 73 73 28 24 62 65 73 74 29 0a 0a 09 09 20 ross($best)....
1ee0: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 36 20 63 log write 6 c
1ef0: 73 65 74 73 20 22 42 65 73 74 20 62 72 65 61 6b sets "Best break
1f00: 20 40 20 24 62 65 73 74 2c 20 63 75 74 74 69 6e @ $best, cuttin
1f10: 67 20 5b 6e 73 70 20 24 63 72 6f 73 73 28 24 62 g [nsp $cross($b
1f20: 65 73 74 29 20 64 65 70 65 6e 64 65 6e 63 79 20 est) dependency
1f30: 64 65 70 65 6e 64 65 6e 63 69 65 73 5d 22 0a 0a dependencies]"..
1f40: 09 09 20 20 20 20 23 20 4e 6f 74 65 3a 20 54 68 .. # Note: Th
1f50: 65 20 76 61 6c 75 65 20 6f 66 20 62 65 73 74 20 e value of best
1f60: 69 73 20 61 6e 20 61 62 6f 6c 75 74 65 20 6c 6f is an abolute lo
1f70: 63 61 74 69 6f 6e 0a 09 09 20 20 20 20 23 20 69 cation... # i
1f80: 6e 20 6d 79 69 74 65 6d 73 2e 20 55 73 65 20 74 n myitems. Use t
1f90: 68 65 20 73 74 61 72 74 20 6f 66 20 63 75 72 72 he start of curr
1fa0: 65 6e 74 20 74 6f 20 6d 61 6b 65 20 69 74 0a 09 ent to make it..
1fb0: 09 20 20 20 20 23 20 61 6e 20 69 6e 64 65 78 20 . # an index
1fc0: 61 62 73 6f 6c 75 74 65 20 74 6f 20 63 75 72 72 absolute to curr
1fd0: 65 6e 74 2e 0a 0a 09 09 20 20 20 20 73 65 74 20 ent..... set
1fe0: 62 72 65 6c 20 5b 65 78 70 72 20 7b 24 62 65 73 brel [expr {$bes
1ff0: 74 20 2d 20 5b 6c 69 6e 64 65 78 20 24 63 75 72 t - [lindex $cur
2000: 72 65 6e 74 20 30 5d 7d 5d 0a 09 09 20 20 20 20 rent 0]}]...
2010: 73 65 74 20 62 6e 65 78 74 20 24 62 72 65 6c 20 set bnext $brel
2020: 3b 20 69 6e 63 72 20 62 6e 65 78 74 0a 09 09 20 ; incr bnext...
2030: 20 20 20 73 65 74 20 66 72 61 67 62 65 66 6f 72 set fragbefor
2040: 65 20 5b 6c 72 61 6e 67 65 20 24 63 75 72 72 65 e [lrange $curre
2050: 6e 74 20 30 20 24 62 72 65 6c 5d 0a 09 09 20 20 nt 0 $brel]...
2060: 20 20 73 65 74 20 66 72 61 67 61 66 74 65 72 20 set fragafter
2070: 20 5b 6c 72 61 6e 67 65 20 24 63 75 72 72 65 6e [lrange $curren
2080: 74 20 24 62 6e 65 78 74 20 65 6e 64 5d 0a 0a 09 t $bnext end]...
2090: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 36 . log write 6
20a0: 20 63 73 65 74 73 20 22 4e 65 77 20 70 69 65 63 csets "New piec
20b0: 65 73 20 20 5b 50 52 20 24 66 72 61 67 62 65 66 es [PR $fragbef
20c0: 6f 72 65 5d 20 5b 50 52 20 24 66 72 61 67 61 66 ore] [PR $fragaf
20d0: 74 65 72 5d 22 0a 0a 09 09 20 20 20 20 69 6e 74 ter]".... int
20e0: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 5b egrity assert {[
20f0: 6c 6c 65 6e 67 74 68 20 24 66 72 61 67 62 65 66 llength $fragbef
2100: 6f 72 65 5d 7d 20 7b 46 6f 75 6e 64 20 7a 65 72 ore]} {Found zer
2110: 6f 2d 6c 65 6e 67 74 68 20 66 72 61 67 6d 65 6e o-length fragmen
2120: 74 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 t at the beginni
2130: 6e 67 7d 0a 09 09 20 20 20 20 69 6e 74 65 67 72 ng}... integr
2140: 69 74 79 20 61 73 73 65 72 74 20 7b 5b 6c 6c 65 ity assert {[lle
2150: 6e 67 74 68 20 24 66 72 61 67 61 66 74 65 72 5d ngth $fragafter]
2160: 7d 20 20 7b 46 6f 75 6e 64 20 7a 65 72 6f 2d 6c } {Found zero-l
2170: 65 6e 67 74 68 20 66 72 61 67 6d 65 6e 74 20 61 ength fragment a
2180: 74 20 74 68 65 20 65 6e 64 7d 0a 0a 09 09 20 20 t the end}....
2190: 20 20 6c 61 70 70 65 6e 64 20 6e 65 77 20 24 66 lappend new $f
21a0: 72 61 67 62 65 66 6f 72 65 20 24 66 72 61 67 61 ragbefore $fraga
21b0: 66 74 65 72 0a 09 09 20 20 20 20 43 75 74 41 74 fter... CutAt
21c0: 20 24 62 65 73 74 0a 09 09 7d 0a 0a 09 09 69 6e $best...}....in
21d0: 63 72 20 61 74 0a 09 20 20 20 20 7d 0a 09 7d 0a cr at.. }..}.
21e0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 ..log write 6 cs
21f0: 65 74 73 20 22 2e 20 2e 20 2e 2e 20 2e 2e 2e 20 ets ". . .. ...
2200: 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 20 2e ..... ........ .
2210: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 22 0a 0a 09 ............"...
2220: 23 20 28 2a 29 20 57 65 20 63 6c 65 61 72 20 6f # (*) We clear o
2230: 75 74 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 ut the associate
2240: 64 20 70 61 72 74 20 6f 66 20 74 68 65 20 6d 79 d part of the my
2250: 69 74 65 6d 6d 61 70 0a 09 23 20 69 6e 2d 6d 65 itemmap..# in-me
2260: 6d 6f 72 79 20 69 6e 64 65 78 20 69 6e 20 70 72 mory index in pr
2270: 65 70 61 72 61 74 69 6f 6e 20 66 6f 72 20 6e 65 eparation for ne
2280: 77 20 64 61 74 61 2e 20 41 20 73 69 6d 70 6c 65 w data. A simple
2290: 20 75 6e 73 65 74 0a 09 23 20 69 73 20 65 6e 6f unset..# is eno
22a0: 75 67 68 2c 20 77 65 20 68 61 76 65 20 6e 6f 20 ugh, we have no
22b0: 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 symbol changeset
22c0: 73 20 61 74 20 74 68 69 73 20 74 69 6d 65 2c 20 s at this time,
22d0: 61 6e 64 0a 09 23 20 74 68 75 73 20 6e 65 76 65 and..# thus neve
22e0: 72 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 r more than one
22f0: 72 65 66 65 72 65 6e 63 65 20 69 6e 20 74 68 65 reference in the
2300: 20 6c 69 73 74 2e 0a 0a 09 66 6f 72 65 61 63 68 list....foreach
2310: 20 69 69 64 20 24 6d 79 69 74 65 6d 73 20 7b 0a iid $myitems {.
2320: 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c 69 . set key [li
2330: 73 74 20 24 6d 79 74 79 70 65 20 24 69 69 64 5d st $mytype $iid]
2340: 0a 09 20 20 20 20 75 6e 73 65 74 20 6d 79 69 74 .. unset myit
2350: 65 6d 6d 61 70 28 24 6b 65 79 29 0a 09 20 20 20 emmap($key)..
2360: 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 log write 8 cse
2370: 74 73 20 7b 4d 41 50 2d 20 69 74 65 6d 20 3c 24 ts {MAP- item <$
2380: 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b 24 73 key> $self = [$s
2390: 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 0a 09 23 elf str]}..}...#
23a0: 20 43 72 65 61 74 65 20 63 68 61 6e 67 65 73 65 Create changese
23b0: 74 73 20 66 6f 72 20 74 68 65 20 66 72 61 67 6d ts for the fragm
23c0: 65 6e 74 73 2c 20 72 65 75 73 69 6e 67 20 74 68 ents, reusing th
23d0: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 0a 09 23 e current one..#
23e0: 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 66 for the first f
23f0: 72 61 67 6d 65 6e 74 2e 20 57 65 20 73 6f 72 74 ragment. We sort
2400: 20 74 68 65 6d 20 69 6e 20 6f 72 64 65 72 20 74 them in order t
2410: 6f 20 61 6c 6c 6f 77 0a 09 23 20 63 68 65 63 6b o allow..# check
2420: 69 6e 67 20 66 6f 72 20 67 61 70 73 20 61 6e 64 ing for gaps and
2430: 20 6e 69 63 65 20 6d 65 73 73 61 67 65 73 2e 0a nice messages..
2440: 0a 09 73 65 74 20 66 72 61 67 6d 65 6e 74 73 20 ..set fragments
2450: 5b 6c 73 6f 72 74 20 2d 69 6e 64 65 78 20 30 20 [lsort -index 0
2460: 2d 69 6e 74 65 67 65 72 20 24 66 72 61 67 6d 65 -integer $fragme
2470: 6e 74 73 5d 0a 0a 09 23 70 75 74 73 20 5c 74 2e nts]...#puts \t.
2480: 5b 6a 6f 69 6e 20 5b 50 52 73 20 24 66 72 61 67 [join [PRs $frag
2490: 6d 65 6e 74 73 5d 20 2e 5c 6e 5c 74 2e 5d 2e 0a ments] .\n\t.]..
24a0: 0a 09 42 6f 72 64 65 72 20 5b 6c 69 6e 64 65 78 ..Border [lindex
24b0: 20 24 66 72 61 67 6d 65 6e 74 73 20 30 5d 20 66 $fragments 0] f
24c0: 69 72 73 74 73 20 66 69 72 73 74 65 0a 0a 09 69 irsts firste...i
24d0: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
24e0: 7b 24 66 69 72 73 74 73 20 3d 3d 20 30 7d 20 7b {$firsts == 0} {
24f0: 42 61 64 20 66 72 61 67 6d 65 6e 74 20 73 74 61 Bad fragment sta
2500: 72 74 20 40 20 24 66 69 72 73 74 73 2c 20 67 61 rt @ $firsts, ga
2510: 70 2c 20 6f 72 20 62 65 66 6f 72 65 20 62 65 67 p, or before beg
2520: 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 72 61 inning of the ra
2530: 6e 67 65 7d 0a 0a 09 73 65 74 20 6c 61 73 74 65 nge}...set laste
2540: 20 24 66 69 72 73 74 65 0a 09 66 6f 72 65 61 63 $firste..foreac
2550: 68 20 66 72 61 67 6d 65 6e 74 20 5b 6c 72 61 6e h fragment [lran
2560: 67 65 20 24 66 72 61 67 6d 65 6e 74 73 20 31 20 ge $fragments 1
2570: 65 6e 64 5d 20 7b 0a 09 20 20 20 20 42 6f 72 64 end] {.. Bord
2580: 65 72 20 24 66 72 61 67 6d 65 6e 74 20 73 20 65 er $fragment s e
2590: 0a 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 .. integrity
25a0: 61 73 73 65 72 74 20 7b 24 6c 61 73 74 65 20 3d assert {$laste =
25b0: 3d 20 28 24 73 20 2d 20 31 29 7d 20 7b 42 61 64 = ($s - 1)} {Bad
25c0: 20 66 72 61 67 6d 65 6e 74 20 62 6f 72 64 65 72 fragment border
25d0: 20 3c 24 6c 61 73 74 65 20 7c 20 24 73 3e 2c 20 <$laste | $s>,
25e0: 67 61 70 20 6f 72 20 6f 76 65 72 6c 61 70 7d 0a gap or overlap}.
25f0: 0a 09 20 20 20 20 73 65 74 20 6e 65 77 20 5b 24 .. set new [$
2600: 74 79 70 65 20 25 41 55 54 4f 25 20 24 6d 79 70 type %AUTO% $myp
2610: 72 6f 6a 65 63 74 20 24 6d 79 74 79 70 65 20 24 roject $mytype $
2620: 6d 79 73 72 63 69 64 20 5b 6c 72 61 6e 67 65 20 mysrcid [lrange
2630: 24 6d 79 69 74 65 6d 73 20 24 73 20 24 65 5d 5d $myitems $s $e]]
2640: 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f .. lo
2650: 67 20 77 72 69 74 65 20 34 20 63 73 65 74 73 20 g write 4 csets
2660: 22 42 72 65 61 6b 69 6e 67 20 5b 24 73 65 6c 66 "Breaking [$self
2670: 20 73 74 72 20 5d 20 40 20 24 6c 61 73 74 65 2c str ] @ $laste,
2680: 20 6e 65 77 20 5b 24 6e 65 77 20 73 74 72 5d 2c new [$new str],
2690: 20 63 75 74 74 69 6e 67 20 24 62 72 65 61 6b 73 cutting $breaks
26a0: 28 24 6c 61 73 74 65 29 22 0a 0a 09 20 20 20 20 ($laste)"...
26b0: 73 65 74 20 6c 61 73 74 65 20 24 65 0a 09 7d 0a set laste $e..}.
26c0: 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 ..integrity asse
26d0: 72 74 20 7b 0a 09 20 20 20 20 24 6c 61 73 74 65 rt {.. $laste
26e0: 20 3d 3d 20 28 5b 6c 6c 65 6e 67 74 68 20 24 6d == ([llength $m
26f0: 79 69 74 65 6d 73 5d 2d 31 29 0a 09 7d 20 7b 42 yitems]-1)..} {B
2700: 61 64 20 66 72 61 67 6d 65 6e 74 20 65 6e 64 20 ad fragment end
2710: 40 20 24 6c 61 73 74 65 2c 20 67 61 70 2c 20 6f @ $laste, gap, o
2720: 72 20 62 65 79 6f 6e 64 20 65 6e 64 20 6f 66 20 r beyond end of
2730: 74 68 65 20 72 61 6e 67 65 7d 0a 0a 09 23 20 50 the range}...# P
2740: 75 74 20 74 68 65 20 66 69 72 73 74 20 66 72 61 ut the first fra
2750: 67 6d 65 6e 74 20 69 6e 74 6f 20 74 68 65 20 63 gment into the c
2760: 75 72 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 urrent changeset
2770: 2c 20 61 6e 64 0a 09 23 20 75 70 64 61 74 65 20 , and..# update
2780: 74 68 65 20 69 6e 2d 6d 65 6d 6f 72 79 20 69 6e the in-memory in
2790: 64 65 78 2e 20 57 65 20 63 61 6e 20 73 69 6d 70 dex. We can simp
27a0: 6c 79 20 28 72 65 29 61 64 64 20 74 68 65 20 69 ly (re)add the i
27b0: 74 65 6d 73 0a 09 23 20 62 65 63 61 75 73 65 20 tems..# because
27c0: 77 65 20 63 6c 65 61 72 65 64 20 74 68 65 20 70 we cleared the p
27d0: 72 65 76 69 6f 75 73 6c 79 20 65 78 69 73 74 69 reviously existi
27e0: 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 ng information,
27f0: 73 65 65 0a 09 23 20 28 2a 29 20 61 62 6f 76 65 see..# (*) above
2800: 2e 20 50 65 72 73 69 73 74 65 6e 63 65 20 64 6f . Persistence do
2810: 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 20 68 65 es not matter he
2820: 72 65 2c 20 6e 6f 6e 65 20 6f 66 20 74 68 65 0a re, none of the.
2830: 09 23 20 63 68 61 6e 67 65 73 65 74 73 20 68 61 .# changesets ha
2840: 73 20 62 65 65 6e 20 73 61 76 65 64 20 74 6f 20 s been saved to
2850: 74 68 65 20 70 65 72 73 69 73 74 65 6e 74 20 73 the persistent s
2860: 74 61 74 65 20 79 65 74 2e 0a 0a 09 73 65 74 20 tate yet....set
2870: 6d 79 69 74 65 6d 73 20 20 5b 6c 72 61 6e 67 65 myitems [lrange
2880: 20 24 6d 79 69 74 65 6d 73 20 20 30 20 24 66 69 $myitems 0 $fi
2890: 72 73 74 65 5d 0a 09 73 65 74 20 6d 79 74 69 74 rste]..set mytit
28a0: 65 6d 73 20 5b 6c 72 61 6e 67 65 20 24 6d 79 74 ems [lrange $myt
28b0: 69 74 65 6d 73 20 30 20 24 66 69 72 73 74 65 5d items 0 $firste]
28c0: 0a 09 66 6f 72 65 61 63 68 20 69 69 64 20 24 6d ..foreach iid $m
28d0: 79 69 74 65 6d 73 20 7b 0a 09 20 20 20 20 73 65 yitems {.. se
28e0: 74 20 6b 65 79 20 5b 6c 69 73 74 20 24 6d 79 74 t key [list $myt
28f0: 79 70 65 20 24 69 69 64 5d 0a 09 20 20 20 20 73 ype $iid].. s
2900: 65 74 20 6d 79 69 74 65 6d 6d 61 70 28 24 6b 65 et myitemmap($ke
2910: 79 29 20 24 73 65 6c 66 0a 09 20 20 20 20 6c 6f y) $self.. lo
2920: 67 20 77 72 69 74 65 20 38 20 63 73 65 74 73 20 g write 8 csets
2930: 7b 4d 41 50 2b 20 69 74 65 6d 20 3c 24 6b 65 79 {MAP+ item <$key
2940: 3e 20 24 73 65 6c 66 20 3d 20 5b 24 73 65 6c 66 > $self = [$self
2950: 20 73 74 72 5d 7d 0a 09 7d 0a 0a 09 72 65 74 75 str]}..}...retu
2960: 72 6e 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 rn 1. }..
2970: 6d 65 74 68 6f 64 20 70 65 72 73 69 73 74 20 7b method persist {
2980: 7d 20 7b 0a 09 73 65 74 20 74 69 64 20 24 6d 79 } {..set tid $my
2990: 63 73 74 79 70 65 28 24 6d 79 74 79 70 65 29 0a cstype($mytype).
29a0: 09 73 65 74 20 70 69 64 20 5b 24 6d 79 70 72 6f .set pid [$mypro
29b0: 6a 65 63 74 20 69 64 5d 0a 09 73 65 74 20 70 6f ject id]..set po
29c0: 73 20 30 0a 0a 09 73 74 61 74 65 20 74 72 61 6e s 0...state tran
29d0: 73 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 saction {.. s
29e0: 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 49 4e 53 tate run {...INS
29f0: 45 52 54 20 49 4e 54 4f 20 63 68 61 6e 67 65 73 ERT INTO changes
2a00: 65 74 20 28 63 69 64 2c 20 20 20 70 69 64 2c 20 et (cid, pid,
2a10: 20 74 79 70 65 2c 20 73 72 63 29 0a 09 09 56 41 type, src)...VA
2a20: 4c 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 LUES
2a30: 20 20 20 20 28 24 6d 79 69 64 2c 20 24 70 69 64 ($myid, $pid
2a40: 2c 20 24 74 69 64 2c 20 24 6d 79 73 72 63 69 64 , $tid, $mysrcid
2a50: 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 );.. }...
2a60: 66 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 69 foreach iid $myi
2a70: 74 65 6d 73 20 7b 0a 09 09 73 74 61 74 65 20 72 tems {...state r
2a80: 75 6e 20 7b 0a 09 09 20 20 20 20 49 4e 53 45 52 un {... INSER
2a90: 54 20 49 4e 54 4f 20 63 73 69 74 65 6d 20 28 63 T INTO csitem (c
2aa0: 69 64 2c 20 20 20 70 6f 73 2c 20 20 69 69 64 29 id, pos, iid)
2ab0: 0a 09 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 ... VALUES
2ac0: 20 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 ($myid
2ad0: 2c 20 24 70 6f 73 2c 20 24 69 69 64 29 3b 0a 09 , $pos, $iid);..
2ae0: 09 7d 0a 09 09 69 6e 63 72 20 70 6f 73 0a 09 20 .}...incr pos..
2af0: 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a }..}..return.
2b00: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
2b10: 64 20 74 69 6d 65 72 61 6e 67 65 20 7b 7d 20 7b d timerange {} {
2b20: 20 72 65 74 75 72 6e 20 5b 24 6d 79 74 79 70 65 return [$mytype
2b30: 6f 62 6a 20 74 69 6d 65 72 61 6e 67 65 20 24 6d obj timerange $m
2b40: 79 69 74 65 6d 73 5d 20 7d 0a 0a 20 20 20 20 6d yitems] }.. m
2b50: 65 74 68 6f 64 20 6c 69 6d 69 74 73 20 7b 7d 20 ethod limits {}
2b60: 7b 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 {..struct::list
2b70: 61 73 73 69 67 6e 20 5b 24 6d 79 74 79 70 65 6f assign [$mytypeo
2b80: 62 6a 20 6c 69 6d 69 74 73 20 24 6d 79 69 74 65 bj limits $myite
2b90: 6d 73 5d 20 6d 61 78 70 20 6d 69 6e 73 0a 09 72 ms] maxp mins..r
2ba0: 65 74 75 72 6e 20 5b 6c 69 73 74 20 5b 54 61 67 eturn [list [Tag
2bb0: 49 74 65 6d 44 69 63 74 20 24 6d 61 78 70 20 24 ItemDict $maxp $
2bc0: 6d 79 74 79 70 65 5d 20 5b 54 61 67 49 74 65 6d mytype] [TagItem
2bd0: 44 69 63 74 20 24 6d 69 6e 73 20 24 6d 79 74 79 Dict $mins $myty
2be0: 70 65 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 pe]]. }..
2bf0: 6d 65 74 68 6f 64 20 64 72 6f 70 20 7b 7d 20 7b method drop {} {
2c00: 0a 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 ..log write 8 cs
2c10: 65 74 73 20 7b 44 72 6f 70 70 69 6e 67 20 24 73 ets {Dropping $s
2c20: 65 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 74 72 elf = [$self str
2c30: 5d 7d 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 ]}...state trans
2c40: 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 action {.. st
2c50: 61 74 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 ate run {...DELE
2c60: 54 45 20 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 TE FROM changese
2c70: 74 20 20 20 57 48 45 52 45 20 63 69 64 20 3d 20 t WHERE cid =
2c80: 24 6d 79 69 64 3b 0a 09 09 44 45 4c 45 54 45 20 $myid;...DELETE
2c90: 46 52 4f 4d 20 63 73 69 74 65 6d 20 20 20 20 20 FROM csitem
2ca0: 20 57 48 45 52 45 20 63 69 64 20 3d 20 24 6d 79 WHERE cid = $my
2cb0: 69 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 52 4f id;...DELETE FRO
2cc0: 4d 20 63 73 73 75 63 63 65 73 73 6f 72 20 57 48 M cssuccessor WH
2cd0: 45 52 45 20 63 69 64 20 3d 20 24 6d 79 69 64 3b ERE cid = $myid;
2ce0: 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 65 .. }..}..fore
2cf0: 61 63 68 20 69 69 64 20 24 6d 79 69 74 65 6d 73 ach iid $myitems
2d00: 20 7b 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 {.. set key
2d10: 5b 6c 69 73 74 20 24 6d 79 74 79 70 65 20 24 69 [list $mytype $i
2d20: 69 64 5d 0a 09 20 20 20 20 75 6e 73 65 74 20 6d id].. unset m
2d30: 79 69 74 65 6d 6d 61 70 28 24 6b 65 79 29 0a 09 yitemmap($key)..
2d40: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 log write 8
2d50: 63 73 65 74 73 20 7b 4d 41 50 2d 20 69 74 65 6d csets {MAP- item
2d60: 20 3c 24 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 <$key> $self =
2d70: 5b 24 73 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a [$self str]}..}.
2d80: 09 73 65 74 20 70 6f 73 20 20 20 20 20 20 20 20 .set pos
2d90: 20 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 [lsearch -exac
2da0: 74 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 20 t $mychangesets
2db0: 24 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 63 68 $self]..set mych
2dc0: 61 6e 67 65 73 65 74 73 20 5b 6c 72 65 70 6c 61 angesets [lrepla
2dd0: 63 65 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 ce $mychangesets
2de0: 20 24 70 6f 73 20 24 70 6f 73 5d 0a 09 73 65 74 $pos $pos]..set
2df0: 20 70 6f 73 20 20 20 20 20 20 20 20 20 20 20 20 pos
2e00: 20 20 20 20 20 20 20 20 5b 6c 73 65 61 72 63 68 [lsearch
2e10: 20 2d 65 78 61 63 74 20 24 6d 79 74 63 68 61 6e -exact $mytchan
2e20: 67 65 73 65 74 73 28 24 6d 79 74 79 70 65 29 20 gesets($mytype)
2e30: 24 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 74 63 $self]..set mytc
2e40: 68 61 6e 67 65 73 65 74 73 28 24 6d 79 74 79 70 hangesets($mytyp
2e50: 65 29 20 5b 6c 72 65 70 6c 61 63 65 20 24 6d 79 e) [lreplace $my
2e60: 74 63 68 61 6e 67 65 73 65 74 73 28 24 6d 79 74 tchangesets($myt
2e70: 79 70 65 29 20 24 70 6f 73 20 24 70 6f 73 5d 0a ype) $pos $pos].
2e80: 0a 09 23 20 52 65 74 75 72 6e 20 74 68 65 20 6c ..# Return the l
2e90: 69 73 74 20 6f 66 20 70 72 65 64 65 63 65 73 73 ist of predecess
2ea0: 6f 72 73 20 73 6f 20 74 68 61 74 20 74 68 65 79 ors so that they
2eb0: 20 63 61 6e 20 62 65 20 61 64 6a 75 73 74 65 64 can be adjusted
2ec0: 2e 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 ...return [struc
2ed0: 74 3a 3a 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 t::list map [sta
2ee0: 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 te run {.. SE
2ef0: 4c 45 43 54 20 63 69 64 0a 09 20 20 20 20 46 52 LECT cid.. FR
2f00: 4f 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 OM cssuccessor
2f10: 0a 09 20 20 20 20 57 48 45 52 45 20 20 6e 69 64 .. WHERE nid
2f20: 20 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 5b 6d 79 = $myid..}] [my
2f30: 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 5d 5d 0a typemethod of]].
2f40: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
2f50: 64 20 72 65 70 6f 72 74 6c 6f 6f 70 20 7b 7b 6b d reportloop {{k
2f60: 69 6c 6c 20 31 7d 7d 20 7b 0a 09 23 20 57 65 20 ill 1}} {..# We
2f70: 70 72 69 6e 74 20 74 68 65 20 69 74 65 6d 73 20 print the items
2f80: 77 68 69 63 68 20 61 72 65 20 70 72 6f 64 75 63 which are produc
2f90: 69 6e 67 20 74 68 65 20 6c 6f 6f 70 2c 20 61 6e ing the loop, an
2fa0: 64 20 68 6f 77 2e 0a 0a 09 73 65 74 20 68 64 72 d how....set hdr
2fb0: 20 22 53 65 6c 66 2d 72 65 66 65 72 65 6e 74 69 "Self-referenti
2fc0: 61 6c 20 63 68 61 6e 67 65 73 65 74 20 5b 24 73 al changeset [$s
2fd0: 65 6c 66 20 73 74 72 5d 20 5f 5f 5f 5f 5f 5f 5f elf str] _______
2fe0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 0a 09 73 65 ___________"..se
2ff0: 74 20 66 74 72 20 5b 72 65 67 73 75 62 20 2d 61 t ftr [regsub -a
3000: 6c 6c 20 7b 5b 5e 20 09 5d 7d 20 24 68 64 72 20 ll {[^ .]} $hdr
3010: 7b 5f 7d 5d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 {_}]...log write
3020: 20 30 20 63 73 65 74 73 20 24 68 64 72 0a 09 66 0 csets $hdr..f
3030: 6f 72 65 61 63 68 20 7b 69 74 65 6d 20 6e 65 78 oreach {item nex
3040: 74 69 74 65 6d 7d 20 5b 24 6d 79 74 79 70 65 6f titem} [$mytypeo
3050: 62 6a 20 6c 6f 6f 70 73 20 24 6d 79 69 74 65 6d bj loops $myitem
3060: 73 5d 20 7b 0a 09 20 20 20 20 23 20 43 72 65 61 s] {.. # Crea
3070: 74 65 20 74 61 67 67 65 64 20 69 74 65 6d 73 20 te tagged items
3080: 66 72 6f 6d 20 74 68 65 20 69 64 20 61 6e 64 20 from the id and
3090: 6f 75 72 20 74 79 70 65 2e 0a 09 20 20 20 20 73 our type... s
30a0: 65 74 20 69 74 65 6d 20 20 20 20 20 5b 6c 69 73 et item [lis
30b0: 74 20 24 6d 79 74 79 70 65 20 20 24 69 74 65 6d t $mytype $item
30c0: 5d 0a 09 20 20 20 20 73 65 74 20 6e 65 78 74 69 ].. set nexti
30d0: 74 65 6d 20 5b 6c 69 73 74 20 24 6d 79 74 79 70 tem [list $mytyp
30e0: 65 20 24 6e 65 78 74 69 74 65 6d 5d 0a 09 20 20 e $nextitem]..
30f0: 20 20 23 20 50 72 69 6e 74 61 62 6c 65 20 6c 61 # Printable la
3100: 62 65 6c 73 2e 0a 09 20 20 20 20 73 65 74 20 69 bels... set i
3110: 20 20 22 3c 5b 24 74 79 70 65 20 69 74 65 6d 73 "<[$type items
3120: 74 72 20 24 69 74 65 6d 5d 3e 22 0a 09 20 20 20 tr $item]>"..
3130: 20 73 65 74 20 6e 20 20 22 3c 5b 24 74 79 70 65 set n "<[$type
3140: 20 69 74 65 6d 73 74 72 20 24 6e 65 78 74 69 74 itemstr $nextit
3150: 65 6d 5d 3e 22 0a 09 20 20 20 20 73 65 74 20 6e em]>".. set n
3160: 63 73 20 24 6d 79 69 74 65 6d 6d 61 70 28 24 6e cs $myitemmap($n
3170: 65 78 74 69 74 65 6d 29 0a 09 20 20 20 20 23 20 extitem).. #
3180: 50 72 69 6e 74 0a 09 20 20 20 20 6c 6f 67 20 77 Print.. log w
3190: 72 69 74 65 20 30 20 63 73 65 74 73 20 7b 2a 20 rite 0 csets {*
31a0: 24 69 20 2d 2d 3e 20 24 6e 20 2d 2d 3e 20 63 73 $i --> $n --> cs
31b0: 20 5b 24 6e 63 73 20 73 74 72 5d 7d 0a 09 7d 0a [$ncs str]}..}.
31c0: 09 6c 6f 67 20 77 72 69 74 65 20 30 20 63 73 65 .log write 0 cse
31d0: 74 73 20 24 66 74 72 0a 0a 09 69 66 20 7b 21 24 ts $ftr...if {!$
31e0: 6b 69 6c 6c 7d 20 72 65 74 75 72 6e 0a 09 74 72 kill} return..tr
31f0: 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 22 ouble internal "
3200: 5b 24 73 65 6c 66 20 73 74 72 5d 20 64 65 70 65 [$self str] depe
3210: 6e 64 73 20 6f 6e 20 69 74 73 65 6c 66 22 0a 09 nds on itself"..
3220: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
3230: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 70 6c typemethod spl
3240: 69 74 20 7b 63 73 65 74 20 61 72 67 73 7d 20 7b it {cset args} {
3250: 0a 09 23 20 41 73 20 70 61 72 74 20 6f 66 20 74 ..# As part of t
3260: 68 65 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 he creation of t
3270: 68 65 20 6e 65 77 20 63 68 61 6e 67 65 73 65 74 he new changeset
3280: 73 20 73 70 65 63 69 66 69 65 64 20 69 6e 0a 09 s specified in..
3290: 23 20 41 52 47 53 20 61 73 20 73 65 74 73 20 6f # ARGS as sets o
32a0: 66 20 69 74 65 6d 73 2c 20 61 6c 6c 20 73 75 62 f items, all sub
32b0: 73 65 74 73 20 6f 66 20 43 53 45 54 27 73 20 69 sets of CSET's i
32c0: 74 65 6d 20 73 65 74 2c 20 43 53 45 54 0a 09 23 tem set, CSET..#
32d0: 20 77 69 6c 6c 20 62 65 20 64 72 6f 70 70 65 64 will be dropped
32e0: 20 66 72 6f 6d 20 61 6c 6c 20 64 61 74 61 62 61 from all databa
32f0: 73 65 73 2c 20 69 6e 20 61 6e 64 20 6f 75 74 20 ses, in and out
3300: 6f 66 20 6d 65 6d 6f 72 79 2c 0a 09 23 20 61 6e of memory,..# an
3310: 64 20 74 68 65 6e 20 64 65 73 74 72 6f 79 65 64 d then destroyed
3320: 2e 0a 09 23 0a 09 23 20 4e 6f 74 65 3a 20 54 68 ...#..# Note: Th
3330: 65 20 69 74 65 6d 20 6c 69 73 74 73 20 66 6f 75 e item lists fou
3340: 6e 64 20 69 6e 20 61 72 67 73 20 61 72 65 20 74 nd in args are t
3350: 61 67 67 65 64 20 69 74 65 6d 73 2e 20 54 68 65 agged items. The
3360: 79 0a 09 23 20 68 61 76 65 20 74 6f 20 68 61 76 y..# have to hav
3370: 65 20 74 68 65 20 73 61 6d 65 20 74 79 70 65 20 e the same type
3380: 61 73 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 as the changeset
3390: 2c 20 62 65 69 6e 67 20 73 75 62 73 65 74 73 0a , being subsets.
33a0: 09 23 20 6f 66 20 69 74 73 20 69 74 65 6d 73 2e .# of its items.
33b0: 20 54 68 69 73 20 69 73 20 63 68 65 63 6b 65 64 This is checked
33c0: 20 69 6e 20 55 6e 74 61 67 31 2e 0a 0a 09 6c 6f in Untag1....lo
33d0: 67 20 77 72 69 74 65 20 38 20 63 73 65 74 73 20 g write 8 csets
33e0: 7b 4f 4c 44 3a 20 5b 6c 73 6f 72 74 20 5b 24 63 {OLD: [lsort [$c
33f0: 73 65 74 20 69 74 65 6d 73 5d 5d 7d 0a 09 56 61 set items]]}..Va
3400: 6c 69 64 61 74 65 46 72 61 67 6d 65 6e 74 73 20 lidateFragments
3410: 24 63 73 65 74 20 24 61 72 67 73 0a 0a 09 23 20 $cset $args...#
3420: 41 6c 6c 20 63 68 65 63 6b 73 20 70 61 73 73 2c All checks pass,
3430: 20 61 63 74 75 61 6c 6c 79 20 70 65 72 66 6f 72 actually perfor
3440: 6d 20 74 68 65 20 73 70 6c 69 74 2e 0a 0a 09 73 m the split....s
3450: 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 truct::list assi
3460: 67 6e 20 5b 24 63 73 65 74 20 64 61 74 61 5d 20 gn [$cset data]
3470: 70 72 6f 6a 65 63 74 20 63 73 74 79 70 65 20 63 project cstype c
3480: 73 73 72 63 0a 0a 09 73 65 74 20 70 72 65 64 65 ssrc...set prede
3490: 63 65 73 73 6f 72 73 20 5b 24 63 73 65 74 20 64 cessors [$cset d
34a0: 72 6f 70 5d 0a 09 24 63 73 65 74 20 64 65 73 74 rop]..$cset dest
34b0: 72 6f 79 0a 0a 09 73 65 74 20 6e 65 77 63 73 65 roy...set newcse
34c0: 74 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 66 ts {}..foreach f
34d0: 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 24 61 72 ragmentitems $ar
34e0: 67 73 20 7b 0a 09 20 20 20 20 6c 6f 67 20 77 72 gs {.. log wr
34f0: 69 74 65 20 38 20 63 73 65 74 73 20 7b 4d 41 4b ite 8 csets {MAK
3500: 45 3a 20 5b 6c 73 6f 72 74 20 24 66 72 61 67 6d E: [lsort $fragm
3510: 65 6e 74 69 74 65 6d 73 5d 7d 0a 0a 09 20 20 20 entitems]}...
3520: 20 73 65 74 20 66 72 61 67 6d 65 6e 74 20 5b 24 set fragment [$
3530: 74 79 70 65 20 25 41 55 54 4f 25 20 24 70 72 6f type %AUTO% $pro
3540: 6a 65 63 74 20 24 63 73 74 79 70 65 20 24 63 73 ject $cstype $cs
3550: 73 72 63 20 5c 0a 09 09 09 20 20 20 20 20 20 5b src \.... [
3560: 55 6e 74 61 67 20 24 66 72 61 67 6d 65 6e 74 69 Untag $fragmenti
3570: 74 65 6d 73 20 24 63 73 74 79 70 65 5d 5d 0a 09 tems $cstype]]..
3580: 20 20 20 20 6c 61 70 70 65 6e 64 20 6e 65 77 63 lappend newc
3590: 73 65 74 73 20 24 66 72 61 67 6d 65 6e 74 0a 0a sets $fragment..
35a0: 09 20 20 20 20 24 66 72 61 67 6d 65 6e 74 20 70 . $fragment p
35b0: 65 72 73 69 73 74 0a 09 20 20 20 20 24 66 72 61 ersist.. $fra
35c0: 67 6d 65 6e 74 20 64 65 74 65 72 6d 69 6e 65 73 gment determines
35d0: 75 63 63 65 73 73 6f 72 73 0a 09 7d 0a 0a 09 23 uccessors..}...#
35e0: 20 54 68 65 20 70 72 65 64 65 63 65 73 73 6f 72 The predecessor
35f0: 73 20 68 61 76 65 20 74 6f 20 72 65 63 6f 6d 70 s have to recomp
3600: 75 74 65 20 74 68 65 69 72 20 73 75 63 63 65 73 ute their succes
3610: 73 6f 72 73 2c 20 69 2e 65 2e 0a 09 23 20 72 65 sors, i.e...# re
3620: 6d 6f 76 65 20 74 68 65 20 64 72 6f 70 70 65 64 move the dropped
3630: 20 63 68 61 6e 67 65 73 65 74 20 61 6e 64 20 70 changeset and p
3640: 75 74 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 72 ut one of the fr
3650: 61 67 6d 65 6e 74 73 0a 09 23 20 69 6e 74 6f 20 agments..# into
3660: 69 74 73 20 70 6c 61 63 65 2e 0a 09 66 6f 72 65 its place...fore
3670: 61 63 68 20 70 20 24 70 72 65 64 65 63 65 73 73 ach p $predecess
3680: 6f 72 73 20 7b 0a 09 20 20 20 20 24 70 20 64 65 ors {.. $p de
3690: 74 65 72 6d 69 6e 65 73 75 63 63 65 73 73 6f 72 terminesuccessor
36a0: 73 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 24 6e s..}...return $n
36b0: 65 77 63 73 65 74 73 0a 20 20 20 20 7d 0a 0a 20 ewcsets. }..
36c0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 69 74 typemethod it
36d0: 65 6d 73 74 72 20 7b 69 74 65 6d 7d 20 7b 0a 09 emstr {item} {..
36e0: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 struct::list ass
36f0: 69 67 6e 20 24 69 74 65 6d 20 69 74 79 70 65 20 ign $item itype
3700: 69 69 64 0a 09 72 65 74 75 72 6e 20 5b 24 69 74 iid..return [$it
3710: 79 70 65 20 73 74 72 20 24 69 69 64 5d 0a 20 20 ype str $iid].
3720: 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 }.. typemet
3730: 68 6f 64 20 73 74 72 6c 69 73 74 20 7b 63 68 61 hod strlist {cha
3740: 6e 67 65 73 65 74 73 7d 20 7b 0a 09 72 65 74 75 ngesets} {..retu
3750: 72 6e 20 5b 6a 6f 69 6e 20 5b 73 74 72 75 63 74 rn [join [struct
3760: 3a 3a 6c 69 73 74 20 6d 61 70 20 24 63 68 61 6e ::list map $chan
3770: 67 65 73 65 74 73 20 5b 6d 79 70 72 6f 63 20 49 gesets [myproc I
3780: 44 5d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 D]]]. }..
3790: 70 72 6f 63 20 49 44 20 7b 63 73 65 74 7d 20 7b proc ID {cset} {
37a0: 20 24 63 73 65 74 20 73 74 72 20 7d 0a 0a 20 20 $cset str }..
37b0: 20 20 70 72 6f 63 20 55 6e 74 61 67 20 7b 74 61 proc Untag {ta
37c0: 67 67 65 64 69 74 65 6d 73 20 63 73 74 79 70 65 ggeditems cstype
37d0: 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 } {..return [str
37e0: 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 24 74 uct::list map $t
37f0: 61 67 67 65 64 69 74 65 6d 73 20 5b 6d 79 70 72 aggeditems [mypr
3800: 6f 63 20 55 6e 74 61 67 31 20 24 63 73 74 79 70 oc Untag1 $cstyp
3810: 65 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 e]]. }.. p
3820: 72 6f 63 20 55 6e 74 61 67 31 20 7b 63 73 74 79 roc Untag1 {csty
3830: 70 65 20 74 68 65 69 74 65 6d 7d 20 7b 0a 09 73 pe theitem} {..s
3840: 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 truct::list assi
3850: 67 6e 20 24 74 68 65 69 74 65 6d 20 74 20 69 0a gn $theitem t i.
3860: 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 .integrity asser
3870: 74 20 7b 24 63 73 74 79 70 65 20 65 71 20 24 74 t {$cstype eq $t
3880: 7d 20 7b 49 74 65 6d 20 24 69 27 73 20 74 79 70 } {Item $i's typ
3890: 65 20 69 73 20 27 24 74 27 2c 20 65 78 70 65 63 e is '$t', expec
38a0: 74 65 64 20 27 24 63 73 74 79 70 65 27 7d 0a 09 ted '$cstype'}..
38b0: 72 65 74 75 72 6e 20 24 69 0a 20 20 20 20 7d 0a return $i. }.
38c0: 0a 20 20 20 20 70 72 6f 63 20 54 61 67 49 74 65 . proc TagIte
38d0: 6d 44 69 63 74 20 7b 69 74 65 6d 64 69 63 74 20 mDict {itemdict
38e0: 63 73 74 79 70 65 7d 20 7b 0a 09 73 65 74 20 72 cstype} {..set r
38f0: 65 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 7b es {}..foreach {
3900: 69 20 76 7d 20 24 69 74 65 6d 64 69 63 74 20 7b i v} $itemdict {
3910: 20 6c 61 70 70 65 6e 64 20 72 65 73 20 5b 6c 69 lappend res [li
3920: 73 74 20 24 63 73 74 79 70 65 20 24 69 5d 20 24 st $cstype $i] $
3930: 76 20 7d 0a 09 72 65 74 75 72 6e 20 24 72 65 73 v }..return $res
3940: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
3950: 20 56 61 6c 69 64 61 74 65 46 72 61 67 6d 65 6e ValidateFragmen
3960: 74 73 20 7b 63 73 65 74 20 66 72 61 67 6d 65 6e ts {cset fragmen
3970: 74 73 7d 20 7b 0a 09 23 20 43 68 65 63 6b 20 74 ts} {..# Check t
3980: 68 65 20 76 61 72 69 6f 75 73 20 69 6e 74 65 67 he various integ
3990: 72 69 74 79 20 63 6f 6e 73 74 72 61 69 6e 74 73 rity constraints
39a0: 20 66 6f 72 20 74 68 65 20 66 72 61 67 6d 65 6e for the fragmen
39b0: 74 73 0a 09 23 20 73 70 65 63 69 66 79 69 6e 67 ts..# specifying
39c0: 20 68 6f 77 20 74 6f 20 73 70 6c 69 74 20 74 68 how to split th
39d0: 65 20 63 68 61 6e 67 65 73 65 74 3a 0a 09 23 0a e changeset:..#.
39e0: 09 23 20 2a 20 57 65 20 6d 75 73 74 20 68 61 76 .# * We must hav
39f0: 65 20 74 77 6f 20 6f 72 20 6d 6f 72 65 20 66 72 e two or more fr
3a00: 61 67 6d 65 6e 74 73 2c 20 61 73 20 73 70 6c 69 agments, as spli
3a10: 74 74 69 6e 67 20 61 0a 09 23 20 20 20 63 68 61 tting a..# cha
3a20: 6e 67 65 73 65 74 20 69 6e 74 6f 20 6f 6e 65 20 ngeset into one
3a30: 6d 61 6b 65 73 20 6e 6f 20 73 65 6e 73 65 2e 0a makes no sense..
3a40: 09 23 20 2a 20 4e 6f 20 66 72 61 67 6d 65 6e 74 .# * No fragment
3a50: 20 6d 61 79 20 62 65 20 65 6d 70 74 79 2e 0a 09 may be empty...
3a60: 23 20 2a 20 41 6c 6c 20 66 72 61 67 6d 65 6e 74 # * All fragment
3a70: 73 20 68 61 76 65 20 74 6f 20 62 65 20 74 72 75 s have to be tru
3a80: 65 20 73 75 62 73 65 74 73 20 6f 66 20 74 68 65 e subsets of the
3a90: 20 69 74 65 6d 73 20 69 6e 20 74 68 65 0a 09 23 items in the..#
3aa0: 20 20 20 63 68 61 6e 67 65 73 65 74 20 74 6f 20 changeset to
3ab0: 73 70 6c 69 74 2e 20 54 68 65 20 27 74 72 75 65 split. The 'true
3ac0: 27 20 69 73 20 69 6d 70 6c 69 65 64 20 62 65 63 ' is implied bec
3ad0: 61 75 73 65 20 6e 6f 6e 65 20 61 72 65 0a 09 23 ause none are..#
3ae0: 20 20 20 61 6c 6c 6f 77 65 64 20 74 6f 20 62 65 allowed to be
3af0: 20 65 6d 70 74 79 2c 20 73 6f 20 65 61 63 68 20 empty, so each
3b00: 68 61 73 20 74 6f 20 62 65 20 73 6d 61 6c 6c 65 has to be smalle
3b10: 72 20 74 68 61 6e 20 74 68 65 0a 09 23 20 20 20 r than the..#
3b20: 74 6f 74 61 6c 2e 0a 09 23 20 2a 20 54 68 65 20 total...# * The
3b30: 75 6e 69 6f 6e 20 6f 66 20 74 68 65 20 66 72 61 union of the fra
3b40: 67 6d 65 6e 74 73 20 68 61 73 20 74 6f 20 62 65 gments has to be
3b50: 20 74 68 65 20 69 74 65 6d 20 73 65 74 20 6f 66 the item set of
3b60: 20 74 68 65 0a 09 23 20 20 20 63 68 61 6e 67 65 the..# change
3b70: 73 65 74 2e 0a 09 23 20 2a 20 54 68 65 20 66 72 set...# * The fr
3b80: 61 67 6d 65 6e 74 20 6d 75 73 74 20 6e 6f 74 20 agment must not
3b90: 6f 76 65 72 6c 61 70 2c 20 69 2e 65 2e 20 74 68 overlap, i.e. th
3ba0: 65 69 72 20 70 61 69 72 77 69 73 65 0a 09 23 20 eir pairwise..#
3bb0: 20 20 69 6e 74 65 72 73 65 63 74 69 6f 6e 73 20 intersections
3bc0: 68 61 76 65 20 74 6f 20 62 65 20 65 6d 70 74 79 have to be empty
3bd0: 2e 0a 0a 09 73 65 74 20 63 6f 76 65 72 20 7b 7d ....set cover {}
3be0: 0a 09 66 6f 72 65 61 63 68 20 66 72 61 67 6d 65 ..foreach fragme
3bf0: 6e 74 69 74 65 6d 73 20 24 66 72 61 67 6d 65 6e ntitems $fragmen
3c00: 74 73 20 7b 0a 09 20 20 20 20 6c 6f 67 20 77 72 ts {.. log wr
3c10: 69 74 65 20 38 20 63 73 65 74 73 20 7b 4e 45 57 ite 8 csets {NEW
3c20: 3a 20 5b 6c 73 6f 72 74 20 24 66 72 61 67 6d 65 : [lsort $fragme
3c30: 6e 74 69 74 65 6d 73 5d 7d 0a 0a 09 20 20 20 20 ntitems]}...
3c40: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
3c50: 20 7b 0a 09 09 21 5b 73 74 72 75 63 74 3a 3a 73 {...![struct::s
3c60: 65 74 20 65 6d 70 74 79 20 24 66 72 61 67 6d 65 et empty $fragme
3c70: 6e 74 69 74 65 6d 73 5d 0a 09 20 20 20 20 7d 20 ntitems].. }
3c80: 7b 63 68 61 6e 67 65 73 65 74 20 66 72 61 67 6d {changeset fragm
3c90: 65 6e 74 20 69 73 20 65 6d 70 74 79 7d 0a 0a 09 ent is empty}...
3ca0: 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 integrity as
3cb0: 73 65 72 74 20 7b 0a 09 09 5b 73 74 72 75 63 74 sert {...[struct
3cc0: 3a 3a 73 65 74 20 73 75 62 73 65 74 6f 66 20 24 ::set subsetof $
3cd0: 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 5b 24 fragmentitems [$
3ce0: 63 73 65 74 20 69 74 65 6d 73 5d 5d 0a 09 20 20 cset items]]..
3cf0: 20 20 7d 20 7b 63 68 61 6e 67 65 73 65 74 20 66 } {changeset f
3d00: 72 61 67 6d 65 6e 74 20 69 73 20 6e 6f 74 20 61 ragment is not a
3d10: 20 73 75 62 73 65 74 7d 0a 09 20 20 20 20 73 74 subset}.. st
3d20: 72 75 63 74 3a 3a 73 65 74 20 61 64 64 20 63 6f ruct::set add co
3d30: 76 65 72 20 24 66 72 61 67 6d 65 6e 74 69 74 65 ver $fragmentite
3d40: 6d 73 0a 09 7d 0a 0a 09 69 6e 74 65 67 72 69 74 ms..}...integrit
3d50: 79 20 61 73 73 65 72 74 20 7b 0a 09 20 20 20 20 y assert {..
3d60: 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 65 71 75 [struct::set equ
3d70: 61 6c 20 24 63 6f 76 65 72 20 5b 24 63 73 65 74 al $cover [$cset
3d80: 20 69 74 65 6d 73 5d 5d 0a 09 20 7d 20 7b 54 68 items]].. } {Th
3d90: 65 20 66 72 61 67 6d 65 6e 74 73 20 64 6f 20 6e e fragments do n
3da0: 6f 74 20 63 6f 76 65 72 20 74 68 65 20 6f 72 69 ot cover the ori
3db0: 67 69 6e 61 6c 20 63 68 61 6e 67 65 73 65 74 7d ginal changeset}
3dc0: 0a 0a 09 73 65 74 20 69 20 31 0a 09 66 6f 72 65 ...set i 1..fore
3dd0: 61 63 68 20 66 69 61 20 24 66 72 61 67 6d 65 6e ach fia $fragmen
3de0: 74 73 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 ts {.. foreac
3df0: 68 20 66 69 62 20 5b 6c 72 61 6e 67 65 20 24 66 h fib [lrange $f
3e00: 72 61 67 6d 65 6e 74 73 20 24 69 20 65 6e 64 5d ragments $i end]
3e10: 20 7b 0a 09 09 69 6e 74 65 67 72 69 74 79 20 61 {...integrity a
3e20: 73 73 65 72 74 20 7b 0a 09 09 20 20 20 20 5b 73 ssert {... [s
3e30: 74 72 75 63 74 3a 3a 73 65 74 20 65 6d 70 74 79 truct::set empty
3e40: 20 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 69 6e [struct::set in
3e50: 74 65 72 73 65 63 74 20 24 66 69 61 20 24 66 69 tersect $fia $fi
3e60: 62 5d 5d 0a 09 09 7d 20 7b 54 68 65 20 66 72 61 b]]...} {The fra
3e70: 67 6d 65 6e 74 73 20 3c 24 66 69 61 3e 20 61 6e gments <$fia> an
3e80: 64 20 3c 24 66 69 62 3e 20 6f 76 65 72 6c 61 70 d <$fib> overlap
3e90: 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 6e }.. }.. in
3ea0: 63 72 20 69 0a 09 7d 0a 0a 09 72 65 74 75 72 6e cr i..}...return
3eb0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
3ec0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
3ed0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
3ee0: 23 23 23 0a 20 20 20 20 23 23 20 53 74 61 74 65 ###. ## State
3ef0: 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
3f00: 79 69 64 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 yid {} ;
3f10: 23 20 49 64 20 6f 66 20 74 68 65 20 63 73 65 74 # Id of the cset
3f20: 20 66 6f 72 20 74 68 65 20 70 65 72 73 69 73 74 for the persist
3f30: 65 6e 74 0a 09 09 09 20 20 20 20 20 20 23 20 73 ent.... # s
3f40: 74 61 74 65 2e 0a 20 20 20 20 76 61 72 69 61 62 tate.. variab
3f50: 6c 65 20 6d 79 70 72 6f 6a 65 63 74 20 20 20 7b le myproject {
3f60: 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 20 } ; # Reference
3f70: 6f 66 20 74 68 65 20 70 72 6f 6a 65 63 74 20 6f of the project o
3f80: 62 6a 65 63 74 20 74 68 65 0a 09 09 09 20 20 20 bject the....
3f90: 20 20 20 23 20 63 68 61 6e 67 65 73 65 74 20 62 # changeset b
3fa0: 65 6c 6f 6e 67 73 20 74 6f 2e 0a 20 20 20 20 76 elongs to.. v
3fb0: 61 72 69 61 62 6c 65 20 6d 79 74 79 70 65 20 20 ariable mytype
3fc0: 20 20 20 20 7b 7d 20 3b 20 23 20 57 68 61 74 20 {} ; # What
3fd0: 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 69 73 the changeset is
3fe0: 20 62 61 73 65 64 20 6f 6e 0a 09 09 09 20 20 20 based on....
3ff0: 20 20 20 23 20 28 72 65 76 69 73 69 6f 6e 73 2c # (revisions,
4000: 20 74 61 67 73 2c 20 6f 72 20 62 72 61 6e 63 68 tags, or branch
4010: 65 73 29 2e 0a 09 09 09 20 20 20 20 20 20 23 20 es)..... #
4020: 56 61 6c 75 65 73 3a 20 53 65 65 20 6d 79 63 73 Values: See mycs
4030: 74 79 70 65 2e 20 4e 6f 74 65 20 74 68 61 74 20 type. Note that
4040: 77 65 0a 09 09 09 20 20 20 20 20 20 23 20 68 61 we.... # ha
4050: 76 65 20 74 6f 20 6b 65 65 70 20 74 68 65 20 6e ve to keep the n
4060: 61 6d 65 73 20 6f 66 20 74 68 65 20 68 65 6c 70 ames of the help
4070: 65 72 0a 09 09 09 20 20 20 20 20 20 23 20 73 69 er.... # si
4080: 6e 67 6c 65 74 6f 6e 73 20 69 6e 20 73 79 6e 63 ngletons in sync
4090: 20 77 69 74 68 20 74 68 65 20 63 6f 6e 74 65 6e with the conten
40a0: 74 73 0a 09 09 09 20 20 20 20 20 20 23 20 6f 66 ts.... # of
40b0: 20 73 74 61 74 65 20 74 61 62 6c 65 20 27 63 73 state table 'cs
40c0: 74 79 70 65 27 2c 20 61 6e 64 20 76 61 72 69 6f type', and vario
40d0: 75 73 0a 09 09 09 20 20 20 20 20 20 23 20 6f 74 us.... # ot
40e0: 68 65 72 20 70 6c 61 63 65 73 20 75 73 69 6e 67 her places using
40f0: 20 74 68 65 6d 20 68 61 72 64 77 69 72 65 64 2e them hardwired.
4100: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
4110: 74 79 70 65 6f 62 6a 20 20 20 7b 7d 20 3b 20 23 typeobj {} ; #
4120: 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 Reference to th
4130: 65 20 63 6f 6e 74 61 69 6e 65 72 20 66 6f 72 20 e container for
4140: 74 68 65 0a 09 09 09 20 20 20 20 20 20 23 20 74 the.... # t
4150: 79 70 65 20 64 65 70 65 6e 64 65 6e 74 20 63 6f ype dependent co
4160: 64 65 2e 20 44 65 72 69 76 65 64 20 66 72 6f 6d de. Derived from
4170: 0a 09 09 09 20 20 20 20 20 20 23 20 6d 79 74 79 .... # myty
4180: 70 65 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 pe.. variable
4190: 20 6d 79 73 72 63 69 64 20 20 20 20 20 7b 7d 20 mysrcid {}
41a0: 3b 20 23 20 49 64 20 6f 66 20 74 68 65 20 6d 65 ; # Id of the me
41b0: 74 61 64 61 74 61 20 6f 72 20 73 79 6d 62 6f 6c tadata or symbol
41c0: 20 74 68 65 20 63 73 65 74 0a 09 09 09 20 20 20 the cset....
41d0: 20 20 20 23 20 69 73 20 62 61 73 65 64 20 6f 6e # is based on
41e0: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
41f0: 79 69 74 65 6d 73 20 20 20 20 20 7b 7d 20 3b 20 yitems {} ;
4200: 23 20 4c 69 73 74 20 6f 66 20 74 68 65 20 66 69 # List of the fi
4210: 6c 65 20 6c 65 76 65 6c 20 72 65 76 69 73 69 6f le level revisio
4220: 6e 73 2c 0a 09 09 09 20 20 20 20 20 20 23 20 74 ns,.... # t
4230: 61 67 73 2c 20 6f 72 20 62 72 61 6e 63 68 65 73 ags, or branches
4240: 20 69 6e 20 74 68 65 20 63 73 65 74 2c 20 61 73 in the cset, as
4250: 0a 09 09 09 20 20 20 20 20 20 23 20 69 64 73 2e .... # ids.
4260: 20 4e 6f 74 20 74 61 67 67 65 64 2e 0a 20 20 20 Not tagged..
4270: 20 76 61 72 69 61 62 6c 65 20 6d 79 74 69 74 65 variable mytite
4280: 6d 73 20 20 20 20 7b 7d 20 3b 20 23 20 41 73 20 ms {} ; # As
4290: 6d 79 69 74 65 6d 73 2c 20 74 68 65 20 74 61 67 myitems, the tag
42a0: 67 65 64 20 66 6f 72 6d 2e 0a 20 20 20 20 76 61 ged form.. va
42b0: 72 69 61 62 6c 65 20 6d 79 70 6f 73 20 20 20 20 riable mypos
42c0: 20 20 20 7b 7d 20 3b 20 23 20 43 6f 6d 6d 69 74 {} ; # Commit
42d0: 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 position of the
42e0: 20 63 68 61 6e 67 65 73 65 74 2c 20 69 66 0a 09 changeset, if..
42f0: 09 09 20 20 20 20 20 20 23 20 6b 6e 6f 77 6e 2e .. # known.
4300: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
4310: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
4320: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
4330: 20 20 23 23 20 49 6e 74 65 72 6e 61 6c 20 6d 65 ## Internal me
4340: 74 68 6f 64 73 0a 0a 20 20 20 20 74 79 70 65 76 thods.. typev
4350: 61 72 69 61 62 6c 65 20 6d 79 63 6f 75 6e 74 65 ariable mycounte
4360: 72 20 20 20 20 20 20 20 20 30 20 3b 20 23 20 49 r 0 ; # I
4370: 64 20 63 6f 75 6e 74 65 72 20 66 6f 72 20 63 73 d counter for cs
4380: 65 74 73 2e 20 4c 61 73 74 20 69 64 0a 09 09 09 ets. Last id....
4390: 09 20 20 20 20 20 20 23 20 75 73 65 64 2e 0a 20 . # used..
43a0: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
43b0: 6d 79 63 73 74 79 70 65 20 2d 61 72 72 61 79 20 mycstype -array
43c0: 7b 7d 20 3b 20 23 20 4d 61 70 20 63 73 74 79 70 {} ; # Map cstyp
43d0: 65 73 20 28 6e 61 6d 65 73 29 20 74 6f 20 70 65 es (names) to pe
43e0: 72 73 69 73 74 65 6e 74 0a 09 09 09 09 20 20 20 rsistent.....
43f0: 20 20 20 23 20 69 64 73 2e 20 4e 6f 74 65 20 74 # ids. Note t
4400: 68 61 74 20 77 65 20 68 61 76 65 20 74 6f 20 6b hat we have to k
4410: 65 65 70 0a 09 09 09 09 20 20 20 20 20 20 23 20 eep..... #
4420: 74 68 65 20 6e 61 6d 65 73 20 69 6e 20 74 68 65 the names in the
4430: 20 74 61 62 6c 65 20 27 63 73 74 79 70 65 27 0a table 'cstype'.
4440: 09 09 09 09 20 20 20 20 20 20 23 20 69 6e 20 73 .... # in s
4450: 79 6e 63 20 77 69 74 68 20 74 68 65 20 6e 61 6d ync with the nam
4460: 65 73 20 6f 66 20 74 68 65 0a 09 09 09 09 20 20 es of the.....
4470: 20 20 20 20 23 20 68 65 6c 70 65 72 20 73 69 6e # helper sin
4480: 67 6c 65 74 6f 6e 73 2e 0a 0a 20 20 20 20 74 79 gletons... ty
4490: 70 65 6d 65 74 68 6f 64 20 67 65 74 63 73 74 79 pemethod getcsty
44a0: 70 65 73 20 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 pes {} {..foreac
44b0: 68 20 7b 74 69 64 20 6e 61 6d 65 7d 20 5b 73 74 h {tid name} [st
44c0: 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 ate run {.. S
44d0: 45 4c 45 43 54 20 74 69 64 2c 20 6e 61 6d 65 20 ELECT tid, name
44e0: 46 52 4f 4d 20 63 73 74 79 70 65 3b 0a 09 7d 5d FROM cstype;..}]
44f0: 20 7b 20 73 65 74 20 6d 79 63 73 74 79 70 65 28 { set mycstype(
4500: 24 6e 61 6d 65 29 20 24 74 69 64 20 7d 0a 09 72 $name) $tid }..r
4510: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
4520: 20 74 79 70 65 6d 65 74 68 6f 64 20 6c 6f 61 64 typemethod load
4530: 20 7b 7d 20 7b 0a 09 73 65 74 20 6e 20 30 0a 09 {} {..set n 0..
4540: 6c 6f 67 20 77 72 69 74 65 20 32 20 63 73 65 74 log write 2 cset
4550: 73 20 7b 4c 6f 61 64 69 6e 67 20 74 68 65 20 63 s {Loading the c
4560: 68 61 6e 67 65 73 65 74 73 7d 0a 09 66 6f 72 65 hangesets}..fore
4570: 61 63 68 20 7b 69 64 20 70 69 64 20 63 73 74 79 ach {id pid csty
4580: 70 65 20 73 72 63 69 64 7d 20 5b 73 74 61 74 65 pe srcid} [state
4590: 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 run {.. SELE
45a0: 43 54 20 43 2e 63 69 64 2c 20 43 2e 70 69 64 2c CT C.cid, C.pid,
45b0: 20 43 53 2e 6e 61 6d 65 2c 20 43 2e 73 72 63 0a CS.name, C.src.
45c0: 09 20 20 20 20 46 52 4f 4d 20 20 20 63 68 61 6e . FROM chan
45d0: 67 65 73 65 74 20 43 2c 20 63 73 74 79 70 65 20 geset C, cstype
45e0: 43 53 0a 09 20 20 20 20 57 48 45 52 45 20 20 43 CS.. WHERE C
45f0: 2e 74 79 70 65 20 3d 20 43 53 2e 74 69 64 0a 09 .type = CS.tid..
4600: 20 20 20 20 4f 52 44 45 52 20 42 59 20 43 2e 63 ORDER BY C.c
4610: 69 64 0a 09 7d 5d 20 7b 0a 09 20 20 20 20 6c 6f id..}] {.. lo
4620: 67 20 70 72 6f 67 72 65 73 73 20 32 20 63 73 65 g progress 2 cse
4630: 74 73 20 24 6e 20 7b 7d 0a 09 20 20 20 20 73 65 ts $n {}.. se
4640: 74 20 72 20 5b 24 74 79 70 65 20 25 41 55 54 4f t r [$type %AUTO
4650: 25 20 5b 72 65 70 6f 73 69 74 6f 72 79 20 70 72 % [repository pr
4660: 6f 6a 65 63 74 6f 66 20 24 70 69 64 5d 20 24 63 ojectof $pid] $c
4670: 73 74 79 70 65 20 24 73 72 63 69 64 20 5b 73 74 stype $srcid [st
4680: 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c 45 ate run {...SELE
4690: 43 54 20 43 2e 69 69 64 0a 09 09 46 52 4f 4d 20 CT C.iid...FROM
46a0: 20 20 63 73 69 74 65 6d 20 43 0a 09 09 57 48 45 csitem C...WHE
46b0: 52 45 20 20 43 2e 63 69 64 20 3d 20 24 69 64 0a RE C.cid = $id.
46c0: 09 09 4f 52 44 45 52 20 42 59 20 43 2e 70 6f 73 ..ORDER BY C.pos
46d0: 0a 09 20 20 20 20 7d 5d 20 24 69 64 5d 0a 09 20 .. }] $id]..
46e0: 20 20 20 69 6e 63 72 20 6e 0a 09 7d 0a 09 72 65 incr n..}..re
46f0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
4700: 74 79 70 65 6d 65 74 68 6f 64 20 6c 6f 61 64 63 typemethod loadc
4710: 6f 75 6e 74 65 72 20 7b 7d 20 7b 0a 09 23 20 49 ounter {} {..# I
4720: 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 63 6f nitialize the co
4730: 75 6e 74 65 72 20 66 72 6f 6d 20 74 68 65 20 73 unter from the s
4740: 74 61 74 65 0a 09 6c 6f 67 20 77 72 69 74 65 20 tate..log write
4750: 32 20 63 73 65 74 73 20 7b 4c 6f 61 64 69 6e 67 2 csets {Loading
4760: 20 63 68 61 6e 67 65 73 65 74 20 63 6f 75 6e 74 changeset count
4770: 65 72 7d 0a 09 73 65 74 20 6d 79 63 6f 75 6e 74 er}..set mycount
4780: 65 72 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 er [state one {
4790: 53 45 4c 45 43 54 20 4d 41 58 28 63 69 64 29 20 SELECT MAX(cid)
47a0: 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 7d FROM changeset }
47b0: 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ]..return. }.
47c0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
47d0: 6e 75 6d 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 num {} { return
47e0: 24 6d 79 63 6f 75 6e 74 65 72 20 7d 0a 0a 20 20 $mycounter }..
47f0: 20 20 70 72 6f 63 20 49 6e 69 74 69 61 6c 69 7a proc Initializ
4800: 65 42 72 65 61 6b 53 74 61 74 65 20 7b 72 65 76 eBreakState {rev
4810: 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 isions} {..upvar
4820: 20 31 20 70 6f 73 20 70 6f 73 20 63 72 6f 73 73 1 pos pos cross
4830: 20 63 72 6f 73 73 20 72 61 6e 67 65 20 72 61 6e cross range ran
4840: 67 65 20 64 65 70 63 20 64 65 70 63 20 64 65 6c ge depc depc del
4850: 74 61 20 64 65 6c 74 61 20 5c 0a 09 20 20 20 20 ta delta \..
4860: 64 65 70 65 6e 64 65 6e 63 69 65 73 20 64 65 70 dependencies dep
4870: 65 6e 64 65 6e 63 69 65 73 0a 0a 09 23 20 46 69 endencies...# Fi
4880: 72 73 74 20 77 65 20 63 72 65 61 74 65 20 61 20 rst we create a
4890: 6d 61 70 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 map of positions
48a0: 20 74 6f 20 6d 61 6b 65 20 69 74 20 65 61 73 69 to make it easi
48b0: 65 72 20 74 6f 0a 09 23 20 64 65 74 65 72 6d 69 er to..# determi
48c0: 6e 65 20 77 68 65 74 68 65 72 20 61 20 64 65 70 ne whether a dep
48d0: 65 6e 64 65 6e 63 79 20 63 72 6f 73 73 65 73 20 endency crosses
48e0: 61 20 70 61 72 74 69 63 75 6c 61 72 20 69 6e 64 a particular ind
48f0: 65 78 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 ex....array set
4900: 70 6f 73 20 20 20 7b 7d 0a 09 61 72 72 61 79 20 pos {}..array
4910: 73 65 74 20 63 72 6f 73 73 20 7b 7d 0a 09 61 72 set cross {}..ar
4920: 72 61 79 20 73 65 74 20 64 65 70 63 20 20 7b 7d ray set depc {}
4930: 0a 09 73 65 74 20 72 61 6e 67 65 20 20 20 20 20 ..set range
4940: 20 20 7b 7d 0a 09 73 65 74 20 6e 20 30 0a 09 66 {}..set n 0..f
4950: 6f 72 65 61 63 68 20 72 65 76 20 24 72 65 76 69 oreach rev $revi
4960: 73 69 6f 6e 73 20 7b 0a 09 20 20 20 20 6c 61 70 sions {.. lap
4970: 70 65 6e 64 20 72 61 6e 67 65 20 24 6e 0a 09 20 pend range $n..
4980: 20 20 20 73 65 74 20 70 6f 73 28 24 72 65 76 29 set pos($rev)
4990: 20 24 6e 0a 09 20 20 20 20 73 65 74 20 63 72 6f $n.. set cro
49a0: 73 73 28 24 6e 29 20 30 0a 09 20 20 20 20 69 6e ss($n) 0.. in
49b0: 63 72 20 6e 0a 09 7d 0a 0a 09 23 20 53 65 63 6f cr n..}...# Seco
49c0: 6e 64 6c 79 20 77 65 20 63 6f 75 6e 74 20 74 68 ndly we count th
49d0: 65 20 63 72 6f 73 73 69 6e 67 73 20 70 65 72 20 e crossings per
49e0: 70 6f 73 69 74 69 6f 6e 2c 20 62 79 20 69 74 65 position, by ite
49f0: 72 61 74 69 6e 67 0a 09 23 20 6f 76 65 72 20 74 rating..# over t
4a00: 68 65 20 72 65 63 6f 72 64 65 64 20 69 6e 74 65 he recorded inte
4a10: 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 rnal dependencie
4a20: 73 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 66 20 s....# Note: If
4a30: 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 20 61 the timestamps a
4a40: 72 65 20 62 61 64 6c 79 20 6f 75 74 20 6f 66 20 re badly out of
4a50: 6f 72 64 65 72 20 69 74 20 69 73 0a 09 23 20 20 order it is..#
4a60: 20 20 20 20 20 70 6f 73 73 69 62 6c 65 20 74 6f possible to
4a70: 20 68 61 76 65 20 61 20 62 61 63 6b 77 61 72 64 have a backward
4a80: 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e successor depen
4a90: 64 65 6e 63 79 2c 0a 09 23 20 20 20 20 20 20 20 dency,..#
4aa0: 69 2e 65 2e 20 77 69 74 68 20 73 74 61 72 74 20 i.e. with start
4ab0: 3e 20 65 6e 64 2e 20 57 65 20 6d 61 79 20 68 61 > end. We may ha
4ac0: 76 65 20 74 6f 20 73 77 61 70 20 74 68 65 20 69 ve to swap the i
4ad0: 6e 64 69 63 65 73 0a 09 23 20 20 20 20 20 20 20 ndices..#
4ae0: 74 6f 20 65 6e 73 75 72 65 20 74 68 61 74 20 74 to ensure that t
4af0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 6f 6f he following loo
4b00: 70 20 72 75 6e 73 20 63 6f 72 72 65 63 74 6c 79 p runs correctly
4b10: 2e 0a 09 23 0a 09 23 20 4e 6f 74 65 20 32 3a 20 ...#..# Note 2:
4b20: 73 74 61 72 74 20 3d 3d 20 65 6e 64 20 69 73 20 start == end is
4b30: 6e 6f 74 20 70 6f 73 73 69 62 6c 65 2e 20 49 74 not possible. It
4b40: 20 69 6e 64 69 63 61 74 65 73 20 61 0a 09 23 20 indicates a..#
4b50: 20 20 20 20 20 20 20 20 73 65 6c 66 2d 64 65 70 self-dep
4b60: 65 6e 64 65 6e 63 79 20 64 75 65 20 74 6f 20 74 endency due to t
4b70: 68 65 20 75 6e 69 71 75 65 6e 65 73 73 20 6f 66 he uniqueness of
4b80: 20 70 6f 73 69 74 69 6f 6e 73 2c 0a 09 23 20 20 positions,..#
4b90: 20 20 20 20 20 20 20 61 6e 64 20 74 68 61 74 20 and that
4ba0: 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 77 65 20 is something we
4bb0: 68 61 76 65 20 72 75 6c 65 64 20 6f 75 74 20 61 have ruled out a
4bc0: 6c 72 65 61 64 79 2c 20 73 65 65 0a 09 23 20 20 lready, see..#
4bd0: 20 20 20 20 20 20 20 27 72 65 76 20 69 6e 74 65 'rev inte
4be0: 72 6e 61 6c 73 75 63 63 65 73 73 6f 72 73 27 2e rnalsuccessors'.
4bf0: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 ...foreach {rid
4c00: 63 68 69 6c 64 72 65 6e 7d 20 5b 61 72 72 61 79 children} [array
4c10: 20 67 65 74 20 64 65 70 65 6e 64 65 6e 63 69 65 get dependencie
4c20: 73 5d 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 s] {.. foreac
4c30: 68 20 63 68 69 6c 64 20 24 63 68 69 6c 64 72 65 h child $childre
4c40: 6e 20 7b 0a 09 09 73 65 74 20 64 6b 65 79 20 20 n {...set dkey
4c50: 20 20 5b 6c 69 73 74 20 24 72 69 64 20 24 63 68 [list $rid $ch
4c60: 69 6c 64 5d 0a 09 09 73 65 74 20 73 74 61 72 74 ild]...set start
4c70: 20 20 20 24 70 6f 73 28 24 72 69 64 29 0a 09 09 $pos($rid)...
4c80: 73 65 74 20 65 6e 64 20 20 20 20 20 24 70 6f 73 set end $pos
4c90: 28 24 63 68 69 6c 64 29 0a 09 09 73 65 74 20 63 ($child)...set c
4ca0: 72 6f 73 73 65 73 20 7b 7d 0a 0a 09 09 69 66 20 rosses {}....if
4cb0: 7b 24 73 74 61 72 74 20 3e 20 24 65 6e 64 7d 20 {$start > $end}
4cc0: 7b 0a 09 09 20 20 20 20 77 68 69 6c 65 20 7b 24 {... while {$
4cd0: 65 6e 64 20 3c 20 24 73 74 61 72 74 7d 20 7b 0a end < $start} {.
4ce0: 09 09 09 6c 61 70 70 65 6e 64 20 63 72 6f 73 73 ...lappend cross
4cf0: 65 73 20 24 65 6e 64 0a 09 09 09 69 6e 63 72 20 es $end....incr
4d00: 63 72 6f 73 73 28 24 65 6e 64 29 0a 09 09 09 69 cross($end)....i
4d10: 6e 63 72 20 65 6e 64 0a 09 09 20 20 20 20 7d 0a ncr end... }.
4d20: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
4d30: 20 77 68 69 6c 65 20 7b 24 73 74 61 72 74 20 3c while {$start <
4d40: 20 24 65 6e 64 7d 20 7b 0a 09 09 09 6c 61 70 70 $end} {....lapp
4d50: 65 6e 64 20 63 72 6f 73 73 65 73 20 24 73 74 61 end crosses $sta
4d60: 72 74 0a 09 09 09 69 6e 63 72 20 63 72 6f 73 73 rt....incr cross
4d70: 28 24 73 74 61 72 74 29 0a 09 09 09 69 6e 63 72 ($start)....incr
4d80: 20 73 74 61 72 74 0a 09 09 20 20 20 20 7d 0a 09 start... }..
4d90: 09 7d 0a 09 09 73 65 74 20 64 65 70 63 28 24 64 .}...set depc($d
4da0: 6b 65 79 29 20 24 63 72 6f 73 73 65 73 0a 09 20 key) $crosses..
4db0: 20 20 20 7d 0a 09 7d 0a 0a 09 49 6e 69 74 69 61 }..}...Initia
4dc0: 6c 69 7a 65 44 65 6c 74 61 73 20 24 72 65 76 69 lizeDeltas $revi
4dd0: 73 69 6f 6e 73 0a 09 72 65 74 75 72 6e 0a 20 20 sions..return.
4de0: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 6e }.. proc In
4df0: 69 74 69 61 6c 69 7a 65 44 65 6c 74 61 73 20 7b itializeDeltas {
4e00: 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 revisions} {..up
4e10: 76 61 72 20 31 20 64 65 6c 74 61 20 64 65 6c 74 var 1 delta delt
4e20: 61 0a 0a 09 23 20 50 75 6c 6c 20 74 68 65 20 74 a...# Pull the t
4e30: 69 6d 65 73 74 61 6d 70 73 20 66 6f 72 20 61 6c imestamps for al
4e40: 6c 20 72 65 76 69 73 69 6f 6e 73 20 69 6e 20 74 l revisions in t
4e50: 68 65 20 63 68 61 6e 67 65 73 65 74 73 20 61 6e he changesets an
4e60: 64 0a 09 23 20 63 6f 6d 70 75 74 65 20 74 68 65 d..# compute the
4e70: 69 72 20 64 65 6c 74 61 73 20 66 6f 72 20 75 73 ir deltas for us
4e80: 65 20 62 79 20 74 68 65 20 62 72 65 61 6b 20 66 e by the break f
4e90: 69 6e 64 65 72 2e 0a 0a 09 61 72 72 61 79 20 73 inder....array s
4ea0: 65 74 20 64 65 6c 74 61 20 7b 7d 0a 09 61 72 72 et delta {}..arr
4eb0: 61 79 20 73 65 74 20 73 74 61 6d 70 20 7b 7d 0a ay set stamp {}.
4ec0: 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b ..set theset ('[
4ed0: 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 join $revisions
4ee0: 7b 27 2c 27 7d 5d 27 29 0a 09 66 6f 72 65 61 63 {','}]')..foreac
4ef0: 68 20 7b 72 69 64 20 74 69 6d 65 7d 20 5b 73 74 h {rid time} [st
4f00: 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d ate run [subst -
4f10: 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 nocommands -noba
4f20: 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 ckslashes {..
4f30: 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 SELECT R.rid, R
4f40: 2e 64 61 74 65 0a 09 20 20 20 20 46 52 4f 4d 20 .date.. FROM
4f50: 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 revision R..
4f60: 57 48 45 52 45 20 52 2e 72 69 64 20 49 4e 20 24 WHERE R.rid IN $
4f70: 74 68 65 73 65 74 0a 09 7d 5d 5d 20 7b 0a 09 20 theset..}]] {..
4f80: 20 20 20 73 65 74 20 73 74 61 6d 70 28 24 72 69 set stamp($ri
4f90: 64 29 20 24 74 69 6d 65 0a 09 7d 0a 0a 09 73 65 d) $time..}...se
4fa0: 74 20 6e 20 30 0a 09 66 6f 72 65 61 63 68 20 72 t n 0..foreach r
4fb0: 69 64 20 5b 6c 72 61 6e 67 65 20 24 72 65 76 69 id [lrange $revi
4fc0: 73 69 6f 6e 73 20 30 20 65 6e 64 2d 31 5d 20 72 sions 0 end-1] r
4fd0: 6e 65 78 74 20 5b 6c 72 61 6e 67 65 20 24 72 65 next [lrange $re
4fe0: 76 69 73 69 6f 6e 73 20 31 20 65 6e 64 5d 20 7b visions 1 end] {
4ff0: 0a 09 20 20 20 20 73 65 74 20 64 65 6c 74 61 28 .. set delta(
5000: 24 6e 29 20 5b 65 78 70 72 20 7b 24 73 74 61 6d $n) [expr {$stam
5010: 70 28 24 72 6e 65 78 74 29 20 2d 20 24 73 74 61 p($rnext) - $sta
5020: 6d 70 28 24 72 69 64 29 7d 5d 0a 09 20 20 20 20 mp($rid)}]..
5030: 69 6e 63 72 20 6e 0a 09 7d 0a 09 72 65 74 75 72 incr n..}..retur
5040: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f n. }.. pro
5050: 63 20 46 69 6e 64 42 65 73 74 42 72 65 61 6b 20 c FindBestBreak
5060: 7b 72 61 6e 67 65 7d 20 7b 0a 09 75 70 76 61 72 {range} {..upvar
5070: 20 31 20 63 72 6f 73 73 20 63 72 6f 73 73 20 64 1 cross cross d
5080: 65 6c 74 61 20 64 65 6c 74 61 0a 0a 09 23 20 44 elta delta...# D
5090: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 62 65 73 etermine the bes
50a0: 74 20 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e t break location
50b0: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 72 61 in the given ra
50c0: 6e 67 65 20 6f 66 0a 09 23 20 70 6f 73 69 74 69 nge of..# positi
50d0: 6f 6e 73 2e 20 46 69 72 73 74 20 77 65 20 6c 6f ons. First we lo
50e0: 6f 6b 20 66 6f 72 20 74 68 65 20 6c 6f 63 61 74 ok for the locat
50f0: 69 6f 6e 73 20 77 69 74 68 20 74 68 65 20 6d 61 ions with the ma
5100: 78 69 6d 61 6c 0a 09 23 20 6e 75 6d 62 65 72 20 ximal..# number
5110: 6f 66 20 63 72 6f 73 73 69 6e 67 73 2e 20 49 66 of crossings. If
5120: 20 74 68 65 72 65 20 61 72 65 20 73 65 76 65 72 there are sever
5130: 61 6c 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 74 al we look for t
5140: 68 65 0a 09 23 20 73 68 6f 72 74 65 73 74 20 74 he..# shortest t
5150: 69 6d 65 20 69 6e 74 65 72 76 61 6c 20 61 6d 6f ime interval amo
5160: 6e 67 20 74 68 65 6d 2e 20 49 66 20 77 65 20 73 ng them. If we s
5170: 74 69 6c 6c 20 68 61 76 65 20 6d 75 6c 74 69 70 till have multip
5180: 6c 65 0a 09 23 20 70 6f 73 73 69 62 69 6c 69 74 le..# possibilit
5190: 69 65 73 20 61 66 74 65 72 20 74 68 61 74 20 77 ies after that w
51a0: 65 20 73 65 6c 65 63 74 20 74 68 65 20 65 61 72 e select the ear
51b0: 6c 69 65 73 74 20 6c 6f 63 61 74 69 6f 6e 0a 09 liest location..
51c0: 23 20 61 6d 6f 6e 67 20 74 68 65 73 65 2e 0a 0a # among these...
51d0: 09 23 20 4e 6f 74 65 3a 20 49 66 20 74 68 65 20 .# Note: If the
51e0: 6d 61 78 69 6d 61 6c 20 6e 75 6d 62 65 72 20 6f maximal number o
51f0: 66 20 63 72 6f 73 73 69 6e 67 73 20 69 73 20 30 f crossings is 0
5200: 20 74 68 65 6e 20 74 68 65 20 72 61 6e 67 65 0a then the range.
5210: 09 23 20 20 20 20 20 20 20 68 61 73 20 6e 6f 20 .# has no
5220: 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 internal depende
5230: 6e 63 69 65 73 2c 20 61 6e 64 20 6e 6f 20 62 72 ncies, and no br
5240: 65 61 6b 20 6c 6f 63 61 74 69 6f 6e 20 61 74 0a eak location at.
5250: 09 23 20 20 20 20 20 20 20 61 6c 6c 2e 20 54 68 .# all. Th
5260: 69 73 20 70 6f 73 73 69 62 69 6c 69 74 79 20 69 is possibility i
5270: 73 20 73 69 67 6e 61 6c 65 64 20 76 69 61 20 72 s signaled via r
5280: 65 73 75 6c 74 20 2d 31 2e 0a 0a 09 23 20 4e 6f esult -1....# No
5290: 74 65 3a 20 41 20 72 61 6e 67 65 20 6f 66 20 6c te: A range of l
52a0: 65 6e 67 74 68 20 31 20 6f 72 20 6c 65 73 73 20 ength 1 or less
52b0: 63 61 6e 6e 6f 74 20 68 61 76 65 20 69 6e 74 65 cannot have inte
52c0: 72 6e 61 6c 0a 09 23 20 20 20 20 20 20 20 64 65 rnal..# de
52d0: 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 73 20 74 pendencies, as t
52e0: 68 61 74 20 6e 65 65 64 73 20 61 74 20 6c 65 61 hat needs at lea
52f0: 73 74 20 74 77 6f 20 72 65 76 69 73 69 6f 6e 73 st two revisions
5300: 20 69 6e 0a 09 23 20 20 20 20 20 20 20 74 68 65 in..# the
5310: 20 72 61 6e 67 65 2e 0a 0a 09 69 66 20 7b 5b 6c range....if {[l
5320: 6c 65 6e 67 74 68 20 24 72 61 6e 67 65 5d 20 3c length $range] <
5330: 20 32 7d 20 7b 20 72 65 74 75 72 6e 20 2d 31 20 2} { return -1
5340: 7d 0a 0a 09 73 65 74 20 6d 61 78 20 2d 31 0a 09 }...set max -1..
5350: 73 65 74 20 62 65 73 74 20 7b 7d 0a 0a 09 66 6f set best {}...fo
5360: 72 65 61 63 68 20 6c 6f 63 61 74 69 6f 6e 20 24 reach location $
5370: 72 61 6e 67 65 20 7b 0a 09 20 20 20 20 73 65 74 range {.. set
5380: 20 63 72 6f 73 73 69 6e 67 73 20 24 63 72 6f 73 crossings $cros
5390: 73 28 24 6c 6f 63 61 74 69 6f 6e 29 0a 09 20 20 s($location)..
53a0: 20 20 69 66 20 7b 24 63 72 6f 73 73 69 6e 67 73 if {$crossings
53b0: 20 3e 20 24 6d 61 78 7d 20 7b 0a 09 09 73 65 74 > $max} {...set
53c0: 20 6d 61 78 20 20 24 63 72 6f 73 73 69 6e 67 73 max $crossings
53d0: 0a 09 09 73 65 74 20 62 65 73 74 20 5b 6c 69 73 ...set best [lis
53e0: 74 20 24 6c 6f 63 61 74 69 6f 6e 5d 0a 09 09 63 t $location]...c
53f0: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 7d 20 65 ontinue.. } e
5400: 6c 73 65 69 66 20 7b 24 63 72 6f 73 73 69 6e 67 lseif {$crossing
5410: 73 20 3d 3d 20 24 6d 61 78 7d 20 7b 0a 09 09 6c s == $max} {...l
5420: 61 70 70 65 6e 64 20 62 65 73 74 20 24 6c 6f 63 append best $loc
5430: 61 74 69 6f 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a ation.. }..}.
5440: 0a 09 69 66 20 7b 24 6d 61 78 20 3d 3d 20 30 7d ..if {$max == 0}
5450: 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 { re
5460: 74 75 72 6e 20 2d 31 20 7d 0a 09 69 66 20 7b 5b turn -1 }..if {[
5470: 6c 6c 65 6e 67 74 68 20 24 62 65 73 74 5d 20 3d llength $best] =
5480: 3d 20 31 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c = 1} { return [l
5490: 69 6e 64 65 78 20 24 62 65 73 74 20 30 5d 20 7d index $best 0] }
54a0: 0a 0a 09 73 65 74 20 6c 6f 63 61 74 69 6f 6e 73 ...set locations
54b0: 20 24 62 65 73 74 0a 09 73 65 74 20 62 65 73 74 $best..set best
54c0: 20 7b 7d 0a 09 73 65 74 20 6d 69 6e 20 2d 31 0a {}..set min -1.
54d0: 0a 09 66 6f 72 65 61 63 68 20 6c 6f 63 61 74 69 ..foreach locati
54e0: 6f 6e 20 24 6c 6f 63 61 74 69 6f 6e 73 20 7b 0a on $locations {.
54f0: 09 20 20 20 20 73 65 74 20 69 6e 74 65 72 76 61 . set interva
5500: 6c 20 24 64 65 6c 74 61 28 24 6c 6f 63 61 74 69 l $delta($locati
5510: 6f 6e 29 0a 09 20 20 20 20 69 66 20 7b 28 24 6d on).. if {($m
5520: 69 6e 20 3c 20 30 29 20 7c 7c 20 28 24 69 6e 74 in < 0) || ($int
5530: 65 72 76 61 6c 20 3c 20 24 6d 69 6e 29 7d 20 7b erval < $min)} {
5540: 0a 09 09 73 65 74 20 6d 69 6e 20 20 24 69 6e 74 ...set min $int
5550: 65 72 76 61 6c 0a 09 09 73 65 74 20 62 65 73 74 erval...set best
5560: 20 5b 6c 69 73 74 20 24 6c 6f 63 61 74 69 6f 6e [list $location
5570: 5d 0a 09 20 20 20 20 7d 20 65 6c 73 65 69 66 20 ].. } elseif
5580: 7b 24 69 6e 74 65 72 76 61 6c 20 3d 3d 20 24 6d {$interval == $m
5590: 69 6e 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 in} {...lappend
55a0: 62 65 73 74 20 24 6c 6f 63 61 74 69 6f 6e 0a 09 best $location..
55b0: 20 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 7b 5b }..}...if {[
55c0: 6c 6c 65 6e 67 74 68 20 24 62 65 73 74 5d 20 3d llength $best] =
55d0: 3d 20 31 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c = 1} { return [l
55e0: 69 6e 64 65 78 20 24 62 65 73 74 20 30 5d 20 7d index $best 0] }
55f0: 0a 0a 09 72 65 74 75 72 6e 20 5b 6c 69 6e 64 65 ...return [linde
5600: 78 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67 65 x [lsort -intege
5610: 72 20 2d 69 6e 63 72 65 61 73 69 6e 67 20 24 62 r -increasing $b
5620: 65 73 74 5d 20 30 5d 0a 20 20 20 20 7d 0a 0a 20 est] 0]. }..
5630: 20 20 20 70 72 6f 63 20 43 75 74 41 74 20 7b 6c proc CutAt {l
5640: 6f 63 61 74 69 6f 6e 7d 20 7b 0a 09 75 70 76 61 ocation} {..upva
5650: 72 20 31 20 63 72 6f 73 73 20 63 72 6f 73 73 20 r 1 cross cross
5660: 64 65 70 63 20 64 65 70 63 0a 0a 09 23 20 49 74 depc depc...# It
5670: 20 77 61 73 20 64 65 63 69 64 65 64 20 74 6f 20 was decided to
5680: 73 70 6c 69 74 20 74 68 65 20 63 68 61 6e 67 65 split the change
5690: 73 65 74 20 61 74 20 74 68 65 20 67 69 76 65 6e set at the given
56a0: 0a 09 23 20 6c 6f 63 61 74 69 6f 6e 2e 20 54 68 ..# location. Th
56b0: 69 73 20 63 75 74 73 20 61 20 6e 75 6d 62 65 72 is cuts a number
56c0: 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 65 73 of dependencies
56d0: 2e 20 48 65 72 65 20 77 65 20 75 70 64 61 74 65 . Here we update
56e0: 0a 09 23 20 74 68 65 20 63 72 6f 73 73 20 69 6e ..# the cross in
56f0: 66 6f 72 6d 61 74 69 6f 6e 20 73 6f 20 74 68 61 formation so tha
5700: 74 20 74 68 65 20 62 72 65 61 6b 20 66 69 6e 64 t the break find
5710: 65 72 20 68 61 73 20 61 63 63 75 72 61 74 65 0a er has accurate.
5720: 09 23 20 64 61 74 61 20 77 68 65 6e 20 77 65 20 .# data when we
5730: 6c 6f 6f 6b 20 61 74 20 74 68 65 20 67 65 6e 65 look at the gene
5740: 72 61 74 65 64 20 66 72 61 67 6d 65 6e 74 73 2e rated fragments.
5750: 0a 0a 09 73 65 74 20 73 69 78 20 5b 6c 6f 67 20 ...set six [log
5760: 76 69 73 69 62 6c 65 3f 20 36 5d 0a 0a 09 66 6f visible? 6]...fo
5770: 72 65 61 63 68 20 7b 64 65 70 20 72 61 6e 67 65 reach {dep range
5780: 7d 20 5b 61 72 72 61 79 20 67 65 74 20 64 65 70 } [array get dep
5790: 63 5d 20 7b 0a 09 20 20 20 20 23 20 43 68 65 63 c] {.. # Chec
57a0: 6b 20 61 6c 6c 20 64 65 70 65 6e 64 65 6e 63 69 k all dependenci
57b0: 65 73 20 73 74 69 6c 6c 20 6b 6e 6f 77 6e 2c 20 es still known,
57c0: 74 61 6b 65 20 74 68 65 69 72 20 72 61 6e 67 65 take their range
57d0: 20 61 6e 64 0a 09 20 20 20 20 23 20 73 65 65 20 and.. # see
57e0: 69 66 20 74 68 65 20 62 72 65 61 6b 20 6c 6f 63 if the break loc
57f0: 61 74 69 6f 6e 20 66 61 6c 6c 73 20 77 69 74 68 ation falls with
5800: 69 6e 2e 0a 0a 09 20 20 20 20 42 6f 72 64 65 72 in.... Border
5810: 20 24 72 61 6e 67 65 20 73 20 65 0a 09 20 20 20 $range s e..
5820: 20 69 66 20 7b 24 6c 6f 63 61 74 69 6f 6e 20 3c if {$location <
5830: 20 24 73 7d 20 63 6f 6e 74 69 6e 75 65 20 3b 20 $s} continue ;
5840: 23 20 62 72 65 61 6b 20 62 65 66 6f 72 65 20 72 # break before r
5850: 61 6e 67 65 2c 20 69 67 6e 6f 72 65 0a 09 20 20 ange, ignore..
5860: 20 20 69 66 20 7b 24 6c 6f 63 61 74 69 6f 6e 20 if {$location
5870: 3e 20 24 65 7d 20 63 6f 6e 74 69 6e 75 65 20 3b > $e} continue ;
5880: 20 23 20 62 72 65 61 6b 20 61 66 74 65 72 20 72 # break after r
5890: 61 6e 67 65 2c 20 69 67 6e 6f 72 65 2e 0a 0a 09 ange, ignore....
58a0: 20 20 20 20 23 20 54 68 69 73 20 64 65 70 65 6e # This depen
58b0: 64 65 6e 63 79 20 63 72 6f 73 73 65 73 20 74 68 dency crosses th
58c0: 65 20 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e e break location
58d0: 2e 20 57 65 20 72 65 6d 6f 76 65 20 69 74 0a 09 . We remove it..
58e0: 20 20 20 20 23 20 66 72 6f 6d 20 74 68 65 20 63 # from the c
58f0: 72 6f 73 73 69 6e 67 73 20 63 6f 75 6e 74 65 72 rossings counter
5900: 73 2c 20 61 6e 64 20 74 68 65 6e 20 61 6c 73 6f s, and then also
5910: 20 66 72 6f 6d 20 74 68 65 20 73 65 74 0a 09 20 from the set..
5920: 20 20 20 23 20 6f 66 20 6b 6e 6f 77 6e 20 64 65 # of known de
5930: 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 73 20 77 pendencies, as w
5940: 65 20 61 72 65 20 64 6f 6e 65 20 77 69 74 68 20 e are done with
5950: 69 74 2e 0a 0a 09 20 20 20 20 66 6f 72 65 61 63 it.... foreac
5960: 68 20 6c 6f 63 20 24 64 65 70 63 28 24 64 65 70 h loc $depc($dep
5970: 29 20 7b 20 69 6e 63 72 20 63 72 6f 73 73 28 24 ) { incr cross($
5980: 6c 6f 63 29 20 2d 31 20 7d 0a 09 20 20 20 20 75 loc) -1 }.. u
5990: 6e 73 65 74 20 64 65 70 63 28 24 64 65 70 29 0a nset depc($dep).
59a0: 0a 09 20 20 20 20 69 66 20 7b 21 24 73 69 78 7d .. if {!$six}
59b0: 20 63 6f 6e 74 69 6e 75 65 0a 0a 09 20 20 20 20 continue...
59c0: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 struct::list ass
59d0: 69 67 6e 20 24 64 65 70 20 70 61 72 65 6e 74 20 ign $dep parent
59e0: 63 68 69 6c 64 0a 09 20 20 20 20 6c 6f 67 20 77 child.. log w
59f0: 72 69 74 65 20 35 20 63 73 65 74 73 20 22 42 72 rite 5 csets "Br
5a00: 6f 6b 65 20 64 65 70 65 6e 64 65 6e 63 79 20 5b oke dependency [
5a10: 50 44 20 24 70 61 72 65 6e 74 5d 20 2d 2d 3e 20 PD $parent] -->
5a20: 5b 50 44 20 24 63 68 69 6c 64 5d 22 0a 09 7d 0a [PD $child]"..}.
5a30: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
5a40: 20 20 20 20 23 20 50 72 69 6e 74 20 69 64 65 6e # Print iden
5a50: 74 69 66 79 69 6e 67 20 64 61 74 61 20 66 6f 72 tifying data for
5a60: 20 61 20 72 65 76 69 73 69 6f 6e 20 28 70 72 6f a revision (pro
5a70: 6a 65 63 74 2c 20 66 69 6c 65 2c 20 64 6f 74 74 ject, file, dott
5a80: 65 64 20 72 65 76 0a 20 20 20 20 23 20 6e 75 6d ed rev. # num
5a90: 62 65 72 29 2c 20 66 6f 72 20 68 69 67 68 20 76 ber), for high v
5aa0: 65 72 62 6f 73 69 74 79 20 6c 6f 67 20 6f 75 74 erbosity log out
5ab0: 70 75 74 2e 0a 20 20 20 20 23 20 54 4f 44 4f 3a put.. # TODO:
5ac0: 20 52 65 70 6c 61 63 65 20 77 69 74 68 20 63 61 Replace with ca
5ad0: 6c 6c 20 74 6f 20 69 74 65 6d 73 74 72 20 28 6c ll to itemstr (l
5ae0: 69 73 74 20 72 65 76 20 24 69 64 29 0a 0a 20 20 ist rev $id)..
5af0: 20 20 70 72 6f 63 20 50 44 20 7b 69 64 7d 20 7b proc PD {id} {
5b00: 0a 09 66 6f 72 65 61 63 68 20 7b 70 20 66 20 72 ..foreach {p f r
5b10: 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 } [state run {..
5b20: 09 53 45 4c 45 43 54 20 50 2e 6e 61 6d 65 20 2c .SELECT P.name ,
5b30: 20 46 2e 6e 61 6d 65 2c 20 52 2e 72 65 76 0a 09 F.name, R.rev..
5b40: 09 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 .FROM revision R
5b50: 2c 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 , file F, projec
5b60: 74 20 50 0a 09 09 57 48 45 52 45 20 52 2e 72 69 t P...WHERE R.ri
5b70: 64 20 3d 20 24 69 64 20 20 20 20 2d 2d 20 46 69 d = $id -- Fi
5b80: 6e 64 20 73 70 65 63 69 66 69 65 64 20 66 69 6c nd specified fil
5b90: 65 20 72 65 76 69 73 69 6f 6e 0a 09 09 41 4e 44 e revision...AND
5ba0: 20 20 20 46 2e 66 69 64 20 3d 20 52 2e 66 69 64 F.fid = R.fid
5bb0: 20 20 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 -- Get file of
5bc0: 20 74 68 65 20 72 65 76 69 73 69 6f 6e 0a 09 09 the revision...
5bd0: 41 4e 44 20 20 20 50 2e 70 69 64 20 3d 20 46 2e AND P.pid = F.
5be0: 70 69 64 20 20 2d 2d 20 47 65 74 20 70 72 6f 6a pid -- Get proj
5bf0: 65 63 74 20 6f 66 20 74 68 65 20 66 69 6c 65 2e ect of the file.
5c00: 0a 09 7d 5d 20 62 72 65 61 6b 0a 09 72 65 74 75 ..}] break..retu
5c10: 72 6e 20 22 27 24 70 20 3a 20 24 66 2f 24 72 27 rn "'$p : $f/$r'
5c20: 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 50 ". }.. # P
5c30: 72 69 6e 74 69 6e 67 20 6f 6e 65 20 6f 72 20 6d rinting one or m
5c40: 6f 72 65 20 72 61 6e 67 65 73 2c 20 66 6f 72 6d ore ranges, form
5c50: 61 74 74 65 64 2c 20 61 6e 64 20 6f 6e 6c 79 20 atted, and only
5c60: 74 68 65 69 72 20 62 6f 72 64 65 72 20 74 6f 0a their border to.
5c70: 20 20 20 20 23 20 6b 65 65 70 20 74 68 65 20 73 # keep the s
5c80: 74 72 69 6e 67 73 20 73 68 6f 72 74 2e 0a 0a 20 trings short...
5c90: 20 20 20 70 72 6f 63 20 50 52 73 20 7b 72 61 6e proc PRs {ran
5ca0: 67 65 73 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b ges} {..return [
5cb0: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 struct::list map
5cc0: 20 24 72 61 6e 67 65 73 20 5b 6d 79 70 72 6f 63 $ranges [myproc
5cd0: 20 50 52 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 PR]]. }..
5ce0: 20 70 72 6f 63 20 50 52 20 7b 72 61 6e 67 65 7d proc PR {range}
5cf0: 20 7b 0a 09 42 6f 72 64 65 72 20 24 72 61 6e 67 {..Border $rang
5d00: 65 20 73 20 65 0a 09 72 65 74 75 72 6e 20 3c 24 e s e..return <$
5d10: 7b 73 7d 2e 2e 2e 24 7b 65 7d 3e 0a 20 20 20 20 {s}...${e}>.
5d20: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 42 6f 72 64 }.. proc Bord
5d30: 65 72 20 7b 72 61 6e 67 65 20 73 76 20 65 76 7d er {range sv ev}
5d40: 20 7b 0a 09 75 70 76 61 72 20 31 20 24 73 76 20 {..upvar 1 $sv
5d50: 73 20 24 65 76 20 65 0a 09 73 65 74 20 73 20 5b s $ev e..set s [
5d60: 6c 69 6e 64 65 78 20 24 72 61 6e 67 65 20 30 5d lindex $range 0]
5d70: 0a 09 73 65 74 20 65 20 5b 6c 69 6e 64 65 78 20 ..set e [lindex
5d80: 24 72 61 6e 67 65 20 65 6e 64 5d 0a 09 72 65 74 $range end]..ret
5d90: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
5da0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
5db0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
5dc0: 23 23 23 23 23 23 0a 0a 20 20 20 20 74 79 70 65 ######.. type
5dd0: 76 61 72 69 61 62 6c 65 20 6d 79 63 68 61 6e 67 variable mychang
5de0: 65 73 65 74 73 20 20 20 20 20 20 20 20 20 7b 7d esets {}
5df0: 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 61 6c 6c ; # List of all
5e00: 20 6b 6e 6f 77 6e 0a 09 09 09 09 09 20 20 20 23 known...... #
5e10: 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 20 20 20 changesets..
5e20: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
5e30: 74 63 68 61 6e 67 65 73 65 74 73 20 2d 61 72 72 tchangesets -arr
5e40: 61 79 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f ay {} ; # List o
5e50: 66 20 61 6c 6c 20 6b 6e 6f 77 6e 0a 09 09 09 09 f all known.....
5e60: 09 20 20 20 23 20 63 68 61 6e 67 65 73 65 74 73 . # changesets
5e70: 20 6f 66 20 61 20 74 79 70 65 2e 0a 20 20 20 20 of a type..
5e80: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 69 typevariable myi
5e90: 74 65 6d 6d 61 70 20 20 20 20 20 2d 61 72 72 61 temmap -arra
5ea0: 79 20 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f y {} ; # Map fro
5eb0: 6d 20 69 74 65 6d 73 20 28 74 61 67 67 65 64 29 m items (tagged)
5ec0: 0a 09 09 09 09 09 20 20 20 23 20 74 6f 20 74 68 ...... # to th
5ed0: 65 20 6c 69 73 74 20 6f 66 20 63 68 61 6e 67 65 e list of change
5ee0: 73 65 74 73 0a 09 09 09 09 09 20 20 20 23 20 63 sets...... # c
5ef0: 6f 6e 74 61 69 6e 69 6e 67 20 69 74 2e 20 45 61 ontaining it. Ea
5f00: 63 68 20 69 74 65 6d 0a 09 09 09 09 09 20 20 20 ch item......
5f10: 23 20 63 61 6e 20 62 65 20 75 73 65 64 20 62 79 # can be used by
5f20: 20 6f 6e 6c 79 20 6f 6e 65 0a 09 09 09 09 09 20 only one......
5f30: 20 20 23 20 63 68 61 6e 67 65 73 65 74 2e 0a 20 # changeset..
5f40: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
5f50: 6d 79 69 64 6d 61 70 20 20 20 2d 61 72 72 61 79 myidmap -array
5f60: 20 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d {} ; # Map from
5f70: 20 63 68 61 6e 67 65 73 65 74 20 69 64 20 74 6f changeset id to
5f80: 0a 09 09 09 09 20 20 20 20 20 20 20 23 20 63 68 ..... # ch
5f90: 61 6e 67 65 73 65 74 2e 0a 0a 20 20 20 20 74 79 angeset... ty
5fa0: 70 65 6d 65 74 68 6f 64 20 61 6c 6c 20 20 20 20 pemethod all
5fb0: 7b 7d 20 20 20 20 7b 20 72 65 74 75 72 6e 20 24 {} { return $
5fc0: 6d 79 63 68 61 6e 67 65 73 65 74 73 20 7d 0a 20 mychangesets }.
5fd0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 typemethod of
5fe0: 20 20 20 20 20 7b 63 69 64 7d 20 7b 20 72 65 74 {cid} { ret
5ff0: 75 72 6e 20 24 6d 79 69 64 6d 61 70 28 24 63 69 urn $myidmap($ci
6000: 64 29 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 d) }. typemet
6010: 68 6f 64 20 6f 66 69 74 65 6d 20 7b 69 69 64 7d hod ofitem {iid}
6020: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 69 74 65 { return $myite
6030: 6d 6d 61 70 28 24 69 69 64 29 20 7d 0a 0a 20 20 mmap($iid) }..
6040: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 72 65 76 typemethod rev
6050: 20 20 20 20 7b 7d 20 20 20 20 7b 20 72 65 74 75 {} { retu
6060: 72 6e 20 24 6d 79 74 63 68 61 6e 67 65 73 65 74 rn $mytchangeset
6070: 73 28 72 65 76 29 20 7d 0a 20 20 20 20 74 79 70 s(rev) }. typ
6080: 65 6d 65 74 68 6f 64 20 73 79 6d 20 20 20 20 7b emethod sym {
6090: 7d 20 20 20 20 7b 20 72 65 74 75 72 6e 20 5b 63 } { return [c
60a0: 6f 6e 63 61 74 20 5c 0a 09 09 09 09 09 20 20 24 oncat \...... $
60b0: 7b 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 73 {mytchangesets(s
60c0: 79 6d 3a 3a 62 72 61 6e 63 68 29 7d 20 5c 0a 09 ym::branch)} \..
60d0: 09 09 09 09 20 20 24 7b 6d 79 74 63 68 61 6e 67 .... ${mytchang
60e0: 65 73 65 74 73 28 73 79 6d 3a 3a 74 61 67 29 7d esets(sym::tag)}
60f0: 5d 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 ] }.. # # ##
6100: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
6110: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
6120: 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 67 75 72 . ## Configur
6130: 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 61 67 6d ation.. pragm
6140: 61 20 2d 68 61 73 74 79 70 65 69 6e 66 6f 20 20 a -hastypeinfo
6150: 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 74 79 70 no ; # no typ
6160: 65 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a e introspection.
6170: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 pragma -hasi
6180: 6e 66 6f 20 20 20 20 20 20 20 20 6e 6f 20 20 3b nfo no ;
6190: 20 23 20 6e 6f 20 6f 62 6a 65 63 74 20 69 6e 74 # no object int
61a0: 72 6f 73 70 65 63 74 69 6f 6e 0a 0a 20 20 20 20 rospection..
61b0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
61c0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
61d0: 23 23 23 23 23 23 23 0a 7d 0a 0a 23 23 0a 23 23 #######.}..##.##
61e0: 20 4e 4f 54 45 3a 20 54 68 65 20 73 75 63 63 65 NOTE: The succe
61f0: 73 73 6f 72 20 61 6e 64 20 70 72 65 64 65 63 65 ssor and predece
6200: 73 73 6f 72 20 6d 65 74 68 6f 64 73 20 64 65 66 ssor methods def
6210: 69 6e 65 64 20 62 79 20 74 68 65 20 63 6c 61 73 ined by the clas
6220: 73 65 73 0a 23 23 20 20 20 20 20 20 20 62 65 6c ses.## bel
6230: 6f 77 20 61 72 65 20 2d 2d 20 62 6f 74 74 6c 65 ow are -- bottle
6240: 20 6e 65 63 6b 73 20 2d 2d 2e 20 4c 6f 6f 6b 20 necks --. Look
6250: 66 6f 72 20 77 61 79 73 20 74 6f 20 6d 61 6b 65 for ways to make
6260: 20 74 68 65 20 53 51 4c 0a 23 23 20 20 20 20 20 the SQL.##
6270: 20 20 66 61 73 74 65 72 2e 0a 23 23 0a 0a 23 20 faster..##..#
6280: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
6290: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
62a0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
62b0: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 48 ###########.## H
62c0: 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 2e elper singleton.
62d0: 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 72 65 Commands for re
62e0: 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 vision changeset
62f0: 73 2e 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a s...snit::type :
6300: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
6310: 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 ort::cvs::projec
6320: 74 3a 3a 72 65 76 3a 3a 72 65 76 20 7b 0a 20 20 t::rev::rev {.
6330: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 72 typemethod byr
6340: 65 76 69 73 69 6f 6e 20 7b 7d 20 7b 20 72 65 74 evision {} { ret
6350: 75 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 urn 1 }. type
6360: 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c 20 method bysymbol
6370: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 {} { return 0
6380: 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 }. typemethod
6390: 20 69 73 74 61 67 20 20 20 20 20 20 7b 7d 20 7b istag {} {
63a0: 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 return 0 }.
63b0: 74 79 70 65 6d 65 74 68 6f 64 20 69 73 62 72 61 typemethod isbra
63c0: 6e 63 68 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 nch {} { retur
63d0: 6e 20 30 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d n 0 }.. typem
63e0: 65 74 68 6f 64 20 73 74 72 20 7b 72 65 76 69 73 ethod str {revis
63f0: 69 6f 6e 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a ion} {..struct::
6400: 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 73 74 61 list assign [sta
6410: 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 te run {.. SE
6420: 4c 45 43 54 20 52 2e 72 65 76 2c 20 46 2e 6e 61 LECT R.rev, F.na
6430: 6d 65 2c 20 50 2e 6e 61 6d 65 0a 09 20 20 20 20 me, P.name..
6440: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
6450: 52 2c 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 R, file F, proje
6460: 63 74 20 50 0a 09 20 20 20 20 57 48 45 52 45 20 ct P.. WHERE
6470: 20 52 2e 72 69 64 20 3d 20 24 72 65 76 69 73 69 R.rid = $revisi
6480: 6f 6e 20 2d 2d 20 46 69 6e 64 20 73 70 65 63 69 on -- Find speci
6490: 66 69 65 64 20 66 69 6c 65 20 72 65 76 69 73 69 fied file revisi
64a0: 6f 6e 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 on.. AND F
64b0: 2e 66 69 64 20 3d 20 52 2e 66 69 64 20 20 20 20 .fid = R.fid
64c0: 20 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 20 -- Get file of
64d0: 74 68 65 20 72 65 76 69 73 69 6f 6e 0a 09 20 20 the revision..
64e0: 20 20 41 4e 44 20 20 20 20 50 2e 70 69 64 20 3d AND P.pid =
64f0: 20 46 2e 70 69 64 20 20 20 20 20 2d 2d 20 47 65 F.pid -- Ge
6500: 74 20 70 72 6f 6a 65 63 74 20 6f 66 20 74 68 65 t project of the
6510: 20 66 69 6c 65 2e 0a 09 7d 5d 20 72 65 76 6e 72 file...}] revnr
6520: 20 66 6e 61 6d 65 20 70 6e 61 6d 65 0a 09 72 65 fname pname..re
6530: 74 75 72 6e 20 22 24 70 6e 61 6d 65 2f 24 7b 72 turn "$pname/${r
6540: 65 76 6e 72 7d 3a 3a 24 66 6e 61 6d 65 22 0a 20 evnr}::$fname".
6550: 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 }.. # resu
6560: 6c 74 20 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 lt = list (minti
6570: 6d 65 2c 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 me, maxtime).
6580: 20 74 79 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 typemethod time
6590: 72 61 6e 67 65 20 7b 69 74 65 6d 73 7d 20 7b 0a range {items} {.
65a0: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
65b0: 6f 69 6e 20 24 69 74 65 6d 73 20 7b 27 2c 27 7d oin $items {','}
65c0: 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 ]')..return [sta
65d0: 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e te run [subst -n
65e0: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 ocommands -nobac
65f0: 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 kslashes {..
6600: 53 45 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 SELECT MIN(R.dat
6610: 65 29 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a e), MAX(R.date).
6620: 09 20 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 . FROM revisi
6630: 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 on R.. WHERE
6640: 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 R.rid IN $theset
6650: 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 -- Restrict to
6660: 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 revisions of int
6670: 65 72 65 73 74 0a 09 7d 5d 5d 0a 20 20 20 20 7d erest..}]]. }
6680: 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 29 20 .. # var(dv)
6690: 3d 20 64 69 63 74 20 28 72 65 76 69 73 69 6f 6e = dict (revision
66a0: 20 2d 3e 20 6c 69 73 74 20 28 72 65 76 69 73 69 -> list (revisi
66b0: 6f 6e 29 29 0a 20 20 20 20 74 79 70 65 6d 65 74 on)). typemet
66c0: 68 6f 64 20 69 6e 74 65 72 6e 61 6c 73 75 63 63 hod internalsucc
66d0: 65 73 73 6f 72 73 20 7b 64 76 20 72 65 76 69 73 essors {dv revis
66e0: 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 ions} {..upvar 1
66f0: 20 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 $dv dependencie
6700: 73 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 s..set theset ('
6710: 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 [join $revisions
6720: 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 23 20 53 65 {','}]')...# Se
6730: 65 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 62 e 'successors' b
6740: 65 6c 6f 77 20 66 6f 72 20 74 68 65 20 6d 61 69 elow for the mai
6750: 6e 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 n explanation of
6760: 0a 09 23 20 74 68 65 20 76 61 72 69 6f 75 73 20 ..# the various
6770: 63 61 73 65 73 2e 20 54 68 69 73 20 70 69 65 63 cases. This piec
6780: 65 20 69 73 20 73 70 65 63 69 61 6c 20 69 6e 20 e is special in
6790: 74 68 61 74 20 69 74 0a 09 23 20 72 65 73 74 72 that it..# restr
67a0: 69 63 74 73 20 74 68 65 20 73 75 63 63 65 73 73 icts the success
67b0: 6f 72 73 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 ors we look for
67c0: 74 6f 20 74 68 65 20 73 61 6d 65 20 73 65 74 20 to the same set
67d0: 6f 66 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 20 of..# revisions
67e0: 77 65 20 73 74 61 72 74 20 66 72 6f 6d 2e 20 53 we start from. S
67f0: 65 6e 73 69 62 6c 65 20 61 73 20 77 65 20 61 72 ensible as we ar
6800: 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a 09 23 e looking for..#
6810: 20 63 68 61 6e 67 65 73 65 74 20 69 6e 74 65 72 changeset inter
6820: 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 nal dependencies
6830: 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 64 65 ....array set de
6840: 70 20 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b p {}...foreach {
6850: 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 rid child} [stat
6860: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
6870: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
6880: 73 6c 61 73 68 65 73 20 7b 0a 20 20 20 20 2d 2d slashes {. --
6890: 20 28 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 (1) Primary chi
68a0: 6c 64 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 ld.. SELECT R
68b0: 2e 72 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 .rid, R.child..
68c0: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
68d0: 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 on R.. WHERE
68e0: 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 R.rid IN $the
68f0: 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 set -- Restr
6900: 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 ict to revisions
6910: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 of interest..
6920: 20 20 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 AND R.child
6930: 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 IS NOT NULL
6940: 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 -- Has primary c
6950: 68 69 6c 64 0a 09 20 20 20 20 41 4e 44 20 20 20 hild.. AND
6960: 20 52 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 R.child IN $the
6970: 73 65 74 20 20 20 20 20 2d 2d 20 57 68 69 63 68 set -- Which
6980: 20 69 73 20 61 6c 73 6f 20 6f 66 20 69 6e 74 65 is also of inte
6990: 72 65 73 74 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 rest. UNION.
69a0: 20 20 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 -- (2) Second
69b0: 61 72 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 ary (branch) chi
69c0: 6c 64 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 ldren.. SELEC
69d0: 54 20 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a T R.rid, B.brid.
69e0: 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 . FROM revi
69f0: 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e sion R, revision
6a00: 62 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 branchchildren B
6a10: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
6a20: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
6a30: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
6a40: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
6a50: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
6a60: 44 20 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 D R.rid = B.r
6a70: 69 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 id -- S
6a80: 65 6c 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 elect subset of
6a90: 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a branch children.
6aa0: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 62 72 . AND B.br
6ab0: 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 id IN $theset
6ac0: 20 20 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 -- Which is a
6ad0: 6c 73 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a lso of interest.
6ae0: 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d UNION. --
6af0: 20 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 (4) Child of tr
6b00: 75 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 unk root success
6b10: 6f 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 or of last NTDB
6b20: 6f 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 on trunk... S
6b30: 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e ELECT R.rid, RA.
6b40: 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 child.. FROM
6b50: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
6b60: 73 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 sion RA.. WHE
6b70: 52 45 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 RE R.rid IN $t
6b80: 68 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 heset -- Re
6b90: 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 strict to revisi
6ba0: 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a ons of interest.
6bb0: 09 20 20 20 20 41 4e 44 20 20 20 52 2e 69 73 64 . AND R.isd
6bc0: 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 efault
6bd0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
6be0: 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 o NTDB.. AND
6bf0: 20 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 4e R.dbchild IS N
6c00: 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 OT NULL -- and
6c10: 20 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e last NTDB belon
6c20: 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 ging to trunk..
6c30: 20 20 20 41 4e 44 20 20 20 52 41 2e 72 69 64 20 AND RA.rid
6c40: 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 = R.dbchild
6c50: 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 -- Go directly
6c60: 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 to trunk root..
6c70: 20 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c AND RA.chil
6c80: 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 d IS NOT NULL
6c90: 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 -- Has primary
6ca0: 63 68 69 6c 64 2e 0a 20 20 20 20 20 20 20 20 20 child..
6cb0: 20 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c AND RA.chil
6cc0: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
6cd0: 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c 73 -- Which is als
6ce0: 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 7d o of interest..}
6cf0: 5d 5d 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e 73 ]] {.. # Cons
6d00: 69 64 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 73 ider moving this
6d10: 20 74 6f 20 74 68 65 20 69 6e 74 65 67 72 69 74 to the integrit
6d20: 79 20 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 69 y module... i
6d30: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
6d40: 7b 24 72 69 64 20 21 3d 20 24 63 68 69 6c 64 7d {$rid != $child}
6d50: 20 7b 52 65 76 69 73 69 6f 6e 20 24 72 69 64 20 {Revision $rid
6d60: 64 65 70 65 6e 64 73 20 6f 6e 20 69 74 73 65 6c depends on itsel
6d70: 66 2e 7d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 f.}.. lappend
6d80: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 24 72 dependencies($r
6d90: 69 64 29 20 24 63 68 69 6c 64 0a 09 20 20 20 20 id) $child..
6da0: 73 65 74 20 64 65 70 28 24 72 69 64 2c 24 63 68 set dep($rid,$ch
6db0: 69 6c 64 29 20 2e 0a 09 7d 0a 0a 09 23 20 54 68 ild) ...}...# Th
6dc0: 65 20 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 73 e sql statements
6dd0: 20 61 62 6f 76 65 20 6c 6f 6f 6b 73 20 6f 6e 6c above looks onl
6de0: 79 20 66 6f 72 20 64 69 72 65 63 74 20 64 65 70 y for direct dep
6df0: 65 6e 64 65 6e 63 69 65 73 0a 09 23 20 62 65 74 endencies..# bet
6e00: 77 65 65 6e 20 72 65 76 69 73 69 6f 6e 20 69 6e ween revision in
6e10: 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 the changeset.
6e20: 48 6f 77 65 76 65 72 20 64 75 65 20 74 6f 20 74 However due to t
6e30: 68 65 0a 09 23 20 76 61 67 61 72 69 65 73 20 6f he..# vagaries o
6e40: 66 20 6d 65 74 61 20 64 61 74 61 20 69 74 20 69 f meta data it i
6e50: 73 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 s possible for t
6e60: 77 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 0a wo revisions of.
6e70: 09 23 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 .# the same file
6e80: 20 74 6f 20 65 6e 64 20 75 70 20 69 6e 20 74 68 to end up in th
6e90: 65 20 73 61 6d 65 20 63 68 61 6e 67 65 73 65 74 e same changeset
6ea0: 2c 20 77 69 74 68 6f 75 74 20 61 0a 09 23 20 64 , without a..# d
6eb0: 69 72 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 irect dependency
6ec0: 20 62 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 48 between them. H
6ed0: 6f 77 65 76 65 72 20 77 65 20 6b 6e 6f 77 20 74 owever we know t
6ee0: 68 61 74 20 74 68 65 72 65 0a 09 23 20 68 61 73 hat there..# has
6ef0: 20 74 6f 20 62 65 20 61 20 61 6e 20 69 6e 64 69 to be a an indi
6f00: 72 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 2c rect dependency,
6f10: 20 62 65 20 69 74 20 74 68 72 6f 75 67 68 20 70 be it through p
6f20: 72 69 6d 61 72 79 0a 09 23 20 63 68 69 6c 64 72 rimary..# childr
6f30: 65 6e 2c 20 62 72 61 6e 63 68 20 63 68 69 6c 64 en, branch child
6f40: 72 65 6e 2c 20 6f 72 20 61 20 63 6f 6d 62 69 6e ren, or a combin
6f50: 61 74 69 6f 6e 20 74 68 65 72 65 6f 66 2e 0a 0a ation thereof...
6f60: 09 23 20 57 65 20 6e 6f 77 20 66 69 6c 6c 20 69 .# We now fill i
6f70: 6e 20 74 68 65 73 65 20 70 73 65 75 64 6f 2d 64 n these pseudo-d
6f80: 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 69 66 20 ependencies, if
6f90: 6e 6f 20 73 75 63 68 0a 09 23 20 64 65 70 65 6e no such..# depen
6fa0: 64 65 6e 63 79 20 65 78 69 73 74 73 20 61 6c 72 dency exists alr
6fb0: 65 61 64 79 2e 20 54 68 65 20 64 69 72 65 63 74 eady. The direct
6fc0: 69 6f 6e 20 6f 66 20 74 68 65 20 64 65 70 65 6e ion of the depen
6fd0: 64 65 6e 63 79 0a 09 23 20 69 73 20 61 63 74 75 dency..# is actu
6fe0: 61 6c 6c 79 20 69 72 72 65 6c 65 76 61 6e 74 20 ally irrelevant
6ff0: 66 6f 72 20 74 68 69 73 2e 0a 0a 09 23 20 4e 4f for this....# NO
7000: 54 45 3a 20 54 68 69 73 20 69 73 20 64 69 66 66 TE: This is diff
7010: 65 72 65 6e 74 20 66 72 6f 6d 20 63 76 73 32 73 erent from cvs2s
7020: 76 6e 2e 20 4f 75 72 20 73 70 69 72 69 74 75 61 vn. Our spiritua
7030: 6c 20 61 6e 63 65 73 74 6f 72 0a 09 23 20 64 6f l ancestor..# do
7040: 65 73 20 6e 6f 74 20 75 73 65 20 73 75 63 68 20 es not use such
7050: 70 73 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 pseudo-dependenc
7060: 69 65 73 2c 20 68 6f 77 65 76 65 72 20 69 74 20 ies, however it
7070: 75 73 65 73 20 61 0a 09 23 20 43 4f 4d 4d 49 54 uses a..# COMMIT
7080: 5f 54 48 52 45 53 48 4f 4c 44 2c 20 61 20 74 69 _THRESHOLD, a ti
7090: 6d 65 20 69 6e 74 65 72 76 61 6c 20 63 6f 6d 6d me interval comm
70a0: 69 74 73 20 73 68 6f 75 6c 64 20 66 61 6c 6c 2e its should fall.
70b0: 20 54 68 69 73 0a 09 23 20 77 69 6c 6c 20 67 72 This..# will gr
70c0: 65 61 74 6c 79 20 72 65 64 75 63 65 73 20 74 68 eatly reduces th
70d0: 65 20 72 69 73 6b 20 6f 66 20 67 65 74 74 69 6e e risk of gettin
70e0: 67 20 66 61 72 20 73 65 70 61 72 61 74 65 64 0a g far separated.
70f0: 09 23 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 .# revisions of
7100: 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e the same file in
7110: 74 6f 20 6f 6e 65 20 63 68 61 6e 67 65 73 65 74 to one changeset
7120: 2e 0a 0a 09 23 20 57 65 20 61 6c 6c 6f 77 20 72 ....# We allow r
7130: 65 76 69 73 69 6f 6e 73 20 74 6f 20 62 65 20 66 evisions to be f
7140: 61 72 20 61 70 61 72 74 20 69 6e 20 74 69 6d 65 ar apart in time
7150: 20 69 6e 20 74 68 65 20 73 61 6d 65 0a 09 23 20 in the same..#
7160: 63 68 61 6e 67 65 73 65 74 2c 20 62 75 74 20 69 changeset, but i
7170: 6e 20 74 75 72 6e 20 6e 65 65 64 20 74 68 65 20 n turn need the
7180: 70 73 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 pseudo-dependenc
7190: 69 65 73 20 74 6f 0a 09 23 20 68 61 6e 64 6c 65 ies to..# handle
71a0: 20 74 68 69 73 2e 0a 0a 09 61 72 72 61 79 20 73 this....array s
71b0: 65 74 20 66 69 64 73 20 7b 7d 0a 09 66 6f 72 65 et fids {}..fore
71c0: 61 63 68 20 7b 72 69 64 20 66 69 64 7d 20 5b 73 ach {rid fid} [s
71d0: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
71e0: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
71f0: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
7200: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
7210: 52 2e 66 69 64 0a 20 20 20 20 20 20 20 20 20 20 R.fid.
7220: 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f FROM revisio
7230: 6e 20 52 0a 20 20 20 20 20 20 20 20 20 20 20 20 n R.
7240: 57 48 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 WHERE R.rid IN
7250: 24 74 68 65 73 65 74 0a 09 7d 5d 5d 20 7b 20 6c $theset..}]] { l
7260: 61 70 70 65 6e 64 20 66 69 64 73 28 24 66 69 64 append fids($fid
7270: 29 20 24 72 69 64 20 7d 0a 0a 09 66 6f 72 65 61 ) $rid }...forea
7280: 63 68 20 7b 66 69 64 20 72 69 64 73 7d 20 5b 61 ch {fid rids} [a
7290: 72 72 61 79 20 67 65 74 20 66 69 64 73 5d 20 7b rray get fids] {
72a0: 0a 09 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 .. if {[lleng
72b0: 74 68 20 24 72 69 64 73 5d 20 3c 20 32 7d 20 63 th $rids] < 2} c
72c0: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 66 6f 72 ontinue.. for
72d0: 65 61 63 68 20 61 20 24 72 69 64 73 20 7b 0a 09 each a $rids {..
72e0: 09 66 6f 72 65 61 63 68 20 62 20 24 72 69 64 73 .foreach b $rids
72f0: 20 7b 0a 09 09 20 20 20 20 69 66 20 7b 24 61 20 {... if {$a
7300: 3d 3d 20 24 62 7d 20 63 6f 6e 74 69 6e 75 65 0a == $b} continue.
7310: 09 09 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 .. if {[info
7320: 65 78 69 73 74 73 20 64 65 70 28 24 61 2c 24 62 exists dep($a,$b
7330: 29 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 )]} continue...
7340: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
7350: 73 74 73 20 64 65 70 28 24 62 2c 24 61 29 5d 7d sts dep($b,$a)]}
7360: 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 continue...
7370: 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e lappend dependen
7380: 63 69 65 73 28 24 61 29 20 24 62 0a 09 09 20 20 cies($a) $b...
7390: 20 20 73 65 74 20 64 65 70 28 24 61 2c 24 62 29 set dep($a,$b)
73a0: 20 2e 0a 09 09 20 20 20 20 73 65 74 20 64 65 70 .... set dep
73b0: 28 24 62 2c 24 61 29 20 2e 0a 09 09 7d 0a 09 20 ($b,$a) ....}..
73c0: 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a }..}..return.
73d0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 }.. # res
73e0: 75 6c 74 20 3d 20 34 2d 6c 69 73 74 20 28 69 74 ult = 4-list (it
73f0: 65 6d 74 79 70 65 20 69 74 65 6d 69 64 20 6e 65 emtype itemid ne
7400: 78 74 69 74 65 6d 74 79 70 65 20 6e 65 78 74 69 xtitemtype nexti
7410: 74 65 6d 69 64 20 2e 2e 2e 29 0a 20 20 20 20 74 temid ...). t
7420: 79 70 65 6d 65 74 68 6f 64 20 6c 6f 6f 70 73 20 ypemethod loops
7430: 7b 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 23 {revisions} {..#
7440: 20 4e 6f 74 65 3a 20 54 61 67 73 20 61 6e 64 20 Note: Tags and
7450: 62 72 61 6e 63 68 65 73 20 63 61 6e 6e 6f 74 20 branches cannot
7460: 63 61 75 73 65 20 74 68 65 20 6c 6f 6f 70 2e 20 cause the loop.
7470: 54 68 65 69 72 20 69 64 27 73 2c 0a 09 23 20 62 Their id's,..# b
7480: 65 69 6e 67 20 6f 66 20 61 20 66 75 6e 64 61 6d eing of a fundam
7490: 65 6e 74 61 6c 6c 79 20 64 69 66 66 65 72 65 6e entally differen
74a0: 74 20 74 79 70 65 20 74 68 61 6e 20 74 68 65 20 t type than the
74b0: 72 65 76 69 73 69 6f 6e 73 0a 09 23 20 63 6f 6d revisions..# com
74c0: 69 6e 67 20 69 6e 20 63 61 6e 6e 6f 74 20 62 65 ing in cannot be
74d0: 20 69 6e 20 74 68 65 20 73 65 74 2e 0a 0a 09 73 in the set....s
74e0: 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 et theset ('[joi
74f0: 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c n $revisions {',
7500: 27 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 '}]')..return [s
7510: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
7520: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
7530: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
7540: 20 20 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 79 -- (1) Primary
7550: 20 63 68 69 6c 64 0a 09 20 20 20 20 53 45 4c 45 child.. SELE
7560: 43 54 20 52 2e 72 69 64 2c 20 52 2e 63 68 69 6c CT R.rid, R.chil
7570: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 d.. FROM re
7580: 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 vision R.. WH
7590: 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 ERE R.rid IN
75a0: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
75b0: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
75c0: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
75d0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 .. AND R.c
75e0: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
75f0: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
7600: 72 79 20 63 68 69 6c 64 0a 09 20 20 20 20 41 4e ry child.. AN
7610: 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 4e 20 D R.child IN
7620: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c $theset -- L
7630: 6f 6f 70 0a 09 20 20 20 20 2d 2d 0a 09 20 20 20 oop.. --..
7640: 20 55 4e 49 4f 4e 0a 09 20 20 20 20 2d 2d 20 28 UNION.. -- (
7650: 32 29 20 53 65 63 6f 6e 64 61 72 79 20 28 62 72 2) Secondary (br
7660: 61 6e 63 68 29 20 63 68 69 6c 64 72 65 6e 0a 09 anch) children..
7670: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
7680: 2c 20 42 2e 62 72 69 64 0a 09 20 20 20 20 46 52 , B.brid.. FR
7690: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c OM revision R,
76a0: 20 72 65 76 69 73 69 6f 6e 62 72 61 6e 63 68 63 revisionbranchc
76b0: 68 69 6c 64 72 65 6e 20 42 0a 09 20 20 20 20 57 hildren B.. W
76c0: 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e HERE R.rid IN
76d0: 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 $theset --
76e0: 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 Restrict to revi
76f0: 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 sions of interes
7700: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e t.. AND R.
7710: 72 69 64 20 3d 20 42 2e 72 69 64 20 20 20 20 20 rid = B.rid
7720: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 73 -- Select s
7730: 75 62 73 65 74 20 6f 66 20 62 72 61 6e 63 68 20 ubset of branch
7740: 63 68 69 6c 64 72 65 6e 0a 09 20 20 20 20 41 4e children.. AN
7750: 44 20 20 20 20 42 2e 72 69 64 20 20 20 49 4e 20 D B.rid IN
7760: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c $theset -- L
7770: 6f 6f 70 0a 09 20 20 20 20 2d 2d 0a 09 20 20 20 oop.. --..
7780: 20 55 4e 49 4f 4e 0a 09 20 20 20 20 2d 2d 20 28 UNION.. -- (
7790: 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 4) Child of trun
77a0: 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 k root successor
77b0: 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e of last NTDB on
77c0: 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c trunk... SEL
77d0: 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 68 ECT R.rid, RA.ch
77e0: 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 ild.. FROM
77f0: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
7800: 73 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 sion RA.. WHE
7810: 52 45 20 20 52 2e 72 69 64 20 20 20 20 49 4e 20 RE R.rid IN
7820: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
7830: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
7840: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
7850: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 .. AND R.i
7860: 73 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 sdefault
7870: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
7880: 20 74 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e to NTDB.. AN
7890: 44 20 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 D R.dbchild I
78a0: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 S NOT NULL --
78b0: 61 6e 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 and last NTDB be
78c0: 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b longing to trunk
78d0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e .. AND RA.
78e0: 72 69 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 rid = R.dbchild
78f0: 20 20 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 -- Go direc
7900: 74 6c 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f tly to trunk roo
7910: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 t.. AND RA
7920: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
7930: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
7940: 6d 61 72 79 20 63 68 69 6c 64 2e 0a 09 20 20 20 mary child...
7950: 20 41 4e 44 20 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
7960: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
7970: 2d 2d 20 4c 6f 6f 70 0a 09 7d 5d 5d 0a 20 20 20 -- Loop..}]].
7980: 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 }.. # var(dv
7990: 29 20 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d ) = dict (item -
79a0: 3e 20 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 > list (item)),
79b0: 69 74 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 item = list (ty
79c0: 70 65 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d pe id). typem
79d0: 65 74 68 6f 64 20 73 75 63 63 65 73 73 6f 72 73 ethod successors
79e0: 20 7b 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 {dv revisions}
79f0: 7b 0a 09 75 70 76 61 72 20 31 20 24 64 76 20 64 {..upvar 1 $dv d
7a00: 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 73 65 74 ependencies..set
7a10: 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 theset ('[join
7a20: 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d $revisions {','}
7a30: 5d 27 29 0a 0a 09 23 20 54 68 65 20 66 6f 6c 6c ]')...# The foll
7a40: 6f 77 69 6e 67 20 63 61 73 65 73 20 73 70 65 63 owing cases spec
7a50: 69 66 79 20 77 68 65 6e 20 61 20 72 65 76 69 73 ify when a revis
7a60: 69 6f 6e 20 53 20 69 73 20 61 20 73 75 63 63 65 ion S is a succe
7a70: 73 73 6f 72 0a 09 23 20 6f 66 20 61 20 72 65 76 ssor..# of a rev
7a80: 69 73 69 6f 6e 20 52 2e 20 45 61 63 68 20 6f 66 ision R. Each of
7a90: 20 74 68 65 20 63 61 73 65 73 20 74 72 61 6e 73 the cases trans
7aa0: 6c 61 74 65 73 20 69 6e 74 6f 20 6f 6e 65 20 6f lates into one o
7ab0: 66 0a 09 23 20 74 68 65 20 62 72 61 6e 63 68 65 f..# the branche
7ac0: 73 20 6f 66 20 74 68 65 20 53 51 4c 20 55 4e 49 s of the SQL UNI
7ad0: 4f 4e 20 63 6f 6d 69 6e 67 20 62 65 6c 6f 77 2e ON coming below.
7ae0: 0a 09 23 0a 09 23 20 28 31 29 20 53 20 63 61 6e ..#..# (1) S can
7af0: 20 62 65 20 61 20 70 72 69 6d 61 72 79 20 63 68 be a primary ch
7b00: 69 6c 64 20 6f 66 20 52 2c 20 69 2e 65 2e 20 69 ild of R, i.e. i
7b10: 6e 20 74 68 65 20 73 61 6d 65 20 4c 4f 44 2e 20 n the same LOD.
7b20: 52 0a 09 23 20 20 20 20 20 72 65 66 65 72 65 6e R..# referen
7b30: 63 65 73 20 53 20 64 69 72 65 63 74 6c 79 2e 20 ces S directly.
7b40: 52 2e 63 68 69 6c 64 20 3d 20 53 28 2e 72 69 64 R.child = S(.rid
7b50: 29 2c 20 69 66 20 69 74 20 65 78 69 73 74 73 2e ), if it exists.
7b60: 0a 09 23 0a 09 23 20 28 32 29 20 53 20 63 61 6e ..#..# (2) S can
7b70: 20 62 65 20 61 20 73 65 63 6f 6e 64 61 72 79 2c be a secondary,
7b80: 20 69 2e 65 2e 20 62 72 61 6e 63 68 2c 20 63 68 i.e. branch, ch
7b90: 69 6c 64 20 6f 66 20 52 2e 20 48 65 72 65 20 74 ild of R. Here t
7ba0: 68 65 0a 09 23 20 20 20 20 20 6c 69 6e 6b 20 69 he..# link i
7bb0: 73 20 6d 61 64 65 20 74 68 72 6f 75 67 68 20 74 s made through t
7bc0: 68 65 20 68 65 6c 70 65 72 20 74 61 62 6c 65 0a he helper table.
7bd0: 09 23 20 20 20 20 20 52 45 56 49 53 49 4f 4e 42 .# REVISIONB
7be0: 52 41 4e 43 48 43 48 49 4c 44 52 45 4e 2e 20 52 RANCHCHILDREN. R
7bf0: 2e 72 69 64 20 2d 3e 20 52 42 43 2e 72 69 64 2c .rid -> RBC.rid,
7c00: 20 52 42 43 2e 62 72 69 64 20 3d 0a 09 23 20 20 RBC.brid =..#
7c10: 20 20 20 53 28 2e 72 69 64 29 0a 09 23 0a 09 23 S(.rid)..#..#
7c20: 20 28 33 29 20 4f 72 69 67 69 6e 61 6c 6c 79 20 (3) Originally
7c30: 74 68 69 73 20 75 73 65 20 63 61 73 65 20 64 65 this use case de
7c40: 66 69 6e 65 64 20 74 68 65 20 72 6f 6f 74 20 6f fined the root o
7c50: 66 20 61 20 64 65 74 61 63 68 65 64 0a 09 23 20 f a detached..#
7c60: 20 20 20 20 4e 54 44 42 20 61 73 20 74 68 65 20 NTDB as the
7c70: 73 75 63 63 65 73 73 6f 72 20 6f 66 20 74 68 65 successor of the
7c80: 20 74 72 75 6e 6b 20 72 6f 6f 74 2e 20 54 68 69 trunk root. Thi
7c90: 73 20 6c 65 61 64 73 20 74 6f 20 61 0a 09 23 20 s leads to a..#
7ca0: 20 20 20 20 62 61 64 20 74 61 6e 67 6c 65 20 6c bad tangle l
7cb0: 61 74 65 72 20 6f 6e 2e 20 57 69 74 68 20 61 20 ater on. With a
7cc0: 64 65 74 61 63 68 65 64 20 4e 54 44 42 20 74 68 detached NTDB th
7cd0: 65 20 6f 72 69 67 69 6e 61 6c 0a 09 23 20 20 20 e original..#
7ce0: 20 20 74 72 75 6e 6b 20 72 6f 6f 74 20 72 65 76 trunk root rev
7cf0: 69 73 69 6f 6e 20 77 61 73 20 72 65 6d 6f 76 65 ision was remove
7d00: 64 20 61 73 20 69 72 72 65 6c 65 76 61 6e 74 2c d as irrelevant,
7d10: 20 61 6c 6c 6f 77 69 6e 67 0a 09 23 20 20 20 20 allowing..#
7d20: 20 74 68 65 20 6e 6f 6d 69 6e 61 6c 20 72 6f 6f the nominal roo
7d30: 74 20 74 6f 20 62 65 20 6c 61 74 65 72 20 69 6e t to be later in
7d40: 20 74 69 6d 65 20 74 68 61 6e 20 74 68 65 20 4e time than the N
7d50: 54 44 42 0a 09 23 20 20 20 20 20 72 6f 6f 74 2e TDB..# root.
7d60: 20 4e 6f 77 20 73 65 74 74 69 6e 67 20 74 68 69 Now setting thi
7d70: 73 20 64 65 70 65 6e 64 65 6e 63 79 20 77 69 6c s dependency wil
7d80: 6c 20 62 65 20 62 61 63 6b 77 61 72 64 20 69 6e l be backward in
7d90: 0a 09 23 20 20 20 20 20 74 69 6d 65 2e 20 52 45 ..# time. RE
7da0: 4d 4f 56 45 44 2e 0a 09 23 0a 09 23 20 28 34 29 MOVED...#..# (4)
7db0: 20 49 66 20 52 20 69 73 20 74 68 65 20 6c 61 73 If R is the las
7dc0: 74 20 6f 66 20 74 68 65 20 4e 54 44 42 20 72 65 t of the NTDB re
7dd0: 76 69 73 69 6f 6e 73 20 77 68 69 63 68 20 62 65 visions which be
7de0: 6c 6f 6e 67 20 74 6f 0a 09 23 20 20 20 20 20 74 long to..# t
7df0: 68 65 20 74 72 75 6e 6b 2c 20 74 68 65 6e 20 74 he trunk, then t
7e00: 68 65 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 he primary child
7e10: 20 6f 66 20 74 68 65 20 74 72 75 6e 6b 20 72 6f of the trunk ro
7e20: 6f 74 20 28 74 68 65 0a 09 23 20 20 20 20 20 27 ot (the..# '
7e30: 31 2e 32 27 20 72 65 76 69 73 69 6f 6e 29 20 69 1.2' revision) i
7e40: 73 20 61 20 73 75 63 63 65 73 73 6f 72 2c 20 69 s a successor, i
7e50: 66 20 69 74 20 65 78 69 73 74 73 2e 0a 0a 09 23 f it exists....#
7e60: 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 62 Note that the b
7e70: 72 61 6e 63 68 65 73 20 73 70 61 77 6e 65 64 20 ranches spawned
7e80: 66 72 6f 6d 20 74 68 65 20 72 65 76 69 73 69 6f from the revisio
7e90: 6e 73 2c 20 61 6e 64 20 74 68 65 0a 09 23 20 74 ns, and the..# t
7ea0: 61 67 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 ags associated w
7eb0: 69 74 68 20 74 68 65 6d 20 61 72 65 20 73 75 63 ith them are suc
7ec0: 63 65 73 73 6f 72 73 20 61 73 20 77 65 6c 6c 2e cessors as well.
7ed0: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 ...foreach {rid
7ee0: 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 child} [state ru
7ef0: 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d n [subst -nocomm
7f00: 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 ands -nobackslas
7f10: 68 65 73 20 7b 0a 20 20 20 20 2d 2d 20 28 31 29 hes {. -- (1)
7f20: 20 50 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 09 Primary child..
7f30: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
7f40: 2c 20 52 2e 63 68 69 6c 64 0a 09 20 20 20 20 46 , R.child.. F
7f50: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
7f60: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
7f70: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
7f80: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
7f90: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
7fa0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
7fb0: 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 53 20 D R.child IS
7fc0: 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 NOT NULL -- H
7fd0: 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 as primary child
7fe0: 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d . UNION. -
7ff0: 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 79 20 - (2) Secondary
8000: 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 72 65 (branch) childre
8010: 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e n.. SELECT R.
8020: 72 69 64 2c 20 42 2e 62 72 69 64 0a 09 20 20 20 rid, B.brid..
8030: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
8040: 20 52 2c 20 72 65 76 69 73 69 6f 6e 62 72 61 6e R, revisionbran
8050: 63 68 63 68 69 6c 64 72 65 6e 20 42 0a 09 20 20 chchildren B..
8060: 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 WHERE R.rid
8070: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
8080: 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 -- Restrict to r
8090: 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 evisions of inte
80a0: 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 rest.. AND
80b0: 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 20 20 R.rid = B.rid
80c0: 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 -- Selec
80d0: 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 61 6e t subset of bran
80e0: 63 68 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 ch children.
80f0: 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 34 29 UNION. -- (4)
8100: 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 6b 20 Child of trunk
8110: 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 20 6f root successor o
8120: 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e 20 74 f last NTDB on t
8130: 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c 45 43 runk... SELEC
8140: 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 68 69 6c T R.rid, RA.chil
8150: 64 0a 09 20 20 20 20 46 52 4f 4d 20 72 65 76 69 d.. FROM revi
8160: 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e sion R, revision
8170: 20 52 41 0a 09 20 20 20 20 57 48 45 52 45 20 52 RA.. WHERE R
8180: 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 .rid IN $these
8190: 74 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 t -- Restri
81a0: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
81b0: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
81c0: 20 41 4e 44 20 20 20 52 2e 69 73 64 65 66 61 75 AND R.isdefau
81d0: 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 20 2d lt -
81e0: 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 4e 54 - Restrict to NT
81f0: 44 42 0a 09 20 20 20 20 41 4e 44 20 20 20 52 2e DB.. AND R.
8200: 64 62 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e dbchild IS NOT N
8210: 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 ULL -- and las
8220: 74 20 4e 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 t NTDB belonging
8230: 20 74 6f 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 to trunk.. A
8240: 4e 44 20 20 20 52 41 2e 72 69 64 20 3d 20 52 2e ND RA.rid = R.
8250: 64 62 63 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 dbchild --
8260: 47 6f 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 Go directly to t
8270: 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 runk root.. A
8280: 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 20 49 53 ND RA.child IS
8290: 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 NOT NULL --
82a0: 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c Has primary chil
82b0: 64 2e 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 23 d...}]] {.. #
82c0: 20 43 6f 6e 73 69 64 65 72 20 6d 6f 76 69 6e 67 Consider moving
82d0: 20 74 68 69 73 20 74 6f 20 74 68 65 20 69 6e 74 this to the int
82e0: 65 67 72 69 74 79 20 6d 6f 64 75 6c 65 2e 0a 09 egrity module...
82f0: 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 integrity as
8300: 73 65 72 74 20 7b 24 72 69 64 20 21 3d 20 24 63 sert {$rid != $c
8310: 68 69 6c 64 7d 20 7b 52 65 76 69 73 69 6f 6e 20 hild} {Revision
8320: 24 72 69 64 20 64 65 70 65 6e 64 73 20 6f 6e 20 $rid depends on
8330: 69 74 73 65 6c 66 2e 7d 0a 09 20 20 20 20 6c 61 itself.}.. la
8340: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
8350: 65 73 28 5b 6c 69 73 74 20 72 65 76 20 24 72 69 es([list rev $ri
8360: 64 5d 29 20 5b 6c 69 73 74 20 72 65 76 20 24 63 d]) [list rev $c
8370: 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 hild]..}..foreac
8380: 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 h {rid child} [s
8390: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
83a0: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
83b0: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
83c0: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
83d0: 54 2e 74 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 T.tid.. FROM
83e0: 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 74 61 revision R, ta
83f0: 67 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 20 g T.. WHERE
8400: 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 R.rid IN $theset
8410: 20 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 -- Restri
8420: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
8430: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
8440: 20 41 4e 44 20 20 20 20 54 2e 72 65 76 20 3d 20 AND T.rev =
8450: 52 2e 72 69 64 20 20 20 20 20 20 20 20 20 20 2d R.rid -
8460: 2d 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 74 - Select tags at
8470: 74 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 09 tached to them..
8480: 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 }]] {.. lappe
8490: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
84a0: 5b 6c 69 73 74 20 72 65 76 20 24 72 69 64 5d 29 [list rev $rid])
84b0: 20 5b 6c 69 73 74 20 73 79 6d 3a 3a 74 61 67 20 [list sym::tag
84c0: 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 $child]..}..fore
84d0: 61 63 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 ach {rid child}
84e0: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
84f0: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
8500: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 obackslashes {..
8510: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
8520: 2c 20 42 2e 62 69 64 0a 09 20 20 20 20 46 52 4f , B.bid.. FRO
8530: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 M revision R,
8540: 62 72 61 6e 63 68 20 42 0a 09 20 20 20 20 57 48 branch B.. WH
8550: 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 ERE R.rid IN $t
8560: 68 65 73 65 74 20 20 20 20 20 20 20 2d 2d 20 52 heset -- R
8570: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
8580: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
8590: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 72 .. AND B.r
85a0: 6f 6f 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 oot = R.rid
85b0: 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 -- Select br
85c0: 61 6e 63 68 65 73 20 61 74 74 61 63 68 65 64 20 anches attached
85d0: 74 6f 20 74 68 65 6d 0a 09 7d 5d 5d 20 7b 0a 09 to them..}]] {..
85e0: 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 lappend depe
85f0: 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 72 ndencies([list r
8600: 65 76 20 24 72 69 64 5d 29 20 5b 6c 69 73 74 20 ev $rid]) [list
8610: 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 63 68 69 sym::branch $chi
8620: 6c 64 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 ld]..}..return.
8630: 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 }.. # resu
8640: 6c 74 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 lt = list (chang
8650: 65 73 65 74 2d 69 64 29 0a 20 20 20 20 74 79 70 eset-id). typ
8660: 65 6d 65 74 68 6f 64 20 63 73 5f 73 75 63 63 65 emethod cs_succe
8670: 73 73 6f 72 73 20 7b 72 65 76 69 73 69 6f 6e 73 ssors {revisions
8680: 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20 54 68 } {. # Th
8690: 69 73 20 69 73 20 61 20 76 61 72 69 61 6e 74 20 is is a variant
86a0: 6f 66 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 of 'successors'
86b0: 77 68 69 63 68 20 6d 61 70 73 20 74 68 65 20 6c which maps the l
86c0: 6f 77 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 ow-level.
86d0: 20 23 20 64 61 74 61 20 64 69 72 65 63 74 6c 79 # data directly
86e0: 20 74 6f 20 74 68 65 20 61 73 73 6f 63 69 61 74 to the associat
86f0: 65 64 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 ed changesets. I
8700: 2e 65 2e 20 69 6e 73 74 65 61 64 0a 20 20 20 20 .e. instead.
8710: 20 20 20 20 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f # millions o
8720: 66 20 64 65 70 65 6e 64 65 6e 63 79 20 70 61 69 f dependency pai
8730: 72 73 20 28 69 6e 20 65 78 74 72 65 6d 65 20 63 rs (in extreme c
8740: 61 73 65 73 20 28 45 78 61 6d 70 6c 65 3a 20 54 ases (Example: T
8750: 63 6c 0a 20 20 20 20 20 20 20 20 23 20 43 56 53 cl. # CVS
8760: 29 29 20 77 65 20 72 65 74 75 72 6e 20 61 20 76 )) we return a v
8770: 65 72 79 20 73 68 6f 72 74 20 61 6e 64 20 6d 75 ery short and mu
8780: 63 68 20 6d 6f 72 65 20 6d 61 6e 61 67 65 61 62 ch more manageab
8790: 6c 65 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 le list.
87a0: 23 20 6f 66 20 63 68 61 6e 67 65 73 65 74 73 2e # of changesets.
87b0: 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 ...set theset ('
87c0: 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 [join $revisions
87d0: 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 75 72 {','}]')..retur
87e0: 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 n [state run [su
87f0: 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 bst -nocommands
8800: 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b -nobackslashes {
8810: 0a 20 20 20 20 2d 2d 20 28 31 29 20 50 72 69 6d . -- (1) Prim
8820: 61 72 79 20 63 68 69 6c 64 0a 09 20 20 20 20 53 ary child.. S
8830: 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 ELECT C.cid..
8840: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
8850: 20 52 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 R, csitem CI, c
8860: 68 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 hangeset C..
8870: 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 WHERE R.rid I
8880: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
8890: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
88a0: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
88b0: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 st.. AND R
88c0: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
88d0: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
88e0: 6d 61 72 79 20 63 68 69 6c 64 0a 20 20 20 20 20 mary child.
88f0: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 AND CI
8900: 2e 69 69 64 20 3d 20 52 2e 63 68 69 6c 64 20 20 .iid = R.child
8910: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 -- Select a
8920: 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ll changesets.
8930: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
8940: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 20 C.cid = CI.cid
8950: 20 20 20 20 20 20 20 20 2d 2d 20 63 6f 6e 74 61 -- conta
8960: 69 6e 69 6e 67 20 74 68 65 20 70 72 69 6d 61 72 ining the primar
8970: 79 20 63 68 69 6c 64 0a 20 20 20 20 20 20 20 20 y child.
8980: 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 AND C.typ
8990: 65 20 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 e = 0
89a0: 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 20 72 -- which are r
89b0: 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 evision changese
89c0: 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 ts. UNION.
89d0: 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 -- (2) Secondar
89e0: 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 y (branch) child
89f0: 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 ren.. SELECT
8a00: 43 2e 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 C.cid.. FROM
8a10: 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 revision R, re
8a20: 76 69 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c visionbranchchil
8a30: 64 72 65 6e 20 42 2c 20 63 73 69 74 65 6d 20 43 dren B, csitem C
8a40: 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 I, changeset C..
8a50: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
8a60: 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 IN $theset
8a70: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
8a80: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e revisions of in
8a90: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
8aa0: 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 R.rid = B.rid
8ab0: 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c -- Sel
8ac0: 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 ect subset of br
8ad0: 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a 20 20 anch children.
8ae0: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
8af0: 20 43 49 2e 69 69 64 20 3d 20 42 2e 62 72 69 64 CI.iid = B.brid
8b00: 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 -- Selec
8b10: 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 t all changesets
8b20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
8b30: 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 C.cid = CI.c
8b40: 69 64 09 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 id. -- containi
8b50: 6e 67 20 74 68 65 20 62 72 61 6e 63 68 0a 20 20 ng the branch.
8b60: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
8b70: 20 43 2e 74 79 70 65 20 3d 20 30 09 09 20 20 2d C.type = 0.. -
8b80: 2d 20 77 68 69 63 68 20 61 72 65 20 72 65 76 69 - which are revi
8b90: 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a sion changesets.
8ba0: 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d UNION. --
8bb0: 20 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 (4) Child of tr
8bc0: 75 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 unk root success
8bd0: 6f 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 or of last NTDB
8be0: 6f 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 on trunk... S
8bf0: 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 ELECT C.cid..
8c00: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
8c10: 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 2c R, revision RA,
8c20: 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e csitem CI, chan
8c30: 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 geset C.. WHE
8c40: 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 RE R.rid IN $
8c50: 74 68 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 theset -- R
8c60: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
8c70: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
8c80: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 .. AND R.i
8c90: 73 64 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 sdefault
8ca0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
8cb0: 20 74 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e to NTDB.. AN
8cc0: 44 20 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 D R.dbchild I
8cd0: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 S NOT NULL --
8ce0: 61 6e 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 and last NTDB be
8cf0: 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b longing to trunk
8d00: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e .. AND RA.
8d10: 72 69 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 rid = R.dbchild
8d20: 20 20 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 -- Go direc
8d30: 74 6c 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f tly to trunk roo
8d40: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 t.. AND RA
8d50: 2e 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 .child IS NOT NU
8d60: 4c 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 LL -- Has pri
8d70: 6d 61 72 79 20 63 68 69 6c 64 2e 0a 20 20 20 20 mary child..
8d80: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
8d90: 49 2e 69 69 64 20 3d 20 52 41 2e 63 68 69 6c 64 I.iid = RA.child
8da0: 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 -- Select
8db0: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a all changesets.
8dc0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
8dd0: 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 C.cid = CI.ci
8de0: 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 d. -- containi
8df0: 6e 67 20 74 68 65 20 70 72 69 6d 61 72 79 20 63 ng the primary c
8e00: 68 69 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 hild.
8e10: 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d AND C.type =
8e20: 20 30 09 09 20 20 20 2d 2d 20 77 68 69 63 68 20 0.. -- which
8e30: 61 72 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 are revision cha
8e40: 6e 67 65 73 65 74 73 0a 20 20 20 20 55 4e 49 4f ngesets. UNIO
8e50: 4e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e N.. SELECT C.
8e60: 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 cid.. FROM
8e70: 72 65 76 69 73 69 6f 6e 20 52 2c 20 74 61 67 20 revision R, tag
8e80: 54 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 T, csitem CI, ch
8e90: 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 angeset C.. W
8ea0: 48 45 52 45 20 20 52 2e 72 69 64 20 69 6e 20 24 HERE R.rid in $
8eb0: 74 68 65 73 65 74 20 20 20 20 20 20 20 20 2d 2d theset --
8ec0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
8ed0: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
8ee0: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 st.. AND T
8ef0: 2e 72 65 76 20 3d 20 52 2e 72 69 64 09 20 20 20 .rev = R.rid.
8f00: 2d 2d 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 -- Select tags a
8f10: 74 74 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a ttached to them.
8f20: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
8f30: 20 20 20 43 49 2e 69 69 64 20 3d 20 54 2e 74 69 CI.iid = T.ti
8f40: 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 d -- Se
8f50: 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 lect all changes
8f60: 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ets.
8f70: 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 AND C.cid = C
8f80: 49 2e 63 69 64 09 20 20 20 2d 2d 20 63 6f 6e 74 I.cid. -- cont
8f90: 61 69 6e 69 6e 67 20 74 68 65 20 74 61 67 73 0a aining the tags.
8fa0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
8fb0: 20 20 20 43 2e 74 79 70 65 20 3d 20 31 09 09 20 C.type = 1..
8fc0: 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 20 74 -- which are t
8fd0: 61 67 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ag changesets.
8fe0: 20 20 55 4e 49 4f 4e 0a 09 20 20 20 20 53 45 4c UNION.. SEL
8ff0: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
9000: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
9010: 2c 20 62 72 61 6e 63 68 20 42 2c 20 63 73 69 74 , branch B, csit
9020: 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 em CI, changeset
9030: 20 43 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 C.. WHERE R
9040: 2e 72 69 64 20 69 6e 20 24 74 68 65 73 65 74 20 .rid in $theset
9050: 20 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 -- Restri
9060: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
9070: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
9080: 20 41 4e 44 20 20 20 20 42 2e 72 6f 6f 74 20 3d AND B.root =
9090: 20 52 2e 72 69 64 09 20 20 20 2d 2d 20 53 65 6c R.rid. -- Sel
90a0: 65 63 74 20 62 72 61 6e 63 68 65 73 20 61 74 74 ect branches att
90b0: 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 20 20 ached to them.
90c0: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
90d0: 20 43 49 2e 69 69 64 20 3d 20 42 2e 62 69 64 20 CI.iid = B.bid
90e0: 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 -- Sele
90f0: 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 ct all changeset
9100: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
9110: 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e D C.cid = CI.
9120: 63 69 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 cid. -- contai
9130: 6e 69 6e 67 20 74 68 65 20 62 72 61 6e 63 68 65 ning the branche
9140: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
9150: 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 32 09 D C.type = 2.
9160: 09 20 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 . -- which are
9170: 20 62 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 branch changese
9180: 74 73 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 7d 0a ts..}]]. }.}.
9190: 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 .# # ## ### ####
91a0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
91b0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
91c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 ##############.#
91d0: 23 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 # Helper singlet
91e0: 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 on. Commands for
91f0: 20 74 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 6e tag symbol chan
9200: 67 65 73 65 74 73 2e 0a 0a 73 6e 69 74 3a 3a 74 gesets...snit::t
9210: 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ype ::vc::fossil
9220: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
9230: 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 73 79 6d roject::rev::sym
9240: 3a 3a 74 61 67 20 7b 0a 20 20 20 20 74 79 70 65 ::tag {. type
9250: 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f method byrevisio
9260: 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 n {} { return 0
9270: 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 }. typemethod
9280: 20 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b bysymbol {} {
9290: 20 72 65 74 75 72 6e 20 31 20 7d 0a 20 20 20 20 return 1 }.
92a0: 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 61 67 typemethod istag
92b0: 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 {} { retur
92c0: 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 n 1 }. typeme
92d0: 74 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 thod isbranch
92e0: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a {} { return 0 }.
92f0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
9300: 73 74 72 20 7b 74 61 67 7d 20 7b 0a 09 73 74 72 str {tag} {..str
9310: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e uct::list assign
9320: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
9330: 20 20 20 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 SELECT S.name
9340: 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d 65 , F.name, P.name
9350: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 .. FROM tag
9360: 20 54 2c 20 73 79 6d 62 6f 6c 20 53 2c 20 66 69 T, symbol S, fi
9370: 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a le F, project P.
9380: 09 20 20 20 20 57 48 45 52 45 20 20 54 2e 74 69 . WHERE T.ti
9390: 64 20 3d 20 24 74 61 67 20 20 20 2d 2d 20 46 69 d = $tag -- Fi
93a0: 6e 64 20 73 70 65 63 69 66 69 65 64 20 74 61 67 nd specified tag
93b0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 .. AND F.f
93c0: 69 64 20 3d 20 54 2e 66 69 64 20 20 2d 2d 20 47 id = T.fid -- G
93d0: 65 74 20 66 69 6c 65 20 6f 66 20 74 61 67 0a 09 et file of tag..
93e0: 20 20 20 20 41 4e 44 20 20 20 20 50 2e 70 69 64 AND P.pid
93f0: 20 3d 20 46 2e 70 69 64 20 20 2d 2d 20 47 65 74 = F.pid -- Get
9400: 20 70 72 6f 6a 65 63 74 20 6f 66 20 66 69 6c 65 project of file
9410: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 53 2e 73 .. AND S.s
9420: 69 64 20 3d 20 54 2e 73 69 64 20 20 2d 2d 20 47 id = T.sid -- G
9430: 65 74 20 73 79 6d 62 6f 6c 20 6f 66 20 74 61 67 et symbol of tag
9440: 0a 09 7d 5d 20 73 6e 61 6d 65 20 66 6e 61 6d 65 ..}] sname fname
9450: 20 70 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 pname..return "
9460: 24 70 6e 61 6d 65 2f 54 27 24 7b 73 6e 61 6d 65 $pname/T'${sname
9470: 7d 27 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 }'::$fname".
9480: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
9490: 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c = list (mintime,
94a0: 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 maxtime). ty
94b0: 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e pemethod timeran
94c0: 67 65 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 54 ge {tags} {..# T
94d0: 68 65 20 72 61 6e 67 65 20 69 73 20 64 65 66 69 he range is defi
94e0: 6e 65 64 20 61 73 20 74 68 65 20 72 61 6e 67 65 ned as the range
94f0: 20 6f 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e of the revision
9500: 73 20 74 68 65 20 74 61 67 73 0a 09 23 20 61 72 s the tags..# ar
9510: 65 20 61 74 74 61 63 68 65 64 20 74 6f 2e 0a 0a e attached to...
9520: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
9530: 6f 69 6e 20 24 74 61 67 73 20 7b 27 2c 27 7d 5d oin $tags {','}]
9540: 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 ')..return [stat
9550: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
9560: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
9570: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 slashes {.. S
9580: 45 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 65 ELECT MIN(R.date
9590: 29 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a 09 ), MAX(R.date)..
95a0: 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 20 54 FROM tag T
95b0: 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 , revision R..
95c0: 20 20 57 48 45 52 45 20 20 54 2e 74 69 64 20 49 WHERE T.tid I
95d0: 4e 20 24 74 68 65 73 65 74 20 20 2d 2d 20 52 65 N $theset -- Re
95e0: 73 74 72 69 63 74 20 74 6f 20 74 61 67 73 20 6f strict to tags o
95f0: 66 20 69 6e 74 65 72 65 73 74 0a 20 20 20 20 20 f interest.
9600: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 52 2e AND R.
9610: 72 69 64 20 3d 20 54 2e 72 65 76 20 20 20 20 20 rid = T.rev
9620: 2d 2d 20 53 65 6c 65 63 74 20 74 61 67 20 70 61 -- Select tag pa
9630: 72 65 6e 74 20 72 65 76 69 73 69 6f 6e 73 0a 09 rent revisions..
9640: 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 }]]. }.. #
9650: 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 var(dv) = dict
9660: 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 (item -> list (i
9670: 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c tem)), item = l
9680: 69 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 ist (type id).
9690: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 typemethod suc
96a0: 63 65 73 73 6f 72 73 20 7b 64 76 20 74 61 67 73 cessors {dv tags
96b0: 7d 20 7b 0a 09 23 20 54 61 67 73 20 68 61 76 65 } {..# Tags have
96c0: 20 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 2e 0a no successors..
96d0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
96e0: 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 34 2d # result = 4-
96f0: 6c 69 73 74 20 28 69 74 65 6d 74 79 70 65 20 69 list (itemtype i
9700: 74 65 6d 69 64 20 6e 65 78 74 69 74 65 6d 74 79 temid nextitemty
9710: 70 65 20 6e 65 78 74 69 74 65 6d 69 64 20 2e 2e pe nextitemid ..
9720: 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f .). typemetho
9730: 64 20 6c 6f 6f 70 73 20 7b 74 61 67 73 7d 20 7b d loops {tags} {
9740: 0a 09 23 20 54 61 67 73 20 68 61 76 65 20 6e 6f ..# Tags have no
9750: 20 73 75 63 63 65 73 73 6f 72 73 2c 20 74 68 65 successors, the
9760: 72 65 66 6f 72 65 20 63 61 6e 6e 6f 74 20 63 61 refore cannot ca
9770: 75 73 65 20 6c 6f 6f 70 73 0a 09 72 65 74 75 72 use loops..retur
9780: 6e 20 7b 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n {}. }..
9790: 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 73 74 20 # result = list
97a0: 28 63 68 61 6e 67 65 73 65 74 2d 69 64 29 0a 20 (changeset-id).
97b0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 63 73 typemethod cs
97c0: 5f 73 75 63 63 65 73 73 6f 72 73 20 7b 74 61 67 _successors {tag
97d0: 73 7d 20 7b 0a 09 23 20 54 61 67 73 20 68 61 76 s} {..# Tags hav
97e0: 65 20 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 2e e no successors.
97f0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 7d ..return. }.}
9800: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
9810: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
9820: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
9830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
9840: 23 23 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 ## Helper single
9850: 74 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f ton. Commands fo
9860: 72 20 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c 20 r branch symbol
9870: 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 73 6e 69 changesets...sni
9880: 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f t::type ::vc::fo
9890: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
98a0: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a s::project::rev:
98b0: 3a 73 79 6d 3a 3a 62 72 61 6e 63 68 20 7b 0a 20 :sym::branch {.
98c0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 typemethod by
98d0: 72 65 76 69 73 69 6f 6e 20 7b 7d 20 7b 20 72 65 revision {} { re
98e0: 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 74 79 70 turn 0 }. typ
98f0: 65 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c emethod bysymbol
9900: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 31 {} { return 1
9910: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
9920: 64 20 69 73 74 61 67 20 20 20 20 20 20 7b 7d 20 d istag {}
9930: 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 { return 0 }.
9940: 20 74 79 70 65 6d 65 74 68 6f 64 20 69 73 62 72 typemethod isbr
9950: 61 6e 63 68 20 20 20 7b 7d 20 7b 20 72 65 74 75 anch {} { retu
9960: 72 6e 20 31 20 7d 0a 0a 20 20 20 20 74 79 70 65 rn 1 }.. type
9970: 6d 65 74 68 6f 64 20 73 74 72 20 7b 62 72 61 6e method str {bran
9980: 63 68 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c ch} {..struct::l
9990: 69 73 74 20 61 73 73 69 67 6e 20 5b 73 74 61 74 ist assign [stat
99a0: 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c e run {.. SEL
99b0: 45 43 54 20 53 2e 6e 61 6d 65 2c 20 46 2e 6e 61 ECT S.name, F.na
99c0: 6d 65 2c 20 50 2e 6e 61 6d 65 0a 09 20 20 20 20 me, P.name..
99d0: 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c FROM branch B,
99e0: 20 73 79 6d 62 6f 6c 20 53 2c 20 66 69 6c 65 20 symbol S, file
99f0: 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 20 20 F, project P..
9a00: 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 3d WHERE B.bid =
9a10: 20 24 62 72 61 6e 63 68 20 20 2d 2d 20 46 69 6e $branch -- Fin
9a20: 64 20 73 70 65 63 69 66 69 65 64 20 62 72 61 6e d specified bran
9a30: 63 68 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 ch.. AND F
9a40: 2e 66 69 64 20 3d 20 42 2e 66 69 64 20 20 20 20 .fid = B.fid
9a50: 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 20 62 -- Get file of b
9a60: 72 61 6e 63 68 0a 09 20 20 20 20 41 4e 44 20 20 ranch.. AND
9a70: 20 20 50 2e 70 69 64 20 3d 20 46 2e 70 69 64 20 P.pid = F.pid
9a80: 20 20 20 2d 2d 20 47 65 74 20 70 72 6f 6a 65 63 -- Get projec
9a90: 74 20 6f 66 20 66 69 6c 65 0a 09 20 20 20 20 41 t of file.. A
9aa0: 4e 44 20 20 20 20 53 2e 73 69 64 20 3d 20 42 2e ND S.sid = B.
9ab0: 73 69 64 20 20 20 20 2d 2d 20 47 65 74 20 73 79 sid -- Get sy
9ac0: 6d 62 6f 6c 20 6f 66 20 62 72 61 6e 63 68 0a 09 mbol of branch..
9ad0: 7d 5d 20 73 6e 61 6d 65 20 66 6e 61 6d 65 20 70 }] sname fname p
9ae0: 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 24 70 name..return "$p
9af0: 6e 61 6d 65 2f 42 27 24 7b 73 6e 61 6d 65 7d 27 name/B'${sname}'
9b00: 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a ::$fname". }.
9b10: 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 . # result =
9b20: 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d list (mintime, m
9b30: 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 axtime). type
9b40: 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 method timerange
9b50: 20 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 {branches} {..#
9b60: 20 54 68 65 20 72 61 6e 67 65 20 6f 66 20 61 20 The range of a
9b70: 62 72 61 6e 63 68 20 69 73 20 64 65 66 69 6e 65 branch is define
9b80: 64 20 61 73 20 74 68 65 20 72 61 6e 67 65 20 6f d as the range o
9b90: 66 20 74 68 65 0a 09 23 20 72 65 76 69 73 69 6f f the..# revisio
9ba0: 6e 73 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 ns the branches
9bb0: 61 72 65 20 73 70 61 77 6e 65 64 20 62 79 2e 20 are spawned by.
9bc0: 4e 4f 54 45 20 68 6f 77 65 76 65 72 20 74 68 61 NOTE however tha
9bd0: 74 20 74 68 65 0a 09 23 20 62 72 61 6e 63 68 65 t the..# branche
9be0: 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 s associated wit
9bf0: 68 20 61 20 64 65 74 61 63 68 65 64 20 4e 54 44 h a detached NTD
9c00: 42 20 77 69 6c 6c 20 68 61 76 65 20 6e 6f 20 72 B will have no r
9c10: 6f 6f 74 0a 09 23 20 73 70 61 77 6e 69 6e 67 20 oot..# spawning
9c20: 74 68 65 6d 2c 20 68 65 6e 63 65 20 74 68 65 79 them, hence they
9c30: 20 68 61 76 65 20 6e 6f 20 72 65 61 6c 20 74 69 have no real ti
9c40: 6d 65 72 61 6e 67 65 20 61 6e 79 0a 09 23 20 6c merange any..# l
9c50: 6f 6e 67 65 72 2e 20 42 79 20 75 73 69 6e 67 20 onger. By using
9c60: 30 20 77 65 20 70 75 74 20 74 68 65 6d 20 69 6e 0 we put them in
9c70: 20 66 72 6f 6e 74 20 6f 66 20 65 76 65 72 79 74 front of everyt
9c80: 68 69 6e 67 20 65 6c 73 65 2c 0a 09 23 20 61 73 hing else,..# as
9c90: 20 74 68 65 79 20 6c 6f 67 69 63 61 6c 6c 79 20 they logically
9ca0: 61 72 65 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 are....set these
9cb0: 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 t ('[join $branc
9cc0: 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 hes {','}]')..re
9cd0: 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 turn [state run
9ce0: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
9cf0: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
9d00: 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 s {.. SELECT
9d10: 49 46 4e 55 4c 4c 28 4d 49 4e 28 52 2e 64 61 74 IFNULL(MIN(R.dat
9d20: 65 29 2c 30 29 2c 20 49 46 4e 55 4c 4c 28 4d 41 e),0), IFNULL(MA
9d30: 58 28 52 2e 64 61 74 65 29 2c 30 29 0a 09 20 20 X(R.date),0)..
9d40: 20 20 46 52 4f 4d 20 20 62 72 61 6e 63 68 20 42 FROM branch B
9d50: 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 , revision R..
9d60: 20 20 57 48 45 52 45 20 42 2e 62 69 64 20 49 4e WHERE B.bid IN
9d70: 20 24 74 68 65 73 65 74 20 20 20 2d 2d 20 52 65 $theset -- Re
9d80: 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 strict to branch
9d90: 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 es of interest.
9da0: 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 AND
9db0: 20 52 2e 72 69 64 20 3d 20 42 2e 72 6f 6f 74 20 R.rid = B.root
9dc0: 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 -- Select br
9dd0: 61 6e 63 68 20 70 61 72 65 6e 74 20 72 65 76 69 anch parent revi
9de0: 73 69 6f 6e 73 0a 09 7d 5d 5d 0a 20 20 20 20 7d sions..}]]. }
9df0: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
9e00: 20 34 2d 6c 69 73 74 20 28 69 74 65 6d 74 79 70 4-list (itemtyp
9e10: 65 20 69 74 65 6d 69 64 20 6e 65 78 74 69 74 65 e itemid nextite
9e20: 6d 74 79 70 65 20 6e 65 78 74 69 74 65 6d 69 64 mtype nextitemid
9e30: 20 2e 2e 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 ...). typeme
9e40: 74 68 6f 64 20 6c 6f 6f 70 73 20 7b 62 72 61 6e thod loops {bran
9e50: 63 68 65 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 3a ches} {..# Note:
9e60: 20 52 65 76 69 73 69 6f 6e 73 20 61 6e 64 20 74 Revisions and t
9e70: 61 67 73 20 63 61 6e 6e 6f 74 20 63 61 75 73 65 ags cannot cause
9e80: 20 74 68 65 20 6c 6f 6f 70 2e 20 42 65 69 6e 67 the loop. Being
9e90: 20 6f 66 20 61 0a 09 23 20 66 75 6e 64 61 6d 65 of a..# fundame
9ea0: 6e 74 61 6c 6c 79 20 64 69 66 66 65 72 65 6e 74 ntally different
9eb0: 20 74 79 70 65 20 74 68 65 79 20 63 61 6e 6e 6f type they canno
9ec0: 74 20 62 65 20 69 6e 20 74 68 65 20 69 6e 63 6f t be in the inco
9ed0: 6d 69 6e 67 0a 09 23 20 73 65 74 20 6f 66 20 69 ming..# set of i
9ee0: 64 73 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 ds....set theset
9ef0: 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 ('[join $branch
9f00: 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 es {','}]')..ret
9f10: 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b urn [state run [
9f20: 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 subst -nocommand
9f30: 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 s -nobackslashes
9f40: 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 {.. SELECT B
9f50: 2e 62 69 64 2c 20 42 58 2e 62 69 64 0a 09 20 20 .bid, BX.bid..
9f60: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
9f70: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
9f80: 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 0a 09 t P, branch BX..
9f90: 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 WHERE B.bid
9fa0: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 2d 2d IN $theset --
9fb0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 Restrict to bra
9fc0: 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 nches of interes
9fd0: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e t.. AND B.
9fe0: 73 69 64 20 3d 20 50 2e 70 69 64 20 20 20 20 20 sid = P.pid
9ff0: 20 2d 2d 20 47 65 74 20 74 68 65 20 70 72 65 66 -- Get the pref
a000: 65 72 65 64 20 62 72 61 6e 63 68 65 73 20 76 69 ered branches vi
a010: 61 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 58 a.. AND BX
a020: 2e 73 69 64 20 3d 20 50 2e 73 69 64 20 20 20 20 .sid = P.sid
a030: 20 2d 2d 20 74 68 65 20 62 72 61 6e 63 68 20 73 -- the branch s
a040: 79 6d 62 6f 6c 73 0a 09 20 20 20 20 41 4e 44 20 ymbols.. AND
a050: 20 20 20 42 58 2e 62 69 64 20 49 4e 20 24 74 68 BX.bid IN $th
a060: 65 73 65 74 20 20 2d 2d 20 4c 6f 6f 70 0a 09 7d eset -- Loop..}
a070: 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 ]]. }.. #
a080: 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 28 var(dv) = dict (
a090: 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 item -> list (it
a0a0: 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 em)), item = li
a0b0: 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 20 st (type id).
a0c0: 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 63 typemethod succ
a0d0: 65 73 73 6f 72 73 20 7b 64 76 20 62 72 61 6e 63 essors {dv branc
a0e0: 68 65 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 hes} {..upvar 1
a0f0: 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 73 $dv dependencies
a100: 0a 09 23 20 54 68 65 20 66 69 72 73 74 20 72 65 ..# The first re
a110: 76 69 73 69 6f 6e 20 63 6f 6d 6d 69 74 74 65 64 vision committed
a120: 20 6f 6e 20 61 20 62 72 61 6e 63 68 2c 20 61 6e on a branch, an
a130: 64 20 61 6c 6c 20 62 72 61 6e 63 68 65 73 0a 09 d all branches..
a140: 23 20 61 6e 64 20 74 61 67 73 20 77 68 69 63 68 # and tags which
a150: 20 68 61 76 65 20 69 74 20 61 73 20 74 68 65 69 have it as thei
a160: 72 20 70 72 65 66 65 72 65 64 20 70 61 72 65 6e r prefered paren
a170: 74 20 61 72 65 20 74 68 65 0a 09 23 20 73 75 63 t are the..# suc
a180: 63 65 73 73 6f 72 73 20 6f 66 20 61 20 62 72 61 cessors of a bra
a190: 6e 63 68 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 nch....set these
a1a0: 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 t ('[join $branc
a1b0: 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 66 6f hes {','}]')..fo
a1c0: 72 65 61 63 68 20 7b 62 69 64 20 63 68 69 6c 64 reach {bid child
a1d0: 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 } [state run [su
a1e0: 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 bst -nocommands
a1f0: 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b -nobackslashes {
a200: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 .. SELECT B.b
a210: 69 64 2c 20 52 2e 72 69 64 0a 09 20 20 20 20 46 id, R.rid.. F
a220: 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 ROM branch B,
a230: 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 revision R..
a240: 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 WHERE B.bid IN
a250: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
a260: 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 estrict to branc
a270: 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a hes of interest.
a280: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 66 69 . AND B.fi
a290: 72 73 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 rst = R.rid
a2a0: 20 2d 2d 20 47 65 74 20 66 69 72 73 74 20 72 65 -- Get first re
a2b0: 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 vision on the br
a2c0: 61 6e 63 68 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 anch..}]] {..
a2d0: 20 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 lappend depende
a2e0: 6e 63 69 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a ncies([list sym:
a2f0: 3a 62 72 61 6e 63 68 20 24 62 69 64 5d 29 20 5b :branch $bid]) [
a300: 6c 69 73 74 20 72 65 76 20 24 63 68 69 6c 64 5d list rev $child]
a310: 0a 09 7d 0a 09 66 6f 72 65 61 63 68 20 7b 62 69 ..}..foreach {bi
a320: 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 d child} [state
a330: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
a340: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
a350: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c ashes {.. SEL
a360: 45 43 54 20 42 2e 62 69 64 2c 20 42 58 2e 62 69 ECT B.bid, BX.bi
a370: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 d.. FROM br
a380: 61 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 anch B, prefered
a390: 70 61 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 parent P, branch
a3a0: 20 42 58 0a 09 20 20 20 20 57 48 45 52 45 20 20 BX.. WHERE
a3b0: 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 B.bid IN $theset
a3c0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
a3d0: 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 to branches of
a3e0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
a3f0: 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 D B.sid = P.p
a400: 69 64 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 id -- Get
a410: 20 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 subordinate bra
a420: 6e 63 68 65 73 20 76 69 61 20 74 68 65 0a 09 20 nches via the..
a430: 20 20 20 41 4e 44 20 20 20 20 42 58 2e 73 69 64 AND BX.sid
a440: 20 3d 20 50 2e 73 69 64 20 20 20 20 20 20 20 2d = P.sid -
a450: 2d 20 70 72 65 66 65 72 65 64 20 70 61 72 65 6e - prefered paren
a460: 74 73 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 ts of their symb
a470: 6f 6c 73 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 ols..}]] {..
a480: 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e lappend dependen
a490: 63 69 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a cies([list sym::
a4a0: 62 72 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c branch $bid]) [l
a4b0: 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e 63 68 20 ist sym::branch
a4c0: 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 $child]..}..fore
a4d0: 61 63 68 20 7b 62 69 64 20 63 68 69 6c 64 7d 20 ach {bid child}
a4e0: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
a4f0: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
a500: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 obackslashes {..
a510: 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 SELECT B.bid
a520: 2c 20 54 2e 74 69 64 0a 09 20 20 20 20 46 52 4f , T.tid.. FRO
a530: 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 70 72 M branch B, pr
a540: 65 66 65 72 65 64 70 61 72 65 6e 74 20 50 2c 20 eferedparent P,
a550: 74 61 67 20 54 0a 09 20 20 20 20 57 48 45 52 45 tag T.. WHERE
a560: 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 B.bid IN $thes
a570: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
a580: 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f ct to branches o
a590: 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 f interest..
a5a0: 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 AND B.sid = P
a5b0: 2e 70 69 64 20 20 20 20 20 20 20 20 2d 2d 20 47 .pid -- G
a5c0: 65 74 20 73 75 62 6f 72 64 69 6e 61 74 65 20 74 et subordinate t
a5d0: 61 67 73 20 76 69 61 20 74 68 65 0a 09 20 20 20 ags via the..
a5e0: 20 41 4e 44 20 20 20 20 54 2e 73 69 64 20 3d 20 AND T.sid =
a5f0: 50 2e 73 69 64 20 20 20 20 20 20 20 20 2d 2d 20 P.sid --
a600: 70 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 73 prefered parents
a610: 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 6f 6c of their symbol
a620: 73 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 s..}]] {.. la
a630: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
a640: 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 es([list sym::br
a650: 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 anch $bid]) [lis
a660: 74 20 73 79 6d 3a 3a 74 61 67 20 24 63 68 69 6c t sym::tag $chil
a670: 64 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 d]..}..return.
a680: 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c }.. # resul
a690: 74 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 t = list (change
a6a0: 73 65 74 2d 69 64 29 0a 20 20 20 20 74 79 70 65 set-id). type
a6b0: 6d 65 74 68 6f 64 20 63 73 5f 73 75 63 63 65 73 method cs_succes
a6c0: 73 6f 72 73 20 7b 62 72 61 6e 63 68 65 73 7d 20 sors {branches}
a6d0: 7b 0a 20 20 20 20 20 20 20 20 23 20 54 68 69 73 {. # This
a6e0: 20 69 73 20 61 20 76 61 72 69 61 6e 74 20 6f 66 is a variant of
a6f0: 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 77 68 'successors' wh
a700: 69 63 68 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 ich maps the low
a710: 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 23 -level. #
a720: 20 64 61 74 61 20 64 69 72 65 63 74 6c 79 20 74 data directly t
a730: 6f 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 o the associated
a740: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 changesets. I.e
a750: 2e 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 . instead.
a760: 20 20 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 # millions of
a770: 64 65 70 65 6e 64 65 6e 63 79 20 70 61 69 72 73 dependency pairs
a780: 20 28 69 6e 20 65 78 74 72 65 6d 65 20 63 61 73 (in extreme cas
a790: 65 73 20 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c es (Example: Tcl
a7a0: 0a 20 20 20 20 20 20 20 20 23 20 43 56 53 29 29 . # CVS))
a7b0: 20 77 65 20 72 65 74 75 72 6e 20 61 20 76 65 72 we return a ver
a7c0: 79 20 73 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 y short and much
a7d0: 20 6d 6f 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 more manageable
a7e0: 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 23 20 list. #
a7f0: 6f 66 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a of changesets...
a800: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
a810: 6f 69 6e 20 24 62 72 61 6e 63 68 65 73 20 7b 27 oin $branches {'
a820: 2c 27 7d 5d 27 29 0a 20 20 20 20 20 20 20 20 72 ,'}]'). r
a830: 65 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e eturn [state run
a840: 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 [subst -nocomma
a850: 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 nds -nobackslash
a860: 65 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 es {.. SELECT
a870: 20 43 2e 63 69 64 0a 09 20 20 20 20 46 52 4f 4d C.cid.. FROM
a880: 20 20 20 62 72 61 6e 63 68 20 42 2c 20 72 65 76 branch B, rev
a890: 69 73 69 6f 6e 20 52 2c 20 63 73 69 74 65 6d 20 ision R, csitem
a8a0: 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a CI, changeset C.
a8b0: 09 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 . WHERE B.bi
a8c0: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
a8d0: 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 -- Restrict to
a8e0: 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 branches of inte
a8f0: 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 rest.. AND
a900: 20 42 2e 66 69 72 73 74 20 3d 20 52 2e 72 69 64 B.first = R.rid
a910: 09 2d 2d 20 47 65 74 20 66 69 72 73 74 20 72 65 .-- Get first re
a920: 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 vision on the br
a930: 61 6e 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 anch.
a940: 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d AND CI.iid =
a950: 20 52 2e 72 69 64 20 20 20 20 20 20 20 2d 2d 20 R.rid --
a960: 53 65 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 Select all chang
a970: 65 73 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 esets.
a980: 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d AND C.cid =
a990: 20 43 49 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 CI.cid.-- conta
a9a0: 69 6e 69 6e 67 20 74 68 69 73 20 72 65 76 69 73 ining this revis
a9b0: 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ion.
a9c0: 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 AND C.type =
a9d0: 30 09 09 2d 2d 20 77 68 69 63 68 20 61 72 65 20 0..-- which are
a9e0: 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 revision changes
a9f0: 65 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 ets. UNION..
aa00: 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a SELECT C.cid.
aa10: 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e . FROM bran
aa20: 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 ch B, preferedpa
aa30: 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 20 42 rent P, branch B
aa40: 58 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 X, csitem CI, ch
aa50: 61 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 angeset C.. W
aa60: 48 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 HERE B.bid IN $
aa70: 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 theset -- Re
aa80: 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 strict to branch
aa90: 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 es of interest..
aaa0: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 73 69 64 AND B.sid
aab0: 20 3d 20 50 2e 70 69 64 09 2d 2d 20 47 65 74 20 = P.pid.-- Get
aac0: 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 6e subordinate bran
aad0: 63 68 65 73 20 76 69 61 20 74 68 65 0a 09 20 20 ches via the..
aae0: 20 20 41 4e 44 20 20 20 20 42 58 2e 73 69 64 20 AND BX.sid
aaf0: 3d 20 50 2e 73 69 64 09 2d 2d 20 70 72 65 66 65 = P.sid.-- prefe
ab00: 72 65 64 20 70 61 72 65 6e 74 73 20 6f 66 20 74 red parents of t
ab10: 68 65 69 72 20 73 79 6d 62 6f 6c 73 0a 20 20 20 heir symbols.
ab20: 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 AND
ab30: 43 49 2e 69 69 64 20 3d 20 42 58 2e 62 69 64 20 CI.iid = BX.bid
ab40: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 -- Select a
ab50: 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ll changesets.
ab60: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
ab70: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 09 C.cid = CI.cid.
ab80: 2d 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 -- containing th
ab90: 65 20 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 e subordinate br
aba0: 61 6e 63 68 65 73 0a 20 20 20 20 20 20 20 20 20 anches.
abb0: 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 AND C.type
abc0: 20 3d 20 32 09 09 2d 2d 20 77 68 69 63 68 20 61 = 2..-- which a
abd0: 72 65 20 62 72 61 6e 63 68 20 63 68 61 6e 67 65 re branch change
abe0: 73 65 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 sets. UNION..
abf0: 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 SELECT C.cid
ac00: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 .. FROM bra
ac10: 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 nch B, preferedp
ac20: 61 72 65 6e 74 20 50 2c 20 74 61 67 20 54 2c 20 arent P, tag T,
ac30: 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 csitem CI, chang
ac40: 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 eset C.. WHER
ac50: 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 E B.bid IN $the
ac60: 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 set -- Restr
ac70: 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 ict to branches
ac80: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
ac90: 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 AND B.sid =
aca0: 50 2e 70 69 64 09 2d 2d 20 47 65 74 20 73 75 62 P.pid.-- Get sub
acb0: 6f 72 64 69 6e 61 74 65 20 74 61 67 73 20 76 69 ordinate tags vi
acc0: 61 20 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 a the.. AND
acd0: 20 20 54 2e 73 69 64 20 3d 20 50 2e 73 69 64 09 T.sid = P.sid.
ace0: 2d 2d 20 70 72 65 66 65 72 65 64 20 70 61 72 65 -- prefered pare
acf0: 6e 74 73 20 6f 66 20 74 68 65 69 72 20 73 79 6d nts of their sym
ad00: 62 6f 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 bols.
ad10: 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d AND CI.iid =
ad20: 20 54 2e 74 69 64 20 20 20 20 20 20 20 2d 2d 20 T.tid --
ad30: 53 65 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 Select all chang
ad40: 65 73 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 esets.
ad50: 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d AND C.cid =
ad60: 20 43 49 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 CI.cid.-- conta
ad70: 69 6e 69 6e 67 20 74 68 65 20 73 75 62 6f 72 64 ining the subord
ad80: 69 6e 61 74 65 20 74 61 67 73 0a 20 20 20 20 20 inate tags.
ad90: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 2e AND C.
ada0: 74 79 70 65 20 3d 20 31 09 09 2d 2d 20 77 68 69 type = 1..-- whi
adb0: 63 68 20 61 72 65 20 74 61 67 20 63 68 61 6e 67 ch are tag chang
adc0: 65 73 65 74 73 0a 09 7d 5d 5d 0a 09 72 65 74 75 esets..}]]..retu
add0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 rn. }.. ty
ade0: 70 65 6d 65 74 68 6f 64 20 6c 69 6d 69 74 73 20 pemethod limits
adf0: 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 20 {branches} {..#
ae00: 4e 6f 74 65 73 2e 20 54 68 69 73 20 6d 65 74 68 Notes. This meth
ae10: 6f 64 20 65 78 69 73 74 73 20 6f 6e 6c 79 20 66 od exists only f
ae20: 6f 72 20 62 72 61 6e 63 68 65 73 2e 20 49 74 20 or branches. It
ae30: 69 73 20 6e 65 65 64 65 64 20 74 6f 0a 09 23 20 is needed to..#
ae40: 67 65 74 20 64 65 74 61 69 6c 65 64 20 69 6e 66 get detailed inf
ae50: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 ormation about a
ae60: 20 62 61 63 6b 77 61 72 64 20 62 72 61 6e 63 68 backward branch
ae70: 2e 20 49 74 20 64 6f 65 73 0a 09 23 20 6e 6f 74 . It does..# not
ae80: 20 61 70 70 6c 79 20 74 6f 20 74 61 67 73 2c 20 apply to tags,
ae90: 6e 6f 72 20 72 65 76 69 73 69 6f 6e 73 2e 20 54 nor revisions. T
aea0: 68 65 20 71 75 65 72 69 65 73 20 63 61 6e 20 61 he queries can a
aeb0: 6c 73 6f 0a 09 23 20 72 65 73 74 72 69 63 74 20 lso..# restrict
aec0: 74 68 65 6d 73 65 6c 76 65 73 20 74 6f 20 74 68 themselves to th
aed0: 65 20 72 65 76 69 73 69 6f 6e 20 73 75 63 65 73 e revision suces
aee0: 73 6f 72 73 2f 70 72 65 64 65 63 65 73 73 6f 72 sors/predecessor
aef0: 73 0a 09 23 20 6f 66 20 62 72 61 6e 63 68 65 73 s..# of branches
af00: 2c 20 61 73 20 6f 6e 6c 79 20 74 68 65 79 20 68 , as only they h
af10: 61 76 65 20 6f 72 64 65 72 69 6e 67 20 64 61 74 ave ordering dat
af20: 61 20 61 6e 64 20 74 68 75 73 20 63 61 6e 0a 09 a and thus can..
af30: 23 20 63 61 75 73 65 20 74 68 65 20 62 61 63 6b # cause the back
af40: 77 61 72 64 6e 65 73 73 2e 0a 0a 09 73 65 74 20 wardness....set
af50: 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 theset ('[join $
af60: 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d 27 branches {','}]'
af70: 29 0a 0a 09 73 65 74 20 6d 61 78 70 20 5b 73 74 )...set maxp [st
af80: 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d ate run [subst -
af90: 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 nocommands -noba
afa0: 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 ckslashes {..
afb0: 20 2d 2d 20 6d 61 78 69 6d 61 6c 20 70 72 65 64 -- maximal pred
afc0: 65 63 65 73 73 6f 72 20 70 6f 73 69 74 69 6f 6e ecessor position
afd0: 20 70 65 72 20 62 72 61 6e 63 68 0a 09 20 20 20 per branch..
afe0: 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 4d SELECT B.bid, M
aff0: 41 58 20 28 43 4f 2e 70 6f 73 29 0a 09 20 20 20 AX (CO.pos)..
b000: 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 FROM branch B
b010: 2c 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 63 73 , revision R, cs
b020: 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 item CI, changes
b030: 65 74 20 43 2c 20 63 73 6f 72 64 65 72 20 43 4f et C, csorder CO
b040: 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 .. WHERE B.b
b050: 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 id IN $theset
b060: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
b070: 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 branches of int
b080: 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 erest.. AND
b090: 20 20 42 2e 72 6f 6f 74 20 3d 20 52 2e 72 69 64 B.root = R.rid
b0a0: 20 20 20 20 20 20 20 2d 2d 20 47 65 74 20 62 72 -- Get br
b0b0: 61 6e 63 68 20 72 6f 6f 74 20 72 65 76 69 73 69 anch root revisi
b0c0: 6f 6e 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 ons.. AND
b0d0: 43 49 2e 69 69 64 20 3d 20 52 2e 72 69 64 20 20 CI.iid = R.rid
b0e0: 20 20 20 20 20 2d 2d 20 47 65 74 20 63 68 61 6e -- Get chan
b0f0: 67 65 73 65 74 73 20 63 6f 6e 74 61 69 6e 69 6e gesets containin
b100: 67 20 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 g the.. AND
b110: 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 C.cid = CI.cid
b120: 20 20 20 20 20 20 20 2d 2d 20 72 6f 6f 74 20 72 -- root r
b130: 65 76 69 73 69 6f 6e 73 2c 20 77 68 69 63 68 20 evisions, which
b140: 61 72 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 are.. AND
b150: 43 2e 74 79 70 65 20 3d 20 30 20 20 20 20 20 20 C.type = 0
b160: 20 20 20 20 20 2d 2d 20 72 65 76 69 73 69 6f 6e -- revision
b170: 20 63 68 61 6e 67 65 73 65 74 73 0a 09 20 20 20 changesets..
b180: 20 41 4e 44 20 20 20 20 43 4f 2e 63 69 64 20 3d AND CO.cid =
b190: 20 43 2e 63 69 64 20 20 20 20 20 20 20 2d 2d 20 C.cid --
b1a0: 47 65 74 20 74 68 65 69 72 20 74 6f 70 6f 6c 6f Get their topolo
b1b0: 67 69 63 61 6c 20 6f 72 64 65 72 69 6e 67 0a 09 gical ordering..
b1c0: 20 20 20 20 47 52 4f 55 50 20 42 59 20 42 2e 62 GROUP BY B.b
b1d0: 69 64 0a 09 7d 5d 5d 0a 0a 09 73 65 74 20 6d 69 id..}]]...set mi
b1e0: 6e 73 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 ns [state run [s
b1f0: 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 ubst -nocommands
b200: 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 -nobackslashes
b210: 7b 0a 09 20 20 20 20 2d 2d 20 6d 69 6e 69 6d 61 {.. -- minima
b220: 6c 20 73 75 63 63 65 73 73 6f 72 20 70 6f 73 69 l successor posi
b230: 74 69 6f 6e 20 70 65 72 20 62 72 61 6e 63 68 0a tion per branch.
b240: 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 . SELECT B.bi
b250: 64 2c 20 4d 49 4e 20 28 43 4f 2e 70 6f 73 29 0a d, MIN (CO.pos).
b260: 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e . FROM bran
b270: 63 68 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 ch B, revision R
b280: 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 , csitem CI, cha
b290: 6e 67 65 73 65 74 20 43 2c 20 63 73 6f 72 64 65 ngeset C, csorde
b2a0: 72 20 43 4f 0a 09 20 20 20 20 57 48 45 52 45 20 r CO.. WHERE
b2b0: 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 B.bid IN $these
b2c0: 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 t -- Restric
b2d0: 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 t to branches of
b2e0: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
b2f0: 4e 44 20 20 20 20 42 2e 66 69 72 73 74 20 3d 20 ND B.first =
b300: 52 2e 72 69 64 20 20 20 20 20 20 2d 2d 20 47 65 R.rid -- Ge
b310: 74 20 74 68 65 20 66 69 72 73 74 20 72 65 76 69 t the first revi
b320: 73 69 6f 6e 73 20 6f 6e 20 74 68 65 20 62 72 61 sions on the bra
b330: 6e 63 68 65 73 0a 09 20 20 20 20 41 4e 44 20 20 nches.. AND
b340: 20 20 43 49 2e 69 69 64 20 3d 20 52 2e 72 69 64 CI.iid = R.rid
b350: 20 20 20 20 20 20 20 2d 2d 20 47 65 74 20 63 68 -- Get ch
b360: 61 6e 67 65 73 65 74 73 20 63 6f 6e 74 61 69 6e angesets contain
b370: 69 6e 67 20 74 68 65 0a 09 20 20 20 20 41 4e 44 ing the.. AND
b380: 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 C.cid = CI.c
b390: 69 64 09 2d 2d 20 66 69 72 73 74 20 72 65 76 69 id.-- first revi
b3a0: 73 69 6f 6e 73 2c 20 77 68 69 63 68 20 61 72 65 sions, which are
b3b0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 .. AND C.t
b3c0: 79 70 65 20 3d 20 30 09 09 2d 2d 20 72 65 76 69 ype = 0..-- revi
b3d0: 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a sion changesets.
b3e0: 09 20 20 20 20 41 4e 44 20 20 20 20 43 4f 2e 63 . AND CO.c
b3f0: 69 64 20 3d 20 43 2e 63 69 64 09 2d 2d 20 47 65 id = C.cid.-- Ge
b400: 74 20 74 68 65 69 72 20 74 6f 70 6f 6c 6f 67 69 t their topologi
b410: 63 61 6c 20 6f 72 64 65 72 69 6e 67 0a 09 20 20 cal ordering..
b420: 20 20 47 52 4f 55 50 20 42 59 20 42 2e 62 69 64 GROUP BY B.bid
b430: 0a 09 7d 5d 5d 0a 0a 20 20 20 20 20 20 20 20 72 ..}]].. r
b440: 65 74 75 72 6e 20 5b 6c 69 73 74 20 24 6d 61 78 eturn [list $max
b450: 70 20 24 6d 69 6e 73 5d 0a 20 20 20 20 7d 0a 0a p $mins]. }..
b460: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
b470: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
b480: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
b490: 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e ## Configuration
b4a0: 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 .. pragma -ha
b4b0: 73 69 6e 73 74 61 6e 63 65 73 20 20 20 6e 6f 20 sinstances no
b4c0: 3b 20 23 20 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 ; # singleton.
b4d0: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 pragma -hastyp
b4e0: 65 69 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 23 20 einfo no ; #
b4f0: 6e 6f 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e no introspection
b500: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 . pragma -has
b510: 74 79 70 65 64 65 73 74 72 6f 79 20 6e 6f 20 3b typedestroy no ;
b520: 20 23 20 69 6d 6d 6f 72 74 61 6c 0a 7d 0a 0a 23 # immortal.}..#
b530: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
b540: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
b550: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
b560: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 0a ############.##.
b570: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
b580: 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d ::vc::fossil::im
b590: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 port::cvs::proje
b5a0: 63 74 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 ct {. namespa
b5b0: 63 65 20 65 78 70 6f 72 74 20 72 65 76 0a 20 20 ce export rev.
b5c0: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
b5d0: 20 72 65 76 20 7b 0a 09 6e 61 6d 65 73 70 61 63 rev {..namespac
b5e0: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 e import ::vc::f
b5f0: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
b600: 76 73 3a 3a 72 65 70 6f 73 69 74 6f 72 79 0a 09 vs::repository..
b610: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
b620: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
b630: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
b640: 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 e..namespace imp
b650: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ort ::vc::fossil
b660: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 ::import::cvs::i
b670: 6e 74 65 67 72 69 74 79 0a 09 6e 61 6d 65 73 70 ntegrity..namesp
b680: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
b690: 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a :tools::misc::*.
b6a0: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
b6b0: 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 t ::vc::tools::t
b6c0: 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 73 70 61 63 rouble..namespac
b6d0: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 e import ::vc::t
b6e0: 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 ools::log..log r
b6f0: 65 67 69 73 74 65 72 20 63 73 65 74 73 0a 0a 09 egister csets...
b700: 23 20 53 65 74 20 75 70 20 74 68 65 20 68 65 6c # Set up the hel
b710: 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 73 0a 09 per singletons..
b720: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 72 namespace eval r
b730: 65 76 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 ev {.. namesp
b740: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
b750: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
b760: 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 20 :cvs::state..
b770: 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 namespace impor
b780: 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a t ::vc::fossil::
b790: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 import::cvs::int
b7a0: 65 67 72 69 74 79 0a 09 7d 0a 09 6e 61 6d 65 73 egrity..}..names
b7b0: 70 61 63 65 20 65 76 61 6c 20 73 79 6d 3a 3a 74 pace eval sym::t
b7c0: 61 67 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 ag {.. namesp
b7d0: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
b7e0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
b7f0: 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 20 :cvs::state..
b800: 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 namespace impor
b810: 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a t ::vc::fossil::
b820: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 import::cvs::int
b830: 65 67 72 69 74 79 0a 09 7d 0a 09 6e 61 6d 65 73 egrity..}..names
b840: 70 61 63 65 20 65 76 61 6c 20 73 79 6d 3a 3a 62 pace eval sym::b
b850: 72 61 6e 63 68 20 7b 0a 09 20 20 20 20 6e 61 6d ranch {.. nam
b860: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
b870: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
b880: 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 rt::cvs::state..
b890: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d namespace im
b8a0: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
b8b0: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
b8c0: 69 6e 74 65 67 72 69 74 79 0a 09 7d 0a 20 20 20 integrity..}.
b8d0: 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 }.}..# # ## ###
b8e0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
b8f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 ############# ##
b900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b910: 23 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 61 ###.## Ready..pa
b920: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 ckage provide vc
b930: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
b940: 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a ::cvs::project::
b950: 72 65 76 20 31 2e 30 0a 72 65 74 75 72 6e 0a rev 1.0.return.