Artifact 675dc7f03b08cd5996f76468a9e38293971bd942:
File
tools/cvs2fossil/lib/c2f_cyclebreaker.tcl
part of check-in
[a99d5798f6]
- Added missing node attributes in the Replace command.
by
aku on
2007-11-24 03:59:55.
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 54 68 69 ########..## Thi
0200: 73 20 66 69 6c 65 20 70 72 6f 76 69 64 65 73 20 s file provides
0210: 61 20 68 65 6c 70 65 72 20 70 61 63 6b 61 67 65 a helper package
0220: 20 66 6f 72 20 74 68 65 20 70 61 73 73 65 73 20 for the passes
0230: 36 20 61 6e 64 20 37 20 77 68 69 63 68 0a 23 23 6 and 7 which.##
0240: 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 63 6f contains the co
0250: 6d 6d 6f 6e 20 63 6f 64 65 20 6f 66 20 74 68 65 mmon code of the
0260: 20 63 79 63 6c 65 20 62 72 65 61 6b 69 6e 67 20 cycle breaking
0270: 61 6c 67 6f 72 69 74 68 6d 2e 0a 0a 23 20 23 20 algorithm...# #
0280: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
0290: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
02a0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
02b0: 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 71 #########.## Req
02c0: 75 69 72 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61 uirements..packa
02d0: 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 ge require Tcl 8
02e0: 2e 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .4
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0300: 20 20 20 20 20 3b 20 23 20 52 65 71 75 69 72 65 ; # Require
0310: 64 20 72 75 6e 74 69 6d 65 2e 0a 70 61 63 6b 61 d runtime..packa
0320: 67 65 20 72 65 71 75 69 72 65 20 73 6e 69 74 20 ge require snit
0330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0350: 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 79 73 74 ; # OO syst
0360: 65 6d 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 em..package requ
0370: 69 72 65 20 73 74 72 75 63 74 3a 3a 67 72 61 70 ire struct::grap
0380: 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
03a0: 23 20 47 72 61 70 68 20 68 61 6e 64 6c 69 6e 67 # Graph handling
03b0: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
03c0: 65 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 20 e struct::list
03d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
03f0: 48 69 67 68 65 72 20 6f 72 64 65 72 20 6c 69 73 Higher order lis
0400: 74 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a 70 61 t operations..pa
0410: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
0420: 3a 3a 74 6f 6f 6c 73 3a 3a 64 6f 74 20 20 20 20 ::tools::dot
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0440: 20 20 20 20 20 20 20 20 3b 20 23 20 55 73 65 72 ; # User
0450: 20 66 65 65 64 62 61 63 6b 2e 20 44 4f 54 20 65 feedback. DOT e
0460: 78 70 6f 72 74 2e 0a 70 61 63 6b 61 67 65 20 72 xport..package r
0470: 65 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 equire vc::tools
0480: 3a 3a 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 ::log
0490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04a0: 20 3b 20 23 20 55 73 65 72 20 66 65 65 64 62 61 ; # User feedba
04b0: 63 6b 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ck..package requ
04c0: 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 ire vc::tools::t
04d0: 72 6f 75 62 6c 65 20 20 20 20 20 20 20 20 20 20 rouble
04e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
04f0: 23 20 45 72 72 6f 72 20 72 65 70 6f 72 74 69 6e # Error reportin
0500: 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 g..package requi
0510: 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 re vc::tools::mi
0520: 73 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 sc
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
0540: 20 54 65 78 74 20 66 6f 72 6d 61 74 74 69 6e 67 Text formatting
0550: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0560: 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d e vc::fossil::im
0570: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 port::cvs::proje
0580: 63 74 3a 3a 72 65 76 20 20 20 20 20 3b 20 23 20 ct::rev ; #
0590: 50 72 6f 6a 65 63 74 20 6c 65 76 65 6c 20 63 68 Project level ch
05a0: 61 6e 67 65 73 65 74 73 0a 70 61 63 6b 61 67 65 angesets.package
05b0: 20 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 require vc::fos
05c0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
05d0: 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 6c 69 ::project::revli
05e0: 6e 6b 20 3b 20 23 20 43 79 63 6c 65 20 6c 69 6e nk ; # Cycle lin
05f0: 6b 73 2e 0a 0a 23 20 23 20 23 23 20 23 23 23 20 ks...# # ## ###
0600: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0610: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
0620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0630: 23 23 0a 23 23 20 0a 0a 73 6e 69 74 3a 3a 74 79 ##.## ..snit::ty
0640: 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a pe ::vc::fossil:
0650: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 63 79 :import::cvs::cy
0660: 63 6c 65 62 72 65 61 6b 65 72 20 7b 0a 20 20 20 clebreaker {.
0670: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
0680: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
0690: 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 ########. ##
06a0: 50 75 62 6c 69 63 20 41 50 49 0a 0a 20 20 20 20 Public API..
06b0: 74 79 70 65 6d 65 74 68 6f 64 20 70 72 65 63 6d typemethod precm
06c0: 64 20 7b 63 6d 64 7d 20 7b 0a 09 3a 3a 76 61 72 d {cmd} {..::var
06d0: 69 61 62 6c 65 20 6d 79 70 72 65 63 6d 64 20 24 iable myprecmd $
06e0: 63 6d 64 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 cmd..return.
06f0: 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }.. typemetho
0700: 64 20 73 61 76 65 63 6d 64 20 7b 63 6d 64 7d 20 d savecmd {cmd}
0710: 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 {..::variable my
0720: 73 61 76 65 63 6d 64 20 24 63 6d 64 0a 09 72 65 savecmd $cmd..re
0730: 74 75 72 6e 0a 20 20 20 20 7d 0a 20 0a 20 20 20 turn. }. .
0740: 20 74 79 70 65 6d 65 74 68 6f 64 20 62 72 65 61 typemethod brea
0750: 6b 63 6d 64 20 7b 63 6d 64 7d 20 7b 0a 09 3a 3a kcmd {cmd} {..::
0760: 76 61 72 69 61 62 6c 65 20 6d 79 62 72 65 61 6b variable mybreak
0770: 63 6d 64 20 24 63 6d 64 0a 09 72 65 74 75 72 6e cmd $cmd..return
0780: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
0790: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
07a0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
07b0: 23 23 23 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 ###.. typemet
07c0: 68 6f 64 20 64 6f 74 73 74 6f 20 7b 70 61 74 68 hod dotsto {path
07d0: 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 } {..::variable
07e0: 6d 79 64 6f 74 64 65 73 74 69 6e 61 74 69 6f 6e mydotdestination
07f0: 20 24 70 61 74 68 0a 09 72 65 74 75 72 6e 0a 20 $path..return.
0800: 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 }.. typeme
0810: 74 68 6f 64 20 64 6f 74 20 7b 6c 61 62 65 6c 20 thod dot {label
0820: 63 68 61 6e 67 65 73 65 74 73 7d 20 7b 0a 09 3a changesets} {..:
0830: 3a 76 61 72 69 61 62 6c 65 20 6d 79 64 6f 74 70 :variable mydotp
0840: 72 65 66 69 78 20 24 6c 61 62 65 6c 0a 09 3a 3a refix $label..::
0850: 76 61 72 69 61 62 6c 65 20 6d 79 64 6f 74 69 64 variable mydotid
0860: 20 20 20 20 20 30 0a 0a 09 73 65 74 20 64 67 20 0...set dg
0870: 5b 53 65 74 75 70 20 24 63 68 61 6e 67 65 73 65 [Setup $changese
0880: 74 73 20 30 5d 0a 09 4d 61 72 6b 20 24 64 67 0a ts 0]..Mark $dg.
0890: 09 24 64 67 20 64 65 73 74 72 6f 79 0a 09 72 65 .$dg destroy..re
08a0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
08b0: 74 79 70 65 6d 65 74 68 6f 64 20 6d 61 72 6b 20 typemethod mark
08c0: 7b 67 72 61 70 68 20 73 75 66 66 69 78 20 7b 73 {graph suffix {s
08d0: 75 62 67 72 61 70 68 20 7b 7d 7d 7d 20 7b 0a 09 ubgraph {}}} {..
08e0: 4d 61 72 6b 20 24 67 72 61 70 68 20 24 73 75 66 Mark $graph $suf
08f0: 66 69 78 20 24 73 75 62 67 72 61 70 68 0a 09 72 fix $subgraph..r
0900: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
0910: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
0920: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
0930: 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 74 79 ########.. ty
0940: 70 65 6d 65 74 68 6f 64 20 72 75 6e 20 7b 6c 61 pemethod run {la
0950: 62 65 6c 20 63 68 61 6e 67 65 73 65 74 63 6d 64 bel changesetcmd
0960: 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 } {..::variable
0970: 6d 79 61 74 20 20 20 20 20 20 20 20 30 0a 09 3a myat 0..:
0980: 3a 76 61 72 69 61 62 6c 65 20 6d 79 64 6f 74 70 :variable mydotp
0990: 72 65 66 69 78 20 24 6c 61 62 65 6c 0a 09 3a 3a refix $label..::
09a0: 76 61 72 69 61 62 6c 65 20 6d 79 64 6f 74 69 64 variable mydotid
09b0: 20 20 20 20 20 30 0a 0a 09 23 20 57 65 20 63 72 0...# We cr
09c0: 65 61 74 65 20 61 20 67 72 61 70 68 20 6f 66 20 eate a graph of
09d0: 74 68 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 the revision cha
09e0: 6e 67 65 73 65 74 73 2c 20 75 73 69 6e 67 20 74 ngesets, using t
09f0: 68 65 20 66 69 6c 65 0a 09 23 20 6c 65 76 65 6c he file..# level
0a00: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 74 6f dependencies to
0a10: 20 63 6f 6e 73 74 72 75 63 74 20 61 20 66 69 72 construct a fir
0a20: 73 74 20 61 70 70 72 6f 78 69 6d 61 74 69 6f 6e st approximation
0a30: 20 6f 66 20 74 68 65 0a 09 23 20 64 65 70 65 6e of the..# depen
0a40: 64 65 6e 63 69 65 73 20 61 74 20 74 68 65 20 70 dencies at the p
0a50: 72 6f 6a 65 63 74 20 6c 65 76 65 6c 2e 20 54 68 roject level. Th
0a60: 65 6e 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 20 63 en we look for c
0a70: 79 63 6c 65 73 0a 09 23 20 69 6e 20 74 68 61 74 ycles..# in that
0a80: 20 67 72 61 70 68 20 61 6e 64 20 62 72 65 61 6b graph and break
0a90: 20 74 68 65 6d 2e 0a 0a 09 23 20 31 2e 20 43 72 them....# 1. Cr
0aa0: 65 61 74 65 20 6e 6f 64 65 73 20 66 6f 72 20 61 eate nodes for a
0ab0: 6c 6c 20 72 65 6c 65 76 61 6e 74 20 63 68 61 6e ll relevant chan
0ac0: 67 65 73 65 74 73 20 61 6e 64 20 61 20 6d 61 70 gesets and a map
0ad0: 70 69 6e 67 0a 09 23 20 20 20 20 66 72 6f 6d 20 ping..# from
0ae0: 74 68 65 20 72 65 76 69 73 69 6f 6e 73 20 74 6f the revisions to
0af0: 20 74 68 65 69 72 20 63 68 61 6e 67 65 73 65 74 their changeset
0b00: 73 2f 6e 6f 64 65 73 2e 0a 0a 09 73 65 74 20 63 s/nodes....set c
0b10: 68 61 6e 67 65 73 65 74 73 20 5b 75 70 6c 65 76 hangesets [uplev
0b20: 65 6c 20 23 30 20 24 63 68 61 6e 67 65 73 65 74 el #0 $changeset
0b30: 63 6d 64 5d 0a 09 73 65 74 20 64 67 20 5b 53 65 cmd]..set dg [Se
0b40: 74 75 70 20 24 63 68 61 6e 67 65 73 65 74 73 5d tup $changesets]
0b50: 0a 0a 09 23 20 33 2e 20 4c 61 73 74 6c 79 20 77 ...# 3. Lastly w
0b60: 65 20 69 74 65 72 61 74 65 20 74 68 65 20 67 72 e iterate the gr
0b70: 61 70 68 20 74 6f 70 6f 6c 6f 67 69 63 61 6c 6c aph topologicall
0b80: 79 2e 20 57 65 20 6d 61 72 6b 20 6f 66 66 0a 09 y. We mark off..
0b90: 23 20 20 20 20 74 68 65 20 6e 6f 64 65 73 20 77 # the nodes w
0ba0: 68 69 63 68 20 68 61 76 65 20 6e 6f 20 70 72 65 hich have no pre
0bb0: 64 65 63 65 73 73 6f 72 73 2c 20 69 6e 20 6f 72 decessors, in or
0bc0: 64 65 72 20 66 72 6f 6d 0a 09 23 20 20 20 20 6f der from..# o
0bd0: 6c 64 65 73 74 20 74 6f 20 79 6f 75 6e 67 65 73 ldest to younges
0be0: 74 2c 20 73 61 76 69 6e 67 20 61 6e 64 20 72 65 t, saving and re
0bf0: 6d 6f 76 69 6e 67 20 64 65 70 65 6e 64 65 6e 63 moving dependenc
0c00: 69 65 73 2e 20 49 66 0a 09 23 20 20 20 20 77 65 ies. If..# we
0c10: 20 66 69 6e 64 20 6e 6f 20 6e 6f 64 65 73 20 77 find no nodes w
0c20: 69 74 68 6f 75 74 20 70 72 65 64 65 63 65 73 73 ithout predecess
0c30: 6f 72 73 20 77 65 20 68 61 76 65 20 61 20 63 79 ors we have a cy
0c40: 63 6c 65 2c 0a 09 23 20 20 20 20 61 6e 64 20 77 cle,..# and w
0c50: 6f 72 6b 20 6f 6e 20 62 72 65 61 6b 69 6e 67 20 ork on breaking
0c60: 69 74 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 it....log write
0c70: 33 20 63 79 63 6c 65 62 72 65 61 6b 65 72 20 7b 3 cyclebreaker {
0c80: 4e 6f 77 20 73 6f 72 74 69 6e 67 20 74 68 65 20 Now sorting the
0c90: 63 68 61 6e 67 65 73 65 74 73 2c 20 62 72 65 61 changesets, brea
0ca0: 6b 69 6e 67 20 63 79 63 6c 65 73 7d 0a 0a 09 49 king cycles}...I
0cb0: 6e 69 74 69 61 6c 69 7a 65 43 61 6e 64 69 64 61 nitializeCandida
0cc0: 74 65 73 20 24 64 67 0a 09 77 68 69 6c 65 20 7b tes $dg..while {
0cd0: 31 7d 20 7b 0a 09 20 20 20 20 77 68 69 6c 65 20 1} {.. while
0ce0: 7b 5b 57 69 74 68 6f 75 74 50 72 65 64 65 63 65 {[WithoutPredece
0cf0: 73 73 6f 72 20 24 64 67 20 6e 5d 7d 20 7b 0a 09 ssor $dg n]} {..
0d00: 09 50 72 6f 63 65 73 73 65 64 48 6f 6f 6b 20 24 .ProcessedHook $
0d10: 64 67 20 24 6e 20 24 6d 79 61 74 0a 09 09 24 64 dg $n $myat...$d
0d20: 67 20 6e 6f 64 65 20 64 65 6c 65 74 65 20 24 6e g node delete $n
0d30: 0a 09 09 69 6e 63 72 20 6d 79 61 74 0a 09 09 53 ...incr myat...S
0d40: 68 6f 77 50 65 6e 64 69 6e 67 4e 6f 64 65 73 0a howPendingNodes.
0d50: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 . }... if
0d60: 7b 21 5b 6c 6c 65 6e 67 74 68 20 5b 64 67 20 6e {![llength [dg n
0d70: 6f 64 65 73 5d 5d 7d 20 62 72 65 61 6b 0a 0a 09 odes]]} break...
0d80: 20 20 20 20 42 72 65 61 6b 43 79 63 6c 65 48 6f BreakCycleHo
0d90: 6f 6b 20 20 20 20 20 20 20 24 64 67 0a 09 20 20 ok $dg..
0da0: 20 20 49 6e 69 74 69 61 6c 69 7a 65 43 61 6e 64 InitializeCand
0db0: 69 64 61 74 65 73 20 24 64 67 0a 09 7d 0a 0a 09 idates $dg..}...
0dc0: 24 64 67 20 64 65 73 74 72 6f 79 0a 0a 09 6c 6f $dg destroy...lo
0dd0: 67 20 77 72 69 74 65 20 33 20 63 79 63 6c 65 62 g write 3 cycleb
0de0: 72 65 61 6b 65 72 20 44 6f 6e 65 2e 0a 09 43 6c reaker Done...Cl
0df0: 65 61 72 48 6f 6f 6b 73 0a 0a 09 23 20 52 65 72 earHooks...# Rer
0e00: 65 61 64 20 74 68 65 20 67 72 61 70 68 20 61 6e ead the graph an
0e10: 64 20 64 75 6d 70 20 69 74 73 20 66 69 6e 61 6c d dump its final
0e20: 20 66 6f 72 6d 2c 20 69 66 20 67 72 61 70 68 20 form, if graph
0e30: 65 78 70 6f 72 74 0a 09 23 20 77 61 73 20 61 63 export..# was ac
0e40: 74 69 76 61 74 65 64 2e 0a 0a 09 3a 3a 76 61 72 tivated....::var
0e50: 69 61 62 6c 65 20 6d 79 64 6f 74 64 65 73 74 69 iable mydotdesti
0e60: 6e 61 74 69 6f 6e 0a 09 69 66 20 7b 24 6d 79 64 nation..if {$myd
0e70: 6f 74 64 65 73 74 69 6e 61 74 69 6f 6e 20 65 71 otdestination eq
0e80: 20 22 22 7d 20 72 65 74 75 72 6e 0a 0a 09 73 65 ""} return...se
0e90: 74 20 20 20 64 67 20 5b 53 65 74 75 70 20 5b 75 t dg [Setup [u
0ea0: 70 6c 65 76 65 6c 20 23 30 20 24 63 68 61 6e 67 plevel #0 $chang
0eb0: 65 73 65 74 63 6d 64 5d 20 30 5d 0a 09 4d 61 72 esetcmd] 0]..Mar
0ec0: 6b 20 24 64 67 20 2d 64 6f 6e 65 0a 09 24 64 67 k $dg -done..$dg
0ed0: 20 64 65 73 74 72 6f 79 0a 09 72 65 74 75 72 6e destroy..return
0ee0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
0ef0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
0f00: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0f10: 23 23 23 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 ###.. typemet
0f20: 68 6f 64 20 62 72 65 61 6b 20 7b 67 72 61 70 68 hod break {graph
0f30: 7d 20 7b 0a 09 42 72 65 61 6b 43 79 63 6c 65 20 } {..BreakCycle
0f40: 24 67 72 61 70 68 20 5b 46 69 6e 64 43 79 63 6c $graph [FindCycl
0f50: 65 20 24 67 72 61 70 68 5d 0a 09 72 65 74 75 72 e $graph]..retur
0f60: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 n. }.. typ
0f70: 65 6d 65 74 68 6f 64 20 72 65 70 6c 61 63 65 20 emethod replace
0f80: 7b 67 72 61 70 68 20 6e 20 72 65 70 6c 61 63 65 {graph n replace
0f90: 6d 65 6e 74 73 7d 20 7b 0a 09 52 65 70 6c 61 63 ments} {..Replac
0fa0: 65 20 24 67 72 61 70 68 20 24 6e 20 24 72 65 70 e $graph $n $rep
0fb0: 6c 61 63 65 6d 65 6e 74 73 0a 09 72 65 74 75 72 lacements..retur
0fc0: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 n. }.. # #
0fd0: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
0fe0: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
0ff0: 23 23 23 23 0a 20 20 20 20 23 23 20 49 6e 74 65 ####. ## Inte
1000: 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 rnal methods..
1010: 20 20 70 72 6f 63 20 53 65 74 75 70 20 7b 63 68 proc Setup {ch
1020: 61 6e 67 65 73 65 74 73 20 7b 6c 6f 67 20 31 7d angesets {log 1}
1030: 7d 20 7b 0a 09 69 66 20 7b 24 6c 6f 67 7d 20 7b } {..if {$log} {
1040: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
1050: 33 20 63 79 63 6c 65 62 72 65 61 6b 65 72 20 22 3 cyclebreaker "
1060: 43 72 65 61 74 69 6e 67 20 63 68 61 6e 67 65 73 Creating changes
1070: 65 74 20 67 72 61 70 68 2c 20 66 69 6c 6c 69 6e et graph, fillin
1080: 67 20 77 69 74 68 20 6e 6f 64 65 73 22 0a 09 20 g with nodes"..
1090: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 33 20 63 log write 3 c
10a0: 79 63 6c 65 62 72 65 61 6b 65 72 20 22 41 64 64 yclebreaker "Add
10b0: 69 6e 67 20 5b 6e 73 70 20 5b 6c 6c 65 6e 67 74 ing [nsp [llengt
10c0: 68 20 24 63 68 61 6e 67 65 73 65 74 73 5d 20 6e h $changesets] n
10d0: 6f 64 65 5d 22 0a 09 7d 0a 0a 09 73 65 74 20 64 ode]"..}...set d
10e0: 67 20 5b 73 74 72 75 63 74 3a 3a 67 72 61 70 68 g [struct::graph
10f0: 20 64 67 5d 0a 0a 09 66 6f 72 65 61 63 68 20 63 dg]...foreach c
1100: 73 65 74 20 24 63 68 61 6e 67 65 73 65 74 73 20 set $changesets
1110: 7b 0a 09 20 20 20 20 24 64 67 20 6e 6f 64 65 20 {.. $dg node
1120: 69 6e 73 65 72 74 20 24 63 73 65 74 0a 09 20 20 insert $cset..
1130: 20 20 24 64 67 20 6e 6f 64 65 20 73 65 74 20 20 $dg node set
1140: 20 20 24 63 73 65 74 20 74 69 6d 65 72 61 6e 67 $cset timerang
1150: 65 20 5b 24 63 73 65 74 20 74 69 6d 65 72 61 6e e [$cset timeran
1160: 67 65 5d 0a 09 20 20 20 20 24 64 67 20 6e 6f 64 ge].. $dg nod
1170: 65 20 73 65 74 20 20 20 20 24 63 73 65 74 20 6c e set $cset l
1180: 61 62 65 6c 20 20 20 20 20 5b 49 44 20 24 63 73 abel [ID $cs
1190: 65 74 5d 0a 09 20 20 20 20 24 64 67 20 6e 6f 64 et].. $dg nod
11a0: 65 20 73 65 74 20 20 20 20 24 63 73 65 74 20 5f e set $cset _
11b0: 5f 69 64 5f 5f 20 20 20 20 5b 24 63 73 65 74 20 _id__ [$cset
11c0: 69 64 5d 0a 09 7d 0a 0a 09 23 20 32 2e 20 46 69 id]..}...# 2. Fi
11d0: 6e 64 20 66 6f 72 20 61 6c 6c 20 72 65 6c 65 76 nd for all relev
11e0: 61 6e 74 20 63 68 61 6e 67 65 73 65 74 20 74 68 ant changeset th
11f0: 65 69 72 20 72 65 76 69 73 69 6f 6e 73 20 61 6e eir revisions an
1200: 64 20 74 68 65 69 72 0a 09 23 20 20 20 20 64 65 d their..# de
1210: 70 65 6e 64 65 6e 63 69 65 73 2e 20 4d 61 70 20 pendencies. Map
1220: 74 68 65 20 6c 61 74 74 65 72 20 62 61 63 6b 20 the latter back
1230: 74 6f 20 63 68 61 6e 67 65 73 65 74 73 20 61 6e to changesets an
1240: 64 0a 09 23 20 20 20 20 63 6f 6e 73 74 72 75 63 d..# construc
1250: 74 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 t the correspond
1260: 69 6e 67 20 61 72 63 73 2e 0a 0a 09 69 66 20 7b ing arcs....if {
1270: 24 6c 6f 67 7d 20 7b 0a 09 20 20 20 20 6c 6f 67 $log} {.. log
1280: 20 77 72 69 74 65 20 33 20 63 79 63 6c 65 62 72 write 3 cyclebr
1290: 65 61 6b 65 72 20 7b 53 65 74 74 69 6e 67 20 75 eaker {Setting u
12a0: 70 20 6e 6f 64 65 20 64 65 70 65 6e 64 65 6e 63 p node dependenc
12b0: 69 65 73 7d 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 ies}..}...foreac
12c0: 68 20 63 73 65 74 20 24 63 68 61 6e 67 65 73 65 h cset $changese
12d0: 74 73 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 ts {.. foreac
12e0: 68 20 73 75 63 63 20 5b 24 63 73 65 74 20 73 75 h succ [$cset su
12f0: 63 63 65 73 73 6f 72 73 5d 20 7b 0a 09 09 23 20 ccessors] {...#
1300: 43 68 61 6e 67 65 73 65 74 73 20 6d 61 79 20 68 Changesets may h
1310: 61 76 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 ave dependencies
1320: 20 6f 75 74 73 69 64 65 20 6f 66 20 74 68 65 0a outside of the.
1330: 09 09 23 20 63 68 6f 73 65 6e 20 73 65 74 2e 20 ..# chosen set.
1340: 54 68 65 73 65 20 61 72 65 20 69 67 6e 6f 72 65 These are ignore
1350: 64 0a 09 09 69 66 20 7b 21 5b 24 64 67 20 6e 6f d...if {![$dg no
1360: 64 65 20 65 78 69 73 74 73 20 24 73 75 63 63 5d de exists $succ]
1370: 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 24 64 67 } continue...$dg
1380: 20 61 72 63 20 69 6e 73 65 72 74 20 24 63 73 65 arc insert $cse
1390: 74 20 24 73 75 63 63 0a 09 20 20 20 20 7d 0a 09 t $succ.. }..
13a0: 7d 0a 0a 09 23 20 52 75 6e 20 74 68 65 20 75 73 }...# Run the us
13b0: 65 72 20 68 6f 6f 6b 20 74 6f 20 6d 61 6e 69 70 er hook to manip
13c0: 75 6c 61 74 65 20 74 68 65 20 67 72 61 70 68 20 ulate the graph
13d0: 62 65 66 6f 72 65 0a 09 23 20 63 6f 6e 73 75 6d before..# consum
13e0: 6d 61 74 69 6f 6e 2e 0a 0a 09 69 66 20 7b 24 6c mation....if {$l
13f0: 6f 67 7d 20 7b 20 4d 61 72 6b 20 24 64 67 20 2d og} { Mark $dg -
1400: 73 74 61 72 74 20 7d 0a 09 50 72 65 48 6f 6f 6b start }..PreHook
1410: 20 24 64 67 0a 09 72 65 74 75 72 6e 20 20 24 64 $dg..return $d
1420: 67 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 49 g. }.. # I
1430: 6e 73 74 65 61 64 20 6f 66 20 73 65 61 72 63 68 nstead of search
1440: 69 6e 67 20 74 68 65 20 77 68 6f 6c 65 20 67 72 ing the whole gr
1450: 61 70 68 20 66 6f 72 20 74 68 65 20 64 65 67 72 aph for the degr
1460: 65 65 2d 30 20 6e 6f 64 65 73 20 69 6e 0a 20 20 ee-0 nodes in.
1470: 20 20 23 20 65 61 63 68 20 69 74 65 72 61 74 69 # each iterati
1480: 6f 6e 20 77 65 20 63 6f 6d 70 75 74 65 20 74 68 on we compute th
1490: 65 20 6c 69 73 74 20 6f 6e 63 65 20 74 6f 20 73 e list once to s
14a0: 74 61 72 74 2c 20 61 6e 64 20 74 68 65 6e 20 6f tart, and then o
14b0: 6e 6c 79 0a 20 20 20 20 23 20 75 70 64 61 74 65 nly. # update
14c0: 20 69 74 20 69 6e 63 72 65 6d 65 6e 74 61 6c 6c it incrementall
14d0: 79 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 6f y based on the o
14e0: 75 74 67 6f 69 6e 67 20 6e 65 69 67 68 62 6f 75 utgoing neighbou
14f0: 72 73 20 6f 66 20 74 68 65 0a 20 20 20 20 23 20 rs of the. #
1500: 6e 6f 64 65 20 63 68 6f 73 65 6e 20 66 6f 72 20 node chosen for
1510: 63 6f 6d 6d 69 74 2e 0a 0a 20 20 20 20 70 72 6f commit... pro
1520: 63 20 49 6e 69 74 69 61 6c 69 7a 65 43 61 6e 64 c InitializeCand
1530: 69 64 61 74 65 73 20 7b 64 67 7d 20 7b 0a 09 23 idates {dg} {..#
1540: 20 62 6f 74 74 6f 6d 20 3d 20 6c 69 73 74 20 28 bottom = list (
1550: 6c 69 73 74 20 28 6e 6f 64 65 2c 20 72 61 6e 67 list (node, rang
1560: 65 20 6d 69 6e 2c 20 72 61 6e 67 65 20 6d 61 78 e min, range max
1570: 29 29 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d ))..::variable m
1580: 79 62 6f 74 74 6f 6d 0a 09 66 6f 72 65 61 63 68 ybottom..foreach
1590: 20 6e 20 5b 24 64 67 20 6e 6f 64 65 73 5d 20 7b n [$dg nodes] {
15a0: 0a 09 20 20 20 20 69 66 20 7b 5b 24 64 67 20 6e .. if {[$dg n
15b0: 6f 64 65 20 64 65 67 72 65 65 20 2d 69 6e 20 24 ode degree -in $
15c0: 6e 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 20 20 n]} continue..
15d0: 20 20 6c 61 70 70 65 6e 64 20 6d 79 62 6f 74 74 lappend mybott
15e0: 6f 6d 20 5b 6c 69 6e 73 65 72 74 20 5b 24 64 67 om [linsert [$dg
15f0: 20 6e 6f 64 65 20 67 65 74 20 24 6e 20 74 69 6d node get $n tim
1600: 65 72 61 6e 67 65 5d 20 30 20 24 6e 5d 0a 09 7d erange] 0 $n]..}
1610: 0a 09 73 65 74 20 6d 79 62 6f 74 74 6f 6d 20 5b ..set mybottom [
1620: 6c 73 6f 72 74 20 2d 69 6e 64 65 78 20 31 20 2d lsort -index 1 -
1630: 69 6e 74 65 67 65 72 20 5b 6c 73 6f 72 74 20 2d integer [lsort -
1640: 69 6e 64 65 78 20 32 20 2d 69 6e 74 65 67 65 72 index 2 -integer
1650: 20 24 6d 79 62 6f 74 74 6f 6d 5d 5d 0a 09 53 68 $mybottom]]..Sh
1660: 6f 77 50 65 6e 64 69 6e 67 4e 6f 64 65 73 0a 09 owPendingNodes..
1670: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
1680: 20 20 70 72 6f 63 20 57 69 74 68 6f 75 74 50 72 proc WithoutPr
1690: 65 64 65 63 65 73 73 6f 72 20 7b 64 67 20 6e 76 edecessor {dg nv
16a0: 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 } {..::variable
16b0: 6d 79 62 6f 74 74 6f 6d 0a 0a 09 75 70 76 61 72 mybottom...upvar
16c0: 20 31 20 24 6e 76 20 6e 0a 09 69 66 20 7b 21 5b 1 $nv n..if {![
16d0: 6c 6c 65 6e 67 74 68 20 24 6d 79 62 6f 74 74 6f llength $mybotto
16e0: 6d 5d 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d m]} { return 0 }
16f0: 0a 0a 09 73 65 74 20 6e 20 5b 6c 69 6e 64 65 78 ...set n [lindex
1700: 20 5b 6c 69 6e 64 65 78 20 24 6d 79 62 6f 74 74 [lindex $mybott
1710: 6f 6d 20 30 5d 20 30 5d 0a 09 73 65 74 20 6d 79 om 0] 0]..set my
1720: 62 6f 74 74 6f 6d 20 5b 6c 72 61 6e 67 65 20 24 bottom [lrange $
1730: 6d 79 62 6f 74 74 6f 6d 20 31 20 65 6e 64 5d 0a mybottom 1 end].
1740: 09 73 65 74 20 63 68 61 6e 67 65 64 20 30 0a 0a .set changed 0..
1750: 09 23 20 55 70 64 61 74 65 20 6c 69 73 74 20 6f .# Update list o
1760: 66 20 6e 6f 64 65 73 20 77 69 74 68 6f 75 74 20 f nodes without
1770: 70 72 65 64 65 63 65 73 73 6f 72 2c 20 62 61 73 predecessor, bas
1780: 65 64 20 6f 6e 20 74 68 65 0a 09 23 20 6f 75 74 ed on the..# out
1790: 67 6f 69 6e 67 20 6e 65 69 67 68 62 6f 75 72 73 going neighbours
17a0: 20 6f 66 20 74 68 65 20 63 68 6f 73 65 6e 20 6e of the chosen n
17b0: 6f 64 65 2e 20 54 68 69 73 20 73 68 6f 75 6c 64 ode. This should
17c0: 20 62 65 0a 09 23 20 66 61 73 74 65 72 20 74 68 be..# faster th
17d0: 61 6e 20 69 74 65 72 61 74 69 6e 67 20 6f 66 20 an iterating of
17e0: 74 68 65 20 77 68 6f 6c 65 20 73 65 74 20 6f 66 the whole set of
17f0: 20 6e 6f 64 65 73 2c 20 66 69 6e 64 69 6e 67 20 nodes, finding
1800: 61 6c 6c 0a 09 23 20 77 69 74 68 6f 75 74 20 70 all..# without p
1810: 72 65 64 65 63 65 73 73 6f 72 73 2c 20 73 6f 72 redecessors, sor
1820: 74 69 6e 67 20 74 68 65 6d 20 62 79 20 74 69 6d ting them by tim
1830: 65 2c 20 65 74 63 2e 20 70 70 2e 0a 09 66 6f 72 e, etc. pp...for
1840: 65 61 63 68 20 6f 75 74 20 5b 24 64 67 20 6e 6f each out [$dg no
1850: 64 65 73 20 2d 6f 75 74 20 24 6e 5d 20 7b 0a 09 des -out $n] {..
1860: 20 20 20 20 69 66 20 7b 5b 24 64 67 20 6e 6f 64 if {[$dg nod
1870: 65 20 64 65 67 72 65 65 20 2d 69 6e 20 24 6f 75 e degree -in $ou
1880: 74 5d 20 3e 20 31 7d 20 63 6f 6e 74 69 6e 75 65 t] > 1} continue
1890: 0a 09 20 20 20 20 23 20 44 65 67 72 65 65 2d 31 .. # Degree-1
18a0: 20 6e 65 69 67 68 62 6f 75 72 2c 20 77 69 6c 6c neighbour, will
18b0: 20 68 61 76 65 20 6e 6f 20 70 72 65 64 65 63 65 have no predece
18c0: 73 73 6f 72 73 20 61 66 74 65 72 20 74 68 65 0a ssors after the.
18d0: 09 20 20 20 20 23 20 72 65 6d 6f 76 61 6c 20 6f . # removal o
18e0: 66 20 6e 2e 20 50 75 74 20 6f 6e 20 74 68 65 20 f n. Put on the
18f0: 6c 69 73 74 2e 0a 09 20 20 20 20 6c 61 70 70 65 list... lappe
1900: 6e 64 20 6d 79 62 6f 74 74 6f 6d 20 5b 6c 69 6e nd mybottom [lin
1910: 73 65 72 74 20 5b 24 64 67 20 6e 6f 64 65 20 67 sert [$dg node g
1920: 65 74 20 24 6f 75 74 20 74 69 6d 65 72 61 6e 67 et $out timerang
1930: 65 5d 20 30 20 24 6f 75 74 5d 0a 09 20 20 20 20 e] 0 $out]..
1940: 73 65 74 20 63 68 61 6e 67 65 64 20 31 0a 09 7d set changed 1..}
1950: 0a 09 69 66 20 7b 24 63 68 61 6e 67 65 64 7d 20 ..if {$changed}
1960: 7b 0a 09 20 20 20 20 73 65 74 20 6d 79 62 6f 74 {.. set mybot
1970: 74 6f 6d 20 5b 6c 73 6f 72 74 20 2d 69 6e 64 65 tom [lsort -inde
1980: 78 20 31 20 2d 69 6e 74 65 67 65 72 20 5b 6c 73 x 1 -integer [ls
1990: 6f 72 74 20 2d 69 6e 64 65 78 20 32 20 2d 69 6e ort -index 2 -in
19a0: 74 65 67 65 72 20 24 6d 79 62 6f 74 74 6f 6d 5d teger $mybottom]
19b0: 5d 0a 09 7d 0a 0a 09 23 20 57 65 20 64 6f 20 6e ]..}...# We do n
19c0: 6f 74 20 64 65 6c 65 74 65 20 74 68 65 20 6e 6f ot delete the no
19d0: 64 65 20 69 6d 6d 65 64 69 61 74 65 6c 79 2c 20 de immediately,
19e0: 74 6f 20 61 6c 6c 6f 77 20 74 68 65 20 53 61 76 to allow the Sav
19f0: 65 0a 09 23 20 70 72 6f 63 65 64 75 72 65 20 74 e..# procedure t
1a00: 6f 20 73 61 76 65 20 74 68 65 20 64 65 70 65 6e o save the depen
1a10: 64 65 6e 63 69 65 73 20 61 73 20 77 65 6c 6c 20 dencies as well
1a20: 28 65 6e 63 6f 64 65 64 20 69 6e 20 74 68 65 0a (encoded in the.
1a30: 09 23 20 61 72 63 73 29 2e 0a 09 72 65 74 75 72 .# arcs)...retur
1a40: 6e 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 n 1. }.. p
1a50: 72 6f 63 20 53 68 6f 77 50 65 6e 64 69 6e 67 4e roc ShowPendingN
1a60: 6f 64 65 73 20 7b 7d 20 7b 0a 09 69 66 20 7b 5b odes {} {..if {[
1a70: 6c 6f 67 20 76 65 72 62 6f 73 69 74 79 3f 5d 20 log verbosity?]
1a80: 3c 20 31 30 7d 20 72 65 74 75 72 6e 0a 09 3a 3a < 10} return..::
1a90: 76 61 72 69 61 62 6c 65 20 6d 79 62 6f 74 74 6f variable mybotto
1aa0: 6d 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 30 20 m..log write 10
1ab0: 63 79 63 6c 65 62 72 65 61 6b 65 72 20 5c 0a 09 cyclebreaker \..
1ac0: 20 20 20 20 22 50 65 6e 64 69 6e 67 3a 20 5b 73 "Pending: [s
1ad0: 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 truct::list map
1ae0: 24 6d 79 62 6f 74 74 6f 6d 20 5b 6d 79 70 72 6f $mybottom [mypro
1af0: 63 20 46 6f 72 6d 61 74 50 65 6e 64 69 6e 67 49 c FormatPendingI
1b00: 74 65 6d 5d 5d 22 0a 09 72 65 74 75 72 6e 0a 20 tem]]"..return.
1b10: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 46 }.. proc F
1b20: 6f 72 6d 61 74 50 65 6e 64 69 6e 67 49 74 65 6d ormatPendingItem
1b30: 20 7b 69 74 65 6d 7d 20 7b 20 6c 72 65 70 6c 61 {item} { lrepla
1b40: 63 65 20 24 69 74 65 6d 20 30 20 30 20 3c 5b 5b ce $item 0 0 <[[
1b50: 6c 69 6e 64 65 78 20 24 69 74 65 6d 20 30 5d 20 lindex $item 0]
1b60: 69 64 5d 3e 20 7d 0a 0a 20 20 20 20 70 72 6f 63 id]> }.. proc
1b70: 20 46 69 6e 64 43 79 63 6c 65 20 7b 64 67 7d 20 FindCycle {dg}
1b80: 7b 0a 09 23 20 54 68 69 73 20 70 72 6f 63 65 64 {..# This proced
1b90: 75 72 65 20 69 73 20 72 75 6e 20 69 66 20 61 6e ure is run if an
1ba0: 64 20 6f 6e 6c 79 20 74 68 65 20 67 72 61 70 68 d only the graph
1bb0: 20 69 73 20 6e 6f 74 20 65 6d 70 74 79 20 61 6e is not empty an
1bc0: 64 0a 09 23 20 61 6c 6c 20 6e 6f 64 65 73 20 68 d..# all nodes h
1bd0: 61 76 65 20 70 72 65 64 65 63 65 73 73 6f 72 73 ave predecessors
1be0: 2e 20 54 68 69 73 20 6d 65 61 6e 73 20 74 68 61 . This means tha
1bf0: 74 20 65 61 63 68 20 6e 6f 64 65 20 69 73 0a 09 t each node is..
1c00: 23 20 65 69 74 68 65 72 20 70 61 72 74 20 6f 66 # either part of
1c10: 20 61 20 63 79 63 6c 65 20 6f 72 20 28 69 6e 64 a cycle or (ind
1c20: 69 72 65 63 74 6c 79 29 20 64 65 70 65 6e 64 69 irectly) dependi
1c30: 6e 67 20 6f 6e 20 61 20 6e 6f 64 65 0a 09 23 20 ng on a node..#
1c40: 69 6e 20 61 20 63 79 63 6c 65 2e 20 57 65 20 63 in a cycle. We c
1c50: 61 6e 20 73 74 61 72 74 20 61 74 20 61 6e 20 61 an start at an a
1c60: 72 62 69 74 72 61 72 79 20 6e 6f 64 65 2c 20 66 rbitrary node, f
1c70: 6f 6c 6c 6f 77 20 69 74 73 0a 09 23 20 69 6e 63 ollow its..# inc
1c80: 6f 6d 69 6e 67 20 65 64 67 65 73 20 74 6f 20 69 oming edges to i
1c90: 74 73 20 70 72 65 64 65 63 65 73 73 6f 72 73 20 ts predecessors
1ca0: 75 6e 74 69 6c 20 77 65 20 73 65 65 20 61 20 6e until we see a n
1cb0: 6f 64 65 20 61 0a 09 23 20 73 65 63 6f 6e 64 20 ode a..# second
1cc0: 74 69 6d 65 2e 20 54 68 61 74 20 6e 6f 64 65 20 time. That node
1cd0: 63 6c 6f 73 65 73 20 74 68 65 20 63 79 63 6c 65 closes the cycle
1ce0: 20 61 6e 64 20 74 68 65 20 62 65 67 69 6e 6e 69 and the beginni
1cf0: 6e 67 20 69 73 0a 09 23 20 69 74 73 20 66 69 72 ng is..# its fir
1d00: 73 74 20 6f 63 63 75 72 65 6e 63 65 2e 20 4e 6f st occurence. No
1d10: 74 65 20 74 68 61 74 20 77 65 20 63 61 6e 20 63 te that we can c
1d20: 68 6f 6f 73 65 20 61 6e 20 61 72 62 69 74 72 61 hoose an arbitra
1d30: 72 79 0a 09 23 20 70 72 65 64 65 63 65 73 73 6f ry..# predecesso
1d40: 72 20 6f 66 20 65 61 63 68 20 6e 6f 64 65 20 61 r of each node a
1d50: 73 20 77 65 6c 6c 2c 20 77 65 20 64 6f 20 6e 6f s well, we do no
1d60: 74 20 68 61 76 65 20 74 6f 20 73 65 61 72 63 68 t have to search
1d70: 2e 0a 0a 09 23 20 57 65 20 72 65 63 6f 72 64 20 ....# We record
1d80: 66 6f 72 20 65 61 63 68 20 6e 6f 64 65 20 74 68 for each node th
1d90: 65 20 69 6e 64 65 78 20 6f 66 20 74 68 65 20 66 e index of the f
1da0: 69 72 73 74 20 61 70 70 65 61 72 61 6e 63 65 20 irst appearance
1db0: 69 6e 0a 09 23 20 74 68 65 20 70 61 74 68 2c 20 in..# the path,
1dc0: 6d 61 6b 69 6e 67 20 69 74 20 65 61 73 79 20 61 making it easy a
1dd0: 74 20 74 68 65 20 65 6e 64 20 74 6f 20 63 75 74 t the end to cut
1de0: 20 74 68 65 20 63 79 63 6c 65 20 66 72 6f 6d 0a the cycle from.
1df0: 09 23 20 69 74 2e 0a 0a 09 23 20 43 68 6f 6f 73 .# it....# Choos
1e00: 65 20 61 72 62 69 74 72 61 72 79 20 6e 6f 64 65 e arbitrary node
1e10: 20 74 6f 20 73 74 61 72 74 20 6f 75 72 20 73 65 to start our se
1e20: 61 72 63 68 20 61 74 2e 0a 09 73 65 74 20 73 74 arch at...set st
1e30: 61 72 74 20 5b 6c 69 6e 64 65 78 20 5b 24 64 67 art [lindex [$dg
1e40: 20 6e 6f 64 65 73 5d 20 30 5d 0a 0a 09 23 20 49 nodes] 0]...# I
1e50: 6e 69 74 69 61 6c 69 7a 65 20 73 74 61 74 65 2c nitialize state,
1e60: 20 70 61 74 68 20 6f 66 20 73 65 65 6e 20 6e 6f path of seen no
1e70: 64 65 73 2c 20 61 6e 64 20 77 68 65 6e 20 73 65 des, and when se
1e80: 65 6e 2e 0a 09 73 65 74 20 20 20 20 20 20 20 70 en...set p
1e90: 61 74 68 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 ath {}..array se
1ea0: 74 20 73 65 65 6e 20 7b 7d 0a 0a 09 77 68 69 6c t seen {}...whil
1eb0: 65 20 7b 31 7d 20 7b 0a 09 20 20 20 20 23 20 53 e {1} {.. # S
1ec0: 74 6f 70 20 73 65 61 72 63 68 69 6e 67 20 77 68 top searching wh
1ed0: 65 6e 20 77 65 20 68 61 76 65 20 73 65 65 6e 20 en we have seen
1ee0: 74 68 65 20 63 75 72 72 65 6e 74 20 6e 6f 64 65 the current node
1ef0: 0a 09 20 20 20 20 23 20 61 6c 72 65 61 64 79 2c .. # already,
1f00: 20 74 68 65 20 63 69 72 63 6c 65 20 68 61 73 20 the circle has
1f10: 62 65 65 6e 20 63 6c 6f 73 65 64 2e 0a 09 20 20 been closed...
1f20: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
1f30: 74 73 20 73 65 65 6e 28 24 73 74 61 72 74 29 5d ts seen($start)]
1f40: 7d 20 62 72 65 61 6b 0a 09 20 20 20 20 6c 61 70 } break.. lap
1f50: 70 65 6e 64 20 70 61 74 68 20 24 73 74 61 72 74 pend path $start
1f60: 0a 09 20 20 20 20 73 65 74 20 73 65 65 6e 28 24 .. set seen($
1f70: 73 74 61 72 74 29 20 5b 65 78 70 72 20 7b 5b 6c start) [expr {[l
1f80: 6c 65 6e 67 74 68 20 24 70 61 74 68 5d 2d 31 7d length $path]-1}
1f90: 5d 0a 09 20 20 20 20 23 20 43 68 6f 6f 73 65 20 ].. # Choose
1fa0: 61 72 62 69 74 72 61 72 79 20 70 72 65 64 65 63 arbitrary predec
1fb0: 65 73 73 6f 72 0a 09 20 20 20 20 73 65 74 20 73 essor.. set s
1fc0: 74 61 72 74 20 5b 6c 69 6e 64 65 78 20 5b 24 64 tart [lindex [$d
1fd0: 67 20 6e 6f 64 65 73 20 2d 69 6e 20 24 73 74 61 g nodes -in $sta
1fe0: 72 74 5d 20 30 5d 0a 09 7d 0a 0a 09 72 65 74 75 rt] 0]..}...retu
1ff0: 72 6e 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 rn [struct::list
2000: 20 72 65 76 65 72 73 65 20 5b 6c 72 61 6e 67 65 reverse [lrange
2010: 20 24 70 61 74 68 20 24 73 65 65 6e 28 24 73 74 $path $seen($st
2020: 61 72 74 29 20 65 6e 64 5d 5d 0a 20 20 20 20 7d art) end]]. }
2030: 0a 0a 20 20 20 20 70 72 6f 63 20 49 44 20 7b 63 .. proc ID {c
2040: 73 65 74 7d 20 7b 20 72 65 74 75 72 6e 20 22 3c set} { return "<
2050: 5b 24 63 73 65 74 20 69 64 5d 3e 22 20 7d 0a 0a [$cset id]>" }..
2060: 20 20 20 20 70 72 6f 63 20 42 72 65 61 6b 43 79 proc BreakCy
2070: 63 6c 65 20 7b 64 67 20 63 79 63 6c 65 7d 20 7b cle {dg cycle} {
2080: 0a 09 23 20 54 68 65 20 63 79 63 6c 65 20 77 65 ..# The cycle we
2090: 20 68 61 76 65 20 67 6f 74 74 65 6e 20 69 73 20 have gotten is
20a0: 62 72 6f 6b 65 6e 20 62 79 20 62 72 65 61 6b 69 broken by breaki
20b0: 6e 67 20 61 70 61 72 74 20 6f 6e 65 20 6f 72 0a ng apart one or.
20c0: 09 23 20 6d 6f 72 65 20 6f 66 20 74 68 65 20 63 .# more of the c
20d0: 68 61 6e 67 65 73 65 74 73 20 69 6e 20 74 68 65 hangesets in the
20e0: 20 63 79 63 6c 65 2e 20 54 68 69 73 20 63 61 75 cycle. This cau
20f0: 73 65 73 20 75 73 20 74 6f 0a 09 23 20 63 72 65 ses us to..# cre
2100: 61 74 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 ate one or more
2110: 63 68 61 6e 67 65 73 65 74 73 20 77 68 69 63 68 changesets which
2120: 20 61 72 65 20 74 6f 20 62 65 20 63 6f 6d 6d 69 are to be commi
2130: 74 74 65 64 2c 0a 09 23 20 61 64 64 65 64 20 74 tted,..# added t
2140: 6f 20 74 68 65 20 67 72 61 70 68 2c 20 65 74 63 o the graph, etc
2150: 2e 20 70 70 2e 0a 0a 09 73 65 74 20 63 70 72 69 . pp....set cpri
2160: 6e 74 20 5b 6a 6f 69 6e 20 5b 73 74 72 75 63 74 nt [join [struct
2170: 3a 3a 6c 69 73 74 20 6d 61 70 20 24 63 79 63 6c ::list map $cycl
2180: 65 20 5b 6d 79 70 72 6f 63 20 49 44 5d 5d 20 7b e [myproc ID]] {
2190: 20 7d 5d 0a 0a 09 6c 61 70 70 65 6e 64 20 63 79 }]...lappend cy
21a0: 63 6c 65 20 5b 6c 69 6e 64 65 78 20 24 63 79 63 cle [lindex $cyc
21b0: 6c 65 20 30 5d 20 5b 6c 69 6e 64 65 78 20 24 63 le 0] [lindex $c
21c0: 79 63 6c 65 20 31 5d 0a 09 73 65 74 20 62 65 73 ycle 1]..set bes
21d0: 74 6c 69 6e 6b 20 7b 7d 0a 09 73 65 74 20 62 65 tlink {}..set be
21e0: 73 74 6e 6f 64 65 20 7b 7d 0a 0a 09 66 6f 72 65 stnode {}...fore
21f0: 61 63 68 20 5c 0a 09 20 20 20 20 70 72 65 76 20 ach \.. prev
2200: 5b 6c 72 61 6e 67 65 20 24 63 79 63 6c 65 20 30 [lrange $cycle 0
2210: 20 65 6e 64 2d 32 5d 20 5c 0a 09 20 20 20 20 63 end-2] \.. c
2220: 73 65 74 20 5b 6c 72 61 6e 67 65 20 24 63 79 63 set [lrange $cyc
2230: 6c 65 20 31 20 65 6e 64 2d 31 5d 20 5c 0a 09 20 le 1 end-1] \..
2240: 20 20 20 6e 65 78 74 20 5b 6c 72 61 6e 67 65 20 next [lrange
2250: 24 63 79 63 6c 65 20 32 20 65 6e 64 5d 20 7b 0a $cycle 2 end] {.
2260: 0a 09 09 23 20 45 61 63 68 20 74 72 69 70 6c 65 ...# Each triple
2270: 20 50 52 45 56 20 2d 3e 20 43 53 45 54 20 2d 3e PREV -> CSET ->
2280: 20 4e 45 58 54 20 6f 66 20 63 68 61 6e 67 65 73 NEXT of changes
2290: 65 74 73 2c 20 61 0a 09 09 23 20 27 6c 69 6e 6b ets, a...# 'link
22a0: 27 20 69 6e 20 74 68 65 20 63 79 63 6c 65 2c 20 ' in the cycle,
22b0: 69 73 20 61 6e 61 6c 79 73 65 64 20 61 6e 64 20 is analysed and
22c0: 74 68 65 20 62 65 73 74 0a 09 09 23 20 6c 6f 63 the best...# loc
22d0: 61 74 69 6f 6e 20 77 68 65 72 65 20 74 6f 20 61 ation where to a
22e0: 74 20 6c 65 61 73 74 20 77 65 61 6b 65 6e 20 74 t least weaken t
22f0: 68 65 20 63 79 63 6c 65 20 69 73 0a 09 09 23 20 he cycle is...#
2300: 63 68 6f 73 65 6e 20 66 6f 72 20 66 75 72 74 68 chosen for furth
2310: 65 72 20 70 72 6f 63 65 73 73 69 6e 67 2e 0a 0a er processing...
2320: 09 09 73 65 74 20 6c 69 6e 6b 20 5b 70 72 6f 6a ..set link [proj
2330: 65 63 74 3a 3a 72 65 76 6c 69 6e 6b 20 25 41 55 ect::revlink %AU
2340: 54 4f 25 20 24 70 72 65 76 20 24 63 73 65 74 20 TO% $prev $cset
2350: 24 6e 65 78 74 5d 0a 09 09 69 66 20 7b 24 62 65 $next]...if {$be
2360: 73 74 6c 69 6e 6b 20 65 71 20 22 22 7d 20 7b 0a stlink eq ""} {.
2370: 09 09 20 20 20 20 73 65 74 20 62 65 73 74 6c 69 .. set bestli
2380: 6e 6b 20 24 6c 69 6e 6b 0a 09 09 20 20 20 20 73 nk $link... s
2390: 65 74 20 62 65 73 74 6e 6f 64 65 20 24 63 73 65 et bestnode $cse
23a0: 74 0a 09 09 7d 20 65 6c 73 65 69 66 20 7b 5b 24 t...} elseif {[$
23b0: 6c 69 6e 6b 20 62 65 74 74 65 72 74 68 61 6e 20 link betterthan
23c0: 24 62 65 73 74 6c 69 6e 6b 5d 7d 20 7b 0a 09 09 $bestlink]} {...
23d0: 20 20 20 20 24 62 65 73 74 6c 69 6e 6b 20 64 65 $bestlink de
23e0: 73 74 72 6f 79 0a 09 09 20 20 20 20 73 65 74 20 stroy... set
23f0: 62 65 73 74 6c 69 6e 6b 20 24 6c 69 6e 6b 0a 09 bestlink $link..
2400: 09 20 20 20 20 73 65 74 20 62 65 73 74 6e 6f 64 . set bestnod
2410: 65 20 24 63 73 65 74 0a 09 09 7d 20 65 6c 73 65 e $cset...} else
2420: 20 7b 0a 09 09 20 20 20 20 24 6c 69 6e 6b 20 64 {... $link d
2430: 65 73 74 72 6f 79 0a 09 09 7d 0a 09 20 20 20 20 estroy...}..
2440: 7d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 35 20 }...log write 5
2450: 63 79 63 6c 65 62 72 65 61 6b 65 72 20 22 42 72 cyclebreaker "Br
2460: 65 61 6b 69 6e 67 20 63 79 63 6c 65 20 28 24 63 eaking cycle ($c
2470: 70 72 69 6e 74 29 20 62 79 20 73 70 6c 69 74 74 print) by splitt
2480: 69 6e 67 20 63 68 61 6e 67 65 73 65 74 20 3c 5b ing changeset <[
2490: 24 62 65 73 74 6e 6f 64 65 20 69 64 5d 3e 22 0a $bestnode id]>".
24a0: 09 73 65 74 20 49 44 20 5b 24 62 65 73 74 6e 6f .set ID [$bestno
24b0: 64 65 20 69 64 5d 0a 09 4d 61 72 6b 20 24 64 67 de id]..Mark $dg
24c0: 20 2d 24 7b 49 44 7d 2d 62 65 66 6f 72 65 0a 0a -${ID}-before..
24d0: 09 73 65 74 20 6e 65 77 63 73 65 74 73 20 5b 24 .set newcsets [$
24e0: 62 65 73 74 6c 69 6e 6b 20 62 72 65 61 6b 5d 0a bestlink break].
24f0: 09 24 62 65 73 74 6c 69 6e 6b 20 64 65 73 74 72 .$bestlink destr
2500: 6f 79 0a 0a 20 20 20 20 20 20 20 20 23 20 41 74 oy.. # At
2510: 20 74 68 69 73 20 70 6f 69 6e 74 20 74 68 65 20 this point the
2520: 6f 6c 64 20 63 68 61 6e 67 65 73 65 74 20 28 42 old changeset (B
2530: 45 53 54 4e 4f 44 45 29 20 69 73 20 67 6f 6e 65 ESTNODE) is gone
2540: 0a 20 20 20 20 20 20 20 20 23 20 61 6c 72 65 61 . # alrea
2550: 64 79 2e 20 57 65 20 72 65 6d 6f 76 65 20 69 74 dy. We remove it
2560: 20 66 72 6f 6d 20 74 68 65 20 67 72 61 70 68 20 from the graph
2570: 61 73 20 77 65 6c 6c 20 61 6e 64 20 74 68 65 6e as well and then
2580: 20 65 6e 74 65 72 0a 20 20 20 20 20 20 20 20 23 enter. #
2590: 20 74 68 65 20 66 72 61 67 6d 65 6e 74 73 20 67 the fragments g
25a0: 65 6e 65 72 61 74 65 64 20 66 6f 72 20 69 74 2e enerated for it.
25b0: 0a 0a 09 52 65 70 6c 61 63 65 20 24 64 67 20 24 ...Replace $dg $
25c0: 62 65 73 74 6e 6f 64 65 20 24 6e 65 77 63 73 65 bestnode $newcse
25d0: 74 73 0a 0a 09 4d 61 72 6b 20 24 64 67 20 2d 24 ts...Mark $dg -$
25e0: 7b 49 44 7d 2d 61 66 74 65 72 0a 09 72 65 74 75 {ID}-after..retu
25f0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 rn. }.. #
2600: 54 4f 44 4f 3a 20 54 68 69 73 20 73 68 6f 75 6c TODO: This shoul
2610: 64 20 62 65 20 61 20 67 72 61 70 68 20 6d 65 74 d be a graph met
2620: 68 6f 64 2e 0a 20 20 20 20 70 72 6f 63 20 48 61 hod.. proc Ha
2630: 73 41 72 63 20 7b 64 67 20 61 20 62 7d 20 7b 0a sArc {dg a b} {.
2640: 09 23 38 2e 35 3a 20 72 65 74 75 72 6e 20 5b 65 .#8.5: return [e
2650: 78 70 72 20 7b 24 62 20 69 6e 20 5b 24 64 67 20 xpr {$b in [$dg
2660: 6e 6f 64 65 73 20 2d 6f 75 74 20 24 61 5d 7d 5d nodes -out $a]}]
2670: 0a 09 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d ..if {[lsearch -
2680: 65 78 61 63 74 20 5b 24 64 67 20 6e 6f 64 65 73 exact [$dg nodes
2690: 20 2d 6f 75 74 20 24 61 5d 20 24 62 5d 20 3c 20 -out $a] $b] <
26a0: 30 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 0} { return 0 }.
26b0: 09 72 65 74 75 72 6e 20 31 0a 20 20 20 20 7d 0a .return 1. }.
26c0: 0a 20 20 20 20 70 72 6f 63 20 4d 61 72 6b 20 7b . proc Mark {
26d0: 64 67 20 7b 73 75 66 66 69 78 20 7b 7d 7d 20 7b dg {suffix {}} {
26e0: 73 75 62 67 72 61 70 68 20 7b 7d 7d 7d 20 7b 0a subgraph {}}} {.
26f0: 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 64 6f .::variable mydo
2700: 74 64 65 73 74 69 6e 61 74 69 6f 6e 0a 09 69 66 tdestination..if
2710: 20 7b 24 6d 79 64 6f 74 64 65 73 74 69 6e 61 74 {$mydotdestinat
2720: 69 6f 6e 20 65 71 20 22 22 7d 20 72 65 74 75 72 ion eq ""} retur
2730: 6e 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 n..::variable my
2740: 64 6f 74 70 72 65 66 69 78 0a 09 3a 3a 76 61 72 dotprefix..::var
2750: 69 61 62 6c 65 20 6d 79 64 6f 74 69 64 0a 09 73 iable mydotid..s
2760: 65 74 20 66 6e 61 6d 65 20 24 6d 79 64 6f 74 64 et fname $mydotd
2770: 65 73 74 69 6e 61 74 69 6f 6e 2f 24 7b 6d 79 64 estination/${myd
2780: 6f 74 70 72 65 66 69 78 7d 24 7b 6d 79 64 6f 74 otprefix}${mydot
2790: 69 64 7d 24 7b 73 75 66 66 69 78 7d 2e 64 6f 74 id}${suffix}.dot
27a0: 0a 09 66 69 6c 65 20 6d 6b 64 69 72 20 5b 66 69 ..file mkdir [fi
27b0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 6e 61 6d le dirname $fnam
27c0: 65 5d 0a 09 64 6f 74 20 77 72 69 74 65 20 24 64 e]..dot write $d
27d0: 67 20 24 6d 79 64 6f 74 70 72 65 66 69 78 24 73 g $mydotprefix$s
27e0: 75 66 66 69 78 20 24 66 6e 61 6d 65 20 24 73 75 uffix $fname $su
27f0: 62 67 72 61 70 68 0a 09 69 6e 63 72 20 6d 79 64 bgraph..incr myd
2800: 6f 74 69 64 0a 0a 09 6c 6f 67 20 77 72 69 74 65 otid...log write
2810: 20 35 20 63 79 63 6c 65 62 72 65 61 6b 65 72 20 5 cyclebreaker
2820: 22 2e 64 6f 74 20 65 78 70 6f 72 74 20 24 66 6e ".dot export $fn
2830: 61 6d 65 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 ame"..return.
2840: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 52 65 70 }.. proc Rep
2850: 6c 61 63 65 20 7b 64 67 20 6e 20 72 65 70 6c 61 lace {dg n repla
2860: 63 65 6d 65 6e 74 73 7d 20 7b 0a 09 23 20 4e 4f cements} {..# NO
2870: 54 45 2e 20 57 65 20 68 61 76 65 20 74 6f 20 67 TE. We have to g
2880: 65 74 20 74 68 65 20 6c 69 73 74 20 6f 66 20 69 et the list of i
2890: 6e 63 6f 6d 69 6e 67 20 6e 65 69 67 68 62 6f 75 ncoming neighbou
28a0: 72 73 20 61 6e 64 0a 09 23 20 72 65 63 6f 6d 70 rs and..# recomp
28b0: 75 74 65 20 74 68 65 69 72 20 73 75 63 63 65 73 ute their succes
28c0: 73 6f 72 73 20 61 66 74 65 72 20 74 68 65 20 6e sors after the n
28d0: 65 77 20 6e 6f 64 65 73 20 68 61 76 65 20 62 65 ew nodes have be
28e0: 65 6e 0a 09 23 20 69 6e 73 65 72 74 65 64 2e 20 en..# inserted.
28f0: 54 68 65 69 72 20 6f 75 74 67 6f 69 6e 67 20 61 Their outgoing a
2900: 72 63 73 20 77 69 6c 6c 20 6e 6f 77 20 67 6f 20 rcs will now go
2910: 74 6f 20 6f 6e 65 20 6f 72 20 62 6f 74 68 20 6f to one or both o
2920: 66 0a 09 23 20 74 68 65 20 6e 65 77 20 6e 6f 64 f..# the new nod
2930: 65 73 2c 20 61 6e 64 20 6e 6f 74 20 72 65 64 6f es, and not redo
2940: 69 6e 67 20 74 68 65 6d 20 6d 61 79 20 63 61 75 ing them may cau
2950: 73 65 20 75 73 20 74 6f 20 66 6f 72 67 65 74 0a se us to forget.
2960: 09 23 20 63 69 72 63 6c 65 73 2c 20 6c 65 61 76 .# circles, leav
2970: 69 6e 67 20 74 68 65 6d 20 69 6e 2c 20 75 6e 62 ing them in, unb
2980: 72 6f 6b 65 6e 2e 0a 0a 09 73 65 74 20 70 72 65 roken....set pre
2990: 20 5b 24 64 67 20 6e 6f 64 65 73 20 2d 69 6e 20 [$dg nodes -in
29a0: 24 6e 5d 0a 0a 20 20 20 20 20 20 20 20 24 64 67 $n].. $dg
29b0: 20 6e 6f 64 65 20 64 65 6c 65 74 65 20 24 6e 0a node delete $n.
29c0: 0a 09 66 6f 72 65 61 63 68 20 63 73 65 74 20 24 ..foreach cset $
29d0: 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 7b 0a 09 replacements {..
29e0: 20 20 20 20 24 64 67 20 6e 6f 64 65 20 69 6e 73 $dg node ins
29f0: 65 72 74 20 24 63 73 65 74 0a 09 20 20 20 20 24 ert $cset.. $
2a00: 64 67 20 6e 6f 64 65 20 73 65 74 20 20 20 20 24 dg node set $
2a10: 63 73 65 74 20 74 69 6d 65 72 61 6e 67 65 20 5b cset timerange [
2a20: 24 63 73 65 74 20 74 69 6d 65 72 61 6e 67 65 5d $cset timerange]
2a30: 0a 09 20 20 20 20 24 64 67 20 6e 6f 64 65 20 73 .. $dg node s
2a40: 65 74 20 20 20 20 24 63 73 65 74 20 6c 61 62 65 et $cset labe
2a50: 6c 20 20 20 20 20 5b 49 44 20 24 63 73 65 74 5d l [ID $cset]
2a60: 0a 09 20 20 20 20 24 64 67 20 6e 6f 64 65 20 73 .. $dg node s
2a70: 65 74 20 20 20 20 24 63 73 65 74 20 5f 5f 69 64 et $cset __id
2a80: 5f 5f 20 20 20 20 5b 24 63 73 65 74 20 69 64 5d __ [$cset id]
2a90: 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 68 20 63 73 ..}...foreach cs
2aa0: 65 74 20 24 72 65 70 6c 61 63 65 6d 65 6e 74 73 et $replacements
2ab0: 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 {.. foreach
2ac0: 73 75 63 63 20 5b 24 63 73 65 74 20 73 75 63 63 succ [$cset succ
2ad0: 65 73 73 6f 72 73 5d 20 7b 0a 09 09 23 20 54 68 essors] {...# Th
2ae0: 65 20 6e 65 77 20 63 68 61 6e 67 65 73 65 74 73 e new changesets
2af0: 20 6d 61 79 20 68 61 76 65 20 64 65 70 65 6e 64 may have depend
2b00: 65 6e 63 69 65 73 20 6f 75 74 73 69 64 65 20 6f encies outside o
2b10: 66 0a 09 09 23 20 74 68 65 20 63 68 6f 73 65 6e f...# the chosen
2b20: 20 73 65 74 2e 20 54 68 65 73 65 20 61 72 65 20 set. These are
2b30: 69 67 6e 6f 72 65 64 0a 09 09 69 66 20 7b 21 5b ignored...if {![
2b40: 24 64 67 20 6e 6f 64 65 20 65 78 69 73 74 73 20 $dg node exists
2b50: 24 73 75 63 63 5d 7d 20 63 6f 6e 74 69 6e 75 65 $succ]} continue
2b60: 0a 09 09 24 64 67 20 61 72 63 20 69 6e 73 65 72 ...$dg arc inser
2b70: 74 20 24 63 73 65 74 20 24 73 75 63 63 0a 09 20 t $cset $succ..
2b80: 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 65 61 63 68 }..}..foreach
2b90: 20 63 73 65 74 20 24 70 72 65 20 7b 0a 09 20 20 cset $pre {..
2ba0: 20 20 66 6f 72 65 61 63 68 20 73 75 63 63 20 5b foreach succ [
2bb0: 24 63 73 65 74 20 73 75 63 63 65 73 73 6f 72 73 $cset successors
2bc0: 5d 20 7b 0a 09 09 23 20 4e 6f 74 65 20 74 68 61 ] {...# Note tha
2bd0: 74 20 74 68 65 20 61 72 63 20 6d 61 79 20 61 6c t the arc may al
2be0: 72 65 61 64 79 20 65 78 69 73 74 20 69 6e 20 74 ready exist in t
2bf0: 68 65 20 67 72 61 70 68 2e 20 49 66 0a 09 09 23 he graph. If...#
2c00: 20 73 6f 20 69 67 6e 6f 72 65 20 69 74 2e 20 54 so ignore it. T
2c10: 68 65 20 6e 65 77 20 63 68 61 6e 67 65 73 65 74 he new changeset
2c20: 73 20 6d 61 79 20 68 61 76 65 0a 09 09 23 20 64 s may have...# d
2c30: 65 70 65 6e 64 65 6e 63 69 65 73 20 6f 75 74 73 ependencies outs
2c40: 69 64 65 20 6f 66 20 74 68 65 20 63 68 6f 73 65 ide of the chose
2c50: 6e 20 73 65 74 2e 20 54 68 65 73 65 20 61 72 65 n set. These are
2c60: 0a 09 09 23 20 69 67 6e 6f 72 65 64 0a 09 09 69 ...# ignored...i
2c70: 66 20 7b 21 5b 24 64 67 20 6e 6f 64 65 20 65 78 f {![$dg node ex
2c80: 69 73 74 73 20 24 73 75 63 63 5d 7d 20 63 6f 6e ists $succ]} con
2c90: 74 69 6e 75 65 0a 09 09 69 66 20 7b 5b 48 61 73 tinue...if {[Has
2ca0: 41 72 63 20 24 64 67 20 24 63 73 65 74 20 24 73 Arc $dg $cset $s
2cb0: 75 63 63 5d 7d 20 63 6f 6e 74 69 6e 75 65 3b 23 ucc]} continue;#
2cc0: 20 54 4f 44 4f 20 73 68 6f 75 6c 64 20 62 65 20 TODO should be
2cd0: 67 72 61 70 68 20 6d 65 74 68 6f 64 2e 0a 09 09 graph method....
2ce0: 24 64 67 20 61 72 63 20 69 6e 73 65 72 74 20 24 $dg arc insert $
2cf0: 63 73 65 74 20 24 73 75 63 63 0a 09 20 20 20 20 cset $succ..
2d00: 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 20 }..}...return.
2d10: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 }.. # # ##
2d20: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
2d30: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
2d40: 0a 20 20 20 20 23 23 20 43 61 6c 6c 62 61 63 6b . ## Callback
2d50: 20 69 6e 76 6f 6b 61 74 69 6f 6e 20 2e 2e 2e 0a invokation ....
2d60: 0a 20 20 20 20 70 72 6f 63 20 50 72 65 48 6f 6f . proc PreHoo
2d70: 6b 20 7b 67 72 61 70 68 7d 20 7b 0a 09 23 20 47 k {graph} {..# G
2d80: 69 76 65 20 74 68 65 20 75 73 65 72 20 6f 66 20 ive the user of
2d90: 74 68 65 20 63 79 63 6c 65 20 62 72 65 61 6b 65 the cycle breake
2da0: 72 20 74 68 65 20 6f 70 70 6f 72 74 75 6e 69 74 r the opportunit
2db0: 79 20 74 6f 20 77 6f 72 6b 0a 09 23 20 77 69 74 y to work..# wit
2dc0: 68 20 74 68 65 20 67 72 61 70 68 20 62 65 74 77 h the graph betw
2dd0: 65 65 6e 20 73 65 74 75 70 20 61 6e 64 20 63 6f een setup and co
2de0: 6e 73 75 6d 6d 61 74 69 6f 6e 2e 0a 0a 09 3a 3a nsummation....::
2df0: 76 61 72 69 61 62 6c 65 20 6d 79 70 72 65 63 6d variable myprecm
2e00: 64 0a 09 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 d..if {![llength
2e10: 20 24 6d 79 70 72 65 63 6d 64 5d 7d 20 72 65 74 $myprecmd]} ret
2e20: 75 72 6e 0a 0a 09 75 70 6c 65 76 65 6c 20 23 30 urn...uplevel #0
2e30: 20 5b 6c 69 6e 73 65 72 74 20 24 6d 79 70 72 65 [linsert $mypre
2e40: 63 6d 64 20 65 6e 64 20 24 67 72 61 70 68 5d 0a cmd end $graph].
2e50: 09 4d 61 72 6b 20 24 67 72 61 70 68 20 2d 70 72 .Mark $graph -pr
2e60: 65 2d 64 6f 6e 65 0a 09 72 65 74 75 72 6e 0a 20 e-done..return.
2e70: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 50 }.. proc P
2e80: 72 6f 63 65 73 73 65 64 48 6f 6f 6b 20 7b 64 67 rocessedHook {dg
2e90: 20 63 73 65 74 20 70 6f 73 7d 20 7b 0a 09 23 20 cset pos} {..#
2ea0: 47 69 76 65 20 74 68 65 20 75 73 65 72 20 6f 66 Give the user of
2eb0: 20 74 68 65 20 63 79 63 6c 65 20 62 72 65 61 6b the cycle break
2ec0: 65 72 20 74 68 65 20 6f 70 70 6f 72 74 75 6e 69 er the opportuni
2ed0: 74 79 20 74 6f 20 77 6f 72 6b 0a 09 23 20 77 69 ty to work..# wi
2ee0: 74 68 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 th the changeset
2ef0: 20 62 65 66 6f 72 65 20 69 74 20 69 73 20 72 65 before it is re
2f00: 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 20 67 moved from the g
2f10: 72 61 70 68 2e 0a 0a 09 3a 3a 76 61 72 69 61 62 raph....::variab
2f20: 6c 65 20 6d 79 73 61 76 65 63 6d 64 0a 09 69 66 le mysavecmd..if
2f30: 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 24 6d 79 73 {![llength $mys
2f40: 61 76 65 63 6d 64 5d 7d 20 72 65 74 75 72 6e 0a avecmd]} return.
2f50: 0a 09 75 70 6c 65 76 65 6c 20 23 30 20 5b 6c 69 ..uplevel #0 [li
2f60: 6e 73 65 72 74 20 24 6d 79 73 61 76 65 63 6d 64 nsert $mysavecmd
2f70: 20 65 6e 64 20 24 64 67 20 24 70 6f 73 20 24 63 end $dg $pos $c
2f80: 73 65 74 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 set]..return.
2f90: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 42 72 65 }.. proc Bre
2fa0: 61 6b 43 79 63 6c 65 48 6f 6f 6b 20 7b 67 72 61 akCycleHook {gra
2fb0: 70 68 7d 20 7b 0a 09 23 20 43 61 6c 6c 20 6f 75 ph} {..# Call ou
2fc0: 74 20 74 6f 20 74 68 65 20 63 68 6f 73 65 6e 20 t to the chosen
2fd0: 61 6c 67 6f 72 69 74 68 6d 20 66 6f 72 20 63 79 algorithm for cy
2fe0: 63 6c 65 20 62 72 65 61 6b 69 6e 67 2e 20 46 69 cle breaking. Fi
2ff0: 6e 64 69 6e 67 0a 09 23 20 61 20 63 79 63 6c 65 nding..# a cycle
3000: 20 69 66 20 6e 6f 20 62 72 65 61 6b 65 72 20 77 if no breaker w
3010: 61 73 20 63 68 6f 73 65 6e 20 69 73 20 61 6e 20 as chosen is an
3020: 65 72 72 6f 72 2e 0a 0a 09 3a 3a 76 61 72 69 61 error....::varia
3030: 62 6c 65 20 6d 79 62 72 65 61 6b 63 6d 64 0a 09 ble mybreakcmd..
3040: 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 24 6d if {![llength $m
3050: 79 62 72 65 61 6b 63 6d 64 5d 7d 20 7b 0a 09 20 ybreakcmd]} {..
3060: 20 20 20 74 72 6f 75 62 6c 65 20 66 61 74 61 6c trouble fatal
3070: 20 22 46 6f 75 6e 64 20 61 20 63 79 63 6c 65 2c "Found a cycle,
3080: 20 65 78 70 65 63 74 69 6e 67 20 6e 6f 6e 65 2e expecting none.
3090: 22 0a 09 20 20 20 20 65 78 69 74 20 31 0a 09 7d ".. exit 1..}
30a0: 0a 0a 09 75 70 6c 65 76 65 6c 20 23 30 20 5b 6c ...uplevel #0 [l
30b0: 69 6e 73 65 72 74 20 24 6d 79 62 72 65 61 6b 63 insert $mybreakc
30c0: 6d 64 20 65 6e 64 20 24 67 72 61 70 68 5d 0a 09 md end $graph]..
30d0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
30e0: 20 20 70 72 6f 63 20 43 6c 65 61 72 48 6f 6f 6b proc ClearHook
30f0: 73 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 s {} {..::variab
3100: 6c 65 20 6d 79 70 72 65 63 6d 64 20 20 20 7b 7d le myprecmd {}
3110: 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 73 ..::variable mys
3120: 61 76 65 63 6d 64 20 20 7b 7d 0a 09 3a 3a 76 61 avecmd {}..::va
3130: 72 69 61 62 6c 65 20 6d 79 62 72 65 61 6b 63 6d riable mybreakcm
3140: 64 20 7b 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 d {}..return.
3150: 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 }.. # # ## #
3160: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
3170: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a # #############.
3180: 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c . typevariabl
3190: 65 20 6d 79 61 74 20 20 20 20 20 20 30 20 3b 20 e myat 0 ;
31a0: 23 20 43 6f 75 6e 74 65 72 20 66 6f 72 20 63 6f # Counter for co
31b0: 6d 6d 69 74 20 69 64 73 20 66 6f 72 20 74 68 65 mmit ids for the
31c0: 0a 09 09 09 20 20 20 20 20 20 20 23 20 63 68 61 .... # cha
31d0: 6e 67 65 73 65 74 73 2e 0a 20 20 20 20 74 79 70 ngesets.. typ
31e0: 65 76 61 72 69 61 62 6c 65 20 6d 79 62 6f 74 74 evariable mybott
31f0: 6f 6d 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f om {} ; # List o
3200: 66 20 74 68 65 20 63 61 6e 64 69 64 61 74 65 20 f the candidate
3210: 6e 6f 64 65 73 20 66 6f 72 0a 09 09 09 20 20 20 nodes for....
3220: 20 20 20 20 23 20 63 6f 6d 6d 69 74 74 69 6e 67 # committing
3230: 2e 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 ... typevaria
3240: 62 6c 65 20 6d 79 70 72 65 63 6d 64 20 20 20 7b ble myprecmd {
3250: 7d 20 3b 20 23 20 43 61 6c 6c 62 61 63 6b 2c 20 } ; # Callback,
3260: 63 68 61 6e 67 65 20 67 72 61 70 68 20 62 65 66 change graph bef
3270: 6f 72 65 20 77 61 6c 6b 2e 0a 20 20 20 20 74 79 ore walk.. ty
3280: 70 65 76 61 72 69 61 62 6c 65 20 6d 79 73 61 76 pevariable mysav
3290: 65 63 6d 64 20 20 7b 7d 20 3b 20 23 20 43 61 6c ecmd {} ; # Cal
32a0: 6c 62 61 63 6b 2c 20 66 6f 72 20 65 61 63 68 20 lback, for each
32b0: 70 72 6f 63 65 73 73 65 64 20 6e 6f 64 65 2e 0a processed node..
32c0: 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 typevariable
32d0: 20 6d 79 62 72 65 61 6b 63 6d 64 20 7b 7d 20 3b mybreakcmd {} ;
32e0: 20 23 20 43 61 6c 6c 62 61 63 6b 2c 20 66 6f 72 # Callback, for
32f0: 20 65 61 63 68 20 66 6f 75 6e 64 20 63 79 63 6c each found cycl
3300: 65 2e 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 e... typevari
3310: 61 62 6c 65 20 6d 79 64 6f 74 64 65 73 74 69 6e able mydotdestin
3320: 61 74 69 6f 6e 20 7b 7d 20 3b 20 23 20 44 65 73 ation {} ; # Des
3330: 74 69 6e 61 74 69 6f 6e 20 64 69 72 65 63 74 6f tination directo
3340: 72 79 20 66 6f 72 20 74 68 65 0a 09 09 09 09 20 ry for the.....
3350: 20 20 20 20 20 20 23 20 67 65 6e 65 72 61 74 65 # generate
3360: 64 20 2e 64 6f 74 20 66 69 6c 65 73 2e 0a 20 20 d .dot files..
3370: 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d typevariable m
3380: 79 64 6f 74 70 72 65 66 69 78 20 20 20 20 20 20 ydotprefix
3390: 7b 7d 20 3b 20 23 20 50 72 65 66 69 78 20 66 6f {} ; # Prefix fo
33a0: 72 20 64 6f 74 20 66 69 6c 65 73 20 77 68 65 6e r dot files when
33b0: 0a 09 09 09 09 20 20 20 20 20 20 20 23 20 65 78 ..... # ex
33c0: 70 6f 72 74 69 6e 67 20 74 68 65 20 67 72 61 70 porting the grap
33d0: 68 73 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 hs.. typevari
33e0: 61 62 6c 65 20 6d 79 64 6f 74 69 64 20 20 20 20 able mydotid
33f0: 20 20 20 20 20 20 20 30 20 3b 20 23 20 43 6f 75 0 ; # Cou
3400: 6e 74 65 72 20 66 6f 72 20 64 6f 74 20 66 69 6c nter for dot fil
3410: 65 20 6e 61 6d 65 0a 09 09 09 09 20 20 20 20 20 e name.....
3420: 20 20 23 20 67 65 6e 65 72 61 74 69 6f 6e 2e 0a # generation..
3430: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
3440: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
3450: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
3460: 20 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f ## Configuratio
3470: 6e 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 n.. pragma -h
3480: 61 73 69 6e 73 74 61 6e 63 65 73 20 20 20 6e 6f asinstances no
3490: 20 3b 20 23 20 73 69 6e 67 6c 65 74 6f 6e 0a 20 ; # singleton.
34a0: 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 pragma -hasty
34b0: 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 23 peinfo no ; #
34c0: 20 6e 6f 20 69 6e 74 72 6f 73 70 65 63 74 69 6f no introspectio
34d0: 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 n. pragma -ha
34e0: 73 74 79 70 65 64 65 73 74 72 6f 79 20 6e 6f 20 stypedestroy no
34f0: 3b 20 23 20 69 6d 6d 6f 72 74 61 6c 0a 0a 20 20 ; # immortal..
3500: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
3510: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
3520: 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d #########.}..nam
3530: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 espace eval ::vc
3540: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
3550: 3a 3a 63 76 73 20 7b 0a 20 20 20 20 6e 61 6d 65 ::cvs {. name
3560: 73 70 61 63 65 20 65 78 70 6f 72 74 20 63 79 63 space export cyc
3570: 6c 65 62 72 65 61 6b 65 72 0a 20 20 20 20 6e 61 lebreaker. na
3580: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 63 79 63 mespace eval cyc
3590: 6c 65 62 72 65 61 6b 65 72 20 7b 0a 09 6e 61 6d lebreaker {..nam
35a0: 65 73 70 61 63 65 20 65 76 61 6c 20 70 72 6f 6a espace eval proj
35b0: 65 63 74 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 ect {.. names
35c0: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
35d0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
35e0: 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a ::cvs::project::
35f0: 72 65 76 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 rev.. namespa
3600: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
3610: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
3620: 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 cvs::project::re
3630: 76 6c 69 6e 6b 0a 09 7d 0a 09 6e 61 6d 65 73 70 vlink..}..namesp
3640: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
3650: 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a :tools::misc::*.
3660: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
3670: 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c t ::vc::tools::l
3680: 6f 67 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d og..namespace im
3690: 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 port ::vc::tools
36a0: 3a 3a 74 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 73 ::trouble..names
36b0: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
36c0: 3a 3a 74 6f 6f 6c 73 3a 3a 64 6f 74 0a 09 6c 6f ::tools::dot..lo
36d0: 67 20 72 65 67 69 73 74 65 72 20 63 79 63 6c 65 g register cycle
36e0: 62 72 65 61 6b 65 72 0a 20 20 20 20 7d 0a 7d 0a breaker. }.}.
36f0: 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 .# # ## ### ####
3700: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
3710: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
3720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 ##############.#
3730: 23 20 52 65 61 64 79 0a 0a 70 61 63 6b 61 67 65 # Ready..package
3740: 20 70 72 6f 76 69 64 65 20 76 63 3a 3a 66 6f 73 provide vc::fos
3750: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
3760: 3a 3a 63 79 63 6c 65 62 72 65 61 6b 65 72 20 31 ::cyclebreaker 1
3770: 2e 30 0a 72 65 74 75 72 6e 0a .0.return.