Artifact 4af951798271e71f10805c516b9b224bccf171f4:
File
tools/cvs2fossil/lib/c2f_pbreakacycle.tcl
part of check-in
[711e000206]
- Reworked ComputeLimits in the last breaker pass. Moved the heavy computation of the max predecessor / min successor data down to the sql in the changeset class.
by
aku on
2007-12-04 04:54:10.
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 0a 09 09 73 65 74 20 63 73 65 74 le $n...set cset
0f30: 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 6f [project::rev o
0f40: 66 20 24 63 69 64 5d 0a 09 09 24 63 73 65 74 20 f $cid]...$cset
0f50: 73 65 74 70 6f 73 20 24 70 6f 73 0a 09 09 73 65 setpos $pos...se
0f60: 74 20 6d 79 63 73 65 74 28 24 70 6f 73 29 20 24 t mycset($pos) $
0f70: 63 73 65 74 0a 09 09 6c 61 70 70 65 6e 64 20 6d cset...lappend m
0f80: 79 72 65 76 69 73 69 6f 6e 63 68 61 6e 67 65 73 yrevisionchanges
0f90: 65 74 73 20 24 63 73 65 74 0a 09 09 69 6e 63 72 ets $cset...incr
0fa0: 20 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 n.. }..}..re
0fb0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
0fc0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
0fd0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
0fe0: 23 23 23 23 23 23 23 0a 0a 20 20 20 20 70 72 6f #######.. pro
0ff0: 63 20 42 72 65 61 6b 42 61 63 6b 77 61 72 64 20 c BreakBackward
1000: 7b 67 72 61 70 68 7d 20 7b 0a 09 23 20 57 65 20 {graph} {..# We
1010: 67 6f 20 6f 76 65 72 20 61 6c 6c 20 62 72 61 6e go over all bran
1020: 63 68 20 63 68 61 6e 67 65 73 65 74 73 2c 20 69 ch changesets, i
1030: 2e 65 2e 20 74 68 65 20 63 68 61 6e 67 65 73 65 .e. the changese
1040: 74 73 0a 09 23 20 63 72 65 61 74 65 64 20 62 79 ts..# created by
1050: 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 77 68 69 the symbols whi
1060: 63 68 20 61 72 65 20 74 72 61 6e 73 6c 61 74 65 ch are translate
1070: 64 20 61 73 20 62 72 61 6e 63 68 65 73 2c 20 61 d as branches, a
1080: 6e 64 0a 09 23 20 62 72 65 61 6b 20 61 6e 79 20 nd..# break any
1090: 77 68 69 63 68 20 61 72 65 20 27 62 61 63 6b 77 which are 'backw
10a0: 61 72 64 27 2c 20 77 68 69 63 68 20 6d 65 61 6e ard', which mean
10b0: 73 20 74 68 61 74 20 74 68 65 79 20 68 61 76 65 s that they have
10c0: 0a 09 23 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 ..# at least one
10d0: 20 69 6e 63 6f 6d 69 6e 67 20 72 65 76 69 73 69 incoming revisi
10e0: 6f 6e 20 63 68 61 6e 67 65 73 65 74 20 77 68 69 on changeset whi
10f0: 63 68 20 69 73 20 63 6f 6d 6d 69 74 74 65 64 0a ch is committed.
1100: 09 23 20 61 66 74 65 72 20 61 74 20 6c 65 61 73 .# after at leas
1110: 74 20 6f 6e 65 20 6f 66 20 74 68 65 20 6f 75 74 t one of the out
1120: 67 6f 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 63 going revision c
1130: 68 61 6e 67 65 73 65 74 73 2c 20 70 65 72 0a 09 hangesets, per..
1140: 23 20 74 68 65 20 6f 72 64 65 72 20 63 6f 6d 70 # the order comp
1150: 75 74 65 64 20 69 6e 20 70 61 73 73 20 36 2e 20 uted in pass 6.
1160: 49 6e 20 22 63 76 73 32 73 76 6e 22 20 74 68 69 In "cvs2svn" thi
1170: 73 20 69 73 20 63 61 6c 6c 65 64 0a 09 23 20 22 s is called..# "
1180: 72 65 74 72 6f 67 72 61 64 65 22 2e 0a 0a 09 73 retrograde"....s
1190: 65 74 20 6e 20 30 0a 09 73 65 74 20 6d 61 78 20 et n 0..set max
11a0: 5b 6c 6c 65 6e 67 74 68 20 5b 24 67 72 61 70 68 [llength [$graph
11b0: 20 6e 6f 64 65 73 5d 5d 0a 09 66 6f 72 65 61 63 nodes]]..foreac
11c0: 68 20 63 73 65 74 20 5b 24 67 72 61 70 68 20 6e h cset [$graph n
11d0: 6f 64 65 73 5d 20 7b 0a 09 20 20 20 20 6c 6f 67 odes] {.. log
11e0: 20 70 72 6f 67 72 65 73 73 20 32 20 62 72 65 61 progress 2 brea
11f0: 6b 61 63 79 63 6c 65 20 24 6e 20 24 6d 61 78 20 kacycle $n $max
1200: 3b 20 69 6e 63 72 20 6e 0a 09 20 20 20 20 69 66 ; incr n.. if
1210: 20 7b 21 5b 24 63 73 65 74 20 69 73 62 72 61 6e {![$cset isbran
1220: 63 68 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 20 ch]} continue..
1230: 20 20 20 43 68 65 63 6b 41 6e 64 42 72 65 61 6b CheckAndBreak
1240: 42 61 63 6b 77 61 72 64 20 24 67 72 61 70 68 20 Backward $graph
1250: 24 63 73 65 74 0a 09 7d 0a 09 72 65 74 75 72 6e $cset..}..return
1260: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
1270: 20 43 68 65 63 6b 41 6e 64 42 72 65 61 6b 42 61 CheckAndBreakBa
1280: 63 6b 77 61 72 64 20 7b 67 72 61 70 68 20 63 73 ckward {graph cs
1290: 65 74 7d 20 7b 0a 09 77 68 69 6c 65 20 7b 5b 49 et} {..while {[I
12a0: 73 42 61 63 6b 77 61 72 64 20 24 67 72 61 70 68 sBackward $graph
12b0: 20 24 63 73 65 74 5d 7d 20 7b 0a 09 20 20 20 20 $cset]} {..
12c0: 23 20 4b 6e 6f 77 69 6e 67 20 74 68 61 74 20 74 # Knowing that t
12d0: 68 65 20 62 72 61 6e 63 68 20 63 68 61 6e 67 65 he branch change
12e0: 73 65 74 20 69 73 20 62 61 63 6b 77 61 72 64 20 set is backward
12f0: 77 65 20 6e 6f 77 0a 09 20 20 20 20 23 20 6c 6f we now.. # lo
1300: 6f 6b 20 61 74 20 74 68 65 20 69 6e 64 69 76 69 ok at the indivi
1310: 64 75 61 6c 20 62 72 61 6e 63 68 65 73 20 69 6e dual branches in
1320: 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 61 the changeset a
1330: 6e 64 0a 09 20 20 20 20 23 20 64 65 74 65 72 6d nd.. # determ
1340: 69 6e 65 20 77 68 69 63 68 20 6f 66 20 74 68 65 ine which of the
1350: 6d 20 61 72 65 20 72 65 73 70 6f 6e 73 69 62 6c m are responsibl
1360: 65 20 66 6f 72 20 74 68 65 0a 09 20 20 20 20 23 e for the.. #
1370: 20 6f 76 65 72 6c 61 70 2e 20 54 68 69 73 20 61 overlap. This a
1380: 6c 6c 6f 77 73 20 75 73 20 74 6f 20 73 70 6c 69 llows us to spli
1390: 74 20 74 68 65 6d 20 69 6e 74 6f 20 74 77 6f 20 t them into two
13a0: 73 65 74 73 2c 20 6f 6e 65 0a 09 20 20 20 20 23 sets, one.. #
13b0: 20 6f 66 20 6e 6f 6e 2d 6f 76 65 72 6c 61 70 70 of non-overlapp
13c0: 69 6e 67 20 62 72 61 6e 63 68 65 73 2c 20 61 6e ing branches, an
13d0: 64 20 6f 66 20 6f 76 65 72 6c 61 70 70 69 6e 67 d of overlapping
13e0: 0a 09 20 20 20 20 23 20 6f 6e 65 73 2e 20 45 61 .. # ones. Ea
13f0: 63 68 20 73 65 74 20 69 6e 64 75 63 65 73 20 61 ch set induces a
1400: 20 6e 65 77 20 63 68 61 6e 67 65 73 65 74 2c 20 new changeset,
1410: 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 0a 09 and the second..
1420: 20 20 20 20 23 20 6f 6e 65 20 6d 61 79 20 73 74 # one may st
1430: 69 6c 6c 20 62 65 20 62 61 63 6b 77 61 72 64 20 ill be backward
1440: 61 6e 64 20 69 6e 20 6e 65 65 64 20 6f 66 20 66 and in need of f
1450: 75 72 74 68 65 72 0a 09 20 20 20 20 23 20 73 70 urther.. # sp
1460: 6c 69 74 74 69 6e 67 2e 20 48 65 6e 63 65 20 74 litting. Hence t
1470: 68 65 20 6c 6f 6f 70 69 6e 67 2e 0a 0a 09 20 20 he looping....
1480: 20 20 23 20 54 68 65 20 62 6f 72 64 65 72 20 75 # The border u
1490: 73 65 64 20 66 6f 72 20 74 68 65 20 73 70 6c 69 sed for the spli
14a0: 74 20 69 73 20 74 68 65 20 6d 69 6e 69 6d 61 6c t is the minimal
14b0: 20 63 6f 6d 6d 69 74 0a 09 20 20 20 20 23 20 70 commit.. # p
14c0: 6f 73 69 74 69 6f 6e 20 61 6d 6f 6e 67 20 74 68 osition among th
14d0: 65 20 6d 69 6e 69 6d 61 6c 20 73 75 63 65 73 73 e minimal sucess
14e0: 6f 72 20 63 6f 6d 6d 69 74 20 70 6f 73 69 74 69 or commit positi
14f0: 6f 6e 73 20 66 6f 72 0a 09 20 20 20 20 23 20 74 ons for.. # t
1500: 68 65 20 62 72 61 6e 63 68 65 73 20 69 6e 20 74 he branches in t
1510: 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 20 57 he changeset. W
1520: 65 20 73 6f 72 74 20 74 68 65 20 66 69 6c 65 20 e sort the file
1530: 6c 65 76 65 6c 0a 09 20 20 20 20 23 20 69 74 65 level.. # ite
1540: 6d 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 72 ms based on ther
1550: 65 20 74 68 65 79 20 73 69 74 20 72 65 6c 61 74 e they sit relat
1560: 69 76 65 20 74 6f 20 74 68 65 20 62 6f 72 64 65 ive to the borde
1570: 72 0a 09 20 20 20 20 23 20 69 6e 74 6f 20 62 65 r.. # into be
1580: 66 6f 72 65 20 61 6e 64 20 61 66 74 65 72 20 74 fore and after t
1590: 68 65 20 62 6f 72 64 65 72 2e 20 41 73 20 74 68 he border. As th
15a0: 65 20 62 72 61 6e 63 68 65 73 20 63 61 6e 6e 6f e branches canno
15b0: 74 0a 09 20 20 20 20 23 20 62 65 20 62 61 63 6b t.. # be back
15c0: 77 61 72 64 20 61 74 20 66 69 6c 65 20 6c 65 76 ward at file lev
15d0: 65 6c 20 74 68 6f 73 20 62 65 66 6f 72 65 20 74 el thos before t
15e0: 68 65 20 62 6f 72 64 65 72 20 63 61 6e 6e 6f 74 he border cannot
15f0: 0a 09 20 20 20 20 23 20 67 65 6e 65 72 61 74 65 .. # generate
1600: 20 61 20 62 61 63 6b 77 61 72 64 20 73 79 6d 62 a backward symb
1610: 6f 6c 20 63 68 61 6e 67 65 73 65 74 2c 20 68 6f ol changeset, ho
1620: 77 65 76 65 72 20 74 68 65 0a 09 20 20 20 20 23 wever the.. #
1630: 20 62 72 61 6e 63 68 65 73 20 61 66 74 65 72 20 branches after
1640: 6d 61 79 20 63 6f 6e 73 74 69 74 75 74 65 20 61 may constitute a
1650: 6e 6f 74 68 65 72 20 62 61 63 6b 77 61 72 64 20 nother backward
1660: 62 72 61 6e 63 68 0a 09 20 20 20 20 23 20 77 69 branch.. # wi
1670: 74 68 20 61 20 6e 65 77 20 62 6f 72 64 65 72 2e th a new border.
1680: 0a 0a 09 20 20 20 20 23 20 6c 69 6d 69 74 73 20 ... # limits
1690: 3a 20 64 69 63 74 20 28 72 65 76 69 73 69 6f 6e : dict (revision
16a0: 20 2d 3e 20 6c 69 73 74 20 28 6d 61 78 20 70 72 -> list (max pr
16b0: 65 64 65 63 65 73 73 6f 72 20 63 6f 6d 6d 69 74 edecessor commit
16c0: 2c 20 6d 69 6e 20 73 75 63 65 73 73 6f 72 20 63 , min sucessor c
16d0: 6f 6d 6d 69 74 29 29 0a 0a 09 20 20 20 20 43 6f ommit))... Co
16e0: 6d 70 75 74 65 4c 69 6d 69 74 73 20 24 63 73 65 mputeLimits $cse
16f0: 74 20 6c 69 6d 69 74 73 20 62 6f 72 64 65 72 0a t limits border.
1700: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
1710: 35 20 62 72 65 61 6b 61 63 79 63 6c 65 20 22 42 5 breakacycle "B
1720: 72 65 61 6b 69 6e 67 20 62 61 63 6b 77 61 72 64 reaking backward
1730: 20 63 68 61 6e 67 65 73 65 74 20 5b 24 63 73 65 changeset [$cse
1740: 74 20 73 74 72 5d 20 75 73 69 6e 67 20 63 6f 6d t str] using com
1750: 6d 69 74 20 70 6f 73 69 74 69 6f 6e 20 24 62 6f mit position $bo
1760: 72 64 65 72 20 61 73 20 62 6f 72 64 65 72 22 0a rder as border".
1770: 0a 09 20 20 20 20 53 70 6c 69 74 49 74 65 6d 73 .. SplitItems
1780: 20 24 6c 69 6d 69 74 73 20 24 62 6f 72 64 65 72 $limits $border
1790: 20 6e 6f 72 6d 61 6c 69 74 65 6d 73 20 62 61 63 normalitems bac
17a0: 6b 77 61 72 64 69 74 65 6d 73 0a 0a 09 20 20 20 kwarditems...
17b0: 20 73 65 74 20 72 65 70 6c 61 63 65 6d 65 6e 74 set replacement
17c0: 73 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 s [project::rev
17d0: 73 70 6c 69 74 20 24 63 73 65 74 20 24 6e 6f 72 split $cset $nor
17e0: 6d 61 6c 69 74 65 6d 73 20 24 62 61 63 6b 77 61 malitems $backwa
17f0: 72 64 69 74 65 6d 73 5d 0a 09 20 20 20 20 63 79 rditems].. cy
1800: 63 6c 65 62 72 65 61 6b 65 72 20 72 65 70 6c 61 clebreaker repla
1810: 63 65 20 24 67 72 61 70 68 20 24 63 73 65 74 20 ce $graph $cset
1820: 24 72 65 70 6c 61 63 65 6d 65 6e 74 73 0a 0a 09 $replacements...
1830: 20 20 20 20 23 20 41 74 20 6c 61 73 74 20 77 65 # At last we
1840: 20 63 68 65 63 6b 20 74 68 61 74 20 74 68 65 20 check that the
1850: 6e 6f 72 6d 61 6c 20 66 72 61 6d 65 6e 74 20 69 normal frament i
1860: 73 20 69 6e 64 65 65 64 20 6e 6f 74 0a 09 20 20 s indeed not..
1870: 20 20 23 20 62 61 63 6b 77 61 72 64 2c 20 61 6e # backward, an
1880: 64 20 69 74 65 72 61 74 65 20 6f 76 65 72 20 74 d iterate over t
1890: 68 65 20 70 6f 73 73 69 62 6c 79 20 73 74 69 6c he possibly stil
18a0: 6c 20 62 61 63 6b 77 61 72 64 0a 09 20 20 20 20 l backward..
18b0: 23 20 73 65 63 6f 6e 64 20 66 72 61 67 6d 65 6e # second fragmen
18c0: 74 2e 0a 0a 09 20 20 20 20 73 74 72 75 63 74 3a t.... struct:
18d0: 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 24 72 65 :list assign $re
18e0: 70 6c 61 63 65 6d 65 6e 74 73 20 6e 6f 72 6d 61 placements norma
18f0: 6c 20 62 61 63 6b 77 61 72 64 0a 09 20 20 20 20 l backward..
1900: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
1910: 20 7b 0a 09 09 21 5b 49 73 42 61 63 6b 77 61 72 {...![IsBackwar
1920: 64 20 24 67 72 61 70 68 20 24 6e 6f 72 6d 61 6c d $graph $normal
1930: 5d 0a 09 20 20 20 20 7d 20 7b 54 68 65 20 6e 6f ].. } {The no
1940: 72 6d 61 6c 20 66 72 61 67 6d 65 6e 74 20 69 73 rmal fragment is
1950: 20 75 6e 65 78 70 65 63 74 65 64 6c 79 20 62 61 unexpectedly ba
1960: 63 6b 77 61 72 64 7d 0a 0a 09 20 20 20 20 73 65 ckward}... se
1970: 74 20 63 73 65 74 20 24 62 61 63 6b 77 61 72 64 t cset $backward
1980: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
1990: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 73 42 61 }.. proc IsBa
19a0: 63 6b 77 61 72 64 20 7b 64 67 20 63 73 65 74 7d ckward {dg cset}
19b0: 20 7b 0a 09 23 20 41 20 62 72 61 6e 63 68 20 69 {..# A branch i
19c0: 73 20 22 62 61 63 6b 77 61 72 64 22 20 69 66 20 s "backward" if
19d0: 69 74 20 68 61 73 20 61 74 20 6c 65 61 73 74 20 it has at least
19e0: 6f 6e 65 20 69 6e 63 6f 6d 69 6e 67 0a 09 23 20 one incoming..#
19f0: 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 revision changes
1a00: 65 74 20 77 68 69 63 68 20 69 73 20 63 6f 6d 6d et which is comm
1a10: 69 74 74 65 64 20 61 66 74 65 72 20 61 74 20 6c itted after at l
1a20: 65 61 73 74 20 6f 6e 65 20 6f 66 0a 09 23 20 74 east one of..# t
1a30: 68 65 20 6f 75 74 67 6f 69 6e 67 20 72 65 76 69 he outgoing revi
1a40: 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 2c sion changesets,
1a50: 20 70 65 72 20 74 68 65 20 6f 72 64 65 72 20 63 per the order c
1a60: 6f 6d 70 75 74 65 64 20 62 79 0a 09 23 20 70 61 omputed by..# pa
1a70: 73 73 20 36 2e 0a 0a 09 23 20 52 65 70 68 72 61 ss 6....# Rephra
1a80: 73 65 64 2c 20 74 68 65 20 6d 61 78 69 6d 61 6c sed, the maximal
1a90: 20 63 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f 6e commit position
1aa0: 20 66 6f 75 6e 64 20 61 6d 6f 6e 67 20 74 68 65 found among the
1ab0: 0a 09 23 20 69 6e 63 6f 6d 69 6e 67 20 72 65 76 ..# incoming rev
1ac0: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 ision changesets
1ad0: 20 69 73 20 6c 61 72 67 65 72 20 74 68 61 6e 20 is larger than
1ae0: 74 68 65 20 6d 69 6e 69 6d 61 6c 0a 09 23 20 63 the minimal..# c
1af0: 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f 6e 20 66 ommit position f
1b00: 6f 75 6e 64 20 61 6d 6f 6e 67 20 74 68 65 20 6f ound among the o
1b10: 75 74 67 6f 69 6e 67 20 72 65 76 69 73 69 6f 6e utgoing revision
1b20: 0a 09 23 20 63 68 61 6e 67 65 73 65 74 73 2e 20 ..# changesets.
1b30: 41 73 73 75 6d 69 6e 67 20 74 68 61 74 20 77 65 Assuming that we
1b40: 20 68 61 76 65 20 62 6f 74 68 20 69 6e 63 6f 6d have both incom
1b50: 69 6e 67 20 61 6e 64 20 6f 75 74 67 6f 69 6e 67 ing and outgoing
1b60: 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 63 68 61 ..# revision cha
1b70: 6e 67 65 73 65 74 73 20 66 6f 72 20 74 68 65 20 ngesets for the
1b80: 62 72 61 6e 63 68 2e 0a 0a 09 23 20 54 68 65 20 branch....# The
1b90: 68 65 6c 70 65 72 20 22 50 6f 73 69 74 69 6f 6e helper "Position
1ba0: 73 22 20 63 6f 6d 70 75 74 65 73 20 74 68 65 20 s" computes the
1bb0: 73 65 74 20 6f 66 20 63 6f 6d 6d 69 74 20 70 6f set of commit po
1bc0: 73 69 74 69 6f 6e 73 0a 09 23 20 66 6f 72 20 61 sitions..# for a
1bd0: 20 73 65 74 20 6f 66 20 63 68 61 6e 67 65 73 65 set of changese
1be0: 74 73 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 ts, which can be
1bf0: 20 61 20 6d 69 78 20 6f 66 20 72 65 76 69 73 69 a mix of revisi
1c00: 6f 6e 20 61 6e 64 0a 09 23 20 73 79 6d 62 6f 6c on and..# symbol
1c10: 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 09 73 changesets....s
1c20: 65 74 20 70 72 65 64 65 63 65 73 73 6f 72 73 20 et predecessors
1c30: 5b 50 6f 73 69 74 69 6f 6e 73 20 5b 24 64 67 20 [Positions [$dg
1c40: 6e 6f 64 65 73 20 2d 69 6e 20 20 24 63 73 65 74 nodes -in $cset
1c50: 5d 5d 0a 09 73 65 74 20 73 75 63 63 65 73 73 6f ]]..set successo
1c60: 72 73 20 20 20 5b 50 6f 73 69 74 69 6f 6e 73 20 rs [Positions
1c70: 5b 24 64 67 20 6e 6f 64 65 73 20 2d 6f 75 74 20 [$dg nodes -out
1c80: 24 63 73 65 74 5d 5d 0a 0a 09 72 65 74 75 72 6e $cset]]...return
1c90: 20 5b 65 78 70 72 20 7b 0a 09 09 20 20 20 20 20 [expr {...
1ca0: 20 5b 6c 6c 65 6e 67 74 68 20 24 70 72 65 64 65 [llength $prede
1cb0: 63 65 73 73 6f 72 73 5d 20 26 26 0a 09 09 20 20 cessors] &&...
1cc0: 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 73 75 [llength $su
1cd0: 63 63 65 73 73 6f 72 73 5d 20 20 20 26 26 0a 09 ccessors] &&..
1ce0: 09 20 20 20 20 20 20 28 5b 6d 61 78 20 24 70 72 . ([max $pr
1cf0: 65 64 65 63 65 73 73 6f 72 73 5d 20 3e 3d 20 5b edecessors] >= [
1d00: 6d 69 6e 20 24 73 75 63 63 65 73 73 6f 72 73 5d min $successors]
1d10: 29 0a 09 09 20 20 7d 5d 0a 20 20 20 20 7d 0a 0a )... }]. }..
1d20: 20 20 20 20 70 72 6f 63 20 50 6f 73 69 74 69 6f proc Positio
1d30: 6e 73 20 7b 63 68 61 6e 67 65 73 65 74 73 7d 20 ns {changesets}
1d40: 7b 0a 09 23 20 54 6f 20 63 6f 6d 70 75 74 65 20 {..# To compute
1d50: 74 68 65 20 73 65 74 20 6f 66 20 63 6f 6d 6d 69 the set of commi
1d60: 74 20 70 6f 73 69 74 69 6f 6e 73 20 66 72 6f 6d t positions from
1d70: 20 74 68 65 20 73 65 74 20 6f 66 0a 09 23 20 63 the set of..# c
1d80: 68 61 6e 67 65 73 65 74 73 20 77 65 20 66 69 72 hangesets we fir
1d90: 73 74 20 6d 61 70 20 65 61 63 68 20 63 68 61 6e st map each chan
1da0: 67 65 73 65 74 20 74 6f 20 69 74 73 20 70 6f 73 geset to its pos
1db0: 69 74 69 6f 6e 20 28 2a 29 0a 09 23 20 61 6e 64 ition (*)..# and
1dc0: 20 74 68 65 6e 20 66 69 6c 74 65 72 20 6f 75 74 then filter out
1dd0: 20 74 68 65 20 69 6e 76 61 6c 69 64 20 72 65 73 the invalid res
1de0: 70 6f 6e 73 65 73 20 28 74 68 65 20 65 6d 70 74 ponses (the empt
1df0: 79 20 73 74 72 69 6e 67 29 0a 09 23 20 72 65 74 y string)..# ret
1e00: 75 72 6e 65 64 20 62 79 20 74 68 65 20 73 79 6d urned by the sym
1e10: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 2e 0a bol changesets..
1e20: 09 23 0a 09 23 20 28 2a 29 20 54 68 69 73 20 64 .#..# (*) This d
1e30: 61 74 61 20 77 61 73 20 6c 6f 61 64 65 64 20 69 ata was loaded i
1e40: 6e 74 6f 20 6d 65 6d 6f 72 79 20 65 61 72 6c 69 nto memory earli
1e50: 72 20 69 6e 20 74 68 65 20 70 61 73 73 2c 20 62 r in the pass, b
1e60: 79 0a 09 23 20 20 20 20 20 4c 6f 61 64 43 6f 6d y..# LoadCom
1e70: 6d 69 74 4f 72 64 65 72 2e 0a 0a 09 72 65 74 75 mitOrder....retu
1e80: 72 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 rn [struct::list
1e90: 20 66 69 6c 74 65 72 20 5b 73 74 72 75 63 74 3a filter [struct:
1ea0: 3a 6c 69 73 74 20 6d 61 70 20 24 63 68 61 6e 67 :list map $chang
1eb0: 65 73 65 74 73 20 5c 0a 09 09 09 09 09 20 5b 6d esets \...... [m
1ec0: 79 70 72 6f 63 20 54 6f 50 6f 73 69 74 69 6f 6e yproc ToPosition
1ed0: 5d 5d 20 5c 0a 09 09 20 20 20 20 5b 6d 79 70 72 ]] \... [mypr
1ee0: 6f 63 20 56 61 6c 69 64 50 6f 73 69 74 69 6f 6e oc ValidPosition
1ef0: 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 ]]. }.. pr
1f00: 6f 63 20 54 6f 50 6f 73 69 74 69 6f 6e 20 20 20 oc ToPosition
1f10: 20 7b 63 73 65 74 7d 20 7b 20 24 63 73 65 74 20 {cset} { $cset
1f20: 70 6f 73 20 7d 0a 20 20 20 20 70 72 6f 63 20 56 pos }. proc V
1f30: 61 6c 69 64 50 6f 73 69 74 69 6f 6e 20 7b 70 6f alidPosition {po
1f40: 73 7d 20 20 7b 20 65 78 70 72 20 7b 24 70 6f 73 s} { expr {$pos
1f50: 20 6e 65 20 22 22 7d 20 7d 0a 0a 20 20 20 20 70 ne ""} }.. p
1f60: 72 6f 63 20 43 6f 6d 70 75 74 65 4c 69 6d 69 74 roc ComputeLimit
1f70: 73 20 7b 63 73 65 74 20 6c 76 20 62 76 7d 20 7b s {cset lv bv} {
1f80: 0a 09 75 70 76 61 72 20 31 20 24 6c 76 20 74 68 ..upvar 1 $lv th
1f90: 65 6c 69 6d 69 74 73 20 24 62 76 20 62 6f 72 64 elimits $bv bord
1fa0: 65 72 0a 0a 09 23 20 49 6e 64 69 76 69 64 75 61 er...# Individua
1fb0: 6c 20 62 72 61 6e 63 68 65 73 20 6d 61 79 20 6e l branches may n
1fc0: 6f 74 20 68 61 76 65 20 72 65 76 69 73 69 6f 6e ot have revision
1fd0: 20 63 68 61 6e 67 65 73 65 74 73 20 77 68 69 63 changesets whic
1fe0: 68 0a 09 23 20 61 72 65 20 74 68 65 69 72 20 70 h..# are their p
1ff0: 72 65 64 65 63 65 73 73 6f 72 73 20 61 6e 64 2f redecessors and/
2000: 6f 72 20 73 75 63 63 65 73 73 6f 72 73 2c 20 6c or successors, l
2010: 65 61 76 69 6e 67 20 74 68 65 20 6c 69 6d 69 74 eaving the limit
2020: 73 0a 09 23 20 70 61 72 74 69 61 6c 6c 79 20 6f s..# partially o
2030: 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 75 6e 64 r completely und
2040: 65 66 69 6e 65 64 2e 20 54 6f 20 6f 76 65 72 63 efined. To overc
2050: 6f 6d 65 20 74 68 69 73 0a 09 23 20 69 6e 69 74 ome this..# init
2060: 69 61 6c 69 7a 65 20 62 6f 75 6e 64 61 72 69 65 ialize boundarie
2070: 73 20 66 6f 72 20 61 6c 6c 20 69 74 65 6d 73 20 s for all items
2080: 77 69 74 68 20 70 72 6f 70 65 72 20 64 65 66 61 with proper defa
2090: 75 6c 74 73 20 28 2d 31 0a 09 23 20 66 6f 72 20 ults (-1..# for
20a0: 6d 61 78 2c 20 7b 7d 20 66 6f 72 20 6d 69 6e 2c max, {} for min,
20b0: 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 2b 69 representing +i
20c0: 6e 66 69 6e 69 74 79 29 2e 0a 0a 09 61 72 72 61 nfinity)....arra
20d0: 79 20 73 65 74 20 6d 61 78 70 61 20 7b 7d 0a 09 y set maxpa {}..
20e0: 61 72 72 61 79 20 73 65 74 20 6d 69 6e 73 61 20 array set minsa
20f0: 7b 7d 0a 09 66 6f 72 65 61 63 68 20 69 74 65 6d {}..foreach item
2100: 20 5b 24 63 73 65 74 20 69 74 65 6d 73 5d 20 7b [$cset items] {
2110: 0a 09 20 20 20 20 73 65 74 20 6d 61 78 70 61 28 .. set maxpa(
2120: 24 69 74 65 6d 29 20 2d 31 0a 09 20 20 20 20 73 $item) -1.. s
2130: 65 74 20 6d 69 6e 73 61 28 24 69 74 65 6d 29 20 et minsa($item)
2140: 7b 7d 0a 09 7d 0a 0a 09 23 20 47 65 74 20 74 68 {}..}...# Get th
2150: 65 20 6c 69 6d 69 74 73 20 66 72 6f 6d 20 74 68 e limits from th
2160: 65 20 64 61 74 61 62 61 73 65 2c 20 66 6f 72 20 e database, for
2170: 74 68 65 20 69 74 65 6d 73 20 77 68 69 63 68 0a the items which.
2180: 09 23 20 61 63 74 75 61 6c 6c 79 20 68 61 76 65 .# actually have
2190: 20 73 75 63 68 2c 20 61 6e 64 20 6d 65 72 67 65 such, and merge
21a0: 20 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e the information
21b0: 20 77 69 74 68 20 74 68 65 0a 09 23 20 64 65 66 with the..# def
21c0: 61 75 6c 74 73 2e 0a 0a 09 73 74 72 75 63 74 3a aults....struct:
21d0: 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 24 63 :list assign [$c
21e0: 73 65 74 20 6c 69 6d 69 74 73 5d 20 6d 61 78 70 set limits] maxp
21f0: 64 69 63 74 20 6d 69 6e 73 64 69 63 74 0a 0a 09 dict minsdict...
2200: 61 72 72 61 79 20 73 65 74 20 6d 61 78 70 61 20 array set maxpa
2210: 24 6d 61 78 70 64 69 63 74 0a 09 61 72 72 61 79 $maxpdict..array
2220: 20 73 65 74 20 6d 69 6e 73 61 20 24 6d 69 6e 73 set minsa $mins
2230: 64 69 63 74 0a 0a 09 23 20 43 68 65 63 6b 20 74 dict...# Check t
2240: 68 61 74 20 74 68 65 20 6f 72 64 65 72 69 6e 67 hat the ordering
2250: 20 61 74 20 74 68 65 20 66 69 6c 65 20 6c 65 76 at the file lev
2260: 65 6c 20 69 73 20 63 6f 72 72 65 63 74 2e 20 57 el is correct. W
2270: 65 0a 09 23 20 63 61 6e 6e 6f 74 20 68 61 76 65 e..# cannot have
2280: 20 62 61 63 6b 77 61 72 64 20 6f 72 64 65 72 69 backward orderi
2290: 6e 67 20 70 65 72 20 62 72 61 6e 63 68 2c 20 6f ng per branch, o
22a0: 72 20 73 6f 6d 65 74 68 69 6e 67 20 69 73 0a 09 r something is..
22b0: 23 20 77 72 6f 6e 67 2e 0a 0a 09 66 6f 72 65 61 # wrong....forea
22c0: 63 68 20 69 74 65 6d 20 5b 61 72 72 61 79 20 6e ch item [array n
22d0: 61 6d 65 73 20 6c 69 6d 69 74 73 5d 20 7b 0a 09 ames limits] {..
22e0: 20 20 20 20 73 65 74 20 6d 69 6e 73 20 24 6d 69 set mins $mi
22f0: 6e 73 61 28 24 69 74 65 6d 29 0a 09 20 20 20 20 nsa($item)..
2300: 73 65 74 20 6d 61 78 70 20 24 6d 61 78 70 28 24 set maxp $maxp($
2310: 69 74 65 6d 29 0a 09 20 20 20 20 23 20 4e 6f 74 item).. # Not
2320: 65 20 74 68 61 74 20 66 6f 72 20 74 68 65 20 6d e that for the m
2330: 69 6e 20 73 75 63 63 65 73 73 6f 72 20 70 6f 73 in successor pos
2340: 69 74 69 6f 6e 20 22 22 20 72 65 70 72 65 73 65 ition "" represe
2350: 6e 74 73 0a 09 20 20 20 20 23 20 2b 69 6e 66 69 nts.. # +infi
2360: 6e 69 74 79 0a 09 20 20 20 20 69 6e 74 65 67 72 nity.. integr
2370: 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 09 28 ity assert {...(
2380: 24 6d 69 6e 73 20 65 71 20 22 22 29 20 7c 7c 20 $mins eq "") ||
2390: 28 24 6d 61 78 70 20 3c 20 24 6d 69 6e 73 29 20 ($maxp < $mins)
23a0: 0a 09 20 20 20 20 7d 20 7b 49 74 65 6d 20 3c 24 .. } {Item <$
23b0: 69 74 65 6d 3e 20 69 73 20 62 61 63 6b 77 61 72 item> is backwar
23c0: 64 20 61 74 20 66 69 6c 65 20 6c 65 76 65 6c 20 d at file level
23d0: 28 24 6d 61 78 70 20 3e 3d 20 24 6d 69 6e 73 29 ($maxp >= $mins)
23e0: 7d 0a 09 7d 0a 0a 09 23 20 53 61 76 65 20 74 68 }..}...# Save th
23f0: 65 20 6c 69 6d 69 74 73 20 66 6f 72 20 74 68 65 e limits for the
2400: 20 73 70 6c 69 74 74 65 72 2c 20 61 6e 64 20 63 splitter, and c
2410: 6f 6d 70 75 74 65 20 74 68 65 20 62 6f 72 64 65 ompute the borde
2420: 72 20 61 74 0a 09 23 20 77 68 69 63 68 20 74 6f r at..# which to
2430: 20 73 70 6c 69 74 20 61 73 20 74 68 65 20 6d 69 split as the mi
2440: 6e 69 6d 75 6d 20 6f 66 20 61 6c 6c 20 6d 69 6e nimum of all min
2450: 69 6d 61 6c 20 73 75 63 63 65 73 73 6f 72 0a 09 imal successor..
2460: 23 20 70 6f 73 69 74 69 6f 6e 73 2e 0a 0a 09 23 # positions....#
2470: 20 43 6f 6d 70 75 74 65 20 74 68 65 20 62 6f 72 Compute the bor
2480: 64 65 72 20 61 74 20 77 68 69 63 68 20 74 6f 20 der at which to
2490: 73 70 6c 69 74 20 61 73 20 74 68 65 20 6d 69 6e split as the min
24a0: 69 6d 75 6d 20 6f 66 20 61 6c 6c 0a 09 23 20 6d imum of all..# m
24b0: 69 6e 69 6d 61 6c 20 73 75 63 63 65 73 73 6f 72 inimal successor
24c0: 20 70 6f 73 69 74 69 6f 6e 73 2e 20 42 79 20 75 positions. By u
24d0: 73 69 6e 67 20 74 68 65 20 64 61 74 61 62 61 73 sing the databas
24e0: 65 20 69 6e 66 6f 20 77 65 0a 09 23 20 61 75 74 e info we..# aut
24f0: 6f 6d 61 74 69 63 61 6c 6c 79 2f 69 6d 70 6c 69 omatically/impli
2500: 63 69 74 6c 79 20 66 69 6c 74 65 72 20 6f 75 74 citly filter out
2510: 20 61 6e 79 74 68 69 6e 67 20 77 69 74 68 6f 75 anything withou
2520: 74 20 61 20 6d 69 6e 0a 09 23 20 73 75 63 63 65 t a min..# succe
2530: 73 73 6f 72 2e 20 46 75 72 74 68 65 72 20 74 68 ssor. Further th
2540: 65 20 64 61 74 61 20 67 6f 69 6e 67 20 69 6e 74 e data going int
2550: 6f 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e o the comparison
2560: 20 77 69 74 68 0a 09 23 20 74 68 65 20 62 6f 72 with..# the bor
2570: 64 65 72 20 69 73 20 70 75 74 20 74 6f 67 65 74 der is put toget
2580: 68 65 72 2e 0a 0a 09 73 65 74 20 62 6f 72 64 65 her....set borde
2590: 72 20 20 20 20 5b 6d 69 6e 20 5b 56 61 6c 75 65 r [min [Value
25a0: 73 20 24 6d 69 6e 73 64 69 63 74 5d 5d 0a 09 73 s $minsdict]]..s
25b0: 65 74 20 74 68 65 6c 69 6d 69 74 73 20 5b 61 72 et thelimits [ar
25c0: 72 61 79 20 67 65 74 20 6d 61 78 70 61 5d 0a 09 ray get maxpa]..
25d0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
25e0: 20 20 70 72 6f 63 20 56 61 6c 75 65 73 20 7b 64 proc Values {d
25f0: 69 63 74 7d 20 7b 0a 09 73 65 74 20 72 65 73 20 ict} {..set res
2600: 7b 7d 0a 09 66 6f 72 65 61 63 68 20 7b 6b 20 76 {}..foreach {k v
2610: 7d 20 24 64 69 63 74 20 7b 20 6c 61 70 70 65 6e } $dict { lappen
2620: 64 20 72 65 73 20 24 76 20 7d 0a 09 72 65 74 75 d res $v }..retu
2630: 72 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 rn $res. }..
2640: 20 20 20 70 72 6f 63 20 53 70 6c 69 74 49 74 65 proc SplitIte
2650: 6d 73 20 7b 6c 69 6d 69 74 73 20 62 6f 72 64 65 ms {limits borde
2660: 72 20 6e 76 20 62 76 7d 20 7b 0a 09 75 70 76 61 r nv bv} {..upva
2670: 72 20 31 20 24 6e 76 20 6e 6f 72 6d 61 6c 69 74 r 1 $nv normalit
2680: 65 6d 73 20 24 62 76 20 62 61 63 6b 77 61 72 64 ems $bv backward
2690: 69 74 65 6d 73 0a 0a 09 73 65 74 20 6e 6f 72 6d items...set norm
26a0: 61 6c 69 74 65 6d 73 20 20 20 7b 7d 0a 09 73 65 alitems {}..se
26b0: 74 20 62 61 63 6b 77 61 72 64 69 74 65 6d 73 20 t backwarditems
26c0: 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b 69 74 {}...foreach {it
26d0: 65 6d 20 6d 61 78 70 7d 20 24 6c 69 6d 69 74 73 em maxp} $limits
26e0: 20 7b 0a 09 20 20 20 20 69 66 20 7b 24 6d 61 78 {.. if {$max
26f0: 70 20 3e 3d 20 24 62 6f 72 64 65 72 7d 20 7b 0a p >= $border} {.
2700: 09 09 6c 61 70 70 65 6e 64 20 62 61 63 6b 77 61 ..lappend backwa
2710: 72 64 69 74 65 6d 73 20 24 69 74 65 6d 0a 09 20 rditems $item..
2720: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 6c 61 } else {...la
2730: 70 70 65 6e 64 20 6e 6f 72 6d 61 6c 69 74 65 6d ppend normalitem
2740: 73 20 20 20 24 69 74 65 6d 0a 09 20 20 20 20 7d s $item.. }
2750: 0a 09 7d 0a 0a 09 69 6e 74 65 67 72 69 74 79 20 ..}...integrity
2760: 61 73 73 65 72 74 20 7b 5b 6c 6c 65 6e 67 74 68 assert {[llength
2770: 20 24 6e 6f 72 6d 61 6c 69 74 65 6d 73 5d 7d 20 $normalitems]}
2780: 20 20 7b 53 65 74 20 6f 66 20 6e 6f 72 6d 61 6c {Set of normal
2790: 20 69 74 65 6d 73 20 69 73 20 65 6d 70 74 79 7d items is empty}
27a0: 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 ..integrity asse
27b0: 72 74 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 62 61 rt {[llength $ba
27c0: 63 6b 77 61 72 64 69 74 65 6d 73 5d 7d 20 7b 53 ckwarditems]} {S
27d0: 65 74 20 6f 66 20 62 61 63 6b 77 61 72 64 20 69 et of backward i
27e0: 74 65 6d 73 20 69 73 20 65 6d 70 74 79 7d 0a 09 tems is empty}..
27f0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
2800: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
2810: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
2820: 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 70 #########.. p
2830: 72 6f 63 20 4b 65 65 70 4f 72 64 65 72 20 7b 67 roc KeepOrder {g
2840: 72 61 70 68 20 61 74 20 63 73 65 74 7d 20 7b 0a raph at cset} {.
2850: 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 61 74 .::variable myat
2860: 66 6d 74 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 fmt..::variable
2870: 6d 79 63 73 66 6d 74 0a 0a 09 73 65 74 20 63 69 mycsfmt...set ci
2880: 64 20 5b 24 63 73 65 74 20 69 64 5d 0a 0a 09 6c d [$cset id]...l
2890: 6f 67 20 77 72 69 74 65 20 38 20 62 72 65 61 6b og write 8 break
28a0: 61 63 79 63 6c 65 20 22 43 68 61 6e 67 65 73 65 acycle "Changese
28b0: 74 20 40 20 5b 66 6f 72 6d 61 74 20 24 6d 79 61 t @ [format $mya
28c0: 74 66 6d 74 20 24 61 74 5d 3a 20 5b 66 6f 72 6d tfmt $at]: [form
28d0: 61 74 20 24 6d 79 63 73 66 6d 74 20 5b 24 63 73 at $mycsfmt [$cs
28e0: 65 74 20 73 74 72 5d 5d 20 3c 3c 5b 46 6f 72 6d et str]] <<[Form
28f0: 61 74 54 52 20 24 67 72 61 70 68 20 24 63 73 65 atTR $graph $cse
2900: 74 5d 3e 3e 22 0a 0a 09 23 20 57 65 20 73 65 65 t]>>"...# We see
2910: 20 68 65 72 65 20 61 20 6d 69 78 74 75 72 65 20 here a mixture
2920: 6f 66 20 73 79 6d 62 6f 6c 20 61 6e 64 20 72 65 of symbol and re
2930: 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 vision changeset
2940: 73 2e 0a 09 23 20 54 68 65 20 73 79 6d 62 6f 6c s...# The symbol
2950: 20 63 68 61 6e 67 65 73 65 74 73 20 61 72 65 20 changesets are
2960: 69 67 6e 6f 72 65 64 20 61 73 20 69 72 72 65 6c ignored as irrel
2970: 65 76 61 6e 74 2e 0a 0a 09 69 66 20 7b 5b 24 63 evant....if {[$c
2980: 73 65 74 20 70 6f 73 5d 20 65 71 20 22 22 7d 20 set pos] eq ""}
2990: 72 65 74 75 72 6e 0a 0a 09 23 20 46 6f 72 20 74 return...# For t
29a0: 68 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e he revision chan
29b0: 67 65 73 65 74 73 20 77 65 20 61 72 65 20 73 75 gesets we are su
29c0: 72 65 20 74 68 61 74 20 74 68 65 79 20 61 72 65 re that they are
29d0: 0a 09 23 20 63 6f 6e 73 75 6d 65 64 20 69 6e 20 ..# consumed in
29e0: 74 68 65 20 73 61 6d 65 20 6f 72 64 65 72 20 61 the same order a
29f0: 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 70 s generated by p
2a00: 61 73 73 20 37 0a 09 23 20 28 52 65 76 54 6f 70 ass 7..# (RevTop
2a10: 6f 6c 6f 67 69 63 61 6c 53 6f 72 74 29 2e 20 50 ologicalSort). P
2a20: 65 72 20 74 68 65 20 63 6f 64 65 20 69 6e 20 63 er the code in c
2a30: 76 73 32 73 76 6e 2e 0a 0a 09 23 20 54 68 69 73 vs2svn....# This
2a40: 20 77 6f 72 6b 73 20 69 66 20 61 6e 64 20 6f 6e works if and on
2a50: 6c 79 20 69 66 20 6e 6f 6e 65 20 6f 66 20 74 68 ly if none of th
2a60: 65 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 e symbol changes
2a70: 65 74 73 20 61 72 65 0a 09 23 20 22 62 61 63 6b ets are..# "back
2a80: 77 61 72 64 73 22 2c 20 68 65 6e 63 65 20 6f 75 wards", hence ou
2a90: 72 20 62 72 65 61 6b 69 6e 67 20 6f 66 20 74 68 r breaking of th
2aa0: 65 20 62 61 63 6b 77 61 72 64 20 63 68 61 6e 67 e backward chang
2ab0: 65 73 65 74 73 0a 09 23 20 66 69 72 73 74 2c 20 esets..# first,
2ac0: 69 6e 20 74 68 65 20 70 72 65 2d 68 6f 6f 6b 2e in the pre-hook.
2ad0: 0a 0a 09 23 20 4e 6f 74 65 20 74 68 61 74 20 74 ...# Note that t
2ae0: 61 68 20 63 68 61 6e 67 65 73 65 74 73 20 63 61 ah changesets ca
2af0: 6e 6e 6f 74 20 62 65 20 62 61 63 6b 77 61 72 64 nnot be backward
2b00: 20 61 73 20 74 68 65 79 20 64 6f 6e 27 74 0a 09 as they don't..
2b10: 23 20 68 61 76 65 20 73 75 63 63 65 73 73 6f 72 # have successor
2b20: 73 20 61 74 20 61 6c 6c 2e 0a 0a 09 23 20 41 6e s at all....# An
2b30: 20 69 6e 74 65 72 65 73 74 69 6e 67 20 74 68 69 interesting thi
2b40: 6e 67 20 49 4d 48 4f 2c 20 69 73 20 74 68 61 74 ng IMHO, is that
2b50: 20 61 66 74 65 72 20 62 72 65 61 6b 69 6e 67 20 after breaking
2b60: 74 68 65 0a 09 23 20 62 61 63 6b 77 61 72 64 20 the..# backward
2b70: 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 symbol changeset
2b80: 73 20 77 65 20 73 68 6f 75 6c 64 20 6e 6f 74 20 s we should not
2b90: 68 61 76 65 20 61 6e 79 20 63 69 72 63 6c 65 73 have any circles
2ba0: 0a 09 23 20 61 6e 79 20 6c 6f 6e 67 65 72 2e 20 ..# any longer.
2bb0: 45 61 63 68 20 63 69 72 63 6c 65 20 77 68 69 63 Each circle whic
2bc0: 68 20 77 6f 75 6c 64 20 73 74 69 6c 6c 20 62 65 h would still be
2bd0: 20 70 72 65 73 65 6e 74 20 68 61 73 20 74 6f 0a present has to.
2be0: 09 23 20 69 6e 76 6f 6c 76 65 20 61 20 62 61 63 .# involve a bac
2bf0: 6b 77 61 72 64 20 73 79 6d 62 6f 6c 2c 20 61 6e kward symbol, an
2c00: 64 20 77 65 20 73 70 6c 69 74 20 74 68 65 6d 20 d we split them
2c10: 61 6c 6c 2c 20 73 6f 20 74 68 65 72 65 0a 09 23 all, so there..#
2c20: 20 63 61 6e 27 74 20 62 65 20 61 20 63 69 72 63 can't be a circ
2c30: 6c 65 2e 2e 0a 0a 09 23 20 50 72 6f 6f 66 3a 0a le.....# Proof:.
2c40: 09 23 20 4c 65 74 20 75 73 20 61 73 73 75 6d 65 .# Let us assume
2c50: 20 77 65 20 74 68 61 74 20 68 61 76 65 20 61 20 we that have a
2c60: 63 69 72 63 6c 65 0a 09 23 20 09 43 3a 20 52 31 circle..# .C: R1
2c70: 20 2d 3e 20 2e 2e 2e 20 2d 3e 20 52 78 20 2d 3e -> ... -> Rx ->
2c80: 20 53 20 2d 3e 20 52 79 20 2d 3e 20 2e 2e 2e 20 S -> Ry -> ...
2c90: 2d 3e 20 52 6e 20 2d 3e 20 52 31 0a 09 23 20 4c -> Rn -> R1..# L
2ca0: 65 74 20 75 73 20 66 75 72 74 68 65 72 20 61 73 et us further as
2cb0: 73 75 6d 65 20 74 68 61 74 20 74 68 65 20 73 79 sume that the sy
2cc0: 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 20 53 mbol changeset S
2cd0: 20 69 6e 20 74 68 61 74 0a 09 23 20 63 69 72 63 in that..# circ
2ce0: 6c 65 20 69 73 20 6e 6f 74 20 62 61 63 6b 77 61 le is not backwa
2cf0: 72 64 2e 20 54 68 61 74 20 6d 65 61 6e 73 20 4f rd. That means O
2d00: 52 44 28 52 78 29 20 3c 20 4f 52 44 28 52 79 29 RD(Rx) < ORD(Ry)
2d10: 2e 20 20 54 68 65 0a 09 23 20 65 61 72 6c 69 65 . The..# earlie
2d20: 72 20 74 6f 70 6f 6c 6f 67 69 63 61 6c 20 73 6f r topological so
2d30: 72 74 69 6e 67 20 77 69 74 68 6f 75 74 20 73 79 rting without sy
2d40: 6d 62 6f 6c 73 20 6e 6f 77 20 66 6f 72 63 65 73 mbols now forces
2d50: 20 74 68 69 73 0a 09 23 20 72 65 6c 61 74 69 6f this..# relatio
2d60: 6e 73 68 69 70 20 74 68 72 6f 75 67 68 20 74 6f nship through to
2d70: 20 62 65 20 4f 52 44 28 52 78 29 20 3c 20 4f 52 be ORD(Rx) < OR
2d80: 44 28 52 31 29 20 3c 20 4f 52 44 28 52 78 29 2e D(R1) < ORD(Rx).
2d90: 20 20 57 65 0a 09 23 20 68 61 76 65 20 72 65 61 We..# have rea
2da0: 63 68 65 64 20 61 6e 20 69 6d 70 6f 73 73 69 62 ched an impossib
2db0: 69 6c 69 74 79 2c 20 61 20 70 61 72 61 64 6f 78 ility, a paradox
2dc0: 2e 20 4f 75 72 20 69 6e 69 74 69 61 6c 0a 09 23 . Our initial..#
2dd0: 20 61 73 73 75 6d 70 74 69 6f 6e 20 6f 66 20 53 assumption of S
2de0: 20 6e 6f 74 20 62 65 69 6e 67 20 62 61 63 6b 77 not being backw
2df0: 61 72 64 20 63 61 6e 6e 6f 74 20 68 6f 6c 64 2e ard cannot hold.
2e00: 0a 09 23 0a 09 23 20 41 6c 74 65 72 6e 61 74 65 ..#..# Alternate
2e10: 2c 20 64 69 72 65 63 74 2c 20 72 65 61 73 6f 6e , direct, reason
2e20: 69 6e 67 3a 20 57 69 74 68 6f 75 74 20 53 20 74 ing: Without S t
2e30: 68 65 20 63 68 61 69 6e 20 6f 66 0a 09 23 20 64 he chain of..# d
2e40: 65 70 65 6e 64 65 6e 63 69 65 73 20 69 73 20 52 ependencies is R
2e50: 79 20 2d 3e 20 2e 2e 20 2d 3e 20 52 31 20 2d 3e y -> .. -> R1 ->
2e60: 20 2e 2e 20 2d 3e 20 52 78 2c 20 74 68 65 72 65 .. -> Rx, there
2e70: 66 6f 72 65 0a 09 23 20 4f 52 44 28 52 79 29 20 fore..# ORD(Ry)
2e80: 3c 20 4f 52 44 28 52 78 29 20 68 6f 6c 64 73 2c < ORD(Rx) holds,
2e90: 20 61 6e 64 20 74 68 69 73 20 6d 65 61 6e 73 20 and this means
2ea0: 53 20 69 73 20 62 61 63 6b 77 61 72 64 2e 0a 0a S is backward...
2eb0: 09 73 74 72 75 63 74 3a 3a 73 65 74 20 65 78 63 .struct::set exc
2ec0: 6c 75 64 65 20 6d 79 72 65 76 69 73 69 6f 6e 63 lude myrevisionc
2ed0: 68 61 6e 67 65 73 65 74 73 20 24 63 73 65 74 0a hangesets $cset.
2ee0: 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 6c ..::variable myl
2ef0: 61 73 74 70 6f 73 0a 09 73 65 74 20 6e 65 77 20 astpos..set new
2f00: 5b 24 63 73 65 74 20 70 6f 73 5d 0a 0a 09 69 66 [$cset pos]...if
2f10: 20 7b 24 6e 65 77 20 21 3d 20 28 24 6d 79 6c 61 {$new != ($myla
2f20: 73 74 70 6f 73 20 2b 20 31 29 7d 20 7b 0a 09 20 stpos + 1)} {..
2f30: 20 20 20 69 66 20 7b 24 6d 79 6c 61 73 74 70 6f if {$mylastpo
2f40: 73 20 3c 20 30 7d 20 7b 0a 09 09 73 65 74 20 6f s < 0} {...set o
2f50: 6c 64 20 22 3c 4e 4f 4e 45 3e 22 0a 09 20 20 20 ld "<NONE>"..
2f60: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 3a 3a 76 61 } else {...::va
2f70: 72 69 61 62 6c 65 20 6d 79 63 73 65 74 0a 09 09 riable mycset...
2f80: 73 65 74 20 6f 6c 64 20 5b 24 6d 79 63 73 65 74 set old [$mycset
2f90: 28 24 6d 79 6c 61 73 74 70 6f 73 29 20 73 74 72 ($mylastpos) str
2fa0: 5d 40 24 6d 79 6c 61 73 74 70 6f 73 0a 09 20 20 ]@$mylastpos..
2fb0: 20 20 7d 0a 0a 09 20 20 20 20 69 6e 74 65 67 72 }... integr
2fc0: 69 74 79 20 61 73 73 65 72 74 20 30 20 7b 4f 72 ity assert 0 {Or
2fd0: 64 65 72 69 6e 67 20 6f 66 20 72 65 76 69 73 69 dering of revisi
2fe0: 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 20 76 69 on changesets vi
2ff0: 6f 6c 61 74 65 64 2c 20 5b 24 63 73 65 74 20 73 olated, [$cset s
3000: 74 72 5d 40 24 6e 65 77 20 69 73 20 6e 6f 74 20 tr]@$new is not
3010: 69 6d 6d 65 64 69 61 74 65 6c 79 20 61 66 74 65 immediately afte
3020: 72 20 24 6f 6c 64 7d 0a 09 7d 0a 0a 09 73 65 74 r $old}..}...set
3030: 20 6d 79 6c 61 73 74 70 6f 73 20 24 6e 65 77 0a mylastpos $new.
3040: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
3050: 20 20 20 70 72 6f 63 20 46 6f 72 6d 61 74 54 52 proc FormatTR
3060: 20 7b 67 72 61 70 68 20 63 73 65 74 7d 20 7b 0a {graph cset} {.
3070: 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 5b 73 .return [join [s
3080: 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 truct::list map
3090: 5b 24 67 72 61 70 68 20 6e 6f 64 65 20 73 65 74 [$graph node set
30a0: 20 24 63 73 65 74 20 74 69 6d 65 72 61 6e 67 65 $cset timerange
30b0: 5d 20 7b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 7d ] {clock format}
30c0: 5d 20 7b 20 2d 2d 20 7d 5d 0a 20 20 20 20 7d 0a ] { -- }]. }.
30d0: 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c . typevariabl
30e0: 65 20 6d 79 6c 61 73 74 70 6f 73 20 20 20 20 20 e mylastpos
30f0: 20 20 20 20 20 20 20 2d 31 20 3b 20 23 20 50 6f -1 ; # Po
3100: 73 69 74 69 6f 6e 20 6f 66 20 6c 61 73 74 20 72 sition of last r
3110: 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 evision changese
3120: 74 20 73 61 76 65 64 2e 0a 20 20 20 20 74 79 70 t saved.. typ
3130: 65 76 61 72 69 61 62 6c 65 20 6d 79 72 65 76 69 evariable myrevi
3140: 73 69 6f 6e 63 68 61 6e 67 65 73 65 74 73 20 7b sionchangesets {
3150: 7d 20 3b 20 23 20 53 65 74 20 6f 66 20 72 65 76 } ; # Set of rev
3160: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 ision changesets
3170: 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 .. typevariab
3180: 6c 65 20 6d 79 61 74 66 6d 74 20 3b 20 23 20 46 le myatfmt ; # F
3190: 6f 72 6d 61 74 20 66 6f 72 20 6c 6f 67 20 6f 75 ormat for log ou
31a0: 74 70 75 74 20 74 6f 20 67 61 69 6e 20 62 65 74 tput to gain bet
31b0: 74 65 72 20 61 6c 69 67 6e 6d 65 6e 74 20 6f 66 ter alignment of
31c0: 20 74 68 65 20 76 61 72 69 6f 75 73 20 63 6f 6c the various col
31d0: 75 6d 6e 73 2e 0a 20 20 20 20 74 79 70 65 76 61 umns.. typeva
31e0: 72 69 61 62 6c 65 20 6d 79 63 73 66 6d 74 20 3b riable mycsfmt ;
31f0: 20 23 20 44 69 74 74 6f 20 66 6f 72 20 74 68 65 # Ditto for the
3200: 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 20 20 changesets...
3210: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
3220: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
3230: 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 74 #########.. t
3240: 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 63 73 ypevariable mycs
3250: 65 74 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 et -array {} ; #
3260: 20 4d 61 70 20 66 72 6f 6d 20 63 6f 6d 6d 69 74 Map from commit
3270: 20 70 6f 73 69 74 69 6f 6e 73 20 74 6f 20 74 68 positions to th
3280: 65 0a 09 09 09 09 20 20 20 20 23 20 63 68 61 6e e..... # chan
3290: 67 65 73 65 74 20 28 6f 62 6a 65 63 74 20 72 65 geset (object re
32a0: 66 29 20 61 74 20 74 68 61 74 0a 09 09 09 09 20 f) at that.....
32b0: 20 20 20 23 20 70 6f 73 69 74 69 6f 6e 2e 0a 0a # position...
32c0: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
32d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
32e0: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
32f0: 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e ## Configuration
3300: 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 .. pragma -ha
3310: 73 69 6e 73 74 61 6e 63 65 73 20 20 20 6e 6f 20 sinstances no
3320: 3b 20 23 20 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 ; # singleton.
3330: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 pragma -hastyp
3340: 65 69 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 23 20 einfo no ; #
3350: 6e 6f 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e no introspection
3360: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 . pragma -has
3370: 74 79 70 65 64 65 73 74 72 6f 79 20 6e 6f 20 3b typedestroy no ;
3380: 20 23 20 69 6d 6d 6f 72 74 61 6c 0a 0a 20 20 20 # immortal..
3390: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
33a0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
33b0: 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 ########.}..name
33c0: 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a space eval ::vc:
33d0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
33e0: 3a 63 76 73 3a 3a 70 61 73 73 20 7b 0a 20 20 20 :cvs::pass {.
33f0: 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 namespace expor
3400: 74 20 62 72 65 61 6b 61 63 79 63 6c 65 0a 20 20 t breakacycle.
3410: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
3420: 20 62 72 65 61 6b 61 63 79 63 6c 65 20 7b 0a 09 breakacycle {..
3430: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
3440: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
3450: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 63 79 63 6c mport::cvs::cycl
3460: 65 62 72 65 61 6b 65 72 0a 09 6e 61 6d 65 73 70 ebreaker..namesp
3470: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
3480: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
3490: 3a 63 76 73 3a 3a 72 65 70 6f 73 69 74 6f 72 79 :cvs::repository
34a0: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
34b0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
34c0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 :import::cvs::st
34d0: 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 ate..namespace i
34e0: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 mport ::vc::foss
34f0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
3500: 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 6d 65 :integrity..name
3510: 73 70 61 63 65 20 65 76 61 6c 20 70 72 6f 6a 65 space eval proje
3520: 63 74 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 ct {.. namesp
3530: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
3540: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
3550: 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 :cvs::project::r
3560: 65 76 0a 09 7d 0a 09 6e 61 6d 65 73 70 61 63 65 ev..}..namespace
3570: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f import ::vc::to
3580: 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a 09 6e 61 ols::misc::*..na
3590: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
35a0: 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 :vc::tools::trou
35b0: 62 6c 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 ble..namespace i
35c0: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c mport ::vc::tool
35d0: 73 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 65 67 69 s::log..log regi
35e0: 73 74 65 72 20 62 72 65 61 6b 61 63 79 63 6c 65 ster breakacycle
35f0: 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 . }.}..# # ##
3600: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
3610: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
3620: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 # ##############
3630: 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 64 79 #######.## Ready
3640: 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 ..package provid
3650: 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d e vc::fossil::im
3660: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 61 73 73 3a port::cvs::pass:
3670: 3a 62 72 65 61 6b 61 63 79 63 6c 65 20 31 2e 30 :breakacycle 1.0
3680: 0a 72 65 74 75 72 6e 0a .return.