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 76 63 3a 3a 74 6f 6f 6c 73 equire vc::tools
0380: 3a 3a 6d 69 73 63 20 20 20 20 20 20 20 20 20 20 ::misc
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
03a0: 20 54 65 78 74 20 66 6f 72 6d 61 74 74 69 6e 67 Text formatting
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 74 72 6f 75 vc::tools::trou
03d0: 62 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ble
03e0: 20 20 20 20 20 20 20 3b 20 23 20 45 72 72 6f 72 ; # Error
03f0: 20 72 65 70 6f 72 74 69 6e 67 2e 0a 70 61 63 6b reporting..pack
0400: 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a age require vc::
0410: 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 20 20 20 20 20 tools::log
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0430: 20 20 3b 20 23 20 55 73 65 72 20 66 65 65 64 62 ; # User feedb
0440: 61 63 6b 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 ack..package req
0450: 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a uire vc::fossil:
0460: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 :import::cvs::st
0470: 61 74 65 20 20 20 20 20 20 20 20 3b 20 23 20 53 ate ; # S
0480: 74 61 74 65 20 73 74 6f 72 61 67 65 2e 0a 70 61 tate storage..pa
0490: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
04a0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
04b0: 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 ::cvs::integrity
04c0: 20 20 20 20 3b 20 23 20 53 74 61 74 65 20 69 6e ; # State in
04d0: 74 65 67 72 69 74 79 20 63 68 65 63 6b 73 2e 0a tegrity checks..
04e0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
04f0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0500: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 rt::cvs::project
0510: 3a 3a 73 79 6d 20 3b 20 23 20 50 72 6f 6a 65 63 ::sym ; # Projec
0520: 74 20 6c 65 76 65 6c 20 73 79 6d 62 6f 6c 73 0a t level symbols.
0530: 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 .# # ## ### ####
0540: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
0550: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 ##############.#
0570: 23 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a #..snit::type ::
0580: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0590: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 rt::cvs::project
05a0: 3a 3a 72 65 76 20 7b 0a 20 20 20 20 23 20 23 20 ::rev {. # #
05b0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
05c0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
05d0: 23 23 23 0a 20 20 20 20 23 23 20 50 75 62 6c 69 ###. ## Publi
05e0: 63 20 41 50 49 0a 0a 20 20 20 20 63 6f 6e 73 74 c API.. const
05f0: 72 75 63 74 6f 72 20 7b 70 72 6f 6a 65 63 74 20 ructor {project
0600: 63 73 74 79 70 65 20 73 72 63 69 64 20 72 65 76 cstype srcid rev
0610: 69 73 69 6f 6e 73 20 7b 74 68 65 69 64 20 7b 7d isions {theid {}
0620: 7d 7d 20 7b 0a 09 69 66 20 7b 24 74 68 65 69 64 }} {..if {$theid
0630: 20 6e 65 20 22 22 7d 20 7b 0a 09 20 20 20 20 73 ne ""} {.. s
0640: 65 74 20 6d 79 69 64 20 24 74 68 65 69 64 0a 09 et myid $theid..
0650: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 73 65 } else {.. se
0660: 74 20 6d 79 69 64 20 5b 69 6e 63 72 20 6d 79 63 t myid [incr myc
0670: 6f 75 6e 74 65 72 5d 0a 09 7d 0a 0a 09 69 6e 74 ounter]..}...int
0680: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 5b egrity assert {[
0690: 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 63 73 info exists mycs
06a0: 74 79 70 65 28 24 63 73 74 79 70 65 29 5d 7d 20 type($cstype)]}
06b0: 7b 42 61 64 20 63 68 61 6e 67 65 73 65 74 20 74 {Bad changeset t
06c0: 79 70 65 20 27 24 63 73 74 79 70 65 27 2e 7d 0a ype '$cstype'.}.
06d0: 0a 09 73 65 74 20 6d 79 70 72 6f 6a 65 63 74 20 ..set myproject
06e0: 20 20 24 70 72 6f 6a 65 63 74 0a 09 73 65 74 20 $project..set
06f0: 6d 79 74 79 70 65 20 20 20 20 20 20 24 63 73 74 mytype $cst
0700: 79 70 65 0a 09 73 65 74 20 6d 79 74 79 70 65 6f ype..set mytypeo
0710: 62 6a 20 20 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 bj ::vc::fossi
0720: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
0730: 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 24 7b project::rev::${
0740: 63 73 74 79 70 65 7d 0a 09 73 65 74 20 6d 79 73 cstype}..set mys
0750: 72 63 69 64 09 24 73 72 63 69 64 0a 09 73 65 74 rcid.$srcid..set
0760: 20 6d 79 72 65 76 69 73 69 6f 6e 73 20 24 72 65 myrevisions $re
0770: 76 69 73 69 6f 6e 73 0a 09 73 65 74 20 6d 79 70 visions..set myp
0780: 6f 73 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 os {} ; #
0790: 43 6f 6d 6d 69 74 20 6c 6f 63 61 74 69 6f 6e 20 Commit location
07a0: 69 73 20 6e 6f 74 20 6b 6e 6f 77 6e 20 79 65 74 is not known yet
07b0: 2e 0a 0a 09 23 20 4b 65 65 70 20 74 72 61 63 6b ....# Keep track
07c0: 20 6f 66 20 74 68 65 20 67 65 6e 65 72 61 74 65 of the generate
07d0: 64 20 63 68 61 6e 67 65 73 65 74 73 20 61 6e 64 d changesets and
07e0: 20 6f 66 20 74 68 65 20 69 6e 76 65 72 73 65 0a of the inverse.
07f0: 09 23 20 6d 61 70 70 69 6e 67 20 66 72 6f 6d 20 .# mapping from
0800: 72 65 76 69 73 69 6f 6e 73 20 74 6f 20 74 68 65 revisions to the
0810: 6d 2e 0a 09 6c 61 70 70 65 6e 64 20 6d 79 63 68 m...lappend mych
0820: 61 6e 67 65 73 65 74 73 20 20 20 24 73 65 6c 66 angesets $self
0830: 0a 09 73 65 74 20 20 20 20 20 6d 79 69 64 6d 61 ..set myidma
0840: 70 28 24 6d 79 69 64 29 20 24 73 65 6c 66 0a 09 p($myid) $self..
0850: 66 6f 72 65 61 63 68 20 72 20 24 72 65 76 69 73 foreach r $revis
0860: 69 6f 6e 73 20 7b 20 6c 61 70 70 65 6e 64 20 6d ions { lappend m
0870: 79 72 65 76 6d 61 70 28 24 72 29 20 24 73 65 6c yrevmap($r) $sel
0880: 66 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 f }..return.
0890: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 74 }.. method st
08a0: 72 20 7b 7d 20 7b 0a 09 73 65 74 20 73 74 72 20 r {} {..set str
08b0: 20 20 20 22 3c 22 0a 09 73 65 74 20 64 65 74 61 "<"..set deta
08c0: 69 6c 20 22 22 0a 09 69 66 20 7b 24 6d 79 74 79 il ""..if {$myty
08d0: 70 65 20 65 71 20 22 73 79 6d 22 7d 20 7b 0a 09 pe eq "sym"} {..
08e0: 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 struct::list
08f0: 20 61 73 73 69 67 6e 20 5b 73 74 61 74 65 20 72 assign [state r
0900: 75 6e 20 7b 0a 09 09 53 45 4c 45 43 54 20 54 2e un {...SELECT T.
0910: 6e 61 6d 65 2c 20 53 2e 6e 61 6d 65 0a 09 09 46 name, S.name...F
0920: 52 4f 4d 20 20 20 73 79 6d 74 79 70 65 20 54 2c ROM symtype T,
0930: 20 73 79 6d 62 6f 6c 20 53 0a 09 09 57 48 45 52 symbol S...WHER
0940: 45 20 20 53 2e 73 69 64 20 3d 20 24 6d 79 73 72 E S.sid = $mysr
0950: 63 69 64 0a 09 09 41 4e 44 20 20 20 20 54 2e 74 cid...AND T.t
0960: 69 64 20 3d 20 53 2e 74 79 70 65 0a 09 20 20 20 id = S.type..
0970: 20 7d 5d 20 73 74 79 70 65 20 64 65 74 61 69 6c }] stype detail
0980: 0a 09 20 20 20 20 61 70 70 65 6e 64 20 73 74 72 .. append str
0990: 20 24 73 74 79 70 65 20 22 20 22 0a 09 20 20 20 $stype " "..
09a0: 20 73 65 74 20 64 65 74 61 69 6c 20 22 20 27 24 set detail " '$
09b0: 64 65 74 61 69 6c 27 22 0a 09 7d 0a 09 61 70 70 detail'"..}..app
09c0: 65 6e 64 20 73 74 72 20 22 24 6d 79 74 79 70 65 end str "$mytype
09d0: 20 24 7b 6d 79 69 64 7d 24 7b 64 65 74 61 69 6c ${myid}${detail
09e0: 7d 3e 22 0a 09 72 65 74 75 72 6e 20 24 73 74 72 }>"..return $str
09f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
0a00: 6f 64 20 69 64 20 20 20 20 20 20 20 20 7b 7d 20 od id {}
0a10: 7b 20 72 65 74 75 72 6e 20 24 6d 79 69 64 20 7d { return $myid }
0a20: 0a 20 20 20 20 6d 65 74 68 6f 64 20 72 65 76 69 . method revi
0a30: 73 69 6f 6e 73 20 7b 7d 20 7b 20 72 65 74 75 72 sions {} { retur
0a40: 6e 20 24 6d 79 72 65 76 69 73 69 6f 6e 73 20 7d n $myrevisions }
0a50: 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 61 74 61 . method data
0a60: 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 {} { retur
0a70: 6e 20 5b 6c 69 73 74 20 24 6d 79 70 72 6f 6a 65 n [list $myproje
0a80: 63 74 20 24 6d 79 74 79 70 65 20 24 6d 79 73 72 ct $mytype $mysr
0a90: 63 69 64 5d 20 7d 0a 0a 20 20 20 20 64 65 6c 65 cid] }.. dele
0aa0: 67 61 74 65 20 6d 65 74 68 6f 64 20 62 79 73 79 gate method bysy
0ab0: 6d 62 6f 6c 20 20 20 74 6f 20 6d 79 74 79 70 65 mbol to mytype
0ac0: 6f 62 6a 0a 20 20 20 20 64 65 6c 65 67 61 74 65 obj. delegate
0ad0: 20 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 method byrevisi
0ae0: 6f 6e 20 74 6f 20 6d 79 74 79 70 65 6f 62 6a 0a on to mytypeobj.
0af0: 20 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74 delegate met
0b00: 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 74 hod isbranch t
0b10: 6f 20 6d 79 74 79 70 65 6f 62 6a 0a 20 20 20 20 o mytypeobj.
0b20: 64 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 delegate method
0b30: 69 73 74 61 67 20 20 20 20 20 20 74 6f 20 6d 79 istag to my
0b40: 74 79 70 65 6f 62 6a 0a 0a 20 20 20 20 6d 65 74 typeobj.. met
0b50: 68 6f 64 20 73 65 74 70 6f 73 20 7b 70 7d 20 7b hod setpos {p} {
0b60: 20 73 65 74 20 6d 79 70 6f 73 20 24 70 20 3b 20 set mypos $p ;
0b70: 72 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 return }. met
0b80: 68 6f 64 20 70 6f 73 20 20 20 20 7b 7d 20 20 7b hod pos {} {
0b90: 20 72 65 74 75 72 6e 20 24 6d 79 70 6f 73 20 7d return $mypos }
0ba0: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
0bb0: 20 64 69 63 74 20 28 72 65 76 69 73 69 6f 6e 20 dict (revision
0bc0: 2d 3e 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 -> list (changes
0bd0: 65 74 29 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 et)). method
0be0: 73 75 63 63 65 73 73 6f 72 6d 61 70 20 7b 7d 20 successormap {}
0bf0: 7b 0a 09 23 20 4e 4f 54 45 20 2f 20 46 55 54 55 {..# NOTE / FUTU
0c00: 52 45 3a 20 50 6f 73 73 69 62 6c 65 20 62 6f 74 RE: Possible bot
0c10: 74 6c 65 6e 65 63 6b 2e 0a 09 61 72 72 61 79 20 tleneck...array
0c20: 73 65 74 20 74 6d 70 20 7b 7d 0a 09 66 6f 72 65 set tmp {}..fore
0c30: 61 63 68 20 7b 72 65 76 20 63 68 69 6c 64 72 65 ach {rev childre
0c40: 6e 7d 20 5b 24 73 65 6c 66 20 6e 65 78 74 6d 61 n} [$self nextma
0c50: 70 5d 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 p] {.. foreac
0c60: 68 20 63 68 69 6c 64 20 24 63 68 69 6c 64 72 65 h child $childre
0c70: 6e 20 7b 0a 09 09 23 20 38 2e 35 20 6c 61 70 70 n {...# 8.5 lapp
0c80: 65 6e 64 20 74 6d 70 28 24 72 65 76 29 20 7b 2a end tmp($rev) {*
0c90: 7d 24 6d 79 72 65 76 6d 61 70 28 24 63 68 69 6c }$myrevmap($chil
0ca0: 64 29 0a 09 09 66 6f 72 65 61 63 68 20 63 73 65 d)...foreach cse
0cb0: 74 20 24 6d 79 72 65 76 6d 61 70 28 24 63 68 69 t $myrevmap($chi
0cc0: 6c 64 29 20 7b 0a 09 09 20 20 20 20 6c 61 70 70 ld) {... lapp
0cd0: 65 6e 64 20 74 6d 70 28 24 72 65 76 29 20 24 63 end tmp($rev) $c
0ce0: 73 65 74 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 set...}.. }..
0cf0: 20 20 20 20 73 65 74 20 74 6d 70 28 24 72 65 76 set tmp($rev
0d00: 29 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 75 65 ) [lsort -unique
0d10: 20 24 74 6d 70 28 24 72 65 76 29 5d 0a 09 7d 0a $tmp($rev)]..}.
0d20: 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 67 .return [array g
0d30: 65 74 20 74 6d 70 5d 0a 20 20 20 20 7d 0a 0a 20 et tmp]. }..
0d40: 20 20 20 6d 65 74 68 6f 64 20 73 75 63 63 65 73 method succes
0d50: 73 6f 72 73 20 7b 7d 20 7b 0a 09 23 20 4e 4f 54 sors {} {..# NOT
0d60: 45 20 2f 20 46 55 54 55 52 45 3a 20 50 6f 73 73 E / FUTURE: Poss
0d70: 69 62 6c 65 20 62 6f 74 74 6c 65 6e 65 63 6b 2e ible bottleneck.
0d80: 0a 09 73 65 74 20 63 73 65 74 73 20 7b 7d 0a 09 ..set csets {}..
0d90: 66 6f 72 65 61 63 68 20 7b 5f 20 63 68 69 6c 64 foreach {_ child
0da0: 72 65 6e 7d 20 5b 24 73 65 6c 66 20 6e 65 78 74 ren} [$self next
0db0: 6d 61 70 5d 20 7b 0a 09 20 20 20 20 66 6f 72 65 map] {.. fore
0dc0: 61 63 68 20 63 68 69 6c 64 20 24 63 68 69 6c 64 ach child $child
0dd0: 72 65 6e 20 7b 0a 09 09 23 20 38 2e 35 20 6c 61 ren {...# 8.5 la
0de0: 70 70 65 6e 64 20 63 73 65 74 73 20 7b 2a 7d 24 ppend csets {*}$
0df0: 6d 79 72 65 76 6d 61 70 28 24 63 68 69 6c 64 29 myrevmap($child)
0e00: 0a 09 09 66 6f 72 65 61 63 68 20 63 73 65 74 20 ...foreach cset
0e10: 24 6d 79 72 65 76 6d 61 70 28 24 63 68 69 6c 64 $myrevmap($child
0e20: 29 20 7b 0a 09 09 20 20 20 20 6c 61 70 70 65 6e ) {... lappen
0e30: 64 20 63 73 65 74 73 20 24 63 73 65 74 0a 09 09 d csets $cset...
0e40: 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 74 }.. }..}..ret
0e50: 75 72 6e 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 urn [lsort -uniq
0e60: 75 65 20 24 63 73 65 74 73 5d 0a 20 20 20 20 7d ue $csets]. }
0e70: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
0e80: 20 64 69 63 74 20 28 72 65 76 69 73 69 6f 6e 20 dict (revision
0e90: 2d 3e 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 -> list (changes
0ea0: 65 74 29 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 et)). method
0eb0: 70 72 65 64 65 63 65 73 73 6f 72 6d 61 70 20 7b predecessormap {
0ec0: 7d 20 7b 0a 09 23 20 4e 4f 54 45 20 2f 20 46 55 } {..# NOTE / FU
0ed0: 54 55 52 45 3a 20 50 6f 73 73 69 62 6c 65 20 62 TURE: Possible b
0ee0: 6f 74 74 6c 65 6e 65 63 6b 2e 0a 09 61 72 72 61 ottleneck...arra
0ef0: 79 20 73 65 74 20 74 6d 70 20 7b 7d 0a 09 66 6f y set tmp {}..fo
0f00: 72 65 61 63 68 20 7b 72 65 76 20 63 68 69 6c 64 reach {rev child
0f10: 72 65 6e 7d 20 5b 24 73 65 6c 66 20 70 72 65 6d ren} [$self prem
0f20: 61 70 5d 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 ap] {.. forea
0f30: 63 68 20 63 68 69 6c 64 20 24 63 68 69 6c 64 72 ch child $childr
0f40: 65 6e 20 7b 0a 09 09 23 20 38 2e 35 20 6c 61 70 en {...# 8.5 lap
0f50: 70 65 6e 64 20 74 6d 70 28 24 72 65 76 29 20 7b pend tmp($rev) {
0f60: 2a 7d 24 6d 79 72 65 76 6d 61 70 28 24 63 68 69 *}$myrevmap($chi
0f70: 6c 64 29 0a 09 09 66 6f 72 65 61 63 68 20 63 73 ld)...foreach cs
0f80: 65 74 20 24 6d 79 72 65 76 6d 61 70 28 24 63 68 et $myrevmap($ch
0f90: 69 6c 64 29 20 7b 0a 09 09 20 20 20 20 6c 61 70 ild) {... lap
0fa0: 70 65 6e 64 20 74 6d 70 28 24 72 65 76 29 20 24 pend tmp($rev) $
0fb0: 63 73 65 74 0a 09 09 7d 0a 09 20 20 20 20 7d 0a cset...}.. }.
0fc0: 09 20 20 20 20 73 65 74 20 74 6d 70 28 24 72 65 . set tmp($re
0fd0: 76 29 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 75 v) [lsort -uniqu
0fe0: 65 20 24 74 6d 70 28 24 72 65 76 29 5d 0a 09 7d e $tmp($rev)]..}
0ff0: 0a 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 ..return [array
1000: 67 65 74 20 74 6d 70 5d 0a 20 20 20 20 7d 0a 0a get tmp]. }..
1010: 20 20 20 20 23 20 72 65 76 69 73 69 6f 6e 20 2d # revision -
1020: 3e 20 6c 69 73 74 20 28 72 65 76 69 73 69 6f 6e > list (revision
1030: 29 0a 20 20 20 20 6d 65 74 68 6f 64 20 6e 65 78 ). method nex
1040: 74 6d 61 70 20 7b 7d 20 7b 0a 09 69 66 20 7b 5b tmap {} {..if {[
1050: 6c 6c 65 6e 67 74 68 20 24 6d 79 6e 65 78 74 6d llength $mynextm
1060: 61 70 5d 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d ap]} { return $m
1070: 79 6e 65 78 74 6d 61 70 20 7d 0a 09 24 6d 79 74 ynextmap }..$myt
1080: 79 70 65 6f 62 6a 20 73 75 63 63 65 73 73 6f 72 ypeobj successor
1090: 73 20 74 6d 70 20 24 6d 79 72 65 76 69 73 69 6f s tmp $myrevisio
10a0: 6e 73 0a 09 73 65 74 20 6d 79 6e 65 78 74 6d 61 ns..set mynextma
10b0: 70 20 5b 61 72 72 61 79 20 67 65 74 20 74 6d 70 p [array get tmp
10c0: 5d 0a 09 72 65 74 75 72 6e 20 24 6d 79 6e 65 78 ]..return $mynex
10d0: 74 6d 61 70 0a 20 20 20 20 7d 0a 0a 20 20 20 20 tmap. }..
10e0: 23 20 72 65 76 69 73 69 6f 6e 20 2d 3e 20 6c 69 # revision -> li
10f0: 73 74 20 28 72 65 76 69 73 69 6f 6e 29 0a 20 20 st (revision).
1100: 20 20 6d 65 74 68 6f 64 20 70 72 65 6d 61 70 20 method premap
1110: 7b 7d 20 7b 0a 09 69 66 20 7b 5b 6c 6c 65 6e 67 {} {..if {[lleng
1120: 74 68 20 24 6d 79 70 72 65 6d 61 70 5d 7d 20 7b th $mypremap]} {
1130: 20 72 65 74 75 72 6e 20 24 6d 79 70 72 65 6d 61 return $myprema
1140: 70 20 7d 0a 09 24 6d 79 74 79 70 65 6f 62 6a 20 p }..$mytypeobj
1150: 70 72 65 64 65 63 65 73 73 6f 72 73 20 74 6d 70 predecessors tmp
1160: 20 24 6d 79 72 65 76 69 73 69 6f 6e 73 0a 09 73 $myrevisions..s
1170: 65 74 20 6d 79 70 72 65 6d 61 70 20 5b 61 72 72 et mypremap [arr
1180: 61 79 20 67 65 74 20 74 6d 70 5d 0a 09 72 65 74 ay get tmp]..ret
1190: 75 72 6e 20 24 6d 79 70 72 65 6d 61 70 0a 20 20 urn $mypremap.
11a0: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
11b0: 62 72 65 61 6b 69 6e 74 65 72 6e 61 6c 64 65 70 breakinternaldep
11c0: 65 6e 64 65 6e 63 69 65 73 20 7b 7d 20 7b 0a 09 endencies {} {..
11d0: 23 20 54 68 69 73 20 6d 65 74 68 6f 64 20 69 6e # This method in
11e0: 73 70 65 63 74 73 20 74 68 65 20 63 68 61 6e 67 spects the chang
11f0: 65 73 65 74 73 20 66 6f 72 20 69 6e 74 65 72 6e esets for intern
1200: 61 6c 0a 09 23 20 64 65 70 65 6e 64 65 6e 63 69 al..# dependenci
1210: 65 73 2e 20 4e 6f 74 68 69 6e 67 20 69 73 20 64 es. Nothing is d
1220: 6f 6e 65 20 69 66 20 74 68 65 72 65 20 61 72 65 one if there are
1230: 20 6e 6f 0a 09 23 20 73 75 63 68 2e 20 4f 74 68 no..# such. Oth
1240: 65 72 77 69 73 65 20 74 68 65 20 63 68 61 6e 67 erwise the chang
1250: 65 73 65 74 20 69 73 20 73 70 6c 69 74 20 69 6e eset is split in
1260: 74 6f 20 61 20 73 65 74 20 6f 66 0a 09 23 20 66 to a set of..# f
1270: 72 61 67 6d 65 6e 74 73 20 77 69 74 68 6f 75 74 ragments without
1280: 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 internal depend
1290: 65 6e 63 69 65 73 2c 20 74 72 61 6e 73 66 6f 72 encies, transfor
12a0: 6d 69 6e 67 20 74 68 65 0a 09 23 20 69 6e 74 65 ming the..# inte
12b0: 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 rnal dependencie
12c0: 73 20 69 6e 74 6f 20 65 78 74 65 72 6e 61 6c 20 s into external
12d0: 6f 6e 65 73 2e 20 54 68 65 20 6e 65 77 20 63 68 ones. The new ch
12e0: 61 6e 67 65 73 65 74 73 0a 09 23 20 61 72 65 20 angesets..# are
12f0: 61 64 64 65 64 20 74 6f 20 74 68 65 20 6c 69 73 added to the lis
1300: 74 20 6f 66 20 61 6c 6c 20 63 68 61 6e 67 65 73 t of all changes
1310: 65 74 73 2e 0a 0a 09 23 20 57 65 20 70 65 72 66 ets....# We perf
1320: 6f 72 6d 20 61 6c 6c 20 6e 65 63 65 73 73 61 72 orm all necessar
1330: 79 20 73 70 6c 69 74 73 20 69 6e 20 6f 6e 65 20 y splits in one
1340: 67 6f 2c 20 69 6e 73 74 65 61 64 20 6f 66 20 6f go, instead of o
1350: 6e 6c 79 0a 09 23 20 6f 6e 65 2e 20 54 68 65 20 nly..# one. The
1360: 70 72 65 76 69 6f 75 73 20 61 6c 67 6f 72 69 74 previous algorit
1370: 68 6d 2c 20 61 64 61 70 74 65 64 20 66 72 6f 6d hm, adapted from
1380: 20 63 76 73 32 73 76 6e 2c 20 63 6f 6d 70 75 74 cvs2svn, comput
1390: 65 64 0a 09 23 20 61 20 6c 6f 74 20 6f 66 20 73 ed..# a lot of s
13a0: 74 61 74 65 20 77 68 69 63 68 20 77 61 73 20 74 tate which was t
13b0: 68 72 6f 77 6e 20 61 77 61 79 20 61 6e 64 20 74 hrown away and t
13c0: 68 65 6e 20 63 6f 6d 70 75 74 65 64 20 61 67 61 hen computed aga
13d0: 69 6e 0a 09 23 20 66 6f 72 20 65 61 63 68 20 6f in..# for each o
13e0: 66 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 2e f the fragments.
13f0: 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 65 61 It should be ea
1400: 73 69 65 72 20 74 6f 20 75 70 64 61 74 65 20 61 sier to update a
1410: 6e 64 0a 09 23 20 72 65 75 73 65 20 74 68 61 74 nd..# reuse that
1420: 20 73 74 61 74 65 2e 0a 0a 09 23 20 54 68 65 20 state....# The
1430: 63 6f 64 65 20 63 68 65 63 6b 73 20 6f 6e 6c 79 code checks only
1440: 20 73 75 63 65 73 73 6f 72 20 64 65 70 65 6e 64 sucessor depend
1450: 65 6e 63 69 65 73 2c 20 61 73 20 74 68 69 73 0a encies, as this.
1460: 09 23 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 .# automatically
1470: 20 63 6f 76 65 72 73 20 74 68 65 20 70 72 65 64 covers the pred
1480: 65 63 65 73 73 6f 72 20 64 65 70 65 6e 64 65 6e ecessor dependen
1490: 63 69 65 73 20 61 73 20 77 65 6c 6c 20 28 41 0a cies as well (A.
14a0: 09 23 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 .# successor dep
14b0: 65 6e 64 65 6e 63 79 20 61 20 2d 3e 20 62 20 69 endency a -> b i
14c0: 73 20 61 6c 73 6f 20 61 20 70 72 65 64 65 63 65 s also a predece
14d0: 73 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 79 0a ssor dependency.
14e0: 09 23 20 62 20 2d 3e 20 61 29 2e 0a 0a 09 23 20 .# b -> a)....#
14f0: 41 72 72 61 79 20 6f 66 20 64 65 70 65 6e 64 65 Array of depende
1500: 6e 63 69 65 73 20 28 70 61 72 65 6e 74 20 2d 3e ncies (parent ->
1510: 20 63 68 69 6c 64 29 2e 20 54 68 69 73 20 69 73 child). This is
1520: 20 70 75 6c 6c 65 64 20 66 72 6f 6d 0a 09 23 20 pulled from..#
1530: 74 68 65 20 73 74 61 74 65 2c 20 61 6e 64 20 6c the state, and l
1540: 69 6d 69 74 65 64 20 74 6f 20 73 75 63 63 65 73 imited to succes
1550: 73 6f 72 73 20 77 69 74 68 69 6e 20 74 68 65 20 sors within the
1560: 63 68 61 6e 67 65 73 65 74 2e 0a 0a 09 61 72 72 changeset....arr
1570: 61 79 20 73 65 74 20 64 65 70 65 6e 64 65 6e 63 ay set dependenc
1580: 69 65 73 20 7b 7d 0a 09 24 6d 79 74 79 70 65 6f ies {}..$mytypeo
1590: 62 6a 20 69 6e 74 65 72 6e 61 6c 73 75 63 63 65 bj internalsucce
15a0: 73 73 6f 72 73 20 64 65 70 65 6e 64 65 6e 63 69 ssors dependenci
15b0: 65 73 20 24 6d 79 72 65 76 69 73 69 6f 6e 73 0a es $myrevisions.
15c0: 09 69 66 20 7b 21 5b 61 72 72 61 79 20 73 69 7a .if {![array siz
15d0: 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 5d 7d e dependencies]}
15e0: 20 7b 72 65 74 75 72 6e 20 30 7d 20 3b 20 23 20 {return 0} ; #
15f0: 4e 6f 74 68 69 6e 67 20 74 6f 20 62 72 65 61 6b Nothing to break
1600: 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 35 20 ....log write 5
1610: 63 73 65 74 73 20 2e 2e 2e 5b 24 73 65 6c 66 20 csets ...[$self
1620: 73 74 72 5d 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e str]............
1630: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1640: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
1650: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 0a 0a 09 23 20 ..............#
1660: 57 65 20 68 61 76 65 20 69 6e 74 65 72 6e 61 6c We have internal
1670: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 74 6f dependencies to
1680: 20 62 72 65 61 6b 2e 20 57 65 20 6e 6f 77 20 69 break. We now i
1690: 74 65 72 61 74 65 20 6f 76 65 72 0a 09 23 20 61 terate over..# a
16a0: 6c 6c 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e 20 ll positions in
16b0: 74 68 65 20 6c 69 73 74 20 28 77 68 69 63 68 20 the list (which
16c0: 69 73 20 63 68 72 6f 6e 6f 6c 6f 67 69 63 61 6c is chronological
16d0: 2c 20 61 74 20 6c 65 61 73 74 0a 09 23 20 61 73 , at least..# as
16e0: 20 66 61 72 20 61 73 20 74 68 65 20 74 69 6d 65 far as the time
16f0: 73 74 61 6d 70 73 20 61 72 65 20 63 6f 72 72 65 stamps are corre
1700: 63 74 20 61 6e 64 20 75 6e 69 71 75 65 29 20 61 ct and unique) a
1710: 6e 64 0a 09 23 20 64 65 74 65 72 6d 69 6e 65 20 nd..# determine
1720: 74 68 65 20 62 65 73 74 20 70 6f 73 69 74 69 6f the best positio
1730: 6e 20 66 6f 72 20 74 68 65 20 62 72 65 61 6b 2c n for the break,
1740: 20 62 79 20 74 72 79 69 6e 67 20 74 6f 0a 09 23 by trying to..#
1750: 20 62 72 65 61 6b 20 61 73 20 6d 61 6e 79 20 64 break as many d
1760: 65 70 65 6e 64 65 6e 63 69 65 73 20 61 73 20 70 ependencies as p
1770: 6f 73 73 69 62 6c 65 20 69 6e 20 6f 6e 65 20 67 ossible in one g
1780: 6f 2e 20 57 68 65 6e 20 61 0a 09 23 20 62 72 65 o. When a..# bre
1790: 61 6b 20 77 61 73 20 66 6f 75 6e 64 20 74 68 69 ak was found thi
17a0: 73 20 69 73 20 72 65 64 6f 6e 65 20 66 6f 72 20 s is redone for
17b0: 74 68 65 20 66 72 61 67 6d 65 6e 74 73 20 63 6f the fragments co
17c0: 6d 69 6e 67 20 61 6e 64 0a 09 23 20 61 66 74 65 ming and..# afte
17d0: 72 2c 20 61 66 74 65 72 20 75 70 64 69 6e 67 20 r, after upding
17e0: 74 68 65 20 63 72 6f 73 73 69 6e 67 20 69 6e 66 the crossing inf
17f0: 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 09 23 20 44 61 ormation....# Da
1800: 74 61 20 73 74 72 75 63 74 75 72 65 73 3a 0a 09 ta structures:..
1810: 23 20 4d 61 70 3a 20 20 50 4f 53 20 20 20 72 65 # Map: POS re
1820: 76 69 73 69 6f 6e 20 69 64 20 20 20 20 20 20 2d vision id -
1830: 3e 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 6c 69 > position in li
1840: 73 74 2e 0a 09 23 20 20 20 20 20 20 20 43 52 4f st...# CRO
1850: 53 53 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 6c SS position in l
1860: 69 73 74 20 2d 3e 20 6e 75 6d 62 65 72 20 6f 66 ist -> number of
1870: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 63 72 dependencies cr
1880: 6f 73 73 69 6e 67 20 69 74 0a 09 23 20 20 20 20 ossing it..#
1890: 20 20 20 44 45 50 43 20 20 64 65 70 65 6e 64 65 DEPC depende
18a0: 6e 63 79 20 20 20 20 20 20 20 2d 3e 20 70 6f 73 ncy -> pos
18b0: 69 74 69 6f 6e 73 20 69 74 20 63 72 6f 73 73 65 itions it crosse
18c0: 73 0a 09 23 20 4c 69 73 74 3a 20 52 41 4e 47 45 s..# List: RANGE
18d0: 20 4f 66 20 74 68 65 20 70 6f 73 69 74 69 6f 6e Of the position
18e0: 73 20 69 74 73 65 6c 66 2e 0a 09 23 20 41 20 64 s itself...# A d
18f0: 65 70 65 6e 64 65 6e 63 79 20 69 73 20 61 20 73 ependency is a s
1900: 69 6e 67 6c 65 2d 65 6c 65 6d 65 6e 74 20 6d 61 ingle-element ma
1910: 70 20 70 61 72 65 6e 74 20 2d 3e 20 63 68 69 6c p parent -> chil
1920: 64 0a 0a 09 49 6e 69 74 69 61 6c 69 7a 65 42 72 d...InitializeBr
1930: 65 61 6b 53 74 61 74 65 20 24 6d 79 72 65 76 69 eakState $myrevi
1940: 73 69 6f 6e 73 0a 0a 09 73 65 74 20 66 72 61 67 sions...set frag
1950: 6d 65 6e 74 73 20 7b 7d 0a 09 73 65 74 20 70 65 ments {}..set pe
1960: 6e 64 69 6e 67 20 20 20 5b 6c 69 73 74 20 24 72 nding [list $r
1970: 61 6e 67 65 5d 0a 09 73 65 74 20 61 74 20 20 20 ange]..set at
1980: 20 20 20 20 20 30 0a 09 61 72 72 61 79 20 73 65 0..array se
1990: 74 20 62 72 65 61 6b 73 20 7b 7d 0a 0a 09 77 68 t breaks {}...wh
19a0: 69 6c 65 20 7b 24 61 74 20 3c 20 5b 6c 6c 65 6e ile {$at < [llen
19b0: 67 74 68 20 24 70 65 6e 64 69 6e 67 5d 7d 20 7b gth $pending]} {
19c0: 0a 09 20 20 20 20 73 65 74 20 63 75 72 72 65 6e .. set curren
19d0: 74 20 5b 6c 69 6e 64 65 78 20 24 70 65 6e 64 69 t [lindex $pendi
19e0: 6e 67 20 24 61 74 5d 0a 0a 09 20 20 20 20 6c 6f ng $at]... lo
19f0: 67 20 77 72 69 74 65 20 36 20 63 73 65 74 73 20 g write 6 csets
1a00: 7b 2e 20 2e 20 2e 2e 20 2e 2e 2e 20 2e 2e 2e 2e {. . .. ... ....
1a10: 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e . ........ .....
1a20: 2e 2e 2e 2e 2e 2e 2e 2e 7d 0a 09 20 20 20 20 6c ........}.. l
1a30: 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 74 73 og write 6 csets
1a40: 20 7b 53 63 68 65 64 75 6c 65 64 20 20 20 5b 6a {Scheduled [j
1a50: 6f 69 6e 20 5b 50 52 73 20 5b 6c 72 61 6e 67 65 oin [PRs [lrange
1a60: 20 24 70 65 6e 64 69 6e 67 20 24 61 74 20 65 6e $pending $at en
1a70: 64 5d 5d 20 7b 20 7d 5d 7d 0a 09 20 20 20 20 6c d]] { }]}.. l
1a80: 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 74 73 og write 6 csets
1a90: 20 7b 43 6f 6e 73 69 64 65 72 69 6e 67 20 5b 50 {Considering [P
1aa0: 52 20 24 63 75 72 72 65 6e 74 5d 20 5c 5b 24 61 R $current] \[$a
1ab0: 74 2f 5b 6c 6c 65 6e 67 74 68 20 24 70 65 6e 64 t/[llength $pend
1ac0: 69 6e 67 5d 5c 5d 7d 0a 0a 09 20 20 20 20 73 65 ing]\]}... se
1ad0: 74 20 62 65 73 74 20 5b 46 69 6e 64 42 65 73 74 t best [FindBest
1ae0: 42 72 65 61 6b 20 24 63 75 72 72 65 6e 74 5d 0a Break $current].
1af0: 0a 09 20 20 20 20 69 66 20 7b 24 62 65 73 74 20 .. if {$best
1b00: 3c 20 30 7d 20 7b 0a 09 09 23 20 54 68 65 20 69 < 0} {...# The i
1b10: 6e 73 70 65 63 74 65 64 20 72 61 6e 67 65 20 68 nspected range h
1b20: 61 73 20 6e 6f 20 69 6e 74 65 72 6e 61 6c 0a 09 as no internal..
1b30: 09 23 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e .# dependencies.
1b40: 20 54 68 69 73 20 69 73 20 61 20 63 6f 6d 70 6c This is a compl
1b50: 65 74 65 20 66 72 61 67 6d 65 6e 74 2e 0a 09 09 ete fragment....
1b60: 6c 61 70 70 65 6e 64 20 66 72 61 67 6d 65 6e 74 lappend fragment
1b70: 73 20 24 63 75 72 72 65 6e 74 0a 0a 09 09 6c 6f s $current....lo
1b80: 67 20 77 72 69 74 65 20 36 20 63 73 65 74 73 20 g write 6 csets
1b90: 22 4e 6f 20 62 72 65 61 6b 73 2c 20 66 69 6e 61 "No breaks, fina
1ba0: 6c 22 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b l".. } else {
1bb0: 0a 09 09 23 20 53 70 6c 69 74 20 74 68 65 20 72 ...# Split the r
1bc0: 61 6e 67 65 20 61 6e 64 20 73 63 68 65 64 75 6c ange and schedul
1bd0: 65 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 e the resulting
1be0: 66 72 61 67 6d 65 6e 74 73 0a 09 09 23 20 66 6f fragments...# fo
1bf0: 72 20 66 75 72 74 68 65 72 20 69 6e 73 70 65 63 r further inspec
1c00: 74 69 6f 6e 2e 20 52 65 6d 65 6d 62 65 72 20 74 tion. Remember t
1c10: 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 09 09 23 he number of...#
1c20: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 63 75 dependencies cu
1c30: 74 20 62 65 66 6f 72 65 20 77 65 20 72 65 6d 6f t before we remo
1c40: 76 65 20 74 68 65 6d 20 66 72 6f 6d 0a 09 09 23 ve them from...#
1c50: 20 63 6f 6e 73 69 64 65 72 61 74 69 6f 6e 2c 20 consideration,
1c60: 66 6f 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f for documentatio
1c70: 6e 20 6c 61 74 65 72 2e 0a 0a 09 09 73 65 74 20 n later.....set
1c80: 62 72 65 61 6b 73 28 24 62 65 73 74 29 20 24 63 breaks($best) $c
1c90: 72 6f 73 73 28 24 62 65 73 74 29 0a 0a 09 09 6c ross($best)....l
1ca0: 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 74 73 og write 6 csets
1cb0: 20 22 42 65 73 74 20 62 72 65 61 6b 20 40 20 24 "Best break @ $
1cc0: 62 65 73 74 2c 20 63 75 74 74 69 6e 67 20 5b 6e best, cutting [n
1cd0: 73 70 20 24 63 72 6f 73 73 28 24 62 65 73 74 29 sp $cross($best)
1ce0: 20 64 65 70 65 6e 64 65 6e 63 79 20 64 65 70 65 dependency depe
1cf0: 6e 64 65 6e 63 69 65 73 5d 22 0a 0a 09 09 23 20 ndencies]"....#
1d00: 4e 6f 74 65 3a 20 54 68 65 20 76 61 6c 75 65 20 Note: The value
1d10: 6f 66 20 62 65 73 74 20 69 73 20 61 6e 20 61 62 of best is an ab
1d20: 6f 6c 75 74 65 20 6c 6f 63 61 74 69 6f 6e 20 69 olute location i
1d30: 6e 0a 09 09 23 20 6d 79 72 65 76 69 73 69 6f 6e n...# myrevision
1d40: 73 2e 20 55 73 65 20 74 68 65 20 73 74 61 72 74 s. Use the start
1d50: 20 6f 66 20 63 75 72 72 65 6e 74 20 74 6f 20 6d of current to m
1d60: 61 6b 65 20 69 74 20 61 6e 0a 09 09 23 20 69 6e ake it an...# in
1d70: 64 65 78 20 61 62 73 6f 6c 75 74 65 20 74 6f 20 dex absolute to
1d80: 63 75 72 72 65 6e 74 2e 0a 0a 09 09 73 65 74 20 current.....set
1d90: 62 72 65 6c 20 5b 65 78 70 72 20 7b 24 62 65 73 brel [expr {$bes
1da0: 74 20 2d 20 5b 6c 69 6e 64 65 78 20 24 63 75 72 t - [lindex $cur
1db0: 72 65 6e 74 20 30 5d 7d 5d 0a 09 09 73 65 74 20 rent 0]}]...set
1dc0: 62 6e 65 78 74 20 24 62 72 65 6c 20 3b 20 69 6e bnext $brel ; in
1dd0: 63 72 20 62 6e 65 78 74 0a 09 09 73 65 74 20 66 cr bnext...set f
1de0: 72 61 67 62 65 66 6f 72 65 20 5b 6c 72 61 6e 67 ragbefore [lrang
1df0: 65 20 24 63 75 72 72 65 6e 74 20 30 20 24 62 72 e $current 0 $br
1e00: 65 6c 5d 0a 09 09 73 65 74 20 66 72 61 67 61 66 el]...set fragaf
1e10: 74 65 72 20 20 5b 6c 72 61 6e 67 65 20 24 63 75 ter [lrange $cu
1e20: 72 72 65 6e 74 20 24 62 6e 65 78 74 20 65 6e 64 rrent $bnext end
1e30: 5d 0a 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 36 ]....log write 6
1e40: 20 63 73 65 74 73 20 22 4e 65 77 20 70 69 65 63 csets "New piec
1e50: 65 73 20 20 5b 50 52 20 24 66 72 61 67 62 65 66 es [PR $fragbef
1e60: 6f 72 65 5d 20 5b 50 52 20 24 66 72 61 67 61 66 ore] [PR $fragaf
1e70: 74 65 72 5d 22 0a 0a 09 09 69 6e 74 65 67 72 69 ter]"....integri
1e80: 74 79 20 61 73 73 65 72 74 20 7b 5b 6c 6c 65 6e ty assert {[llen
1e90: 67 74 68 20 24 66 72 61 67 62 65 66 6f 72 65 5d gth $fragbefore]
1ea0: 7d 20 7b 46 6f 75 6e 64 20 7a 65 72 6f 2d 6c 65 } {Found zero-le
1eb0: 6e 67 74 68 20 66 72 61 67 6d 65 6e 74 20 61 74 ngth fragment at
1ec0: 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 7d 0a the beginning}.
1ed0: 09 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 ..integrity asse
1ee0: 72 74 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 66 72 rt {[llength $fr
1ef0: 61 67 61 66 74 65 72 5d 7d 20 20 7b 46 6f 75 6e agafter]} {Foun
1f00: 64 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 66 72 d zero-length fr
1f10: 61 67 6d 65 6e 74 20 61 74 20 74 68 65 20 65 6e agment at the en
1f20: 64 7d 0a 0a 09 09 6c 61 70 70 65 6e 64 20 70 65 d}....lappend pe
1f30: 6e 64 69 6e 67 20 24 66 72 61 67 62 65 66 6f 72 nding $fragbefor
1f40: 65 20 24 66 72 61 67 61 66 74 65 72 0a 09 09 43 e $fragafter...C
1f50: 75 74 41 74 20 24 62 65 73 74 0a 09 20 20 20 20 utAt $best..
1f60: 7d 0a 0a 09 20 20 20 20 69 6e 63 72 20 61 74 0a }... incr at.
1f70: 09 7d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 36 .}...log write 6
1f80: 20 63 73 65 74 73 20 22 2e 20 2e 20 2e 2e 20 2e csets ". . .. .
1f90: 2e 2e 20 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 2e .. ..... .......
1fa0: 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 22 . ............."
1fb0: 0a 0a 09 23 20 28 2a 29 20 57 65 20 63 6c 65 61 ...# (*) We clea
1fc0: 72 20 6f 75 74 20 74 68 65 20 61 73 73 6f 63 69 r out the associ
1fd0: 61 74 65 64 20 70 61 72 74 20 6f 66 20 74 68 65 ated part of the
1fe0: 20 6d 79 72 65 76 6d 61 70 0a 09 23 20 69 6e 2d myrevmap..# in-
1ff0: 6d 65 6d 6f 72 79 20 69 6e 64 65 78 20 69 6e 20 memory index in
2000: 70 72 65 70 61 72 61 74 69 6f 6e 20 66 6f 72 20 preparation for
2010: 6e 65 77 20 64 61 74 61 2e 20 41 20 73 69 6d 70 new data. A simp
2020: 6c 65 20 75 6e 73 65 74 0a 09 23 20 69 73 20 65 le unset..# is e
2030: 6e 6f 75 67 68 2c 20 77 65 20 68 61 76 65 20 6e nough, we have n
2040: 6f 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 o symbol changes
2050: 65 74 73 20 61 74 20 74 68 69 73 20 74 69 6d 65 ets at this time
2060: 2c 20 61 6e 64 0a 09 23 20 74 68 75 73 20 6e 65 , and..# thus ne
2070: 76 65 72 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e ver more than on
2080: 65 20 72 65 66 65 72 65 6e 63 65 20 69 6e 20 74 e reference in t
2090: 68 65 20 6c 69 73 74 2e 0a 0a 09 66 6f 72 65 61 he list....forea
20a0: 63 68 20 72 20 24 6d 79 72 65 76 69 73 69 6f 6e ch r $myrevision
20b0: 73 20 7b 20 75 6e 73 65 74 20 6d 79 72 65 76 6d s { unset myrevm
20c0: 61 70 28 24 72 29 20 7d 0a 0a 09 23 20 43 72 65 ap($r) }...# Cre
20d0: 61 74 65 20 63 68 61 6e 67 65 73 65 74 73 20 66 ate changesets f
20e0: 6f 72 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 or the fragments
20f0: 2c 20 72 65 75 73 69 6e 67 20 74 68 65 20 63 75 , reusing the cu
2100: 72 72 65 6e 74 20 6f 6e 65 0a 09 23 20 66 6f 72 rrent one..# for
2110: 20 74 68 65 20 66 69 72 73 74 20 66 72 61 67 6d the first fragm
2120: 65 6e 74 2e 20 57 65 20 73 6f 72 74 20 74 68 65 ent. We sort the
2130: 6d 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 61 6c m in order to al
2140: 6c 6f 77 0a 09 23 20 63 68 65 63 6b 69 6e 67 20 low..# checking
2150: 66 6f 72 20 67 61 70 73 20 61 6e 64 20 6e 69 63 for gaps and nic
2160: 65 20 6d 65 73 73 61 67 65 73 2e 0a 0a 09 73 65 e messages....se
2170: 74 20 66 72 61 67 6d 65 6e 74 73 20 5b 6c 73 6f t fragments [lso
2180: 72 74 20 2d 69 6e 64 65 78 20 30 20 2d 69 6e 74 rt -index 0 -int
2190: 65 67 65 72 20 24 66 72 61 67 6d 65 6e 74 73 5d eger $fragments]
21a0: 0a 0a 09 23 70 75 74 73 20 5c 74 2e 5b 6a 6f 69 ...#puts \t.[joi
21b0: 6e 20 5b 50 52 73 20 24 66 72 61 67 6d 65 6e 74 n [PRs $fragment
21c0: 73 5d 20 2e 5c 6e 5c 74 2e 5d 2e 0a 0a 09 42 6f s] .\n\t.]....Bo
21d0: 72 64 65 72 20 5b 6c 69 6e 64 65 78 20 24 66 72 rder [lindex $fr
21e0: 61 67 6d 65 6e 74 73 20 30 5d 20 66 69 72 73 74 agments 0] first
21f0: 73 20 66 69 72 73 74 65 0a 0a 09 69 6e 74 65 67 s firste...integ
2200: 72 69 74 79 20 61 73 73 65 72 74 20 7b 24 66 69 rity assert {$fi
2210: 72 73 74 73 20 3d 3d 20 30 7d 20 7b 42 61 64 20 rsts == 0} {Bad
2220: 66 72 61 67 6d 65 6e 74 20 73 74 61 72 74 20 40 fragment start @
2230: 20 24 66 69 72 73 74 73 2c 20 67 61 70 2c 20 6f $firsts, gap, o
2240: 72 20 62 65 66 6f 72 65 20 62 65 67 69 6e 6e 69 r before beginni
2250: 6e 67 20 6f 66 20 74 68 65 20 72 61 6e 67 65 7d ng of the range}
2260: 0a 0a 09 73 65 74 20 6c 61 73 74 65 20 24 66 69 ...set laste $fi
2270: 72 73 74 65 0a 09 66 6f 72 65 61 63 68 20 66 72 rste..foreach fr
2280: 61 67 6d 65 6e 74 20 5b 6c 72 61 6e 67 65 20 24 agment [lrange $
2290: 66 72 61 67 6d 65 6e 74 73 20 31 20 65 6e 64 5d fragments 1 end]
22a0: 20 7b 0a 09 20 20 20 20 42 6f 72 64 65 72 20 24 {.. Border $
22b0: 66 72 61 67 6d 65 6e 74 20 73 20 65 0a 09 20 20 fragment s e..
22c0: 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 integrity asse
22d0: 72 74 20 7b 24 6c 61 73 74 65 20 3d 3d 20 28 24 rt {$laste == ($
22e0: 73 20 2d 20 31 29 7d 20 7b 42 61 64 20 66 72 61 s - 1)} {Bad fra
22f0: 67 6d 65 6e 74 20 62 6f 72 64 65 72 20 3c 24 6c gment border <$l
2300: 61 73 74 65 20 7c 20 24 73 3e 2c 20 67 61 70 20 aste | $s>, gap
2310: 6f 72 20 6f 76 65 72 6c 61 70 7d 0a 0a 09 20 20 or overlap}...
2320: 20 20 73 65 74 20 6e 65 77 20 5b 24 74 79 70 65 set new [$type
2330: 20 25 41 55 54 4f 25 20 24 6d 79 70 72 6f 6a 65 %AUTO% $myproje
2340: 63 74 20 24 6d 79 74 79 70 65 20 24 6d 79 73 72 ct $mytype $mysr
2350: 63 69 64 20 5b 6c 72 61 6e 67 65 20 24 6d 79 72 cid [lrange $myr
2360: 65 76 69 73 69 6f 6e 73 20 24 73 20 24 65 5d 5d evisions $s $e]]
2370: 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f .. lo
2380: 67 20 77 72 69 74 65 20 34 20 63 73 65 74 73 20 g write 4 csets
2390: 22 42 72 65 61 6b 69 6e 67 20 5b 24 73 65 6c 66 "Breaking [$self
23a0: 20 73 74 72 20 5d 20 40 20 24 6c 61 73 74 65 2c str ] @ $laste,
23b0: 20 6e 65 77 20 5b 24 6e 65 77 20 73 74 72 5d 2c new [$new str],
23c0: 20 63 75 74 74 69 6e 67 20 24 62 72 65 61 6b 73 cutting $breaks
23d0: 28 24 6c 61 73 74 65 29 22 0a 0a 09 20 20 20 20 ($laste)"...
23e0: 73 65 74 20 6c 61 73 74 65 20 24 65 0a 09 7d 0a set laste $e..}.
23f0: 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 ..integrity asse
2400: 72 74 20 7b 0a 09 20 20 20 20 24 6c 61 73 74 65 rt {.. $laste
2410: 20 3d 3d 20 28 5b 6c 6c 65 6e 67 74 68 20 24 6d == ([llength $m
2420: 79 72 65 76 69 73 69 6f 6e 73 5d 2d 31 29 0a 09 yrevisions]-1)..
2430: 7d 20 7b 42 61 64 20 66 72 61 67 6d 65 6e 74 20 } {Bad fragment
2440: 65 6e 64 20 40 20 24 6c 61 73 74 65 2c 20 67 61 end @ $laste, ga
2450: 70 2c 20 6f 72 20 62 65 79 6f 6e 64 20 65 6e 64 p, or beyond end
2460: 20 6f 66 20 74 68 65 20 72 61 6e 67 65 7d 0a 0a of the range}..
2470: 09 23 20 50 75 74 20 74 68 65 20 66 69 72 73 74 .# Put the first
2480: 20 66 72 61 67 6d 65 6e 74 20 69 6e 74 6f 20 74 fragment into t
2490: 68 65 20 63 75 72 72 65 6e 74 20 63 68 61 6e 67 he current chang
24a0: 65 73 65 74 2c 20 61 6e 64 0a 09 23 20 75 70 64 eset, and..# upd
24b0: 61 74 65 20 74 68 65 20 69 6e 2d 6d 65 6d 6f 72 ate the in-memor
24c0: 79 20 69 6e 64 65 78 2e 20 57 65 20 63 61 6e 20 y index. We can
24d0: 73 69 6d 70 6c 79 20 28 72 65 29 61 64 64 20 74 simply (re)add t
24e0: 68 65 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 20 he..# revisions
24f0: 62 65 63 61 75 73 65 20 77 65 20 63 6c 65 61 72 because we clear
2500: 65 64 20 74 68 65 20 70 72 65 76 69 6f 75 73 6c ed the previousl
2510: 79 20 65 78 69 73 74 69 6e 67 0a 09 23 20 69 6e y existing..# in
2520: 66 6f 72 6d 61 74 69 6f 6e 2c 20 73 65 65 20 28 formation, see (
2530: 2a 29 20 61 62 6f 76 65 2e 20 50 65 72 73 69 73 *) above. Persis
2540: 74 65 6e 63 65 20 64 6f 65 73 20 6e 6f 74 20 6d tence does not m
2550: 61 74 74 65 72 0a 09 23 20 68 65 72 65 2c 20 6e atter..# here, n
2560: 6f 6e 65 20 6f 66 20 74 68 65 20 63 68 61 6e 67 one of the chang
2570: 65 73 65 74 73 20 68 61 73 20 62 65 65 6e 20 73 esets has been s
2580: 61 76 65 64 20 74 6f 20 74 68 65 0a 09 23 20 70 aved to the..# p
2590: 65 72 73 69 73 74 65 6e 74 20 73 74 61 74 65 20 ersistent state
25a0: 79 65 74 2e 0a 0a 09 73 65 74 20 6d 79 72 65 76 yet....set myrev
25b0: 69 73 69 6f 6e 73 20 5b 6c 72 61 6e 67 65 20 24 isions [lrange $
25c0: 6d 79 72 65 76 69 73 69 6f 6e 73 20 30 20 24 66 myrevisions 0 $f
25d0: 69 72 73 74 65 5d 0a 09 66 6f 72 65 61 63 68 20 irste]..foreach
25e0: 72 20 24 6d 79 72 65 76 69 73 69 6f 6e 73 20 7b r $myrevisions {
25f0: 20 6c 61 70 70 65 6e 64 20 6d 79 72 65 76 6d 61 lappend myrevma
2600: 70 28 24 72 29 20 24 73 65 6c 66 20 7d 0a 0a 09 p($r) $self }...
2610: 72 65 74 75 72 6e 20 31 0a 20 20 20 20 7d 0a 0a return 1. }..
2620: 20 20 20 20 6d 65 74 68 6f 64 20 70 65 72 73 69 method persi
2630: 73 74 20 7b 7d 20 7b 0a 09 73 65 74 20 74 69 64 st {} {..set tid
2640: 20 24 6d 79 63 73 74 79 70 65 28 24 6d 79 74 79 $mycstype($myty
2650: 70 65 29 0a 09 73 65 74 20 70 69 64 20 5b 24 6d pe)..set pid [$m
2660: 79 70 72 6f 6a 65 63 74 20 69 64 5d 0a 09 73 65 yproject id]..se
2670: 74 20 70 6f 73 20 30 0a 0a 09 73 74 61 74 65 20 t pos 0...state
2680: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 20 transaction {..
2690: 20 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 state run {..
26a0: 09 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 68 61 .INSERT INTO cha
26b0: 6e 67 65 73 65 74 20 28 63 69 64 2c 20 20 20 70 ngeset (cid, p
26c0: 69 64 2c 20 20 74 79 70 65 2c 20 73 72 63 29 0a id, type, src).
26d0: 09 09 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 ..VALUES
26e0: 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c 20 ($myid,
26f0: 24 70 69 64 2c 20 24 74 69 64 2c 20 24 6d 79 73 $pid, $tid, $mys
2700: 72 63 69 64 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 rcid);.. }...
2710: 20 20 20 20 66 6f 72 65 61 63 68 20 72 69 64 20 foreach rid
2720: 24 6d 79 72 65 76 69 73 69 6f 6e 73 20 7b 0a 09 $myrevisions {..
2730: 09 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 20 .state run {...
2740: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 INSERT INTO c
2750: 73 72 65 76 69 73 69 6f 6e 20 28 63 69 64 2c 20 srevision (cid,
2760: 20 20 70 6f 73 2c 20 20 72 69 64 29 0a 09 09 20 pos, rid)...
2770: 20 20 20 56 41 4c 55 45 53 20 20 20 20 20 20 20 VALUES
2780: 20 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 ($myid
2790: 2c 20 24 70 6f 73 2c 20 24 72 69 64 29 3b 0a 09 , $pos, $rid);..
27a0: 09 7d 0a 09 09 69 6e 63 72 20 70 6f 73 0a 09 20 .}...incr pos..
27b0: 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a }..}..return.
27c0: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
27d0: 64 20 74 69 6d 65 72 61 6e 67 65 20 7b 7d 20 7b d timerange {} {
27e0: 20 72 65 74 75 72 6e 20 5b 24 6d 79 74 79 70 65 return [$mytype
27f0: 6f 62 6a 20 74 69 6d 65 72 61 6e 67 65 20 24 6d obj timerange $m
2800: 79 72 65 76 69 73 69 6f 6e 73 5d 20 7d 0a 0a 20 yrevisions] }..
2810: 20 20 20 6d 65 74 68 6f 64 20 64 72 6f 70 20 7b method drop {
2820: 7d 20 7b 0a 09 73 74 61 74 65 20 74 72 61 6e 73 } {..state trans
2830: 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 action {.. st
2840: 61 74 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 ate run {...DELE
2850: 54 45 20 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 TE FROM changese
2860: 74 20 20 57 48 45 52 45 20 63 69 64 20 3d 20 24 t WHERE cid = $
2870: 6d 79 69 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 myid;...DELETE F
2880: 52 4f 4d 20 63 73 72 65 76 69 73 69 6f 6e 20 57 ROM csrevision W
2890: 48 45 52 45 20 63 69 64 20 3d 20 24 6d 79 69 64 HERE cid = $myid
28a0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 ;.. }..}..for
28b0: 65 61 63 68 20 72 20 24 6d 79 72 65 76 69 73 69 each r $myrevisi
28c0: 6f 6e 73 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b ons {.. if {[
28d0: 6c 6c 65 6e 67 74 68 20 24 6d 79 72 65 76 6d 61 llength $myrevma
28e0: 70 28 24 72 29 5d 20 3d 3d 20 31 7d 20 7b 0a 09 p($r)] == 1} {..
28f0: 09 75 6e 73 65 74 20 6d 79 72 65 76 6d 61 70 28 .unset myrevmap(
2900: 24 72 29 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 $r).. } else
2910: 7b 0a 09 09 73 65 74 20 70 6f 73 20 5b 6c 73 65 {...set pos [lse
2920: 61 72 63 68 20 2d 65 78 61 63 74 20 24 6d 79 72 arch -exact $myr
2930: 65 76 6d 61 70 28 24 72 29 20 24 73 65 6c 66 5d evmap($r) $self]
2940: 0a 09 09 73 65 74 20 6d 79 72 65 76 6d 61 70 28 ...set myrevmap(
2950: 24 72 29 20 5b 6c 72 65 70 6c 61 63 65 20 24 6d $r) [lreplace $m
2960: 79 72 65 76 6d 61 70 28 24 72 29 20 24 70 6f 73 yrevmap($r) $pos
2970: 20 24 70 6f 73 5d 0a 09 20 20 20 20 7d 0a 09 7d $pos].. }..}
2980: 0a 09 73 65 74 20 70 6f 73 20 20 20 20 20 20 20 ..set pos
2990: 20 20 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 [lsearch -exa
29a0: 63 74 20 24 6d 79 63 68 61 6e 67 65 73 65 74 73 ct $mychangesets
29b0: 20 24 73 65 6c 66 5d 0a 09 73 65 74 20 6d 79 63 $self]..set myc
29c0: 68 61 6e 67 65 73 65 74 73 20 5b 6c 72 65 70 6c hangesets [lrepl
29d0: 61 63 65 20 24 6d 79 63 68 61 6e 67 65 73 65 74 ace $mychangeset
29e0: 73 20 24 70 6f 73 20 24 70 6f 73 5d 0a 09 72 65 s $pos $pos]..re
29f0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
2a00: 74 79 70 65 6d 65 74 68 6f 64 20 73 70 6c 69 74 typemethod split
2a10: 20 7b 63 73 65 74 20 61 72 67 73 7d 20 7b 0a 09 {cset args} {..
2a20: 23 20 41 73 20 70 61 72 74 20 6f 66 20 74 68 65 # As part of the
2a30: 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 68 65 creation of the
2a40: 20 6e 65 77 20 63 68 61 6e 67 65 73 65 74 73 20 new changesets
2a50: 73 70 65 63 69 66 69 65 64 20 69 6e 0a 09 23 20 specified in..#
2a60: 41 52 47 53 20 61 73 20 73 65 74 73 20 6f 66 20 ARGS as sets of
2a70: 72 65 76 69 73 69 6f 6e 73 2c 20 61 6c 6c 20 73 revisions, all s
2a80: 75 62 73 65 74 73 20 6f 66 20 43 53 45 54 27 73 ubsets of CSET's
2a90: 20 72 65 76 69 73 69 6f 6e 0a 09 23 20 73 65 74 revision..# set
2aa0: 2c 20 43 53 45 54 20 77 69 6c 6c 20 62 65 20 64 , CSET will be d
2ab0: 72 6f 70 70 65 64 20 66 72 6f 6d 20 61 6c 6c 20 ropped from all
2ac0: 64 61 74 61 62 61 73 65 73 2c 20 69 6e 20 61 6e databases, in an
2ad0: 64 20 6f 75 74 20 6f 66 0a 09 23 20 6d 65 6d 6f d out of..# memo
2ae0: 72 79 2c 20 61 6e 64 20 74 68 65 6e 20 64 65 73 ry, and then des
2af0: 74 72 6f 79 65 64 2e 0a 0a 09 73 74 72 75 63 74 troyed....struct
2b00: 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 24 ::list assign [$
2b10: 63 73 65 74 20 64 61 74 61 5d 20 70 72 6f 6a 65 cset data] proje
2b20: 63 74 20 63 73 74 79 70 65 20 63 73 73 72 63 0a ct cstype cssrc.
2b30: 0a 09 24 63 73 65 74 20 64 72 6f 70 0a 09 24 63 ..$cset drop..$c
2b40: 73 65 74 20 64 65 73 74 72 6f 79 0a 0a 09 73 65 set destroy...se
2b50: 74 20 6e 65 77 63 73 65 74 73 20 7b 7d 0a 09 66 t newcsets {}..f
2b60: 6f 72 65 61 63 68 20 66 72 61 67 6d 65 6e 74 72 oreach fragmentr
2b70: 65 76 69 73 69 6f 6e 73 20 24 61 72 67 73 20 7b evisions $args {
2b80: 0a 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 .. integrity
2b90: 61 73 73 65 72 74 20 7b 0a 09 09 5b 6c 6c 65 6e assert {...[llen
2ba0: 67 74 68 20 24 66 72 61 67 6d 65 6e 74 72 65 76 gth $fragmentrev
2bb0: 69 73 69 6f 6e 73 5d 0a 09 20 20 20 20 7d 20 7b isions].. } {
2bc0: 41 74 74 65 6d 70 74 65 64 20 74 6f 20 63 72 65 Attempted to cre
2bd0: 61 74 65 20 61 6e 20 65 6d 70 74 79 20 63 68 61 ate an empty cha
2be0: 6e 67 65 73 65 74 2c 20 69 2e 65 2e 20 77 69 74 ngeset, i.e. wit
2bf0: 68 6f 75 74 20 72 65 76 69 73 69 6f 6e 73 7d 0a hout revisions}.
2c00: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6e 65 77 . lappend new
2c10: 63 73 65 74 73 20 5b 24 74 79 70 65 20 25 41 55 csets [$type %AU
2c20: 54 4f 25 20 24 70 72 6f 6a 65 63 74 20 24 63 73 TO% $project $cs
2c30: 74 79 70 65 20 24 63 73 73 72 63 20 24 66 72 61 type $cssrc $fra
2c40: 67 6d 65 6e 74 72 65 76 69 73 69 6f 6e 73 5d 0a gmentrevisions].
2c50: 09 7d 0a 0a 09 66 6f 72 65 61 63 68 20 63 20 24 .}...foreach c $
2c60: 6e 65 77 63 73 65 74 73 20 7b 20 24 63 20 70 65 newcsets { $c pe
2c70: 72 73 69 73 74 20 7d 0a 09 72 65 74 75 72 6e 20 rsist }..return
2c80: 24 6e 65 77 63 73 65 74 73 0a 20 20 20 20 7d 0a $newcsets. }.
2c90: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
2ca0: 73 74 72 6c 69 73 74 20 7b 63 68 61 6e 67 65 73 strlist {changes
2cb0: 65 74 73 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b ets} {..return [
2cc0: 6a 6f 69 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 join [struct::li
2cd0: 73 74 20 6d 61 70 20 24 63 68 61 6e 67 65 73 65 st map $changese
2ce0: 74 73 20 5b 6d 79 70 72 6f 63 20 49 44 5d 5d 5d ts [myproc ID]]]
2cf0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
2d00: 20 49 44 20 7b 63 73 65 74 7d 20 7b 20 24 63 73 ID {cset} { $cs
2d10: 65 74 20 73 74 72 20 7d 0a 0a 20 20 20 20 23 20 et str }.. #
2d20: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
2d30: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
2d40: 23 23 23 23 23 0a 20 20 20 20 23 23 20 53 74 61 #####. ## Sta
2d50: 74 65 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 te.. variable
2d60: 20 6d 79 69 64 20 20 20 20 20 20 20 20 7b 7d 20 myid {}
2d70: 3b 20 23 20 49 64 20 6f 66 20 74 68 65 20 63 73 ; # Id of the cs
2d80: 65 74 20 66 6f 72 20 74 68 65 20 70 65 72 73 69 et for the persi
2d90: 73 74 65 6e 74 0a 09 09 09 20 20 20 20 20 20 23 stent.... #
2da0: 20 73 74 61 74 65 2e 0a 20 20 20 20 76 61 72 69 state.. vari
2db0: 61 62 6c 65 20 6d 79 70 72 6f 6a 65 63 74 20 20 able myproject
2dc0: 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 {} ; # Referenc
2dd0: 65 20 6f 66 20 74 68 65 20 70 72 6f 6a 65 63 74 e of the project
2de0: 20 6f 62 6a 65 63 74 20 74 68 65 0a 09 09 09 20 object the....
2df0: 20 20 20 20 20 23 20 63 68 61 6e 67 65 73 65 74 # changeset
2e00: 20 62 65 6c 6f 6e 67 73 20 74 6f 2e 0a 20 20 20 belongs to..
2e10: 20 76 61 72 69 61 62 6c 65 20 6d 79 74 79 70 65 variable mytype
2e20: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 57 68 61 {} ; # Wha
2e30: 74 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 t the changeset
2e40: 69 73 20 62 61 73 65 64 20 6f 6e 0a 09 09 09 20 is based on....
2e50: 20 20 20 20 20 23 20 28 72 65 76 69 73 69 6f 6e # (revision
2e60: 73 2c 20 74 61 67 73 2c 20 6f 72 20 62 72 61 6e s, tags, or bran
2e70: 63 68 65 73 29 2e 0a 09 09 09 20 20 20 20 20 20 ches).....
2e80: 23 20 56 61 6c 75 65 73 3a 20 53 65 65 20 6d 79 # Values: See my
2e90: 63 73 74 79 70 65 2e 20 4e 6f 74 65 20 74 68 61 cstype. Note tha
2ea0: 74 20 77 65 0a 09 09 09 20 20 20 20 20 20 23 20 t we.... #
2eb0: 68 61 76 65 20 74 6f 20 6b 65 65 70 20 74 68 65 have to keep the
2ec0: 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 20 68 65 names of the he
2ed0: 6c 70 65 72 0a 09 09 09 20 20 20 20 20 20 23 20 lper.... #
2ee0: 73 69 6e 67 6c 65 74 6f 6e 73 20 69 6e 20 73 79 singletons in sy
2ef0: 6e 63 20 77 69 74 68 20 74 68 65 20 63 6f 6e 74 nc with the cont
2f00: 65 6e 74 73 0a 09 09 09 20 20 20 20 20 20 23 20 ents.... #
2f10: 6f 66 20 73 74 61 74 65 20 74 61 62 6c 65 20 27 of state table '
2f20: 63 73 74 79 70 65 27 2c 20 61 6e 64 20 76 61 72 cstype', and var
2f30: 69 6f 75 73 0a 09 09 09 20 20 20 20 20 20 23 20 ious.... #
2f40: 6f 74 68 65 72 20 70 6c 61 63 65 73 20 75 73 69 other places usi
2f50: 6e 67 20 74 68 65 6d 20 68 61 72 64 77 69 72 65 ng them hardwire
2f60: 64 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 d.. variable
2f70: 6d 79 74 79 70 65 6f 62 6a 20 20 20 7b 7d 20 3b mytypeobj {} ;
2f80: 20 23 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 # Reference to
2f90: 74 68 65 20 63 6f 6e 74 61 69 6e 65 72 20 66 6f the container fo
2fa0: 72 20 74 68 65 0a 09 09 09 20 20 20 20 20 20 23 r the.... #
2fb0: 20 74 79 70 65 20 64 65 70 65 6e 64 65 6e 74 20 type dependent
2fc0: 63 6f 64 65 2e 20 44 65 72 69 76 65 64 20 66 72 code. Derived fr
2fd0: 6f 6d 0a 09 09 09 20 20 20 20 20 20 23 20 6d 79 om.... # my
2fe0: 74 79 70 65 2e 0a 20 20 20 20 76 61 72 69 61 62 type.. variab
2ff0: 6c 65 20 6d 79 73 72 63 69 64 20 20 20 20 20 7b le mysrcid {
3000: 7d 20 3b 20 23 20 49 64 20 6f 66 20 74 68 65 20 } ; # Id of the
3010: 6d 65 74 61 64 61 74 61 20 6f 72 20 73 79 6d 62 metadata or symb
3020: 6f 6c 20 74 68 65 20 63 73 65 74 0a 09 09 09 20 ol the cset....
3030: 20 20 20 20 20 23 20 69 73 20 62 61 73 65 64 20 # is based
3040: 6f 6e 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 on.. variable
3050: 20 6d 79 72 65 76 69 73 69 6f 6e 73 20 7b 7d 20 myrevisions {}
3060: 3b 20 23 20 4c 69 73 74 20 6f 66 20 74 68 65 20 ; # List of the
3070: 66 69 6c 65 20 6c 65 76 65 6c 20 72 65 76 69 73 file level revis
3080: 69 6f 6e 73 20 69 6e 0a 09 09 09 20 20 20 20 20 ions in....
3090: 20 23 20 74 68 65 20 63 73 65 74 2e 0a 20 20 20 # the cset..
30a0: 20 76 61 72 69 61 62 6c 65 20 6d 79 70 72 65 6d variable myprem
30b0: 61 70 20 20 20 20 7b 7d 20 3b 20 23 20 44 69 63 ap {} ; # Dic
30c0: 74 69 6f 6e 61 72 79 20 6d 61 70 70 69 6e 67 20 tionary mapping
30d0: 66 72 6f 6d 20 74 68 65 20 72 65 76 69 73 69 6f from the revisio
30e0: 6e 73 0a 09 09 09 20 20 20 20 20 20 23 20 74 6f ns.... # to
30f0: 20 74 68 65 69 72 20 70 72 65 64 65 63 65 73 73 their predecess
3100: 6f 72 73 2e 20 43 61 63 68 65 20 74 6f 20 61 76 ors. Cache to av
3110: 6f 69 64 0a 09 09 09 20 20 20 20 20 20 23 20 6c oid.... # l
3120: 6f 61 64 69 6e 67 20 74 68 69 73 20 66 72 6f 6d oading this from
3130: 20 74 68 65 20 73 74 61 74 65 20 6d 6f 72 65 20 the state more
3140: 74 68 61 6e 0a 09 09 09 20 20 20 20 20 20 23 20 than.... #
3150: 6f 6e 63 65 2e 0a 20 20 20 20 76 61 72 69 61 62 once.. variab
3160: 6c 65 20 6d 79 6e 65 78 74 6d 61 70 20 20 20 7b le mynextmap {
3170: 7d 20 3b 20 23 20 44 69 63 74 69 6f 6e 61 72 79 } ; # Dictionary
3180: 20 6d 61 70 70 69 6e 67 20 66 72 6f 6d 20 74 68 mapping from th
3190: 65 20 72 65 76 69 73 69 6f 6e 73 0a 09 09 09 20 e revisions....
31a0: 20 20 20 20 20 23 20 74 6f 20 74 68 65 69 72 20 # to their
31b0: 73 75 63 63 65 73 73 6f 72 73 2e 20 43 61 63 68 successors. Cach
31c0: 65 20 74 6f 20 61 76 6f 69 64 0a 09 09 09 20 20 e to avoid....
31d0: 20 20 20 20 23 20 6c 6f 61 64 69 6e 67 20 74 68 # loading th
31e0: 69 73 20 66 72 6f 6d 20 74 68 65 20 73 74 61 74 is from the stat
31f0: 65 20 6d 6f 72 65 20 74 68 61 6e 0a 09 09 09 20 e more than....
3200: 20 20 20 20 20 23 20 6f 6e 63 65 2e 0a 20 20 20 # once..
3210: 20 76 61 72 69 61 62 6c 65 20 6d 79 70 6f 73 20 variable mypos
3220: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 43 6f 6d {} ; # Com
3230: 6d 69 74 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 mit position of
3240: 74 68 65 20 63 68 61 6e 67 65 73 65 74 2c 20 69 the changeset, i
3250: 66 0a 09 09 09 20 20 20 20 20 20 23 20 6b 6e 6f f.... # kno
3260: 77 6e 2e 0a 0a 20 20 20 20 23 20 23 20 23 23 20 wn... # # ##
3270: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
3280: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
3290: 0a 20 20 20 20 23 23 20 49 6e 74 65 72 6e 61 6c . ## Internal
32a0: 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 74 79 methods.. ty
32b0: 70 65 76 61 72 69 61 62 6c 65 20 6d 79 63 6f 75 pevariable mycou
32c0: 6e 74 65 72 20 20 20 20 20 20 20 20 30 20 3b 20 nter 0 ;
32d0: 23 20 49 64 20 63 6f 75 6e 74 65 72 20 66 6f 72 # Id counter for
32e0: 20 63 73 65 74 73 2e 20 4c 61 73 74 20 69 64 20 csets. Last id
32f0: 75 73 65 64 2e 0a 20 20 20 20 74 79 70 65 76 61 used.. typeva
3300: 72 69 61 62 6c 65 20 6d 79 63 73 74 79 70 65 20 riable mycstype
3310: 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 -array {} ; # Ma
3320: 70 20 63 73 74 79 70 65 73 20 28 6e 61 6d 65 73 p cstypes (names
3330: 29 20 74 6f 20 70 65 72 73 69 73 74 65 6e 74 0a ) to persistent.
3340: 09 09 09 09 20 20 20 20 20 20 23 20 69 64 73 2e .... # ids.
3350: 20 4e 6f 74 65 20 74 68 61 74 20 77 65 20 68 61 Note that we ha
3360: 76 65 20 74 6f 20 6b 65 65 70 0a 09 09 09 09 20 ve to keep.....
3370: 20 20 20 20 20 23 20 74 68 65 20 6e 61 6d 65 73 # the names
3380: 20 69 6e 20 74 68 65 20 74 61 62 6c 65 20 27 63 in the table 'c
3390: 73 74 79 70 65 27 0a 09 09 09 09 20 20 20 20 20 stype'.....
33a0: 20 23 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 # in sync with
33b0: 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 the names of the
33c0: 0a 09 09 09 09 20 20 20 20 20 20 23 20 68 65 6c ..... # hel
33d0: 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 73 2e 0a per singletons..
33e0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
33f0: 67 65 74 63 73 74 79 70 65 73 20 7b 7d 20 7b 0a getcstypes {} {.
3400: 09 66 6f 72 65 61 63 68 20 7b 74 69 64 20 6e 61 .foreach {tid na
3410: 6d 65 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 7b me} [state run {
3420: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 74 69 64 .. SELECT tid
3430: 2c 20 6e 61 6d 65 20 46 52 4f 4d 20 63 73 74 79 , name FROM csty
3440: 70 65 3b 0a 09 7d 5d 20 7b 20 73 65 74 20 6d 79 pe;..}] { set my
3450: 63 73 74 79 70 65 28 24 6e 61 6d 65 29 20 24 74 cstype($name) $t
3460: 69 64 20 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 id }..return.
3470: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
3480: 6f 64 20 6c 6f 61 64 63 6f 75 6e 74 65 72 20 7b od loadcounter {
3490: 7d 20 7b 0a 09 23 20 49 6e 69 74 69 61 6c 69 7a } {..# Initializ
34a0: 65 20 74 68 65 20 63 6f 75 6e 74 65 72 20 66 72 e the counter fr
34b0: 6f 6d 20 74 68 65 20 73 74 61 74 65 0a 09 73 65 om the state..se
34c0: 74 20 6d 79 63 6f 75 6e 74 65 72 20 5b 73 74 61 t mycounter [sta
34d0: 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 te one { SELECT
34e0: 4d 41 58 28 63 69 64 29 20 46 52 4f 4d 20 63 68 MAX(cid) FROM ch
34f0: 61 6e 67 65 73 65 74 20 7d 5d 0a 09 72 65 74 75 angeset }]..retu
3500: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 rn. }.. ty
3510: 70 65 6d 65 74 68 6f 64 20 6e 75 6d 20 7b 7d 20 pemethod num {}
3520: 7b 20 72 65 74 75 72 6e 20 24 6d 79 63 6f 75 6e { return $mycoun
3530: 74 65 72 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 ter }.. proc
3540: 50 75 6c 6c 49 6e 74 65 72 6e 61 6c 53 75 63 63 PullInternalSucc
3550: 65 73 73 6f 72 52 65 76 69 73 69 6f 6e 73 20 7b essorRevisions {
3560: 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a dv revisions} {.
3570: 09 75 70 76 61 72 20 31 20 24 64 76 20 64 65 70 .upvar 1 $dv dep
3580: 65 6e 64 65 6e 63 69 65 73 0a 09 73 65 74 20 74 endencies..set t
3590: 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 heset ('[join $r
35a0: 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 evisions {','}]'
35b0: 29 0a 0a 09 23 20 53 65 65 20 50 75 6c 6c 53 75 )...# See PullSu
35c0: 63 63 65 73 73 6f 72 52 65 76 69 73 69 6f 6e 73 ccessorRevisions
35d0: 20 62 65 6c 6f 77 20 66 6f 72 20 74 68 65 20 6d below for the m
35e0: 61 69 6e 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 ain explanation
35f0: 6f 66 0a 09 23 20 74 68 65 20 76 61 72 69 6f 75 of..# the variou
3600: 73 20 63 61 73 65 73 2e 20 54 68 69 73 20 70 69 s cases. This pi
3610: 65 63 65 20 69 73 20 73 70 65 63 69 61 6c 20 69 ece is special i
3620: 6e 20 74 68 61 74 20 69 74 0a 09 23 20 72 65 73 n that it..# res
3630: 74 72 69 63 74 73 20 74 68 65 20 73 75 63 63 65 tricts the succe
3640: 73 73 6f 72 73 20 77 65 20 6c 6f 6f 6b 20 66 6f ssors we look fo
3650: 72 20 74 6f 20 74 68 65 20 73 61 6d 65 20 73 65 r to the same se
3660: 74 20 6f 66 0a 09 23 20 72 65 76 69 73 69 6f 6e t of..# revision
3670: 73 20 77 65 20 73 74 61 72 74 20 66 72 6f 6d 2e s we start from.
3680: 20 53 65 6e 73 69 62 6c 65 20 61 73 20 77 65 20 Sensible as we
3690: 61 72 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a are looking for.
36a0: 09 23 20 63 68 61 6e 67 65 73 65 74 20 69 6e 74 .# changeset int
36b0: 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 ernal dependenci
36c0: 65 73 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 es....array set
36d0: 64 65 70 20 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 dep {}...foreach
36e0: 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 {rid child} [st
36f0: 61 74 65 20 72 75 6e 20 22 0a 20 20 20 2d 2d 20 ate run ". --
3700: 28 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 6c (1) Primary chil
3710: 64 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e d.. SELECT R.
3720: 72 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 20 rid, R.child..
3730: 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f FROM revisio
3740: 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 n R.. WHERE
3750: 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 73 R.rid IN $thes
3760: 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 et -- Restri
3770: 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 ct to revisions
3780: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
3790: 20 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 20 AND R.child
37a0: 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d IS NOT NULL -
37b0: 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 - Has primary ch
37c0: 69 6c 64 0a 09 20 20 20 20 41 4e 44 20 20 20 20 ild.. AND
37d0: 52 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 73 R.child IN $thes
37e0: 65 74 20 20 20 20 20 2d 2d 20 57 68 69 63 68 20 et -- Which
37f0: 69 73 20 61 6c 73 6f 20 6f 66 20 69 6e 74 65 72 is also of inter
3800: 65 73 74 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 est. UNION.
3810: 20 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 -- (2) Seconda
3820: 72 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 6c ry (branch) chil
3830: 64 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 dren.. SELECT
3840: 20 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a 09 R.rid, B.brid..
3850: 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 FROM revis
3860: 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 62 ion R, revisionb
3870: 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 0a ranchchildren B.
3880: 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 . WHERE R.ri
3890: 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 d IN $theset
38a0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
38b0: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 o revisions of i
38c0: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
38d0: 20 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 R.rid = B.ri
38e0: 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 d -- Se
38f0: 6c 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 62 lect subset of b
3900: 72 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a 09 ranch children..
3910: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 62 72 69 AND B.bri
3920: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
3930: 20 20 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c -- Which is al
3940: 73 6f 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 so of interest.
3950: 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 UNION. --
3960: 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 (4) Child of tru
3970: 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f nk root successo
3980: 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f r of last NTDB o
3990: 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 n trunk... SE
39a0: 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e 63 LECT R.rid, RA.c
39b0: 68 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 72 hild.. FROM r
39c0: 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 evision R, revis
39d0: 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 52 ion RA.. WHER
39e0: 45 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 E R.rid IN $th
39f0: 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 73 eset -- Res
3a00: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
3a10: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
3a20: 20 20 20 20 41 4e 44 20 20 20 52 2e 69 73 64 65 AND R.isde
3a30: 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 20 fault
3a40: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
3a50: 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 20 NTDB.. AND
3a60: 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 4e 4f R.dbchild IS NO
3a70: 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 20 T NULL -- and
3a80: 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e 67 last NTDB belong
3a90: 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 20 ing to trunk..
3aa0: 20 20 41 4e 44 20 20 20 52 41 2e 72 69 64 20 3d AND RA.rid =
3ab0: 20 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 20 R.dbchild
3ac0: 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 74 -- Go directly t
3ad0: 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 o trunk root..
3ae0: 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
3af0: 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 IS NOT NULL
3b00: 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 -- Has primary c
3b10: 68 69 6c 64 2e 0a 20 20 20 20 20 20 20 20 20 20 hild..
3b20: 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c 64 AND RA.child
3b30: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
3b40: 2d 2d 20 57 68 69 63 68 20 69 73 20 61 6c 73 6f -- Which is also
3b50: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 22 5d of interest.."]
3b60: 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e 73 69 64 {.. # Consid
3b70: 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 73 20 74 er moving this t
3b80: 6f 20 74 68 65 20 69 6e 74 65 67 72 69 74 79 20 o the integrity
3b90: 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 69 6e 74 module... int
3ba0: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 24 egrity assert {$
3bb0: 72 69 64 20 21 3d 20 24 63 68 69 6c 64 7d 20 7b rid != $child} {
3bc0: 52 65 76 69 73 69 6f 6e 20 24 72 69 64 20 64 65 Revision $rid de
3bd0: 70 65 6e 64 73 20 6f 6e 20 69 74 73 65 6c 66 2e pends on itself.
3be0: 7d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 64 }.. lappend d
3bf0: 65 70 65 6e 64 65 6e 63 69 65 73 28 24 72 69 64 ependencies($rid
3c00: 29 20 24 63 68 69 6c 64 0a 09 20 20 20 20 73 65 ) $child.. se
3c10: 74 20 64 65 70 28 24 72 69 64 2c 24 63 68 69 6c t dep($rid,$chil
3c20: 64 29 20 2e 0a 09 7d 0a 0a 09 23 20 54 68 65 20 d) ...}...# The
3c30: 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 61 sql statements a
3c40: 62 6f 76 65 20 6c 6f 6f 6b 73 20 6f 6e 6c 79 20 bove looks only
3c50: 66 6f 72 20 64 69 72 65 63 74 20 64 65 70 65 6e for direct depen
3c60: 64 65 6e 63 69 65 73 0a 09 23 20 62 65 74 77 65 dencies..# betwe
3c70: 65 6e 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 74 en revision in t
3c80: 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 48 6f he changeset. Ho
3c90: 77 65 76 65 72 20 64 75 65 20 74 6f 20 74 68 65 wever due to the
3ca0: 0a 09 23 20 76 61 67 61 72 69 65 73 20 6f 66 20 ..# vagaries of
3cb0: 6d 65 74 61 20 64 61 74 61 20 69 74 20 69 73 20 meta data it is
3cc0: 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 77 6f possible for two
3cd0: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 0a 09 23 revisions of..#
3ce0: 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 74 the same file t
3cf0: 6f 20 65 6e 64 20 75 70 20 69 6e 20 74 68 65 20 o end up in the
3d00: 73 61 6d 65 20 63 68 61 6e 67 65 73 65 74 2c 20 same changeset,
3d10: 77 69 74 68 6f 75 74 20 61 0a 09 23 20 64 69 72 without a..# dir
3d20: 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 20 62 ect dependency b
3d30: 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 48 6f 77 etween them. How
3d40: 65 76 65 72 20 77 65 20 6b 6e 6f 77 20 74 68 61 ever we know tha
3d50: 74 20 74 68 65 72 65 0a 09 23 20 68 61 73 20 74 t there..# has t
3d60: 6f 20 62 65 20 61 20 61 6e 20 69 6e 64 69 72 65 o be a an indire
3d70: 63 74 20 64 65 70 65 6e 64 65 6e 63 79 2c 20 62 ct dependency, b
3d80: 65 20 69 74 20 74 68 72 6f 75 67 68 20 70 72 69 e it through pri
3d90: 6d 61 72 79 0a 09 23 20 63 68 69 6c 64 72 65 6e mary..# children
3da0: 2c 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 , branch childre
3db0: 6e 2c 20 6f 72 20 61 20 63 6f 6d 62 69 6e 61 74 n, or a combinat
3dc0: 69 6f 6e 20 74 68 65 72 65 6f 66 2e 0a 0a 09 23 ion thereof....#
3dd0: 20 57 65 20 6e 6f 77 20 66 69 6c 6c 20 69 6e 20 We now fill in
3de0: 74 68 65 73 65 20 70 73 65 75 64 6f 2d 64 65 70 these pseudo-dep
3df0: 65 6e 64 65 6e 63 69 65 73 2c 20 69 66 20 6e 6f endencies, if no
3e00: 20 73 75 63 68 0a 09 23 20 64 65 70 65 6e 64 65 such..# depende
3e10: 6e 63 79 20 65 78 69 73 74 73 20 61 6c 72 65 61 ncy exists alrea
3e20: 64 79 2e 20 54 68 65 20 64 69 72 65 63 74 69 6f dy. The directio
3e30: 6e 20 6f 66 20 74 68 65 20 64 65 70 65 6e 64 65 n of the depende
3e40: 6e 63 79 0a 09 23 20 69 73 20 61 63 74 75 61 6c ncy..# is actual
3e50: 6c 79 20 69 72 72 65 6c 65 76 61 6e 74 20 66 6f ly irrelevant fo
3e60: 72 20 74 68 69 73 2e 0a 0a 09 23 20 4e 4f 54 45 r this....# NOTE
3e70: 3a 20 54 68 69 73 20 69 73 20 64 69 66 66 65 72 : This is differ
3e80: 65 6e 74 20 66 72 6f 6d 20 63 76 73 32 73 76 6e ent from cvs2svn
3e90: 2e 20 4f 75 72 20 73 70 69 72 69 74 75 61 6c 20 . Our spiritual
3ea0: 61 6e 63 65 73 74 6f 72 0a 09 23 20 64 6f 65 73 ancestor..# does
3eb0: 20 6e 6f 74 20 75 73 65 20 73 75 63 68 20 70 73 not use such ps
3ec0: 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 65 eudo-dependencie
3ed0: 73 2c 20 68 6f 77 65 76 65 72 20 69 74 20 75 73 s, however it us
3ee0: 65 73 20 61 0a 09 23 20 43 4f 4d 4d 49 54 5f 54 es a..# COMMIT_T
3ef0: 48 52 45 53 48 4f 4c 44 2c 20 61 20 74 69 6d 65 HRESHOLD, a time
3f00: 20 69 6e 74 65 72 76 61 6c 20 63 6f 6d 6d 69 74 interval commit
3f10: 73 20 73 68 6f 75 6c 64 20 66 61 6c 6c 2e 20 54 s should fall. T
3f20: 68 69 73 0a 09 23 20 77 69 6c 6c 20 67 72 65 61 his..# will grea
3f30: 74 6c 79 20 72 65 64 75 63 65 73 20 74 68 65 20 tly reduces the
3f40: 72 69 73 6b 20 6f 66 20 67 65 74 74 69 6e 67 20 risk of getting
3f50: 66 61 72 20 73 65 70 61 72 61 74 65 64 0a 09 23 far separated..#
3f60: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 74 68 revisions of th
3f70: 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e 74 6f e same file into
3f80: 20 6f 6e 65 20 63 68 61 6e 67 65 73 65 74 2e 0a one changeset..
3f90: 0a 09 23 20 57 65 20 61 6c 6c 6f 77 20 72 65 76 ..# We allow rev
3fa0: 69 73 69 6f 6e 73 20 74 6f 20 62 65 20 66 61 72 isions to be far
3fb0: 20 61 70 61 72 74 20 69 6e 20 74 69 6d 65 20 69 apart in time i
3fc0: 6e 20 74 68 65 20 73 61 6d 65 0a 09 23 20 63 68 n the same..# ch
3fd0: 61 6e 67 65 73 65 74 2c 20 62 75 74 20 6e 65 65 angeset, but nee
3fe0: 64 20 74 68 65 20 70 73 65 75 64 6f 2d 64 65 70 d the pseudo-dep
3ff0: 65 6e 64 65 6e 63 69 65 73 20 66 6f 72 20 74 68 endencies for th
4000: 69 73 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 is....array set
4010: 66 69 64 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 fids {}..foreach
4020: 20 7b 72 69 64 20 66 69 64 7d 20 5b 73 74 61 74 {rid fid} [stat
4030: 65 20 72 75 6e 20 22 0a 09 20 20 20 20 53 45 4c e run ".. SEL
4040: 45 43 54 20 52 2e 72 69 64 2c 20 52 2e 66 69 64 ECT R.rid, R.fid
4050: 20 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 FROM revision R
4060: 20 57 48 45 52 45 20 52 2e 72 69 64 20 49 4e 20 WHERE R.rid IN
4070: 24 74 68 65 73 65 74 0a 09 22 5d 20 7b 20 6c 61 $theset.."] { la
4080: 70 70 65 6e 64 20 66 69 64 73 28 24 66 69 64 29 ppend fids($fid)
4090: 20 24 72 69 64 20 7d 0a 0a 09 66 6f 72 65 61 63 $rid }...foreac
40a0: 68 20 7b 66 69 64 20 72 69 64 73 7d 20 5b 61 72 h {fid rids} [ar
40b0: 72 61 79 20 67 65 74 20 66 69 64 73 5d 20 7b 0a ray get fids] {.
40c0: 09 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 . if {[llengt
40d0: 68 20 24 72 69 64 73 5d 20 3c 20 32 7d 20 63 6f h $rids] < 2} co
40e0: 6e 74 69 6e 75 65 0a 09 20 20 20 20 66 6f 72 65 ntinue.. fore
40f0: 61 63 68 20 61 20 24 72 69 64 73 20 7b 0a 09 09 ach a $rids {...
4100: 66 6f 72 65 61 63 68 20 62 20 24 72 69 64 73 20 foreach b $rids
4110: 7b 0a 09 09 20 20 20 20 69 66 20 7b 24 61 20 3d {... if {$a =
4120: 3d 20 24 62 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 = $b} continue..
4130: 09 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 . if {[info e
4140: 78 69 73 74 73 20 64 65 70 28 24 61 2c 24 62 29 xists dep($a,$b)
4150: 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 ]} continue...
4160: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
4170: 74 73 20 64 65 70 28 24 62 2c 24 61 29 5d 7d 20 ts dep($b,$a)]}
4180: 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 6c continue... l
4190: 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 append dependenc
41a0: 69 65 73 28 24 61 29 20 24 62 0a 09 09 20 20 20 ies($a) $b...
41b0: 20 73 65 74 20 64 65 70 28 24 61 2c 24 62 29 20 set dep($a,$b)
41c0: 2e 0a 09 09 20 20 20 20 73 65 74 20 64 65 70 28 .... set dep(
41d0: 24 62 2c 24 61 29 20 2e 0a 09 09 7d 0a 09 20 20 $b,$a) ....}..
41e0: 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 }..}..return.
41f0: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 50 }.. proc P
4200: 75 6c 6c 53 75 63 63 65 73 73 6f 72 52 65 76 69 ullSuccessorRevi
4210: 73 69 6f 6e 73 20 7b 64 76 20 72 65 76 69 73 69 sions {dv revisi
4220: 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 ons} {..upvar 1
4230: 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 65 73 $dv dependencies
4240: 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b ..set theset ('[
4250: 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 join $revisions
4260: 7b 27 2c 27 7d 5d 27 29 0a 0a 09 23 20 54 68 65 {','}]')...# The
4270: 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 73 65 73 following cases
4280: 20 73 70 65 63 69 66 79 20 77 68 65 6e 20 61 20 specify when a
4290: 72 65 76 69 73 69 6f 6e 20 53 20 69 73 20 61 20 revision S is a
42a0: 73 75 63 63 65 73 73 6f 72 0a 09 23 20 6f 66 20 successor..# of
42b0: 61 20 72 65 76 69 73 69 6f 6e 20 52 2e 20 45 61 a revision R. Ea
42c0: 63 68 20 6f 66 20 74 68 65 20 63 61 73 65 73 20 ch of the cases
42d0: 74 72 61 6e 73 6c 61 74 65 73 20 69 6e 74 6f 20 translates into
42e0: 6f 6e 65 20 6f 66 0a 09 23 20 74 68 65 20 62 72 one of..# the br
42f0: 61 6e 63 68 65 73 20 6f 66 20 74 68 65 20 53 51 anches of the SQ
4300: 4c 20 55 4e 49 4f 4e 20 63 6f 6d 69 6e 67 20 62 L UNION coming b
4310: 65 6c 6f 77 2e 0a 09 23 0a 09 23 20 28 31 29 20 elow...#..# (1)
4320: 53 20 63 61 6e 20 62 65 20 61 20 70 72 69 6d 61 S can be a prima
4330: 72 79 20 63 68 69 6c 64 20 6f 66 20 52 2c 20 69 ry child of R, i
4340: 2e 65 2e 20 69 6e 20 74 68 65 20 73 61 6d 65 20 .e. in the same
4350: 4c 4f 44 2e 20 52 0a 09 23 20 20 20 20 20 72 65 LOD. R..# re
4360: 66 65 72 65 6e 63 65 73 20 53 20 64 69 72 65 63 ferences S direc
4370: 74 6c 79 2e 20 52 2e 63 68 69 6c 64 20 3d 20 53 tly. R.child = S
4380: 28 2e 72 69 64 29 2c 20 69 66 20 69 74 20 65 78 (.rid), if it ex
4390: 69 73 74 73 2e 0a 09 23 0a 09 23 20 28 32 29 20 ists...#..# (2)
43a0: 53 20 63 61 6e 20 62 65 20 61 20 73 65 63 6f 6e S can be a secon
43b0: 64 61 72 79 2c 20 69 2e 65 2e 20 62 72 61 6e 63 dary, i.e. branc
43c0: 68 2c 20 63 68 69 6c 64 20 6f 66 20 52 2e 20 48 h, child of R. H
43d0: 65 72 65 20 74 68 65 0a 09 23 20 20 20 20 20 6c ere the..# l
43e0: 69 6e 6b 20 69 73 20 6d 61 64 65 20 74 68 72 6f ink is made thro
43f0: 75 67 68 20 74 68 65 20 68 65 6c 70 65 72 20 74 ugh the helper t
4400: 61 62 6c 65 0a 09 23 20 20 20 20 20 52 45 56 49 able..# REVI
4410: 53 49 4f 4e 42 52 41 4e 43 48 43 48 49 4c 44 52 SIONBRANCHCHILDR
4420: 45 4e 2e 20 52 2e 72 69 64 20 2d 3e 20 52 42 43 EN. R.rid -> RBC
4430: 2e 72 69 64 2c 20 52 42 43 2e 62 72 69 64 20 3d .rid, RBC.brid =
4440: 0a 09 23 20 20 20 20 20 53 28 2e 72 69 64 29 0a ..# S(.rid).
4450: 09 23 0a 09 23 20 28 33 29 20 4f 72 69 67 69 6e .#..# (3) Origin
4460: 61 6c 6c 79 20 74 68 69 73 20 75 73 65 20 63 61 ally this use ca
4470: 73 65 20 64 65 66 69 6e 65 64 20 74 68 65 20 72 se defined the r
4480: 6f 6f 74 20 6f 66 20 61 20 64 65 74 61 63 68 65 oot of a detache
4490: 64 0a 09 23 20 20 20 20 20 4e 54 44 42 20 61 73 d..# NTDB as
44a0: 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 20 6f the successor o
44b0: 66 20 74 68 65 20 74 72 75 6e 6b 20 72 6f 6f 74 f the trunk root
44c0: 2e 20 54 68 69 73 20 6c 65 61 64 73 20 74 6f 20 . This leads to
44d0: 61 0a 09 23 20 20 20 20 20 62 61 64 20 74 61 6e a..# bad tan
44e0: 67 6c 65 20 6c 61 74 65 72 20 6f 6e 2e 20 57 69 gle later on. Wi
44f0: 74 68 20 61 20 64 65 74 61 63 68 65 64 20 4e 54 th a detached NT
4500: 44 42 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a DB the original.
4510: 09 23 20 20 20 20 20 74 72 75 6e 6b 20 72 6f 6f .# trunk roo
4520: 74 20 72 65 76 69 73 69 6f 6e 20 77 61 73 20 72 t revision was r
4530: 65 6d 6f 76 65 64 20 61 73 20 69 72 72 65 6c 65 emoved as irrele
4540: 76 61 6e 74 2c 20 61 6c 6c 6f 77 69 6e 67 0a 09 vant, allowing..
4550: 23 20 20 20 20 20 74 68 65 20 6e 6f 6d 69 6e 61 # the nomina
4560: 6c 20 72 6f 6f 74 20 74 6f 20 62 65 20 6c 61 74 l root to be lat
4570: 65 72 20 69 6e 20 74 69 6d 65 20 74 68 61 6e 20 er in time than
4580: 74 68 65 20 4e 54 44 42 0a 09 23 20 20 20 20 20 the NTDB..#
4590: 72 6f 6f 74 2e 20 4e 6f 77 20 73 65 74 74 69 6e root. Now settin
45a0: 67 20 74 68 69 73 20 64 65 70 65 6e 64 65 6e 63 g this dependenc
45b0: 79 20 77 69 6c 6c 20 62 65 20 62 61 63 6b 77 61 y will be backwa
45c0: 72 64 20 69 6e 0a 09 23 20 20 20 20 20 74 69 6d rd in..# tim
45d0: 65 2e 20 52 45 4d 4f 56 45 44 2e 0a 09 23 0a 09 e. REMOVED...#..
45e0: 23 20 28 34 29 20 49 66 20 52 20 69 73 20 74 68 # (4) If R is th
45f0: 65 20 6c 61 73 74 20 6f 66 20 74 68 65 20 4e 54 e last of the NT
4600: 44 42 20 72 65 76 69 73 69 6f 6e 73 20 77 68 69 DB revisions whi
4610: 63 68 20 62 65 6c 6f 6e 67 20 74 6f 0a 09 23 20 ch belong to..#
4620: 20 20 20 20 74 68 65 20 74 72 75 6e 6b 2c 20 74 the trunk, t
4630: 68 65 6e 20 74 68 65 20 70 72 69 6d 61 72 79 20 hen the primary
4640: 63 68 69 6c 64 20 6f 66 20 74 68 65 20 74 72 75 child of the tru
4650: 6e 6b 20 72 6f 6f 74 20 28 74 68 65 0a 09 23 20 nk root (the..#
4660: 20 20 20 20 27 31 2e 32 27 20 72 65 76 69 73 69 '1.2' revisi
4670: 6f 6e 29 20 69 73 20 61 20 73 75 63 63 65 73 73 on) is a success
4680: 6f 72 2c 20 69 66 20 69 74 20 65 78 69 73 74 73 or, if it exists
4690: 2e 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 ....foreach {rid
46a0: 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 child} [state r
46b0: 75 6e 20 22 0a 20 20 20 2d 2d 20 28 31 29 20 50 un ". -- (1) P
46c0: 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 09 20 20 rimary child..
46d0: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
46e0: 52 2e 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f R.child.. FRO
46f0: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 M revision R..
4700: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
4710: 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 IN $theset
4720: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
4730: 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e revisions of in
4740: 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 terest.. AND
4750: 20 20 20 52 2e 63 68 69 6c 64 20 49 53 20 4e 4f R.child IS NO
4760: 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 61 73 T NULL -- Has
4770: 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 20 primary child.
4780: 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 UNION. --
4790: 28 32 29 20 53 65 63 6f 6e 64 61 72 79 20 28 62 (2) Secondary (b
47a0: 72 61 6e 63 68 29 20 63 68 69 6c 64 72 65 6e 0a ranch) children.
47b0: 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 . SELECT R.ri
47c0: 64 2c 20 42 2e 62 72 69 64 0a 09 20 20 20 20 46 d, B.brid.. F
47d0: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
47e0: 2c 20 72 65 76 69 73 69 6f 6e 62 72 61 6e 63 68 , revisionbranch
47f0: 63 68 69 6c 64 72 65 6e 20 42 0a 09 20 20 20 20 children B..
4800: 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 WHERE R.rid I
4810: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
4820: 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 Restrict to rev
4830: 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 isions of intere
4840: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 st.. AND R
4850: 2e 72 69 64 20 3d 20 42 2e 72 69 64 20 20 20 20 .rid = B.rid
4860: 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 -- Select
4870: 73 75 62 73 65 74 20 6f 66 20 62 72 61 6e 63 68 subset of branch
4880: 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 55 4e children. UN
4890: 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 34 29 20 43 ION. -- (4) C
48a0: 68 69 6c 64 20 6f 66 20 74 72 75 6e 6b 20 72 6f hild of trunk ro
48b0: 6f 74 20 73 75 63 63 65 73 73 6f 72 20 6f 66 20 ot successor of
48c0: 6c 61 73 74 20 4e 54 44 42 20 6f 6e 20 74 72 75 last NTDB on tru
48d0: 6e 6b 2e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 nk... SELECT
48e0: 52 2e 72 69 64 2c 20 52 41 2e 63 68 69 6c 64 0a R.rid, RA.child.
48f0: 09 20 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 . FROM revisi
4900: 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 on R, revision R
4910: 41 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e 72 A.. WHERE R.r
4920: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
4930: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
4940: 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 to revisions of
4950: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
4960: 4e 44 20 20 20 52 2e 69 73 64 65 66 61 75 6c 74 ND R.isdefault
4970: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 --
4980: 52 65 73 74 72 69 63 74 20 74 6f 20 4e 54 44 42 Restrict to NTDB
4990: 0a 09 20 20 20 20 41 4e 44 20 20 20 52 2e 64 62 .. AND R.db
49a0: 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c child IS NOT NUL
49b0: 4c 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 74 20 L -- and last
49c0: 4e 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 20 74 NTDB belonging t
49d0: 6f 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 4e 44 o trunk.. AND
49e0: 20 20 20 52 41 2e 72 69 64 20 3d 20 52 2e 64 62 RA.rid = R.db
49f0: 63 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 47 6f child -- Go
4a00: 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 72 75 directly to tru
4a10: 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 4e 44 nk root.. AND
4a20: 20 20 20 52 41 2e 63 68 69 6c 64 20 49 53 20 4e RA.child IS N
4a30: 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 61 OT NULL -- Ha
4a40: 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 2e s primary child.
4a50: 0a 09 22 5d 20 7b 0a 09 20 20 20 20 23 20 43 6f .."] {.. # Co
4a60: 6e 73 69 64 65 72 20 6d 6f 76 69 6e 67 20 74 68 nsider moving th
4a70: 69 73 20 74 6f 20 74 68 65 20 69 6e 74 65 67 72 is to the integr
4a80: 69 74 79 20 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 ity module...
4a90: 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 integrity asser
4aa0: 74 20 7b 24 72 69 64 20 21 3d 20 24 63 68 69 6c t {$rid != $chil
4ab0: 64 7d 20 7b 52 65 76 69 73 69 6f 6e 20 24 72 69 d} {Revision $ri
4ac0: 64 20 64 65 70 65 6e 64 73 20 6f 6e 20 69 74 73 d depends on its
4ad0: 65 6c 66 2e 7d 0a 09 20 20 20 20 6c 61 70 70 65 elf.}.. lappe
4ae0: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
4af0: 24 72 69 64 29 20 24 63 68 69 6c 64 0a 09 7d 0a $rid) $child..}.
4b00: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
4b10: 20 20 20 70 72 6f 63 20 50 75 6c 6c 50 72 65 64 proc PullPred
4b20: 65 63 65 73 73 6f 72 52 65 76 69 73 69 6f 6e 73 ecessorRevisions
4b30: 20 7b 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 {dv revisions}
4b40: 7b 0a 09 75 70 76 61 72 20 31 20 24 64 76 20 64 {..upvar 1 $dv d
4b50: 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 73 65 74 ependencies..set
4b60: 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 theset ('[join
4b70: 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d $revisions {','}
4b80: 5d 27 29 0a 0a 09 23 20 54 68 65 20 66 6f 6c 6c ]')...# The foll
4b90: 6f 77 69 6e 67 20 63 61 73 65 73 20 73 70 65 63 owing cases spec
4ba0: 69 66 79 20 77 68 65 6e 20 61 20 72 65 76 69 73 ify when a revis
4bb0: 69 6f 6e 20 50 20 69 73 20 61 0a 09 23 20 70 72 ion P is a..# pr
4bc0: 65 64 65 63 65 73 73 6f 72 20 6f 66 20 61 20 72 edecessor of a r
4bd0: 65 76 69 73 69 6f 6e 20 52 2e 20 45 61 63 68 20 evision R. Each
4be0: 6f 66 20 74 68 65 20 63 61 73 65 73 20 74 72 61 of the cases tra
4bf0: 6e 73 6c 61 74 65 73 0a 09 23 20 69 6e 74 6f 20 nslates..# into
4c00: 6f 6e 65 20 6f 66 20 74 68 65 20 62 72 61 6e 63 one of the branc
4c10: 68 65 73 20 6f 66 20 74 68 65 20 53 51 4c 20 55 hes of the SQL U
4c20: 4e 49 4f 4e 20 63 6f 6d 69 6e 67 20 62 65 6c 6f NION coming belo
4c30: 77 2e 0a 09 23 0a 09 23 20 28 31 29 20 54 68 65 w...#..# (1) The
4c40: 20 69 6d 6d 65 64 69 61 74 65 20 70 61 72 65 6e immediate paren
4c50: 74 20 52 2e 70 61 72 65 6e 74 20 6f 66 20 52 20 t R.parent of R
4c60: 69 73 20 61 20 70 72 65 64 65 63 65 73 73 6f 72 is a predecessor
4c70: 20 6f 66 0a 09 23 20 20 20 20 20 52 2e 20 4e 4f of..# R. NO
4c80: 54 45 3a 20 54 68 69 73 20 69 73 20 74 72 75 65 TE: This is true
4c90: 20 66 6f 72 20 52 20 65 69 74 68 65 72 20 70 72 for R either pr
4ca0: 69 6d 61 72 79 20 6f 72 20 73 65 63 6f 6e 64 61 imary or seconda
4cb0: 72 79 0a 09 23 20 20 20 20 20 63 68 69 6c 64 20 ry..# child
4cc0: 6f 66 20 50 2e 20 49 74 20 6e 6f 74 20 6e 65 63 of P. It not nec
4cd0: 65 73 73 61 72 79 20 74 6f 20 64 69 73 74 69 6e essary to distin
4ce0: 67 75 69 73 68 20 74 68 65 20 74 77 6f 0a 09 23 guish the two..#
4cf0: 20 20 20 20 20 63 61 73 65 73 2c 20 69 6e 20 63 cases, in c
4d00: 6f 6e 74 72 61 73 74 20 74 6f 20 74 68 65 20 63 ontrast to the c
4d10: 6f 64 65 20 72 65 74 72 69 65 76 69 6e 67 20 74 ode retrieving t
4d20: 68 65 20 73 75 63 63 65 73 73 6f 72 0a 09 23 20 he successor..#
4d30: 20 20 20 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e information.
4d40: 0a 09 23 0a 09 23 20 28 32 29 20 54 68 65 20 63 ..#..# (2) The c
4d50: 6f 6d 70 6c 65 6d 65 6e 74 20 6f 66 20 73 75 63 omplement of suc
4d60: 63 65 73 73 6f 72 20 63 61 73 65 20 28 33 29 2e cessor case (3).
4d70: 20 54 68 65 20 74 72 75 6e 6b 20 72 6f 6f 74 20 The trunk root
4d80: 69 73 0a 09 23 20 20 20 20 20 61 20 70 72 65 64 is..# a pred
4d90: 65 63 65 73 73 6f 72 20 6f 66 20 61 20 4e 54 44 ecessor of a NTD
4da0: 42 20 72 6f 6f 74 2e 20 52 45 4d 4f 56 45 44 2e B root. REMOVED.
4db0: 20 53 65 65 0a 09 23 20 20 20 20 20 50 75 6c 6c See..# Pull
4dc0: 53 75 63 63 65 73 73 6f 72 52 65 76 69 73 69 6f SuccessorRevisio
4dd0: 6e 73 20 66 6f 72 20 74 68 65 20 65 78 70 6c 61 ns for the expla
4de0: 6e 61 74 69 6f 6e 2e 0a 09 23 0a 09 23 20 28 33 nation...#..# (3
4df0: 29 20 54 68 65 20 63 6f 6d 70 6c 65 6d 65 6e 74 ) The complement
4e00: 20 6f 66 20 73 75 63 63 65 73 73 6f 72 20 63 61 of successor ca
4e10: 73 65 20 28 34 29 2e 20 54 68 65 20 6c 61 73 74 se (4). The last
4e20: 20 4e 54 44 42 0a 09 23 20 20 20 20 20 72 65 76 NTDB..# rev
4e30: 69 73 69 6f 6e 20 62 65 6c 6f 6e 67 69 6e 67 20 ision belonging
4e40: 74 6f 20 74 68 65 20 74 72 75 6e 6b 20 69 73 20 to the trunk is
4e50: 61 20 70 72 65 64 65 63 65 73 73 6f 72 20 6f 66 a predecessor of
4e60: 20 74 68 65 0a 09 23 20 20 20 20 20 70 72 69 6d the..# prim
4e70: 61 72 79 20 63 68 69 6c 64 20 6f 66 20 74 68 65 ary child of the
4e80: 20 74 72 75 6e 6b 20 72 6f 6f 74 20 28 54 68 65 trunk root (The
4e90: 20 27 31 2e 32 27 20 72 65 76 69 73 69 6f 6e 29 '1.2' revision)
4ea0: 2e 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 ....foreach {rid
4eb0: 20 70 61 72 65 6e 74 7d 20 5b 73 74 61 74 65 20 parent} [state
4ec0: 72 75 6e 20 22 0a 20 20 20 2d 2d 20 28 31 29 20 run ". -- (1)
4ed0: 50 72 69 6d 61 72 79 20 70 61 72 65 6e 74 2c 20 Primary parent,
4ee0: 63 61 6e 20 62 65 20 69 6e 20 64 69 66 66 65 72 can be in differ
4ef0: 65 6e 74 20 4c 4f 44 20 66 6f 72 20 66 69 72 73 ent LOD for firs
4f00: 74 20 69 6e 20 61 20 62 72 61 6e 63 68 0a 09 20 t in a branch..
4f10: 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c SELECT R.rid,
4f20: 20 52 2e 70 61 72 65 6e 74 0a 09 20 20 20 20 46 R.parent.. F
4f30: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
4f40: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
4f50: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
4f60: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
4f70: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
4f80: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
4f90: 44 20 20 20 20 52 2e 70 61 72 65 6e 74 20 49 53 D R.parent IS
4fa0: 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 48 NOT NULL -- H
4fb0: 61 73 20 70 72 69 6d 61 72 79 20 70 61 72 65 6e as primary paren
4fc0: 74 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 t. UNION.
4fd0: 2d 2d 20 28 33 29 20 4c 61 73 74 20 4e 54 44 42 -- (3) Last NTDB
4fe0: 20 6f 6e 20 74 72 75 6e 6b 20 69 73 20 70 72 65 on trunk is pre
4ff0: 64 65 63 65 73 73 6f 72 20 6f 66 20 63 68 69 6c decessor of chil
5000: 64 20 6f 66 20 74 72 75 6e 6b 20 72 6f 6f 74 0a d of trunk root.
5010: 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 . SELECT R.ri
5020: 64 2c 20 52 41 2e 64 62 70 61 72 65 6e 74 0a 09 d, RA.dbparent..
5030: 20 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 6f FROM revisio
5040: 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 n R, revision RA
5050: 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e 72 69 .. WHERE R.ri
5060: 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 d IN $theset
5070: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
5080: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 o revisions of i
5090: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
50a0: 20 4e 4f 54 20 52 2e 69 73 64 65 66 61 75 6c 74 NOT R.isdefault
50b0: 20 20 20 20 20 20 20 20 20 20 2d 2d 20 6e 6f 74 -- not
50c0: 20 6f 6e 20 4e 54 44 42 0a 09 20 20 20 20 41 4e on NTDB.. AN
50d0: 44 20 52 2e 70 61 72 65 6e 74 20 49 53 20 4e 4f D R.parent IS NO
50e0: 54 20 4e 55 4c 4c 20 20 20 20 20 2d 2d 20 77 68 T NULL -- wh
50f0: 69 63 68 20 61 72 65 20 6e 6f 74 20 72 6f 6f 74 ich are not root
5100: 0a 09 20 20 20 20 41 4e 44 20 52 41 2e 72 69 64 .. AND RA.rid
5110: 20 3d 20 52 2e 70 61 72 65 6e 74 20 20 20 20 20 = R.parent
5120: 20 20 20 2d 2d 20 67 6f 20 74 6f 20 74 68 65 69 -- go to thei
5130: 72 20 70 61 72 65 6e 74 0a 09 20 20 20 20 41 4e r parent.. AN
5140: 44 20 52 41 2e 64 62 70 61 72 65 6e 74 20 49 53 D RA.dbparent IS
5150: 20 4e 4f 54 20 4e 55 4c 4c 20 20 2d 2d 20 77 68 NOT NULL -- wh
5160: 69 63 68 20 68 61 73 20 74 6f 20 72 65 66 65 72 ich has to refer
5170: 20 74 6f 20 4e 54 44 42 27 73 20 72 6f 6f 74 0a to NTDB's root.
5180: 09 22 5d 20 7b 0a 09 20 20 20 20 23 20 43 6f 6e ."] {.. # Con
5190: 73 69 64 65 72 20 6d 6f 76 69 6e 67 20 74 68 69 sider moving thi
51a0: 73 20 74 6f 20 74 68 65 20 69 6e 74 65 67 72 69 s to the integri
51b0: 74 79 20 6d 6f 64 75 6c 65 2e 0a 09 20 20 20 20 ty module...
51c0: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
51d0: 20 7b 24 72 69 64 20 21 3d 20 24 70 61 72 65 6e {$rid != $paren
51e0: 74 7d 20 7b 52 65 76 69 73 69 6f 6e 20 24 72 69 t} {Revision $ri
51f0: 64 20 64 65 70 65 6e 64 73 20 6f 6e 20 69 74 73 d depends on its
5200: 65 6c 66 2e 7d 0a 09 20 20 20 20 6c 61 70 70 65 elf.}.. lappe
5210: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
5220: 24 72 69 64 29 20 24 70 61 72 65 6e 74 0a 09 7d $rid) $parent..}
5230: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
5240: 20 20 20 20 70 72 6f 63 20 49 6e 69 74 69 61 6c proc Initial
5250: 69 7a 65 42 72 65 61 6b 53 74 61 74 65 20 7b 72 izeBreakState {r
5260: 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 evisions} {..upv
5270: 61 72 20 31 20 70 6f 73 20 70 6f 73 20 63 72 6f ar 1 pos pos cro
5280: 73 73 20 63 72 6f 73 73 20 72 61 6e 67 65 20 72 ss cross range r
5290: 61 6e 67 65 20 64 65 70 63 20 64 65 70 63 20 64 ange depc depc d
52a0: 65 6c 74 61 20 64 65 6c 74 61 20 5c 0a 09 20 20 elta delta \..
52b0: 20 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 64 dependencies d
52c0: 65 70 65 6e 64 65 6e 63 69 65 73 0a 0a 09 23 20 ependencies...#
52d0: 46 69 72 73 74 20 77 65 20 63 72 65 61 74 65 20 First we create
52e0: 61 20 6d 61 70 20 6f 66 20 70 6f 73 69 74 69 6f a map of positio
52f0: 6e 73 20 74 6f 20 6d 61 6b 65 20 69 74 20 65 61 ns to make it ea
5300: 73 69 65 72 20 74 6f 0a 09 23 20 64 65 74 65 72 sier to..# deter
5310: 6d 69 6e 65 20 77 68 65 74 68 65 72 20 61 20 64 mine whether a d
5320: 65 70 65 6e 64 65 6e 63 79 20 63 72 6f 73 73 65 ependency crosse
5330: 73 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 69 s a particular i
5340: 6e 64 65 78 2e 0a 0a 09 61 72 72 61 79 20 73 65 ndex....array se
5350: 74 20 70 6f 73 20 20 20 7b 7d 0a 09 61 72 72 61 t pos {}..arra
5360: 79 20 73 65 74 20 63 72 6f 73 73 20 7b 7d 0a 09 y set cross {}..
5370: 61 72 72 61 79 20 73 65 74 20 64 65 70 63 20 20 array set depc
5380: 7b 7d 0a 09 73 65 74 20 72 61 6e 67 65 20 20 20 {}..set range
5390: 20 20 20 20 7b 7d 0a 09 73 65 74 20 6e 20 30 0a {}..set n 0.
53a0: 09 66 6f 72 65 61 63 68 20 72 65 76 20 24 72 65 .foreach rev $re
53b0: 76 69 73 69 6f 6e 73 20 7b 0a 09 20 20 20 20 6c visions {.. l
53c0: 61 70 70 65 6e 64 20 72 61 6e 67 65 20 24 6e 0a append range $n.
53d0: 09 20 20 20 20 73 65 74 20 70 6f 73 28 24 72 65 . set pos($re
53e0: 76 29 20 24 6e 0a 09 20 20 20 20 73 65 74 20 63 v) $n.. set c
53f0: 72 6f 73 73 28 24 6e 29 20 30 0a 09 20 20 20 20 ross($n) 0..
5400: 69 6e 63 72 20 6e 0a 09 7d 0a 0a 09 23 20 53 65 incr n..}...# Se
5410: 63 6f 6e 64 6c 79 20 77 65 20 63 6f 75 6e 74 20 condly we count
5420: 74 68 65 20 63 72 6f 73 73 69 6e 67 73 20 70 65 the crossings pe
5430: 72 20 70 6f 73 69 74 69 6f 6e 2c 20 62 79 20 69 r position, by i
5440: 74 65 72 61 74 69 6e 67 0a 09 23 20 6f 76 65 72 terating..# over
5450: 20 74 68 65 20 72 65 63 6f 72 64 65 64 20 69 6e the recorded in
5460: 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 ternal dependenc
5470: 69 65 73 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 ies....# Note: I
5480: 66 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 f the timestamps
5490: 20 61 72 65 20 62 61 64 6c 79 20 6f 75 74 20 6f are badly out o
54a0: 66 20 6f 72 64 65 72 20 69 74 20 69 73 0a 09 23 f order it is..#
54b0: 20 20 20 20 20 20 20 70 6f 73 73 69 62 6c 65 20 possible
54c0: 74 6f 20 68 61 76 65 20 61 20 62 61 63 6b 77 61 to have a backwa
54d0: 72 64 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 rd successor dep
54e0: 65 6e 64 65 6e 63 79 2c 0a 09 23 20 20 20 20 20 endency,..#
54f0: 20 20 69 2e 65 2e 20 77 69 74 68 20 73 74 61 72 i.e. with star
5500: 74 20 3e 20 65 6e 64 2e 20 57 65 20 6d 61 79 20 t > end. We may
5510: 68 61 76 65 20 74 6f 20 73 77 61 70 20 74 68 65 have to swap the
5520: 20 69 6e 64 69 63 65 73 0a 09 23 20 20 20 20 20 indices..#
5530: 20 20 74 6f 20 65 6e 73 75 72 65 20 74 68 61 74 to ensure that
5540: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c the following l
5550: 6f 6f 70 20 72 75 6e 73 20 63 6f 72 72 65 63 74 oop runs correct
5560: 6c 79 2e 0a 09 23 0a 09 23 20 4e 6f 74 65 20 32 ly...#..# Note 2
5570: 3a 20 73 74 61 72 74 20 3d 3d 20 65 6e 64 20 69 : start == end i
5580: 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 2e 20 s not possible.
5590: 49 74 20 69 6e 64 69 63 61 74 65 73 20 61 0a 09 It indicates a..
55a0: 23 20 20 20 20 20 20 20 20 20 73 65 6c 66 2d 64 # self-d
55b0: 65 70 65 6e 64 65 6e 63 79 20 64 75 65 20 74 6f ependency due to
55c0: 20 74 68 65 20 75 6e 69 71 75 65 6e 65 73 73 20 the uniqueness
55d0: 6f 66 20 70 6f 73 69 74 69 6f 6e 73 2c 0a 09 23 of positions,..#
55e0: 20 20 20 20 20 20 20 20 20 61 6e 64 20 74 68 61 and tha
55f0: 74 20 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 77 t is something w
5600: 65 20 68 61 76 65 20 72 75 6c 65 64 20 6f 75 74 e have ruled out
5610: 20 61 6c 72 65 61 64 79 2c 20 73 65 65 0a 09 23 already, see..#
5620: 20 20 20 20 20 20 20 20 20 50 75 6c 6c 49 6e 74 PullInt
5630: 65 72 6e 61 6c 53 75 63 63 65 73 73 6f 72 52 65 ernalSuccessorRe
5640: 76 69 73 69 6f 6e 73 2e 0a 0a 09 66 6f 72 65 61 visions....forea
5650: 63 68 20 7b 72 69 64 20 63 68 69 6c 64 72 65 6e ch {rid children
5660: 7d 20 5b 61 72 72 61 79 20 67 65 74 20 64 65 70 } [array get dep
5670: 65 6e 64 65 6e 63 69 65 73 5d 20 7b 0a 09 20 20 endencies] {..
5680: 20 20 66 6f 72 65 61 63 68 20 63 68 69 6c 64 20 foreach child
5690: 24 63 68 69 6c 64 72 65 6e 20 7b 0a 09 09 73 65 $children {...se
56a0: 74 20 64 6b 65 79 20 20 20 20 5b 6c 69 73 74 20 t dkey [list
56b0: 24 72 69 64 20 24 63 68 69 6c 64 5d 0a 09 09 73 $rid $child]...s
56c0: 65 74 20 73 74 61 72 74 20 20 20 24 70 6f 73 28 et start $pos(
56d0: 24 72 69 64 29 0a 09 09 73 65 74 20 65 6e 64 20 $rid)...set end
56e0: 20 20 20 20 24 70 6f 73 28 24 63 68 69 6c 64 29 $pos($child)
56f0: 0a 09 09 73 65 74 20 63 72 6f 73 73 65 73 20 7b ...set crosses {
5700: 7d 0a 0a 09 09 69 66 20 7b 24 73 74 61 72 74 20 }....if {$start
5710: 3e 20 24 65 6e 64 7d 20 7b 0a 09 09 20 20 20 20 > $end} {...
5720: 77 68 69 6c 65 20 7b 24 65 6e 64 20 3c 20 24 73 while {$end < $s
5730: 74 61 72 74 7d 20 7b 0a 09 09 09 6c 61 70 70 65 tart} {....lappe
5740: 6e 64 20 63 72 6f 73 73 65 73 20 24 65 6e 64 0a nd crosses $end.
5750: 09 09 09 69 6e 63 72 20 63 72 6f 73 73 28 24 65 ...incr cross($e
5760: 6e 64 29 0a 09 09 09 69 6e 63 72 20 65 6e 64 0a nd)....incr end.
5770: 09 09 20 20 20 20 7d 0a 09 09 7d 20 65 6c 73 65 .. }...} else
5780: 20 7b 0a 09 09 20 20 20 20 77 68 69 6c 65 20 7b {... while {
5790: 24 73 74 61 72 74 20 3c 20 24 65 6e 64 7d 20 7b $start < $end} {
57a0: 0a 09 09 09 6c 61 70 70 65 6e 64 20 63 72 6f 73 ....lappend cros
57b0: 73 65 73 20 24 73 74 61 72 74 0a 09 09 09 69 6e ses $start....in
57c0: 63 72 20 63 72 6f 73 73 28 24 73 74 61 72 74 29 cr cross($start)
57d0: 0a 09 09 09 69 6e 63 72 20 73 74 61 72 74 0a 09 ....incr start..
57e0: 09 20 20 20 20 7d 0a 09 09 7d 0a 09 09 73 65 74 . }...}...set
57f0: 20 64 65 70 63 28 24 64 6b 65 79 29 20 24 63 72 depc($dkey) $cr
5800: 6f 73 73 65 73 0a 09 20 20 20 20 7d 0a 09 7d 0a osses.. }..}.
5810: 0a 09 49 6e 69 74 69 61 6c 69 7a 65 44 65 6c 74 ..InitializeDelt
5820: 61 73 20 24 72 65 76 69 73 69 6f 6e 73 0a 09 72 as $revisions..r
5830: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
5840: 20 70 72 6f 63 20 49 6e 69 74 69 61 6c 69 7a 65 proc Initialize
5850: 44 65 6c 74 61 73 20 7b 72 65 76 69 73 69 6f 6e Deltas {revision
5860: 73 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 64 65 s} {..upvar 1 de
5870: 6c 74 61 20 64 65 6c 74 61 0a 0a 09 23 20 50 75 lta delta...# Pu
5880: 6c 6c 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 ll the timestamp
5890: 73 20 66 6f 72 20 61 6c 6c 20 72 65 76 69 73 69 s for all revisi
58a0: 6f 6e 73 20 69 6e 20 74 68 65 20 63 68 61 6e 67 ons in the chang
58b0: 65 73 65 74 73 20 61 6e 64 0a 09 23 20 63 6f 6d esets and..# com
58c0: 70 75 74 65 20 74 68 65 69 72 20 64 65 6c 74 61 pute their delta
58d0: 73 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 s for use by the
58e0: 20 62 72 65 61 6b 20 66 69 6e 64 65 72 2e 0a 0a break finder...
58f0: 09 61 72 72 61 79 20 73 65 74 20 64 65 6c 74 61 .array set delta
5900: 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 74 20 73 {}..array set s
5910: 74 61 6d 70 20 7b 7d 0a 0a 09 73 65 74 20 74 68 tamp {}...set th
5920: 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 eset ('[join $re
5930: 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 visions {','}]')
5940: 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 20 74 ..foreach {rid t
5950: 69 6d 65 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 ime} [state run
5960: 22 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e ".. SELECT R.
5970: 72 69 64 2c 20 52 2e 64 61 74 65 0a 09 20 20 20 rid, R.date..
5980: 20 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 FROM revision R
5990: 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e 72 69 .. WHERE R.ri
59a0: 64 20 49 4e 20 24 74 68 65 73 65 74 0a 09 22 5d d IN $theset.."]
59b0: 20 7b 0a 09 20 20 20 20 73 65 74 20 73 74 61 6d {.. set stam
59c0: 70 28 24 72 69 64 29 20 24 74 69 6d 65 0a 09 7d p($rid) $time..}
59d0: 0a 0a 09 73 65 74 20 6e 20 30 0a 09 66 6f 72 65 ...set n 0..fore
59e0: 61 63 68 20 72 69 64 20 5b 6c 72 61 6e 67 65 20 ach rid [lrange
59f0: 24 72 65 76 69 73 69 6f 6e 73 20 30 20 65 6e 64 $revisions 0 end
5a00: 2d 31 5d 20 72 6e 65 78 74 20 5b 6c 72 61 6e 67 -1] rnext [lrang
5a10: 65 20 24 72 65 76 69 73 69 6f 6e 73 20 31 20 65 e $revisions 1 e
5a20: 6e 64 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 64 nd] {.. set d
5a30: 65 6c 74 61 28 24 6e 29 20 5b 65 78 70 72 20 7b elta($n) [expr {
5a40: 24 73 74 61 6d 70 28 24 72 6e 65 78 74 29 20 2d $stamp($rnext) -
5a50: 20 24 73 74 61 6d 70 28 24 72 69 64 29 7d 5d 0a $stamp($rid)}].
5a60: 09 20 20 20 20 69 6e 63 72 20 6e 0a 09 7d 0a 09 . incr n..}..
5a70: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
5a80: 20 20 70 72 6f 63 20 46 69 6e 64 42 65 73 74 42 proc FindBestB
5a90: 72 65 61 6b 20 7b 72 61 6e 67 65 7d 20 7b 0a 09 reak {range} {..
5aa0: 75 70 76 61 72 20 31 20 63 72 6f 73 73 20 63 72 upvar 1 cross cr
5ab0: 6f 73 73 20 64 65 6c 74 61 20 64 65 6c 74 61 0a oss delta delta.
5ac0: 0a 09 23 20 44 65 74 65 72 6d 69 6e 65 20 74 68 ..# Determine th
5ad0: 65 20 62 65 73 74 20 62 72 65 61 6b 20 6c 6f 63 e best break loc
5ae0: 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 67 69 76 ation in the giv
5af0: 65 6e 20 72 61 6e 67 65 20 6f 66 0a 09 23 20 70 en range of..# p
5b00: 6f 73 69 74 69 6f 6e 73 2e 20 46 69 72 73 74 20 ositions. First
5b10: 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 74 68 65 20 we look for the
5b20: 6c 6f 63 61 74 69 6f 6e 73 20 77 69 74 68 20 74 locations with t
5b30: 68 65 20 6d 61 78 69 6d 61 6c 0a 09 23 20 6e 75 he maximal..# nu
5b40: 6d 62 65 72 20 6f 66 20 63 72 6f 73 73 69 6e 67 mber of crossing
5b50: 73 2e 20 49 66 20 74 68 65 72 65 20 61 72 65 20 s. If there are
5b60: 73 65 76 65 72 61 6c 20 77 65 20 6c 6f 6f 6b 20 several we look
5b70: 66 6f 72 20 74 68 65 0a 09 23 20 73 68 6f 72 74 for the..# short
5b80: 65 73 74 20 74 69 6d 65 20 69 6e 74 65 72 76 61 est time interva
5b90: 6c 20 61 6d 6f 6e 67 20 74 68 65 6d 2e 20 49 66 l among them. If
5ba0: 20 77 65 20 73 74 69 6c 6c 20 68 61 76 65 20 6d we still have m
5bb0: 75 6c 74 69 70 6c 65 0a 09 23 20 70 6f 73 73 69 ultiple..# possi
5bc0: 62 69 6c 69 74 69 65 73 20 61 66 74 65 72 20 74 bilities after t
5bd0: 68 61 74 20 77 65 20 73 65 6c 65 63 74 20 74 68 hat we select th
5be0: 65 20 65 61 72 6c 69 65 73 74 20 6c 6f 63 61 74 e earliest locat
5bf0: 69 6f 6e 0a 09 23 20 61 6d 6f 6e 67 20 74 68 65 ion..# among the
5c00: 73 65 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 66 se....# Note: If
5c10: 20 74 68 65 20 6d 61 78 69 6d 61 6c 20 6e 75 6d the maximal num
5c20: 62 65 72 20 6f 66 20 63 72 6f 73 73 69 6e 67 73 ber of crossings
5c30: 20 69 73 20 30 20 74 68 65 6e 20 74 68 65 20 72 is 0 then the r
5c40: 61 6e 67 65 0a 09 23 20 20 20 20 20 20 20 68 61 ange..# ha
5c50: 73 20 6e 6f 20 69 6e 74 65 72 6e 61 6c 20 64 65 s no internal de
5c60: 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 6e 64 20 pendencies, and
5c70: 6e 6f 20 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f no break locatio
5c80: 6e 20 61 74 0a 09 23 20 20 20 20 20 20 20 61 6c n at..# al
5c90: 6c 2e 20 54 68 69 73 20 70 6f 73 73 69 62 69 6c l. This possibil
5ca0: 69 74 79 20 69 73 20 73 69 67 6e 61 6c 65 64 20 ity is signaled
5cb0: 76 69 61 20 72 65 73 75 6c 74 20 2d 31 2e 0a 0a via result -1...
5cc0: 09 23 20 4e 6f 74 65 3a 20 41 20 72 61 6e 67 65 .# Note: A range
5cd0: 20 6f 66 20 6c 65 6e 67 74 68 20 31 20 6f 72 20 of length 1 or
5ce0: 6c 65 73 73 20 63 61 6e 6e 6f 74 20 68 61 76 65 less cannot have
5cf0: 20 69 6e 74 65 72 6e 61 6c 0a 09 23 20 20 20 20 internal..#
5d00: 20 20 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2c dependencies,
5d10: 20 61 73 20 74 68 61 74 20 6e 65 65 64 73 20 61 as that needs a
5d20: 74 20 6c 65 61 73 74 20 74 77 6f 20 72 65 76 69 t least two revi
5d30: 73 69 6f 6e 73 20 69 6e 0a 09 23 20 20 20 20 20 sions in..#
5d40: 20 20 74 68 65 20 72 61 6e 67 65 2e 0a 0a 09 69 the range....i
5d50: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 61 6e f {[llength $ran
5d60: 67 65 5d 20 3c 20 32 7d 20 7b 20 72 65 74 75 72 ge] < 2} { retur
5d70: 6e 20 2d 31 20 7d 0a 0a 09 73 65 74 20 6d 61 78 n -1 }...set max
5d80: 20 2d 31 0a 09 73 65 74 20 62 65 73 74 20 7b 7d -1..set best {}
5d90: 0a 0a 09 66 6f 72 65 61 63 68 20 6c 6f 63 61 74 ...foreach locat
5da0: 69 6f 6e 20 24 72 61 6e 67 65 20 7b 0a 09 20 20 ion $range {..
5db0: 20 20 73 65 74 20 63 72 6f 73 73 69 6e 67 73 20 set crossings
5dc0: 24 63 72 6f 73 73 28 24 6c 6f 63 61 74 69 6f 6e $cross($location
5dd0: 29 0a 09 20 20 20 20 69 66 20 7b 24 63 72 6f 73 ).. if {$cros
5de0: 73 69 6e 67 73 20 3e 20 24 6d 61 78 7d 20 7b 0a sings > $max} {.
5df0: 09 09 73 65 74 20 6d 61 78 20 20 24 63 72 6f 73 ..set max $cros
5e00: 73 69 6e 67 73 0a 09 09 73 65 74 20 62 65 73 74 sings...set best
5e10: 20 5b 6c 69 73 74 20 24 6c 6f 63 61 74 69 6f 6e [list $location
5e20: 5d 0a 09 09 63 6f 6e 74 69 6e 75 65 0a 09 20 20 ]...continue..
5e30: 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 63 72 6f } elseif {$cro
5e40: 73 73 69 6e 67 73 20 3d 3d 20 24 6d 61 78 7d 20 ssings == $max}
5e50: 7b 0a 09 09 6c 61 70 70 65 6e 64 20 62 65 73 74 {...lappend best
5e60: 20 24 6c 6f 63 61 74 69 6f 6e 0a 09 20 20 20 20 $location..
5e70: 7d 0a 09 7d 0a 0a 09 69 66 20 7b 24 6d 61 78 20 }..}...if {$max
5e80: 3d 3d 20 30 7d 20 20 20 20 20 20 20 20 20 20 20 == 0}
5e90: 20 7b 20 72 65 74 75 72 6e 20 2d 31 20 7d 0a 09 { return -1 }..
5ea0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 62 65 if {[llength $be
5eb0: 73 74 5d 20 3d 3d 20 31 7d 20 7b 20 72 65 74 75 st] == 1} { retu
5ec0: 72 6e 20 5b 6c 69 6e 64 65 78 20 24 62 65 73 74 rn [lindex $best
5ed0: 20 30 5d 20 7d 0a 0a 09 73 65 74 20 6c 6f 63 61 0] }...set loca
5ee0: 74 69 6f 6e 73 20 24 62 65 73 74 0a 09 73 65 74 tions $best..set
5ef0: 20 62 65 73 74 20 7b 7d 0a 09 73 65 74 20 6d 69 best {}..set mi
5f00: 6e 20 2d 31 0a 0a 09 66 6f 72 65 61 63 68 20 6c n -1...foreach l
5f10: 6f 63 61 74 69 6f 6e 20 24 6c 6f 63 61 74 69 6f ocation $locatio
5f20: 6e 73 20 7b 0a 09 20 20 20 20 73 65 74 20 69 6e ns {.. set in
5f30: 74 65 72 76 61 6c 20 24 64 65 6c 74 61 28 24 6c terval $delta($l
5f40: 6f 63 61 74 69 6f 6e 29 0a 09 20 20 20 20 69 66 ocation).. if
5f50: 20 7b 28 24 6d 69 6e 20 3c 20 30 29 20 7c 7c 20 {($min < 0) ||
5f60: 28 24 69 6e 74 65 72 76 61 6c 20 3c 20 24 6d 69 ($interval < $mi
5f70: 6e 29 7d 20 7b 0a 09 09 73 65 74 20 6d 69 6e 20 n)} {...set min
5f80: 20 24 69 6e 74 65 72 76 61 6c 0a 09 09 73 65 74 $interval...set
5f90: 20 62 65 73 74 20 5b 6c 69 73 74 20 24 6c 6f 63 best [list $loc
5fa0: 61 74 69 6f 6e 5d 0a 09 20 20 20 20 7d 20 65 6c ation].. } el
5fb0: 73 65 69 66 20 7b 24 69 6e 74 65 72 76 61 6c 20 seif {$interval
5fc0: 3d 3d 20 24 6d 69 6e 7d 20 7b 0a 09 09 6c 61 70 == $min} {...lap
5fd0: 70 65 6e 64 20 62 65 73 74 20 24 6c 6f 63 61 74 pend best $locat
5fe0: 69 6f 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 ion.. }..}...
5ff0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 62 65 if {[llength $be
6000: 73 74 5d 20 3d 3d 20 31 7d 20 7b 20 72 65 74 75 st] == 1} { retu
6010: 72 6e 20 5b 6c 69 6e 64 65 78 20 24 62 65 73 74 rn [lindex $best
6020: 20 30 5d 20 7d 0a 0a 09 72 65 74 75 72 6e 20 5b 0] }...return [
6030: 6c 69 6e 64 65 78 20 5b 6c 73 6f 72 74 20 2d 69 lindex [lsort -i
6040: 6e 74 65 67 65 72 20 2d 69 6e 63 72 65 61 73 69 nteger -increasi
6050: 6e 67 20 24 62 65 73 74 5d 20 30 5d 0a 20 20 20 ng $best] 0].
6060: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 43 75 74 }.. proc Cut
6070: 41 74 20 7b 6c 6f 63 61 74 69 6f 6e 7d 20 7b 0a At {location} {.
6080: 09 75 70 76 61 72 20 31 20 63 72 6f 73 73 20 63 .upvar 1 cross c
6090: 72 6f 73 73 20 64 65 70 63 20 64 65 70 63 0a 0a ross depc depc..
60a0: 09 23 20 49 74 20 77 61 73 20 64 65 63 69 64 65 .# It was decide
60b0: 64 20 74 6f 20 73 70 6c 69 74 20 74 68 65 20 63 d to split the c
60c0: 68 61 6e 67 65 73 65 74 20 61 74 20 74 68 65 20 hangeset at the
60d0: 67 69 76 65 6e 0a 09 23 20 6c 6f 63 61 74 69 6f given..# locatio
60e0: 6e 2e 20 54 68 69 73 20 63 75 74 73 20 61 20 6e n. This cuts a n
60f0: 75 6d 62 65 72 20 6f 66 20 64 65 70 65 6e 64 65 umber of depende
6100: 6e 63 69 65 73 2e 20 48 65 72 65 20 77 65 20 75 ncies. Here we u
6110: 70 64 61 74 65 0a 09 23 20 74 68 65 20 63 72 6f pdate..# the cro
6120: 73 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 ss information s
6130: 6f 20 74 68 61 74 20 74 68 65 20 62 72 65 61 6b o that the break
6140: 20 66 69 6e 64 65 72 20 68 61 73 20 61 63 63 75 finder has accu
6150: 72 61 74 65 0a 09 23 20 64 61 74 61 20 77 68 65 rate..# data whe
6160: 6e 20 77 65 20 6c 6f 6f 6b 20 61 74 20 74 68 65 n we look at the
6170: 20 67 65 6e 65 72 61 74 65 64 20 66 72 61 67 6d generated fragm
6180: 65 6e 74 73 2e 0a 0a 09 73 65 74 20 73 69 78 20 ents....set six
6190: 5b 6c 6f 67 20 76 69 73 69 62 6c 65 3f 20 36 5d [log visible? 6]
61a0: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 64 65 70 20 ...foreach {dep
61b0: 72 61 6e 67 65 7d 20 5b 61 72 72 61 79 20 67 65 range} [array ge
61c0: 74 20 64 65 70 63 5d 20 7b 0a 09 20 20 20 20 23 t depc] {.. #
61d0: 20 43 68 65 63 6b 20 61 6c 6c 20 64 65 70 65 6e Check all depen
61e0: 64 65 6e 63 69 65 73 20 73 74 69 6c 6c 20 6b 6e dencies still kn
61f0: 6f 77 6e 2c 20 74 61 6b 65 20 74 68 65 69 72 20 own, take their
6200: 72 61 6e 67 65 20 61 6e 64 0a 09 20 20 20 20 23 range and.. #
6210: 20 73 65 65 20 69 66 20 74 68 65 20 62 72 65 61 see if the brea
6220: 6b 20 6c 6f 63 61 74 69 6f 6e 20 66 61 6c 6c 73 k location falls
6230: 20 77 69 74 68 69 6e 2e 0a 0a 09 20 20 20 20 42 within.... B
6240: 6f 72 64 65 72 20 24 72 61 6e 67 65 20 73 20 65 order $range s e
6250: 0a 09 20 20 20 20 69 66 20 7b 24 6c 6f 63 61 74 .. if {$locat
6260: 69 6f 6e 20 3c 20 24 73 7d 20 63 6f 6e 74 69 6e ion < $s} contin
6270: 75 65 20 3b 20 23 20 62 72 65 61 6b 20 62 65 66 ue ; # break bef
6280: 6f 72 65 20 72 61 6e 67 65 2c 20 69 67 6e 6f 72 ore range, ignor
6290: 65 0a 09 20 20 20 20 69 66 20 7b 24 6c 6f 63 61 e.. if {$loca
62a0: 74 69 6f 6e 20 3e 20 24 65 7d 20 63 6f 6e 74 69 tion > $e} conti
62b0: 6e 75 65 20 3b 20 23 20 62 72 65 61 6b 20 61 66 nue ; # break af
62c0: 74 65 72 20 72 61 6e 67 65 2c 20 69 67 6e 6f 72 ter range, ignor
62d0: 65 2e 0a 0a 09 20 20 20 20 23 20 54 68 69 73 20 e.... # This
62e0: 64 65 70 65 6e 64 65 6e 63 79 20 63 72 6f 73 73 dependency cross
62f0: 65 73 20 74 68 65 20 62 72 65 61 6b 20 6c 6f 63 es the break loc
6300: 61 74 69 6f 6e 2e 20 57 65 20 72 65 6d 6f 76 65 ation. We remove
6310: 20 69 74 0a 09 20 20 20 20 23 20 66 72 6f 6d 20 it.. # from
6320: 74 68 65 20 63 72 6f 73 73 69 6e 67 73 20 63 6f the crossings co
6330: 75 6e 74 65 72 73 2c 20 61 6e 64 20 74 68 65 6e unters, and then
6340: 20 61 6c 73 6f 20 66 72 6f 6d 20 74 68 65 20 73 also from the s
6350: 65 74 0a 09 20 20 20 20 23 20 6f 66 20 6b 6e 6f et.. # of kno
6360: 77 6e 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2c wn dependencies,
6370: 20 61 73 20 77 65 20 61 72 65 20 64 6f 6e 65 20 as we are done
6380: 77 69 74 68 20 69 74 2e 0a 0a 09 20 20 20 20 66 with it.... f
6390: 6f 72 65 61 63 68 20 6c 6f 63 20 24 64 65 70 63 oreach loc $depc
63a0: 28 24 64 65 70 29 20 7b 20 69 6e 63 72 20 63 72 ($dep) { incr cr
63b0: 6f 73 73 28 24 6c 6f 63 29 20 2d 31 20 7d 0a 09 oss($loc) -1 }..
63c0: 20 20 20 20 75 6e 73 65 74 20 64 65 70 63 28 24 unset depc($
63d0: 64 65 70 29 0a 0a 09 20 20 20 20 69 66 20 7b 21 dep)... if {!
63e0: 24 73 69 78 7d 20 63 6f 6e 74 69 6e 75 65 0a 0a $six} continue..
63f0: 09 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 . struct::lis
6400: 74 20 61 73 73 69 67 6e 20 24 64 65 70 20 70 61 t assign $dep pa
6410: 72 65 6e 74 20 63 68 69 6c 64 0a 09 20 20 20 20 rent child..
6420: 6c 6f 67 20 77 72 69 74 65 20 35 20 63 73 65 74 log write 5 cset
6430: 73 20 22 42 72 6f 6b 65 20 64 65 70 65 6e 64 65 s "Broke depende
6440: 6e 63 79 20 5b 50 44 20 24 70 61 72 65 6e 74 5d ncy [PD $parent]
6450: 20 2d 2d 3e 20 5b 50 44 20 24 63 68 69 6c 64 5d --> [PD $child]
6460: 22 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 20 "..}...return.
6470: 20 20 7d 0a 0a 20 20 20 20 23 20 50 72 69 6e 74 }.. # Print
6480: 20 69 64 65 6e 74 69 66 79 69 6e 67 20 64 61 74 identifying dat
6490: 61 20 66 6f 72 20 61 20 72 65 76 69 73 69 6f 6e a for a revision
64a0: 20 28 70 72 6f 6a 65 63 74 2c 20 66 69 6c 65 2c (project, file,
64b0: 20 64 6f 74 74 65 64 20 72 65 76 0a 20 20 20 20 dotted rev.
64c0: 23 20 6e 75 6d 62 65 72 29 2c 20 66 6f 72 20 68 # number), for h
64d0: 69 67 68 20 76 65 72 62 6f 73 69 74 79 20 6c 6f igh verbosity lo
64e0: 67 20 6f 75 74 70 75 74 2e 0a 0a 20 20 20 20 70 g output... p
64f0: 72 6f 63 20 50 44 20 7b 69 64 7d 20 7b 0a 09 66 roc PD {id} {..f
6500: 6f 72 65 61 63 68 20 7b 70 20 66 20 72 7d 20 5b oreach {p f r} [
6510: 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 state run {...SE
6520: 4c 45 43 54 20 50 2e 6e 61 6d 65 20 2c 20 46 2e LECT P.name , F.
6530: 6e 61 6d 65 2c 20 52 2e 72 65 76 0a 09 09 46 52 name, R.rev...FR
6540: 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 66 OM revision R, f
6550: 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 ile F, project P
6560: 0a 09 09 57 48 45 52 45 20 52 2e 72 69 64 20 3d ...WHERE R.rid =
6570: 20 24 69 64 0a 09 09 41 4e 44 20 20 20 52 2e 66 $id...AND R.f
6580: 69 64 20 3d 20 46 2e 66 69 64 0a 09 09 41 4e 44 id = F.fid...AND
6590: 20 20 20 46 2e 70 69 64 20 3d 20 50 2e 70 69 64 F.pid = P.pid
65a0: 0a 09 7d 5d 20 62 72 65 61 6b 0a 09 72 65 74 75 ..}] break..retu
65b0: 72 6e 20 22 27 24 70 20 3a 20 24 66 2f 24 72 27 rn "'$p : $f/$r'
65c0: 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 50 ". }.. # P
65d0: 72 69 6e 74 69 6e 67 20 6f 6e 65 20 6f 72 20 6d rinting one or m
65e0: 6f 72 65 20 72 61 6e 67 65 73 2c 20 66 6f 72 6d ore ranges, form
65f0: 61 74 74 65 64 2c 20 61 6e 64 20 6f 6e 6c 79 20 atted, and only
6600: 74 68 65 69 72 20 62 6f 72 64 65 72 20 74 6f 0a their border to.
6610: 20 20 20 20 23 20 6b 65 65 70 20 74 68 65 20 73 # keep the s
6620: 74 72 69 6e 67 73 20 73 68 6f 72 74 2e 0a 0a 20 trings short...
6630: 20 20 20 70 72 6f 63 20 50 52 73 20 7b 72 61 6e proc PRs {ran
6640: 67 65 73 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b ges} {..return [
6650: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 struct::list map
6660: 20 24 72 61 6e 67 65 73 20 5b 6d 79 70 72 6f 63 $ranges [myproc
6670: 20 50 52 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 PR]]. }..
6680: 20 70 72 6f 63 20 50 52 20 7b 72 61 6e 67 65 7d proc PR {range}
6690: 20 7b 0a 09 42 6f 72 64 65 72 20 24 72 61 6e 67 {..Border $rang
66a0: 65 20 73 20 65 0a 09 72 65 74 75 72 6e 20 3c 24 e s e..return <$
66b0: 7b 73 7d 2e 2e 2e 24 7b 65 7d 3e 0a 20 20 20 20 {s}...${e}>.
66c0: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 42 6f 72 64 }.. proc Bord
66d0: 65 72 20 7b 72 61 6e 67 65 20 73 76 20 65 76 7d er {range sv ev}
66e0: 20 7b 0a 09 75 70 76 61 72 20 31 20 24 73 76 20 {..upvar 1 $sv
66f0: 73 20 24 65 76 20 65 0a 09 73 65 74 20 73 20 5b s $ev e..set s [
6700: 6c 69 6e 64 65 78 20 24 72 61 6e 67 65 20 30 5d lindex $range 0]
6710: 0a 09 73 65 74 20 65 20 5b 6c 69 6e 64 65 78 20 ..set e [lindex
6720: 24 72 61 6e 67 65 20 65 6e 64 5d 0a 09 72 65 74 $range end]..ret
6730: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
6740: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
6750: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
6760: 23 23 23 23 23 23 0a 0a 20 20 20 20 74 79 70 65 ######.. type
6770: 76 61 72 69 61 62 6c 65 20 6d 79 63 68 61 6e 67 variable mychang
6780: 65 73 65 74 73 20 20 20 20 7b 7d 20 3b 20 23 20 esets {} ; #
6790: 4c 69 73 74 20 6f 66 20 61 6c 6c 20 6b 6e 6f 77 List of all know
67a0: 6e 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 20 20 n changesets..
67b0: 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d typevariable m
67c0: 79 72 65 76 6d 61 70 20 2d 61 72 72 61 79 20 7b yrevmap -array {
67d0: 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d 20 72 } ; # Map from r
67e0: 65 76 69 73 69 6f 6e 73 20 74 6f 20 74 68 65 20 evisions to the
67f0: 6c 69 73 74 0a 09 09 09 09 20 20 20 20 20 20 23 list..... #
6800: 20 6f 66 20 63 68 61 6e 67 65 73 65 74 73 20 63 of changesets c
6810: 6f 6e 74 61 69 6e 69 6e 67 0a 09 09 09 09 20 20 ontaining.....
6820: 20 20 20 20 23 20 69 74 2e 20 4e 4f 54 45 3a 20 # it. NOTE:
6830: 57 68 69 6c 65 20 6f 6e 6c 79 20 6f 6e 65 0a 09 While only one..
6840: 09 09 09 20 20 20 20 20 20 23 20 72 65 76 69 73 ... # revis
6850: 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 20 63 61 ion changeset ca
6860: 6e 20 63 6f 6e 74 61 69 6e 0a 09 09 09 09 20 20 n contain.....
6870: 20 20 20 20 23 20 74 68 65 20 72 65 76 69 73 69 # the revisi
6880: 6f 6e 2c 20 74 68 65 72 65 20 63 61 6e 0a 09 09 on, there can...
6890: 09 09 20 20 20 20 20 20 23 20 68 6f 77 65 76 65 .. # howeve
68a0: 72 20 61 6c 73 6f 20 62 65 20 6f 6e 65 20 6f 72 r also be one or
68b0: 20 6d 6f 72 65 0a 09 09 09 09 20 20 20 20 20 20 more.....
68c0: 23 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 79 6d # additional sym
68d0: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 09 bol changesets..
68e0: 09 09 09 20 20 20 20 20 20 23 20 77 68 69 63 68 ... # which
68f0: 20 75 73 65 20 69 74 2c 20 68 65 6e 63 65 20 61 use it, hence a
6900: 20 6c 69 73 74 2e 0a 20 20 20 20 74 79 70 65 76 list.. typev
6910: 61 72 69 61 62 6c 65 20 6d 79 69 64 6d 61 70 20 ariable myidmap
6920: 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d -array {} ; # M
6930: 61 70 20 66 72 6f 6d 20 63 68 61 6e 67 65 73 65 ap from changese
6940: 74 20 69 64 20 74 6f 20 63 68 61 6e 67 65 73 65 t id to changese
6950: 74 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 t.. typevaria
6960: 62 6c 65 20 6d 79 62 72 61 6e 63 68 63 6f 64 65 ble mybranchcode
6970: 20 20 20 20 7b 7d 20 3b 20 23 20 4c 6f 63 61 6c {} ; # Local
6980: 20 63 6f 70 79 20 6f 66 20 70 72 6f 6a 65 63 74 copy of project
6990: 3a 3a 73 79 6d 2f 6d 79 62 72 61 6e 63 68 2e 0a ::sym/mybranch..
69a0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
69b0: 61 6c 6c 20 20 20 7b 7d 20 20 20 7b 20 72 65 74 all {} { ret
69c0: 75 72 6e 20 24 6d 79 63 68 61 6e 67 65 73 65 74 urn $mychangeset
69d0: 73 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 s }. typemeth
69e0: 6f 64 20 6f 66 20 20 20 20 7b 69 64 7d 20 7b 20 od of {id} {
69f0: 72 65 74 75 72 6e 20 24 6d 79 69 64 6d 61 70 28 return $myidmap(
6a00: 24 69 64 29 20 7d 0a 20 20 20 20 74 79 70 65 6d $id) }. typem
6a10: 65 74 68 6f 64 20 6f 66 72 65 76 20 7b 69 64 7d ethod ofrev {id}
6a20: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 72 65 76 { return $myrev
6a30: 6d 61 70 28 24 69 64 29 20 7d 0a 0a 20 20 20 20 map($id) }..
6a40: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
6a50: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
6a60: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 #######. ## C
6a70: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 onfiguration..
6a80: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 pragma -hastyp
6a90: 65 69 6e 66 6f 20 20 20 20 6e 6f 20 20 3b 20 23 einfo no ; #
6aa0: 20 6e 6f 20 74 79 70 65 20 69 6e 74 72 6f 73 70 no type introsp
6ab0: 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d ection. pragm
6ac0: 61 20 2d 68 61 73 69 6e 66 6f 20 20 20 20 20 20 a -hasinfo
6ad0: 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f 62 6a no ; # no obj
6ae0: 65 63 74 20 69 6e 74 72 6f 73 70 65 63 74 69 6f ect introspectio
6af0: 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 73 69 n. pragma -si
6b00: 6d 70 6c 65 64 69 73 70 61 74 63 68 20 79 65 73 mpledispatch yes
6b10: 20 3b 20 23 20 73 69 6d 70 6c 65 20 66 61 73 74 ; # simple fast
6b20: 20 64 69 73 70 61 74 63 68 0a 0a 20 20 20 20 23 dispatch.. #
6b30: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
6b40: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
6b50: 23 23 23 23 23 23 0a 7d 0a 0a 23 20 23 20 23 23 ######.}..# # ##
6b60: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
6b70: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
6b80: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 # ##############
6b90: 23 23 23 23 23 23 23 0a 23 23 20 48 65 6c 70 65 #######.## Helpe
6ba0: 72 20 73 69 6e 67 6c 65 74 6f 6e 2e 20 43 6f 6d r singleton. Com
6bb0: 6d 61 6e 64 73 20 66 6f 72 20 72 65 76 69 73 69 mands for revisi
6bc0: 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a on changesets...
6bd0: 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a snit::type ::vc:
6be0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
6bf0: 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 :cvs::project::r
6c00: 65 76 3a 3a 72 65 76 20 7b 0a 20 20 20 20 74 79 ev::rev {. ty
6c10: 70 65 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 pemethod byrevis
6c20: 69 6f 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 ion {} { return
6c30: 31 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 1 }. typemeth
6c40: 6f 64 20 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d od bysymbol {}
6c50: 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 { return 0 }.
6c60: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 typemethod ist
6c70: 61 67 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 ag {} { ret
6c80: 75 72 6e 20 30 20 7d 0a 20 20 20 20 74 79 70 65 urn 0 }. type
6c90: 6d 65 74 68 6f 64 20 69 73 62 72 61 6e 63 68 20 method isbranch
6ca0: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 {} { return 0
6cb0: 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 }.. # result
6cc0: 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c = list (mintime,
6cd0: 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 maxtime). ty
6ce0: 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e pemethod timeran
6cf0: 67 65 20 7b 69 74 65 6d 73 7d 20 7b 0a 09 73 65 ge {items} {..se
6d00: 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e t theset ('[join
6d10: 20 24 69 74 65 6d 73 20 7b 27 2c 27 7d 5d 27 29 $items {','}]')
6d20: 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 65 20 ..return [state
6d30: 72 75 6e 20 22 0a 09 20 20 20 20 53 45 4c 45 43 run ".. SELEC
6d40: 54 20 4d 49 4e 28 52 2e 64 61 74 65 29 2c 20 4d T MIN(R.date), M
6d50: 41 58 28 52 2e 64 61 74 65 29 0a 09 20 20 20 20 AX(R.date)..
6d60: 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 0a FROM revision R.
6d70: 09 20 20 20 20 57 48 45 52 45 20 52 2e 72 69 64 . WHERE R.rid
6d80: 20 49 4e 20 24 74 68 65 73 65 74 0a 09 22 5d 0a IN $theset.."].
6d90: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 }.. # var
6da0: 28 64 76 29 20 3d 20 64 69 63 74 20 28 72 65 76 (dv) = dict (rev
6db0: 69 73 69 6f 6e 20 2d 3e 20 6c 69 73 74 20 28 72 ision -> list (r
6dc0: 65 76 69 73 69 6f 6e 29 29 0a 20 20 20 20 74 79 evision)). ty
6dd0: 70 65 6d 65 74 68 6f 64 20 69 6e 74 65 72 6e 61 pemethod interna
6de0: 6c 73 75 63 63 65 73 73 6f 72 73 20 7b 64 76 20 lsuccessors {dv
6df0: 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 20 20 20 revisions} {.
6e00: 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 }.. # var(dv
6e10: 29 20 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d ) = dict (item -
6e20: 3e 20 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 > list (item)),
6e30: 69 74 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 item = list (ty
6e40: 70 65 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d pe id). typem
6e50: 65 74 68 6f 64 20 73 75 63 63 65 73 73 6f 72 73 ethod successors
6e60: 20 7b 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 {dv revisions}
6e70: 7b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 76 {. }.. # v
6e80: 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 28 69 ar(dv) = dict (i
6e90: 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 74 65 tem -> list (ite
6ea0: 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c 69 73 m)), item = lis
6eb0: 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 20 20 t (type id).
6ec0: 74 79 70 65 6d 65 74 68 6f 64 20 70 72 65 64 65 typemethod prede
6ed0: 63 65 73 73 6f 72 73 20 7b 64 76 20 72 65 76 69 cessors {dv revi
6ee0: 73 69 6f 6e 73 7d 20 7b 0a 20 20 20 20 7d 0a 7d sions} {. }.}
6ef0: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
6f00: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
6f10: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
6f20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
6f30: 23 23 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 ## Helper single
6f40: 74 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f ton. Commands fo
6f50: 72 20 74 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 r tag symbol cha
6f60: 6e 67 65 73 65 74 73 2e 0a 0a 73 6e 69 74 3a 3a ngesets...snit::
6f70: 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 type ::vc::fossi
6f80: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
6f90: 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 73 79 project::rev::sy
6fa0: 6d 3a 3a 74 61 67 20 7b 0a 20 20 20 20 74 79 70 m::tag {. typ
6fb0: 65 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 emethod byrevisi
6fc0: 6f 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 on {} { return 0
6fd0: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
6fe0: 64 20 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 d bysymbol {}
6ff0: 7b 20 72 65 74 75 72 6e 20 31 20 7d 0a 20 20 20 { return 1 }.
7000: 20 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 61 typemethod ista
7010: 67 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 g {} { retu
7020: 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 6d rn 1 }. typem
7030: 65 74 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 ethod isbranch
7040: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d {} { return 0 }
7050: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
7060: 20 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 list (mintime,
7070: 6d 61 78 74 69 6d 65 29 0a 20 20 20 20 74 79 70 maxtime). typ
7080: 65 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 emethod timerang
7090: 65 20 7b 74 61 67 73 7d 20 7b 0a 20 20 20 20 7d e {tags} {. }
70a0: 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 29 20 .. # var(dv)
70b0: 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d 3e 20 = dict (item ->
70c0: 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 69 74 list (item)), it
70d0: 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 70 65 em = list (type
70e0: 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 id). typemet
70f0: 68 6f 64 20 73 75 63 63 65 73 73 6f 72 73 20 7b hod successors {
7100: 64 76 20 74 61 67 73 7d 20 7b 0a 20 20 20 20 7d dv tags} {. }
7110: 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 29 20 .. # var(dv)
7120: 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d 3e 20 = dict (item ->
7130: 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 69 74 list (item)), it
7140: 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 70 65 em = list (type
7150: 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 id). typemet
7160: 68 6f 64 20 70 72 65 64 65 63 65 73 73 6f 72 73 hod predecessors
7170: 20 7b 64 76 20 74 61 67 73 7d 20 7b 0a 20 20 20 {dv tags} {.
7180: 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 }.}..# # ## ###
7190: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
71a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 ############# ##
71b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
71c0: 23 23 23 0a 23 23 20 48 65 6c 70 65 72 20 73 69 ###.## Helper si
71d0: 6e 67 6c 65 74 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 ngleton. Command
71e0: 73 20 66 6f 72 20 62 72 61 6e 63 68 20 73 79 6d s for branch sym
71f0: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 2e 0a bol changesets..
7200: 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 .snit::type ::vc
7210: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
7220: 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a ::cvs::project::
7230: 72 65 76 3a 3a 73 79 6d 3a 3a 62 72 61 6e 63 68 rev::sym::branch
7240: 20 7b 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f {. typemetho
7250: 64 20 62 79 72 65 76 69 73 69 6f 6e 20 7b 7d 20 d byrevision {}
7260: 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 { return 0 }.
7270: 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 73 79 typemethod bysy
7280: 6d 62 6f 6c 20 20 20 7b 7d 20 7b 20 72 65 74 75 mbol {} { retu
7290: 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 6d rn 1 }. typem
72a0: 65 74 68 6f 64 20 69 73 74 61 67 20 20 20 20 20 ethod istag
72b0: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d {} { return 0 }
72c0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
72d0: 69 73 62 72 61 6e 63 68 20 20 20 7b 7d 20 7b 20 isbranch {} {
72e0: 72 65 74 75 72 6e 20 31 20 7d 0a 0a 20 20 20 20 return 1 }..
72f0: 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 73 74 20 # result = list
7300: 28 6d 69 6e 74 69 6d 65 2c 20 6d 61 78 74 69 6d (mintime, maxtim
7310: 65 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f e). typemetho
7320: 64 20 74 69 6d 65 72 61 6e 67 65 20 7b 62 72 61 d timerange {bra
7330: 6e 63 68 65 73 7d 20 7b 0a 20 20 20 20 7d 0a 0a nches} {. }..
7340: 20 20 20 20 23 20 76 61 72 28 64 76 29 20 3d 20 # var(dv) =
7350: 64 69 63 74 20 28 69 74 65 6d 20 2d 3e 20 6c 69 dict (item -> li
7360: 73 74 20 28 69 74 65 6d 29 29 2c 20 69 74 65 6d st (item)), item
7370: 20 20 3d 20 6c 69 73 74 20 28 74 79 70 65 20 69 = list (type i
7380: 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f d). typemetho
7390: 64 20 73 75 63 63 65 73 73 6f 72 73 20 7b 64 76 d successors {dv
73a0: 20 62 72 61 6e 63 68 65 73 7d 20 7b 0a 20 20 20 branches} {.
73b0: 20 7d 0a 0a 20 20 20 20 23 20 76 61 72 28 64 76 }.. # var(dv
73c0: 29 20 3d 20 64 69 63 74 20 28 69 74 65 6d 20 2d ) = dict (item -
73d0: 3e 20 6c 69 73 74 20 28 69 74 65 6d 29 29 2c 20 > list (item)),
73e0: 69 74 65 6d 20 20 3d 20 6c 69 73 74 20 28 74 79 item = list (ty
73f0: 70 65 20 69 64 29 0a 20 20 20 20 74 79 70 65 6d pe id). typem
7400: 65 74 68 6f 64 20 70 72 65 64 65 63 65 73 73 6f ethod predecesso
7410: 72 73 20 7b 64 76 20 62 72 61 6e 63 68 65 73 7d rs {dv branches}
7420: 20 7b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 {. }.. #
7430: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
7440: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
7450: 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 6f 6e #####. ## Con
7460: 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 figuration..
7470: 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 73 74 61 pragma -hasinsta
7480: 6e 63 65 73 20 20 20 6e 6f 20 3b 20 23 20 73 69 nces no ; # si
7490: 6e 67 6c 65 74 6f 6e 0a 20 20 20 20 70 72 61 67 ngleton. prag
74a0: 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 6f 20 ma -hastypeinfo
74b0: 20 20 20 6e 6f 20 3b 20 23 20 6e 6f 20 69 6e 74 no ; # no int
74c0: 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 rospection. p
74d0: 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 64 65 ragma -hastypede
74e0: 73 74 72 6f 79 20 6e 6f 20 3b 20 23 20 69 6d 6d stroy no ; # imm
74f0: 6f 72 74 61 6c 0a 7d 0a 0a 23 20 23 20 23 23 20 ortal.}..# # ##
7500: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
7510: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
7520: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
7530: 23 23 23 23 23 23 0a 23 23 0a 0a 6e 61 6d 65 73 ######.##..names
7540: 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a pace eval ::vc::
7550: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
7560: 63 76 73 3a 3a 70 72 6f 6a 65 63 74 20 7b 0a 20 cvs::project {.
7570: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 namespace exp
7580: 6f 72 74 20 72 65 76 0a 20 20 20 20 6e 61 6d 65 ort rev. name
7590: 73 70 61 63 65 20 65 76 61 6c 20 72 65 76 20 7b space eval rev {
75a0: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
75b0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
75c0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 :import::cvs::st
75d0: 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 ate..namespace i
75e0: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 mport ::vc::foss
75f0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
7600: 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 6d 65 :integrity..name
7610: 73 70 61 63 65 20 65 76 61 6c 20 70 72 6f 6a 65 space eval proje
7620: 63 74 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 ct {.. namesp
7630: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
7640: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
7650: 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 73 :cvs::project::s
7660: 79 6d 0a 09 7d 0a 09 3a 3a 76 61 72 69 61 62 6c ym..}..::variabl
7670: 65 20 6d 79 62 72 61 6e 63 68 63 6f 64 65 20 5b e mybranchcode [
7680: 70 72 6f 6a 65 63 74 3a 3a 73 79 6d 20 62 72 61 project::sym bra
7690: 6e 63 68 5d 0a 09 6e 61 6d 65 73 70 61 63 65 20 nch]..namespace
76a0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f import ::vc::too
76b0: 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a 09 6e 61 6d ls::misc::*..nam
76c0: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
76d0: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 vc::tools::troub
76e0: 6c 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d le..namespace im
76f0: 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 port ::vc::tools
7700: 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 65 67 69 73 ::log..log regis
7710: 74 65 72 20 63 73 65 74 73 0a 0a 09 23 20 53 65 ter csets...# Se
7720: 74 20 75 70 20 74 68 65 20 68 65 6c 70 65 72 20 t up the helper
7730: 73 69 6e 67 6c 65 74 6f 6e 73 0a 09 6e 61 6d 65 singletons..name
7740: 73 70 61 63 65 20 65 76 61 6c 20 72 65 76 20 7b space eval rev {
7750: 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 .. namespace
7760: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
7770: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
7780: 3a 3a 73 74 61 74 65 0a 09 20 20 20 20 6e 61 6d ::state.. nam
7790: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
77a0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
77b0: 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 rt::cvs::integri
77c0: 74 79 0a 09 7d 0a 09 6e 61 6d 65 73 70 61 63 65 ty..}..namespace
77d0: 20 65 76 61 6c 20 73 79 6d 3a 3a 74 61 67 20 7b eval sym::tag {
77e0: 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 .. namespace
77f0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
7800: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
7810: 3a 3a 73 74 61 74 65 0a 09 20 20 20 20 6e 61 6d ::state.. nam
7820: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
7830: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
7840: 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 rt::cvs::integri
7850: 74 79 0a 09 7d 0a 09 6e 61 6d 65 73 70 61 63 65 ty..}..namespace
7860: 20 65 76 61 6c 20 73 79 6d 3a 3a 62 72 61 6e 63 eval sym::branc
7870: 68 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 h {.. namespa
7880: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
7890: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
78a0: 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 20 20 cvs::state..
78b0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
78c0: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
78d0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 mport::cvs::inte
78e0: 67 72 69 74 79 0a 09 7d 0a 20 20 20 20 7d 0a 7d grity..}. }.}
78f0: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
7900: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
7910: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
7920: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
7930: 23 23 20 52 65 61 64 79 0a 0a 70 61 63 6b 61 67 ## Ready..packag
7940: 65 20 70 72 6f 76 69 64 65 20 76 63 3a 3a 66 6f e provide vc::fo
7950: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
7960: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 s::project::rev
7970: 31 2e 30 0a 72 65 74 75 72 6e 0a 1.0.return.