Artifact 3f3d02eb9464a3b590257b442f20a3e9c9a57ad4:
File
tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
part of check-in
[229050721f]
- Fixed log progress use in last breaker pass. Disabled the check regarding revision order. It still triggers and I can't see anything wrong. Pressing forward for now, i.e. get the remaining passes done, then revisit this issue.
by
aku on
2007-12-05 02:24:25.
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 50 61 73 ########..## Pas
0200: 73 20 58 2e 20 54 68 69 73 20 69 73 20 74 68 65 s X. This is the
0210: 20 66 69 6e 61 6c 20 70 61 73 73 20 66 6f 72 20 final pass for
0220: 62 72 65 61 6b 69 6e 67 20 63 68 61 6e 67 65 73 breaking changes
0230: 65 74 20 64 65 70 65 6e 64 65 6e 63 79 0a 23 23 et dependency.##
0240: 20 63 79 63 6c 65 73 2e 20 54 68 65 20 70 72 65 cycles. The pre
0250: 76 69 6f 75 73 20 62 72 65 61 6b 65 72 20 70 61 vious breaker pa
0260: 73 73 65 73 20 28 37 20 61 6e 64 20 39 29 20 62 sses (7 and 9) b
0270: 72 6f 6b 65 20 63 79 63 6c 65 73 20 63 6f 76 65 roke cycles cove
0280: 72 69 6e 67 0a 23 23 20 72 65 76 69 73 69 6f 6e ring.## revision
0290: 20 61 6e 64 20 73 79 6d 62 6f 6c 20 63 68 61 6e and symbol chan
02a0: 67 65 73 65 74 73 2c 20 72 65 73 70 65 63 74 69 gesets, respecti
02b0: 76 65 6c 79 2e 20 54 68 69 73 20 70 61 73 73 20 vely. This pass
02c0: 6e 6f 77 20 62 72 65 61 6b 73 0a 23 23 20 61 6e now breaks.## an
02d0: 79 20 72 65 6d 61 69 6e 69 6e 67 20 63 79 63 6c y remaining cycl
02e0: 65 73 2c 20 65 61 63 68 20 6f 66 20 77 68 69 63 es, each of whic
02f0: 68 20 68 61 73 20 74 6f 20 63 6f 6e 74 61 69 6e h has to contain
0300: 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 0a 23 23 at least one.##
0310: 20 72 65 76 69 73 69 6f 6e 20 61 6e 64 20 61 74 revision and at
0320: 20 6c 65 61 73 74 20 6f 6e 65 20 73 79 6d 62 6f least one symbo
0330: 6c 20 63 68 61 6e 67 65 73 65 74 2e 0a 0a 23 20 l changeset...#
0340: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
0350: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
0360: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0370: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 ###########.## R
0380: 65 71 75 69 72 65 6d 65 6e 74 73 0a 0a 70 61 63 equirements..pac
0390: 6b 61 67 65 20 72 65 71 75 69 72 65 20 54 63 6c kage require Tcl
03a0: 20 38 2e 34 20 20 20 20 20 20 20 20 20 20 20 20 8.4
03b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03c0: 20 20 20 20 20 20 20 3b 20 23 20 52 65 71 75 69 ; # Requi
03d0: 72 65 64 20 72 75 6e 74 69 6d 65 2e 0a 70 61 63 red runtime..pac
03e0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 6e 69 kage require sni
03f0: 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0410: 20 20 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 79 ; # OO sy
0420: 73 74 65 6d 2e 0a 70 61 63 6b 61 67 65 20 72 65 stem..package re
0430: 71 75 69 72 65 20 73 74 72 75 63 74 3a 3a 6c 69 quire struct::li
0440: 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 st
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0460: 3b 20 23 20 48 69 67 68 65 72 20 6f 72 64 65 72 ; # Higher order
0470: 20 6c 69 73 74 20 6f 70 65 72 61 74 69 6f 6e 73 list operations
0480: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0490: 65 20 73 74 72 75 63 74 3a 3a 73 65 74 20 20 20 e struct::set
04a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04b0: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
04c0: 53 65 74 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a Set operations..
04d0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
04e0: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 vc::tools::misc
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0500: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 4d 69 ; # Mi
0510: 6e 2c 20 6d 61 78 2e 0a 70 61 63 6b 61 67 65 20 n, max..package
0520: 72 65 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c require vc::tool
0530: 73 3a 3a 6c 6f 67 20 20 20 20 20 20 20 20 20 20 s::log
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0550: 20 20 3b 20 23 20 55 73 65 72 20 66 65 65 64 62 ; # User feedb
0560: 61 63 6b 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 ack..package req
0570: 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a uire vc::tools::
0580: 74 72 6f 75 62 6c 65 20 20 20 20 20 20 20 20 20 trouble
0590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ;
05a0: 20 23 20 45 72 72 6f 72 20 72 65 70 6f 72 74 69 # Error reporti
05b0: 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ng..package requ
05c0: 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ire vc::fossil::
05d0: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 72 65 70 import::cvs::rep
05e0: 6f 73 69 74 6f 72 79 20 20 20 20 20 20 20 3b 20 ository ;
05f0: 23 20 52 65 70 6f 73 69 74 6f 72 79 20 6d 61 6e # Repository man
0600: 61 67 65 6d 65 6e 74 2e 0a 70 61 63 6b 61 67 65 agement..package
0610: 20 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 require vc::fos
0620: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
0630: 3a 3a 63 79 63 6c 65 62 72 65 61 6b 65 72 20 20 ::cyclebreaker
0640: 20 20 20 3b 20 23 20 42 72 65 61 6b 69 6e 67 20 ; # Breaking
0650: 64 65 70 65 6e 64 65 6e 63 79 20 63 79 63 6c 65 dependency cycle
0660: 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 s..package requi
0670: 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 re vc::fossil::i
0680: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
0690: 65 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 e ; #
06a0: 20 53 74 61 74 65 20 73 74 6f 72 61 67 65 2e 0a State storage..
06b0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
06c0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
06d0: 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 rt::cvs::integri
06e0: 74 79 20 20 20 20 20 20 20 20 3b 20 23 20 53 74 ty ; # St
06f0: 61 74 65 20 69 6e 74 65 67 72 69 74 79 20 63 68 ate integrity ch
0700: 65 63 6b 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 ecks..package re
0710: 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c quire vc::fossil
0720: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
0730: 72 6f 6a 65 63 74 3a 3a 72 65 76 20 20 20 20 20 roject::rev
0740: 3b 20 23 20 50 72 6f 6a 65 63 74 20 6c 65 76 65 ; # Project leve
0750: 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 0a 23 20 l changesets..#
0760: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
0770: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
0780: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0790: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 ###########.## R
07a0: 65 67 69 73 74 65 72 20 74 68 65 20 70 61 73 73 egister the pass
07b0: 20 77 69 74 68 20 74 68 65 20 6d 61 6e 61 67 65 with the manage
07c0: 6d 65 6e 74 0a 0a 76 63 3a 3a 66 6f 73 73 69 6c ment..vc::fossil
07d0: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
07e0: 61 73 73 20 64 65 66 69 6e 65 20 5c 0a 20 20 20 ass define \.
07f0: 20 42 72 65 61 6b 41 6c 6c 43 73 65 74 43 79 63 BreakAllCsetCyc
0800: 6c 65 73 20 5c 0a 20 20 20 20 7b 42 72 65 61 6b les \. {Break
0810: 20 52 65 6d 61 69 6e 69 6e 67 20 43 68 61 6e 67 Remaining Chang
0820: 65 53 65 74 20 44 65 70 65 6e 64 65 6e 63 79 20 eSet Dependency
0830: 43 79 63 6c 65 73 7d 20 5c 0a 20 20 20 20 3a 3a Cycles} \. ::
0840: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0850: 72 74 3a 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 62 rt::cvs::pass::b
0860: 72 65 61 6b 61 63 79 63 6c 65 0a 0a 23 20 23 20 reakacycle..# #
0870: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
0880: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0890: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
08a0: 23 23 23 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e #########.##..sn
08b0: 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 it::type ::vc::f
08c0: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
08d0: 76 73 3a 3a 70 61 73 73 3a 3a 62 72 65 61 6b 61 vs::pass::breaka
08e0: 63 79 63 6c 65 20 7b 0a 20 20 20 20 23 20 23 20 cycle {. # #
08f0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
0900: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0910: 23 23 23 0a 20 20 20 20 23 23 20 50 75 62 6c 69 ###. ## Publi
0920: 63 20 41 50 49 0a 0a 20 20 20 20 74 79 70 65 6d c API.. typem
0930: 65 74 68 6f 64 20 73 65 74 75 70 20 7b 7d 20 7b ethod setup {} {
0940: 0a 09 23 20 44 65 66 69 6e 65 20 74 68 65 20 6e ..# Define the n
0950: 61 6d 65 73 20 61 6e 64 20 73 74 72 75 63 74 75 ames and structu
0960: 72 65 20 6f 66 20 74 68 65 20 70 65 72 73 69 73 re of the persis
0970: 74 65 6e 74 20 73 74 61 74 65 20 6f 66 0a 09 23 tent state of..#
0980: 20 74 68 69 73 20 70 61 73 73 2e 0a 0a 09 73 74 this pass....st
0990: 61 74 65 20 75 73 65 20 72 65 76 69 73 69 6f 6e ate use revision
09a0: 0a 09 73 74 61 74 65 20 75 73 65 20 74 61 67 0a ..state use tag.
09b0: 09 73 74 61 74 65 20 75 73 65 20 62 72 61 6e 63 .state use branc
09c0: 68 0a 09 73 74 61 74 65 20 75 73 65 20 73 79 6d h..state use sym
09d0: 62 6f 6c 0a 09 73 74 61 74 65 20 75 73 65 20 63 bol..state use c
09e0: 68 61 6e 67 65 73 65 74 0a 09 73 74 61 74 65 20 hangeset..state
09f0: 75 73 65 20 63 73 69 74 65 6d 0a 09 73 74 61 74 use csitem..stat
0a00: 65 20 75 73 65 20 63 73 73 75 63 63 65 73 73 6f e use cssuccesso
0a10: 72 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a r..return. }.
0a20: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
0a30: 6c 6f 61 64 20 7b 7d 20 7b 0a 09 23 20 50 61 73 load {} {..# Pas
0a40: 73 20 6d 61 6e 61 67 65 72 20 69 6e 74 65 72 66 s manager interf
0a50: 61 63 65 2e 20 45 78 65 63 75 74 65 64 20 74 6f ace. Executed to
0a60: 20 6c 6f 61 64 20 64 61 74 61 20 63 6f 6d 70 75 load data compu
0a70: 74 65 64 20 62 79 0a 09 23 20 74 68 69 73 20 70 ted by..# this p
0a80: 61 73 73 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 ass into memory
0a90: 77 68 65 6e 20 74 68 69 73 20 70 61 73 73 20 69 when this pass i
0aa0: 73 20 73 6b 69 70 70 65 64 20 69 6e 73 74 65 61 s skipped instea
0ab0: 64 20 6f 66 0a 09 23 20 65 78 65 63 75 74 65 64 d of..# executed
0ac0: 2e 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ...return. }.
0ad0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
0ae0: 72 75 6e 20 7b 7d 20 7b 0a 09 23 20 50 61 73 73 run {} {..# Pass
0af0: 20 6d 61 6e 61 67 65 72 20 69 6e 74 65 72 66 61 manager interfa
0b00: 63 65 2e 20 45 78 65 63 75 74 65 64 20 74 6f 20 ce. Executed to
0b10: 70 65 72 66 6f 72 6d 20 74 68 65 0a 09 23 20 66 perform the..# f
0b20: 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 6f 66 20 unctionality of
0b30: 74 68 65 20 70 61 73 73 2e 0a 0a 09 73 65 74 20 the pass....set
0b40: 6c 65 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 len [string leng
0b50: 74 68 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 65 76 th [project::rev
0b60: 20 6e 75 6d 5d 5d 0a 09 73 65 74 20 6d 79 61 74 num]]..set myat
0b70: 66 6d 74 20 25 24 7b 6c 65 6e 7d 73 0a 09 69 6e fmt %${len}s..in
0b80: 63 72 20 6c 65 6e 20 31 32 0a 09 73 65 74 20 6d cr len 12..set m
0b90: 79 63 73 66 6d 74 20 25 24 7b 6c 65 6e 7d 73 0a ycsfmt %${len}s.
0ba0: 0a 09 63 79 63 6c 65 62 72 65 61 6b 65 72 20 70 ..cyclebreaker p
0bb0: 72 65 63 6d 64 20 20 20 5b 6d 79 70 72 6f 63 20 recmd [myproc
0bc0: 42 72 65 61 6b 42 61 63 6b 77 61 72 64 5d 0a 09 BreakBackward]..
0bd0: 63 79 63 6c 65 62 72 65 61 6b 65 72 20 73 61 76 cyclebreaker sav
0be0: 65 63 6d 64 20 20 5b 6d 79 70 72 6f 63 20 4b 65 ecmd [myproc Ke
0bf0: 65 70 4f 72 64 65 72 5d 0a 0a 09 73 74 61 74 65 epOrder]...state
0c00: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 transaction {..
0c10: 20 20 20 20 4c 6f 61 64 43 6f 6d 6d 69 74 4f 72 LoadCommitOr
0c20: 64 65 72 0a 09 20 20 20 20 63 79 63 6c 65 62 72 der.. cyclebr
0c30: 65 61 6b 65 72 20 72 75 6e 20 62 72 65 61 6b 2d eaker run break-
0c40: 61 6c 6c 20 5b 6d 79 70 72 6f 63 20 43 68 61 6e all [myproc Chan
0c50: 67 65 73 65 74 73 5d 0a 09 7d 0a 0a 09 72 65 70 gesets]..}...rep
0c60: 6f 73 69 74 6f 72 79 20 70 72 69 6e 74 63 73 65 ository printcse
0c70: 74 73 74 61 74 69 73 74 69 63 73 0a 09 69 6e 74 tstatistics..int
0c80: 65 67 72 69 74 79 20 63 68 61 6e 67 65 73 65 74 egrity changeset
0c90: 73 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a s..return. }.
0ca0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
0cb0: 64 69 73 63 61 72 64 20 7b 7d 20 7b 0a 09 23 20 discard {} {..#
0cc0: 50 61 73 73 20 6d 61 6e 61 67 65 72 20 69 6e 74 Pass manager int
0cd0: 65 72 66 61 63 65 2e 20 45 78 65 63 75 74 65 64 erface. Executed
0ce0: 20 66 6f 72 20 61 6c 6c 20 70 61 73 73 65 73 20 for all passes
0cf0: 61 66 74 65 72 20 74 68 65 0a 09 23 20 72 75 6e after the..# run
0d00: 20 70 61 73 73 65 73 2c 20 74 6f 20 72 65 6d 6f passes, to remo
0d10: 76 65 20 61 6c 6c 20 64 61 74 61 20 6f 66 20 74 ve all data of t
0d20: 68 69 73 20 70 61 73 73 20 66 72 6f 6d 20 74 68 his pass from th
0d30: 65 20 73 74 61 74 65 2c 0a 09 23 20 61 73 20 62 e state,..# as b
0d40: 65 69 6e 67 20 6f 75 74 20 6f 66 20 64 61 74 65 eing out of date
0d50: 2e 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ...return. }.
0d60: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
0d70: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0d80: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
0d90: 20 23 23 20 49 6e 74 65 72 6e 61 6c 20 6d 65 74 ## Internal met
0da0: 68 6f 64 73 0a 0a 20 20 20 20 70 72 6f 63 20 43 hods.. proc C
0db0: 68 61 6e 67 65 73 65 74 73 20 7b 7d 20 7b 0a 09 hangesets {} {..
0dc0: 6c 6f 67 20 77 72 69 74 65 20 32 20 62 72 65 61 log write 2 brea
0dd0: 6b 72 63 79 63 6c 65 20 7b 53 65 6c 65 63 74 69 krcycle {Selecti
0de0: 6e 67 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 ng all changeset
0df0: 73 7d 0a 09 72 65 74 75 72 6e 20 5b 70 72 6f 6a s}..return [proj
0e00: 65 63 74 3a 3a 72 65 76 20 61 6c 6c 5d 0a 20 20 ect::rev all].
0e10: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 4c 6f }.. proc Lo
0e20: 61 64 43 6f 6d 6d 69 74 4f 72 64 65 72 20 7b 7d adCommitOrder {}
0e30: 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d {..::variable m
0e40: 79 63 73 65 74 0a 09 3a 3a 76 61 72 69 61 62 6c ycset..::variabl
0e50: 65 20 6d 79 72 65 76 69 73 69 6f 6e 63 68 61 6e e myrevisionchan
0e60: 67 65 73 65 74 73 0a 0a 09 6c 6f 67 20 77 72 69 gesets...log wri
0e70: 74 65 20 32 20 62 72 65 61 6b 61 63 79 63 6c 65 te 2 breakacycle
0e80: 20 7b 4c 6f 61 64 69 6e 67 20 72 65 76 69 73 69 {Loading revisi
0e90: 6f 6e 20 63 6f 6d 6d 69 74 20 6f 72 64 65 72 7d on commit order}
0ea0: 0a 0a 09 73 65 74 20 6e 20 30 0a 09 73 74 61 74 ...set n 0..stat
0eb0: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a e transaction {.
0ec0: 09 20 20 20 20 66 6f 72 65 61 63 68 20 7b 63 69 . foreach {ci
0ed0: 64 20 70 6f 73 7d 20 5b 73 74 61 74 65 20 72 75 d pos} [state ru
0ee0: 6e 20 7b 20 53 45 4c 45 43 54 20 63 69 64 2c 20 n { SELECT cid,
0ef0: 70 6f 73 20 46 52 4f 4d 20 63 73 6f 72 64 65 72 pos FROM csorder
0f00: 20 7d 5d 20 7b 0a 09 09 6c 6f 67 20 70 72 6f 67 }] {...log prog
0f10: 72 65 73 73 20 32 20 62 72 65 61 6b 61 63 79 63 ress 2 breakacyc
0f20: 6c 65 20 24 6e 20 7b 7d 0a 09 09 73 65 74 20 63 le $n {}...set c
0f30: 73 65 74 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 65 set [project::re
0f40: 76 20 6f 66 20 24 63 69 64 5d 0a 09 09 24 63 73 v of $cid]...$cs
0f50: 65 74 20 73 65 74 70 6f 73 20 24 70 6f 73 0a 09 et setpos $pos..
0f60: 09 73 65 74 20 6d 79 63 73 65 74 28 24 70 6f 73 .set mycset($pos
0f70: 29 20 24 63 73 65 74 0a 09 09 6c 61 70 70 65 6e ) $cset...lappen
0f80: 64 20 6d 79 72 65 76 69 73 69 6f 6e 63 68 61 6e d myrevisionchan
0f90: 67 65 73 65 74 73 20 24 63 73 65 74 0a 09 09 69 gesets $cset...i
0fa0: 6e 63 72 20 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a ncr n.. }..}.
0fb0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
0fc0: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
0fd0: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
0fe0: 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 ##########..
0ff0: 70 72 6f 63 20 42 72 65 61 6b 42 61 63 6b 77 61 proc BreakBackwa
1000: 72 64 20 7b 67 72 61 70 68 7d 20 7b 0a 09 23 20 rd {graph} {..#
1010: 57 65 20 67 6f 20 6f 76 65 72 20 61 6c 6c 20 62 We go over all b
1020: 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 74 73 ranch changesets
1030: 2c 20 69 2e 65 2e 20 74 68 65 20 63 68 61 6e 67 , i.e. the chang
1040: 65 73 65 74 73 0a 09 23 20 63 72 65 61 74 65 64 esets..# created
1050: 20 62 79 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 by the symbols
1060: 77 68 69 63 68 20 61 72 65 20 74 72 61 6e 73 6c which are transl
1070: 61 74 65 64 20 61 73 20 62 72 61 6e 63 68 65 73 ated as branches
1080: 2c 20 61 6e 64 0a 09 23 20 62 72 65 61 6b 20 61 , and..# break a
1090: 6e 79 20 77 68 69 63 68 20 61 72 65 20 27 62 61 ny which are 'ba
10a0: 63 6b 77 61 72 64 27 2c 20 77 68 69 63 68 20 6d ckward', which m
10b0: 65 61 6e 73 20 74 68 61 74 20 74 68 65 79 20 68 eans that they h
10c0: 61 76 65 0a 09 23 20 61 74 20 6c 65 61 73 74 20 ave..# at least
10d0: 6f 6e 65 20 69 6e 63 6f 6d 69 6e 67 20 72 65 76 one incoming rev
10e0: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 20 ision changeset
10f0: 77 68 69 63 68 20 69 73 20 63 6f 6d 6d 69 74 74 which is committ
1100: 65 64 0a 09 23 20 61 66 74 65 72 20 61 74 20 6c ed..# after at l
1110: 65 61 73 74 20 6f 6e 65 20 6f 66 20 74 68 65 20 east one of the
1120: 6f 75 74 67 6f 69 6e 67 20 72 65 76 69 73 69 6f outgoing revisio
1130: 6e 20 63 68 61 6e 67 65 73 65 74 73 2c 20 70 65 n changesets, pe
1140: 72 0a 09 23 20 74 68 65 20 6f 72 64 65 72 20 63 r..# the order c
1150: 6f 6d 70 75 74 65 64 20 69 6e 20 70 61 73 73 20 omputed in pass
1160: 36 2e 20 49 6e 20 22 63 76 73 32 73 76 6e 22 20 6. In "cvs2svn"
1170: 74 68 69 73 20 69 73 20 63 61 6c 6c 65 64 0a 09 this is called..
1180: 23 20 22 72 65 74 72 6f 67 72 61 64 65 22 2e 0a # "retrograde"..
1190: 0a 09 73 65 74 20 6e 20 30 0a 09 73 65 74 20 6d ..set n 0..set m
11a0: 61 78 20 5b 6c 6c 65 6e 67 74 68 20 5b 24 67 72 ax [llength [$gr
11b0: 61 70 68 20 6e 6f 64 65 73 5d 5d 0a 09 66 6f 72 aph nodes]]..for
11c0: 65 61 63 68 20 63 73 65 74 20 5b 24 67 72 61 70 each cset [$grap
11d0: 68 20 6e 6f 64 65 73 5d 20 7b 0a 09 20 20 20 20 h nodes] {..
11e0: 6c 6f 67 20 70 72 6f 67 72 65 73 73 20 32 20 62 log progress 2 b
11f0: 72 65 61 6b 61 63 79 63 6c 65 20 24 6e 20 24 6d reakacycle $n $m
1200: 61 78 20 3b 20 69 6e 63 72 20 6e 0a 09 20 20 20 ax ; incr n..
1210: 20 69 66 20 7b 21 5b 24 63 73 65 74 20 69 73 62 if {![$cset isb
1220: 72 61 6e 63 68 5d 7d 20 63 6f 6e 74 69 6e 75 65 ranch]} continue
1230: 0a 09 20 20 20 20 43 68 65 63 6b 41 6e 64 42 72 .. CheckAndBr
1240: 65 61 6b 42 61 63 6b 77 61 72 64 20 24 67 72 61 eakBackward $gra
1250: 70 68 20 24 63 73 65 74 0a 09 7d 0a 09 72 65 74 ph $cset..}..ret
1260: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 urn. }.. p
1270: 72 6f 63 20 43 68 65 63 6b 41 6e 64 42 72 65 61 roc CheckAndBrea
1280: 6b 42 61 63 6b 77 61 72 64 20 7b 67 72 61 70 68 kBackward {graph
1290: 20 63 73 65 74 7d 20 7b 0a 09 77 68 69 6c 65 20 cset} {..while
12a0: 7b 5b 49 73 42 61 63 6b 77 61 72 64 20 24 67 72 {[IsBackward $gr
12b0: 61 70 68 20 24 63 73 65 74 5d 7d 20 7b 0a 09 20 aph $cset]} {..
12c0: 20 20 20 23 20 4b 6e 6f 77 69 6e 67 20 74 68 61 # Knowing tha
12d0: 74 20 74 68 65 20 62 72 61 6e 63 68 20 63 68 61 t the branch cha
12e0: 6e 67 65 73 65 74 20 69 73 20 62 61 63 6b 77 61 ngeset is backwa
12f0: 72 64 20 77 65 20 6e 6f 77 0a 09 20 20 20 20 23 rd we now.. #
1300: 20 6c 6f 6f 6b 20 61 74 20 74 68 65 20 69 6e 64 look at the ind
1310: 69 76 69 64 75 61 6c 20 62 72 61 6e 63 68 65 73 ividual branches
1320: 20 69 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 in the changese
1330: 74 20 61 6e 64 0a 09 20 20 20 20 23 20 64 65 74 t and.. # det
1340: 65 72 6d 69 6e 65 20 77 68 69 63 68 20 6f 66 20 ermine which of
1350: 74 68 65 6d 20 61 72 65 20 72 65 73 70 6f 6e 73 them are respons
1360: 69 62 6c 65 20 66 6f 72 20 74 68 65 0a 09 20 20 ible for the..
1370: 20 20 23 20 6f 76 65 72 6c 61 70 2e 20 54 68 69 # overlap. Thi
1380: 73 20 61 6c 6c 6f 77 73 20 75 73 20 74 6f 20 73 s allows us to s
1390: 70 6c 69 74 20 74 68 65 6d 20 69 6e 74 6f 20 74 plit them into t
13a0: 77 6f 20 73 65 74 73 2c 20 6f 6e 65 0a 09 20 20 wo sets, one..
13b0: 20 20 23 20 6f 66 20 6e 6f 6e 2d 6f 76 65 72 6c # of non-overl
13c0: 61 70 70 69 6e 67 20 62 72 61 6e 63 68 65 73 2c apping branches,
13d0: 20 61 6e 64 20 6f 66 20 6f 76 65 72 6c 61 70 70 and of overlapp
13e0: 69 6e 67 0a 09 20 20 20 20 23 20 6f 6e 65 73 2e ing.. # ones.
13f0: 20 45 61 63 68 20 73 65 74 20 69 6e 64 75 63 65 Each set induce
1400: 73 20 61 20 6e 65 77 20 63 68 61 6e 67 65 73 65 s a new changese
1410: 74 2c 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e t, and the secon
1420: 64 0a 09 20 20 20 20 23 20 6f 6e 65 20 6d 61 79 d.. # one may
1430: 20 73 74 69 6c 6c 20 62 65 20 62 61 63 6b 77 61 still be backwa
1440: 72 64 20 61 6e 64 20 69 6e 20 6e 65 65 64 20 6f rd and in need o
1450: 66 20 66 75 72 74 68 65 72 0a 09 20 20 20 20 23 f further.. #
1460: 20 73 70 6c 69 74 74 69 6e 67 2e 20 48 65 6e 63 splitting. Henc
1470: 65 20 74 68 65 20 6c 6f 6f 70 69 6e 67 2e 0a 0a e the looping...
1480: 09 20 20 20 20 23 20 54 68 65 20 62 6f 72 64 65 . # The borde
1490: 72 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 73 r used for the s
14a0: 70 6c 69 74 20 69 73 20 74 68 65 20 6d 69 6e 69 plit is the mini
14b0: 6d 61 6c 20 63 6f 6d 6d 69 74 0a 09 20 20 20 20 mal commit..
14c0: 23 20 70 6f 73 69 74 69 6f 6e 20 61 6d 6f 6e 67 # position among
14d0: 20 74 68 65 20 6d 69 6e 69 6d 61 6c 20 73 75 63 the minimal suc
14e0: 65 73 73 6f 72 20 63 6f 6d 6d 69 74 20 70 6f 73 essor commit pos
14f0: 69 74 69 6f 6e 73 20 66 6f 72 0a 09 20 20 20 20 itions for..
1500: 23 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 69 # the branches i
1510: 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e n the changeset.
1520: 20 20 57 65 20 73 6f 72 74 20 74 68 65 20 66 69 We sort the fi
1530: 6c 65 20 6c 65 76 65 6c 0a 09 20 20 20 20 23 20 le level.. #
1540: 69 74 65 6d 73 20 62 61 73 65 64 20 6f 6e 20 74 items based on t
1550: 68 65 72 65 20 74 68 65 79 20 73 69 74 20 72 65 here they sit re
1560: 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 62 6f lative to the bo
1570: 72 64 65 72 0a 09 20 20 20 20 23 20 69 6e 74 6f rder.. # into
1580: 20 62 65 66 6f 72 65 20 61 6e 64 20 61 66 74 65 before and afte
1590: 72 20 74 68 65 20 62 6f 72 64 65 72 2e 20 41 73 r the border. As
15a0: 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 63 61 the branches ca
15b0: 6e 6e 6f 74 0a 09 20 20 20 20 23 20 62 65 20 62 nnot.. # be b
15c0: 61 63 6b 77 61 72 64 20 61 74 20 66 69 6c 65 20 ackward at file
15d0: 6c 65 76 65 6c 20 74 68 6f 73 20 62 65 66 6f 72 level thos befor
15e0: 65 20 74 68 65 20 62 6f 72 64 65 72 20 63 61 6e e the border can
15f0: 6e 6f 74 0a 09 20 20 20 20 23 20 67 65 6e 65 72 not.. # gener
1600: 61 74 65 20 61 20 62 61 63 6b 77 61 72 64 20 73 ate a backward s
1610: 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 2c ymbol changeset,
1620: 20 68 6f 77 65 76 65 72 20 74 68 65 0a 09 20 20 however the..
1630: 20 20 23 20 62 72 61 6e 63 68 65 73 20 61 66 74 # branches aft
1640: 65 72 20 6d 61 79 20 63 6f 6e 73 74 69 74 75 74 er may constitut
1650: 65 20 61 6e 6f 74 68 65 72 20 62 61 63 6b 77 61 e another backwa
1660: 72 64 20 62 72 61 6e 63 68 0a 09 20 20 20 20 23 rd branch.. #
1670: 20 77 69 74 68 20 61 20 6e 65 77 20 62 6f 72 64 with a new bord
1680: 65 72 2e 0a 0a 09 20 20 20 20 23 20 6c 69 6d 69 er.... # limi
1690: 74 73 20 3a 20 64 69 63 74 20 28 72 65 76 69 73 ts : dict (revis
16a0: 69 6f 6e 20 2d 3e 20 6c 69 73 74 20 28 6d 61 78 ion -> list (max
16b0: 20 70 72 65 64 65 63 65 73 73 6f 72 20 63 6f 6d predecessor com
16c0: 6d 69 74 2c 20 6d 69 6e 20 73 75 63 65 73 73 6f mit, min sucesso
16d0: 72 20 63 6f 6d 6d 69 74 29 29 0a 0a 09 20 20 20 r commit))...
16e0: 20 43 6f 6d 70 75 74 65 4c 69 6d 69 74 73 20 24 ComputeLimits $
16f0: 63 73 65 74 20 6c 69 6d 69 74 73 20 62 6f 72 64 cset limits bord
1700: 65 72 0a 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 er... log wri
1710: 74 65 20 35 20 62 72 65 61 6b 61 63 79 63 6c 65 te 5 breakacycle
1720: 20 22 42 72 65 61 6b 69 6e 67 20 62 61 63 6b 77 "Breaking backw
1730: 61 72 64 20 63 68 61 6e 67 65 73 65 74 20 5b 24 ard changeset [$
1740: 63 73 65 74 20 73 74 72 5d 20 75 73 69 6e 67 20 cset str] using
1750: 63 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f 6e 20 commit position
1760: 24 62 6f 72 64 65 72 20 61 73 20 62 6f 72 64 65 $border as borde
1770: 72 22 0a 0a 09 20 20 20 20 53 70 6c 69 74 49 74 r"... SplitIt
1780: 65 6d 73 20 24 6c 69 6d 69 74 73 20 24 62 6f 72 ems $limits $bor
1790: 64 65 72 20 6e 6f 72 6d 61 6c 69 74 65 6d 73 20 der normalitems
17a0: 62 61 63 6b 77 61 72 64 69 74 65 6d 73 0a 0a 09 backwarditems...
17b0: 20 20 20 20 73 65 74 20 72 65 70 6c 61 63 65 6d set replacem
17c0: 65 6e 74 73 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 ents [project::r
17d0: 65 76 20 73 70 6c 69 74 20 24 63 73 65 74 20 24 ev split $cset $
17e0: 6e 6f 72 6d 61 6c 69 74 65 6d 73 20 24 62 61 63 normalitems $bac
17f0: 6b 77 61 72 64 69 74 65 6d 73 5d 0a 09 20 20 20 kwarditems]..
1800: 20 63 79 63 6c 65 62 72 65 61 6b 65 72 20 72 65 cyclebreaker re
1810: 70 6c 61 63 65 20 24 67 72 61 70 68 20 24 63 73 place $graph $cs
1820: 65 74 20 24 72 65 70 6c 61 63 65 6d 65 6e 74 73 et $replacements
1830: 0a 0a 09 20 20 20 20 23 20 41 74 20 6c 61 73 74 ... # At last
1840: 20 77 65 20 63 68 65 63 6b 20 74 68 61 74 20 74 we check that t
1850: 68 65 20 6e 6f 72 6d 61 6c 20 66 72 61 6d 65 6e he normal framen
1860: 74 20 69 73 20 69 6e 64 65 65 64 20 6e 6f 74 0a t is indeed not.
1870: 09 20 20 20 20 23 20 62 61 63 6b 77 61 72 64 2c . # backward,
1880: 20 61 6e 64 20 69 74 65 72 61 74 65 20 6f 76 65 and iterate ove
1890: 72 20 74 68 65 20 70 6f 73 73 69 62 6c 79 20 73 r the possibly s
18a0: 74 69 6c 6c 20 62 61 63 6b 77 61 72 64 0a 09 20 till backward..
18b0: 20 20 20 23 20 73 65 63 6f 6e 64 20 66 72 61 67 # second frag
18c0: 6d 65 6e 74 2e 0a 0a 09 20 20 20 20 73 74 72 75 ment.... stru
18d0: 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 ct::list assign
18e0: 24 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 6e 6f $replacements no
18f0: 72 6d 61 6c 20 62 61 63 6b 77 61 72 64 0a 09 20 rmal backward..
1900: 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 integrity ass
1910: 65 72 74 20 7b 0a 09 09 21 5b 49 73 42 61 63 6b ert {...![IsBack
1920: 77 61 72 64 20 24 67 72 61 70 68 20 24 6e 6f 72 ward $graph $nor
1930: 6d 61 6c 5d 0a 09 20 20 20 20 7d 20 7b 54 68 65 mal].. } {The
1940: 20 6e 6f 72 6d 61 6c 20 66 72 61 67 6d 65 6e 74 normal fragment
1950: 20 69 73 20 75 6e 65 78 70 65 63 74 65 64 6c 79 is unexpectedly
1960: 20 62 61 63 6b 77 61 72 64 7d 0a 0a 09 20 20 20 backward}...
1970: 20 73 65 74 20 63 73 65 74 20 24 62 61 63 6b 77 set cset $backw
1980: 61 72 64 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 ard..}..return.
1990: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 }.. proc I
19a0: 73 42 61 63 6b 77 61 72 64 20 7b 64 67 20 63 73 sBackward {dg cs
19b0: 65 74 7d 20 7b 0a 09 23 20 41 20 62 72 61 6e 63 et} {..# A branc
19c0: 68 20 69 73 20 22 62 61 63 6b 77 61 72 64 22 20 h is "backward"
19d0: 69 66 20 69 74 20 68 61 73 20 61 74 20 6c 65 61 if it has at lea
19e0: 73 74 20 6f 6e 65 20 69 6e 63 6f 6d 69 6e 67 0a st one incoming.
19f0: 09 23 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e .# revision chan
1a00: 67 65 73 65 74 20 77 68 69 63 68 20 69 73 20 63 geset which is c
1a10: 6f 6d 6d 69 74 74 65 64 20 61 66 74 65 72 20 61 ommitted after a
1a20: 74 20 6c 65 61 73 74 20 6f 6e 65 20 6f 66 0a 09 t least one of..
1a30: 23 20 74 68 65 20 6f 75 74 67 6f 69 6e 67 20 72 # the outgoing r
1a40: 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 evision changese
1a50: 74 73 2c 20 70 65 72 20 74 68 65 20 6f 72 64 65 ts, per the orde
1a60: 72 20 63 6f 6d 70 75 74 65 64 20 62 79 0a 09 23 r computed by..#
1a70: 20 70 61 73 73 20 36 2e 0a 0a 09 23 20 52 65 70 pass 6....# Rep
1a80: 68 72 61 73 65 64 2c 20 74 68 65 20 6d 61 78 69 hrased, the maxi
1a90: 6d 61 6c 20 63 6f 6d 6d 69 74 20 70 6f 73 69 74 mal commit posit
1aa0: 69 6f 6e 20 66 6f 75 6e 64 20 61 6d 6f 6e 67 20 ion found among
1ab0: 74 68 65 0a 09 23 20 69 6e 63 6f 6d 69 6e 67 20 the..# incoming
1ac0: 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 revision changes
1ad0: 65 74 73 20 69 73 20 6c 61 72 67 65 72 20 74 68 ets is larger th
1ae0: 61 6e 20 74 68 65 20 6d 69 6e 69 6d 61 6c 0a 09 an the minimal..
1af0: 23 20 63 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f # commit positio
1b00: 6e 20 66 6f 75 6e 64 20 61 6d 6f 6e 67 20 74 68 n found among th
1b10: 65 20 6f 75 74 67 6f 69 6e 67 20 72 65 76 69 73 e outgoing revis
1b20: 69 6f 6e 0a 09 23 20 63 68 61 6e 67 65 73 65 74 ion..# changeset
1b30: 73 2e 20 41 73 73 75 6d 69 6e 67 20 74 68 61 74 s. Assuming that
1b40: 20 77 65 20 68 61 76 65 20 62 6f 74 68 20 69 6e we have both in
1b50: 63 6f 6d 69 6e 67 20 61 6e 64 20 6f 75 74 67 6f coming and outgo
1b60: 69 6e 67 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 ing..# revision
1b70: 63 68 61 6e 67 65 73 65 74 73 20 66 6f 72 20 74 changesets for t
1b80: 68 65 20 62 72 61 6e 63 68 2e 0a 0a 09 23 20 54 he branch....# T
1b90: 68 65 20 68 65 6c 70 65 72 20 22 50 6f 73 69 74 he helper "Posit
1ba0: 69 6f 6e 73 22 20 63 6f 6d 70 75 74 65 73 20 74 ions" computes t
1bb0: 68 65 20 73 65 74 20 6f 66 20 63 6f 6d 6d 69 74 he set of commit
1bc0: 20 70 6f 73 69 74 69 6f 6e 73 0a 09 23 20 66 6f positions..# fo
1bd0: 72 20 61 20 73 65 74 20 6f 66 20 63 68 61 6e 67 r a set of chang
1be0: 65 73 65 74 73 2c 20 77 68 69 63 68 20 63 61 6e esets, which can
1bf0: 20 62 65 20 61 20 6d 69 78 20 6f 66 20 72 65 76 be a mix of rev
1c00: 69 73 69 6f 6e 20 61 6e 64 0a 09 23 20 73 79 6d ision and..# sym
1c10: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 2e 0a bol changesets..
1c20: 0a 09 73 65 74 20 70 72 65 64 65 63 65 73 73 6f ..set predecesso
1c30: 72 73 20 5b 50 6f 73 69 74 69 6f 6e 73 20 5b 24 rs [Positions [$
1c40: 64 67 20 6e 6f 64 65 73 20 2d 69 6e 20 20 24 63 dg nodes -in $c
1c50: 73 65 74 5d 5d 0a 09 73 65 74 20 73 75 63 63 65 set]]..set succe
1c60: 73 73 6f 72 73 20 20 20 5b 50 6f 73 69 74 69 6f ssors [Positio
1c70: 6e 73 20 5b 24 64 67 20 6e 6f 64 65 73 20 2d 6f ns [$dg nodes -o
1c80: 75 74 20 24 63 73 65 74 5d 5d 0a 0a 09 72 65 74 ut $cset]]...ret
1c90: 75 72 6e 20 5b 65 78 70 72 20 7b 0a 09 09 20 20 urn [expr {...
1ca0: 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 70 72 [llength $pr
1cb0: 65 64 65 63 65 73 73 6f 72 73 5d 20 26 26 0a 09 edecessors] &&..
1cc0: 09 20 20 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 . [llength
1cd0: 24 73 75 63 63 65 73 73 6f 72 73 5d 20 20 20 26 $successors] &
1ce0: 26 0a 09 09 20 20 20 20 20 20 28 5b 6d 61 78 20 &... ([max
1cf0: 24 70 72 65 64 65 63 65 73 73 6f 72 73 5d 20 3e $predecessors] >
1d00: 3d 20 5b 6d 69 6e 20 24 73 75 63 63 65 73 73 6f = [min $successo
1d10: 72 73 5d 29 0a 09 09 20 20 7d 5d 0a 20 20 20 20 rs])... }].
1d20: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 50 6f 73 69 }.. proc Posi
1d30: 74 69 6f 6e 73 20 7b 63 68 61 6e 67 65 73 65 74 tions {changeset
1d40: 73 7d 20 7b 0a 09 23 20 54 6f 20 63 6f 6d 70 75 s} {..# To compu
1d50: 74 65 20 74 68 65 20 73 65 74 20 6f 66 20 63 6f te the set of co
1d60: 6d 6d 69 74 20 70 6f 73 69 74 69 6f 6e 73 20 66 mmit positions f
1d70: 72 6f 6d 20 74 68 65 20 73 65 74 20 6f 66 0a 09 rom the set of..
1d80: 23 20 63 68 61 6e 67 65 73 65 74 73 20 77 65 20 # changesets we
1d90: 66 69 72 73 74 20 6d 61 70 20 65 61 63 68 20 63 first map each c
1da0: 68 61 6e 67 65 73 65 74 20 74 6f 20 69 74 73 20 hangeset to its
1db0: 70 6f 73 69 74 69 6f 6e 20 28 2a 29 0a 09 23 20 position (*)..#
1dc0: 61 6e 64 20 74 68 65 6e 20 66 69 6c 74 65 72 20 and then filter
1dd0: 6f 75 74 20 74 68 65 20 69 6e 76 61 6c 69 64 20 out the invalid
1de0: 72 65 73 70 6f 6e 73 65 73 20 28 74 68 65 20 65 responses (the e
1df0: 6d 70 74 79 20 73 74 72 69 6e 67 29 0a 09 23 20 mpty string)..#
1e00: 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 returned by the
1e10: 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 symbol changeset
1e20: 73 2e 0a 09 23 0a 09 23 20 28 2a 29 20 54 68 69 s...#..# (*) Thi
1e30: 73 20 64 61 74 61 20 77 61 73 20 6c 6f 61 64 65 s data was loade
1e40: 64 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 65 61 d into memory ea
1e50: 72 6c 69 72 20 69 6e 20 74 68 65 20 70 61 73 73 rlir in the pass
1e60: 2c 20 62 79 0a 09 23 20 20 20 20 20 4c 6f 61 64 , by..# Load
1e70: 43 6f 6d 6d 69 74 4f 72 64 65 72 2e 0a 0a 09 72 CommitOrder....r
1e80: 65 74 75 72 6e 20 5b 73 74 72 75 63 74 3a 3a 6c eturn [struct::l
1e90: 69 73 74 20 66 69 6c 74 65 72 20 5b 73 74 72 75 ist filter [stru
1ea0: 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 24 63 68 ct::list map $ch
1eb0: 61 6e 67 65 73 65 74 73 20 5c 0a 09 09 09 09 09 angesets \......
1ec0: 20 5b 6d 79 70 72 6f 63 20 54 6f 50 6f 73 69 74 [myproc ToPosit
1ed0: 69 6f 6e 5d 5d 20 5c 0a 09 09 20 20 20 20 5b 6d ion]] \... [m
1ee0: 79 70 72 6f 63 20 56 61 6c 69 64 50 6f 73 69 74 yproc ValidPosit
1ef0: 69 6f 6e 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 ion]]. }..
1f00: 20 70 72 6f 63 20 54 6f 50 6f 73 69 74 69 6f 6e proc ToPosition
1f10: 20 20 20 20 7b 63 73 65 74 7d 20 7b 20 24 63 73 {cset} { $cs
1f20: 65 74 20 70 6f 73 20 7d 0a 20 20 20 20 70 72 6f et pos }. pro
1f30: 63 20 56 61 6c 69 64 50 6f 73 69 74 69 6f 6e 20 c ValidPosition
1f40: 7b 70 6f 73 7d 20 20 7b 20 65 78 70 72 20 7b 24 {pos} { expr {$
1f50: 70 6f 73 20 6e 65 20 22 22 7d 20 7d 0a 0a 20 20 pos ne ""} }..
1f60: 20 20 70 72 6f 63 20 43 6f 6d 70 75 74 65 4c 69 proc ComputeLi
1f70: 6d 69 74 73 20 7b 63 73 65 74 20 6c 76 20 62 76 mits {cset lv bv
1f80: 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 6c 76 } {..upvar 1 $lv
1f90: 20 74 68 65 6c 69 6d 69 74 73 20 24 62 76 20 62 thelimits $bv b
1fa0: 6f 72 64 65 72 0a 0a 09 23 20 49 6e 64 69 76 69 order...# Indivi
1fb0: 64 75 61 6c 20 62 72 61 6e 63 68 65 73 20 6d 61 dual branches ma
1fc0: 79 20 6e 6f 74 20 68 61 76 65 20 72 65 76 69 73 y not have revis
1fd0: 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 20 77 ion changesets w
1fe0: 68 69 63 68 0a 09 23 20 61 72 65 20 74 68 65 69 hich..# are thei
1ff0: 72 20 70 72 65 64 65 63 65 73 73 6f 72 73 20 61 r predecessors a
2000: 6e 64 2f 6f 72 20 73 75 63 63 65 73 73 6f 72 73 nd/or successors
2010: 2c 20 6c 65 61 76 69 6e 67 20 74 68 65 20 6c 69 , leaving the li
2020: 6d 69 74 73 0a 09 23 20 70 61 72 74 69 61 6c 6c mits..# partiall
2030: 79 20 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 y or completely
2040: 75 6e 64 65 66 69 6e 65 64 2e 20 54 6f 20 6f 76 undefined. To ov
2050: 65 72 63 6f 6d 65 20 74 68 69 73 0a 09 23 20 69 ercome this..# i
2060: 6e 69 74 69 61 6c 69 7a 65 20 62 6f 75 6e 64 61 nitialize bounda
2070: 72 69 65 73 20 66 6f 72 20 61 6c 6c 20 69 74 65 ries for all ite
2080: 6d 73 20 77 69 74 68 20 70 72 6f 70 65 72 20 64 ms with proper d
2090: 65 66 61 75 6c 74 73 20 28 2d 31 0a 09 23 20 66 efaults (-1..# f
20a0: 6f 72 20 6d 61 78 2c 20 7b 7d 20 66 6f 72 20 6d or max, {} for m
20b0: 69 6e 2c 20 72 65 70 72 65 73 65 6e 74 69 6e 67 in, representing
20c0: 20 2b 69 6e 66 69 6e 69 74 79 29 2e 0a 0a 09 61 +infinity)....a
20d0: 72 72 61 79 20 73 65 74 20 6d 61 78 70 61 20 7b rray set maxpa {
20e0: 7d 0a 09 61 72 72 61 79 20 73 65 74 20 6d 69 6e }..array set min
20f0: 73 61 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 69 sa {}..foreach i
2100: 74 65 6d 20 5b 24 63 73 65 74 20 69 74 65 6d 73 tem [$cset items
2110: 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 6d 61 78 ] {.. set max
2120: 70 61 28 24 69 74 65 6d 29 20 2d 31 0a 09 20 20 pa($item) -1..
2130: 20 20 73 65 74 20 6d 69 6e 73 61 28 24 69 74 65 set minsa($ite
2140: 6d 29 20 7b 7d 0a 09 7d 0a 0a 09 23 20 47 65 74 m) {}..}...# Get
2150: 20 74 68 65 20 6c 69 6d 69 74 73 20 66 72 6f 6d the limits from
2160: 20 74 68 65 20 64 61 74 61 62 61 73 65 2c 20 66 the database, f
2170: 6f 72 20 74 68 65 20 69 74 65 6d 73 20 77 68 69 or the items whi
2180: 63 68 0a 09 23 20 61 63 74 75 61 6c 6c 79 20 68 ch..# actually h
2190: 61 76 65 20 73 75 63 68 2c 20 61 6e 64 20 6d 65 ave such, and me
21a0: 72 67 65 20 74 68 65 20 69 6e 66 6f 72 6d 61 74 rge the informat
21b0: 69 6f 6e 20 77 69 74 68 20 74 68 65 0a 09 23 20 ion with the..#
21c0: 64 65 66 61 75 6c 74 73 2e 0a 0a 09 73 74 72 75 defaults....stru
21d0: 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 ct::list assign
21e0: 5b 24 63 73 65 74 20 6c 69 6d 69 74 73 5d 20 6d [$cset limits] m
21f0: 61 78 70 64 69 63 74 20 6d 69 6e 73 64 69 63 74 axpdict minsdict
2200: 0a 0a 09 61 72 72 61 79 20 73 65 74 20 6d 61 78 ...array set max
2210: 70 61 20 24 6d 61 78 70 64 69 63 74 0a 09 61 72 pa $maxpdict..ar
2220: 72 61 79 20 73 65 74 20 6d 69 6e 73 61 20 24 6d ray set minsa $m
2230: 69 6e 73 64 69 63 74 0a 0a 09 23 20 43 68 65 63 insdict...# Chec
2240: 6b 20 74 68 61 74 20 74 68 65 20 6f 72 64 65 72 k that the order
2250: 69 6e 67 20 61 74 20 74 68 65 20 66 69 6c 65 20 ing at the file
2260: 6c 65 76 65 6c 20 69 73 20 63 6f 72 72 65 63 74 level is correct
2270: 2e 20 57 65 0a 09 23 20 63 61 6e 6e 6f 74 20 68 . We..# cannot h
2280: 61 76 65 20 62 61 63 6b 77 61 72 64 20 6f 72 64 ave backward ord
2290: 65 72 69 6e 67 20 70 65 72 20 62 72 61 6e 63 68 ering per branch
22a0: 2c 20 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 69 , or something i
22b0: 73 0a 09 23 20 77 72 6f 6e 67 2e 0a 0a 09 66 6f s..# wrong....fo
22c0: 72 65 61 63 68 20 69 74 65 6d 20 5b 61 72 72 61 reach item [arra
22d0: 79 20 6e 61 6d 65 73 20 6c 69 6d 69 74 73 5d 20 y names limits]
22e0: 7b 0a 09 20 20 20 20 73 65 74 20 6d 69 6e 73 20 {.. set mins
22f0: 24 6d 69 6e 73 61 28 24 69 74 65 6d 29 0a 09 20 $minsa($item)..
2300: 20 20 20 73 65 74 20 6d 61 78 70 20 24 6d 61 78 set maxp $max
2310: 70 28 24 69 74 65 6d 29 0a 09 20 20 20 20 23 20 p($item).. #
2320: 4e 6f 74 65 20 74 68 61 74 20 66 6f 72 20 74 68 Note that for th
2330: 65 20 6d 69 6e 20 73 75 63 63 65 73 73 6f 72 20 e min successor
2340: 70 6f 73 69 74 69 6f 6e 20 22 22 20 72 65 70 72 position "" repr
2350: 65 73 65 6e 74 73 0a 09 20 20 20 20 23 20 2b 69 esents.. # +i
2360: 6e 66 69 6e 69 74 79 0a 09 20 20 20 20 69 6e 74 nfinity.. int
2370: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a egrity assert {.
2380: 09 09 28 24 6d 69 6e 73 20 65 71 20 22 22 29 20 ..($mins eq "")
2390: 7c 7c 20 28 24 6d 61 78 70 20 3c 20 24 6d 69 6e || ($maxp < $min
23a0: 73 29 20 0a 09 20 20 20 20 7d 20 7b 49 74 65 6d s) .. } {Item
23b0: 20 3c 24 69 74 65 6d 3e 20 69 73 20 62 61 63 6b <$item> is back
23c0: 77 61 72 64 20 61 74 20 66 69 6c 65 20 6c 65 76 ward at file lev
23d0: 65 6c 20 28 24 6d 61 78 70 20 3e 3d 20 24 6d 69 el ($maxp >= $mi
23e0: 6e 73 29 7d 0a 09 7d 0a 0a 09 23 20 53 61 76 65 ns)}..}...# Save
23f0: 20 74 68 65 20 6c 69 6d 69 74 73 20 66 6f 72 20 the limits for
2400: 74 68 65 20 73 70 6c 69 74 74 65 72 2c 20 61 6e the splitter, an
2410: 64 20 63 6f 6d 70 75 74 65 20 74 68 65 20 62 6f d compute the bo
2420: 72 64 65 72 20 61 74 0a 09 23 20 77 68 69 63 68 rder at..# which
2430: 20 74 6f 20 73 70 6c 69 74 20 61 73 20 74 68 65 to split as the
2440: 20 6d 69 6e 69 6d 75 6d 20 6f 66 20 61 6c 6c 20 minimum of all
2450: 6d 69 6e 69 6d 61 6c 20 73 75 63 63 65 73 73 6f minimal successo
2460: 72 0a 09 23 20 70 6f 73 69 74 69 6f 6e 73 2e 0a r..# positions..
2470: 0a 09 23 20 43 6f 6d 70 75 74 65 20 74 68 65 20 ..# Compute the
2480: 62 6f 72 64 65 72 20 61 74 20 77 68 69 63 68 20 border at which
2490: 74 6f 20 73 70 6c 69 74 20 61 73 20 74 68 65 20 to split as the
24a0: 6d 69 6e 69 6d 75 6d 20 6f 66 20 61 6c 6c 0a 09 minimum of all..
24b0: 23 20 6d 69 6e 69 6d 61 6c 20 73 75 63 63 65 73 # minimal succes
24c0: 73 6f 72 20 70 6f 73 69 74 69 6f 6e 73 2e 20 42 sor positions. B
24d0: 79 20 75 73 69 6e 67 20 74 68 65 20 64 61 74 61 y using the data
24e0: 62 61 73 65 20 69 6e 66 6f 20 77 65 0a 09 23 20 base info we..#
24f0: 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2f 69 6d automatically/im
2500: 70 6c 69 63 69 74 6c 79 20 66 69 6c 74 65 72 20 plicitly filter
2510: 6f 75 74 20 61 6e 79 74 68 69 6e 67 20 77 69 74 out anything wit
2520: 68 6f 75 74 20 61 20 6d 69 6e 0a 09 23 20 73 75 hout a min..# su
2530: 63 63 65 73 73 6f 72 2e 20 46 75 72 74 68 65 72 ccessor. Further
2540: 20 74 68 65 20 64 61 74 61 20 67 6f 69 6e 67 20 the data going
2550: 69 6e 74 6f 20 74 68 65 20 63 6f 6d 70 61 72 69 into the compari
2560: 73 6f 6e 20 77 69 74 68 0a 09 23 20 74 68 65 20 son with..# the
2570: 62 6f 72 64 65 72 20 69 73 20 70 75 74 20 74 6f border is put to
2580: 67 65 74 68 65 72 2e 0a 0a 09 73 65 74 20 62 6f gether....set bo
2590: 72 64 65 72 20 20 20 20 5b 6d 69 6e 20 5b 56 61 rder [min [Va
25a0: 6c 75 65 73 20 24 6d 69 6e 73 64 69 63 74 5d 5d lues $minsdict]]
25b0: 0a 09 73 65 74 20 74 68 65 6c 69 6d 69 74 73 20 ..set thelimits
25c0: 5b 61 72 72 61 79 20 67 65 74 20 6d 61 78 70 61 [array get maxpa
25d0: 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ]..return. }.
25e0: 0a 20 20 20 20 70 72 6f 63 20 56 61 6c 75 65 73 . proc Values
25f0: 20 7b 64 69 63 74 7d 20 7b 0a 09 73 65 74 20 72 {dict} {..set r
2600: 65 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 7b es {}..foreach {
2610: 6b 20 76 7d 20 24 64 69 63 74 20 7b 20 6c 61 70 k v} $dict { lap
2620: 70 65 6e 64 20 72 65 73 20 24 76 20 7d 0a 09 72 pend res $v }..r
2630: 65 74 75 72 6e 20 24 72 65 73 0a 20 20 20 20 7d eturn $res. }
2640: 0a 0a 20 20 20 20 70 72 6f 63 20 53 70 6c 69 74 .. proc Split
2650: 49 74 65 6d 73 20 7b 6c 69 6d 69 74 73 20 62 6f Items {limits bo
2660: 72 64 65 72 20 6e 76 20 62 76 7d 20 7b 0a 09 75 rder nv bv} {..u
2670: 70 76 61 72 20 31 20 24 6e 76 20 6e 6f 72 6d 61 pvar 1 $nv norma
2680: 6c 69 74 65 6d 73 20 24 62 76 20 62 61 63 6b 77 litems $bv backw
2690: 61 72 64 69 74 65 6d 73 0a 0a 09 73 65 74 20 6e arditems...set n
26a0: 6f 72 6d 61 6c 69 74 65 6d 73 20 20 20 7b 7d 0a ormalitems {}.
26b0: 09 73 65 74 20 62 61 63 6b 77 61 72 64 69 74 65 .set backwardite
26c0: 6d 73 20 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 ms {}...foreach
26d0: 7b 69 74 65 6d 20 6d 61 78 70 7d 20 24 6c 69 6d {item maxp} $lim
26e0: 69 74 73 20 7b 0a 09 20 20 20 20 69 66 20 7b 24 its {.. if {$
26f0: 6d 61 78 70 20 3e 3d 20 24 62 6f 72 64 65 72 7d maxp >= $border}
2700: 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 62 61 63 {...lappend bac
2710: 6b 77 61 72 64 69 74 65 6d 73 20 24 69 74 65 6d kwarditems $item
2720: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
2730: 09 6c 61 70 70 65 6e 64 20 6e 6f 72 6d 61 6c 69 .lappend normali
2740: 74 65 6d 73 20 20 20 24 69 74 65 6d 0a 09 20 20 tems $item..
2750: 20 20 7d 0a 09 7d 0a 0a 09 69 6e 74 65 67 72 69 }..}...integri
2760: 74 79 20 61 73 73 65 72 74 20 7b 5b 6c 6c 65 6e ty assert {[llen
2770: 67 74 68 20 24 6e 6f 72 6d 61 6c 69 74 65 6d 73 gth $normalitems
2780: 5d 7d 20 20 20 7b 53 65 74 20 6f 66 20 6e 6f 72 ]} {Set of nor
2790: 6d 61 6c 20 69 74 65 6d 73 20 69 73 20 65 6d 70 mal items is emp
27a0: 74 79 7d 0a 09 69 6e 74 65 67 72 69 74 79 20 61 ty}..integrity a
27b0: 73 73 65 72 74 20 7b 5b 6c 6c 65 6e 67 74 68 20 ssert {[llength
27c0: 24 62 61 63 6b 77 61 72 64 69 74 65 6d 73 5d 7d $backwarditems]}
27d0: 20 7b 53 65 74 20 6f 66 20 62 61 63 6b 77 61 72 {Set of backwar
27e0: 64 20 69 74 65 6d 73 20 69 73 20 65 6d 70 74 79 d items is empty
27f0: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
2800: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
2810: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
2820: 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 ############..
2830: 20 20 70 72 6f 63 20 4b 65 65 70 4f 72 64 65 72 proc KeepOrder
2840: 20 7b 67 72 61 70 68 20 61 74 20 63 73 65 74 7d {graph at cset}
2850: 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d {..::variable m
2860: 79 61 74 66 6d 74 0a 09 3a 3a 76 61 72 69 61 62 yatfmt..::variab
2870: 6c 65 20 6d 79 63 73 66 6d 74 0a 0a 09 73 65 74 le mycsfmt...set
2880: 20 63 69 64 20 5b 24 63 73 65 74 20 69 64 5d 0a cid [$cset id].
2890: 0a 09 6c 6f 67 20 77 72 69 74 65 20 38 20 62 72 ..log write 8 br
28a0: 65 61 6b 61 63 79 63 6c 65 20 22 43 68 61 6e 67 eakacycle "Chang
28b0: 65 73 65 74 20 40 20 5b 66 6f 72 6d 61 74 20 24 eset @ [format $
28c0: 6d 79 61 74 66 6d 74 20 24 61 74 5d 3a 20 5b 66 myatfmt $at]: [f
28d0: 6f 72 6d 61 74 20 24 6d 79 63 73 66 6d 74 20 5b ormat $mycsfmt [
28e0: 24 63 73 65 74 20 73 74 72 5d 5d 20 3c 3c 5b 46 $cset str]] <<[F
28f0: 6f 72 6d 61 74 54 52 20 24 67 72 61 70 68 20 24 ormatTR $graph $
2900: 63 73 65 74 5d 3e 3e 22 0a 0a 09 23 20 57 65 20 cset]>>"...# We
2910: 73 65 65 20 68 65 72 65 20 61 20 6d 69 78 74 75 see here a mixtu
2920: 72 65 20 6f 66 20 73 79 6d 62 6f 6c 20 61 6e 64 re of symbol and
2930: 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 revision change
2940: 73 65 74 73 2e 0a 09 23 20 54 68 65 20 73 79 6d sets...# The sym
2950: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 20 61 bol changesets a
2960: 72 65 20 69 67 6e 6f 72 65 64 20 61 73 20 69 72 re ignored as ir
2970: 72 65 6c 65 76 61 6e 74 2e 0a 0a 09 69 66 20 7b relevant....if {
2980: 5b 24 63 73 65 74 20 70 6f 73 5d 20 65 71 20 22 [$cset pos] eq "
2990: 22 7d 20 72 65 74 75 72 6e 0a 0a 09 23 20 46 6f "} return...# Fo
29a0: 72 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 63 r the revision c
29b0: 68 61 6e 67 65 73 65 74 73 20 77 65 20 61 72 65 hangesets we are
29c0: 20 73 75 72 65 20 74 68 61 74 20 74 68 65 79 20 sure that they
29d0: 61 72 65 0a 09 23 20 63 6f 6e 73 75 6d 65 64 20 are..# consumed
29e0: 69 6e 20 74 68 65 20 73 61 6d 65 20 6f 72 64 65 in the same orde
29f0: 72 20 61 73 20 67 65 6e 65 72 61 74 65 64 20 62 r as generated b
2a00: 79 20 70 61 73 73 20 37 0a 09 23 20 28 52 65 76 y pass 7..# (Rev
2a10: 54 6f 70 6f 6c 6f 67 69 63 61 6c 53 6f 72 74 29 TopologicalSort)
2a20: 2e 20 50 65 72 20 74 68 65 20 63 6f 64 65 20 69 . Per the code i
2a30: 6e 20 63 76 73 32 73 76 6e 2e 0a 0a 09 23 20 54 n cvs2svn....# T
2a40: 68 69 73 20 77 6f 72 6b 73 20 69 66 20 61 6e 64 his works if and
2a50: 20 6f 6e 6c 79 20 69 66 20 6e 6f 6e 65 20 6f 66 only if none of
2a60: 20 74 68 65 20 73 79 6d 62 6f 6c 20 63 68 61 6e the symbol chan
2a70: 67 65 73 65 74 73 20 61 72 65 0a 09 23 20 22 62 gesets are..# "b
2a80: 61 63 6b 77 61 72 64 73 22 2c 20 68 65 6e 63 65 ackwards", hence
2a90: 20 6f 75 72 20 62 72 65 61 6b 69 6e 67 20 6f 66 our breaking of
2aa0: 20 74 68 65 20 62 61 63 6b 77 61 72 64 20 63 68 the backward ch
2ab0: 61 6e 67 65 73 65 74 73 0a 09 23 20 66 69 72 73 angesets..# firs
2ac0: 74 2c 20 69 6e 20 74 68 65 20 70 72 65 2d 68 6f t, in the pre-ho
2ad0: 6f 6b 2e 0a 0a 09 23 20 4e 6f 74 65 20 74 68 61 ok....# Note tha
2ae0: 74 20 74 61 68 20 63 68 61 6e 67 65 73 65 74 73 t tah changesets
2af0: 20 63 61 6e 6e 6f 74 20 62 65 20 62 61 63 6b 77 cannot be backw
2b00: 61 72 64 20 61 73 20 74 68 65 79 20 64 6f 6e 27 ard as they don'
2b10: 74 0a 09 23 20 68 61 76 65 20 73 75 63 63 65 73 t..# have succes
2b20: 73 6f 72 73 20 61 74 20 61 6c 6c 2e 0a 0a 09 23 sors at all....#
2b30: 20 41 6e 20 69 6e 74 65 72 65 73 74 69 6e 67 20 An interesting
2b40: 74 68 69 6e 67 20 49 4d 48 4f 2c 20 69 73 20 74 thing IMHO, is t
2b50: 68 61 74 20 61 66 74 65 72 20 62 72 65 61 6b 69 hat after breaki
2b60: 6e 67 20 74 68 65 0a 09 23 20 62 61 63 6b 77 61 ng the..# backwa
2b70: 72 64 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 rd symbol change
2b80: 73 65 74 73 20 77 65 20 73 68 6f 75 6c 64 20 6e sets we should n
2b90: 6f 74 20 68 61 76 65 20 61 6e 79 20 63 69 72 63 ot have any circ
2ba0: 6c 65 73 0a 09 23 20 61 6e 79 20 6c 6f 6e 67 65 les..# any longe
2bb0: 72 2e 20 45 61 63 68 20 63 69 72 63 6c 65 20 77 r. Each circle w
2bc0: 68 69 63 68 20 77 6f 75 6c 64 20 73 74 69 6c 6c hich would still
2bd0: 20 62 65 20 70 72 65 73 65 6e 74 20 68 61 73 20 be present has
2be0: 74 6f 0a 09 23 20 69 6e 76 6f 6c 76 65 20 61 20 to..# involve a
2bf0: 62 61 63 6b 77 61 72 64 20 73 79 6d 62 6f 6c 2c backward symbol,
2c00: 20 61 6e 64 20 77 65 20 73 70 6c 69 74 20 74 68 and we split th
2c10: 65 6d 20 61 6c 6c 2c 20 73 6f 20 74 68 65 72 65 em all, so there
2c20: 0a 09 23 20 63 61 6e 27 74 20 62 65 20 61 20 63 ..# can't be a c
2c30: 69 72 63 6c 65 2e 2e 0a 0a 09 23 20 50 72 6f 6f ircle.....# Proo
2c40: 66 3a 0a 09 23 20 4c 65 74 20 75 73 20 61 73 73 f:..# Let us ass
2c50: 75 6d 65 20 77 65 20 74 68 61 74 20 68 61 76 65 ume we that have
2c60: 20 61 20 63 69 72 63 6c 65 0a 09 23 20 09 43 3a a circle..# .C:
2c70: 20 52 31 20 2d 3e 20 2e 2e 2e 20 2d 3e 20 52 78 R1 -> ... -> Rx
2c80: 20 2d 3e 20 53 20 2d 3e 20 52 79 20 2d 3e 20 2e -> S -> Ry -> .
2c90: 2e 2e 20 2d 3e 20 52 6e 20 2d 3e 20 52 31 0a 09 .. -> Rn -> R1..
2ca0: 23 20 4c 65 74 20 75 73 20 66 75 72 74 68 65 72 # Let us further
2cb0: 20 61 73 73 75 6d 65 20 74 68 61 74 20 74 68 65 assume that the
2cc0: 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 symbol changese
2cd0: 74 20 53 20 69 6e 20 74 68 61 74 0a 09 23 20 63 t S in that..# c
2ce0: 69 72 63 6c 65 20 69 73 20 6e 6f 74 20 62 61 63 ircle is not bac
2cf0: 6b 77 61 72 64 2e 20 54 68 61 74 20 6d 65 61 6e kward. That mean
2d00: 73 20 4f 52 44 28 52 78 29 20 3c 20 4f 52 44 28 s ORD(Rx) < ORD(
2d10: 52 79 29 2e 20 20 54 68 65 0a 09 23 20 65 61 72 Ry). The..# ear
2d20: 6c 69 65 72 20 74 6f 70 6f 6c 6f 67 69 63 61 6c lier topological
2d30: 20 73 6f 72 74 69 6e 67 20 77 69 74 68 6f 75 74 sorting without
2d40: 20 73 79 6d 62 6f 6c 73 20 6e 6f 77 20 66 6f 72 symbols now for
2d50: 63 65 73 20 74 68 69 73 0a 09 23 20 72 65 6c 61 ces this..# rela
2d60: 74 69 6f 6e 73 68 69 70 20 74 68 72 6f 75 67 68 tionship through
2d70: 20 74 6f 20 62 65 20 4f 52 44 28 52 78 29 20 3c to be ORD(Rx) <
2d80: 20 4f 52 44 28 52 31 29 20 3c 20 4f 52 44 28 52 ORD(R1) < ORD(R
2d90: 78 29 2e 20 20 57 65 0a 09 23 20 68 61 76 65 20 x). We..# have
2da0: 72 65 61 63 68 65 64 20 61 6e 20 69 6d 70 6f 73 reached an impos
2db0: 73 69 62 69 6c 69 74 79 2c 20 61 20 70 61 72 61 sibility, a para
2dc0: 64 6f 78 2e 20 4f 75 72 20 69 6e 69 74 69 61 6c dox. Our initial
2dd0: 0a 09 23 20 61 73 73 75 6d 70 74 69 6f 6e 20 6f ..# assumption o
2de0: 66 20 53 20 6e 6f 74 20 62 65 69 6e 67 20 62 61 f S not being ba
2df0: 63 6b 77 61 72 64 20 63 61 6e 6e 6f 74 20 68 6f ckward cannot ho
2e00: 6c 64 2e 0a 09 23 0a 09 23 20 41 6c 74 65 72 6e ld...#..# Altern
2e10: 61 74 65 2c 20 64 69 72 65 63 74 2c 20 72 65 61 ate, direct, rea
2e20: 73 6f 6e 69 6e 67 3a 20 57 69 74 68 6f 75 74 20 soning: Without
2e30: 53 20 74 68 65 20 63 68 61 69 6e 20 6f 66 0a 09 S the chain of..
2e40: 23 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 69 # dependencies i
2e50: 73 20 52 79 20 2d 3e 20 2e 2e 20 2d 3e 20 52 31 s Ry -> .. -> R1
2e60: 20 2d 3e 20 2e 2e 20 2d 3e 20 52 78 2c 20 74 68 -> .. -> Rx, th
2e70: 65 72 65 66 6f 72 65 0a 09 23 20 4f 52 44 28 52 erefore..# ORD(R
2e80: 79 29 20 3c 20 4f 52 44 28 52 78 29 20 68 6f 6c y) < ORD(Rx) hol
2e90: 64 73 2c 20 61 6e 64 20 74 68 69 73 20 6d 65 61 ds, and this mea
2ea0: 6e 73 20 53 20 69 73 20 62 61 63 6b 77 61 72 64 ns S is backward
2eb0: 2e 0a 0a 09 73 74 72 75 63 74 3a 3a 73 65 74 20 ....struct::set
2ec0: 65 78 63 6c 75 64 65 20 6d 79 72 65 76 69 73 69 exclude myrevisi
2ed0: 6f 6e 63 68 61 6e 67 65 73 65 74 73 20 24 63 73 onchangesets $cs
2ee0: 65 74 0a 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 et...::variable
2ef0: 6d 79 6c 61 73 74 70 6f 73 0a 09 73 65 74 20 6e mylastpos..set n
2f00: 65 77 20 5b 24 63 73 65 74 20 70 6f 73 5d 0a 0a ew [$cset pos]..
2f10: 09 69 66 20 7b 24 6e 65 77 20 21 3d 20 28 24 6d .if {$new != ($m
2f20: 79 6c 61 73 74 70 6f 73 20 2b 20 31 29 7d 20 7b ylastpos + 1)} {
2f30: 0a 09 20 20 20 20 69 66 20 7b 24 6d 79 6c 61 73 .. if {$mylas
2f40: 74 70 6f 73 20 3c 20 30 7d 20 7b 0a 09 09 73 65 tpos < 0} {...se
2f50: 74 20 6f 6c 64 20 22 3c 4e 4f 4e 45 3e 22 0a 09 t old "<NONE>"..
2f60: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 3a } else {...:
2f70: 3a 76 61 72 69 61 62 6c 65 20 6d 79 63 73 65 74 :variable mycset
2f80: 0a 09 09 73 65 74 20 6f 6c 64 20 5b 24 6d 79 63 ...set old [$myc
2f90: 73 65 74 28 24 6d 79 6c 61 73 74 70 6f 73 29 20 set($mylastpos)
2fa0: 73 74 72 5d 40 24 6d 79 6c 61 73 74 70 6f 73 0a str]@$mylastpos.
2fb0: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 69 6e . }... #in
2fc0: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 30 tegrity assert 0
2fd0: 20 7b 4f 72 64 65 72 69 6e 67 20 6f 66 20 72 65 {Ordering of re
2fe0: 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 vision changeset
2ff0: 73 20 76 69 6f 6c 61 74 65 64 2c 20 5b 24 63 73 s violated, [$cs
3000: 65 74 20 73 74 72 5d 40 24 6e 65 77 20 69 73 20 et str]@$new is
3010: 6e 6f 74 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 not immediately
3020: 61 66 74 65 72 20 24 6f 6c 64 7d 0a 09 20 20 20 after $old}..
3030: 20 6c 6f 67 20 77 72 69 74 65 20 32 20 62 72 65 log write 2 bre
3040: 61 6b 61 63 79 63 6c 65 20 7b 4f 72 64 65 72 69 akacycle {Orderi
3050: 6e 67 20 6f 66 20 72 65 76 69 73 69 6f 6e 20 63 ng of revision c
3060: 68 61 6e 67 65 73 65 74 73 20 76 69 6f 6c 61 74 hangesets violat
3070: 65 64 2c 20 5b 24 63 73 65 74 20 73 74 72 5d 40 ed, [$cset str]@
3080: 24 6e 65 77 20 69 73 20 6e 6f 74 20 69 6d 6d 65 $new is not imme
3090: 64 69 61 74 65 6c 79 20 61 66 74 65 72 20 24 6f diately after $o
30a0: 6c 64 7d 0a 09 7d 0a 0a 09 73 65 74 20 6d 79 6c ld}..}...set myl
30b0: 61 73 74 70 6f 73 20 24 6e 65 77 0a 09 72 65 74 astpos $new..ret
30c0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 urn. }.. p
30d0: 72 6f 63 20 46 6f 72 6d 61 74 54 52 20 7b 67 72 roc FormatTR {gr
30e0: 61 70 68 20 63 73 65 74 7d 20 7b 0a 09 72 65 74 aph cset} {..ret
30f0: 75 72 6e 20 5b 6a 6f 69 6e 20 5b 73 74 72 75 63 urn [join [struc
3100: 74 3a 3a 6c 69 73 74 20 6d 61 70 20 5b 24 67 72 t::list map [$gr
3110: 61 70 68 20 6e 6f 64 65 20 73 65 74 20 24 63 73 aph node set $cs
3120: 65 74 20 74 69 6d 65 72 61 6e 67 65 5d 20 7b 63 et timerange] {c
3130: 6c 6f 63 6b 20 66 6f 72 6d 61 74 7d 5d 20 7b 20 lock format}] {
3140: 2d 2d 20 7d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 -- }]. }..
3150: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
3160: 6c 61 73 74 70 6f 73 20 20 20 20 20 20 20 20 20 lastpos
3170: 20 20 20 2d 31 20 3b 20 23 20 50 6f 73 69 74 69 -1 ; # Positi
3180: 6f 6e 20 6f 66 20 6c 61 73 74 20 72 65 76 69 73 on of last revis
3190: 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 20 73 61 ion changeset sa
31a0: 76 65 64 2e 0a 20 20 20 20 74 79 70 65 76 61 72 ved.. typevar
31b0: 69 61 62 6c 65 20 6d 79 72 65 76 69 73 69 6f 6e iable myrevision
31c0: 63 68 61 6e 67 65 73 65 74 73 20 7b 7d 20 3b 20 changesets {} ;
31d0: 23 20 53 65 74 20 6f 66 20 72 65 76 69 73 69 6f # Set of revisio
31e0: 6e 20 63 68 61 6e 67 65 73 65 74 73 0a 0a 20 20 n changesets..
31f0: 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d typevariable m
3200: 79 61 74 66 6d 74 20 3b 20 23 20 46 6f 72 6d 61 yatfmt ; # Forma
3210: 74 20 66 6f 72 20 6c 6f 67 20 6f 75 74 70 75 74 t for log output
3220: 20 74 6f 20 67 61 69 6e 20 62 65 74 74 65 72 20 to gain better
3230: 61 6c 69 67 6e 6d 65 6e 74 20 6f 66 20 74 68 65 alignment of the
3240: 20 76 61 72 69 6f 75 73 20 63 6f 6c 75 6d 6e 73 various columns
3250: 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 .. typevariab
3260: 6c 65 20 6d 79 63 73 66 6d 74 20 3b 20 23 20 44 le mycsfmt ; # D
3270: 69 74 74 6f 20 66 6f 72 20 74 68 65 20 63 68 61 itto for the cha
3280: 6e 67 65 73 65 74 73 2e 0a 0a 20 20 20 20 23 20 ngesets... #
3290: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
32a0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
32b0: 23 23 23 23 23 0a 0a 20 20 20 20 74 79 70 65 76 #####.. typev
32c0: 61 72 69 61 62 6c 65 20 6d 79 63 73 65 74 20 2d ariable mycset -
32d0: 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 array {} ; # Map
32e0: 20 66 72 6f 6d 20 63 6f 6d 6d 69 74 20 70 6f 73 from commit pos
32f0: 69 74 69 6f 6e 73 20 74 6f 20 74 68 65 0a 09 09 itions to the...
3300: 09 09 20 20 20 20 23 20 63 68 61 6e 67 65 73 65 .. # changese
3310: 74 20 28 6f 62 6a 65 63 74 20 72 65 66 29 20 61 t (object ref) a
3320: 74 20 74 68 61 74 0a 09 09 09 09 20 20 20 20 23 t that..... #
3330: 20 70 6f 73 69 74 69 6f 6e 2e 0a 0a 20 20 20 20 position...
3340: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
3350: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
3360: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 #######. ## C
3370: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 onfiguration..
3380: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 73 pragma -hasins
3390: 74 61 6e 63 65 73 20 20 20 6e 6f 20 3b 20 23 20 tances no ; #
33a0: 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 20 20 70 72 singleton. pr
33b0: 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 agma -hastypeinf
33c0: 6f 20 20 20 20 6e 6f 20 3b 20 23 20 6e 6f 20 69 o no ; # no i
33d0: 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 ntrospection.
33e0: 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 pragma -hastype
33f0: 64 65 73 74 72 6f 79 20 6e 6f 20 3b 20 23 20 69 destroy no ; # i
3400: 6d 6d 6f 72 74 61 6c 0a 0a 20 20 20 20 23 20 23 mmortal.. # #
3410: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
3420: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
3430: 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 ####.}..namespac
3440: 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 e eval ::vc::fos
3450: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
3460: 3a 3a 70 61 73 73 20 7b 0a 20 20 20 20 6e 61 6d ::pass {. nam
3470: 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 62 72 espace export br
3480: 65 61 6b 61 63 79 63 6c 65 0a 20 20 20 20 6e 61 eakacycle. na
3490: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 62 72 65 mespace eval bre
34a0: 61 6b 61 63 79 63 6c 65 20 7b 0a 09 6e 61 6d 65 akacycle {..name
34b0: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
34c0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
34d0: 74 3a 3a 63 76 73 3a 3a 63 79 63 6c 65 62 72 65 t::cvs::cyclebre
34e0: 61 6b 65 72 0a 09 6e 61 6d 65 73 70 61 63 65 20 aker..namespace
34f0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
3500: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
3510: 3a 3a 72 65 70 6f 73 69 74 6f 72 79 0a 09 6e 61 ::repository..na
3520: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
3530: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
3540: 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 0a ort::cvs::state.
3550: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
3560: 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a t ::vc::fossil::
3570: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 import::cvs::int
3580: 65 67 72 69 74 79 0a 09 6e 61 6d 65 73 70 61 63 egrity..namespac
3590: 65 20 65 76 61 6c 20 70 72 6f 6a 65 63 74 20 7b e eval project {
35a0: 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 .. namespace
35b0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
35c0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
35d0: 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 0a 09 ::project::rev..
35e0: 7d 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 }..namespace imp
35f0: 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a ort ::vc::tools:
3600: 3a 6d 69 73 63 3a 3a 2a 0a 09 6e 61 6d 65 73 70 :misc::*..namesp
3610: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
3620: 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 0a :tools::trouble.
3630: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
3640: 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c t ::vc::tools::l
3650: 6f 67 0a 09 6c 6f 67 20 72 65 67 69 73 74 65 72 og..log register
3660: 20 62 72 65 61 6b 61 63 79 63 6c 65 0a 20 20 20 breakacycle.
3670: 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 }.}..# # ## ###
3680: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
3690: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 ############# ##
36a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
36b0: 23 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 61 ###.## Ready..pa
36c0: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 ckage provide vc
36d0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
36e0: 3a 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 62 72 65 ::cvs::pass::bre
36f0: 61 6b 61 63 79 63 6c 65 20 31 2e 30 0a 72 65 74 akacycle 1.0.ret
3700: 75 72 6e 0a urn.