0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0a 23 ## -*- tcl -*-.#
0010: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
0020: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0030: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 ############.##
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 Copyright (c) 20
0060: 30 37 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 07 Andreas Kupri
0070: 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 es..#.# This sof
0080: 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73 65 tware is license
0090: 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 d as described i
00a0: 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45 4e n the file LICEN
00b0: 53 45 2c 20 77 68 69 63 68 0a 23 20 79 6f 75 20 SE, which.# you
00c0: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 should have rece
00d0: 69 76 65 64 20 61 73 20 70 61 72 74 20 6f 66 20 ived as part of
00e0: 74 68 69 73 20 64 69 73 74 72 69 62 75 74 69 6f this distributio
00f0: 6e 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 74 n..#.# This soft
0100: 77 61 72 65 20 63 6f 6e 73 69 73 74 73 20 6f 66 ware consists of
0110: 20 76 6f 6c 75 6e 74 61 72 79 20 63 6f 6e 74 72 voluntary contr
0120: 69 62 75 74 69 6f 6e 73 20 6d 61 64 65 20 62 79 ibutions made by
0130: 20 6d 61 6e 79 0a 23 20 69 6e 64 69 76 69 64 75 many.# individu
0140: 61 6c 73 2e 20 20 46 6f 72 20 65 78 61 63 74 20 als. For exact
0150: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 20 68 69 73 contribution his
0160: 74 6f 72 79 2c 20 73 65 65 20 74 68 65 20 72 65 tory, see the re
0170: 76 69 73 69 6f 6e 0a 23 20 68 69 73 74 6f 72 79 vision.# history
0180: 20 61 6e 64 20 6c 6f 67 73 2c 20 61 76 61 69 6c and logs, avail
0190: 61 62 6c 65 20 61 74 20 68 74 74 70 3a 2f 2f 66 able at http://f
01a0: 6f 73 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e ossil-scm.hwaci.
01b0: 63 6f 6d 2f 66 6f 73 73 69 6c 0a 23 20 23 20 23 com/fossil.# # #
01c0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
01d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
01e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
01f0: 23 23 23 23 23 23 23 23 0a 0a 23 23 20 52 65 76 ########..## Rev
0200: 69 73 69 6f 6e 73 20 70 65 72 20 70 72 6f 6a 65 isions per proje
0210: 63 74 2c 20 61 6b 61 20 43 68 61 6e 67 65 73 65 ct, aka Changese
0220: 74 73 2e 20 54 68 65 73 65 20 6f 62 6a 65 63 74 ts. These object
0230: 73 20 61 72 65 20 66 69 72 73 74 20 75 73 65 64 s are first used
0240: 0a 23 23 20 69 6e 20 70 61 73 73 20 35 2c 20 77 .## in pass 5, w
0250: 68 69 63 68 20 63 72 65 61 74 65 73 20 74 68 65 hich creates the
0260: 20 69 6e 69 74 69 61 6c 20 73 65 74 20 63 6f 76 initial set cov
0270: 65 72 69 6e 67 20 74 68 65 20 72 65 70 6f 73 69 ering the reposi
0280: 74 6f 72 79 2e 0a 0a 23 20 23 20 23 23 20 23 23 tory...# # ## ##
0290: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
02a0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
02b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02c0: 23 23 23 23 0a 23 23 20 52 65 71 75 69 72 65 6d ####.## Requirem
02d0: 65 6e 74 73 0a 0a 70 61 63 6b 61 67 65 20 72 65 ents..package re
02e0: 71 75 69 72 65 20 54 63 6c 20 38 2e 34 20 20 20 quire Tcl 8.4
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0300: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
0310: 52 65 71 75 69 72 65 64 20 72 75 6e 74 69 6d 65 Required runtime
0320: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0330: 65 20 73 6e 69 74 20 20 20 20 20 20 20 20 20 20 e snit
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0350: 20 20 20 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 ; # OO s
0360: 79 73 74 65 6d 2e 0a 70 61 63 6b 61 67 65 20 72 ystem..package r
0370: 65 71 75 69 72 65 20 73 74 72 75 63 74 3a 3a 73 equire struct::s
0380: 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 et
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
03a0: 20 53 65 74 20 6f 70 65 72 61 74 69 6f 6e 73 2e Set operations.
03b0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
03c0: 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 vc::tools::misc
03d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03e0: 20 20 20 20 20 20 20 3b 20 23 20 54 65 78 74 20 ; # Text
03f0: 66 6f 72 6d 61 74 74 69 6e 67 0a 70 61 63 6b 61 formatting.packa
0400: 67 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 74 ge require vc::t
0410: 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 20 20 ools::trouble
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0430: 20 3b 20 23 20 45 72 72 6f 72 20 72 65 70 6f 72 ; # Error repor
0440: 74 69 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 ting..package re
0450: 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a quire vc::tools:
0460: 3a 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 :log
0470: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
0480: 55 73 65 72 20 66 65 65 64 62 61 63 6b 2e 0a 70 User feedback..p
0490: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 ackage require v
04a0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
04b0: 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 20 20 20 t::cvs::state
04c0: 20 20 20 20 20 3b 20 23 20 53 74 61 74 65 20 73 ; # State s
04d0: 74 6f 72 61 67 65 2e 0a 70 61 63 6b 61 67 65 20 torage..package
04e0: 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 require vc::foss
04f0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
0500: 3a 69 6e 74 65 67 72 69 74 79 20 20 20 20 3b 20 :integrity ;
0510: 23 20 53 74 61 74 65 20 69 6e 74 65 67 72 69 74 # State integrit
0520: 79 20 63 68 65 63 6b 73 2e 0a 0a 23 20 23 20 23 y checks...# # #
0530: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
0540: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
0550: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0560: 23 23 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e 69 ########.##..sni
0570: 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f t::type ::vc::fo
0580: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0590: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 s::project::rev
05a0: 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 {. # # ## ###
05b0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
05c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
05d0: 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 0a ## Public API.
05e0: 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f 72 . constructor
05f0: 20 7b 70 72 6f 6a 65 63 74 20 63 73 74 79 70 65 {project cstype
0600: 20 73 72 63 69 64 20 69 74 65 6d 73 20 7b 74 68 srcid items {th
0610: 65 69 64 20 7b 7d 7d 7d 20 7b 0a 09 69 66 20 7b eid {}}} {..if {
0620: 24 74 68 65 69 64 20 6e 65 20 22 22 7d 20 7b 0a $theid ne ""} {.
0630: 09 20 20 20 20 73 65 74 20 6d 79 69 64 20 24 74 . set myid $t
0640: 68 65 69 64 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 heid..} else {..
0650: 20 20 20 20 73 65 74 20 6d 79 69 64 20 5b 69 6e set myid [in
0660: 63 72 20 6d 79 63 6f 75 6e 74 65 72 5d 0a 09 7d cr mycounter]..}
0670: 0a 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 ...integrity ass
0680: 65 72 74 20 7b 0a 09 20 20 20 20 5b 69 6e 66 6f ert {.. [info
0690: 20 65 78 69 73 74 73 20 6d 79 63 73 74 79 70 65 exists mycstype
06a0: 28 24 63 73 74 79 70 65 29 5d 0a 09 7d 20 7b 42 ($cstype)]..} {B
06b0: 61 64 20 63 68 61 6e 67 65 73 65 74 20 74 79 70 ad changeset typ
06c0: 65 20 27 24 63 73 74 79 70 65 27 2e 7d 0a 0a 09 e '$cstype'.}...
06d0: 73 65 74 20 6d 79 70 72 6f 6a 65 63 74 20 20 20 set myproject
06e0: 24 70 72 6f 6a 65 63 74 0a 09 73 65 74 20 6d 79 $project..set my
06f0: 74 79 70 65 20 20 20 20 20 20 24 63 73 74 79 70 type $cstyp
0700: 65 0a 09 73 65 74 20 6d 79 74 79 70 65 6f 62 6a e..set mytypeobj
0710: 20 20 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a ::vc::fossil:
0720: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 :import::cvs::pr
0730: 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 24 7b 63 73 oject::rev::${cs
0740: 74 79 70 65 7d 0a 09 73 65 74 20 6d 79 73 72 63 type}..set mysrc
0750: 69 64 09 24 73 72 63 69 64 0a 09 73 65 74 20 6d id.$srcid..set m
0760: 79 69 74 65 6d 73 20 20 20 20 20 24 69 74 65 6d yitems $item
0770: 73 0a 09 73 65 74 20 6d 79 70 6f 73 20 20 20 20 s..set mypos
0780: 20 20 20 7b 7d 20 3b 20 23 20 43 6f 6d 6d 69 74 {} ; # Commit
0790: 20 6c 6f 63 61 74 69 6f 6e 20 69 73 20 6e 6f 74 location is not
07a0: 20 6b 6e 6f 77 6e 20 79 65 74 2e 0a 0a 09 23 20 known yet....#
07b0: 4b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 74 68 Keep track of th
07c0: 65 20 67 65 6e 65 72 61 74 65 64 20 63 68 61 6e e generated chan
07d0: 67 65 73 65 74 73 20 61 6e 64 20 6f 66 20 74 68 gesets and of th
07e0: 65 20 69 6e 76 65 72 73 65 0a 09 23 20 6d 61 70 e inverse..# map
07f0: 70 69 6e 67 20 66 72 6f 6d 20 69 74 65 6d 73 20 ping from items
0800: 74 6f 20 74 68 65 6d 2e 0a 09 6c 61 70 70 65 6e to them...lappen
0810: 64 20 6d 79 63 68 61 6e 67 65 73 65 74 73 20 20 d mychangesets
0820: 20 24 73 65 6c 66 0a 09 6c 61 70 70 65 6e 64 20 $self..lappend
0830: 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 24 63 mytchangesets($c
0840: 73 74 79 70 65 29 20 24 73 65 6c 66 0a 09 73 65 stype) $self..se
0850: 74 20 20 20 20 20 6d 79 69 64 6d 61 70 28 24 6d t myidmap($m
0860: 79 69 64 29 20 24 73 65 6c 66 0a 09 66 6f 72 65 yid) $self..fore
0870: 61 63 68 20 69 69 64 20 24 69 74 65 6d 73 20 7b ach iid $items {
0880: 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c .. set key [l
0890: 69 73 74 20 24 63 73 74 79 70 65 20 24 69 69 64 ist $cstype $iid
08a0: 5d 0a 09 20 20 20 20 73 65 74 20 6d 79 69 74 65 ].. set myite
08b0: 6d 6d 61 70 28 24 6b 65 79 29 20 24 73 65 6c 66 mmap($key) $self
08c0: 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 .. lappend my
08d0: 74 69 74 65 6d 73 20 24 6b 65 79 0a 09 20 20 20 titems $key..
08e0: 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 log write 8 cse
08f0: 74 73 20 7b 4d 41 50 2b 20 69 74 65 6d 20 3c 24 ts {MAP+ item <$
0900: 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b 24 73 key> $self = [$s
0910: 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 09 72 65 elf str]}..}..re
0920: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
0930: 6d 65 74 68 6f 64 20 73 74 72 20 7b 7d 20 7b 0a method str {} {.
0940: 09 73 65 74 20 73 74 72 20 20 20 20 22 3c 22 0a .set str "<".
0950: 09 73 65 74 20 64 65 74 61 69 6c 20 22 22 0a 09 .set detail ""..
0960: 69 66 20 7b 5b 24 6d 79 74 79 70 65 6f 62 6a 20 if {[$mytypeobj
0970: 62 79 73 79 6d 62 6f 6c 5d 7d 20 7b 0a 09 20 20 bysymbol]} {..
0980: 20 20 73 65 74 20 64 65 74 61 69 6c 20 22 20 27 set detail " '
0990: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 0a 09 09 53 [state one {...S
09a0: 45 4c 45 43 54 20 53 2e 6e 61 6d 65 0a 09 09 46 ELECT S.name...F
09b0: 52 4f 4d 20 20 20 73 79 6d 62 6f 6c 20 53 0a 09 ROM symbol S..
09c0: 09 57 48 45 52 45 20 20 53 2e 73 69 64 20 3d 20 .WHERE S.sid =
09d0: 24 6d 79 73 72 63 69 64 0a 09 20 20 20 20 7d 5d $mysrcid.. }]
09e0: 27 22 0a 09 7d 0a 09 61 70 70 65 6e 64 20 73 74 '"..}..append st
09f0: 72 20 22 24 6d 79 74 79 70 65 20 24 7b 6d 79 69 r "$mytype ${myi
0a00: 64 7d 24 7b 64 65 74 61 69 6c 7d 3e 22 0a 09 72 d}${detail}>"..r
0a10: 65 74 75 72 6e 20 24 73 74 72 0a 20 20 20 20 7d eturn $str. }
0a20: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 64 20 .. method id
0a30: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 {} { return $
0a40: 6d 79 69 64 20 7d 0a 20 20 20 20 6d 65 74 68 6f myid }. metho
0a50: 64 20 69 74 65 6d 73 20 7b 7d 20 7b 20 72 65 74 d items {} { ret
0a60: 75 72 6e 20 24 6d 79 74 69 74 65 6d 73 20 7d 0a urn $mytitems }.
0a70: 20 20 20 20 6d 65 74 68 6f 64 20 64 61 74 61 20 method data
0a80: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c 69 {} { return [li
0a90: 73 74 20 24 6d 79 70 72 6f 6a 65 63 74 20 24 6d st $myproject $m
0aa0: 79 74 79 70 65 20 24 6d 79 73 72 63 69 64 5d 20 ytype $mysrcid]
0ab0: 7d 0a 0a 20 20 20 20 64 65 6c 65 67 61 74 65 20 }.. delegate
0ac0: 6d 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c 20 method bysymbol
0ad0: 20 20 74 6f 20 6d 79 74 79 70 65 6f 62 6a 0a 20 to mytypeobj.
0ae0: 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74 68 delegate meth
0af0: 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 74 6f od byrevision to
0b00: 20 6d 79 74 79 70 65 6f 62 6a 0a 20 20 20 20 64 mytypeobj. d
0b10: 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 69 elegate method i
0b20: 73 62 72 61 6e 63 68 20 20 20 74 6f 20 6d 79 74 sbranch to myt
0b30: 79 70 65 6f 62 6a 0a 20 20 20 20 64 65 6c 65 67 ypeobj. deleg
0b40: 61 74 65 20 6d 65 74 68 6f 64 20 69 73 74 61 67 ate method istag
0b50: 20 20 20 20 20 20 74 6f 20 6d 79 74 79 70 65 6f to mytypeo
0b60: 62 6a 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 bj.. method s
0b70: 65 74 70 6f 73 20 7b 70 7d 20 7b 20 73 65 74 20 etpos {p} { set
0b80: 6d 79 70 6f 73 20 24 70 20 3b 20 72 65 74 75 72 mypos $p ; retur
0b90: 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 n }. method p
0ba0: 6f 73 20 20 20 20 7b 7d 20 20 7b 20 72 65 74 75 os {} { retu
0bb0: 72 6e 20 24 6d 79 70 6f 73 20 7d 0a 0a 20 20 20 rn $mypos }..
0bc0: 20 6d 65 74 68 6f 64 20 64 65 74 65 72 6d 69 6e method determin
0bd0: 65 73 75 63 63 65 73 73 6f 72 73 20 7b 7d 20 7b esuccessors {} {
0be0: 0a 09 23 20 50 61 73 73 20 36 20 6f 70 65 72 61 ..# Pass 6 opera
0bf0: 74 69 6f 6e 2e 20 43 6f 6d 70 75 74 65 20 70 72 tion. Compute pr
0c00: 6f 6a 65 63 74 2d 6c 65 76 65 6c 20 64 65 70 65 oject-level depe
0c10: 6e 64 65 6e 63 69 65 73 20 66 72 6f 6d 0a 09 23 ndencies from..#
0c20: 20 74 68 65 20 66 69 6c 65 2d 6c 65 76 65 6c 20 the file-level
0c30: 64 61 74 61 20 61 6e 64 20 73 61 76 65 20 69 74 data and save it
0c40: 20 62 61 63 6b 20 74 6f 20 74 68 65 20 73 74 61 back to the sta
0c50: 74 65 2e 20 54 68 69 73 20 6d 61 79 0a 09 23 20 te. This may..#
0c60: 62 65 20 63 61 6c 6c 65 64 20 64 75 72 69 6e 67 be called during
0c70: 20 74 68 65 20 63 79 63 6c 65 20 62 72 65 61 6b the cycle break
0c80: 65 72 20 70 61 73 73 65 73 20 61 73 20 77 65 6c er passes as wel
0c90: 6c 2c 20 74 6f 20 61 64 6a 75 73 74 0a 09 23 20 l, to adjust..#
0ca0: 74 68 65 20 73 75 63 63 65 73 73 6f 72 20 69 6e the successor in
0cb0: 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 20 63 68 61 formation of cha
0cc0: 6e 67 65 73 65 74 73 20 77 68 69 63 68 20 61 72 ngesets which ar
0cd0: 65 20 74 68 65 0a 09 23 20 70 72 65 64 65 63 65 e the..# predece
0ce0: 73 73 6f 72 73 20 6f 66 20 64 72 6f 70 70 65 64 ssors of dropped
0cf0: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 46 6f 72 changesets. For
0d00: 20 74 68 65 6d 20 77 65 20 68 61 76 65 20 74 6f them we have to
0d10: 0a 09 23 20 72 65 6d 6f 76 65 20 74 68 65 69 72 ..# remove their
0d20: 20 65 78 69 73 74 69 6e 67 20 69 6e 66 6f 72 6d existing inform
0d30: 61 74 69 6f 6e 20 66 69 72 73 74 20 62 65 66 6f ation first befo
0d40: 72 65 20 69 6e 73 65 72 74 69 6e 67 20 74 68 65 re inserting the
0d50: 0a 09 23 20 6e 65 77 20 64 61 74 61 2e 0a 09 73 ..# new data...s
0d60: 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 tate run {..
0d70: 44 45 4c 45 54 45 20 46 52 4f 4d 20 63 73 73 75 DELETE FROM cssu
0d80: 63 63 65 73 73 6f 72 20 57 48 45 52 45 20 63 69 ccessor WHERE ci
0d90: 64 20 3d 20 24 6d 79 69 64 3b 0a 09 7d 0a 09 73 d = $myid;..}..s
0da0: 65 74 20 6c 6f 6f 70 20 30 0a 09 66 6f 72 65 61 et loop 0..forea
0db0: 63 68 20 6e 69 64 20 5b 24 6d 79 74 79 70 65 6f ch nid [$mytypeo
0dc0: 62 6a 20 63 73 5f 73 75 63 63 65 73 73 6f 72 73 bj cs_successors
0dd0: 20 24 6d 79 69 74 65 6d 73 5d 20 7b 0a 09 20 20 $myitems] {..
0de0: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
0df0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 73 73 75 INSERT INTO cssu
0e00: 63 63 65 73 73 6f 72 20 28 63 69 64 2c 20 20 6e ccessor (cid, n
0e10: 69 64 29 0a 09 09 56 41 4c 55 45 53 20 20 20 20 id)...VALUES
0e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 ($
0e30: 6d 79 69 64 2c 24 6e 69 64 29 0a 09 20 20 20 20 myid,$nid)..
0e40: 7d 0a 09 20 20 20 20 69 66 20 7b 24 6e 69 64 20 }.. if {$nid
0e50: 3d 3d 20 24 6d 79 69 64 7d 20 7b 20 73 65 74 20 == $myid} { set
0e60: 6c 6f 6f 70 20 31 20 7d 0a 09 7d 0a 09 23 20 52 loop 1 }..}..# R
0e70: 65 70 6f 72 74 20 61 66 74 65 72 20 74 68 65 20 eport after the
0e80: 63 6f 6d 70 6c 65 74 65 20 73 74 72 75 63 74 75 complete structu
0e90: 72 65 20 68 61 73 20 62 65 65 6e 20 73 61 76 65 re has been save
0ea0: 64 2e 0a 09 69 66 20 7b 24 6c 6f 6f 70 7d 20 7b d...if {$loop} {
0eb0: 20 24 73 65 6c 66 20 72 65 70 6f 72 74 6c 6f 6f $self reportloo
0ec0: 70 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 p }..return.
0ed0: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
0ee0: 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 65 = list (changese
0ef0: 74 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 75 t). method su
0f00: 63 63 65 73 73 6f 72 73 20 7b 7d 20 7b 0a 09 23 ccessors {} {..#
0f10: 20 55 73 65 20 74 68 65 20 64 61 74 61 20 73 61 Use the data sa
0f20: 76 65 64 20 62 79 20 70 61 73 73 20 36 2e 0a 09 ved by pass 6...
0f30: 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 3a 3a return [struct::
0f40: 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 74 65 20 list map [state
0f50: 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 run {.. SELEC
0f60: 54 20 53 2e 6e 69 64 0a 09 20 20 20 20 46 52 4f T S.nid.. FRO
0f70: 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 20 M cssuccessor
0f80: 53 0a 09 20 20 20 20 57 48 45 52 45 20 20 53 2e S.. WHERE S.
0f90: 63 69 64 20 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 cid = $myid..}]
0fa0: 5b 6d 79 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 [mytypemethod of
0fb0: 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 ]]. }.. #
0fc0: 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 item -> list (it
0fd0: 65 6d 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 6e em). method n
0fe0: 65 78 74 6d 61 70 20 7b 7d 20 7b 0a 09 24 6d 79 extmap {} {..$my
0ff0: 74 79 70 65 6f 62 6a 20 73 75 63 63 65 73 73 6f typeobj successo
1000: 72 73 20 74 6d 70 20 24 6d 79 69 74 65 6d 73 0a rs tmp $myitems.
1010: 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 .return [array g
1020: 65 74 20 74 6d 70 5d 0a 20 20 20 20 7d 0a 0a 20 et tmp]. }..
1030: 20 20 20 6d 65 74 68 6f 64 20 62 72 65 61 6b 69 method breaki
1040: 6e 74 65 72 6e 61 6c 64 65 70 65 6e 64 65 6e 63 nternaldependenc
1050: 69 65 73 20 7b 7d 20 7b 0a 0a 09 23 23 0a 09 23 ies {} {...##..#
1060: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 6d 65 74 # NOTE: This met
1070: 68 6f 64 2c 20 6d 61 79 62 65 20 69 6e 20 63 6f hod, maybe in co
1080: 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 69 njunction with i
1090: 74 73 20 63 61 6c 6c 65 72 0a 09 23 23 20 20 20 ts caller..##
10a0: 20 20 20 20 73 65 65 6d 73 20 74 6f 20 62 65 20 seems to be
10b0: 61 20 6d 65 6d 6f 72 79 20 68 6f 67 2c 20 65 73 a memory hog, es
10c0: 70 65 63 69 61 6c 6c 79 20 66 6f 72 20 6c 61 72 pecially for lar
10d0: 67 65 0a 09 23 23 20 20 20 20 20 20 20 63 68 61 ge..## cha
10e0: 6e 67 65 73 65 74 73 2c 20 77 69 74 68 20 27 6c ngesets, with 'l
10f0: 61 72 67 65 27 20 6d 65 61 6e 69 6e 67 20 74 6f arge' meaning to
1100: 20 68 61 76 65 20 61 20 27 6c 6f 6e 67 20 6c 69 have a 'long li
1110: 73 74 0a 09 23 23 20 20 20 20 20 20 20 6f 66 20 st..## of
1120: 69 74 65 6d 73 2c 20 73 65 76 65 72 61 6c 20 74 items, several t
1130: 68 6f 75 73 61 6e 64 27 2e 20 49 6e 76 65 73 74 housand'. Invest
1140: 69 67 61 74 65 20 77 68 65 72 65 20 74 68 65 0a igate where the.
1150: 09 23 23 20 20 20 20 20 20 20 6d 65 6d 6f 72 79 .## memory
1160: 20 69 73 20 73 70 65 6e 74 20 61 6e 64 20 74 68 is spent and th
1170: 65 6e 20 6c 6f 6f 6b 20 66 6f 72 20 77 61 79 73 en look for ways
1180: 20 6f 66 20 72 65 63 74 69 66 79 69 6e 67 0a 09 of rectifying..
1190: 23 23 20 20 20 20 20 20 20 74 68 65 20 70 72 6f ## the pro
11a0: 62 6c 65 6d 2e 0a 09 23 23 0a 0a 09 23 20 54 68 blem...##...# Th
11b0: 69 73 20 6d 65 74 68 6f 64 20 69 6e 73 70 65 63 is method inspec
11c0: 74 73 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 ts the changeset
11d0: 73 20 66 6f 72 20 69 6e 74 65 72 6e 61 6c 0a 09 s for internal..
11e0: 23 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 20 # dependencies.
11f0: 4e 6f 74 68 69 6e 67 20 69 73 20 64 6f 6e 65 20 Nothing is done
1200: 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 0a if there are no.
1210: 09 23 20 73 75 63 68 2e 20 4f 74 68 65 72 77 69 .# such. Otherwi
1220: 73 65 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 se the changeset
1230: 20 69 73 20 73 70 6c 69 74 20 69 6e 74 6f 20 61 is split into a
1240: 20 73 65 74 20 6f 66 0a 09 23 20 66 72 61 67 6d set of..# fragm
1250: 65 6e 74 73 20 77 69 74 68 6f 75 74 20 69 6e 74 ents without int
1260: 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 ernal dependenci
1270: 65 73 2c 20 74 72 61 6e 73 66 6f 72 6d 69 6e 67 es, transforming
1280: 20 74 68 65 0a 09 23 20 69 6e 74 65 72 6e 61 6c the..# internal
1290: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 69 6e dependencies in
12a0: 74 6f 20 65 78 74 65 72 6e 61 6c 20 6f 6e 65 73 to external ones
12b0: 2e 20 54 68 65 20 6e 65 77 20 63 68 61 6e 67 65 . The new change
12c0: 73 65 74 73 0a 09 23 20 61 72 65 20 61 64 64 65 sets..# are adde
12d0: 64 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 d to the list of
12e0: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 2e all changesets.
12f0: 0a 0a 09 23 20 57 65 20 70 65 72 66 6f 72 6d 20 ...# We perform
1300: 61 6c 6c 20 6e 65 63 65 73 73 61 72 79 20 73 70 all necessary sp
1310: 6c 69 74 73 20 69 6e 20 6f 6e 65 20 67 6f 2c 20 lits in one go,
1320: 69 6e 73 74 65 61 64 20 6f 66 20 6f 6e 6c 79 0a instead of only.
1330: 09 23 20 6f 6e 65 2e 20 54 68 65 20 70 72 65 76 .# one. The prev
1340: 69 6f 75 73 20 61 6c 67 6f 72 69 74 68 6d 2c 20 ious algorithm,
1350: 61 64 61 70 74 65 64 20 66 72 6f 6d 20 63 76 73 adapted from cvs
1360: 32 73 76 6e 2c 20 63 6f 6d 70 75 74 65 64 0a 09 2svn, computed..
1370: 23 20 61 20 6c 6f 74 20 6f 66 20 73 74 61 74 65 # a lot of state
1380: 20 77 68 69 63 68 20 77 61 73 20 74 68 72 6f 77 which was throw
1390: 6e 20 61 77 61 79 20 61 6e 64 20 74 68 65 6e 20 n away and then
13a0: 63 6f 6d 70 75 74 65 64 20 61 67 61 69 6e 0a 09 computed again..
13b0: 23 20 66 6f 72 20 65 61 63 68 20 6f 66 20 74 68 # for each of th
13c0: 65 20 66 72 61 67 6d 65 6e 74 73 2e 20 49 74 20 e fragments. It
13d0: 73 68 6f 75 6c 64 20 62 65 20 65 61 73 69 65 72 should be easier
13e0: 20 74 6f 20 75 70 64 61 74 65 20 61 6e 64 0a 09 to update and..
13f0: 23 20 72 65 75 73 65 20 74 68 61 74 20 73 74 61 # reuse that sta
1400: 74 65 2e 0a 0a 09 23 20 54 68 65 20 63 6f 64 65 te....# The code
1410: 20 63 68 65 63 6b 73 20 6f 6e 6c 79 20 73 75 63 checks only suc
1420: 63 65 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 cessor dependenc
1430: 69 65 73 2c 20 61 73 20 74 68 69 73 0a 09 23 20 ies, as this..#
1440: 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6f automatically co
1450: 76 65 72 73 20 74 68 65 20 70 72 65 64 65 63 65 vers the predece
1460: 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 69 65 ssor dependencie
1470: 73 20 61 73 20 77 65 6c 6c 20 28 41 0a 09 23 20 s as well (A..#
1480: 73 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e 64 successor depend
1490: 65 6e 63 79 20 61 20 2d 3e 20 62 20 69 73 20 61 ency a -> b is a
14a0: 6c 73 6f 20 61 20 70 72 65 64 65 63 65 73 73 6f lso a predecesso
14b0: 72 20 64 65 70 65 6e 64 65 6e 63 79 0a 09 23 20 r dependency..#
14c0: 62 20 2d 3e 20 61 29 2e 0a 0a 09 23 20 41 72 72 b -> a)....# Arr
14d0: 61 79 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 ay of dependenci
14e0: 65 73 20 28 70 61 72 65 6e 74 20 2d 3e 20 63 68 es (parent -> ch
14f0: 69 6c 64 29 2e 20 54 68 69 73 20 69 73 20 70 75 ild). This is pu
1500: 6c 6c 65 64 20 66 72 6f 6d 0a 09 23 20 74 68 65 lled from..# the
1510: 20 73 74 61 74 65 2c 20 61 6e 64 20 6c 69 6d 69 state, and limi
1520: 74 65 64 20 74 6f 20 73 75 63 63 65 73 73 6f 72 ted to successor
1530: 73 20 77 69 74 68 69 6e 20 74 68 65 20 63 68 61 s within the cha
1540: 6e 67 65 73 65 74 2e 0a 0a 09 61 72 72 61 79 20 ngeset....array
1550: 73 65 74 20 64 65 70 65 6e 64 65 6e 63 69 65 73 set dependencies
1560: 20 7b 7d 0a 09 24 6d 79 74 79 70 65 6f 62 6a 20 {}..$mytypeobj
1570: 69 6e 74 65 72 6e 61 6c 73 75 63 63 65 73 73 6f internalsuccesso
1580: 72 73 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 rs dependencies
1590: 24 6d 79 69 74 65 6d 73 0a 09 69 66 20 7b 21 5b $myitems..if {![
15a0: 61 72 72 61 79 20 73 69 7a 65 20 64 65 70 65 6e array size depen
15b0: 64 65 6e 63 69 65 73 5d 7d 20 7b 72 65 74 75 72 dencies]} {retur
15c0: 6e 20 30 7d 20 3b 20 23 20 4e 6f 74 68 69 6e 67 n 0} ; # Nothing
15d0: 20 74 6f 20 62 72 65 61 6b 2e 0a 0a 09 6c 6f 67 to break....log
15e0: 20 77 72 69 74 65 20 35 20 63 73 65 74 73 20 2e write 5 csets .
15f0: 2e 2e 5b 24 73 65 6c 66 20 73 74 72 5d 2e 2e 2e ..[$self str]...
1600: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1610: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1620: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1630: 2e 2e 2e 2e 0a 0a 09 23 20 57 65 20 68 61 76 65 .......# We have
1640: 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 internal depend
1650: 65 6e 63 69 65 73 20 74 6f 20 62 72 65 61 6b 2e encies to break.
1660: 20 57 65 20 6e 6f 77 20 69 74 65 72 61 74 65 20 We now iterate
1670: 6f 76 65 72 0a 09 23 20 61 6c 6c 20 70 6f 73 69 over..# all posi
1680: 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 6c 69 73 tions in the lis
1690: 74 20 28 77 68 69 63 68 20 69 73 20 63 68 72 6f t (which is chro
16a0: 6e 6f 6c 6f 67 69 63 61 6c 2c 20 61 74 20 6c 65 nological, at le
16b0: 61 73 74 0a 09 23 20 61 73 20 66 61 72 20 61 73 ast..# as far as
16c0: 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 20 the timestamps
16d0: 61 72 65 20 63 6f 72 72 65 63 74 20 61 6e 64 20 are correct and
16e0: 75 6e 69 71 75 65 29 20 61 6e 64 0a 09 23 20 64 unique) and..# d
16f0: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 62 65 73 etermine the bes
1700: 74 20 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 74 t position for t
1710: 68 65 20 62 72 65 61 6b 2c 20 62 79 20 74 72 79 he break, by try
1720: 69 6e 67 20 74 6f 0a 09 23 20 62 72 65 61 6b 20 ing to..# break
1730: 61 73 20 6d 61 6e 79 20 64 65 70 65 6e 64 65 6e as many dependen
1740: 63 69 65 73 20 61 73 20 70 6f 73 73 69 62 6c 65 cies as possible
1750: 20 69 6e 20 6f 6e 65 20 67 6f 2e 20 57 68 65 6e in one go. When
1760: 20 61 0a 09 23 20 62 72 65 61 6b 20 77 61 73 20 a..# break was
1770: 66 6f 75 6e 64 20 74 68 69 73 20 69 73 20 72 65 found this is re
1780: 64 6f 6e 65 20 66 6f 72 20 74 68 65 20 66 72 61 done for the fra
1790: 67 6d 65 6e 74 73 20 63 6f 6d 69 6e 67 20 61 6e gments coming an
17a0: 64 0a 09 23 20 61 66 74 65 72 2c 20 61 66 74 65 d..# after, afte
17b0: 72 20 75 70 64 69 6e 67 20 74 68 65 20 63 72 6f r upding the cro
17c0: 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f ssing informatio
17d0: 6e 2e 0a 0a 09 23 20 44 61 74 61 20 73 74 72 75 n....# Data stru
17e0: 63 74 75 72 65 73 3a 0a 09 23 20 4d 61 70 3a 20 ctures:..# Map:
17f0: 20 50 4f 53 20 20 20 72 65 76 69 73 69 6f 6e 20 POS revision
1800: 69 64 20 20 20 20 20 20 2d 3e 20 70 6f 73 69 74 id -> posit
1810: 69 6f 6e 20 69 6e 20 6c 69 73 74 2e 0a 09 23 20 ion in list...#
1820: 20 20 20 20 20 20 43 52 4f 53 53 20 70 6f 73 69 CROSS posi
1830: 74 69 6f 6e 20 69 6e 20 6c 69 73 74 20 2d 3e 20 tion in list ->
1840: 6e 75 6d 62 65 72 20 6f 66 20 64 65 70 65 6e 64 number of depend
1850: 65 6e 63 69 65 73 20 63 72 6f 73 73 69 6e 67 20 encies crossing
1860: 69 74 0a 09 23 20 20 20 20 20 20 20 44 45 50 43 it..# DEPC
1870: 20 20 64 65 70 65 6e 64 65 6e 63 79 20 20 20 20 dependency
1880: 20 20 20 2d 3e 20 70 6f 73 69 74 69 6f 6e 73 20 -> positions
1890: 69 74 20 63 72 6f 73 73 65 73 0a 09 23 20 4c 69 it crosses..# Li
18a0: 73 74 3a 20 52 41 4e 47 45 20 4f 66 20 74 68 65 st: RANGE Of the
18b0: 20 70 6f 73 69 74 69 6f 6e 73 20 69 74 73 65 6c positions itsel
18c0: 66 2e 0a 09 23 20 41 20 64 65 70 65 6e 64 65 6e f...# A dependen
18d0: 63 79 20 69 73 20 61 20 73 69 6e 67 6c 65 2d 65 cy is a single-e
18e0: 6c 65 6d 65 6e 74 20 6d 61 70 20 70 61 72 65 6e lement map paren
18f0: 74 20 2d 3e 20 63 68 69 6c 64 0a 0a 09 49 6e 69 t -> child...Ini
1900: 74 69 61 6c 69 7a 65 42 72 65 61 6b 53 74 61 74 tializeBreakStat
1910: 65 20 24 6d 79 69 74 65 6d 73 0a 0a 09 73 65 74 e $myitems...set
1920: 20 66 72 61 67 6d 65 6e 74 73 20 7b 7d 0a 09 73 fragments {}..s
1930: 65 74 20 6e 65 77 20 20 20 20 20 20 20 5b 6c 69 et new [li
1940: 73 74 20 24 72 61 6e 67 65 5d 0a 09 61 72 72 61 st $range]..arra
1950: 79 20 73 65 74 20 62 72 65 61 6b 73 20 7b 7d 0a y set breaks {}.
1960: 0a 09 23 20 49 6e 73 74 65 61 64 20 6f 66 20 6f ..# Instead of o
1970: 6e 65 20 6c 69 73 74 20 68 6f 6c 64 69 6e 67 20 ne list holding
1980: 62 6f 74 68 20 70 72 6f 63 65 73 73 65 64 20 61 both processed a
1990: 6e 64 20 70 65 6e 64 69 6e 67 0a 09 23 20 66 72 nd pending..# fr
19a0: 61 67 6d 65 6e 74 73 20 77 65 20 75 73 65 20 74 agments we use t
19b0: 77 6f 2c 20 6f 6e 65 20 66 6f 72 20 74 68 65 20 wo, one for the
19c0: 66 72 61 6d 65 6e 74 73 20 74 6f 20 70 72 6f 63 framents to proc
19d0: 65 73 73 2c 20 6f 6e 65 0a 09 23 20 74 6f 20 68 ess, one..# to h
19e0: 6f 6c 64 20 74 68 65 20 6e 65 77 20 66 72 61 67 old the new frag
19f0: 6d 65 6e 74 73 2c 20 61 6e 64 20 74 68 65 20 6c ments, and the l
1a00: 61 74 74 65 72 20 69 73 20 63 6f 70 69 65 64 20 atter is copied
1a10: 74 6f 20 74 68 65 0a 09 23 20 66 6f 72 6d 65 72 to the..# former
1a20: 20 77 68 65 6e 20 74 68 65 79 20 72 75 6e 20 6f when they run o
1a30: 75 74 2e 20 54 68 69 73 20 6b 65 65 70 73 20 74 ut. This keeps t
1a40: 68 65 20 6c 69 73 74 20 6f 66 20 70 65 6e 64 69 he list of pendi
1a50: 6e 67 0a 09 23 20 66 72 61 67 6d 65 6e 74 73 20 ng..# fragments
1a60: 73 68 6f 72 74 20 77 69 74 68 6f 75 74 20 73 61 short without sa
1a70: 63 72 69 66 69 63 69 6e 67 20 73 70 65 65 64 20 crificing speed
1a80: 62 79 20 73 68 69 66 74 69 6e 67 20 73 74 75 66 by shifting stuf
1a90: 66 0a 09 23 20 64 6f 77 6e 2e 20 57 65 20 65 73 f..# down. We es
1aa0: 70 65 63 69 61 6c 6c 79 20 64 72 6f 70 20 74 68 pecially drop th
1ab0: 65 20 6d 65 6d 6f 72 79 20 6f 66 20 66 72 61 67 e memory of frag
1ac0: 6d 65 6e 74 73 20 62 72 6f 6b 65 6e 0a 09 23 20 ments broken..#
1ad0: 64 75 72 69 6e 67 20 70 72 6f 63 65 73 73 69 6e during processin
1ae0: 67 20 61 66 74 65 72 20 61 20 73 68 6f 72 74 20 g after a short
1af0: 74 69 6d 65 2c 20 69 6e 73 74 65 61 64 20 6f 66 time, instead of
1b00: 20 6c 65 74 74 69 6e 67 20 69 74 0a 09 23 20 63 letting it..# c
1b10: 6f 6e 73 75 6d 65 20 6d 65 6d 6f 72 79 2e 0a 0a onsume memory...
1b20: 09 77 68 69 6c 65 20 7b 5b 6c 6c 65 6e 67 74 68 .while {[llength
1b30: 20 24 6e 65 77 5d 7d 20 7b 0a 0a 09 20 20 20 20 $new]} {...
1b40: 73 65 74 20 70 65 6e 64 69 6e 67 20 24 6e 65 77 set pending $new
1b50: 0a 09 20 20 20 20 73 65 74 20 6e 65 77 20 20 20 .. set new
1b60: 20 20 7b 7d 0a 09 20 20 20 20 73 65 74 20 61 74 {}.. set at
1b70: 20 20 20 20 20 20 30 0a 0a 09 20 20 20 20 77 68 0... wh
1b80: 69 6c 65 20 7b 24 61 74 20 3c 20 5b 6c 6c 65 6e ile {$at < [llen
1b90: 67 74 68 20 24 70 65 6e 64 69 6e 67 5d 7d 20 7b gth $pending]} {
1ba0: 0a 09 09 73 65 74 20 63 75 72 72 65 6e 74 20 5b ...set current [
1bb0: 6c 69 6e 64 65 78 20 24 70 65 6e 64 69 6e 67 20 lindex $pending
1bc0: 24 61 74 5d 0a 0a 09 09 6c 6f 67 20 77 72 69 74 $at]....log writ
1bd0: 65 20 36 20 63 73 65 74 73 20 7b 2e 20 2e 20 2e e 6 csets {. . .
1be0: 2e 20 2e 2e 2e 20 2e 2e 2e 2e 2e 20 2e 2e 2e 2e . ... ..... ....
1bf0: 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e .... ...........
1c00: 2e 2e 7d 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 ..}...log write
1c10: 36 20 63 73 65 74 73 20 7b 53 63 68 65 64 75 6c 6 csets {Schedul
1c20: 65 64 20 20 20 5b 6a 6f 69 6e 20 5b 50 52 73 20 ed [join [PRs
1c30: 5b 6c 72 61 6e 67 65 20 24 70 65 6e 64 69 6e 67 [lrange $pending
1c40: 20 24 61 74 20 65 6e 64 5d 5d 20 7b 20 7d 5d 7d $at end]] { }]}
1c50: 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 36 20 63 ...log write 6 c
1c60: 73 65 74 73 20 7b 43 6f 6e 73 69 64 65 72 69 6e sets {Considerin
1c70: 67 20 5b 50 52 20 24 63 75 72 72 65 6e 74 5d 20 g [PR $current]
1c80: 5c 5b 24 61 74 2f 5b 6c 6c 65 6e 67 74 68 20 24 \[$at/[llength $
1c90: 70 65 6e 64 69 6e 67 5d 5c 5d 7d 0a 0a 09 09 73 pending]\]}....s
1ca0: 65 74 20 62 65 73 74 20 5b 46 69 6e 64 42 65 73 et best [FindBes
1cb0: 74 42 72 65 61 6b 20 24 63 75 72 72 65 6e 74 5d tBreak $current]
1cc0: 0a 0a 09 09 69 66 20 7b 24 62 65 73 74 20 3c 20 ....if {$best <
1cd0: 30 7d 20 7b 0a 09 09 20 20 20 20 23 20 54 68 65 0} {... # The
1ce0: 20 69 6e 73 70 65 63 74 65 64 20 72 61 6e 67 65 inspected range
1cf0: 20 68 61 73 20 6e 6f 20 69 6e 74 65 72 6e 61 6c has no internal
1d00: 0a 09 09 20 20 20 20 23 20 64 65 70 65 6e 64 65 ... # depende
1d10: 6e 63 69 65 73 2e 20 54 68 69 73 20 69 73 20 61 ncies. This is a
1d20: 20 63 6f 6d 70 6c 65 74 65 20 66 72 61 67 6d 65 complete fragme
1d30: 6e 74 2e 0a 09 09 20 20 20 20 6c 61 70 70 65 6e nt.... lappen
1d40: 64 20 66 72 61 67 6d 65 6e 74 73 20 24 63 75 72 d fragments $cur
1d50: 72 65 6e 74 0a 0a 09 09 20 20 20 20 6c 6f 67 20 rent.... log
1d60: 77 72 69 74 65 20 36 20 63 73 65 74 73 20 22 4e write 6 csets "N
1d70: 6f 20 62 72 65 61 6b 73 2c 20 66 69 6e 61 6c 22 o breaks, final"
1d80: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 ...} else {...
1d90: 20 20 23 20 53 70 6c 69 74 20 74 68 65 20 72 61 # Split the ra
1da0: 6e 67 65 20 61 6e 64 20 73 63 68 65 64 75 6c 65 nge and schedule
1db0: 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 0a 09 the resulting..
1dc0: 09 20 20 20 20 23 20 66 72 61 67 6d 65 6e 74 73 . # fragments
1dd0: 20 66 6f 72 20 66 75 72 74 68 65 72 20 69 6e 73 for further ins
1de0: 70 65 63 74 69 6f 6e 2e 20 52 65 6d 65 6d 62 65 pection. Remembe
1df0: 72 20 74 68 65 0a 09 09 20 20 20 20 23 20 6e 75 r the... # nu
1e00: 6d 62 65 72 20 6f 66 20 64 65 70 65 6e 64 65 6e mber of dependen
1e10: 63 69 65 73 20 63 75 74 20 62 65 66 6f 72 65 20 cies cut before
1e20: 77 65 20 72 65 6d 6f 76 65 20 74 68 65 6d 0a 09 we remove them..
1e30: 09 20 20 20 20 23 20 66 72 6f 6d 20 63 6f 6e 73 . # from cons
1e40: 69 64 65 72 61 74 69 6f 6e 2c 20 66 6f 72 20 64 ideration, for d
1e50: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6c 61 74 ocumentation lat
1e60: 65 72 2e 0a 0a 09 09 20 20 20 20 73 65 74 20 62 er..... set b
1e70: 72 65 61 6b 73 28 24 62 65 73 74 29 20 24 63 72 reaks($best) $cr
1e80: 6f 73 73 28 24 62 65 73 74 29 0a 0a 09 09 20 20 oss($best)....
1e90: 20 20 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 log write 6 cs
1ea0: 65 74 73 20 22 42 65 73 74 20 62 72 65 61 6b 20 ets "Best break
1eb0: 40 20 24 62 65 73 74 2c 20 63 75 74 74 69 6e 67 @ $best, cutting
1ec0: 20 5b 6e 73 70 20 24 63 72 6f 73 73 28 24 62 65 [nsp $cross($be
1ed0: 73 74 29 20 64 65 70 65 6e 64 65 6e 63 79 20 64 st) dependency d
1ee0: 65 70 65 6e 64 65 6e 63 69 65 73 5d 22 0a 0a 09 ependencies]"...
1ef0: 09 20 20 20 20 23 20 4e 6f 74 65 3a 20 54 68 65 . # Note: The
1f00: 20 76 61 6c 75 65 20 6f 66 20 62 65 73 74 20 69 value of best i
1f10: 73 20 61 6e 20 61 62 6f 6c 75 74 65 20 6c 6f 63 s an abolute loc
1f20: 61 74 69 6f 6e 0a 09 09 20 20 20 20 23 20 69 6e ation... # in
1f30: 20 6d 79 69 74 65 6d 73 2e 20 55 73 65 20 74 68 myitems. Use th
1f40: 65 20 73 74 61 72 74 20 6f 66 20 63 75 72 72 65 e start of curre
1f50: 6e 74 20 74 6f 20 6d 61 6b 65 20 69 74 0a 09 09 nt to make it...
1f60: 20 20 20 20 23 20 61 6e 20 69 6e 64 65 78 20 61 # an index a
1f70: 62 73 6f 6c 75 74 65 20 74 6f 20 63 75 72 72 65 bsolute to curre
1f80: 6e 74 2e 0a 0a 09 09 20 20 20 20 73 65 74 20 62 nt..... set b
1f90: 72 65 6c 20 5b 65 78 70 72 20 7b 24 62 65 73 74 rel [expr {$best
1fa0: 20 2d 20 5b 6c 69 6e 64 65 78 20 24 63 75 72 72 - [lindex $curr
1fb0: 65 6e 74 20 30 5d 7d 5d 0a 09 09 20 20 20 20 73 ent 0]}]... s
1fc0: 65 74 20 62 6e 65 78 74 20 24 62 72 65 6c 20 3b et bnext $brel ;
1fd0: 20 69 6e 63 72 20 62 6e 65 78 74 0a 09 09 20 20 incr bnext...
1fe0: 20 20 73 65 74 20 66 72 61 67 62 65 66 6f 72 65 set fragbefore
1ff0: 20 5b 6c 72 61 6e 67 65 20 24 63 75 72 72 65 6e [lrange $curren
2000: 74 20 30 20 24 62 72 65 6c 5d 0a 09 09 20 20 20 t 0 $brel]...
2010: 20 73 65 74 20 66 72 61 67 61 66 74 65 72 20 20 set fragafter
2020: 5b 6c 72 61 6e 67 65 20 24 63 75 72 72 65 6e 74 [lrange $current
2030: 20 24 62 6e 65 78 74 20 65 6e 64 5d 0a 0a 09 09 $bnext end]....
2040: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 36 20 log write 6
2050: 63 73 65 74 73 20 22 4e 65 77 20 70 69 65 63 65 csets "New piece
2060: 73 20 20 5b 50 52 20 24 66 72 61 67 62 65 66 6f s [PR $fragbefo
2070: 72 65 5d 20 5b 50 52 20 24 66 72 61 67 61 66 74 re] [PR $fragaft
2080: 65 72 5d 22 0a 0a 09 09 20 20 20 20 69 6e 74 65 er]".... inte
2090: 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 5b 6c grity assert {[l
20a0: 6c 65 6e 67 74 68 20 24 66 72 61 67 62 65 66 6f length $fragbefo
20b0: 72 65 5d 7d 20 7b 46 6f 75 6e 64 20 7a 65 72 6f re]} {Found zero
20c0: 2d 6c 65 6e 67 74 68 20 66 72 61 67 6d 65 6e 74 -length fragment
20d0: 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e at the beginnin
20e0: 67 7d 0a 09 09 20 20 20 20 69 6e 74 65 67 72 69 g}... integri
20f0: 74 79 20 61 73 73 65 72 74 20 7b 5b 6c 6c 65 6e ty assert {[llen
2100: 67 74 68 20 24 66 72 61 67 61 66 74 65 72 5d 7d gth $fragafter]}
2110: 20 20 7b 46 6f 75 6e 64 20 7a 65 72 6f 2d 6c 65 {Found zero-le
2120: 6e 67 74 68 20 66 72 61 67 6d 65 6e 74 20 61 74 ngth fragment at
2130: 20 74 68 65 20 65 6e 64 7d 0a 0a 09 09 20 20 20 the end}....
2140: 20 6c 61 70 70 65 6e 64 20 6e 65 77 20 24 66 72 lappend new $fr
2150: 61 67 62 65 66 6f 72 65 20 24 66 72 61 67 61 66 agbefore $fragaf
2160: 74 65 72 0a 09 09 20 20 20 20 43 75 74 41 74 20 ter... CutAt
2170: 24 62 65 73 74 0a 09 09 7d 0a 0a 09 09 69 6e 63 $best...}....inc
2180: 72 20 61 74 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a r at.. }..}..
2190: 09 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 .log write 6 cse
21a0: 74 73 20 22 2e 20 2e 20 2e 2e 20 2e 2e 2e 20 2e ts ". . .. ... .
21b0: 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 20 2e 2e .... ........ ..
21c0: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 22 0a 0a 09 23 ..........."...#
21d0: 20 28 2a 29 20 57 65 20 63 6c 65 61 72 20 6f 75 (*) We clear ou
21e0: 74 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 t the associated
21f0: 20 70 61 72 74 20 6f 66 20 74 68 65 20 6d 79 69 part of the myi
2200: 74 65 6d 6d 61 70 0a 09 23 20 69 6e 2d 6d 65 6d temmap..# in-mem
2210: 6f 72 79 20 69 6e 64 65 78 20 69 6e 20 70 72 65 ory index in pre
2220: 70 61 72 61 74 69 6f 6e 20 66 6f 72 20 6e 65 77 paration for new
2230: 20 64 61 74 61 2e 20 41 20 73 69 6d 70 6c 65 20 data. A simple
2240: 75 6e 73 65 74 0a 09 23 20 69 73 20 65 6e 6f 75 unset..# is enou
2250: 67 68 2c 20 77 65 20 68 61 76 65 20 6e 6f 20 73 gh, we have no s
2260: 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 ymbol changesets
2270: 20 61 74 20 74 68 69 73 20 74 69 6d 65 2c 20 61 at this time, a
2280: 6e 64 0a 09 23 20 74 68 75 73 20 6e 65 76 65 72 nd..# thus never
2290: 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 72 more than one r
22a0: 65 66 65 72 65 6e 63 65 20 69 6e 20 74 68 65 20 eference in the
22b0: 6c 69 73 74 2e 0a 0a 09 66 6f 72 65 61 63 68 20 list....foreach
22c0: 69 69 64 20 24 6d 79 69 74 65 6d 73 20 7b 0a 09 iid $myitems {..
22d0: 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c 69 73 set key [lis
22e0: 74 20 24 6d 79 74 79 70 65 20 24 69 69 64 5d 0a t $mytype $iid].
22f0: 09 20 20 20 20 75 6e 73 65 74 20 6d 79 69 74 65 . unset myite
2300: 6d 6d 61 70 28 24 6b 65 79 29 0a 09 20 20 20 20 mmap($key)..
2310: 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 74 log write 8 cset
2320: 73 20 7b 4d 41 50 2d 20 69 74 65 6d 20 3c 24 6b s {MAP- item <$k
2330: 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b 24 73 65 ey> $self = [$se
2340: 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 0a 09 23 20 lf str]}..}...#
2350: 43 72 65 61 74 65 20 63 68 61 6e 67 65 73 65 74 Create changeset
2360: 73 20 66 6f 72 20 74 68 65 20 66 72 61 67 6d 65 s for the fragme
2370: 6e 74 73 2c 20 72 65 75 73 69 6e 67 20 74 68 65 nts, reusing the
2380: 20 63 75 72 72 65 6e 74 20 6f 6e 65 0a 09 23 20 current one..#
2390: 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 66 72 for the first fr
23a0: 61 67 6d 65 6e 74 2e 20 57 65 20 73 6f 72 74 20 agment. We sort
23b0: 74 68 65 6d 20 69 6e 20 6f 72 64 65 72 20 74 6f them in order to
23c0: 20 61 6c 6c 6f 77 0a 09 23 20 63 68 65 63 6b 69 allow..# checki
23d0: 6e 67 20 66 6f 72 20 67 61 70 73 20 61 6e 64 20 ng for gaps and
23e0: 6e 69 63 65 20 6d 65 73 73 61 67 65 73 2e 0a 0a nice messages...
23f0: 09 73 65 74 20 66 72 61 67 6d 65 6e 74 73 20 5b .set fragments [
2400: 6c 73 6f 72 74 20 2d 69 6e 64 65 78 20 30 20 2d lsort -index 0 -
2410: 69 6e 74 65 67 65 72 20 24 66 72 61 67 6d 65 6e integer $fragmen
2420: 74 73 5d 0a 0a 09 23 70 75 74 73 20 5c 74 2e 5b ts]...#puts \t.[
2430: 6a 6f 69 6e 20 5b 50 52 73 20 24 66 72 61 67 6d join [PRs $fragm
2440: 65 6e 74 73 5d 20 2e 5c 6e 5c 74 2e 5d 2e 0a 0a ents] .\n\t.]...
2450: 09 42 6f 72 64 65 72 20 5b 6c 69 6e 64 65 78 20 .Border [lindex
2460: 24 66 72 61 67 6d 65 6e 74 73 20 30 5d 20 66 69 $fragments 0] fi
2470: 72 73 74 73 20 66 69 72 73 74 65 0a 0a 09 69 6e rsts firste...in
2480: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
2490: 24 66 69 72 73 74 73 20 3d 3d 20 30 7d 20 7b 42 $firsts == 0} {B
24a0: 61 64 20 66 72 61 67 6d 65 6e 74 20 73 74 61 72 ad fragment star
24b0: 74 20 40 20 24 66 69 72 73 74 73 2c 20 67 61 70 t @ $firsts, gap
24c0: 2c 20 6f 72 20 62 65 66 6f 72 65 20 62 65 67 69 , or before begi
24d0: 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 72 61 6e nning of the ran
24e0: 67 65 7d 0a 0a 09 73 65 74 20 6c 61 73 74 65 20 ge}...set laste
24f0: 24 66 69 72 73 74 65 0a 09 66 6f 72 65 61 63 68 $firste..foreach
2500: 20 66 72 61 67 6d 65 6e 74 20 5b 6c 72 61 6e 67 fragment [lrang
2510: 65 20 24 66 72 61 67 6d 65 6e 74 73 20 31 20 65 e $fragments 1 e
2520: 6e 64 5d 20 7b 0a 09 20 20 20 20 42 6f 72 64 65 nd] {.. Borde
2530: 72 20 24 66 72 61 67 6d 65 6e 74 20 73 20 65 0a r $fragment s e.
2540: 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 . integrity a
2550: 73 73 65 72 74 20 7b 24 6c 61 73 74 65 20 3d 3d ssert {$laste ==
2560: 20 28 24 73 20 2d 20 31 29 7d 20 7b 42 61 64 20 ($s - 1)} {Bad
2570: 66 72 61 67 6d 65 6e 74 20 62 6f 72 64 65 72 20 fragment border
2580: 3c 24 6c 61 73 74 65 20 7c 20 24 73 3e 2c 20 67 <$laste | $s>, g
2590: 61 70 20 6f 72 20 6f 76 65 72 6c 61 70 7d 0a 0a ap or overlap}..
25a0: 09 20 20 20 20 73 65 74 20 6e 65 77 20 5b 24 74 . set new [$t
25b0: 79 70 65 20 25 41 55 54 4f 25 20 24 6d 79 70 72 ype %AUTO% $mypr
25c0: 6f 6a 65 63 74 20 24 6d 79 74 79 70 65 20 24 6d oject $mytype $m
25d0: 79 73 72 63 69 64 20 5b 6c 72 61 6e 67 65 20 24 ysrcid [lrange $
25e0: 6d 79 69 74 65 6d 73 20 24 73 20 24 65 5d 5d 0a myitems $s $e]].
25f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 67 . log
2600: 20 77 72 69 74 65 20 34 20 63 73 65 74 73 20 22 write 4 csets "
2610: 42 72 65 61 6b 69 6e 67 20 5b 24 73 65 6c 66 20 Breaking [$self
2620: 73 74 72 20 5d 20 40 20 24 6c 61 73 74 65 2c 20 str ] @ $laste,
2630: 6e 65 77 20 5b 24 6e 65 77 20 73 74 72 5d 2c 20 new [$new str],
2640: 63 75 74 74 69 6e 67 20 24 62 72 65 61 6b 73 28 cutting $breaks(
2650: 24 6c 61 73 74 65 29 22 0a 0a 09 20 20 20 20 73 $laste)"... s
2660: 65 74 20 6c 61 73 74 65 20 24 65 0a 09 7d 0a 0a et laste $e..}..
2670: 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 .integrity asser
2680: 74 20 7b 0a 09 20 20 20 20 24 6c 61 73 74 65 20 t {.. $laste
2690: 3d 3d 20 28 5b 6c 6c 65 6e 67 74 68 20 24 6d 79 == ([llength $my
26a0: 69 74 65 6d 73 5d 2d 31 29 0a 09 7d 20 7b 42 61 items]-1)..} {Ba
26b0: 64 20 66 72 61 67 6d 65 6e 74 20 65 6e 64 20 40 d fragment end @
26c0: 20 24 6c 61 73 74 65 2c 20 67 61 70 2c 20 6f 72 $laste, gap, or
26d0: 20 62 65 79 6f 6e 64 20 65 6e 64 20 6f 66 20 74 beyond end of t
26e0: 68 65 20 72 61 6e 67 65 7d 0a 0a 09 23 20 50 75 he range}...# Pu
26f0: 74 20 74 68 65 20 66 69 72 73 74 20 66 72 61 67 t the first frag
2700: 6d 65 6e 74 20 69 6e 74 6f 20 74 68 65 20 63 75 ment into the cu
2710: 72 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 2c rrent changeset,
2720: 20 61 6e 64 0a 09 23 20 75 70 64 61 74 65 20 74 and..# update t
2730: 68 65 20 69 6e 2d 6d 65 6d 6f 72 79 20 69 6e 64 he in-memory ind
2740: 65 78 2e 20 57 65 20 63 61 6e 20 73 69 6d 70 6c ex. We can simpl
2750: 79 20 28 72 65 29 61 64 64 20 74 68 65 20 69 74 y (re)add the it
2760: 65 6d 73 0a 09 23 20 62 65 63 61 75 73 65 20 77 ems..# because w
2770: 65 20 63 6c 65 61 72 65 64 20 74 68 65 20 70 72 e cleared the pr
2780: 65 76 69 6f 75 73 6c 79 20 65 78 69 73 74 69 6e eviously existin
2790: 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 73 g information, s
27a0: 65 65 0a 09 23 20 28 2a 29 20 61 62 6f 76 65 2e ee..# (*) above.
27b0: 20 50 65 72 73 69 73 74 65 6e 63 65 20 64 6f 65 Persistence doe
27c0: 73 20 6e 6f 74 20 6d 61 74 74 65 72 20 68 65 72 s not matter her
27d0: 65 2c 20 6e 6f 6e 65 20 6f 66 20 74 68 65 0a 09 e, none of the..
27e0: 23 20 63 68 61 6e 67 65 73 65 74 73 20 68 61 73 # changesets has
27f0: 20 62 65 65 6e 20 73 61 76 65 64 20 74 6f 20 74 been saved to t
2800: 68 65 20 70 65 72 73 69 73 74 65 6e 74 20 73 74 he persistent st
2810: 61 74 65 20 79 65 74 2e 0a 0a 09 73 65 74 20 6d ate yet....set m
2820: 79 69 74 65 6d 73 20 20 5b 6c 72 61 6e 67 65 20 yitems [lrange
2830: 24 6d 79 69 74 65 6d 73 20 20 30 20 24 66 69 72 $myitems 0 $fir
2840: 73 74 65 5d 0a 09 73 65 74 20 6d 79 74 69 74 65 ste]..set mytite
2850: 6d 73 20 5b 6c 72 61 6e 67 65 20 24 6d 79 74 69 ms [lrange $myti
2860: 74 65 6d 73 20 30 20 24 66 69 72 73 74 65 5d 0a tems 0 $firste].
2870: 09 66 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 .foreach iid $my
2880: 69 74 65 6d 73 20 7b 0a 09 20 20 20 20 73 65 74 items {.. set
2890: 20 6b 65 79 20 5b 6c 69 73 74 20 24 6d 79 74 79 key [list $myty
28a0: 70 65 20 24 69 69 64 5d 0a 09 20 20 20 20 73 65 pe $iid].. se
28b0: 74 20 6d 79 69 74 65 6d 6d 61 70 28 24 6b 65 79 t myitemmap($key
28c0: 29 20 24 73 65 6c 66 0a 09 20 20 20 20 6c 6f 67 ) $self.. log
28d0: 20 77 72 69 74 65 20 38 20 63 73 65 74 73 20 7b write 8 csets {
28e0: 4d 41 50 2b 20 69 74 65 6d 20 3c 24 6b 65 79 3e MAP+ item <$key>
28f0: 20 24 73 65 6c 66 20 3d 20 5b 24 73 65 6c 66 20 $self = [$self
2900: 73 74 72 5d 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 str]}..}...retur
2910: 6e 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d n 1. }.. m
2920: 65 74 68 6f 64 20 70 65 72 73 69 73 74 20 7b 7d ethod persist {}
2930: 20 7b 0a 09 73 65 74 20 74 69 64 20 24 6d 79 63 {..set tid $myc
2940: 73 74 79 70 65 28 24 6d 79 74 79 70 65 29 0a 09 stype($mytype)..
2950: 73 65 74 20 70 69 64 20 5b 24 6d 79 70 72 6f 6a set pid [$myproj
2960: 65 63 74 20 69 64 5d 0a 09 73 65 74 20 70 6f 73 ect id]..set pos
2970: 20 30 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 0...state trans
2980: 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 action {.. st
2990: 61 74 65 20 72 75 6e 20 7b 0a 09 09 49 4e 53 45 ate run {...INSE
29a0: 52 54 20 49 4e 54 4f 20 63 68 61 6e 67 65 73 65 RT INTO changese
29b0: 74 20 28 63 69 64 2c 20 20 20 70 69 64 2c 20 20 t (cid, pid,
29c0: 74 79 70 65 2c 20 73 72 63 29 0a 09 09 56 41 4c type, src)...VAL
29d0: 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 UES
29e0: 20 20 20 28 24 6d 79 69 64 2c 20 24 70 69 64 2c ($myid, $pid,
29f0: 20 24 74 69 64 2c 20 24 6d 79 73 72 63 69 64 29 $tid, $mysrcid)
2a00: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 66 ;.. }... f
2a10: 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 69 74 oreach iid $myit
2a20: 65 6d 73 20 7b 0a 09 09 73 74 61 74 65 20 72 75 ems {...state ru
2a30: 6e 20 7b 0a 09 09 20 20 20 20 49 4e 53 45 52 54 n {... INSERT
2a40: 20 49 4e 54 4f 20 63 73 69 74 65 6d 20 28 63 69 INTO csitem (ci
2a50: 64 2c 20 20 20 70 6f 73 2c 20 20 69 69 64 29 0a d, pos, iid).
2a60: 09 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 20 .. VALUES
2a70: 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c ($myid,
2a80: 20 24 70 6f 73 2c 20 24 69 69 64 29 3b 0a 09 09 $pos, $iid);...
2a90: 7d 0a 09 09 69 6e 63 72 20 70 6f 73 0a 09 20 20 }...incr pos..
2aa0: 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 }..}..return.
2ab0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
2ac0: 20 74 69 6d 65 72 61 6e 67 65 20 7b 7d 20 7b 20 timerange {} {
2ad0: 72 65 74 75 72 6e 20 5b 24 6d 79 74 79 70 65 6f return [$mytypeo
2ae0: 62 6a 20 74 69 6d 65 72 61 6e 67 65 20 24 6d 79 bj timerange $my
2af0: 69 74 65 6d 73 5d 20 7d 0a 0a 20 20 20 20 6d 65 items] }.. me
2b00: 74 68 6f 64 20 6c 69 6d 69 74 73 20 7b 7d 20 7b thod limits {} {
2b10: 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 ..struct::list a
2b20: 73 73 69 67 6e 20 5b 24 6d 79 74 79 70 65 6f 62 ssign [$mytypeob
2b30: 6a 20 6c 69 6d 69 74 73 20 24 6d 79 69 74 65 6d j limits $myitem
2b40: 73 5d 20 6d 61 78 70 20 6d 69 6e 73 0a 09 72 65 s] maxp mins..re
2b50: 74 75 72 6e 20 5b 6c 69 73 74 20 5b 54 61 67 49 turn [list [TagI
2b60: 74 65 6d 44 69 63 74 20 24 6d 61 78 70 20 24 6d temDict $maxp $m
2b70: 79 74 79 70 65 5d 20 5b 54 61 67 49 74 65 6d 44 ytype] [TagItemD
2b80: 69 63 74 20 24 6d 69 6e 73 20 24 6d 79 74 79 70 ict $mins $mytyp
2b90: 65 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d e]]. }.. m
2ba0: 65 74 68 6f 64 20 64 72 6f 70 20 7b 7d 20 7b 0a ethod drop {} {.
2bb0: 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 .log write 8 cse
2bc0: 74 73 20 7b 44 72 6f 70 70 69 6e 67 20 24 73 65 ts {Dropping $se
2bd0: 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 74 72 5d lf = [$self str]
2be0: 7d 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 61 }...state transa
2bf0: 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 61 ction {.. sta
2c00: 74 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 54 te run {...DELET
2c10: 45 20 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 E FROM changeset
2c20: 20 20 20 57 48 45 52 45 20 63 69 64 20 3d 20 24 WHERE cid = $
2c30: 6d 79 69 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 myid;...DELETE F
2c40: 52 4f 4d 20 63 73 69 74 65 6d 20 20 20 20 20 20 ROM csitem
2c50: 57 48 45 52 45 20 63 69 64 20 3d 20 24 6d 79 69 WHERE cid = $myi
2c60: 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 52 4f 4d d;...DELETE FROM
2c70: 20 63 73 73 75 63 63 65 73 73 6f 72 20 57 48 45 cssuccessor WHE
2c80: 52 45 20 63 69 64 20 3d 20 24 6d 79 69 64 3b 0a RE cid = $myid;.
2c90: 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 65 61 . }..}..forea
2ca0: 63 68 20 69 69 64 20 24 6d 79 69 74 65 6d 73 20 ch iid $myitems
2cb0: 7b 0a 09 20 20 20 20 73 65 74 20 6b 65 79 20 5b {.. set key [
2cc0: 6c 69 73 74 20 24 6d 79 74 79 70 65 20 24 69 69 list $mytype $ii
2cd0: 64 5d 0a 09 20 20 20 20 75 6e 73 65 74 20 6d 79 d].. unset my
2ce0: 69 74 65 6d 6d 61 70 28 24 6b 65 79 29 0a 09 20 itemmap($key)..
2cf0: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 log write 8 c
2d00: 73 65 74 73 20 7b 4d 41 50 2d 20 69 74 65 6d 20 sets {MAP- item
2d10: 3c 24 6b 65 79 3e 20 24 73 65 6c 66 20 3d 20 5b <$key> $self = [
2d20: 24 73 65 6c 66 20 73 74 72 5d 7d 0a 09 7d 0a 09 $self str]}..}..
2d30: 73 65 74 20 70 6f 73 20 20 20 20 20 20 20 20 20 set pos
2d40: 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 [lsearch -exact
2d50: 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 20 24 $mychangesets $
2d60: 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 63 68 61 self]..set mycha
2d70: 6e 67 65 73 65 74 73 20 5b 6c 72 65 70 6c 61 63 ngesets [lreplac
2d80: 65 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 20 e $mychangesets
2d90: 24 70 6f 73 20 24 70 6f 73 5d 0a 09 73 65 74 20 $pos $pos]..set
2da0: 70 6f 73 20 20 20 20 20 20 20 20 20 20 20 20 20 pos
2db0: 20 20 20 20 20 20 20 5b 6c 73 65 61 72 63 68 20 [lsearch
2dc0: 2d 65 78 61 63 74 20 24 6d 79 74 63 68 61 6e 67 -exact $mytchang
2dd0: 65 73 65 74 73 28 24 6d 79 74 79 70 65 29 20 24 esets($mytype) $
2de0: 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 74 63 68 self]..set mytch
2df0: 61 6e 67 65 73 65 74 73 28 24 6d 79 74 79 70 65 angesets($mytype
2e00: 29 20 5b 6c 72 65 70 6c 61 63 65 20 24 6d 79 74 ) [lreplace $myt
2e10: 63 68 61 6e 67 65 73 65 74 73 28 24 6d 79 74 79 changesets($myty
2e20: 70 65 29 20 24 70 6f 73 20 24 70 6f 73 5d 0a 0a pe) $pos $pos]..
2e30: 09 23 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 .# Return the li
2e40: 73 74 20 6f 66 20 70 72 65 64 65 63 65 73 73 6f st of predecesso
2e50: 72 73 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 rs so that they
2e60: 63 61 6e 20 62 65 20 61 64 6a 75 73 74 65 64 2e can be adjusted.
2e70: 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 ..return [struct
2e80: 3a 3a 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 74 ::list map [stat
2e90: 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c e run {.. SEL
2ea0: 45 43 54 20 63 69 64 0a 09 20 20 20 20 46 52 4f ECT cid.. FRO
2eb0: 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 0a M cssuccessor.
2ec0: 09 20 20 20 20 57 48 45 52 45 20 20 6e 69 64 20 . WHERE nid
2ed0: 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 5b 6d 79 74 = $myid..}] [myt
2ee0: 79 70 65 6d 65 74 68 6f 64 20 6f 66 5d 5d 0a 20 ypemethod of]].
2ef0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
2f00: 20 72 65 70 6f 72 74 6c 6f 6f 70 20 7b 7b 6b 69 reportloop {{ki
2f10: 6c 6c 20 31 7d 7d 20 7b 0a 09 23 20 57 65 20 70 ll 1}} {..# We p
2f20: 72 69 6e 74 20 74 68 65 20 69 74 65 6d 73 20 77 rint the items w
2f30: 68 69 63 68 20 61 72 65 20 70 72 6f 64 75 63 69 hich are produci
2f40: 6e 67 20 74 68 65 20 6c 6f 6f 70 2c 20 61 6e 64 ng the loop, and
2f50: 20 68 6f 77 2e 0a 0a 09 73 65 74 20 68 64 72 20 how....set hdr
2f60: 22 53 65 6c 66 2d 72 65 66 65 72 65 6e 74 69 61 "Self-referentia
2f70: 6c 20 63 68 61 6e 67 65 73 65 74 20 5b 24 73 65 l changeset [$se
2f80: 6c 66 20 73 74 72 5d 20 5f 5f 5f 5f 5f 5f 5f 5f lf str] ________
2f90: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 0a 09 73 65 74 __________"..set
2fa0: 20 66 74 72 20 5b 72 65 67 73 75 62 20 2d 61 6c ftr [regsub -al
2fb0: 6c 20 7b 5b 5e 20 09 5d 7d 20 24 68 64 72 20 7b l {[^ .]} $hdr {
2fc0: 5f 7d 5d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 _}]...log write
2fd0: 30 20 63 73 65 74 73 20 24 68 64 72 0a 09 66 6f 0 csets $hdr..fo
2fe0: 72 65 61 63 68 20 7b 69 74 65 6d 20 6e 65 78 74 reach {item next
2ff0: 69 74 65 6d 7d 20 5b 24 6d 79 74 79 70 65 6f 62 item} [$mytypeob
3000: 6a 20 6c 6f 6f 70 73 20 24 6d 79 69 74 65 6d 73 j loops $myitems
3010: 5d 20 7b 0a 09 20 20 20 20 23 20 43 72 65 61 74 ] {.. # Creat
3020: 65 20 74 61 67 67 65 64 20 69 74 65 6d 73 20 66 e tagged items f
3030: 72 6f 6d 20 74 68 65 20 69 64 20 61 6e 64 20 6f rom the id and o
3040: 75 72 20 74 79 70 65 2e 0a 09 20 20 20 20 73 65 ur type... se
3050: 74 20 69 74 65 6d 20 20 20 20 20 5b 6c 69 73 74 t item [list
3060: 20 24 6d 79 74 79 70 65 20 20 24 69 74 65 6d 5d $mytype $item]
3070: 0a 09 20 20 20 20 73 65 74 20 6e 65 78 74 69 74 .. set nextit
3080: 65 6d 20 5b 6c 69 73 74 20 24 6d 79 74 79 70 65 em [list $mytype
3090: 20 24 6e 65 78 74 69 74 65 6d 5d 0a 09 20 20 20 $nextitem]..
30a0: 20 23 20 50 72 69 6e 74 61 62 6c 65 20 6c 61 62 # Printable lab
30b0: 65 6c 73 2e 0a 09 20 20 20 20 73 65 74 20 69 20 els... set i
30c0: 20 22 3c 5b 24 74 79 70 65 20 69 74 65 6d 73 74 "<[$type itemst
30d0: 72 20 24 69 74 65 6d 5d 3e 22 0a 09 20 20 20 20 r $item]>"..
30e0: 73 65 74 20 6e 20 20 22 3c 5b 24 74 79 70 65 20 set n "<[$type
30f0: 69 74 65 6d 73 74 72 20 24 6e 65 78 74 69 74 65 itemstr $nextite
3100: 6d 5d 3e 22 0a 09 20 20 20 20 73 65 74 20 6e 63 m]>".. set nc
3110: 73 20 24 6d 79 69 74 65 6d 6d 61 70 28 24 6e 65 s $myitemmap($ne
3120: 78 74 69 74 65 6d 29 0a 09 20 20 20 20 23 20 50 xtitem).. # P
3130: 72 69 6e 74 0a 09 20 20 20 20 6c 6f 67 20 77 72 rint.. log wr
3140: 69 74 65 20 30 20 63 73 65 74 73 20 7b 2a 20 24 ite 0 csets {* $
3150: 69 20 2d 2d 3e 20 24 6e 20 2d 2d 3e 20 63 73 20 i --> $n --> cs
3160: 5b 24 6e 63 73 20 73 74 72 5d 7d 0a 09 7d 0a 09 [$ncs str]}..}..
3170: 6c 6f 67 20 77 72 69 74 65 20 30 20 63 73 65 74 log write 0 cset
3180: 73 20 24 66 74 72 0a 0a 09 69 66 20 7b 21 24 6b s $ftr...if {!$k
3190: 69 6c 6c 7d 20 72 65 74 75 72 6e 0a 09 74 72 6f ill} return..tro
31a0: 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 22 5b uble internal "[
31b0: 24 73 65 6c 66 20 73 74 72 5d 20 64 65 70 65 6e $self str] depen
31c0: 64 73 20 6f 6e 20 69 74 73 65 6c 66 22 0a 09 72 ds on itself"..r
31d0: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
31e0: 20 6d 65 74 68 6f 64 20 70 75 73 68 74 6f 20 7b method pushto {
31f0: 73 76 20 72 65 70 6f 73 69 74 6f 72 79 20 64 61 sv repository da
3200: 74 65 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 te} {..upvar 1 $
3210: 73 76 20 73 74 61 74 65 0a 0a 09 23 20 47 65 6e sv state...# Gen
3220: 65 72 61 74 65 20 61 6e 64 20 69 6d 70 6f 72 74 erate and import
3230: 20 74 68 65 20 6d 61 6e 69 66 65 73 74 20 66 6f the manifest fo
3240: 72 20 74 68 69 73 20 63 68 61 6e 67 65 73 65 74 r this changeset
3250: 2e 0a 09 23 0a 09 23 20 44 61 74 61 20 6e 65 65 ...#..# Data nee
3260: 64 65 64 3a 0a 09 23 20 2d 20 43 6f 6d 6d 69 74 ded:..# - Commit
3270: 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 20 message
3280: 20 20 20 20 20 20 20 28 2d 2d 20 6d 79 73 72 63 (-- mysrc
3290: 69 64 20 2d 3e 20 72 65 70 6f 73 69 74 6f 72 79 id -> repository
32a0: 20 6d 65 74 61 29 0a 09 23 20 2d 20 55 73 65 72 meta)..# - User
32b0: 20 64 6f 69 6e 67 20 74 68 65 20 63 6f 6d 6d 69 doing the commi
32c0: 74 20 20 20 20 20 20 20 20 28 73 2e 61 2e 29 0a t (s.a.).
32d0: 09 23 0a 09 23 20 2d 20 54 69 6d 65 73 74 61 6d .#..# - Timestam
32e0: 70 20 6f 66 20 77 68 65 6e 20 63 6f 6d 6d 69 74 p of when commit
32f0: 74 65 64 20 20 28 63 6f 6d 6d 61 6e 64 20 61 72 ted (command ar
3300: 67 75 6d 65 6e 74 29 0a 09 23 0a 09 23 20 2d 20 gument)..#..# -
3310: 54 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 67 The parent chang
3320: 65 73 65 74 2c 20 69 66 20 61 6e 79 2e 20 49 66 eset, if any. If
3330: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 61 72 there is no par
3340: 65 6e 74 20 66 6f 73 73 69 6c 0a 09 23 20 20 20 ent fossil..#
3350: 77 69 6c 6c 20 75 73 65 20 74 68 65 20 65 6d 70 will use the emp
3360: 74 79 20 62 61 73 65 20 72 65 76 69 73 69 6f 6e ty base revision
3370: 20 61 73 20 70 61 72 65 6e 74 2e 0a 09 23 0a 09 as parent...#..
3380: 23 20 2d 20 4c 69 73 74 20 6f 66 20 74 68 65 20 # - List of the
3390: 66 69 6c 65 20 72 65 76 69 73 69 6f 6e 73 20 69 file revisions i
33a0: 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e n the changeset.
33b0: 0a 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 ...struct::list
33c0: 61 73 73 69 67 6e 20 5b 24 6d 79 70 72 6f 6a 65 assign [$myproje
33d0: 63 74 20 67 65 74 6d 65 74 61 20 24 6d 79 73 72 ct getmeta $mysr
33e0: 63 69 64 5d 20 5f 5f 20 62 72 61 6e 63 68 20 75 cid] __ branch u
33f0: 73 65 72 20 6d 65 73 73 61 67 65 0a 09 73 74 72 ser message..str
3400: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e uct::list assign
3410: 20 24 62 72 61 6e 63 68 20 5f 5f 20 6c 6f 64 6e $branch __ lodn
3420: 61 6d 65 0a 0a 09 23 20 50 65 72 66 6f 72 6d 20 ame...# Perform
3430: 74 68 65 20 69 6d 70 6f 72 74 2e 20 41 73 20 70 the import. As p
3440: 61 72 74 20 6f 66 20 74 68 61 74 20 77 65 20 64 art of that we d
3450: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 70 61 72 etermine the par
3460: 65 6e 74 0a 09 23 20 77 65 20 6e 65 65 64 2c 20 ent..# we need,
3470: 61 6e 64 20 63 6f 6e 76 65 72 74 20 74 68 65 20 and convert the
3480: 6c 69 73 74 20 6f 66 20 69 74 65 6d 73 20 69 6e list of items in
3490: 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 69 the changeset i
34a0: 6e 74 6f 0a 09 23 20 75 75 69 64 73 20 61 6e 64 nto..# uuids and
34b0: 20 70 72 69 6e 74 61 62 6c 65 20 64 61 74 61 2e printable data.
34c0: 0a 0a 09 73 65 74 20 75 75 69 64 20 5b 55 70 64 ...set uuid [Upd
34d0: 61 74 65 73 74 61 74 65 20 73 74 61 74 65 20 24 atestate state $
34e0: 6c 6f 64 6e 61 6d 65 20 5c 0a 09 09 20 20 20 20 lodname \...
34f0: 20 20 5b 24 72 65 70 6f 73 69 74 6f 72 79 20 69 [$repository i
3500: 6d 70 6f 72 74 72 65 76 69 73 69 6f 6e 20 5b 24 mportrevision [$
3510: 73 65 6c 66 20 73 74 72 5d 20 5c 0a 09 09 09 20 self str] \....
3520: 20 20 24 75 73 65 72 20 24 6d 65 73 73 61 67 65 $user $message
3530: 20 24 64 61 74 65 20 5c 0a 09 09 09 20 20 20 5b $date \.... [
3540: 47 65 74 70 61 72 65 6e 74 20 73 74 61 74 65 20 Getparent state
3550: 24 6c 6f 64 6e 61 6d 65 20 24 6d 79 70 72 6f 6a $lodname $myproj
3560: 65 63 74 20 24 6d 79 69 74 65 6d 73 5d 20 5c 0a ect $myitems] \.
3570: 09 09 09 20 20 20 5b 47 65 74 72 65 76 69 73 69 ... [Getrevisi
3580: 6f 6e 69 6e 66 6f 20 24 6d 79 69 74 65 6d 73 5d oninfo $myitems]
3590: 5d 5d 0a 0a 09 23 20 52 65 6d 65 6d 62 65 72 20 ]]...# Remember
35a0: 74 68 65 20 77 68 6f 6c 65 20 63 68 61 6e 67 65 the whole change
35b0: 73 65 74 20 2f 20 75 75 69 64 20 6d 61 70 70 69 set / uuid mappi
35c0: 6e 67 2c 20 66 6f 72 20 74 68 65 20 74 61 67 73 ng, for the tags
35d0: 2e 0a 0a 09 73 74 61 74 65 20 72 75 6e 20 7b 0a ....state run {.
35e0: 09 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f . INSERT INTO
35f0: 20 63 73 75 75 69 64 20 28 63 69 64 2c 20 20 20 csuuid (cid,
3600: 75 75 69 64 29 0a 09 20 20 20 20 56 41 4c 55 45 uuid).. VALUE
3610: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 S ($
3620: 6d 79 69 64 2c 20 24 75 75 69 64 29 0a 09 7d 0a myid, $uuid)..}.
3630: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
3640: 20 20 20 70 72 6f 63 20 47 65 74 72 65 76 69 73 proc Getrevis
3650: 69 6f 6e 69 6e 66 6f 20 7b 72 65 76 69 73 69 6f ioninfo {revisio
3660: 6e 73 7d 20 7b 0a 09 73 65 74 20 74 68 65 73 65 ns} {..set these
3670: 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 69 73 t ('[join $revis
3680: 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 73 ions {','}]')..s
3690: 65 74 20 72 65 76 69 73 69 6f 6e 73 20 7b 7d 0a et revisions {}.
36a0: 09 66 6f 72 65 61 63 68 20 7b 66 72 69 64 20 70 .foreach {frid p
36b0: 61 74 68 20 66 6e 61 6d 65 20 72 65 76 6e 72 7d ath fname revnr}
36c0: 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 [state run [sub
36d0: 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d st -nocommands -
36e0: 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a nobackslashes {.
36f0: 09 20 20 20 20 53 45 4c 45 43 54 20 55 2e 75 75 . SELECT U.uu
3700: 69 64 2c 20 46 2e 76 69 73 69 62 6c 65 2c 20 46 id, F.visible, F
3710: 2e 6e 61 6d 65 2c 20 52 2e 72 65 76 0a 09 20 20 .name, R.rev..
3720: 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f FROM revisio
3730: 6e 20 52 2c 20 72 65 76 75 75 69 64 20 55 2c 20 n R, revuuid U,
3740: 66 69 6c 65 20 46 0a 09 20 20 20 20 57 48 45 52 file F.. WHER
3750: 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 E R.rid IN $the
3760: 73 65 74 20 20 2d 2d 20 41 6c 6c 20 73 70 65 63 set -- All spec
3770: 69 66 69 65 64 20 72 65 76 69 73 69 6f 6e 73 0a ified revisions.
3780: 09 20 20 20 20 41 4e 44 20 20 20 20 55 2e 72 69 . AND U.ri
3790: 64 20 3d 20 52 2e 72 69 64 20 20 20 20 20 2d 2d d = R.rid --
37a0: 20 67 65 74 20 66 6f 73 73 69 6c 20 75 75 69 64 get fossil uuid
37b0: 20 6f 66 20 72 65 76 69 73 69 6f 6e 0a 09 20 20 of revision..
37c0: 20 20 41 4e 44 20 20 20 20 46 2e 66 69 64 20 3d AND F.fid =
37d0: 20 52 2e 66 69 64 20 20 20 20 20 2d 2d 20 67 65 R.fid -- ge
37e0: 74 20 66 69 6c 65 20 6f 66 20 72 65 76 69 73 69 t file of revisi
37f0: 6f 6e 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c on..}]] {.. l
3800: 61 70 70 65 6e 64 20 72 65 76 69 73 69 6f 6e 73 append revisions
3810: 20 24 66 72 69 64 20 24 70 61 74 68 20 24 66 6e $frid $path $fn
3820: 61 6d 65 2f 24 72 65 76 6e 72 0a 09 7d 0a 09 72 ame/$revnr..}..r
3830: 65 74 75 72 6e 20 24 72 65 76 69 73 69 6f 6e 73 eturn $revisions
3840: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
3850: 20 47 65 74 70 61 72 65 6e 74 20 7b 73 76 20 6c Getparent {sv l
3860: 6f 64 6e 61 6d 65 20 70 72 6f 6a 65 63 74 20 69 odname project i
3870: 74 65 6d 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 tems} {..upvar 1
3880: 20 24 73 76 20 73 74 61 74 65 0a 0a 09 73 74 72 $sv state...str
3890: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e uct::list assign
38a0: 20 5b 47 65 74 69 73 64 65 66 61 75 6c 74 20 24 [Getisdefault $
38b0: 69 74 65 6d 73 5d 20 69 73 64 65 66 61 75 6c 74 items] isdefault
38c0: 20 6c 61 73 74 64 65 66 61 75 6c 74 6f 6e 74 72 lastdefaultontr
38d0: 75 6e 6b 0a 0a 09 23 20 53 65 65 20 28 61 29 20 unk...# See (a)
38e0: 62 65 6c 6f 77 2c 20 77 65 20 68 61 76 65 20 74 below, we have t
38f0: 6f 20 72 65 6d 65 6d 62 65 72 20 69 66 20 74 68 o remember if th
3900: 65 20 63 68 61 6e 67 65 73 65 74 20 69 73 20 6c e changeset is l
3910: 61 73 74 0a 09 23 20 6f 6e 20 76 65 6e 64 6f 72 ast..# on vendor
3920: 20 62 72 61 6e 63 68 20 61 6c 73 6f 20 62 65 6c branch also bel
3930: 6f 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 20 onging to trunk
3940: 65 76 65 6e 20 69 66 20 77 65 20 66 69 6e 64 20 even if we find
3950: 61 0a 09 23 20 70 61 72 65 6e 74 20 69 6e 20 74 a..# parent in t
3960: 68 65 20 73 74 61 74 65 2e 20 54 68 65 20 63 61 he state. The ca
3970: 6c 6c 65 72 20 77 69 6c 6c 20 6c 61 74 65 72 20 ller will later
3980: 28 61 66 74 65 72 20 69 6d 70 6f 72 74 29 0a 09 (after import)..
3990: 23 20 6d 61 6b 65 20 75 73 20 74 68 65 20 66 69 # make us the fi
39a0: 72 73 74 20 74 72 75 6e 6b 20 63 68 61 6e 67 65 rst trunk change
39b0: 73 65 74 20 69 6e 20 74 68 65 20 73 74 61 74 65 set in the state
39c0: 20 28 53 65 65 20 28 2a 2a 29 29 2e 0a 0a 09 69 (See (**))....i
39d0: 66 20 7b 24 6c 61 73 74 64 65 66 61 75 6c 74 6f f {$lastdefaulto
39e0: 6e 74 72 75 6e 6b 7d 20 7b 0a 09 20 20 20 20 73 ntrunk} {.. s
39f0: 65 74 20 73 74 61 74 65 28 3a 76 65 6e 64 6f 72 et state(:vendor
3a00: 3a 6c 61 73 74 3a 29 20 2e 0a 09 7d 0a 0a 09 23 :last:) ...}...#
3a10: 20 54 68 65 20 73 74 61 74 65 20 61 72 72 61 79 The state array
3a20: 20 68 6f 6c 64 73 20 66 6f 72 20 65 61 63 68 20 holds for each
3a30: 6c 69 6e 65 2d 6f 66 2d 64 65 76 65 6c 6f 70 6d line-of-developm
3a40: 65 6e 74 20 28 4c 4f 44 29 20 74 68 65 0a 09 23 ent (LOD) the..#
3a50: 20 6c 61 73 74 20 63 6f 6d 6d 69 74 74 65 64 20 last committed
3a60: 63 68 61 6e 67 65 73 65 74 20 62 65 6c 6f 6e 67 changeset belong
3a70: 69 6e 67 20 74 6f 20 74 68 61 74 20 4c 4f 44 2e ing to that LOD.
3a80: 0a 0a 09 23 20 28 2a 29 20 53 74 61 6e 64 61 72 ...# (*) Standar
3a90: 64 20 68 61 6e 64 6c 69 6e 67 20 69 66 20 69 6e d handling if in
3aa0: 2d 4c 4f 44 20 63 68 61 6e 67 65 73 65 74 73 2e -LOD changesets.
3ab0: 20 49 66 20 74 68 65 20 4c 4f 44 20 6f 66 0a 09 If the LOD of..
3ac0: 23 20 20 20 20 20 74 68 65 20 63 75 72 72 65 6e # the curren
3ad0: 74 20 63 68 61 6e 67 65 73 65 74 20 65 78 69 73 t changeset exis
3ae0: 74 73 20 69 6e 20 74 68 65 20 73 74 61 74 65 20 ts in the state
3af0: 28 3d 20 68 61 73 20 62 65 65 6e 0a 09 23 20 20 (= has been..#
3b00: 20 20 20 63 6f 6d 6d 69 74 74 65 64 20 74 6f 29 committed to)
3b10: 20 74 68 65 6e 20 74 68 65 20 73 74 6f 72 65 64 then the stored
3b20: 20 63 68 61 6e 67 65 73 65 74 20 69 73 20 74 68 changeset is th
3b30: 65 20 70 61 72 65 6e 74 20 77 65 0a 09 23 20 20 e parent we..#
3b40: 20 20 20 61 72 65 20 6c 6f 6f 6b 69 6e 67 20 66 are looking f
3b50: 6f 72 2e 0a 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 or....if {[info
3b60: 65 78 69 73 74 73 20 73 74 61 74 65 28 24 6c 6f exists state($lo
3b70: 64 6e 61 6d 65 29 5d 7d 20 7b 0a 09 20 20 20 20 dname)]} {..
3b80: 72 65 74 75 72 6e 20 24 73 74 61 74 65 28 24 6c return $state($l
3b90: 6f 64 6e 61 6d 65 29 0a 09 7d 0a 0a 09 23 20 49 odname)..}...# I
3ba0: 66 20 74 68 65 20 4c 4f 44 20 69 73 20 6e 6f 74 f the LOD is not
3bb0: 20 79 65 74 20 6b 6e 6f 77 6e 20 74 68 65 20 63 yet known the c
3bc0: 75 72 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 urrent changeset
3bd0: 20 63 61 6e 20 65 69 74 68 65 72 0a 09 23 20 62 can either..# b
3be0: 65 0a 09 23 20 28 61 29 20 74 68 65 20 72 6f 6f e..# (a) the roo
3bf0: 74 20 6f 66 20 61 20 76 65 6e 64 6f 72 20 62 72 t of a vendor br
3c00: 61 6e 63 68 2c 0a 09 23 20 28 62 29 20 74 68 65 anch,..# (b) the
3c10: 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 74 72 75 root of the tru
3c20: 6e 6b 20 4c 4f 44 2c 20 6f 72 0a 09 23 20 28 63 nk LOD, or..# (c
3c30: 29 20 74 68 65 20 66 69 72 73 74 20 63 68 61 6e ) the first chan
3c40: 67 65 73 65 74 20 69 6e 20 61 20 6e 65 77 20 4c geset in a new L
3c50: 4f 44 20 77 68 69 63 68 20 77 61 73 20 73 70 61 OD which was spa
3c60: 77 6e 65 64 20 66 72 6f 6d 0a 09 23 20 20 20 20 wned from..#
3c70: 20 61 6e 20 65 78 69 73 74 69 6e 67 20 4c 4f 44 an existing LOD
3c80: 2e 0a 0a 09 69 66 20 7b 24 69 73 64 65 66 61 75 ....if {$isdefau
3c90: 6c 74 7d 20 7b 0a 09 20 20 20 20 23 20 49 6e 20 lt} {.. # In
3ca0: 63 61 73 65 20 6f 66 20 28 61 29 20 74 68 65 20 case of (a) the
3cb0: 63 68 61 6e 67 65 73 65 74 20 68 61 73 20 6e 6f changeset has no
3cc0: 20 70 61 72 65 6e 74 2c 20 73 69 67 6e 61 6c 65 parent, signale
3cd0: 64 20 62 79 0a 09 20 20 20 20 23 20 74 68 65 20 d by.. # the
3ce0: 65 6d 70 74 79 20 73 74 72 69 6e 67 2e 20 57 65 empty string. We
3cf0: 20 64 6f 20 72 65 6d 65 6d 62 65 72 20 69 66 20 do remember if
3d00: 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 69 73 the changeset is
3d10: 0a 09 20 20 20 20 23 20 6c 61 73 74 20 6f 6e 20 .. # last on
3d20: 74 68 65 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 the vendor branc
3d30: 68 20 73 74 69 6c 6c 20 62 65 6c 6f 6e 67 69 6e h still belongin
3d40: 67 20 74 6f 20 74 72 75 6e 6b 2c 20 66 6f 72 0a g to trunk, for.
3d50: 09 20 20 20 20 23 20 74 68 65 20 74 72 75 6e 6b . # the trunk
3d60: 20 72 6f 6f 74 2e 0a 09 20 20 20 20 72 65 74 75 root... retu
3d70: 72 6e 20 7b 7d 0a 09 7d 0a 0a 09 69 66 20 7b 24 rn {}..}...if {$
3d80: 6c 6f 64 6e 61 6d 65 20 65 71 20 22 3a 74 72 75 lodname eq ":tru
3d90: 6e 6b 3a 22 7d 20 7b 0a 09 20 20 20 20 23 20 54 nk:"} {.. # T
3da0: 68 69 73 20 69 73 20 63 61 73 65 20 28 62 29 2c his is case (b),
3db0: 20 61 6e 64 20 77 65 20 61 6c 73 6f 20 63 61 6e and we also can
3dc0: 20 62 65 20 73 75 72 65 20 74 68 61 74 20 74 68 be sure that th
3dd0: 65 72 65 20 69 73 0a 09 20 20 20 20 23 20 6e 6f ere is.. # no
3de0: 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 68 20 63 vendor branch c
3df0: 68 61 6e 67 65 73 65 74 20 77 68 69 63 68 20 63 hangeset which c
3e00: 6f 75 6c 64 20 62 65 20 6f 75 72 0a 09 20 20 20 ould be our..
3e10: 20 23 20 70 61 72 65 6e 74 2e 20 54 68 61 74 20 # parent. That
3e20: 77 61 73 20 61 6c 72 65 61 64 79 20 64 65 61 6c was already deal
3e30: 74 20 77 69 74 68 20 74 68 72 6f 75 67 68 20 74 t with through t
3e40: 68 65 0a 09 20 20 20 20 23 20 3a 76 65 6e 64 6f he.. # :vendo
3e50: 72 3a 6c 61 73 74 3a 20 73 69 67 6e 61 6c 20 61 r:last: signal a
3e60: 6e 64 20 63 6f 64 65 20 69 6e 20 74 68 65 20 63 nd code in the c
3e70: 61 6c 6c 65 72 20 28 73 65 74 74 69 6e 67 0a 09 aller (setting..
3e80: 20 20 20 20 23 20 73 75 63 68 20 61 20 63 68 61 # such a cha
3e90: 6e 67 65 73 65 74 20 75 70 20 61 73 20 70 61 72 ngeset up as par
3ea0: 65 6e 74 20 69 6e 20 74 68 65 20 73 74 61 74 65 ent in the state
3eb0: 2c 20 63 61 75 73 69 6e 67 20 74 68 65 0a 09 20 , causing the..
3ec0: 20 20 20 23 20 73 74 61 6e 64 61 72 64 20 4c 4f # standard LO
3ed0: 44 20 68 61 6e 64 6c 65 72 20 61 74 20 28 2a 29 D handler at (*)
3ee0: 20 74 6f 20 6b 69 63 6b 20 69 6e 2e 20 53 6f 2c to kick in. So,
3ef0: 20 6e 6f 20 70 61 72 65 6e 74 0a 09 20 20 20 20 no parent..
3f00: 23 20 68 65 72 65 20 61 74 20 61 6c 6c 2e 0a 09 # here at all...
3f10: 20 20 20 20 72 65 74 75 72 6e 20 7b 7d 0a 09 7d return {}..}
3f20: 0a 0a 09 23 20 43 61 73 65 20 28 63 29 2e 20 57 ...# Case (c). W
3f30: 65 20 66 69 6e 64 20 74 68 65 20 70 61 72 65 6e e find the paren
3f40: 74 20 4c 4f 44 20 6f 66 20 6f 75 72 20 4c 4f 44 t LOD of our LOD
3f50: 20 61 6e 64 20 74 61 6b 65 20 74 68 65 0a 09 23 and take the..#
3f60: 20 6c 61 73 74 20 63 68 61 6e 67 65 73 65 74 20 last changeset
3f70: 63 6f 6d 6d 69 74 74 65 64 20 74 6f 20 74 68 61 committed to tha
3f80: 74 20 61 73 20 6f 75 72 20 70 61 72 65 6e 74 2e t as our parent.
3f90: 20 49 66 20 74 68 61 74 0a 09 23 20 64 6f 65 73 If that..# does
3fa0: 6e 27 74 20 65 78 69 73 74 20 77 65 20 68 61 76 n't exist we hav
3fb0: 65 20 61 6e 20 65 72 72 6f 72 20 6f 6e 20 6f 75 e an error on ou
3fc0: 72 20 68 61 6e 64 73 2e 0a 0a 09 73 65 74 20 6c r hands....set l
3fd0: 6f 64 6e 61 6d 65 20 5b 5b 5b 24 70 72 6f 6a 65 odname [[[$proje
3fe0: 63 74 20 67 65 74 73 79 6d 62 6f 6c 20 24 6c 6f ct getsymbol $lo
3ff0: 64 6e 61 6d 65 5d 20 70 61 72 65 6e 74 5d 20 6e dname] parent] n
4000: 61 6d 65 5d 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 ame]..if {[info
4010: 65 78 69 73 74 73 20 73 74 61 74 65 28 24 6c 6f exists state($lo
4020: 64 6e 61 6d 65 29 5d 7d 20 7b 0a 09 20 20 20 20 dname)]} {..
4030: 72 65 74 75 72 6e 20 24 73 74 61 74 65 28 24 6c return $state($l
4040: 6f 64 6e 61 6d 65 29 0a 09 7d 0a 0a 09 74 72 6f odname)..}...tro
4050: 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 7b 55 uble internal {U
4060: 6e 61 62 6c 65 20 74 6f 20 64 65 74 65 72 6d 69 nable to determi
4070: 6e 65 20 63 68 61 6e 67 65 73 65 74 20 70 61 72 ne changeset par
4080: 65 6e 74 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 ent}..return.
4090: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 47 65 74 }.. proc Get
40a0: 69 73 64 65 66 61 75 6c 74 20 7b 72 65 76 69 73 isdefault {revis
40b0: 69 6f 6e 73 7d 20 7b 0a 09 73 65 74 20 74 68 65 ions} {..set the
40c0: 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 set ('[join $rev
40d0: 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a isions {','}]').
40e0: 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 ..struct::list a
40f0: 73 73 69 67 6e 20 5b 73 74 61 74 65 20 72 75 6e ssign [state run
4100: 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 [subst -nocomma
4110: 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 nds -nobackslash
4120: 65 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 es {.. SELECT
4130: 20 52 2e 69 73 64 65 66 61 75 6c 74 2c 20 52 2e R.isdefault, R.
4140: 64 62 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f dbchild.. FRO
4150: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 M revision R..
4160: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
4170: 20 49 4e 20 24 74 68 65 73 65 74 20 20 2d 2d 20 IN $theset --
4180: 41 6c 6c 20 73 70 65 63 69 66 69 65 64 20 72 65 All specified re
4190: 76 69 73 69 6f 6e 73 0a 09 20 20 20 20 4c 49 4d visions.. LIM
41a0: 49 54 20 31 0a 09 7d 5d 5d 20 64 65 66 20 6c 61 IT 1..}]] def la
41b0: 73 74 0a 0a 09 23 20 54 4f 44 4f 2f 43 48 45 43 st...# TODO/CHEC
41c0: 4b 3a 20 6c 6f 6f 6b 20 66 6f 72 20 63 68 61 6e K: look for chan
41d0: 67 65 73 65 74 73 20 77 68 65 72 65 20 69 73 64 gesets where isd
41e0: 65 66 61 75 6c 74 2f 64 62 63 68 69 6c 64 20 69 efault/dbchild i
41f0: 73 0a 09 23 20 61 6d 62 69 67 6f 75 73 2e 0a 0a s..# ambigous...
4200: 09 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 24 64 .return [list $d
4210: 65 66 20 5b 65 78 70 72 20 7b 24 6c 61 73 74 20 ef [expr {$last
4220: 6e 65 20 22 22 7d 5d 5d 0a 20 20 20 20 7d 0a 0a ne ""}]]. }..
4230: 20 20 20 20 70 72 6f 63 20 55 70 64 61 74 65 73 proc Updates
4240: 74 61 74 65 20 7b 73 76 20 6c 6f 64 6e 61 6d 65 tate {sv lodname
4250: 20 75 75 69 64 7d 20 7b 0a 09 75 70 76 61 72 20 uuid} {..upvar
4260: 31 20 24 73 76 20 73 74 61 74 65 0a 0a 09 23 20 1 $sv state...#
4270: 52 65 6d 65 6d 62 65 72 20 74 68 65 20 69 6d 70 Remember the imp
4280: 6f 72 74 65 64 20 63 68 61 6e 67 65 73 65 74 20 orted changeset
4290: 69 6e 20 74 68 65 20 73 74 61 74 65 2c 20 75 6e in the state, un
42a0: 64 65 72 20 6f 75 72 0a 09 23 20 4c 4f 44 2e 20 der our..# LOD.
42b0: 28 2a 2a 29 20 41 6e 64 20 69 66 20 74 68 65 20 (**) And if the
42c0: 3a 76 65 6e 64 6f 72 3a 6c 61 73 74 3a 20 73 69 :vendor:last: si
42d0: 67 6e 61 6c 20 69 73 20 70 72 65 73 65 6e 74 20 gnal is present
42e0: 74 68 65 6e 0a 09 23 20 74 68 65 20 72 65 76 69 then..# the revi
42f0: 73 69 6f 6e 20 69 73 20 61 6c 73 6f 20 74 68 65 sion is also the
4300: 20 61 63 74 75 61 6c 20 72 6f 6f 74 20 6f 66 20 actual root of
4310: 74 68 65 20 3a 74 72 75 6e 6b 3a 2c 20 73 6f 0a the :trunk:, so.
4320: 09 23 20 72 65 6d 65 6d 62 65 72 20 69 74 20 61 .# remember it a
4330: 73 20 73 75 63 68 2e 0a 0a 09 73 65 74 20 73 74 s such....set st
4340: 61 74 65 28 24 6c 6f 64 6e 61 6d 65 29 20 24 75 ate($lodname) $u
4350: 75 69 64 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 65 uid..if {[info e
4360: 78 69 73 74 73 20 73 74 61 74 65 28 3a 76 65 6e xists state(:ven
4370: 64 6f 72 3a 6c 61 73 74 3a 29 5d 7d 20 7b 0a 09 dor:last:)]} {..
4380: 20 20 20 20 75 6e 73 65 74 20 73 74 61 74 65 28 unset state(
4390: 3a 76 65 6e 64 6f 72 3a 6c 61 73 74 3a 29 0a 09 :vendor:last:)..
43a0: 20 20 20 20 73 65 74 20 73 74 61 74 65 28 3a 74 set state(:t
43b0: 72 75 6e 6b 3a 29 20 24 75 75 69 64 0a 09 7d 0a runk:) $uuid..}.
43c0: 0a 09 72 65 74 75 72 6e 20 24 75 75 69 64 0a 20 ..return $uuid.
43d0: 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 }.. typeme
43e0: 74 68 6f 64 20 73 70 6c 69 74 20 7b 63 73 65 74 thod split {cset
43f0: 20 61 72 67 73 7d 20 7b 0a 09 23 20 41 73 20 70 args} {..# As p
4400: 61 72 74 20 6f 66 20 74 68 65 20 63 72 65 61 74 art of the creat
4410: 69 6f 6e 20 6f 66 20 74 68 65 20 6e 65 77 20 63 ion of the new c
4420: 68 61 6e 67 65 73 65 74 73 20 73 70 65 63 69 66 hangesets specif
4430: 69 65 64 20 69 6e 0a 09 23 20 41 52 47 53 20 61 ied in..# ARGS a
4440: 73 20 73 65 74 73 20 6f 66 20 69 74 65 6d 73 2c s sets of items,
4450: 20 61 6c 6c 20 73 75 62 73 65 74 73 20 6f 66 20 all subsets of
4460: 43 53 45 54 27 73 20 69 74 65 6d 20 73 65 74 2c CSET's item set,
4470: 20 43 53 45 54 0a 09 23 20 77 69 6c 6c 20 62 65 CSET..# will be
4480: 20 64 72 6f 70 70 65 64 20 66 72 6f 6d 20 61 6c dropped from al
4490: 6c 20 64 61 74 61 62 61 73 65 73 2c 20 69 6e 20 l databases, in
44a0: 61 6e 64 20 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 and out of memor
44b0: 79 2c 0a 09 23 20 61 6e 64 20 74 68 65 6e 20 64 y,..# and then d
44c0: 65 73 74 72 6f 79 65 64 2e 0a 09 23 0a 09 23 20 estroyed...#..#
44d0: 4e 6f 74 65 3a 20 54 68 65 20 69 74 65 6d 20 6c Note: The item l
44e0: 69 73 74 73 20 66 6f 75 6e 64 20 69 6e 20 61 72 ists found in ar
44f0: 67 73 20 61 72 65 20 74 61 67 67 65 64 20 69 74 gs are tagged it
4500: 65 6d 73 2e 20 54 68 65 79 0a 09 23 20 68 61 76 ems. They..# hav
4510: 65 20 74 6f 20 68 61 76 65 20 74 68 65 20 73 61 e to have the sa
4520: 6d 65 20 74 79 70 65 20 61 73 20 74 68 65 20 63 me type as the c
4530: 68 61 6e 67 65 73 65 74 2c 20 62 65 69 6e 67 20 hangeset, being
4540: 73 75 62 73 65 74 73 0a 09 23 20 6f 66 20 69 74 subsets..# of it
4550: 73 20 69 74 65 6d 73 2e 20 54 68 69 73 20 69 73 s items. This is
4560: 20 63 68 65 63 6b 65 64 20 69 6e 20 55 6e 74 61 checked in Unta
4570: 67 31 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 g1....log write
4580: 38 20 63 73 65 74 73 20 7b 4f 4c 44 3a 20 5b 6c 8 csets {OLD: [l
4590: 73 6f 72 74 20 5b 24 63 73 65 74 20 69 74 65 6d sort [$cset item
45a0: 73 5d 5d 7d 0a 09 56 61 6c 69 64 61 74 65 46 72 s]]}..ValidateFr
45b0: 61 67 6d 65 6e 74 73 20 24 63 73 65 74 20 24 61 agments $cset $a
45c0: 72 67 73 0a 0a 09 23 20 41 6c 6c 20 63 68 65 63 rgs...# All chec
45d0: 6b 73 20 70 61 73 73 2c 20 61 63 74 75 61 6c 6c ks pass, actuall
45e0: 79 20 70 65 72 66 6f 72 6d 20 74 68 65 20 73 70 y perform the sp
45f0: 6c 69 74 2e 0a 0a 09 73 74 72 75 63 74 3a 3a 6c lit....struct::l
4600: 69 73 74 20 61 73 73 69 67 6e 20 5b 24 63 73 65 ist assign [$cse
4610: 74 20 64 61 74 61 5d 20 70 72 6f 6a 65 63 74 20 t data] project
4620: 63 73 74 79 70 65 20 63 73 73 72 63 0a 0a 09 73 cstype cssrc...s
4630: 65 74 20 70 72 65 64 65 63 65 73 73 6f 72 73 20 et predecessors
4640: 5b 24 63 73 65 74 20 64 72 6f 70 5d 0a 09 24 63 [$cset drop]..$c
4650: 73 65 74 20 64 65 73 74 72 6f 79 0a 0a 09 73 65 set destroy...se
4660: 74 20 6e 65 77 63 73 65 74 73 20 7b 7d 0a 09 66 t newcsets {}..f
4670: 6f 72 65 61 63 68 20 66 72 61 67 6d 65 6e 74 69 oreach fragmenti
4680: 74 65 6d 73 20 24 61 72 67 73 20 7b 0a 09 20 20 tems $args {..
4690: 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 log write 8 cs
46a0: 65 74 73 20 7b 4d 41 4b 45 3a 20 5b 6c 73 6f 72 ets {MAKE: [lsor
46b0: 74 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 t $fragmentitems
46c0: 5d 7d 0a 0a 09 20 20 20 20 73 65 74 20 66 72 61 ]}... set fra
46d0: 67 6d 65 6e 74 20 5b 24 74 79 70 65 20 25 41 55 gment [$type %AU
46e0: 54 4f 25 20 24 70 72 6f 6a 65 63 74 20 24 63 73 TO% $project $cs
46f0: 74 79 70 65 20 24 63 73 73 72 63 20 5c 0a 09 09 type $cssrc \...
4700: 09 20 20 20 20 20 20 5b 55 6e 74 61 67 20 24 66 . [Untag $f
4710: 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 24 63 73 ragmentitems $cs
4720: 74 79 70 65 5d 5d 0a 09 20 20 20 20 6c 61 70 70 type]].. lapp
4730: 65 6e 64 20 6e 65 77 63 73 65 74 73 20 24 66 72 end newcsets $fr
4740: 61 67 6d 65 6e 74 0a 0a 09 20 20 20 20 24 66 72 agment... $fr
4750: 61 67 6d 65 6e 74 20 70 65 72 73 69 73 74 0a 09 agment persist..
4760: 20 20 20 20 24 66 72 61 67 6d 65 6e 74 20 64 65 $fragment de
4770: 74 65 72 6d 69 6e 65 73 75 63 63 65 73 73 6f 72 terminesuccessor
4780: 73 0a 09 7d 0a 0a 09 23 20 54 68 65 20 70 72 65 s..}...# The pre
4790: 64 65 63 65 73 73 6f 72 73 20 68 61 76 65 20 74 decessors have t
47a0: 6f 20 72 65 63 6f 6d 70 75 74 65 20 74 68 65 69 o recompute thei
47b0: 72 20 73 75 63 63 65 73 73 6f 72 73 2c 20 69 2e r successors, i.
47c0: 65 2e 0a 09 23 20 72 65 6d 6f 76 65 20 74 68 65 e...# remove the
47d0: 20 64 72 6f 70 70 65 64 20 63 68 61 6e 67 65 73 dropped changes
47e0: 65 74 20 61 6e 64 20 70 75 74 20 6f 6e 65 20 6f et and put one o
47f0: 66 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 0a f the fragments.
4800: 09 23 20 69 6e 74 6f 20 69 74 73 20 70 6c 61 63 .# into its plac
4810: 65 2e 0a 09 66 6f 72 65 61 63 68 20 70 20 24 70 e...foreach p $p
4820: 72 65 64 65 63 65 73 73 6f 72 73 20 7b 0a 09 20 redecessors {..
4830: 20 20 20 24 70 20 64 65 74 65 72 6d 69 6e 65 73 $p determines
4840: 75 63 63 65 73 73 6f 72 73 0a 09 7d 0a 0a 09 72 uccessors..}...r
4850: 65 74 75 72 6e 20 24 6e 65 77 63 73 65 74 73 0a eturn $newcsets.
4860: 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d }.. typem
4870: 65 74 68 6f 64 20 69 74 65 6d 73 74 72 20 7b 69 ethod itemstr {i
4880: 74 65 6d 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a tem} {..struct::
4890: 6c 69 73 74 20 61 73 73 69 67 6e 20 24 69 74 65 list assign $ite
48a0: 6d 20 69 74 79 70 65 20 69 69 64 0a 09 72 65 74 m itype iid..ret
48b0: 75 72 6e 20 5b 24 69 74 79 70 65 20 73 74 72 20 urn [$itype str
48c0: 24 69 69 64 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 $iid]. }..
48d0: 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 72 6c typemethod strl
48e0: 69 73 74 20 7b 63 68 61 6e 67 65 73 65 74 73 7d ist {changesets}
48f0: 20 7b 0a 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e {..return [join
4900: 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d [struct::list m
4910: 61 70 20 24 63 68 61 6e 67 65 73 65 74 73 20 5b ap $changesets [
4920: 6d 79 70 72 6f 63 20 49 44 5d 5d 5d 0a 20 20 20 myproc ID]]].
4930: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 44 20 }.. proc ID
4940: 7b 63 73 65 74 7d 20 7b 20 24 63 73 65 74 20 73 {cset} { $cset s
4950: 74 72 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 55 tr }.. proc U
4960: 6e 74 61 67 20 7b 74 61 67 67 65 64 69 74 65 6d ntag {taggeditem
4970: 73 20 63 73 74 79 70 65 7d 20 7b 0a 09 72 65 74 s cstype} {..ret
4980: 75 72 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 urn [struct::lis
4990: 74 20 6d 61 70 20 24 74 61 67 67 65 64 69 74 65 t map $taggedite
49a0: 6d 73 20 5b 6d 79 70 72 6f 63 20 55 6e 74 61 67 ms [myproc Untag
49b0: 31 20 24 63 73 74 79 70 65 5d 5d 0a 20 20 20 20 1 $cstype]].
49c0: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 55 6e 74 61 }.. proc Unta
49d0: 67 31 20 7b 63 73 74 79 70 65 20 74 68 65 69 74 g1 {cstype theit
49e0: 65 6d 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c em} {..struct::l
49f0: 69 73 74 20 61 73 73 69 67 6e 20 24 74 68 65 69 ist assign $thei
4a00: 74 65 6d 20 74 20 69 0a 09 69 6e 74 65 67 72 69 tem t i..integri
4a10: 74 79 20 61 73 73 65 72 74 20 7b 24 63 73 74 79 ty assert {$csty
4a20: 70 65 20 65 71 20 24 74 7d 20 7b 49 74 65 6d 20 pe eq $t} {Item
4a30: 24 69 27 73 20 74 79 70 65 20 69 73 20 27 24 74 $i's type is '$t
4a40: 27 2c 20 65 78 70 65 63 74 65 64 20 27 24 63 73 ', expected '$cs
4a50: 74 79 70 65 27 7d 0a 09 72 65 74 75 72 6e 20 24 type'}..return $
4a60: 69 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f i. }.. pro
4a70: 63 20 54 61 67 49 74 65 6d 44 69 63 74 20 7b 69 c TagItemDict {i
4a80: 74 65 6d 64 69 63 74 20 63 73 74 79 70 65 7d 20 temdict cstype}
4a90: 7b 0a 09 73 65 74 20 72 65 73 20 7b 7d 0a 09 66 {..set res {}..f
4aa0: 6f 72 65 61 63 68 20 7b 69 20 76 7d 20 24 69 74 oreach {i v} $it
4ab0: 65 6d 64 69 63 74 20 7b 20 6c 61 70 70 65 6e 64 emdict { lappend
4ac0: 20 72 65 73 20 5b 6c 69 73 74 20 24 63 73 74 79 res [list $csty
4ad0: 70 65 20 24 69 5d 20 24 76 20 7d 0a 09 72 65 74 pe $i] $v }..ret
4ae0: 75 72 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a urn $res. }..
4af0: 20 20 20 20 70 72 6f 63 20 56 61 6c 69 64 61 74 proc Validat
4b00: 65 46 72 61 67 6d 65 6e 74 73 20 7b 63 73 65 74 eFragments {cset
4b10: 20 66 72 61 67 6d 65 6e 74 73 7d 20 7b 0a 09 23 fragments} {..#
4b20: 20 43 68 65 63 6b 20 74 68 65 20 76 61 72 69 6f Check the vario
4b30: 75 73 20 69 6e 74 65 67 72 69 74 79 20 63 6f 6e us integrity con
4b40: 73 74 72 61 69 6e 74 73 20 66 6f 72 20 74 68 65 straints for the
4b50: 20 66 72 61 67 6d 65 6e 74 73 0a 09 23 20 73 70 fragments..# sp
4b60: 65 63 69 66 79 69 6e 67 20 68 6f 77 20 74 6f 20 ecifying how to
4b70: 73 70 6c 69 74 20 74 68 65 20 63 68 61 6e 67 65 split the change
4b80: 73 65 74 3a 0a 09 23 0a 09 23 20 2a 20 57 65 20 set:..#..# * We
4b90: 6d 75 73 74 20 68 61 76 65 20 74 77 6f 20 6f 72 must have two or
4ba0: 20 6d 6f 72 65 20 66 72 61 67 6d 65 6e 74 73 2c more fragments,
4bb0: 20 61 73 20 73 70 6c 69 74 74 69 6e 67 20 61 0a as splitting a.
4bc0: 09 23 20 20 20 63 68 61 6e 67 65 73 65 74 20 69 .# changeset i
4bd0: 6e 74 6f 20 6f 6e 65 20 6d 61 6b 65 73 20 6e 6f nto one makes no
4be0: 20 73 65 6e 73 65 2e 0a 09 23 20 2a 20 4e 6f 20 sense...# * No
4bf0: 66 72 61 67 6d 65 6e 74 20 6d 61 79 20 62 65 20 fragment may be
4c00: 65 6d 70 74 79 2e 0a 09 23 20 2a 20 41 6c 6c 20 empty...# * All
4c10: 66 72 61 67 6d 65 6e 74 73 20 68 61 76 65 20 74 fragments have t
4c20: 6f 20 62 65 20 74 72 75 65 20 73 75 62 73 65 74 o be true subset
4c30: 73 20 6f 66 20 74 68 65 20 69 74 65 6d 73 20 69 s of the items i
4c40: 6e 20 74 68 65 0a 09 23 20 20 20 63 68 61 6e 67 n the..# chang
4c50: 65 73 65 74 20 74 6f 20 73 70 6c 69 74 2e 20 54 eset to split. T
4c60: 68 65 20 27 74 72 75 65 27 20 69 73 20 69 6d 70 he 'true' is imp
4c70: 6c 69 65 64 20 62 65 63 61 75 73 65 20 6e 6f 6e lied because non
4c80: 65 20 61 72 65 0a 09 23 20 20 20 61 6c 6c 6f 77 e are..# allow
4c90: 65 64 20 74 6f 20 62 65 20 65 6d 70 74 79 2c 20 ed to be empty,
4ca0: 73 6f 20 65 61 63 68 20 68 61 73 20 74 6f 20 62 so each has to b
4cb0: 65 20 73 6d 61 6c 6c 65 72 20 74 68 61 6e 20 74 e smaller than t
4cc0: 68 65 0a 09 23 20 20 20 74 6f 74 61 6c 2e 0a 09 he..# total...
4cd0: 23 20 2a 20 54 68 65 20 75 6e 69 6f 6e 20 6f 66 # * The union of
4ce0: 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 20 68 the fragments h
4cf0: 61 73 20 74 6f 20 62 65 20 74 68 65 20 69 74 65 as to be the ite
4d00: 6d 20 73 65 74 20 6f 66 20 74 68 65 0a 09 23 20 m set of the..#
4d10: 20 20 63 68 61 6e 67 65 73 65 74 2e 0a 09 23 20 changeset...#
4d20: 2a 20 54 68 65 20 66 72 61 67 6d 65 6e 74 20 6d * The fragment m
4d30: 75 73 74 20 6e 6f 74 20 6f 76 65 72 6c 61 70 2c ust not overlap,
4d40: 20 69 2e 65 2e 20 74 68 65 69 72 20 70 61 69 72 i.e. their pair
4d50: 77 69 73 65 0a 09 23 20 20 20 69 6e 74 65 72 73 wise..# inters
4d60: 65 63 74 69 6f 6e 73 20 68 61 76 65 20 74 6f 20 ections have to
4d70: 62 65 20 65 6d 70 74 79 2e 0a 0a 09 73 65 74 20 be empty....set
4d80: 63 6f 76 65 72 20 7b 7d 0a 09 66 6f 72 65 61 63 cover {}..foreac
4d90: 68 20 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 h fragmentitems
4da0: 24 66 72 61 67 6d 65 6e 74 73 20 7b 0a 09 20 20 $fragments {..
4db0: 20 20 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 log write 8 cs
4dc0: 65 74 73 20 7b 4e 45 57 3a 20 5b 6c 73 6f 72 74 ets {NEW: [lsort
4dd0: 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d $fragmentitems]
4de0: 7d 0a 0a 09 20 20 20 20 69 6e 74 65 67 72 69 74 }... integrit
4df0: 79 20 61 73 73 65 72 74 20 7b 0a 09 09 21 5b 73 y assert {...![s
4e00: 74 72 75 63 74 3a 3a 73 65 74 20 65 6d 70 74 79 truct::set empty
4e10: 20 24 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d $fragmentitems]
4e20: 0a 09 20 20 20 20 7d 20 7b 63 68 61 6e 67 65 73 .. } {changes
4e30: 65 74 20 66 72 61 67 6d 65 6e 74 20 69 73 20 65 et fragment is e
4e40: 6d 70 74 79 7d 0a 0a 09 20 20 20 20 69 6e 74 65 mpty}... inte
4e50: 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 grity assert {..
4e60: 09 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 73 75 .[struct::set su
4e70: 62 73 65 74 6f 66 20 24 66 72 61 67 6d 65 6e 74 bsetof $fragment
4e80: 69 74 65 6d 73 20 5b 24 63 73 65 74 20 69 74 65 items [$cset ite
4e90: 6d 73 5d 5d 0a 09 20 20 20 20 7d 20 7b 63 68 61 ms]].. } {cha
4ea0: 6e 67 65 73 65 74 20 66 72 61 67 6d 65 6e 74 20 ngeset fragment
4eb0: 69 73 20 6e 6f 74 20 61 20 73 75 62 73 65 74 7d is not a subset}
4ec0: 0a 09 20 20 20 20 73 74 72 75 63 74 3a 3a 73 65 .. struct::se
4ed0: 74 20 61 64 64 20 63 6f 76 65 72 20 24 66 72 61 t add cover $fra
4ee0: 67 6d 65 6e 74 69 74 65 6d 73 0a 09 7d 0a 0a 09 gmentitems..}...
4ef0: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
4f00: 20 7b 0a 09 20 20 20 20 5b 73 74 72 75 63 74 3a {.. [struct:
4f10: 3a 73 65 74 20 65 71 75 61 6c 20 24 63 6f 76 65 :set equal $cove
4f20: 72 20 5b 24 63 73 65 74 20 69 74 65 6d 73 5d 5d r [$cset items]]
4f30: 0a 09 20 7d 20 7b 54 68 65 20 66 72 61 67 6d 65 .. } {The fragme
4f40: 6e 74 73 20 64 6f 20 6e 6f 74 20 63 6f 76 65 72 nts do not cover
4f50: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 63 68 the original ch
4f60: 61 6e 67 65 73 65 74 7d 0a 0a 09 73 65 74 20 69 angeset}...set i
4f70: 20 31 0a 09 66 6f 72 65 61 63 68 20 66 69 61 20 1..foreach fia
4f80: 24 66 72 61 67 6d 65 6e 74 73 20 7b 0a 09 20 20 $fragments {..
4f90: 20 20 66 6f 72 65 61 63 68 20 66 69 62 20 5b 6c foreach fib [l
4fa0: 72 61 6e 67 65 20 24 66 72 61 67 6d 65 6e 74 73 range $fragments
4fb0: 20 24 69 20 65 6e 64 5d 20 7b 0a 09 09 69 6e 74 $i end] {...int
4fc0: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a egrity assert {.
4fd0: 09 09 20 20 20 20 5b 73 74 72 75 63 74 3a 3a 73 .. [struct::s
4fe0: 65 74 20 65 6d 70 74 79 20 5b 73 74 72 75 63 74 et empty [struct
4ff0: 3a 3a 73 65 74 20 69 6e 74 65 72 73 65 63 74 20 ::set intersect
5000: 24 66 69 61 20 24 66 69 62 5d 5d 0a 09 09 7d 20 $fia $fib]]...}
5010: 7b 54 68 65 20 66 72 61 67 6d 65 6e 74 73 20 3c {The fragments <
5020: 24 66 69 61 3e 20 61 6e 64 20 3c 24 66 69 62 3e $fia> and <$fib>
5030: 20 6f 76 65 72 6c 61 70 7d 0a 09 20 20 20 20 7d overlap}.. }
5040: 0a 09 20 20 20 20 69 6e 63 72 20 69 0a 09 7d 0a .. incr i..}.
5050: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
5060: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
5070: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
5080: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
5090: 23 23 20 53 74 61 74 65 0a 0a 20 20 20 20 76 61 ## State.. va
50a0: 72 69 61 62 6c 65 20 6d 79 69 64 20 20 20 20 20 riable myid
50b0: 20 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f 66 20 {} ; # Id of
50c0: 74 68 65 20 63 73 65 74 20 66 6f 72 20 74 68 65 the cset for the
50d0: 20 70 65 72 73 69 73 74 65 6e 74 0a 09 09 09 20 persistent....
50e0: 20 20 20 20 20 23 20 73 74 61 74 65 2e 0a 20 20 # state..
50f0: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 72 6f variable mypro
5100: 6a 65 63 74 20 20 20 7b 7d 20 3b 20 23 20 52 65 ject {} ; # Re
5110: 66 65 72 65 6e 63 65 20 6f 66 20 74 68 65 20 70 ference of the p
5120: 72 6f 6a 65 63 74 20 6f 62 6a 65 63 74 20 74 68 roject object th
5130: 65 0a 09 09 09 20 20 20 20 20 20 23 20 63 68 61 e.... # cha
5140: 6e 67 65 73 65 74 20 62 65 6c 6f 6e 67 73 20 74 ngeset belongs t
5150: 6f 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 o.. variable
5160: 6d 79 74 79 70 65 20 20 20 20 20 20 7b 7d 20 3b mytype {} ;
5170: 20 23 20 57 68 61 74 20 74 68 65 20 63 68 61 6e # What the chan
5180: 67 65 73 65 74 20 69 73 20 62 61 73 65 64 20 6f geset is based o
5190: 6e 0a 09 09 09 20 20 20 20 20 20 23 20 28 72 65 n.... # (re
51a0: 76 69 73 69 6f 6e 73 2c 20 74 61 67 73 2c 20 6f visions, tags, o
51b0: 72 20 62 72 61 6e 63 68 65 73 29 2e 0a 09 09 09 r branches).....
51c0: 20 20 20 20 20 20 23 20 56 61 6c 75 65 73 3a 20 # Values:
51d0: 53 65 65 20 6d 79 63 73 74 79 70 65 2e 20 4e 6f See mycstype. No
51e0: 74 65 20 74 68 61 74 20 77 65 0a 09 09 09 20 20 te that we....
51f0: 20 20 20 20 23 20 68 61 76 65 20 74 6f 20 6b 65 # have to ke
5200: 65 70 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 ep the names of
5210: 74 68 65 20 68 65 6c 70 65 72 0a 09 09 09 20 20 the helper....
5220: 20 20 20 20 23 20 73 69 6e 67 6c 65 74 6f 6e 73 # singletons
5230: 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 74 68 in sync with th
5240: 65 20 63 6f 6e 74 65 6e 74 73 0a 09 09 09 20 20 e contents....
5250: 20 20 20 20 23 20 6f 66 20 73 74 61 74 65 20 74 # of state t
5260: 61 62 6c 65 20 27 63 73 74 79 70 65 27 2c 20 61 able 'cstype', a
5270: 6e 64 20 76 61 72 69 6f 75 73 0a 09 09 09 20 20 nd various....
5280: 20 20 20 20 23 20 6f 74 68 65 72 20 70 6c 61 63 # other plac
5290: 65 73 20 75 73 69 6e 67 20 74 68 65 6d 20 68 61 es using them ha
52a0: 72 64 77 69 72 65 64 2e 0a 20 20 20 20 76 61 72 rdwired.. var
52b0: 69 61 62 6c 65 20 6d 79 74 79 70 65 6f 62 6a 20 iable mytypeobj
52c0: 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e {} ; # Referen
52d0: 63 65 20 74 6f 20 74 68 65 20 63 6f 6e 74 61 69 ce to the contai
52e0: 6e 65 72 20 66 6f 72 20 74 68 65 0a 09 09 09 20 ner for the....
52f0: 20 20 20 20 20 23 20 74 79 70 65 20 64 65 70 65 # type depe
5300: 6e 64 65 6e 74 20 63 6f 64 65 2e 20 44 65 72 69 ndent code. Deri
5310: 76 65 64 20 66 72 6f 6d 0a 09 09 09 20 20 20 20 ved from....
5320: 20 20 23 20 6d 79 74 79 70 65 2e 0a 20 20 20 20 # mytype..
5330: 76 61 72 69 61 62 6c 65 20 6d 79 73 72 63 69 64 variable mysrcid
5340: 20 20 20 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f {} ; # Id o
5350: 66 20 74 68 65 20 6d 65 74 61 64 61 74 61 20 6f f the metadata o
5360: 72 20 73 79 6d 62 6f 6c 20 74 68 65 20 63 73 65 r symbol the cse
5370: 74 0a 09 09 09 20 20 20 20 20 20 23 20 69 73 20 t.... # is
5380: 62 61 73 65 64 20 6f 6e 2e 0a 20 20 20 20 76 61 based on.. va
5390: 72 69 61 62 6c 65 20 6d 79 69 74 65 6d 73 20 20 riable myitems
53a0: 20 20 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f {} ; # List o
53b0: 66 20 74 68 65 20 66 69 6c 65 20 6c 65 76 65 6c f the file level
53c0: 20 72 65 76 69 73 69 6f 6e 73 2c 0a 09 09 09 20 revisions,....
53d0: 20 20 20 20 20 23 20 74 61 67 73 2c 20 6f 72 20 # tags, or
53e0: 62 72 61 6e 63 68 65 73 20 69 6e 20 74 68 65 20 branches in the
53f0: 63 73 65 74 2c 20 61 73 0a 09 09 09 20 20 20 20 cset, as....
5400: 20 20 23 20 69 64 73 2e 20 4e 6f 74 20 74 61 67 # ids. Not tag
5410: 67 65 64 2e 0a 20 20 20 20 76 61 72 69 61 62 6c ged.. variabl
5420: 65 20 6d 79 74 69 74 65 6d 73 20 20 20 20 7b 7d e mytitems {}
5430: 20 3b 20 23 20 41 73 20 6d 79 69 74 65 6d 73 2c ; # As myitems,
5440: 20 74 68 65 20 74 61 67 67 65 64 20 66 6f 72 6d the tagged form
5450: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
5460: 79 70 6f 73 20 20 20 20 20 20 20 7b 7d 20 3b 20 ypos {} ;
5470: 23 20 43 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f # Commit positio
5480: 6e 20 6f 66 20 74 68 65 20 63 68 61 6e 67 65 73 n of the changes
5490: 65 74 2c 20 69 66 0a 09 09 09 20 20 20 20 20 20 et, if....
54a0: 23 20 6b 6e 6f 77 6e 2e 0a 0a 20 20 20 20 23 20 # known... #
54b0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
54c0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
54d0: 23 23 23 23 23 0a 20 20 20 20 23 23 20 49 6e 74 #####. ## Int
54e0: 65 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 ernal methods..
54f0: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
5500: 6d 79 63 6f 75 6e 74 65 72 20 20 20 20 20 20 20 mycounter
5510: 20 30 20 3b 20 23 20 49 64 20 63 6f 75 6e 74 65 0 ; # Id counte
5520: 72 20 66 6f 72 20 63 73 65 74 73 2e 20 4c 61 73 r for csets. Las
5530: 74 20 69 64 0a 09 09 09 09 20 20 20 20 20 20 23 t id..... #
5540: 20 75 73 65 64 2e 0a 20 20 20 20 74 79 70 65 76 used.. typev
5550: 61 72 69 61 62 6c 65 20 6d 79 63 73 74 79 70 65 ariable mycstype
5560: 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d -array {} ; # M
5570: 61 70 20 63 73 74 79 70 65 73 20 28 6e 61 6d 65 ap cstypes (name
5580: 73 29 20 74 6f 20 70 65 72 73 69 73 74 65 6e 74 s) to persistent
5590: 0a 09 09 09 09 20 20 20 20 20 20 23 20 69 64 73 ..... # ids
55a0: 2e 20 4e 6f 74 65 20 74 68 61 74 20 77 65 20 68 . Note that we h
55b0: 61 76 65 20 74 6f 20 6b 65 65 70 0a 09 09 09 09 ave to keep.....
55c0: 20 20 20 20 20 20 23 20 74 68 65 20 6e 61 6d 65 # the name
55d0: 73 20 69 6e 20 74 68 65 20 74 61 62 6c 65 20 27 s in the table '
55e0: 63 73 74 79 70 65 27 0a 09 09 09 09 20 20 20 20 cstype'.....
55f0: 20 20 23 20 69 6e 20 73 79 6e 63 20 77 69 74 68 # in sync with
5600: 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 the names of th
5610: 65 0a 09 09 09 09 20 20 20 20 20 20 23 20 68 65 e..... # he
5620: 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 73 2e lper singletons.
5630: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
5640: 20 69 6e 6f 72 64 65 72 20 7b 70 72 6f 6a 65 63 inorder {projec
5650: 74 69 64 7d 20 7b 0a 09 23 20 52 65 74 75 72 6e tid} {..# Return
5660: 20 61 6c 6c 20 72 65 76 69 73 69 6f 6e 20 63 68 all revision ch
5670: 61 6e 67 65 73 65 74 73 20 66 6f 72 20 74 68 65 angesets for the
5680: 20 73 70 65 63 69 66 69 65 64 20 70 72 6f 6a 65 specified proje
5690: 63 74 2c 20 69 6e 0a 09 23 20 74 68 65 20 6f 72 ct, in..# the or
56a0: 64 65 72 20 67 69 76 65 6e 20 74 6f 20 74 68 65 der given to the
56b0: 6d 20 62 79 20 74 68 65 20 73 6f 72 74 20 70 61 m by the sort pa
56c0: 73 73 65 73 2e 20 42 6f 74 68 20 74 68 65 0a 09 sses. Both the..
56d0: 23 20 66 69 6c 74 65 72 69 6e 67 20 62 79 20 70 # filtering by p
56e0: 72 6f 6a 65 63 74 20 61 6e 64 20 73 6f 72 74 69 roject and sorti
56f0: 6e 67 20 6d 61 6b 65 20 75 73 65 20 6f 66 20 27 ng make use of '
5700: 70 72 6f 6a 65 63 74 3a 3a 72 65 76 0a 09 23 20 project::rev..#
5710: 72 65 76 27 20 69 6d 70 6f 73 73 69 62 6c 65 2e rev' impossible.
5720: 0a 0a 09 73 65 74 20 72 65 73 20 7b 7d 0a 09 66 ...set res {}..f
5730: 6f 72 65 61 63 68 20 7b 63 69 64 20 63 64 61 74 oreach {cid cdat
5740: 65 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a e} [state run {.
5750: 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 . SELECT C.ci
5760: 64 2c 20 54 2e 64 61 74 65 0a 09 20 20 20 20 46 d, T.date.. F
5770: 52 4f 4d 20 20 20 63 68 61 6e 67 65 73 65 74 20 ROM changeset
5780: 43 2c 20 63 73 74 69 6d 65 73 74 61 6d 70 20 54 C, cstimestamp T
5790: 0a 09 20 20 20 20 57 48 45 52 45 20 20 43 2e 74 .. WHERE C.t
57a0: 79 70 65 20 3d 20 30 20 20 20 20 20 20 20 20 20 ype = 0
57b0: 20 2d 2d 20 6c 69 6d 69 74 20 74 6f 20 72 65 76 -- limit to rev
57c0: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 ision changesets
57d0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e 70 .. AND C.p
57e0: 69 64 20 20 3d 20 24 70 72 6f 6a 65 63 74 69 64 id = $projectid
57f0: 20 2d 2d 20 6c 69 6d 69 74 20 74 6f 20 63 68 61 -- limit to cha
5800: 6e 67 65 73 65 74 73 20 69 6e 20 70 72 6f 6a 65 ngesets in proje
5810: 63 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 ct.. AND T
5820: 2e 63 69 64 20 20 3d 20 43 2e 63 69 64 20 20 20 .cid = C.cid
5830: 20 20 20 2d 2d 20 67 65 74 20 6f 72 64 65 72 69 -- get orderi
5840: 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 09 ng information..
5850: 20 20 20 20 4f 52 44 45 52 20 42 59 20 54 2e 64 ORDER BY T.d
5860: 61 74 65 20 20 20 20 20 20 20 20 20 20 20 20 2d ate -
5870: 2d 20 73 6f 72 74 20 69 6e 74 6f 20 63 6f 6d 6d - sort into comm
5880: 69 74 20 6f 72 64 65 72 0a 09 7d 5d 20 7b 0a 09 it order..}] {..
5890: 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 lappend res
58a0: 24 6d 79 69 64 6d 61 70 28 24 63 69 64 29 20 24 $myidmap($cid) $
58b0: 63 64 61 74 65 0a 09 7d 0a 09 72 65 74 75 72 6e cdate..}..return
58c0: 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 20 20 $res. }..
58d0: 20 74 79 70 65 6d 65 74 68 6f 64 20 67 65 74 63 typemethod getc
58e0: 73 74 79 70 65 73 20 7b 7d 20 7b 0a 09 66 6f 72 stypes {} {..for
58f0: 65 61 63 68 20 7b 74 69 64 20 6e 61 6d 65 7d 20 each {tid name}
5900: 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 [state run {..
5910: 20 20 53 45 4c 45 43 54 20 74 69 64 2c 20 6e 61 SELECT tid, na
5920: 6d 65 20 46 52 4f 4d 20 63 73 74 79 70 65 3b 0a me FROM cstype;.
5930: 09 7d 5d 20 7b 20 73 65 74 20 6d 79 63 73 74 79 .}] { set mycsty
5940: 70 65 28 24 6e 61 6d 65 29 20 24 74 69 64 20 7d pe($name) $tid }
5950: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
5960: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6c typemethod l
5970: 6f 61 64 20 7b 72 65 70 6f 73 69 74 6f 72 79 7d oad {repository}
5980: 20 7b 0a 09 73 65 74 20 6e 20 30 0a 09 6c 6f 67 {..set n 0..log
5990: 20 77 72 69 74 65 20 32 20 63 73 65 74 73 20 7b write 2 csets {
59a0: 4c 6f 61 64 69 6e 67 20 74 68 65 20 63 68 61 6e Loading the chan
59b0: 67 65 73 65 74 73 7d 0a 09 66 6f 72 65 61 63 68 gesets}..foreach
59c0: 20 7b 69 64 20 70 69 64 20 63 73 74 79 70 65 20 {id pid cstype
59d0: 73 72 63 69 64 7d 20 5b 73 74 61 74 65 20 72 75 srcid} [state ru
59e0: 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 n {.. SELECT
59f0: 43 2e 63 69 64 2c 20 43 2e 70 69 64 2c 20 43 53 C.cid, C.pid, CS
5a00: 2e 6e 61 6d 65 2c 20 43 2e 73 72 63 0a 09 20 20 .name, C.src..
5a10: 20 20 46 52 4f 4d 20 20 20 63 68 61 6e 67 65 73 FROM changes
5a20: 65 74 20 43 2c 20 63 73 74 79 70 65 20 43 53 0a et C, cstype CS.
5a30: 09 20 20 20 20 57 48 45 52 45 20 20 43 2e 74 79 . WHERE C.ty
5a40: 70 65 20 3d 20 43 53 2e 74 69 64 0a 09 20 20 20 pe = CS.tid..
5a50: 20 4f 52 44 45 52 20 42 59 20 43 2e 63 69 64 0a ORDER BY C.cid.
5a60: 09 7d 5d 20 7b 0a 09 20 20 20 20 6c 6f 67 20 70 .}] {.. log p
5a70: 72 6f 67 72 65 73 73 20 32 20 63 73 65 74 73 20 rogress 2 csets
5a80: 24 6e 20 7b 7d 0a 09 20 20 20 20 73 65 74 20 72 $n {}.. set r
5a90: 20 5b 24 74 79 70 65 20 25 41 55 54 4f 25 20 5b [$type %AUTO% [
5aa0: 24 72 65 70 6f 73 69 74 6f 72 79 20 70 72 6f 6a $repository proj
5ab0: 65 63 74 6f 66 20 24 70 69 64 5d 20 24 63 73 74 ectof $pid] $cst
5ac0: 79 70 65 20 24 73 72 63 69 64 20 5b 73 74 61 74 ype $srcid [stat
5ad0: 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c 45 43 54 e run {...SELECT
5ae0: 20 43 2e 69 69 64 0a 09 09 46 52 4f 4d 20 20 20 C.iid...FROM
5af0: 63 73 69 74 65 6d 20 43 0a 09 09 57 48 45 52 45 csitem C...WHERE
5b00: 20 20 43 2e 63 69 64 20 3d 20 24 69 64 0a 09 09 C.cid = $id...
5b10: 4f 52 44 45 52 20 42 59 20 43 2e 70 6f 73 0a 09 ORDER BY C.pos..
5b20: 20 20 20 20 7d 5d 20 24 69 64 5d 0a 09 20 20 20 }] $id]..
5b30: 20 69 6e 63 72 20 6e 0a 09 7d 0a 09 72 65 74 75 incr n..}..retu
5b40: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 rn. }.. ty
5b50: 70 65 6d 65 74 68 6f 64 20 6c 6f 61 64 63 6f 75 pemethod loadcou
5b60: 6e 74 65 72 20 7b 7d 20 7b 0a 09 23 20 49 6e 69 nter {} {..# Ini
5b70: 74 69 61 6c 69 7a 65 20 74 68 65 20 63 6f 75 6e tialize the coun
5b80: 74 65 72 20 66 72 6f 6d 20 74 68 65 20 73 74 61 ter from the sta
5b90: 74 65 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 te..log write 2
5ba0: 63 73 65 74 73 20 7b 4c 6f 61 64 69 6e 67 20 63 csets {Loading c
5bb0: 68 61 6e 67 65 73 65 74 20 63 6f 75 6e 74 65 72 hangeset counter
5bc0: 7d 0a 09 73 65 74 20 6d 79 63 6f 75 6e 74 65 72 }..set mycounter
5bd0: 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 [state one { SE
5be0: 4c 45 43 54 20 4d 41 58 28 63 69 64 29 20 46 52 LECT MAX(cid) FR
5bf0: 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 7d 5d 0a OM changeset }].
5c00: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
5c10: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6e 75 typemethod nu
5c20: 6d 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d m {} { return $m
5c30: 79 63 6f 75 6e 74 65 72 20 7d 0a 0a 20 20 20 20 ycounter }..
5c40: 70 72 6f 63 20 49 6e 69 74 69 61 6c 69 7a 65 42 proc InitializeB
5c50: 72 65 61 6b 53 74 61 74 65 20 7b 72 65 76 69 73 reakState {revis
5c60: 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 ions} {..upvar 1
5c70: 20 70 6f 73 20 70 6f 73 20 63 72 6f 73 73 20 63 pos pos cross c
5c80: 72 6f 73 73 20 72 61 6e 67 65 20 72 61 6e 67 65 ross range range
5c90: 20 64 65 70 63 20 64 65 70 63 20 64 65 6c 74 61 depc depc delta
5ca0: 20 64 65 6c 74 61 20 5c 0a 09 20 20 20 20 64 65 delta \.. de
5cb0: 70 65 6e 64 65 6e 63 69 65 73 20 64 65 70 65 6e pendencies depen
5cc0: 64 65 6e 63 69 65 73 0a 0a 09 23 20 46 69 72 73 dencies...# Firs
5cd0: 74 20 77 65 20 63 72 65 61 74 65 20 61 20 6d 61 t we create a ma
5ce0: 70 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 20 74 p of positions t
5cf0: 6f 20 6d 61 6b 65 20 69 74 20 65 61 73 69 65 72 o make it easier
5d00: 20 74 6f 0a 09 23 20 64 65 74 65 72 6d 69 6e 65 to..# determine
5d10: 20 77 68 65 74 68 65 72 20 61 20 64 65 70 65 6e whether a depen
5d20: 64 65 6e 63 79 20 63 72 6f 73 73 65 73 20 61 20 dency crosses a
5d30: 70 61 72 74 69 63 75 6c 61 72 20 69 6e 64 65 78 particular index
5d40: 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 70 6f ....array set po
5d50: 73 20 20 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 s {}..array se
5d60: 74 20 63 72 6f 73 73 20 7b 7d 0a 09 61 72 72 61 t cross {}..arra
5d70: 79 20 73 65 74 20 64 65 70 63 20 20 7b 7d 0a 09 y set depc {}..
5d80: 73 65 74 20 72 61 6e 67 65 20 20 20 20 20 20 20 set range
5d90: 7b 7d 0a 09 73 65 74 20 6e 20 30 0a 09 66 6f 72 {}..set n 0..for
5da0: 65 61 63 68 20 72 65 76 20 24 72 65 76 69 73 69 each rev $revisi
5db0: 6f 6e 73 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 ons {.. lappe
5dc0: 6e 64 20 72 61 6e 67 65 20 24 6e 0a 09 20 20 20 nd range $n..
5dd0: 20 73 65 74 20 70 6f 73 28 24 72 65 76 29 20 24 set pos($rev) $
5de0: 6e 0a 09 20 20 20 20 73 65 74 20 63 72 6f 73 73 n.. set cross
5df0: 28 24 6e 29 20 30 0a 09 20 20 20 20 69 6e 63 72 ($n) 0.. incr
5e00: 20 6e 0a 09 7d 0a 0a 09 23 20 53 65 63 6f 6e 64 n..}...# Second
5e10: 6c 79 20 77 65 20 63 6f 75 6e 74 20 74 68 65 20 ly we count the
5e20: 63 72 6f 73 73 69 6e 67 73 20 70 65 72 20 70 6f crossings per po
5e30: 73 69 74 69 6f 6e 2c 20 62 79 20 69 74 65 72 61 sition, by itera
5e40: 74 69 6e 67 0a 09 23 20 6f 76 65 72 20 74 68 65 ting..# over the
5e50: 20 72 65 63 6f 72 64 65 64 20 69 6e 74 65 72 6e recorded intern
5e60: 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e al dependencies.
5e70: 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 66 20 74 68 ...# Note: If th
5e80: 65 20 74 69 6d 65 73 74 61 6d 70 73 20 61 72 65 e timestamps are
5e90: 20 62 61 64 6c 79 20 6f 75 74 20 6f 66 20 6f 72 badly out of or
5ea0: 64 65 72 20 69 74 20 69 73 0a 09 23 20 20 20 20 der it is..#
5eb0: 20 20 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 68 possible to h
5ec0: 61 76 65 20 61 20 62 61 63 6b 77 61 72 64 20 73 ave a backward s
5ed0: 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e 64 65 uccessor depende
5ee0: 6e 63 79 2c 0a 09 23 20 20 20 20 20 20 20 69 2e ncy,..# i.
5ef0: 65 2e 20 77 69 74 68 20 73 74 61 72 74 20 3e 20 e. with start >
5f00: 65 6e 64 2e 20 57 65 20 6d 61 79 20 68 61 76 65 end. We may have
5f10: 20 74 6f 20 73 77 61 70 20 74 68 65 20 69 6e 64 to swap the ind
5f20: 69 63 65 73 0a 09 23 20 20 20 20 20 20 20 74 6f ices..# to
5f30: 20 65 6e 73 75 72 65 20 74 68 61 74 20 74 68 65 ensure that the
5f40: 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 6f 6f 70 20 following loop
5f50: 72 75 6e 73 20 63 6f 72 72 65 63 74 6c 79 2e 0a runs correctly..
5f60: 09 23 0a 09 23 20 4e 6f 74 65 20 32 3a 20 73 74 .#..# Note 2: st
5f70: 61 72 74 20 3d 3d 20 65 6e 64 20 69 73 20 6e 6f art == end is no
5f80: 74 20 70 6f 73 73 69 62 6c 65 2e 20 49 74 20 69 t possible. It i
5f90: 6e 64 69 63 61 74 65 73 20 61 0a 09 23 20 20 20 ndicates a..#
5fa0: 20 20 20 20 20 20 73 65 6c 66 2d 64 65 70 65 6e self-depen
5fb0: 64 65 6e 63 79 20 64 75 65 20 74 6f 20 74 68 65 dency due to the
5fc0: 20 75 6e 69 71 75 65 6e 65 73 73 20 6f 66 20 70 uniqueness of p
5fd0: 6f 73 69 74 69 6f 6e 73 2c 0a 09 23 20 20 20 20 ositions,..#
5fe0: 20 20 20 20 20 61 6e 64 20 74 68 61 74 20 69 73 and that is
5ff0: 20 73 6f 6d 65 74 68 69 6e 67 20 77 65 20 68 61 something we ha
6000: 76 65 20 72 75 6c 65 64 20 6f 75 74 20 61 6c 72 ve ruled out alr
6010: 65 61 64 79 2c 20 73 65 65 0a 09 23 20 20 20 20 eady, see..#
6020: 20 20 20 20 20 27 72 65 76 20 69 6e 74 65 72 6e 'rev intern
6030: 61 6c 73 75 63 63 65 73 73 6f 72 73 27 2e 0a 0a alsuccessors'...
6040: 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 63 68 .foreach {rid ch
6050: 69 6c 64 72 65 6e 7d 20 5b 61 72 72 61 79 20 67 ildren} [array g
6060: 65 74 20 64 65 70 65 6e 64 65 6e 63 69 65 73 5d et dependencies]
6070: 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 {.. foreach
6080: 63 68 69 6c 64 20 24 63 68 69 6c 64 72 65 6e 20 child $children
6090: 7b 0a 09 09 73 65 74 20 64 6b 65 79 20 20 20 20 {...set dkey
60a0: 5b 6c 69 73 74 20 24 72 69 64 20 24 63 68 69 6c [list $rid $chil
60b0: 64 5d 0a 09 09 73 65 74 20 73 74 61 72 74 20 20 d]...set start
60c0: 20 24 70 6f 73 28 24 72 69 64 29 0a 09 09 73 65 $pos($rid)...se
60d0: 74 20 65 6e 64 20 20 20 20 20 24 70 6f 73 28 24 t end $pos($
60e0: 63 68 69 6c 64 29 0a 09 09 73 65 74 20 63 72 6f child)...set cro
60f0: 73 73 65 73 20 7b 7d 0a 0a 09 09 69 66 20 7b 24 sses {}....if {$
6100: 73 74 61 72 74 20 3e 20 24 65 6e 64 7d 20 7b 0a start > $end} {.
6110: 09 09 20 20 20 20 77 68 69 6c 65 20 7b 24 65 6e .. while {$en
6120: 64 20 3c 20 24 73 74 61 72 74 7d 20 7b 0a 09 09 d < $start} {...
6130: 09 6c 61 70 70 65 6e 64 20 63 72 6f 73 73 65 73 .lappend crosses
6140: 20 24 65 6e 64 0a 09 09 09 69 6e 63 72 20 63 72 $end....incr cr
6150: 6f 73 73 28 24 65 6e 64 29 0a 09 09 09 69 6e 63 oss($end)....inc
6160: 72 20 65 6e 64 0a 09 09 20 20 20 20 7d 0a 09 09 r end... }...
6170: 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 77 } else {... w
6180: 68 69 6c 65 20 7b 24 73 74 61 72 74 20 3c 20 24 hile {$start < $
6190: 65 6e 64 7d 20 7b 0a 09 09 09 6c 61 70 70 65 6e end} {....lappen
61a0: 64 20 63 72 6f 73 73 65 73 20 24 73 74 61 72 74 d crosses $start
61b0: 0a 09 09 09 69 6e 63 72 20 63 72 6f 73 73 28 24 ....incr cross($
61c0: 73 74 61 72 74 29 0a 09 09 09 69 6e 63 72 20 73 start)....incr s
61d0: 74 61 72 74 0a 09 09 20 20 20 20 7d 0a 09 09 7d tart... }...}
61e0: 0a 09 09 73 65 74 20 64 65 70 63 28 24 64 6b 65 ...set depc($dke
61f0: 79 29 20 24 63 72 6f 73 73 65 73 0a 09 20 20 20 y) $crosses..
6200: 20 7d 0a 09 7d 0a 0a 09 49 6e 69 74 69 61 6c 69 }..}...Initiali
6210: 7a 65 44 65 6c 74 61 73 20 24 72 65 76 69 73 69 zeDeltas $revisi
6220: 6f 6e 73 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ons..return.
6230: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 6e 69 74 }.. proc Init
6240: 69 61 6c 69 7a 65 44 65 6c 74 61 73 20 7b 72 65 ializeDeltas {re
6250: 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 visions} {..upva
6260: 72 20 31 20 64 65 6c 74 61 20 64 65 6c 74 61 0a r 1 delta delta.
6270: 0a 09 23 20 50 75 6c 6c 20 74 68 65 20 74 69 6d ..# Pull the tim
6280: 65 73 74 61 6d 70 73 20 66 6f 72 20 61 6c 6c 20 estamps for all
6290: 72 65 76 69 73 69 6f 6e 73 20 69 6e 20 74 68 65 revisions in the
62a0: 20 63 68 61 6e 67 65 73 65 74 73 20 61 6e 64 0a changesets and.
62b0: 09 23 20 63 6f 6d 70 75 74 65 20 74 68 65 69 72 .# compute their
62c0: 20 64 65 6c 74 61 73 20 66 6f 72 20 75 73 65 20 deltas for use
62d0: 62 79 20 74 68 65 20 62 72 65 61 6b 20 66 69 6e by the break fin
62e0: 64 65 72 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 der....array set
62f0: 20 64 65 6c 74 61 20 7b 7d 0a 09 61 72 72 61 79 delta {}..array
6300: 20 73 65 74 20 73 74 61 6d 70 20 7b 7d 0a 0a 09 set stamp {}...
6310: 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f set theset ('[jo
6320: 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 in $revisions {'
6330: 2c 27 7d 5d 27 29 0a 09 66 6f 72 65 61 63 68 20 ,'}]')..foreach
6340: 7b 72 69 64 20 74 69 6d 65 7d 20 5b 73 74 61 74 {rid time} [stat
6350: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
6360: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
6370: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 slashes {.. S
6380: 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 2e 64 ELECT R.rid, R.d
6390: 61 74 65 0a 09 20 20 20 20 46 52 4f 4d 20 72 65 ate.. FROM re
63a0: 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 vision R.. WH
63b0: 45 52 45 20 52 2e 72 69 64 20 49 4e 20 24 74 68 ERE R.rid IN $th
63c0: 65 73 65 74 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 eset..}]] {..
63d0: 20 73 65 74 20 73 74 61 6d 70 28 24 72 69 64 29 set stamp($rid)
63e0: 20 24 74 69 6d 65 0a 09 7d 0a 0a 09 73 65 74 20 $time..}...set
63f0: 6e 20 30 0a 09 66 6f 72 65 61 63 68 20 72 69 64 n 0..foreach rid
6400: 20 5b 6c 72 61 6e 67 65 20 24 72 65 76 69 73 69 [lrange $revisi
6410: 6f 6e 73 20 30 20 65 6e 64 2d 31 5d 20 72 6e 65 ons 0 end-1] rne
6420: 78 74 20 5b 6c 72 61 6e 67 65 20 24 72 65 76 69 xt [lrange $revi
6430: 73 69 6f 6e 73 20 31 20 65 6e 64 5d 20 7b 0a 09 sions 1 end] {..
6440: 20 20 20 20 73 65 74 20 64 65 6c 74 61 28 24 6e set delta($n
6450: 29 20 5b 65 78 70 72 20 7b 24 73 74 61 6d 70 28 ) [expr {$stamp(
6460: 24 72 6e 65 78 74 29 20 2d 20 24 73 74 61 6d 70 $rnext) - $stamp
6470: 28 24 72 69 64 29 7d 5d 0a 09 20 20 20 20 69 6e ($rid)}].. in
6480: 63 72 20 6e 0a 09 7d 0a 09 72 65 74 75 72 6e 0a cr n..}..return.
6490: 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 }.. proc
64a0: 46 69 6e 64 42 65 73 74 42 72 65 61 6b 20 7b 72 FindBestBreak {r
64b0: 61 6e 67 65 7d 20 7b 0a 09 75 70 76 61 72 20 31 ange} {..upvar 1
64c0: 20 63 72 6f 73 73 20 63 72 6f 73 73 20 64 65 6c cross cross del
64d0: 74 61 20 64 65 6c 74 61 0a 0a 09 23 20 44 65 74 ta delta...# Det
64e0: 65 72 6d 69 6e 65 20 74 68 65 20 62 65 73 74 20 ermine the best
64f0: 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e 20 69 break location i
6500: 6e 20 74 68 65 20 67 69 76 65 6e 20 72 61 6e 67 n the given rang
6510: 65 20 6f 66 0a 09 23 20 70 6f 73 69 74 69 6f 6e e of..# position
6520: 73 2e 20 46 69 72 73 74 20 77 65 20 6c 6f 6f 6b s. First we look
6530: 20 66 6f 72 20 74 68 65 20 6c 6f 63 61 74 69 6f for the locatio
6540: 6e 73 20 77 69 74 68 20 74 68 65 20 6d 61 78 69 ns with the maxi
6550: 6d 61 6c 0a 09 23 20 6e 75 6d 62 65 72 20 6f 66 mal..# number of
6560: 20 63 72 6f 73 73 69 6e 67 73 2e 20 49 66 20 74 crossings. If t
6570: 68 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c here are several
6580: 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 74 68 65 we look for the
6590: 0a 09 23 20 73 68 6f 72 74 65 73 74 20 74 69 6d ..# shortest tim
65a0: 65 20 69 6e 74 65 72 76 61 6c 20 61 6d 6f 6e 67 e interval among
65b0: 20 74 68 65 6d 2e 20 49 66 20 77 65 20 73 74 69 them. If we sti
65c0: 6c 6c 20 68 61 76 65 20 6d 75 6c 74 69 70 6c 65 ll have multiple
65d0: 0a 09 23 20 70 6f 73 73 69 62 69 6c 69 74 69 65 ..# possibilitie
65e0: 73 20 61 66 74 65 72 20 74 68 61 74 20 77 65 20 s after that we
65f0: 73 65 6c 65 63 74 20 74 68 65 20 65 61 72 6c 69 select the earli
6600: 65 73 74 20 6c 6f 63 61 74 69 6f 6e 0a 09 23 20 est location..#
6610: 61 6d 6f 6e 67 20 74 68 65 73 65 2e 0a 0a 09 23 among these....#
6620: 20 4e 6f 74 65 3a 20 49 66 20 74 68 65 20 6d 61 Note: If the ma
6630: 78 69 6d 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 ximal number of
6640: 63 72 6f 73 73 69 6e 67 73 20 69 73 20 30 20 74 crossings is 0 t
6650: 68 65 6e 20 74 68 65 20 72 61 6e 67 65 0a 09 23 hen the range..#
6660: 20 20 20 20 20 20 20 68 61 73 20 6e 6f 20 69 6e has no in
6670: 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 ternal dependenc
6680: 69 65 73 2c 20 61 6e 64 20 6e 6f 20 62 72 65 61 ies, and no brea
6690: 6b 20 6c 6f 63 61 74 69 6f 6e 20 61 74 0a 09 23 k location at..#
66a0: 20 20 20 20 20 20 20 61 6c 6c 2e 20 54 68 69 73 all. This
66b0: 20 70 6f 73 73 69 62 69 6c 69 74 79 20 69 73 20 possibility is
66c0: 73 69 67 6e 61 6c 65 64 20 76 69 61 20 72 65 73 signaled via res
66d0: 75 6c 74 20 2d 31 2e 0a 0a 09 23 20 4e 6f 74 65 ult -1....# Note
66e0: 3a 20 41 20 72 61 6e 67 65 20 6f 66 20 6c 65 6e : A range of len
66f0: 67 74 68 20 31 20 6f 72 20 6c 65 73 73 20 63 61 gth 1 or less ca
6700: 6e 6e 6f 74 20 68 61 76 65 20 69 6e 74 65 72 6e nnot have intern
6710: 61 6c 0a 09 23 20 20 20 20 20 20 20 64 65 70 65 al..# depe
6720: 6e 64 65 6e 63 69 65 73 2c 20 61 73 20 74 68 61 ndencies, as tha
6730: 74 20 6e 65 65 64 73 20 61 74 20 6c 65 61 73 74 t needs at least
6740: 20 74 77 6f 20 72 65 76 69 73 69 6f 6e 73 20 69 two revisions i
6750: 6e 0a 09 23 20 20 20 20 20 20 20 74 68 65 20 72 n..# the r
6760: 61 6e 67 65 2e 0a 0a 09 69 66 20 7b 5b 6c 6c 65 ange....if {[lle
6770: 6e 67 74 68 20 24 72 61 6e 67 65 5d 20 3c 20 32 ngth $range] < 2
6780: 7d 20 7b 20 72 65 74 75 72 6e 20 2d 31 20 7d 0a } { return -1 }.
6790: 0a 09 73 65 74 20 6d 61 78 20 2d 31 0a 09 73 65 ..set max -1..se
67a0: 74 20 62 65 73 74 20 7b 7d 0a 0a 09 66 6f 72 65 t best {}...fore
67b0: 61 63 68 20 6c 6f 63 61 74 69 6f 6e 20 24 72 61 ach location $ra
67c0: 6e 67 65 20 7b 0a 09 20 20 20 20 73 65 74 20 63 nge {.. set c
67d0: 72 6f 73 73 69 6e 67 73 20 24 63 72 6f 73 73 28 rossings $cross(
67e0: 24 6c 6f 63 61 74 69 6f 6e 29 0a 09 20 20 20 20 $location)..
67f0: 69 66 20 7b 24 63 72 6f 73 73 69 6e 67 73 20 3e if {$crossings >
6800: 20 24 6d 61 78 7d 20 7b 0a 09 09 73 65 74 20 6d $max} {...set m
6810: 61 78 20 20 24 63 72 6f 73 73 69 6e 67 73 0a 09 ax $crossings..
6820: 09 73 65 74 20 62 65 73 74 20 5b 6c 69 73 74 20 .set best [list
6830: 24 6c 6f 63 61 74 69 6f 6e 5d 0a 09 09 63 6f 6e $location]...con
6840: 74 69 6e 75 65 0a 09 20 20 20 20 7d 20 65 6c 73 tinue.. } els
6850: 65 69 66 20 7b 24 63 72 6f 73 73 69 6e 67 73 20 eif {$crossings
6860: 3d 3d 20 24 6d 61 78 7d 20 7b 0a 09 09 6c 61 70 == $max} {...lap
6870: 70 65 6e 64 20 62 65 73 74 20 24 6c 6f 63 61 74 pend best $locat
6880: 69 6f 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 ion.. }..}...
6890: 69 66 20 7b 24 6d 61 78 20 3d 3d 20 30 7d 20 20 if {$max == 0}
68a0: 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 75 { retu
68b0: 72 6e 20 2d 31 20 7d 0a 09 69 66 20 7b 5b 6c 6c rn -1 }..if {[ll
68c0: 65 6e 67 74 68 20 24 62 65 73 74 5d 20 3d 3d 20 ength $best] ==
68d0: 31 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c 69 6e 1} { return [lin
68e0: 64 65 78 20 24 62 65 73 74 20 30 5d 20 7d 0a 0a dex $best 0] }..
68f0: 09 73 65 74 20 6c 6f 63 61 74 69 6f 6e 73 20 24 .set locations $
6900: 62 65 73 74 0a 09 73 65 74 20 62 65 73 74 20 7b best..set best {
6910: 7d 0a 09 73 65 74 20 6d 69 6e 20 2d 31 0a 0a 09 }..set min -1...
6920: 66 6f 72 65 61 63 68 20 6c 6f 63 61 74 69 6f 6e foreach location
6930: 20 24 6c 6f 63 61 74 69 6f 6e 73 20 7b 0a 09 20 $locations {..
6940: 20 20 20 73 65 74 20 69 6e 74 65 72 76 61 6c 20 set interval
6950: 24 64 65 6c 74 61 28 24 6c 6f 63 61 74 69 6f 6e $delta($location
6960: 29 0a 09 20 20 20 20 69 66 20 7b 28 24 6d 69 6e ).. if {($min
6970: 20 3c 20 30 29 20 7c 7c 20 28 24 69 6e 74 65 72 < 0) || ($inter
6980: 76 61 6c 20 3c 20 24 6d 69 6e 29 7d 20 7b 0a 09 val < $min)} {..
6990: 09 73 65 74 20 6d 69 6e 20 20 24 69 6e 74 65 72 .set min $inter
69a0: 76 61 6c 0a 09 09 73 65 74 20 62 65 73 74 20 5b val...set best [
69b0: 6c 69 73 74 20 24 6c 6f 63 61 74 69 6f 6e 5d 0a list $location].
69c0: 09 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 . } elseif {$
69d0: 69 6e 74 65 72 76 61 6c 20 3d 3d 20 24 6d 69 6e interval == $min
69e0: 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 62 65 } {...lappend be
69f0: 73 74 20 24 6c 6f 63 61 74 69 6f 6e 0a 09 20 20 st $location..
6a00: 20 20 7d 0a 09 7d 0a 0a 09 69 66 20 7b 5b 6c 6c }..}...if {[ll
6a10: 65 6e 67 74 68 20 24 62 65 73 74 5d 20 3d 3d 20 ength $best] ==
6a20: 31 7d 20 7b 20 72 65 74 75 72 6e 20 5b 6c 69 6e 1} { return [lin
6a30: 64 65 78 20 24 62 65 73 74 20 30 5d 20 7d 0a 0a dex $best 0] }..
6a40: 09 72 65 74 75 72 6e 20 5b 6c 69 6e 64 65 78 20 .return [lindex
6a50: 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67 65 72 20 [lsort -integer
6a60: 2d 69 6e 63 72 65 61 73 69 6e 67 20 24 62 65 73 -increasing $bes
6a70: 74 5d 20 30 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 t] 0]. }..
6a80: 20 70 72 6f 63 20 43 75 74 41 74 20 7b 6c 6f 63 proc CutAt {loc
6a90: 61 74 69 6f 6e 7d 20 7b 0a 09 75 70 76 61 72 20 ation} {..upvar
6aa0: 31 20 63 72 6f 73 73 20 63 72 6f 73 73 20 64 65 1 cross cross de
6ab0: 70 63 20 64 65 70 63 0a 0a 09 23 20 49 74 20 77 pc depc...# It w
6ac0: 61 73 20 64 65 63 69 64 65 64 20 74 6f 20 73 70 as decided to sp
6ad0: 6c 69 74 20 74 68 65 20 63 68 61 6e 67 65 73 65 lit the changese
6ae0: 74 20 61 74 20 74 68 65 20 67 69 76 65 6e 0a 09 t at the given..
6af0: 23 20 6c 6f 63 61 74 69 6f 6e 2e 20 54 68 69 73 # location. This
6b00: 20 63 75 74 73 20 61 20 6e 75 6d 62 65 72 20 6f cuts a number o
6b10: 66 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 20 f dependencies.
6b20: 48 65 72 65 20 77 65 20 75 70 64 61 74 65 0a 09 Here we update..
6b30: 23 20 74 68 65 20 63 72 6f 73 73 20 69 6e 66 6f # the cross info
6b40: 72 6d 61 74 69 6f 6e 20 73 6f 20 74 68 61 74 20 rmation so that
6b50: 74 68 65 20 62 72 65 61 6b 20 66 69 6e 64 65 72 the break finder
6b60: 20 68 61 73 20 61 63 63 75 72 61 74 65 0a 09 23 has accurate..#
6b70: 20 64 61 74 61 20 77 68 65 6e 20 77 65 20 6c 6f data when we lo
6b80: 6f 6b 20 61 74 20 74 68 65 20 67 65 6e 65 72 61 ok at the genera
6b90: 74 65 64 20 66 72 61 67 6d 65 6e 74 73 2e 0a 0a ted fragments...
6ba0: 09 73 65 74 20 73 69 78 20 5b 6c 6f 67 20 76 69 .set six [log vi
6bb0: 73 69 62 6c 65 3f 20 36 5d 0a 0a 09 66 6f 72 65 sible? 6]...fore
6bc0: 61 63 68 20 7b 64 65 70 20 72 61 6e 67 65 7d 20 ach {dep range}
6bd0: 5b 61 72 72 61 79 20 67 65 74 20 64 65 70 63 5d [array get depc]
6be0: 20 7b 0a 09 20 20 20 20 23 20 43 68 65 63 6b 20 {.. # Check
6bf0: 61 6c 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 all dependencies
6c00: 20 73 74 69 6c 6c 20 6b 6e 6f 77 6e 2c 20 74 61 still known, ta
6c10: 6b 65 20 74 68 65 69 72 20 72 61 6e 67 65 20 61 ke their range a
6c20: 6e 64 0a 09 20 20 20 20 23 20 73 65 65 20 69 66 nd.. # see if
6c30: 20 74 68 65 20 62 72 65 61 6b 20 6c 6f 63 61 74 the break locat
6c40: 69 6f 6e 20 66 61 6c 6c 73 20 77 69 74 68 69 6e ion falls within
6c50: 2e 0a 0a 09 20 20 20 20 42 6f 72 64 65 72 20 24 .... Border $
6c60: 72 61 6e 67 65 20 73 20 65 0a 09 20 20 20 20 69 range s e.. i
6c70: 66 20 7b 24 6c 6f 63 61 74 69 6f 6e 20 3c 20 24 f {$location < $
6c80: 73 7d 20 63 6f 6e 74 69 6e 75 65 20 3b 20 23 20 s} continue ; #
6c90: 62 72 65 61 6b 20 62 65 66 6f 72 65 20 72 61 6e break before ran
6ca0: 67 65 2c 20 69 67 6e 6f 72 65 0a 09 20 20 20 20 ge, ignore..
6cb0: 69 66 20 7b 24 6c 6f 63 61 74 69 6f 6e 20 3e 20 if {$location >
6cc0: 24 65 7d 20 63 6f 6e 74 69 6e 75 65 20 3b 20 23 $e} continue ; #
6cd0: 20 62 72 65 61 6b 20 61 66 74 65 72 20 72 61 6e break after ran
6ce0: 67 65 2c 20 69 67 6e 6f 72 65 2e 0a 0a 09 20 20 ge, ignore....
6cf0: 20 20 23 20 54 68 69 73 20 64 65 70 65 6e 64 65 # This depende
6d00: 6e 63 79 20 63 72 6f 73 73 65 73 20 74 68 65 20 ncy crosses the
6d10: 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e 2e 20 break location.
6d20: 57 65 20 72 65 6d 6f 76 65 20 69 74 0a 09 20 20 We remove it..
6d30: 20 20 23 20 66 72 6f 6d 20 74 68 65 20 63 72 6f # from the cro
6d40: 73 73 69 6e 67 73 20 63 6f 75 6e 74 65 72 73 2c ssings counters,
6d50: 20 61 6e 64 20 74 68 65 6e 20 61 6c 73 6f 20 66 and then also f
6d60: 72 6f 6d 20 74 68 65 20 73 65 74 0a 09 20 20 20 rom the set..
6d70: 20 23 20 6f 66 20 6b 6e 6f 77 6e 20 64 65 70 65 # of known depe
6d80: 6e 64 65 6e 63 69 65 73 2c 20 61 73 20 77 65 20 ndencies, as we
6d90: 61 72 65 20 64 6f 6e 65 20 77 69 74 68 20 69 74 are done with it
6da0: 2e 0a 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 .... foreach
6db0: 6c 6f 63 20 24 64 65 70 63 28 24 64 65 70 29 20 loc $depc($dep)
6dc0: 7b 20 69 6e 63 72 20 63 72 6f 73 73 28 24 6c 6f { incr cross($lo
6dd0: 63 29 20 2d 31 20 7d 0a 09 20 20 20 20 75 6e 73 c) -1 }.. uns
6de0: 65 74 20 64 65 70 63 28 24 64 65 70 29 0a 0a 09 et depc($dep)...
6df0: 20 20 20 20 69 66 20 7b 21 24 73 69 78 7d 20 63 if {!$six} c
6e00: 6f 6e 74 69 6e 75 65 0a 0a 09 20 20 20 20 73 74 ontinue... st
6e10: 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 ruct::list assig
6e20: 6e 20 24 64 65 70 20 70 61 72 65 6e 74 20 63 68 n $dep parent ch
6e30: 69 6c 64 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 ild.. log wri
6e40: 74 65 20 35 20 63 73 65 74 73 20 22 42 72 6f 6b te 5 csets "Brok
6e50: 65 20 64 65 70 65 6e 64 65 6e 63 79 20 5b 50 44 e dependency [PD
6e60: 20 24 70 61 72 65 6e 74 5d 20 2d 2d 3e 20 5b 50 $parent] --> [P
6e70: 44 20 24 63 68 69 6c 64 5d 22 0a 09 7d 0a 0a 09 D $child]"..}...
6e80: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
6e90: 20 20 23 20 50 72 69 6e 74 20 69 64 65 6e 74 69 # Print identi
6ea0: 66 79 69 6e 67 20 64 61 74 61 20 66 6f 72 20 61 fying data for a
6eb0: 20 72 65 76 69 73 69 6f 6e 20 28 70 72 6f 6a 65 revision (proje
6ec0: 63 74 2c 20 66 69 6c 65 2c 20 64 6f 74 74 65 64 ct, file, dotted
6ed0: 20 72 65 76 0a 20 20 20 20 23 20 6e 75 6d 62 65 rev. # numbe
6ee0: 72 29 2c 20 66 6f 72 20 68 69 67 68 20 76 65 72 r), for high ver
6ef0: 62 6f 73 69 74 79 20 6c 6f 67 20 6f 75 74 70 75 bosity log outpu
6f00: 74 2e 0a 20 20 20 20 23 20 54 4f 44 4f 3a 20 52 t.. # TODO: R
6f10: 65 70 6c 61 63 65 20 77 69 74 68 20 63 61 6c 6c eplace with call
6f20: 20 74 6f 20 69 74 65 6d 73 74 72 20 28 6c 69 73 to itemstr (lis
6f30: 74 20 72 65 76 20 24 69 64 29 0a 0a 20 20 20 20 t rev $id)..
6f40: 70 72 6f 63 20 50 44 20 7b 69 64 7d 20 7b 0a 09 proc PD {id} {..
6f50: 66 6f 72 65 61 63 68 20 7b 70 20 66 20 72 7d 20 foreach {p f r}
6f60: 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 [state run {...S
6f70: 45 4c 45 43 54 20 50 2e 6e 61 6d 65 20 2c 20 46 ELECT P.name , F
6f80: 2e 6e 61 6d 65 2c 20 52 2e 72 65 76 0a 09 09 46 .name, R.rev...F
6f90: 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 ROM revision R,
6fa0: 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 file F, project
6fb0: 50 0a 09 09 57 48 45 52 45 20 52 2e 72 69 64 20 P...WHERE R.rid
6fc0: 3d 20 24 69 64 20 20 20 20 2d 2d 20 46 69 6e 64 = $id -- Find
6fd0: 20 73 70 65 63 69 66 69 65 64 20 66 69 6c 65 20 specified file
6fe0: 72 65 76 69 73 69 6f 6e 0a 09 09 41 4e 44 20 20 revision...AND
6ff0: 20 46 2e 66 69 64 20 3d 20 52 2e 66 69 64 20 20 F.fid = R.fid
7000: 2d 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 20 74 -- Get file of t
7010: 68 65 20 72 65 76 69 73 69 6f 6e 0a 09 09 41 4e he revision...AN
7020: 44 20 20 20 50 2e 70 69 64 20 3d 20 46 2e 70 69 D P.pid = F.pi
7030: 64 20 20 2d 2d 20 47 65 74 20 70 72 6f 6a 65 63 d -- Get projec
7040: 74 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a 09 t of the file...
7050: 7d 5d 20 62 72 65 61 6b 0a 09 72 65 74 75 72 6e }] break..return
7060: 20 22 27 24 70 20 3a 20 24 66 2f 24 72 27 22 0a "'$p : $f/$r'".
7070: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 50 72 69 }.. # Pri
7080: 6e 74 69 6e 67 20 6f 6e 65 20 6f 72 20 6d 6f 72 nting one or mor
7090: 65 20 72 61 6e 67 65 73 2c 20 66 6f 72 6d 61 74 e ranges, format
70a0: 74 65 64 2c 20 61 6e 64 20 6f 6e 6c 79 20 74 68 ted, and only th
70b0: 65 69 72 20 62 6f 72 64 65 72 20 74 6f 0a 20 20 eir border to.
70c0: 20 20 23 20 6b 65 65 70 20 74 68 65 20 73 74 72 # keep the str
70d0: 69 6e 67 73 20 73 68 6f 72 74 2e 0a 0a 20 20 20 ings short...
70e0: 20 70 72 6f 63 20 50 52 73 20 7b 72 61 6e 67 65 proc PRs {range
70f0: 73 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b 73 74 s} {..return [st
7100: 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 24 ruct::list map $
7110: 72 61 6e 67 65 73 20 5b 6d 79 70 72 6f 63 20 50 ranges [myproc P
7120: 52 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 R]]. }.. p
7130: 72 6f 63 20 50 52 20 7b 72 61 6e 67 65 7d 20 7b roc PR {range} {
7140: 0a 09 42 6f 72 64 65 72 20 24 72 61 6e 67 65 20 ..Border $range
7150: 73 20 65 0a 09 72 65 74 75 72 6e 20 3c 24 7b 73 s e..return <${s
7160: 7d 2e 2e 2e 24 7b 65 7d 3e 0a 20 20 20 20 7d 0a }...${e}>. }.
7170: 0a 20 20 20 20 70 72 6f 63 20 42 6f 72 64 65 72 . proc Border
7180: 20 7b 72 61 6e 67 65 20 73 76 20 65 76 7d 20 7b {range sv ev} {
7190: 0a 09 75 70 76 61 72 20 31 20 24 73 76 20 73 20 ..upvar 1 $sv s
71a0: 24 65 76 20 65 0a 09 73 65 74 20 73 20 5b 6c 69 $ev e..set s [li
71b0: 6e 64 65 78 20 24 72 61 6e 67 65 20 30 5d 0a 09 ndex $range 0]..
71c0: 73 65 74 20 65 20 5b 6c 69 6e 64 65 78 20 24 72 set e [lindex $r
71d0: 61 6e 67 65 20 65 6e 64 5d 0a 09 72 65 74 75 72 ange end]..retur
71e0: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 n. }.. # #
71f0: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
7200: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
7210: 23 23 23 23 0a 0a 20 20 20 20 74 79 70 65 76 61 ####.. typeva
7220: 72 69 61 62 6c 65 20 6d 79 63 68 61 6e 67 65 73 riable mychanges
7230: 65 74 73 20 20 20 20 20 20 20 20 20 7b 7d 20 3b ets {} ;
7240: 20 23 20 4c 69 73 74 20 6f 66 20 61 6c 6c 20 6b # List of all k
7250: 6e 6f 77 6e 0a 09 09 09 09 09 20 20 20 23 20 63 nown...... # c
7260: 68 61 6e 67 65 73 65 74 73 2e 0a 20 20 20 20 74 hangesets.. t
7270: 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 74 63 ypevariable mytc
7280: 68 61 6e 67 65 73 65 74 73 20 2d 61 72 72 61 79 hangesets -array
7290: 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 {} ; # List of
72a0: 61 6c 6c 20 6b 6e 6f 77 6e 0a 09 09 09 09 09 20 all known......
72b0: 20 20 23 20 63 68 61 6e 67 65 73 65 74 73 20 6f # changesets o
72c0: 66 20 61 20 74 79 70 65 2e 0a 20 20 20 20 74 79 f a type.. ty
72d0: 70 65 76 61 72 69 61 62 6c 65 20 6d 79 69 74 65 pevariable myite
72e0: 6d 6d 61 70 20 20 20 20 20 2d 61 72 72 61 79 20 mmap -array
72f0: 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d 20 {} ; # Map from
7300: 69 74 65 6d 73 20 28 74 61 67 67 65 64 29 0a 09 items (tagged)..
7310: 09 09 09 09 20 20 20 23 20 74 6f 20 74 68 65 20 .... # to the
7320: 6c 69 73 74 20 6f 66 20 63 68 61 6e 67 65 73 65 list of changese
7330: 74 73 0a 09 09 09 09 09 20 20 20 23 20 63 6f 6e ts...... # con
7340: 74 61 69 6e 69 6e 67 20 69 74 2e 20 45 61 63 68 taining it. Each
7350: 20 69 74 65 6d 0a 09 09 09 09 09 20 20 20 23 20 item...... #
7360: 63 61 6e 20 62 65 20 75 73 65 64 20 62 79 20 6f can be used by o
7370: 6e 6c 79 20 6f 6e 65 0a 09 09 09 09 09 20 20 20 nly one......
7380: 23 20 63 68 61 6e 67 65 73 65 74 2e 0a 20 20 20 # changeset..
7390: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
73a0: 69 64 6d 61 70 20 20 20 2d 61 72 72 61 79 20 7b idmap -array {
73b0: 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d 20 63 } ; # Map from c
73c0: 68 61 6e 67 65 73 65 74 20 69 64 20 74 6f 0a 09 hangeset id to..
73d0: 09 09 09 20 20 20 20 20 20 20 23 20 63 68 61 6e ... # chan
73e0: 67 65 73 65 74 2e 0a 0a 20 20 20 20 74 79 70 65 geset... type
73f0: 6d 65 74 68 6f 64 20 61 6c 6c 20 20 20 20 7b 7d method all {}
7400: 20 20 20 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 { return $my
7410: 63 68 61 6e 67 65 73 65 74 73 20 7d 0a 20 20 20 changesets }.
7420: 20 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 20 20 typemethod of
7430: 20 20 20 7b 63 69 64 7d 20 7b 20 72 65 74 75 72 {cid} { retur
7440: 6e 20 24 6d 79 69 64 6d 61 70 28 24 63 69 64 29 n $myidmap($cid)
7450: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
7460: 64 20 6f 66 69 74 65 6d 20 7b 69 69 64 7d 20 7b d ofitem {iid} {
7470: 20 72 65 74 75 72 6e 20 24 6d 79 69 74 65 6d 6d return $myitemm
7480: 61 70 28 24 69 69 64 29 20 7d 0a 0a 20 20 20 20 ap($iid) }..
7490: 74 79 70 65 6d 65 74 68 6f 64 20 72 65 76 20 20 typemethod rev
74a0: 20 20 7b 7d 20 20 20 20 7b 20 72 65 74 75 72 6e {} { return
74b0: 20 24 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 $mytchangesets(
74c0: 72 65 76 29 20 7d 0a 20 20 20 20 74 79 70 65 6d rev) }. typem
74d0: 65 74 68 6f 64 20 73 79 6d 20 20 20 20 7b 7d 20 ethod sym {}
74e0: 20 20 20 7b 20 72 65 74 75 72 6e 20 5b 63 6f 6e { return [con
74f0: 63 61 74 20 5c 0a 09 09 09 09 09 20 20 24 7b 6d cat \...... ${m
7500: 79 74 63 68 61 6e 67 65 73 65 74 73 28 73 79 6d ytchangesets(sym
7510: 3a 3a 62 72 61 6e 63 68 29 7d 20 5c 0a 09 09 09 ::branch)} \....
7520: 09 09 20 20 24 7b 6d 79 74 63 68 61 6e 67 65 73 .. ${mytchanges
7530: 65 74 73 28 73 79 6d 3a 3a 74 61 67 29 7d 5d 20 ets(sym::tag)}]
7540: 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 }.. # # ## ##
7550: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
7560: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 #############.
7570: 20 20 20 23 23 20 43 6f 6e 66 69 67 75 72 61 74 ## Configurat
7580: 69 6f 6e 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 ion.. pragma
7590: 2d 68 61 73 74 79 70 65 69 6e 66 6f 20 20 20 20 -hastypeinfo
75a0: 6e 6f 20 20 3b 20 23 20 6e 6f 20 74 79 70 65 20 no ; # no type
75b0: 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 introspection.
75c0: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 66 pragma -hasinf
75d0: 6f 20 20 20 20 20 20 20 20 6e 6f 20 20 3b 20 23 o no ; #
75e0: 20 6e 6f 20 6f 62 6a 65 63 74 20 69 6e 74 72 6f no object intro
75f0: 73 70 65 63 74 69 6f 6e 0a 0a 20 20 20 20 23 20 spection.. #
7600: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
7610: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
7620: 23 23 23 23 23 0a 7d 0a 0a 23 23 0a 23 23 20 4e #####.}..##.## N
7630: 4f 54 45 3a 20 54 68 65 20 73 75 63 63 65 73 73 OTE: The success
7640: 6f 72 20 61 6e 64 20 70 72 65 64 65 63 65 73 73 or and predecess
7650: 6f 72 20 6d 65 74 68 6f 64 73 20 64 65 66 69 6e or methods defin
7660: 65 64 20 62 79 20 74 68 65 20 63 6c 61 73 73 65 ed by the classe
7670: 73 0a 23 23 20 20 20 20 20 20 20 62 65 6c 6f 77 s.## below
7680: 20 61 72 65 20 2d 2d 20 62 6f 74 74 6c 65 20 6e are -- bottle n
7690: 65 63 6b 73 20 2d 2d 2e 20 4c 6f 6f 6b 20 66 6f ecks --. Look fo
76a0: 72 20 77 61 79 73 20 74 6f 20 6d 61 6b 65 20 74 r ways to make t
76b0: 68 65 20 53 51 4c 0a 23 23 20 20 20 20 20 20 20 he SQL.##
76c0: 66 61 73 74 65 72 2e 0a 23 23 0a 0a 23 20 23 20 faster..##..# #
76d0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
76e0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
76f0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
7700: 23 23 23 23 23 23 23 23 23 0a 23 23 20 48 65 6c #########.## Hel
7710: 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 2e 20 43 per singleton. C
7720: 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 72 65 76 69 ommands for revi
7730: 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 2e sion changesets.
7740: 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 ..snit::type ::v
7750: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
7760: 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a t::cvs::project:
7770: 3a 72 65 76 3a 3a 72 65 76 20 7b 0a 20 20 20 20 :rev::rev {.
7780: 74 79 70 65 6d 65 74 68 6f 64 20 62 79 72 65 76 typemethod byrev
7790: 69 73 69 6f 6e 20 7b 7d 20 7b 20 72 65 74 75 72 ision {} { retur
77a0: 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 n 1 }. typeme
77b0: 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c 20 20 20 thod bysymbol
77c0: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a {} { return 0 }.
77d0: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 69 typemethod i
77e0: 73 74 61 67 20 20 20 20 20 20 7b 7d 20 7b 20 72 stag {} { r
77f0: 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 74 79 eturn 0 }. ty
7800: 70 65 6d 65 74 68 6f 64 20 69 73 62 72 61 6e 63 pemethod isbranc
7810: 68 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 h {} { return
7820: 30 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 0 }.. typemet
7830: 68 6f 64 20 73 74 72 20 7b 72 65 76 69 73 69 6f hod str {revisio
7840: 6e 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c 69 n} {..struct::li
7850: 73 74 20 61 73 73 69 67 6e 20 5b 73 74 61 74 65 st assign [state
7860: 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 run {.. SELE
7870: 43 54 20 52 2e 72 65 76 2c 20 46 2e 6e 61 6d 65 CT R.rev, F.name
7880: 2c 20 50 2e 6e 61 6d 65 0a 09 20 20 20 20 46 52 , P.name.. FR
7890: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c OM revision R,
78a0: 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 file F, project
78b0: 20 50 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 P.. WHERE R
78c0: 2e 72 69 64 20 3d 20 24 72 65 76 69 73 69 6f 6e .rid = $revision
78d0: 20 2d 2d 20 46 69 6e 64 20 73 70 65 63 69 66 69 -- Find specifi
78e0: 65 64 20 66 69 6c 65 20 72 65 76 69 73 69 6f 6e ed file revision
78f0: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 .. AND F.f
7900: 69 64 20 3d 20 52 2e 66 69 64 20 20 20 20 20 2d id = R.fid -
7910: 2d 20 47 65 74 20 66 69 6c 65 20 6f 66 20 74 68 - Get file of th
7920: 65 20 72 65 76 69 73 69 6f 6e 0a 09 20 20 20 20 e revision..
7930: 41 4e 44 20 20 20 20 50 2e 70 69 64 20 3d 20 46 AND P.pid = F
7940: 2e 70 69 64 20 20 20 20 20 2d 2d 20 47 65 74 20 .pid -- Get
7950: 70 72 6f 6a 65 63 74 20 6f 66 20 74 68 65 20 66 project of the f
7960: 69 6c 65 2e 0a 09 7d 5d 20 72 65 76 6e 72 20 66 ile...}] revnr f
7970: 6e 61 6d 65 20 70 6e 61 6d 65 0a 09 72 65 74 75 name pname..retu
7980: 72 6e 20 22 24 70 6e 61 6d 65 2f 24 7b 72 65 76 rn "$pname/${rev
7990: 6e 72 7d 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 nr}::$fname".
79a0: 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 }.. # result
79b0: 20 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 = list (mintime
79c0: 2c 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 20 74 , maxtime). t
79d0: 79 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 ypemethod timera
79e0: 6e 67 65 20 7b 69 74 65 6d 73 7d 20 7b 0a 09 73 nge {items} {..s
79f0: 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 et theset ('[joi
7a00: 6e 20 24 69 74 65 6d 73 20 7b 27 2c 27 7d 5d 27 n $items {','}]'
7a10: 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 65 )..return [state
7a20: 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 run [subst -noc
7a30: 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 ommands -nobacks
7a40: 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 lashes {.. SE
7a50: 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 65 29 LECT MIN(R.date)
7a60: 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a 09 20 , MAX(R.date)..
7a70: 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e FROM revision
7a80: 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e R.. WHERE R.
7a90: 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 2d rid IN $theset -
7aa0: 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 - Restrict to re
7ab0: 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 visions of inter
7ac0: 65 73 74 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 0a est..}]]. }..
7ad0: 20 20 20 20 23 20 76 61 72 28 64 76 29 20 3d 20 # var(dv) =
7ae0: 64 69 63 74 20 28 72 65 76 69 73 69 6f 6e 20 2d dict (revision -
7af0: 3e 20 6c 69 73 74 20 28 72 65 76 69 73 69 6f 6e > list (revision
7b00: 29 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f )). typemetho
7b10: 64 20 69 6e 74 65 72 6e 61 6c 73 75 63 63 65 73 d internalsucces
7b20: 73 6f 72 73 20 7b 64 76 20 72 65 76 69 73 69 6f sors {dv revisio
7b30: 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 ns} {..upvar 1 $
7b40: 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 73 0a dv dependencies.
7b50: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
7b60: 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 7b oin $revisions {
7b70: 27 2c 27 7d 5d 27 29 0a 0a 09 23 20 53 65 65 20 ','}]')...# See
7b80: 27 73 75 63 63 65 73 73 6f 72 73 27 20 62 65 6c 'successors' bel
7b90: 6f 77 20 66 6f 72 20 74 68 65 20 6d 61 69 6e 20 ow for the main
7ba0: 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f 66 0a 09 explanation of..
7bb0: 23 20 74 68 65 20 76 61 72 69 6f 75 73 20 63 61 # the various ca
7bc0: 73 65 73 2e 20 54 68 69 73 20 70 69 65 63 65 20 ses. This piece
7bd0: 69 73 20 73 70 65 63 69 61 6c 20 69 6e 20 74 68 is special in th
7be0: 61 74 20 69 74 0a 09 23 20 72 65 73 74 72 69 63 at it..# restric
7bf0: 74 73 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 ts the successor
7c00: 73 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 74 6f s we look for to
7c10: 20 74 68 65 20 73 61 6d 65 20 73 65 74 20 6f 66 the same set of
7c20: 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 20 77 65 ..# revisions we
7c30: 20 73 74 61 72 74 20 66 72 6f 6d 2e 20 53 65 6e start from. Sen
7c40: 73 69 62 6c 65 20 61 73 20 77 65 20 61 72 65 20 sible as we are
7c50: 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a 09 23 20 63 looking for..# c
7c60: 68 61 6e 67 65 73 65 74 20 69 6e 74 65 72 6e 61 hangeset interna
7c70: 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a l dependencies..
7c80: 0a 09 61 72 72 61 79 20 73 65 74 20 64 65 70 20 ..array set dep
7c90: 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 {}...foreach {ri
7ca0: 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 d child} [state
7cb0: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
7cc0: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
7cd0: 61 73 68 65 73 20 7b 0a 20 20 20 20 2d 2d 20 28 ashes {. -- (
7ce0: 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 6c 64 1) Primary child
7cf0: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 .. SELECT R.r
7d00: 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 20 20 id, R.child..
7d10: 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e FROM revision
7d20: 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 R.. WHERE R
7d30: 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 .rid IN $these
7d40: 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 t -- Restric
7d50: 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f t to revisions o
7d60: 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 f interest..
7d70: 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 AND R.child I
7d80: 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d S NOT NULL --
7d90: 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 Has primary chi
7da0: 6c 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 ld.. AND R
7db0: 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 73 65 .child IN $these
7dc0: 74 20 20 20 20 20 2d 2d 20 57 68 69 63 68 20 69 t -- Which i
7dd0: 73 20 61 6c 73 6f 20 6f 66 20 69 6e 74 65 72 65 s also of intere
7de0: 73 74 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 st. UNION.
7df0: 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 -- (2) Secondar
7e00: 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 y (branch) child
7e10: 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 ren.. SELECT
7e20: 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a 09 20 R.rid, B.brid..
7e30: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
7e40: 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 62 72 on R, revisionbr
7e50: 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 0a 09 anchchildren B..
7e60: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
7e70: 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 IN $theset
7e80: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
7e90: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e revisions of in
7ea0: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
7eb0: 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 R.rid = B.rid
7ec0: 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c -- Sel
7ed0: 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 ect subset of br
7ee0: 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a 09 20 anch children..
7ef0: 20 20 20 41 4e 44 20 20 20 20 42 2e 62 72 69 64 AND B.brid
7f00: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
7f10: 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c 73 -- Which is als
7f20: 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 20 o of interest.
7f30: 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 UNION. -- (
7f40: 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 4) Child of trun
7f50: 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 k root successor
7f60: 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e of last NTDB on
7f70: 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c trunk... SEL
7f80: 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 68 ECT R.rid, RA.ch
7f90: 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 72 65 ild.. FROM re
7fa0: 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 vision R, revisi
7fb0: 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 52 45 on RA.. WHERE
7fc0: 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 R.rid IN $the
7fd0: 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 73 74 set -- Rest
7fe0: 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e rict to revision
7ff0: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 s of interest..
8000: 20 20 20 41 4e 44 20 20 20 52 2e 69 73 64 65 66 AND R.isdef
8010: 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 20 20 ault
8020: 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 -- Restrict to
8030: 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 20 20 NTDB.. AND
8040: 52 2e 64 62 63 68 69 6c 64 20 49 53 20 4e 4f 54 R.dbchild IS NOT
8050: 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 20 6c NULL -- and l
8060: 61 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e 67 69 ast NTDB belongi
8070: 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 20 20 ng to trunk..
8080: 20 41 4e 44 20 20 20 52 41 2e 72 69 64 20 3d 20 AND RA.rid =
8090: 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 20 2d R.dbchild -
80a0: 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 74 6f - Go directly to
80b0: 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 trunk root..
80c0: 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 20 AND RA.child
80d0: 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d IS NOT NULL -
80e0: 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 - Has primary ch
80f0: 69 6c 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 ild..
8100: 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 20 AND RA.child
8110: 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d IN $theset -
8120: 2d 20 57 68 69 63 68 20 69 73 20 61 6c 73 6f 20 - Which is also
8130: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 7d 5d 5d of interest..}]]
8140: 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e 73 69 64 {.. # Consid
8150: 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 73 20 74 er moving this t
8160: 6f 20 74 68 65 20 69 6e 74 65 67 72 69 74 79 20 o the integrity
8170: 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 69 6e 74 module... int
8180: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 24 egrity assert {$
8190: 72 69 64 20 21 3d 20 24 63 68 69 6c 64 7d 20 7b rid != $child} {
81a0: 52 65 76 69 73 69 6f 6e 20 24 72 69 64 20 64 65 Revision $rid de
81b0: 70 65 6e 64 73 20 6f 6e 20 69 74 73 65 6c 66 2e pends on itself.
81c0: 7d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 }.. lappend d
81d0: 65 70 65 6e 64 65 6e 63 69 65 73 28 24 72 69 64 ependencies($rid
81e0: 29 20 24 63 68 69 6c 64 0a 09 20 20 20 20 73 65 ) $child.. se
81f0: 74 20 64 65 70 28 24 72 69 64 2c 24 63 68 69 6c t dep($rid,$chil
8200: 64 29 20 2e 0a 09 7d 0a 0a 09 23 20 54 68 65 20 d) ...}...# The
8210: 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 61 sql statements a
8220: 62 6f 76 65 20 6c 6f 6f 6b 73 20 6f 6e 6c 79 20 bove looks only
8230: 66 6f 72 20 64 69 72 65 63 74 20 64 65 70 65 6e for direct depen
8240: 64 65 6e 63 69 65 73 0a 09 23 20 62 65 74 77 65 dencies..# betwe
8250: 65 6e 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 74 en revision in t
8260: 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 48 6f he changeset. Ho
8270: 77 65 76 65 72 20 64 75 65 20 74 6f 20 74 68 65 wever due to the
8280: 0a 09 23 20 76 61 67 61 72 69 65 73 20 6f 66 20 ..# vagaries of
8290: 6d 65 74 61 20 64 61 74 61 20 69 74 20 69 73 20 meta data it is
82a0: 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 77 6f possible for two
82b0: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 0a 09 23 revisions of..#
82c0: 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 74 the same file t
82d0: 6f 20 65 6e 64 20 75 70 20 69 6e 20 74 68 65 20 o end up in the
82e0: 73 61 6d 65 20 63 68 61 6e 67 65 73 65 74 2c 20 same changeset,
82f0: 77 69 74 68 6f 75 74 20 61 0a 09 23 20 64 69 72 without a..# dir
8300: 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 20 62 ect dependency b
8310: 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 48 6f 77 etween them. How
8320: 65 76 65 72 20 77 65 20 6b 6e 6f 77 20 74 68 61 ever we know tha
8330: 74 20 74 68 65 72 65 0a 09 23 20 68 61 73 20 74 t there..# has t
8340: 6f 20 62 65 20 61 20 61 6e 20 69 6e 64 69 72 65 o be a an indire
8350: 63 74 20 64 65 70 65 6e 64 65 6e 63 79 2c 20 62 ct dependency, b
8360: 65 20 69 74 20 74 68 72 6f 75 67 68 20 70 72 69 e it through pri
8370: 6d 61 72 79 0a 09 23 20 63 68 69 6c 64 72 65 6e mary..# children
8380: 2c 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 , branch childre
8390: 6e 2c 20 6f 72 20 61 20 63 6f 6d 62 69 6e 61 74 n, or a combinat
83a0: 69 6f 6e 20 74 68 65 72 65 6f 66 2e 0a 0a 09 23 ion thereof....#
83b0: 20 57 65 20 6e 6f 77 20 66 69 6c 6c 20 69 6e 20 We now fill in
83c0: 74 68 65 73 65 20 70 73 65 75 64 6f 2d 64 65 70 these pseudo-dep
83d0: 65 6e 64 65 6e 63 69 65 73 2c 20 69 66 20 6e 6f endencies, if no
83e0: 20 73 75 63 68 0a 09 23 20 64 65 70 65 6e 64 65 such..# depende
83f0: 6e 63 79 20 65 78 69 73 74 73 20 61 6c 72 65 61 ncy exists alrea
8400: 64 79 2e 20 54 68 65 20 64 69 72 65 63 74 69 6f dy. The directio
8410: 6e 20 6f 66 20 74 68 65 20 64 65 70 65 6e 64 65 n of the depende
8420: 6e 63 79 0a 09 23 20 69 73 20 61 63 74 75 61 6c ncy..# is actual
8430: 6c 79 20 69 72 72 65 6c 65 76 61 6e 74 20 66 6f ly irrelevant fo
8440: 72 20 74 68 69 73 2e 0a 0a 09 23 20 4e 4f 54 45 r this....# NOTE
8450: 3a 20 54 68 69 73 20 69 73 20 64 69 66 66 65 72 : This is differ
8460: 65 6e 74 20 66 72 6f 6d 20 63 76 73 32 73 76 6e ent from cvs2svn
8470: 2e 20 4f 75 72 20 73 70 69 72 69 74 75 61 6c 20 . Our spiritual
8480: 61 6e 63 65 73 74 6f 72 0a 09 23 20 64 6f 65 73 ancestor..# does
8490: 20 6e 6f 74 20 75 73 65 20 73 75 63 68 20 70 73 not use such ps
84a0: 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 65 eudo-dependencie
84b0: 73 2c 20 68 6f 77 65 76 65 72 20 69 74 20 75 73 s, however it us
84c0: 65 73 20 61 0a 09 23 20 43 4f 4d 4d 49 54 5f 54 es a..# COMMIT_T
84d0: 48 52 45 53 48 4f 4c 44 2c 20 61 20 74 69 6d 65 HRESHOLD, a time
84e0: 20 69 6e 74 65 72 76 61 6c 20 63 6f 6d 6d 69 74 interval commit
84f0: 73 20 73 68 6f 75 6c 64 20 66 61 6c 6c 2e 20 54 s should fall. T
8500: 68 69 73 0a 09 23 20 77 69 6c 6c 20 67 72 65 61 his..# will grea
8510: 74 6c 79 20 72 65 64 75 63 65 73 20 74 68 65 20 tly reduces the
8520: 72 69 73 6b 20 6f 66 20 67 65 74 74 69 6e 67 20 risk of getting
8530: 66 61 72 20 73 65 70 61 72 61 74 65 64 0a 09 23 far separated..#
8540: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 74 68 revisions of th
8550: 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e 74 6f e same file into
8560: 20 6f 6e 65 20 63 68 61 6e 67 65 73 65 74 2e 0a one changeset..
8570: 0a 09 23 20 57 65 20 61 6c 6c 6f 77 20 72 65 76 ..# We allow rev
8580: 69 73 69 6f 6e 73 20 74 6f 20 62 65 20 66 61 72 isions to be far
8590: 20 61 70 61 72 74 20 69 6e 20 74 69 6d 65 20 69 apart in time i
85a0: 6e 20 74 68 65 20 73 61 6d 65 0a 09 23 20 63 68 n the same..# ch
85b0: 61 6e 67 65 73 65 74 2c 20 62 75 74 20 69 6e 20 angeset, but in
85c0: 74 75 72 6e 20 6e 65 65 64 20 74 68 65 20 70 73 turn need the ps
85d0: 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 65 eudo-dependencie
85e0: 73 20 74 6f 0a 09 23 20 68 61 6e 64 6c 65 20 74 s to..# handle t
85f0: 68 69 73 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 his....array set
8600: 20 66 69 64 73 20 7b 7d 0a 09 66 6f 72 65 61 63 fids {}..foreac
8610: 68 20 7b 72 69 64 20 66 69 64 7d 20 5b 73 74 61 h {rid fid} [sta
8620: 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e te run [subst -n
8630: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 ocommands -nobac
8640: 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 kslashes {..
8650: 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 2e SELECT R.rid, R.
8660: 66 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 fid.
8670: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
8680: 52 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 48 R. WH
8690: 45 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 ERE R.rid IN $t
86a0: 68 65 73 65 74 0a 09 7d 5d 5d 20 7b 20 6c 61 70 heset..}]] { lap
86b0: 70 65 6e 64 20 66 69 64 73 28 24 66 69 64 29 20 pend fids($fid)
86c0: 24 72 69 64 20 7d 0a 0a 09 66 6f 72 65 61 63 68 $rid }...foreach
86d0: 20 7b 66 69 64 20 72 69 64 73 7d 20 5b 61 72 72 {fid rids} [arr
86e0: 61 79 20 67 65 74 20 66 69 64 73 5d 20 7b 0a 09 ay get fids] {..
86f0: 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 if {[llength
8700: 20 24 72 69 64 73 5d 20 3c 20 32 7d 20 63 6f 6e $rids] < 2} con
8710: 74 69 6e 75 65 0a 09 20 20 20 20 66 6f 72 65 61 tinue.. forea
8720: 63 68 20 61 20 24 72 69 64 73 20 7b 0a 09 09 66 ch a $rids {...f
8730: 6f 72 65 61 63 68 20 62 20 24 72 69 64 73 20 7b oreach b $rids {
8740: 0a 09 09 20 20 20 20 69 66 20 7b 24 61 20 3d 3d ... if {$a ==
8750: 20 24 62 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 $b} continue...
8760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
8770: 69 73 74 73 20 64 65 70 28 24 61 2c 24 62 29 5d ists dep($a,$b)]
8780: 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 } continue...
8790: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
87a0: 73 20 64 65 70 28 24 62 2c 24 61 29 5d 7d 20 63 s dep($b,$a)]} c
87b0: 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 6c 61 ontinue... la
87c0: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
87d0: 65 73 28 24 61 29 20 24 62 0a 09 09 20 20 20 20 es($a) $b...
87e0: 73 65 74 20 64 65 70 28 24 61 2c 24 62 29 20 2e set dep($a,$b) .
87f0: 0a 09 09 20 20 20 20 73 65 74 20 64 65 70 28 24 ... set dep($
8800: 62 2c 24 61 29 20 2e 0a 09 09 7d 0a 09 20 20 20 b,$a) ....}..
8810: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
8820: 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c }.. # resul
8830: 74 20 3d 20 34 2d 6c 69 73 74 20 28 69 74 65 6d t = 4-list (item
8840: 74 79 70 65 20 69 74 65 6d 69 64 20 6e 65 78 74 type itemid next
8850: 69 74 65 6d 74 79 70 65 20 6e 65 78 74 69 74 65 itemtype nextite
8860: 6d 69 64 20 2e 2e 2e 29 0a 20 20 20 20 74 79 70 mid ...). typ
8870: 65 6d 65 74 68 6f 64 20 6c 6f 6f 70 73 20 7b 72 emethod loops {r
8880: 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 23 20 4e evisions} {..# N
8890: 6f 74 65 3a 20 54 61 67 73 20 61 6e 64 20 62 72 ote: Tags and br
88a0: 61 6e 63 68 65 73 20 63 61 6e 6e 6f 74 20 63 61 anches cannot ca
88b0: 75 73 65 20 74 68 65 20 6c 6f 6f 70 2e 20 54 68 use the loop. Th
88c0: 65 69 72 20 69 64 27 73 2c 0a 09 23 20 62 65 69 eir id's,..# bei
88d0: 6e 67 20 6f 66 20 61 20 66 75 6e 64 61 6d 65 6e ng of a fundamen
88e0: 74 61 6c 6c 79 20 64 69 66 66 65 72 65 6e 74 20 tally different
88f0: 74 79 70 65 20 74 68 61 6e 20 74 68 65 20 72 65 type than the re
8900: 76 69 73 69 6f 6e 73 0a 09 23 20 63 6f 6d 69 6e visions..# comin
8910: 67 20 69 6e 20 63 61 6e 6e 6f 74 20 62 65 20 69 g in cannot be i
8920: 6e 20 74 68 65 20 73 65 74 2e 0a 0a 09 73 65 74 n the set....set
8930: 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 theset ('[join
8940: 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d $revisions {','}
8950: 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 ]')..return [sta
8960: 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e te run [subst -n
8970: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 ocommands -nobac
8980: 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 kslashes {..
8990: 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 79 20 63 -- (1) Primary c
89a0: 68 69 6c 64 0a 09 20 20 20 20 53 45 4c 45 43 54 hild.. SELECT
89b0: 20 52 2e 72 69 64 2c 20 52 2e 63 68 69 6c 64 0a R.rid, R.child.
89c0: 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 . FROM revi
89d0: 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 52 sion R.. WHER
89e0: 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 E R.rid IN $t
89f0: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 heset -- Res
8a00: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
8a10: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
8a20: 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 68 69 AND R.chi
8a30: 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 ld IS NOT NULL
8a40: 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 -- Has primary
8a50: 20 63 68 69 6c 64 0a 09 20 20 20 20 41 4e 44 20 child.. AND
8a60: 20 20 20 52 2e 63 68 69 6c 64 20 49 4e 20 24 74 R.child IN $t
8a70: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c 6f 6f heset -- Loo
8a80: 70 0a 09 20 20 20 20 2d 2d 0a 09 20 20 20 20 55 p.. --.. U
8a90: 4e 49 4f 4e 0a 09 20 20 20 20 2d 2d 20 28 32 29 NION.. -- (2)
8aa0: 20 53 65 63 6f 6e 64 61 72 79 20 28 62 72 61 6e Secondary (bran
8ab0: 63 68 29 20 63 68 69 6c 64 72 65 6e 0a 09 20 20 ch) children..
8ac0: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
8ad0: 42 2e 62 72 69 64 0a 09 20 20 20 20 46 52 4f 4d B.brid.. FROM
8ae0: 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 revision R, r
8af0: 65 76 69 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 evisionbranchchi
8b00: 6c 64 72 65 6e 20 42 0a 09 20 20 20 20 57 48 45 ldren B.. WHE
8b10: 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 RE R.rid IN $
8b20: 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 theset -- Re
8b30: 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 strict to revisi
8b40: 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a ons of interest.
8b50: 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 72 69 . AND R.ri
8b60: 64 20 3d 20 42 2e 72 69 64 20 20 20 20 20 20 20 d = B.rid
8b70: 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 73 75 62 -- Select sub
8b80: 73 65 74 20 6f 66 20 62 72 61 6e 63 68 20 63 68 set of branch ch
8b90: 69 6c 64 72 65 6e 0a 09 20 20 20 20 41 4e 44 20 ildren.. AND
8ba0: 20 20 20 42 2e 72 69 64 20 20 20 49 4e 20 24 74 B.rid IN $t
8bb0: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 4c 6f 6f heset -- Loo
8bc0: 70 0a 09 20 20 20 20 2d 2d 0a 09 20 20 20 20 55 p.. --.. U
8bd0: 4e 49 4f 4e 0a 09 20 20 20 20 2d 2d 20 28 34 29 NION.. -- (4)
8be0: 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 6b 20 Child of trunk
8bf0: 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 20 6f root successor o
8c00: 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e 20 74 f last NTDB on t
8c10: 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c 45 43 runk... SELEC
8c20: 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 68 69 6c T R.rid, RA.chil
8c30: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 d.. FROM re
8c40: 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 vision R, revisi
8c50: 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 52 45 on RA.. WHERE
8c60: 20 20 52 2e 72 69 64 20 20 20 20 49 4e 20 24 74 R.rid IN $t
8c70: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 heset -- Res
8c80: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
8c90: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
8ca0: 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 73 64 AND R.isd
8cb0: 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 efault
8cc0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
8cd0: 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 o NTDB.. AND
8ce0: 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 R.dbchild IS
8cf0: 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e NOT NULL -- an
8d00: 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f d last NTDB belo
8d10: 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 nging to trunk..
8d20: 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e 72 69 AND RA.ri
8d30: 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 20 d = R.dbchild
8d40: 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c -- Go directl
8d50: 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a y to trunk root.
8d60: 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e 63 . AND RA.c
8d70: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
8d80: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
8d90: 72 79 20 63 68 69 6c 64 2e 0a 09 20 20 20 20 41 ry child... A
8da0: 4e 44 20 20 20 20 52 41 2e 63 68 69 6c 64 20 49 ND RA.child I
8db0: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
8dc0: 20 4c 6f 6f 70 0a 09 7d 5d 5d 0a 20 20 20 20 7d Loop..}]]. }
8dd0: 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 29 20 .. # var(dv)
8de0: 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d 3e 20 = dict (item ->
8df0: 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 69 74 list (item)), it
8e00: 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 70 65 em = list (type
8e10: 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 id). typemet
8e20: 68 6f 64 20 73 75 63 63 65 73 73 6f 72 73 20 7b hod successors {
8e30: 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a dv revisions} {.
8e40: 09 75 70 76 61 72 20 31 20 24 64 76 20 64 65 70 .upvar 1 $dv dep
8e50: 65 6e 64 65 6e 63 69 65 73 0a 09 73 65 74 20 74 endencies..set t
8e60: 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 heset ('[join $r
8e70: 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 evisions {','}]'
8e80: 29 0a 0a 09 23 20 54 68 65 20 66 6f 6c 6c 6f 77 )...# The follow
8e90: 69 6e 67 20 63 61 73 65 73 20 73 70 65 63 69 66 ing cases specif
8ea0: 79 20 77 68 65 6e 20 61 20 72 65 76 69 73 69 6f y when a revisio
8eb0: 6e 20 53 20 69 73 20 61 20 73 75 63 63 65 73 73 n S is a success
8ec0: 6f 72 0a 09 23 20 6f 66 20 61 20 72 65 76 69 73 or..# of a revis
8ed0: 69 6f 6e 20 52 2e 20 45 61 63 68 20 6f 66 20 74 ion R. Each of t
8ee0: 68 65 20 63 61 73 65 73 20 74 72 61 6e 73 6c 61 he cases transla
8ef0: 74 65 73 20 69 6e 74 6f 20 6f 6e 65 20 6f 66 0a tes into one of.
8f00: 09 23 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 .# the branches
8f10: 6f 66 20 74 68 65 20 53 51 4c 20 55 4e 49 4f 4e of the SQL UNION
8f20: 20 63 6f 6d 69 6e 67 20 62 65 6c 6f 77 2e 0a 09 coming below...
8f30: 23 0a 09 23 20 28 31 29 20 53 20 63 61 6e 20 62 #..# (1) S can b
8f40: 65 20 61 20 70 72 69 6d 61 72 79 20 63 68 69 6c e a primary chil
8f50: 64 20 6f 66 20 52 2c 20 69 2e 65 2e 20 69 6e 20 d of R, i.e. in
8f60: 74 68 65 20 73 61 6d 65 20 4c 4f 44 2e 20 52 0a the same LOD. R.
8f70: 09 23 20 20 20 20 20 72 65 66 65 72 65 6e 63 65 .# reference
8f80: 73 20 53 20 64 69 72 65 63 74 6c 79 2e 20 52 2e s S directly. R.
8f90: 63 68 69 6c 64 20 3d 20 53 28 2e 72 69 64 29 2c child = S(.rid),
8fa0: 20 69 66 20 69 74 20 65 78 69 73 74 73 2e 0a 09 if it exists...
8fb0: 23 0a 09 23 20 28 32 29 20 53 20 63 61 6e 20 62 #..# (2) S can b
8fc0: 65 20 61 20 73 65 63 6f 6e 64 61 72 79 2c 20 69 e a secondary, i
8fd0: 2e 65 2e 20 62 72 61 6e 63 68 2c 20 63 68 69 6c .e. branch, chil
8fe0: 64 20 6f 66 20 52 2e 20 48 65 72 65 20 74 68 65 d of R. Here the
8ff0: 0a 09 23 20 20 20 20 20 6c 69 6e 6b 20 69 73 20 ..# link is
9000: 6d 61 64 65 20 74 68 72 6f 75 67 68 20 74 68 65 made through the
9010: 20 68 65 6c 70 65 72 20 74 61 62 6c 65 0a 09 23 helper table..#
9020: 20 20 20 20 20 52 45 56 49 53 49 4f 4e 42 52 41 REVISIONBRA
9030: 4e 43 48 43 48 49 4c 44 52 45 4e 2e 20 52 2e 72 NCHCHILDREN. R.r
9040: 69 64 20 2d 3e 20 52 42 43 2e 72 69 64 2c 20 52 id -> RBC.rid, R
9050: 42 43 2e 62 72 69 64 20 3d 0a 09 23 20 20 20 20 BC.brid =..#
9060: 20 53 28 2e 72 69 64 29 0a 09 23 0a 09 23 20 28 S(.rid)..#..# (
9070: 33 29 20 4f 72 69 67 69 6e 61 6c 6c 79 20 74 68 3) Originally th
9080: 69 73 20 75 73 65 20 63 61 73 65 20 64 65 66 69 is use case defi
9090: 6e 65 64 20 74 68 65 20 72 6f 6f 74 20 6f 66 20 ned the root of
90a0: 61 20 64 65 74 61 63 68 65 64 0a 09 23 20 20 20 a detached..#
90b0: 20 20 4e 54 44 42 20 61 73 20 74 68 65 20 73 75 NTDB as the su
90c0: 63 63 65 73 73 6f 72 20 6f 66 20 74 68 65 20 74 ccessor of the t
90d0: 72 75 6e 6b 20 72 6f 6f 74 2e 20 54 68 69 73 20 runk root. This
90e0: 6c 65 61 64 73 20 74 6f 20 61 0a 09 23 20 20 20 leads to a..#
90f0: 20 20 62 61 64 20 74 61 6e 67 6c 65 20 6c 61 74 bad tangle lat
9100: 65 72 20 6f 6e 2e 20 57 69 74 68 20 61 20 64 65 er on. With a de
9110: 74 61 63 68 65 64 20 4e 54 44 42 20 74 68 65 20 tached NTDB the
9120: 6f 72 69 67 69 6e 61 6c 0a 09 23 20 20 20 20 20 original..#
9130: 74 72 75 6e 6b 20 72 6f 6f 74 20 72 65 76 69 73 trunk root revis
9140: 69 6f 6e 20 77 61 73 20 72 65 6d 6f 76 65 64 20 ion was removed
9150: 61 73 20 69 72 72 65 6c 65 76 61 6e 74 2c 20 61 as irrelevant, a
9160: 6c 6c 6f 77 69 6e 67 0a 09 23 20 20 20 20 20 74 llowing..# t
9170: 68 65 20 6e 6f 6d 69 6e 61 6c 20 72 6f 6f 74 20 he nominal root
9180: 74 6f 20 62 65 20 6c 61 74 65 72 20 69 6e 20 74 to be later in t
9190: 69 6d 65 20 74 68 61 6e 20 74 68 65 20 4e 54 44 ime than the NTD
91a0: 42 0a 09 23 20 20 20 20 20 72 6f 6f 74 2e 20 4e B..# root. N
91b0: 6f 77 20 73 65 74 74 69 6e 67 20 74 68 69 73 20 ow setting this
91c0: 64 65 70 65 6e 64 65 6e 63 79 20 77 69 6c 6c 20 dependency will
91d0: 62 65 20 62 61 63 6b 77 61 72 64 20 69 6e 0a 09 be backward in..
91e0: 23 20 20 20 20 20 74 69 6d 65 2e 20 52 45 4d 4f # time. REMO
91f0: 56 45 44 2e 0a 09 23 0a 09 23 20 28 34 29 20 49 VED...#..# (4) I
9200: 66 20 52 20 69 73 20 74 68 65 20 6c 61 73 74 20 f R is the last
9210: 6f 66 20 74 68 65 20 4e 54 44 42 20 72 65 76 69 of the NTDB revi
9220: 73 69 6f 6e 73 20 77 68 69 63 68 20 62 65 6c 6f sions which belo
9230: 6e 67 20 74 6f 0a 09 23 20 20 20 20 20 74 68 65 ng to..# the
9240: 20 74 72 75 6e 6b 2c 20 74 68 65 6e 20 74 68 65 trunk, then the
9250: 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 20 6f primary child o
9260: 66 20 74 68 65 20 74 72 75 6e 6b 20 72 6f 6f 74 f the trunk root
9270: 20 28 74 68 65 0a 09 23 20 20 20 20 20 27 31 2e (the..# '1.
9280: 32 27 20 72 65 76 69 73 69 6f 6e 29 20 69 73 20 2' revision) is
9290: 61 20 73 75 63 63 65 73 73 6f 72 2c 20 69 66 20 a successor, if
92a0: 69 74 20 65 78 69 73 74 73 2e 0a 0a 09 23 20 4e it exists....# N
92b0: 6f 74 65 20 74 68 61 74 20 74 68 65 20 62 72 61 ote that the bra
92c0: 6e 63 68 65 73 20 73 70 61 77 6e 65 64 20 66 72 nches spawned fr
92d0: 6f 6d 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 om the revisions
92e0: 2c 20 61 6e 64 20 74 68 65 0a 09 23 20 74 61 67 , and the..# tag
92f0: 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 s associated wit
9300: 68 20 74 68 65 6d 20 61 72 65 20 73 75 63 63 65 h them are succe
9310: 73 73 6f 72 73 20 61 73 20 77 65 6c 6c 2e 0a 0a ssors as well...
9320: 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 63 68 .foreach {rid ch
9330: 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 ild} [state run
9340: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
9350: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
9360: 73 20 7b 0a 20 20 20 20 2d 2d 20 28 31 29 20 50 s {. -- (1) P
9370: 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 09 20 20 rimary child..
9380: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
9390: 52 2e 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f R.child.. FRO
93a0: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 M revision R..
93b0: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
93c0: 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 IN $theset
93d0: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
93e0: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e revisions of in
93f0: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
9400: 20 20 20 52 2e 63 68 69 6c 64 20 49 53 20 4e 4f R.child IS NO
9410: 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 61 73 T NULL -- Has
9420: 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 20 primary child.
9430: 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 UNION. --
9440: 28 32 29 20 53 65 63 6f 6e 64 61 72 79 20 28 62 (2) Secondary (b
9450: 72 61 6e 63 68 29 20 63 68 69 6c 64 72 65 6e 0a ranch) children.
9460: 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 . SELECT R.ri
9470: 64 2c 20 42 2e 62 72 69 64 0a 09 20 20 20 20 46 d, B.brid.. F
9480: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
9490: 2c 20 72 65 76 69 73 69 6f 6e 62 72 61 6e 63 68 , revisionbranch
94a0: 63 68 69 6c 64 72 65 6e 20 42 0a 09 20 20 20 20 children B..
94b0: 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 WHERE R.rid I
94c0: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
94d0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
94e0: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
94f0: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 st.. AND R
9500: 2e 72 69 64 20 3d 20 42 2e 72 69 64 20 20 20 20 .rid = B.rid
9510: 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 -- Select
9520: 73 75 62 73 65 74 20 6f 66 20 62 72 61 6e 63 68 subset of branch
9530: 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 55 4e children. UN
9540: 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 34 29 20 43 ION. -- (4) C
9550: 68 69 6c 64 20 6f 66 20 74 72 75 6e 6b 20 72 6f hild of trunk ro
9560: 6f 74 20 73 75 63 63 65 73 73 6f 72 20 6f 66 20 ot successor of
9570: 6c 61 73 74 20 4e 54 44 42 20 6f 6e 20 74 72 75 last NTDB on tru
9580: 6e 6b 2e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 nk... SELECT
9590: 52 2e 72 69 64 2c 20 52 41 2e 63 68 69 6c 64 0a R.rid, RA.child.
95a0: 09 20 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 . FROM revisi
95b0: 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 on R, revision R
95c0: 41 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e 72 A.. WHERE R.r
95d0: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
95e0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
95f0: 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 to revisions of
9600: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
9610: 4e 44 20 20 20 52 2e 69 73 64 65 66 61 75 6c 74 ND R.isdefault
9620: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 --
9630: 52 65 73 74 72 69 63 74 20 74 6f 20 4e 54 44 42 Restrict to NTDB
9640: 0a 09 20 20 20 20 41 4e 44 20 20 20 52 2e 64 62 .. AND R.db
9650: 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c child IS NOT NUL
9660: 4c 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 74 20 L -- and last
9670: 4e 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 20 74 NTDB belonging t
9680: 6f 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 4e 44 o trunk.. AND
9690: 20 20 20 52 41 2e 72 69 64 20 3d 20 52 2e 64 62 RA.rid = R.db
96a0: 63 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 47 6f child -- Go
96b0: 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 72 75 directly to tru
96c0: 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 4e 44 nk root.. AND
96d0: 20 20 20 52 41 2e 63 68 69 6c 64 20 49 53 20 4e RA.child IS N
96e0: 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 61 OT NULL -- Ha
96f0: 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 2e s primary child.
9700: 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 23 20 43 ..}]] {.. # C
9710: 6f 6e 73 69 64 65 72 20 6d 6f 76 69 6e 67 20 74 onsider moving t
9720: 68 69 73 20 74 6f 20 74 68 65 20 69 6e 74 65 67 his to the integ
9730: 72 69 74 79 20 6d 6f 64 75 6c 65 2e 0a 09 20 20 rity module...
9740: 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 integrity asse
9750: 72 74 20 7b 24 72 69 64 20 21 3d 20 24 63 68 69 rt {$rid != $chi
9760: 6c 64 7d 20 7b 52 65 76 69 73 69 6f 6e 20 24 72 ld} {Revision $r
9770: 69 64 20 64 65 70 65 6e 64 73 20 6f 6e 20 69 74 id depends on it
9780: 73 65 6c 66 2e 7d 0a 09 20 20 20 20 6c 61 70 70 self.}.. lapp
9790: 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 end dependencies
97a0: 28 5b 6c 69 73 74 20 72 65 76 20 24 72 69 64 5d ([list rev $rid]
97b0: 29 20 5b 6c 69 73 74 20 72 65 76 20 24 63 68 69 ) [list rev $chi
97c0: 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 68 20 ld]..}..foreach
97d0: 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 {rid child} [sta
97e0: 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e te run [subst -n
97f0: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 ocommands -nobac
9800: 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 kslashes {..
9810: 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 54 2e SELECT R.rid, T.
9820: 74 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 tid.. FROM
9830: 72 65 76 69 73 69 6f 6e 20 52 2c 20 74 61 67 20 revision R, tag
9840: 54 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e T.. WHERE R.
9850: 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 rid IN $theset
9860: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
9870: 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 to revisions of
9880: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
9890: 4e 44 20 20 20 20 54 2e 72 65 76 20 3d 20 52 2e ND T.rev = R.
98a0: 72 69 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 rid --
98b0: 53 65 6c 65 63 74 20 74 61 67 73 20 61 74 74 61 Select tags atta
98c0: 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 09 7d 5d ched to them..}]
98d0: 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 ] {.. lappend
98e0: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 5b 6c dependencies([l
98f0: 69 73 74 20 72 65 76 20 24 72 69 64 5d 29 20 5b ist rev $rid]) [
9900: 6c 69 73 74 20 73 79 6d 3a 3a 74 61 67 20 24 63 list sym::tag $c
9910: 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 hild]..}..foreac
9920: 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 h {rid child} [s
9930: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
9940: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
9950: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
9960: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
9970: 42 2e 62 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 B.bid.. FROM
9980: 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 62 72 revision R, br
9990: 61 6e 63 68 20 42 0a 09 20 20 20 20 57 48 45 52 anch B.. WHER
99a0: 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 E R.rid IN $the
99b0: 73 65 74 20 20 20 20 20 20 20 2d 2d 20 52 65 73 set -- Res
99c0: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
99d0: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
99e0: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 72 6f 6f AND B.roo
99f0: 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 20 20 t = R.rid
9a00: 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 61 6e -- Select bran
9a10: 63 68 65 73 20 61 74 74 61 63 68 65 64 20 74 6f ches attached to
9a20: 20 74 68 65 6d 0a 09 7d 5d 5d 20 7b 0a 09 20 20 them..}]] {..
9a30: 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 lappend depend
9a40: 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 72 65 76 encies([list rev
9a50: 20 24 72 69 64 5d 29 20 5b 6c 69 73 74 20 73 79 $rid]) [list sy
9a60: 6d 3a 3a 62 72 61 6e 63 68 20 24 63 68 69 6c 64 m::branch $child
9a70: 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 ]..}..return.
9a80: 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 }.. # result
9a90: 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 = list (changes
9aa0: 65 74 2d 69 64 29 0a 20 20 20 20 74 79 70 65 6d et-id). typem
9ab0: 65 74 68 6f 64 20 63 73 5f 73 75 63 63 65 73 73 ethod cs_success
9ac0: 6f 72 73 20 7b 72 65 76 69 73 69 6f 6e 73 7d 20 ors {revisions}
9ad0: 7b 0a 20 20 20 20 20 20 20 20 23 20 54 68 69 73 {. # This
9ae0: 20 69 73 20 61 20 76 61 72 69 61 6e 74 20 6f 66 is a variant of
9af0: 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 77 68 'successors' wh
9b00: 69 63 68 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 ich maps the low
9b10: 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 23 -level. #
9b20: 20 64 61 74 61 20 64 69 72 65 63 74 6c 79 20 74 data directly t
9b30: 6f 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 o the associated
9b40: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 changesets. I.e
9b50: 2e 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 . instead.
9b60: 20 20 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 # millions of
9b70: 64 65 70 65 6e 64 65 6e 63 79 20 70 61 69 72 73 dependency pairs
9b80: 20 28 69 6e 20 65 78 74 72 65 6d 65 20 63 61 73 (in extreme cas
9b90: 65 73 20 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c es (Example: Tcl
9ba0: 0a 20 20 20 20 20 20 20 20 23 20 43 56 53 29 29 . # CVS))
9bb0: 20 77 65 20 72 65 74 75 72 6e 20 61 20 76 65 72 we return a ver
9bc0: 79 20 73 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 y short and much
9bd0: 20 6d 6f 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 more manageable
9be0: 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 23 20 list. #
9bf0: 6f 66 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a of changesets...
9c00: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
9c10: 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 7b oin $revisions {
9c20: 27 2c 27 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 ','}]')..return
9c30: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
9c40: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
9c50: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 20 obackslashes {.
9c60: 20 20 20 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 -- (1) Primar
9c70: 79 20 63 68 69 6c 64 0a 09 20 20 20 20 53 45 4c y child.. SEL
9c80: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
9c90: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
9ca0: 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 , csitem CI, cha
9cb0: 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 ngeset C.. WH
9cc0: 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 ERE R.rid IN
9cd0: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
9ce0: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
9cf0: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
9d00: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 .. AND R.c
9d10: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
9d20: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
9d30: 72 79 20 63 68 69 6c 64 0a 20 20 20 20 20 20 20 ry child.
9d40: 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 2e 69 AND CI.i
9d50: 69 64 20 3d 20 52 2e 63 68 69 6c 64 20 20 20 20 id = R.child
9d60: 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 6c 6c -- Select all
9d70: 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 changesets.
9d80: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
9d90: 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 20 20 20 .cid = CI.cid
9da0: 20 20 20 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e -- contain
9db0: 69 6e 67 20 74 68 65 20 70 72 69 6d 61 72 79 20 ing the primary
9dc0: 63 68 69 6c 64 0a 20 20 20 20 20 20 20 20 20 20 child.
9dd0: 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 AND C.type
9de0: 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 = 0
9df0: 2d 2d 20 77 68 69 63 68 20 61 72 65 20 72 65 76 -- which are rev
9e00: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 ision changesets
9e10: 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d . UNION. -
9e20: 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 79 20 - (2) Secondary
9e30: 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 72 65 (branch) childre
9e40: 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e n.. SELECT C.
9e50: 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 cid.. FROM
9e60: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
9e70: 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c 64 72 sionbranchchildr
9e80: 65 6e 20 42 2c 20 63 73 69 74 65 6d 20 43 49 2c en B, csitem CI,
9e90: 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 20 20 changeset C..
9ea0: 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 WHERE R.rid
9eb0: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
9ec0: 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 -- Restrict to r
9ed0: 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 evisions of inte
9ee0: 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 rest.. AND
9ef0: 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 20 20 R.rid = B.rid
9f00: 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 -- Selec
9f10: 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 61 6e t subset of bran
9f20: 63 68 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 ch children.
9f30: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
9f40: 49 2e 69 69 64 20 3d 20 42 2e 62 72 69 64 20 20 I.iid = B.brid
9f50: 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 -- Select
9f60: 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 all changesets.
9f70: 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 AND
9f80: 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 C.cid = CI.cid
9f90: 09 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 . -- containing
9fa0: 20 74 68 65 20 62 72 61 6e 63 68 0a 20 20 20 20 the branch.
9fb0: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
9fc0: 2e 74 79 70 65 20 3d 20 30 09 09 20 20 2d 2d 20 .type = 0.. --
9fd0: 77 68 69 63 68 20 61 72 65 20 72 65 76 69 73 69 which are revisi
9fe0: 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 on changesets.
9ff0: 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 UNION. -- (
a000: 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 4) Child of trun
a010: 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 k root successor
a020: 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e of last NTDB on
a030: 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c trunk... SEL
a040: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
a050: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
a060: 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 2c 20 63 , revision RA, c
a070: 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 sitem CI, change
a080: 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 45 set C.. WHERE
a090: 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 R.rid IN $th
a0a0: 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 73 eset -- Res
a0b0: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
a0c0: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
a0d0: 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 73 64 AND R.isd
a0e0: 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 efault
a0f0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
a100: 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 o NTDB.. AND
a110: 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 R.dbchild IS
a120: 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e NOT NULL -- an
a130: 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f d last NTDB belo
a140: 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 nging to trunk..
a150: 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e 72 69 AND RA.ri
a160: 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 20 d = R.dbchild
a170: 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c -- Go directl
a180: 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a y to trunk root.
a190: 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e 63 . AND RA.c
a1a0: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
a1b0: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
a1c0: 72 79 20 63 68 69 6c 64 2e 0a 20 20 20 20 20 20 ry child..
a1d0: 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 2e AND CI.
a1e0: 69 69 64 20 3d 20 52 41 2e 63 68 69 6c 64 20 20 iid = RA.child
a1f0: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 -- Select a
a200: 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ll changesets.
a210: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
a220: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 09 C.cid = CI.cid.
a230: 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 -- containing
a240: 20 74 68 65 20 70 72 69 6d 61 72 79 20 63 68 69 the primary chi
a250: 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 ld. A
a260: 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 30 ND C.type = 0
a270: 09 09 20 20 20 2d 2d 20 77 68 69 63 68 20 61 72 .. -- which ar
a280: 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 e revision chang
a290: 65 73 65 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a esets. UNION.
a2a0: 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 . SELECT C.ci
a2b0: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 d.. FROM re
a2c0: 76 69 73 69 6f 6e 20 52 2c 20 74 61 67 20 54 2c vision R, tag T,
a2d0: 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e csitem CI, chan
a2e0: 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 geset C.. WHE
a2f0: 52 45 20 20 52 2e 72 69 64 20 69 6e 20 24 74 68 RE R.rid in $th
a300: 65 73 65 74 20 20 20 20 20 20 20 20 2d 2d 20 52 eset -- R
a310: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
a320: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
a330: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 2e 72 .. AND T.r
a340: 65 76 20 3d 20 52 2e 72 69 64 09 20 20 20 2d 2d ev = R.rid. --
a350: 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 74 74 Select tags att
a360: 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 20 20 ached to them.
a370: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
a380: 20 43 49 2e 69 69 64 20 3d 20 54 2e 74 69 64 20 CI.iid = T.tid
a390: 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 -- Sele
a3a0: 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 ct all changeset
a3b0: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
a3c0: 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e D C.cid = CI.
a3d0: 63 69 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 cid. -- contai
a3e0: 6e 69 6e 67 20 74 68 65 20 74 61 67 73 0a 20 20 ning the tags.
a3f0: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
a400: 20 43 2e 74 79 70 65 20 3d 20 31 09 09 20 20 20 C.type = 1..
a410: 2d 2d 20 77 68 69 63 68 20 61 72 65 20 74 61 67 -- which are tag
a420: 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 changesets.
a430: 55 4e 49 4f 4e 0a 09 20 20 20 20 53 45 4c 45 43 UNION.. SELEC
a440: 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 52 4f T C.cid.. FRO
a450: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 M revision R,
a460: 62 72 61 6e 63 68 20 42 2c 20 63 73 69 74 65 6d branch B, csitem
a470: 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 CI, changeset C
a480: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
a490: 69 64 20 69 6e 20 24 74 68 65 73 65 74 20 20 20 id in $theset
a4a0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
a4b0: 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 to revisions of
a4c0: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
a4d0: 4e 44 20 20 20 20 42 2e 72 6f 6f 74 20 3d 20 52 ND B.root = R
a4e0: 2e 72 69 64 09 20 20 20 2d 2d 20 53 65 6c 65 63 .rid. -- Selec
a4f0: 74 20 62 72 61 6e 63 68 65 73 20 61 74 74 61 63 t branches attac
a500: 68 65 64 20 74 6f 20 74 68 65 6d 0a 20 20 20 20 hed to them.
a510: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
a520: 49 2e 69 69 64 20 3d 20 42 2e 62 69 64 20 20 20 I.iid = B.bid
a530: 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 -- Select
a540: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a all changesets.
a550: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
a560: 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 C.cid = CI.ci
a570: 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 d. -- containi
a580: 6e 67 20 74 68 65 20 62 72 61 6e 63 68 65 73 0a ng the branches.
a590: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
a5a0: 20 20 20 43 2e 74 79 70 65 20 3d 20 32 09 09 20 C.type = 2..
a5b0: 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 20 62 -- which are b
a5c0: 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 74 73 ranch changesets
a5d0: 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 ..}]]. }.}..#
a5e0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
a5f0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
a600: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
a610: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 ############.##
a620: 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e Helper singleton
a630: 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 74 . Commands for t
a640: 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 ag symbol change
a650: 73 65 74 73 2e 0a 0a 73 6e 69 74 3a 3a 74 79 70 sets...snit::typ
a660: 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a e ::vc::fossil::
a670: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f import::cvs::pro
a680: 6a 65 63 74 3a 3a 72 65 76 3a 3a 73 79 6d 3a 3a ject::rev::sym::
a690: 74 61 67 20 7b 0a 20 20 20 20 74 79 70 65 6d 65 tag {. typeme
a6a0: 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 thod byrevision
a6b0: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a {} { return 0 }.
a6c0: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 typemethod b
a6d0: 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b 20 72 ysymbol {} { r
a6e0: 65 74 75 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 eturn 1 }. ty
a6f0: 70 65 6d 65 74 68 6f 64 20 69 73 74 61 67 20 20 pemethod istag
a700: 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 {} { return
a710: 31 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 1 }. typemeth
a720: 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 7b 7d od isbranch {}
a730: 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 0a 20 { return 0 }..
a740: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 typemethod st
a750: 72 20 7b 74 61 67 7d 20 7b 0a 09 73 74 72 75 63 r {tag} {..struc
a760: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b t::list assign [
a770: 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 state run {..
a780: 20 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 2c 20 SELECT S.name,
a790: 46 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d 65 0a 09 F.name, P.name..
a7a0: 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 20 54 FROM tag T
a7b0: 2c 20 73 79 6d 62 6f 6c 20 53 2c 20 66 69 6c 65 , symbol S, file
a7c0: 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 20 F, project P..
a7d0: 20 20 20 57 48 45 52 45 20 20 54 2e 74 69 64 20 WHERE T.tid
a7e0: 3d 20 24 74 61 67 20 20 20 2d 2d 20 46 69 6e 64 = $tag -- Find
a7f0: 20 73 70 65 63 69 66 69 65 64 20 74 61 67 0a 09 specified tag..
a800: 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 69 64 AND F.fid
a810: 20 3d 20 54 2e 66 69 64 20 20 2d 2d 20 47 65 74 = T.fid -- Get
a820: 20 66 69 6c 65 20 6f 66 20 74 61 67 0a 09 20 20 file of tag..
a830: 20 20 41 4e 44 20 20 20 20 50 2e 70 69 64 20 3d AND P.pid =
a840: 20 46 2e 70 69 64 20 20 2d 2d 20 47 65 74 20 70 F.pid -- Get p
a850: 72 6f 6a 65 63 74 20 6f 66 20 66 69 6c 65 0a 09 roject of file..
a860: 20 20 20 20 41 4e 44 20 20 20 20 53 2e 73 69 64 AND S.sid
a870: 20 3d 20 54 2e 73 69 64 20 20 2d 2d 20 47 65 74 = T.sid -- Get
a880: 20 73 79 6d 62 6f 6c 20 6f 66 20 74 61 67 0a 09 symbol of tag..
a890: 7d 5d 20 73 6e 61 6d 65 20 66 6e 61 6d 65 20 70 }] sname fname p
a8a0: 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 24 70 name..return "$p
a8b0: 6e 61 6d 65 2f 54 27 24 7b 73 6e 61 6d 65 7d 27 name/T'${sname}'
a8c0: 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a ::$fname". }.
a8d0: 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 . # result =
a8e0: 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d list (mintime, m
a8f0: 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 axtime). type
a900: 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 method timerange
a910: 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 54 68 65 {tags} {..# The
a920: 20 72 61 6e 67 65 20 69 73 20 64 65 66 69 6e 65 range is define
a930: 64 20 61 73 20 74 68 65 20 72 61 6e 67 65 20 6f d as the range o
a940: 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 20 f the revisions
a950: 74 68 65 20 74 61 67 73 0a 09 23 20 61 72 65 20 the tags..# are
a960: 61 74 74 61 63 68 65 64 20 74 6f 2e 0a 0a 09 73 attached to....s
a970: 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 et theset ('[joi
a980: 6e 20 24 74 61 67 73 20 7b 27 2c 27 7d 5d 27 29 n $tags {','}]')
a990: 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 65 20 ..return [state
a9a0: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
a9b0: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
a9c0: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c ashes {.. SEL
a9d0: 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 65 29 2c ECT MIN(R.date),
a9e0: 20 4d 41 58 28 52 2e 64 61 74 65 29 0a 09 20 20 MAX(R.date)..
a9f0: 20 20 46 52 4f 4d 20 20 20 74 61 67 20 54 2c 20 FROM tag T,
aa00: 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 revision R..
aa10: 57 48 45 52 45 20 20 54 2e 74 69 64 20 49 4e 20 WHERE T.tid IN
aa20: 24 74 68 65 73 65 74 20 20 2d 2d 20 52 65 73 74 $theset -- Rest
aa30: 72 69 63 74 20 74 6f 20 74 61 67 73 20 6f 66 20 rict to tags of
aa40: 69 6e 74 65 72 65 73 74 0a 20 20 20 20 20 20 20 interest.
aa50: 20 20 20 20 20 41 4e 44 20 20 20 20 52 2e 72 69 AND R.ri
aa60: 64 20 3d 20 54 2e 72 65 76 20 20 20 20 20 2d 2d d = T.rev --
aa70: 20 53 65 6c 65 63 74 20 74 61 67 20 70 61 72 65 Select tag pare
aa80: 6e 74 20 72 65 76 69 73 69 6f 6e 73 0a 09 7d 5d nt revisions..}]
aa90: 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 76 ]. }.. # v
aaa0: 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 28 69 ar(dv) = dict (i
aab0: 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 65 tem -> list (ite
aac0: 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 73 m)), item = lis
aad0: 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 20 20 t (type id).
aae0: 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 63 65 typemethod succe
aaf0: 73 73 6f 72 73 20 7b 64 76 20 74 61 67 73 7d 20 ssors {dv tags}
ab00: 7b 0a 09 23 20 54 61 67 73 20 68 61 76 65 20 6e {..# Tags have n
ab10: 6f 20 73 75 63 63 65 73 73 6f 72 73 2e 0a 09 72 o successors...r
ab20: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
ab30: 20 23 20 72 65 73 75 6c 74 20 3d 20 34 2d 6c 69 # result = 4-li
ab40: 73 74 20 28 69 74 65 6d 74 79 70 65 20 69 74 65 st (itemtype ite
ab50: 6d 69 64 20 6e 65 78 74 69 74 65 6d 74 79 70 65 mid nextitemtype
ab60: 20 6e 65 78 74 69 74 65 6d 69 64 20 2e 2e 2e 29 nextitemid ...)
ab70: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
ab80: 6c 6f 6f 70 73 20 7b 74 61 67 73 7d 20 7b 0a 09 loops {tags} {..
ab90: 23 20 54 61 67 73 20 68 61 76 65 20 6e 6f 20 73 # Tags have no s
aba0: 75 63 63 65 73 73 6f 72 73 2c 20 74 68 65 72 65 uccessors, there
abb0: 66 6f 72 65 20 63 61 6e 6e 6f 74 20 63 61 75 73 fore cannot caus
abc0: 65 20 6c 6f 6f 70 73 0a 09 72 65 74 75 72 6e 20 e loops..return
abd0: 7b 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 {}. }.. #
abe0: 72 65 73 75 6c 74 20 3d 20 6c 69 73 74 20 28 63 result = list (c
abf0: 68 61 6e 67 65 73 65 74 2d 69 64 29 0a 20 20 20 hangeset-id).
ac00: 20 74 79 70 65 6d 65 74 68 6f 64 20 63 73 5f 73 typemethod cs_s
ac10: 75 63 63 65 73 73 6f 72 73 20 7b 74 61 67 73 7d uccessors {tags}
ac20: 20 7b 0a 09 23 20 54 61 67 73 20 68 61 76 65 20 {..# Tags have
ac30: 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 2e 0a 09 no successors...
ac40: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 7d 0a 0a return. }.}..
ac50: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
ac60: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
ac70: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
ac80: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 #############.##
ac90: 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 74 6f Helper singleto
aca0: 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 n. Commands for
acb0: 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c 20 63 68 branch symbol ch
acc0: 61 6e 67 65 73 65 74 73 2e 0a 0a 73 6e 69 74 3a angesets...snit:
acd0: 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 :type ::vc::foss
ace0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
acf0: 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 73 :project::rev::s
ad00: 79 6d 3a 3a 62 72 61 6e 63 68 20 7b 0a 20 20 20 ym::branch {.
ad10: 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 72 65 typemethod byre
ad20: 76 69 73 69 6f 6e 20 7b 7d 20 7b 20 72 65 74 75 vision {} { retu
ad30: 72 6e 20 30 20 7d 0a 20 20 20 20 74 79 70 65 6d rn 0 }. typem
ad40: 65 74 68 6f 64 20 62 79 73 79 6d 62 6f 6c 20 20 ethod bysymbol
ad50: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 31 20 7d {} { return 1 }
ad60: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
ad70: 69 73 74 61 67 20 20 20 20 20 20 7b 7d 20 7b 20 istag {} {
ad80: 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 74 return 0 }. t
ad90: 79 70 65 6d 65 74 68 6f 64 20 69 73 62 72 61 6e ypemethod isbran
ada0: 63 68 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e ch {} { return
adb0: 20 31 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 1 }.. typeme
adc0: 74 68 6f 64 20 73 74 72 20 7b 62 72 61 6e 63 68 thod str {branch
add0: 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 } {..struct::lis
ade0: 74 20 61 73 73 69 67 6e 20 5b 73 74 61 74 65 20 t assign [state
adf0: 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 run {.. SELEC
ae00: 54 20 53 2e 6e 61 6d 65 2c 20 46 2e 6e 61 6d 65 T S.name, F.name
ae10: 2c 20 50 2e 6e 61 6d 65 0a 09 20 20 20 20 46 52 , P.name.. FR
ae20: 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 73 OM branch B, s
ae30: 79 6d 62 6f 6c 20 53 2c 20 66 69 6c 65 20 46 2c ymbol S, file F,
ae40: 20 70 72 6f 6a 65 63 74 20 50 0a 09 20 20 20 20 project P..
ae50: 57 48 45 52 45 20 20 42 2e 62 69 64 20 3d 20 24 WHERE B.bid = $
ae60: 62 72 61 6e 63 68 20 20 2d 2d 20 46 69 6e 64 20 branch -- Find
ae70: 73 70 65 63 69 66 69 65 64 20 62 72 61 6e 63 68 specified branch
ae80: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e 66 .. AND F.f
ae90: 69 64 20 3d 20 42 2e 66 69 64 20 20 20 20 2d 2d id = B.fid --
aea0: 20 47 65 74 20 66 69 6c 65 20 6f 66 20 62 72 61 Get file of bra
aeb0: 6e 63 68 0a 09 20 20 20 20 41 4e 44 20 20 20 20 nch.. AND
aec0: 50 2e 70 69 64 20 3d 20 46 2e 70 69 64 20 20 20 P.pid = F.pid
aed0: 20 2d 2d 20 47 65 74 20 70 72 6f 6a 65 63 74 20 -- Get project
aee0: 6f 66 20 66 69 6c 65 0a 09 20 20 20 20 41 4e 44 of file.. AND
aef0: 20 20 20 20 53 2e 73 69 64 20 3d 20 42 2e 73 69 S.sid = B.si
af00: 64 20 20 20 20 2d 2d 20 47 65 74 20 73 79 6d 62 d -- Get symb
af10: 6f 6c 20 6f 66 20 62 72 61 6e 63 68 0a 09 7d 5d ol of branch..}]
af20: 20 73 6e 61 6d 65 20 66 6e 61 6d 65 20 70 6e 61 sname fname pna
af30: 6d 65 0a 09 72 65 74 75 72 6e 20 22 24 70 6e 61 me..return "$pna
af40: 6d 65 2f 42 27 24 7b 73 6e 61 6d 65 7d 27 3a 3a me/B'${sname}'::
af50: 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a 0a 20 $fname". }..
af60: 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 # result = li
af70: 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d 61 78 st (mintime, max
af80: 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 6d 65 time). typeme
af90: 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 20 7b thod timerange {
afa0: 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 20 54 branches} {..# T
afb0: 68 65 20 72 61 6e 67 65 20 6f 66 20 61 20 62 72 he range of a br
afc0: 61 6e 63 68 20 69 73 20 64 65 66 69 6e 65 64 20 anch is defined
afd0: 61 73 20 74 68 65 20 72 61 6e 67 65 20 6f 66 20 as the range of
afe0: 74 68 65 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 the..# revisions
aff0: 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 61 72 the branches ar
b000: 65 20 73 70 61 77 6e 65 64 20 62 79 2e 20 4e 4f e spawned by. NO
b010: 54 45 20 68 6f 77 65 76 65 72 20 74 68 61 74 20 TE however that
b020: 74 68 65 0a 09 23 20 62 72 61 6e 63 68 65 73 20 the..# branches
b030: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 associated with
b040: 61 20 64 65 74 61 63 68 65 64 20 4e 54 44 42 20 a detached NTDB
b050: 77 69 6c 6c 20 68 61 76 65 20 6e 6f 20 72 6f 6f will have no roo
b060: 74 0a 09 23 20 73 70 61 77 6e 69 6e 67 20 74 68 t..# spawning th
b070: 65 6d 2c 20 68 65 6e 63 65 20 74 68 65 79 20 68 em, hence they h
b080: 61 76 65 20 6e 6f 20 72 65 61 6c 20 74 69 6d 65 ave no real time
b090: 72 61 6e 67 65 20 61 6e 79 0a 09 23 20 6c 6f 6e range any..# lon
b0a0: 67 65 72 2e 20 42 79 20 75 73 69 6e 67 20 30 20 ger. By using 0
b0b0: 77 65 20 70 75 74 20 74 68 65 6d 20 69 6e 20 66 we put them in f
b0c0: 72 6f 6e 74 20 6f 66 20 65 76 65 72 79 74 68 69 ront of everythi
b0d0: 6e 67 20 65 6c 73 65 2c 0a 09 23 20 61 73 20 74 ng else,..# as t
b0e0: 68 65 79 20 6c 6f 67 69 63 61 6c 6c 79 20 61 72 hey logically ar
b0f0: 65 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 e....set theset
b100: 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 65 ('[join $branche
b110: 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 75 s {','}]')..retu
b120: 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 rn [state run [s
b130: 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 ubst -nocommands
b140: 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 -nobackslashes
b150: 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 49 46 {.. SELECT IF
b160: 4e 55 4c 4c 28 4d 49 4e 28 52 2e 64 61 74 65 29 NULL(MIN(R.date)
b170: 2c 30 29 2c 20 49 46 4e 55 4c 4c 28 4d 41 58 28 ,0), IFNULL(MAX(
b180: 52 2e 64 61 74 65 29 2c 30 29 0a 09 20 20 20 20 R.date),0)..
b190: 46 52 4f 4d 20 20 62 72 61 6e 63 68 20 42 2c 20 FROM branch B,
b1a0: 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 revision R..
b1b0: 57 48 45 52 45 20 42 2e 62 69 64 20 49 4e 20 24 WHERE B.bid IN $
b1c0: 74 68 65 73 65 74 20 20 20 2d 2d 20 52 65 73 74 theset -- Rest
b1d0: 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 rict to branches
b1e0: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 20 20 of interest.
b1f0: 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 52 AND R
b200: 2e 72 69 64 20 3d 20 42 2e 72 6f 6f 74 20 20 20 .rid = B.root
b210: 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 61 6e -- Select bran
b220: 63 68 20 70 61 72 65 6e 74 20 72 65 76 69 73 69 ch parent revisi
b230: 6f 6e 73 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 0a ons..}]]. }..
b240: 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 34 # result = 4
b250: 2d 6c 69 73 74 20 28 69 74 65 6d 74 79 70 65 20 -list (itemtype
b260: 69 74 65 6d 69 64 20 6e 65 78 74 69 74 65 6d 74 itemid nextitemt
b270: 79 70 65 20 6e 65 78 74 69 74 65 6d 69 64 20 2e ype nextitemid .
b280: 2e 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 ..). typemeth
b290: 6f 64 20 6c 6f 6f 70 73 20 7b 62 72 61 6e 63 68 od loops {branch
b2a0: 65 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 3a 20 52 es} {..# Note: R
b2b0: 65 76 69 73 69 6f 6e 73 20 61 6e 64 20 74 61 67 evisions and tag
b2c0: 73 20 63 61 6e 6e 6f 74 20 63 61 75 73 65 20 74 s cannot cause t
b2d0: 68 65 20 6c 6f 6f 70 2e 20 42 65 69 6e 67 20 6f he loop. Being o
b2e0: 66 20 61 0a 09 23 20 66 75 6e 64 61 6d 65 6e 74 f a..# fundament
b2f0: 61 6c 6c 79 20 64 69 66 66 65 72 65 6e 74 20 74 ally different t
b300: 79 70 65 20 74 68 65 79 20 63 61 6e 6e 6f 74 20 ype they cannot
b310: 62 65 20 69 6e 20 74 68 65 20 69 6e 63 6f 6d 69 be in the incomi
b320: 6e 67 0a 09 23 20 73 65 74 20 6f 66 20 69 64 73 ng..# set of ids
b330: 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 ....set theset (
b340: 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 65 73 '[join $branches
b350: 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 74 75 72 {','}]')..retur
b360: 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 n [state run [su
b370: 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 bst -nocommands
b380: 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b -nobackslashes {
b390: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 .. SELECT B.b
b3a0: 69 64 2c 20 42 58 2e 62 69 64 0a 09 20 20 20 20 id, BX.bid..
b3b0: 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c FROM branch B,
b3c0: 20 70 72 65 66 65 72 65 64 70 61 72 65 6e 74 20 preferedparent
b3d0: 50 2c 20 62 72 61 6e 63 68 20 42 58 0a 09 20 20 P, branch BX..
b3e0: 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 WHERE B.bid I
b3f0: 4e 20 24 74 68 65 73 65 74 20 20 20 2d 2d 20 52 N $theset -- R
b400: 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 estrict to branc
b410: 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a hes of interest.
b420: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 73 69 . AND B.si
b430: 64 20 3d 20 50 2e 70 69 64 20 20 20 20 20 20 2d d = P.pid -
b440: 2d 20 47 65 74 20 74 68 65 20 70 72 65 66 65 72 - Get the prefer
b450: 65 64 20 62 72 61 6e 63 68 65 73 20 76 69 61 0a ed branches via.
b460: 09 20 20 20 20 41 4e 44 20 20 20 20 42 58 2e 73 . AND BX.s
b470: 69 64 20 3d 20 50 2e 73 69 64 20 20 20 20 20 2d id = P.sid -
b480: 2d 20 74 68 65 20 62 72 61 6e 63 68 20 73 79 6d - the branch sym
b490: 62 6f 6c 73 0a 09 20 20 20 20 41 4e 44 20 20 20 bols.. AND
b4a0: 20 42 58 2e 62 69 64 20 49 4e 20 24 74 68 65 73 BX.bid IN $thes
b4b0: 65 74 20 20 2d 2d 20 4c 6f 6f 70 0a 09 7d 5d 5d et -- Loop..}]]
b4c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 76 61 . }.. # va
b4d0: 72 28 64 76 29 20 3d 20 64 69 63 74 20 28 69 74 r(dv) = dict (it
b4e0: 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 65 6d em -> list (item
b4f0: 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 73 74 )), item = list
b500: 20 28 74 79 70 65 20 69 64 29 0a 20 20 20 20 74 (type id). t
b510: 79 70 65 6d 65 74 68 6f 64 20 73 75 63 63 65 73 ypemethod succes
b520: 73 6f 72 73 20 7b 64 76 20 62 72 61 6e 63 68 65 sors {dv branche
b530: 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 64 s} {..upvar 1 $d
b540: 76 20 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 v dependencies..
b550: 23 20 54 68 65 20 66 69 72 73 74 20 72 65 76 69 # The first revi
b560: 73 69 6f 6e 20 63 6f 6d 6d 69 74 74 65 64 20 6f sion committed o
b570: 6e 20 61 20 62 72 61 6e 63 68 2c 20 61 6e 64 20 n a branch, and
b580: 61 6c 6c 20 62 72 61 6e 63 68 65 73 0a 09 23 20 all branches..#
b590: 61 6e 64 20 74 61 67 73 20 77 68 69 63 68 20 68 and tags which h
b5a0: 61 76 65 20 69 74 20 61 73 20 74 68 65 69 72 20 ave it as their
b5b0: 70 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 20 prefered parent
b5c0: 61 72 65 20 74 68 65 0a 09 23 20 73 75 63 63 65 are the..# succe
b5d0: 73 73 6f 72 73 20 6f 66 20 61 20 62 72 61 6e 63 ssors of a branc
b5e0: 68 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 h....set theset
b5f0: 28 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 65 ('[join $branche
b600: 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 66 6f 72 65 s {','}]')..fore
b610: 61 63 68 20 7b 62 69 64 20 63 68 69 6c 64 7d 20 ach {bid child}
b620: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
b630: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
b640: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 obackslashes {..
b650: 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 SELECT B.bid
b660: 2c 20 52 2e 72 69 64 0a 09 20 20 20 20 46 52 4f , R.rid.. FRO
b670: 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 72 65 M branch B, re
b680: 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 vision R.. WH
b690: 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 ERE B.bid IN $t
b6a0: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 heset -- Res
b6b0: 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 trict to branche
b6c0: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 s of interest..
b6d0: 20 20 20 41 4e 44 20 20 20 20 42 2e 66 69 72 73 AND B.firs
b6e0: 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 20 2d t = R.rid -
b6f0: 2d 20 47 65 74 20 66 69 72 73 74 20 72 65 76 69 - Get first revi
b700: 73 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 61 6e sion on the bran
b710: 63 68 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c ch..}]] {.. l
b720: 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 append dependenc
b730: 69 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 ies([list sym::b
b740: 72 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 ranch $bid]) [li
b750: 73 74 20 72 65 76 20 24 63 68 69 6c 64 5d 0a 09 st rev $child]..
b760: 7d 0a 09 66 6f 72 65 61 63 68 20 7b 62 69 64 20 }..foreach {bid
b770: 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 child} [state ru
b780: 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d n [subst -nocomm
b790: 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 ands -nobackslas
b7a0: 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 hes {.. SELEC
b7b0: 54 20 42 2e 62 69 64 2c 20 42 58 2e 62 69 64 0a T B.bid, BX.bid.
b7c0: 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e . FROM bran
b7d0: 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 ch B, preferedpa
b7e0: 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 20 42 rent P, branch B
b7f0: 58 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 2e X.. WHERE B.
b800: 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 bid IN $theset
b810: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
b820: 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e o branches of in
b830: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
b840: 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 69 64 B.sid = P.pid
b850: 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 20 73 -- Get s
b860: 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 6e 63 ubordinate branc
b870: 68 65 73 20 76 69 61 20 74 68 65 0a 09 20 20 20 hes via the..
b880: 20 41 4e 44 20 20 20 20 42 58 2e 73 69 64 20 3d AND BX.sid =
b890: 20 50 2e 73 69 64 20 20 20 20 20 20 20 2d 2d 20 P.sid --
b8a0: 70 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 73 prefered parents
b8b0: 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 6f 6c of their symbol
b8c0: 73 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 s..}]] {.. la
b8d0: 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 ppend dependenci
b8e0: 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 es([list sym::br
b8f0: 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 anch $bid]) [lis
b900: 74 20 73 79 6d 3a 3a 62 72 61 6e 63 68 20 24 63 t sym::branch $c
b910: 68 69 6c 64 5d 0a 09 7d 0a 09 66 6f 72 65 61 63 hild]..}..foreac
b920: 68 20 7b 62 69 64 20 63 68 69 6c 64 7d 20 5b 73 h {bid child} [s
b930: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
b940: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
b950: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
b960: 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 SELECT B.bid,
b970: 54 2e 74 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 T.tid.. FROM
b980: 20 20 62 72 61 6e 63 68 20 42 2c 20 70 72 65 66 branch B, pref
b990: 65 72 65 64 70 61 72 65 6e 74 20 50 2c 20 74 61 eredparent P, ta
b9a0: 67 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 20 g T.. WHERE
b9b0: 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 B.bid IN $theset
b9c0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
b9d0: 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 to branches of
b9e0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
b9f0: 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 D B.sid = P.p
ba00: 69 64 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 id -- Get
ba10: 20 73 75 62 6f 72 64 69 6e 61 74 65 20 74 61 67 subordinate tag
ba20: 73 20 76 69 61 20 74 68 65 0a 09 20 20 20 20 41 s via the.. A
ba30: 4e 44 20 20 20 20 54 2e 73 69 64 20 3d 20 50 2e ND T.sid = P.
ba40: 73 69 64 20 20 20 20 20 20 20 20 2d 2d 20 70 72 sid -- pr
ba50: 65 66 65 72 65 64 20 70 61 72 65 6e 74 73 20 6f efered parents o
ba60: 66 20 74 68 65 69 72 20 73 79 6d 62 6f 6c 73 0a f their symbols.
ba70: 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 .}]] {.. lapp
ba80: 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 end dependencies
ba90: 28 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e ([list sym::bran
baa0: 63 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 74 20 ch $bid]) [list
bab0: 73 79 6d 3a 3a 74 61 67 20 24 63 68 69 6c 64 5d sym::tag $child]
bac0: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
bad0: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
bae0: 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 65 = list (changese
baf0: 74 2d 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 t-id). typeme
bb00: 74 68 6f 64 20 63 73 5f 73 75 63 63 65 73 73 6f thod cs_successo
bb10: 72 73 20 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a rs {branches} {.
bb20: 20 20 20 20 20 20 20 20 23 20 54 68 69 73 20 69 # This i
bb30: 73 20 61 20 76 61 72 69 61 6e 74 20 6f 66 20 27 s a variant of '
bb40: 73 75 63 63 65 73 73 6f 72 73 27 20 77 68 69 63 successors' whic
bb50: 68 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 2d 6c h maps the low-l
bb60: 65 76 65 6c 0a 20 20 20 20 20 20 20 20 23 20 64 evel. # d
bb70: 61 74 61 20 64 69 72 65 63 74 6c 79 20 74 6f 20 ata directly to
bb80: 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 63 the associated c
bb90: 68 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 2e 20 hangesets. I.e.
bba0: 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 20 20 instead.
bbb0: 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 64 65 # millions of de
bbc0: 70 65 6e 64 65 6e 63 79 20 70 61 69 72 73 20 28 pendency pairs (
bbd0: 69 6e 20 65 78 74 72 65 6d 65 20 63 61 73 65 73 in extreme cases
bbe0: 20 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c 0a 20 (Example: Tcl.
bbf0: 20 20 20 20 20 20 20 23 20 43 56 53 29 29 20 77 # CVS)) w
bc00: 65 20 72 65 74 75 72 6e 20 61 20 76 65 72 79 20 e return a very
bc10: 73 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 20 6d short and much m
bc20: 6f 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 20 6c ore manageable l
bc30: 69 73 74 0a 20 20 20 20 20 20 20 20 23 20 6f 66 ist. # of
bc40: 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 09 73 changesets....s
bc50: 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 et theset ('[joi
bc60: 6e 20 24 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 n $branches {','
bc70: 7d 5d 27 29 0a 20 20 20 20 20 20 20 20 72 65 74 }]'). ret
bc80: 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b urn [state run [
bc90: 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 subst -nocommand
bca0: 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 s -nobackslashes
bcb0: 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 {.. SELECT C
bcc0: 2e 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 .cid.. FROM
bcd0: 20 62 72 61 6e 63 68 20 42 2c 20 72 65 76 69 73 branch B, revis
bce0: 69 6f 6e 20 52 2c 20 63 73 69 74 65 6d 20 43 49 ion R, csitem CI
bcf0: 2c 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 20 , changeset C..
bd00: 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 WHERE B.bid
bd10: 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d IN $theset -
bd20: 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 72 - Restrict to br
bd30: 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 65 anches of intere
bd40: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 st.. AND B
bd50: 2e 66 69 72 73 74 20 3d 20 52 2e 72 69 64 09 2d .first = R.rid.-
bd60: 2d 20 47 65 74 20 66 69 72 73 74 20 72 65 76 69 - Get first revi
bd70: 73 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 61 6e sion on the bran
bd80: 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 ch. A
bd90: 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d 20 52 ND CI.iid = R
bda0: 2e 72 69 64 20 20 20 20 20 20 20 2d 2d 20 53 65 .rid -- Se
bdb0: 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 lect all changes
bdc0: 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ets.
bdd0: 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 AND C.cid = C
bde0: 49 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 69 6e I.cid.-- contain
bdf0: 69 6e 67 20 74 68 69 73 20 72 65 76 69 73 69 6f ing this revisio
be00: 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e n. AN
be10: 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 30 09 D C.type = 0.
be20: 09 2d 2d 20 77 68 69 63 68 20 61 72 65 20 72 65 .-- which are re
be30: 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 vision changeset
be40: 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 20 s. UNION..
be50: 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 SELECT C.cid..
be60: 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 FROM branch
be70: 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 B, preferedpare
be80: 6e 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 2c nt P, branch BX,
be90: 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e csitem CI, chan
bea0: 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 geset C.. WHE
beb0: 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 RE B.bid IN $th
bec0: 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 eset -- Rest
bed0: 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 rict to branches
bee0: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 of interest..
bef0: 20 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d AND B.sid =
bf00: 20 50 2e 70 69 64 09 2d 2d 20 47 65 74 20 73 75 P.pid.-- Get su
bf10: 62 6f 72 64 69 6e 61 74 65 20 62 72 61 6e 63 68 bordinate branch
bf20: 65 73 20 76 69 61 20 74 68 65 0a 09 20 20 20 20 es via the..
bf30: 41 4e 44 20 20 20 20 42 58 2e 73 69 64 20 3d 20 AND BX.sid =
bf40: 50 2e 73 69 64 09 2d 2d 20 70 72 65 66 65 72 65 P.sid.-- prefere
bf50: 64 20 70 61 72 65 6e 74 73 20 6f 66 20 74 68 65 d parents of the
bf60: 69 72 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 ir symbols.
bf70: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 AND CI
bf80: 2e 69 69 64 20 3d 20 42 58 2e 62 69 64 20 20 20 .iid = BX.bid
bf90: 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 6c 6c -- Select all
bfa0: 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 changesets.
bfb0: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
bfc0: 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 09 2d 2d .cid = CI.cid.--
bfd0: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 containing the
bfe0: 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 6e subordinate bran
bff0: 63 68 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 ches.
c000: 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d AND C.type =
c010: 20 32 09 09 2d 2d 20 77 68 69 63 68 20 61 72 65 2..-- which are
c020: 20 62 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 branch changese
c030: 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 ts. UNION..
c040: 20 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 SELECT C.cid..
c050: 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 FROM branc
c060: 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 h B, preferedpar
c070: 65 6e 74 20 50 2c 20 74 61 67 20 54 2c 20 63 73 ent P, tag T, cs
c080: 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 item CI, changes
c090: 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 45 20 et C.. WHERE
c0a0: 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 B.bid IN $these
c0b0: 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 t -- Restric
c0c0: 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 t to branches of
c0d0: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
c0e0: 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e ND B.sid = P.
c0f0: 70 69 64 09 2d 2d 20 47 65 74 20 73 75 62 6f 72 pid.-- Get subor
c100: 64 69 6e 61 74 65 20 74 61 67 73 20 76 69 61 20 dinate tags via
c110: 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 the.. AND
c120: 54 2e 73 69 64 20 3d 20 50 2e 73 69 64 09 2d 2d T.sid = P.sid.--
c130: 20 70 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 prefered parent
c140: 73 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 6f s of their symbo
c150: 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 ls. A
c160: 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d 20 54 ND CI.iid = T
c170: 2e 74 69 64 20 20 20 20 20 20 20 2d 2d 20 53 65 .tid -- Se
c180: 6c 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 lect all changes
c190: 65 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ets.
c1a0: 41 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 AND C.cid = C
c1b0: 49 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 69 6e I.cid.-- contain
c1c0: 69 6e 67 20 74 68 65 20 73 75 62 6f 72 64 69 6e ing the subordin
c1d0: 61 74 65 20 74 61 67 73 0a 20 20 20 20 20 20 20 ate tags.
c1e0: 20 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 AND C.ty
c1f0: 70 65 20 3d 20 31 09 09 2d 2d 20 77 68 69 63 68 pe = 1..-- which
c200: 20 61 72 65 20 74 61 67 20 63 68 61 6e 67 65 73 are tag changes
c210: 65 74 73 0a 09 7d 5d 5d 0a 09 72 65 74 75 72 6e ets..}]]..return
c220: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 . }.. type
c230: 6d 65 74 68 6f 64 20 6c 69 6d 69 74 73 20 7b 62 method limits {b
c240: 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 20 4e 6f ranches} {..# No
c250: 74 65 73 2e 20 54 68 69 73 20 6d 65 74 68 6f 64 tes. This method
c260: 20 65 78 69 73 74 73 20 6f 6e 6c 79 20 66 6f 72 exists only for
c270: 20 62 72 61 6e 63 68 65 73 2e 20 49 74 20 69 73 branches. It is
c280: 20 6e 65 65 64 65 64 20 74 6f 0a 09 23 20 67 65 needed to..# ge
c290: 74 20 64 65 74 61 69 6c 65 64 20 69 6e 66 6f 72 t detailed infor
c2a0: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 20 62 mation about a b
c2b0: 61 63 6b 77 61 72 64 20 62 72 61 6e 63 68 2e 20 ackward branch.
c2c0: 49 74 20 64 6f 65 73 0a 09 23 20 6e 6f 74 20 61 It does..# not a
c2d0: 70 70 6c 79 20 74 6f 20 74 61 67 73 2c 20 6e 6f pply to tags, no
c2e0: 72 20 72 65 76 69 73 69 6f 6e 73 2e 20 54 68 65 r revisions. The
c2f0: 20 71 75 65 72 69 65 73 20 63 61 6e 20 61 6c 73 queries can als
c300: 6f 0a 09 23 20 72 65 73 74 72 69 63 74 20 74 68 o..# restrict th
c310: 65 6d 73 65 6c 76 65 73 20 74 6f 20 74 68 65 20 emselves to the
c320: 72 65 76 69 73 69 6f 6e 20 73 75 63 65 73 73 6f revision sucesso
c330: 72 73 2f 70 72 65 64 65 63 65 73 73 6f 72 73 0a rs/predecessors.
c340: 09 23 20 6f 66 20 62 72 61 6e 63 68 65 73 2c 20 .# of branches,
c350: 61 73 20 6f 6e 6c 79 20 74 68 65 79 20 68 61 76 as only they hav
c360: 65 20 6f 72 64 65 72 69 6e 67 20 64 61 74 61 20 e ordering data
c370: 61 6e 64 20 74 68 75 73 20 63 61 6e 0a 09 23 20 and thus can..#
c380: 63 61 75 73 65 20 74 68 65 20 62 61 63 6b 77 61 cause the backwa
c390: 72 64 6e 65 73 73 2e 0a 0a 09 73 65 74 20 74 68 rdness....set th
c3a0: 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 62 72 eset ('[join $br
c3b0: 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d 27 29 0a anches {','}]').
c3c0: 0a 09 73 65 74 20 6d 61 78 70 20 5b 73 74 61 74 ..set maxp [stat
c3d0: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
c3e0: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
c3f0: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 2d slashes {.. -
c400: 2d 20 6d 61 78 69 6d 61 6c 20 70 72 65 64 65 63 - maximal predec
c410: 65 73 73 6f 72 20 70 6f 73 69 74 69 6f 6e 20 70 essor position p
c420: 65 72 20 62 72 61 6e 63 68 0a 09 20 20 20 20 53 er branch.. S
c430: 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 4d 41 58 ELECT B.bid, MAX
c440: 20 28 43 4f 2e 70 6f 73 29 0a 09 20 20 20 20 46 (CO.pos).. F
c450: 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 ROM branch B,
c460: 72 65 76 69 73 69 6f 6e 20 52 2c 20 63 73 69 74 revision R, csit
c470: 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 em CI, changeset
c480: 20 43 2c 20 63 73 6f 72 64 65 72 20 43 4f 0a 09 C, csorder CO..
c490: 20 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 WHERE B.bid
c4a0: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
c4b0: 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 -- Restrict to b
c4c0: 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 ranches of inter
c4d0: 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 est.. AND
c4e0: 42 2e 72 6f 6f 74 20 3d 20 52 2e 72 69 64 20 20 B.root = R.rid
c4f0: 20 20 20 20 20 2d 2d 20 47 65 74 20 62 72 61 6e -- Get bran
c500: 63 68 20 72 6f 6f 74 20 72 65 76 69 73 69 6f 6e ch root revision
c510: 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 49 s.. AND CI
c520: 2e 69 69 64 20 3d 20 52 2e 72 69 64 20 20 20 20 .iid = R.rid
c530: 20 20 20 2d 2d 20 47 65 74 20 63 68 61 6e 67 65 -- Get change
c540: 73 65 74 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 sets containing
c550: 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 the.. AND
c560: 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 20 20 C.cid = CI.cid
c570: 20 20 20 20 20 2d 2d 20 72 6f 6f 74 20 72 65 76 -- root rev
c580: 69 73 69 6f 6e 73 2c 20 77 68 69 63 68 20 61 72 isions, which ar
c590: 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e e.. AND C.
c5a0: 74 79 70 65 20 3d 20 30 20 20 20 20 20 20 20 20 type = 0
c5b0: 20 20 20 2d 2d 20 72 65 76 69 73 69 6f 6e 20 63 -- revision c
c5c0: 68 61 6e 67 65 73 65 74 73 0a 09 20 20 20 20 41 hangesets.. A
c5d0: 4e 44 20 20 20 20 43 4f 2e 63 69 64 20 3d 20 43 ND CO.cid = C
c5e0: 2e 63 69 64 20 20 20 20 20 20 20 2d 2d 20 47 65 .cid -- Ge
c5f0: 74 20 74 68 65 69 72 20 74 6f 70 6f 6c 6f 67 69 t their topologi
c600: 63 61 6c 20 6f 72 64 65 72 69 6e 67 0a 09 20 20 cal ordering..
c610: 20 20 47 52 4f 55 50 20 42 59 20 42 2e 62 69 64 GROUP BY B.bid
c620: 0a 09 7d 5d 5d 0a 0a 09 73 65 74 20 6d 69 6e 73 ..}]]...set mins
c630: 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 [state run [sub
c640: 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d st -nocommands -
c650: 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a nobackslashes {.
c660: 09 20 20 20 20 2d 2d 20 6d 69 6e 69 6d 61 6c 20 . -- minimal
c670: 73 75 63 63 65 73 73 6f 72 20 70 6f 73 69 74 69 successor positi
c680: 6f 6e 20 70 65 72 20 62 72 61 6e 63 68 0a 09 20 on per branch..
c690: 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c SELECT B.bid,
c6a0: 20 4d 49 4e 20 28 43 4f 2e 70 6f 73 29 0a 09 20 MIN (CO.pos)..
c6b0: 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 FROM branch
c6c0: 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 B, revision R,
c6d0: 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 csitem CI, chang
c6e0: 65 73 65 74 20 43 2c 20 63 73 6f 72 64 65 72 20 eset C, csorder
c6f0: 43 4f 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 CO.. WHERE B
c700: 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 .bid IN $theset
c710: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
c720: 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 to branches of i
c730: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
c740: 20 20 20 20 42 2e 66 69 72 73 74 20 3d 20 52 2e B.first = R.
c750: 72 69 64 20 20 20 20 20 20 2d 2d 20 47 65 74 20 rid -- Get
c760: 74 68 65 20 66 69 72 73 74 20 72 65 76 69 73 69 the first revisi
c770: 6f 6e 73 20 6f 6e 20 74 68 65 20 62 72 61 6e 63 ons on the branc
c780: 68 65 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 hes.. AND
c790: 43 49 2e 69 69 64 20 3d 20 52 2e 72 69 64 20 20 CI.iid = R.rid
c7a0: 20 20 20 20 20 2d 2d 20 47 65 74 20 63 68 61 6e -- Get chan
c7b0: 67 65 73 65 74 73 20 63 6f 6e 74 61 69 6e 69 6e gesets containin
c7c0: 67 20 74 68 65 0a 09 20 20 20 20 41 4e 44 20 20 g the.. AND
c7d0: 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 C.cid = CI.cid
c7e0: 09 2d 2d 20 66 69 72 73 74 20 72 65 76 69 73 69 .-- first revisi
c7f0: 6f 6e 73 2c 20 77 68 69 63 68 20 61 72 65 0a 09 ons, which are..
c800: 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 AND C.typ
c810: 65 20 3d 20 30 09 09 2d 2d 20 72 65 76 69 73 69 e = 0..-- revisi
c820: 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a 09 20 on changesets..
c830: 20 20 20 41 4e 44 20 20 20 20 43 4f 2e 63 69 64 AND CO.cid
c840: 20 3d 20 43 2e 63 69 64 09 2d 2d 20 47 65 74 20 = C.cid.-- Get
c850: 74 68 65 69 72 20 74 6f 70 6f 6c 6f 67 69 63 61 their topologica
c860: 6c 20 6f 72 64 65 72 69 6e 67 0a 09 20 20 20 20 l ordering..
c870: 47 52 4f 55 50 20 42 59 20 42 2e 62 69 64 0a 09 GROUP BY B.bid..
c880: 7d 5d 5d 0a 0a 20 20 20 20 20 20 20 20 72 65 74 }]].. ret
c890: 75 72 6e 20 5b 6c 69 73 74 20 24 6d 61 78 70 20 urn [list $maxp
c8a0: 24 6d 69 6e 73 5d 0a 20 20 20 20 7d 0a 0a 20 20 $mins]. }..
c8b0: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
c8c0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
c8d0: 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 #########. ##
c8e0: 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a Configuration..
c8f0: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 pragma -hasi
c900: 6e 73 74 61 6e 63 65 73 20 20 20 6e 6f 20 3b 20 nstances no ;
c910: 23 20 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 20 20 # singleton.
c920: 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 pragma -hastypei
c930: 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 23 20 6e 6f nfo no ; # no
c940: 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 introspection.
c950: 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 pragma -hasty
c960: 70 65 64 65 73 74 72 6f 79 20 6e 6f 20 3b 20 23 pedestroy no ; #
c970: 20 69 6d 6d 6f 72 74 61 6c 0a 7d 0a 0a 23 20 23 immortal.}..# #
c980: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
c990: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
c9a0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
c9b0: 23 23 23 23 23 23 23 23 23 23 0a 23 23 0a 0a 6e ##########.##..n
c9c0: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a amespace eval ::
c9d0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
c9e0: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 rt::cvs::project
c9f0: 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 {. namespace
ca00: 20 65 78 70 6f 72 74 20 72 65 76 0a 20 20 20 20 export rev.
ca10: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 72 namespace eval r
ca20: 65 76 20 7b 0a 09 6e 61 6d 65 73 70 61 63 65 20 ev {..namespace
ca30: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
ca40: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
ca50: 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 ::state..namespa
ca60: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
ca70: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
ca80: 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 cvs::integrity..
ca90: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
caa0: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 ::vc::tools::mi
cab0: 73 63 3a 3a 2a 0a 09 6e 61 6d 65 73 70 61 63 65 sc::*..namespace
cac0: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f import ::vc::to
cad0: 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 6e 61 ols::trouble..na
cae0: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
caf0: 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a :vc::tools::log.
cb00: 09 6c 6f 67 20 72 65 67 69 73 74 65 72 20 63 73 .log register cs
cb10: 65 74 73 0a 0a 09 23 20 53 65 74 20 75 70 20 74 ets...# Set up t
cb20: 68 65 20 68 65 6c 70 65 72 20 73 69 6e 67 6c 65 he helper single
cb30: 74 6f 6e 73 0a 09 6e 61 6d 65 73 70 61 63 65 20 tons..namespace
cb40: 65 76 61 6c 20 72 65 76 20 7b 0a 09 20 20 20 20 eval rev {..
cb50: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
cb60: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
cb70: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
cb80: 65 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 e.. namespace
cb90: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
cba0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
cbb0: 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 7d 0a s::integrity..}.
cbc0: 09 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
cbd0: 73 79 6d 3a 3a 74 61 67 20 7b 0a 09 20 20 20 20 sym::tag {..
cbe0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
cbf0: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
cc00: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
cc10: 65 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 e.. namespace
cc20: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
cc30: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
cc40: 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 7d 0a s::integrity..}.
cc50: 09 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
cc60: 73 79 6d 3a 3a 62 72 61 6e 63 68 20 7b 0a 09 20 sym::branch {..
cc70: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 namespace imp
cc80: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ort ::vc::fossil
cc90: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 ::import::cvs::s
cca0: 74 61 74 65 0a 09 20 20 20 20 6e 61 6d 65 73 70 tate.. namesp
ccb0: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
ccc0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
ccd0: 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a :cvs::integrity.
cce0: 09 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 .}. }.}..# #
ccf0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
cd00: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
cd10: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
cd20: 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 #########.## Rea
cd30: 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 dy..package prov
cd40: 69 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ide vc::fossil::
cd50: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f import::cvs::pro
cd60: 6a 65 63 74 3a 3a 72 65 76 20 31 2e 30 0a 72 65 ject::rev 1.0.re
cd70: 74 75 72 6e 0a turn.