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 46 69 6c ########..## Fil
0200: 65 2c 20 70 61 72 74 20 6f 66 20 61 20 70 72 6f e, part of a pro
0210: 6a 65 63 74 2c 20 70 61 72 74 20 6f 66 20 61 20 ject, part of a
0220: 43 56 53 20 72 65 70 6f 73 69 74 6f 72 79 2e 20 CVS repository.
0230: 4d 75 6c 74 69 70 6c 65 0a 23 23 20 69 6e 73 74 Multiple.## inst
0240: 61 6e 63 65 73 20 61 72 65 20 70 6f 73 73 69 62 ances are possib
0250: 6c 65 2e 0a 0a 23 20 23 20 23 23 20 23 23 23 20 le...# # ## ###
0260: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0270: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
0280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0290: 23 23 0a 23 23 20 52 65 71 75 69 72 65 6d 65 6e ##.## Requiremen
02a0: 74 73 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ts..package requ
02b0: 69 72 65 20 54 63 6c 20 38 2e 34 20 20 20 20 20 ire Tcl 8.4
02c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02d0: 20 20 20 20 20 20 20 20 3b 20 23 20 52 65 71 75 ; # Requ
02e0: 69 72 65 64 20 72 75 6e 74 69 6d 65 2e 0a 70 61 ired runtime..pa
02f0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 6e ckage require sn
0300: 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 it
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0320: 20 20 3b 20 23 20 4f 4f 20 73 79 73 74 65 6d 2e ; # OO system.
0330: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0340: 20 73 74 72 75 63 74 3a 3a 73 65 74 20 20 20 20 struct::set
0350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0360: 20 20 20 20 20 3b 20 23 20 53 65 74 20 6f 70 65 ; # Set ope
0370: 72 61 74 69 6f 6e 73 2e 0a 70 61 63 6b 61 67 65 rations..package
0380: 20 72 65 71 75 69 72 65 20 73 74 72 75 63 74 3a require struct:
0390: 3a 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 20 :list
03a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
03b0: 20 48 69 67 68 65 72 20 6f 72 64 65 72 20 6f 70 Higher order op
03c0: 65 72 61 74 69 6f 6e 73 2e 0a 70 61 63 6b 61 67 erations..packag
03d0: 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f e require vc::fo
03e0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
03f0: 73 3a 3a 66 69 6c 65 3a 3a 72 65 76 20 20 3b 20 s::file::rev ;
0400: 23 20 43 56 53 20 70 65 72 20 66 69 6c 65 20 72 # CVS per file r
0410: 65 76 69 73 69 6f 6e 73 2e 0a 70 61 63 6b 61 67 evisions..packag
0420: 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f e require vc::fo
0430: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0440: 73 3a 3a 66 69 6c 65 3a 3a 73 79 6d 20 20 3b 20 s::file::sym ;
0450: 23 20 43 56 53 20 70 65 72 20 66 69 6c 65 20 73 # CVS per file s
0460: 79 6d 62 6f 6c 73 2e 0a 70 61 63 6b 61 67 65 20 ymbols..package
0470: 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 require vc::foss
0480: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
0490: 3a 73 74 61 74 65 20 20 20 20 20 20 3b 20 23 20 :state ; #
04a0: 53 74 61 74 65 20 73 74 6f 72 61 67 65 2e 0a 70 State storage..p
04b0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 ackage require v
04c0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
04d0: 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 t::cvs::integrit
04e0: 79 20 20 3b 20 23 20 53 74 61 74 65 20 69 6e 74 y ; # State int
04f0: 65 67 72 69 74 79 20 63 68 65 63 6b 73 2e 0a 70 egrity checks..p
0500: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 ackage require v
0510: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0520: 74 3a 3a 63 76 73 3a 3a 67 74 63 6f 72 65 20 20 t::cvs::gtcore
0530: 20 20 20 3b 20 23 20 47 72 61 70 68 20 74 72 61 ; # Graph tra
0540: 76 65 72 73 61 6c 20 63 6f 72 65 2e 0a 70 61 63 versal core..pac
0550: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
0560: 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 :tools::trouble
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0580: 20 3b 20 23 20 45 72 72 6f 72 20 72 65 70 6f 72 ; # Error repor
0590: 74 69 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 ting..package re
05a0: 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a quire vc::tools:
05b0: 3a 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 :log
05c0: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 55 73 ; # Us
05d0: 65 72 20 66 65 65 64 62 61 63 6b 0a 70 61 63 6b er feedback.pack
05e0: 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a age require vc::
05f0: 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 20 20 20 20 tools::misc
0600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0610: 3b 20 23 20 54 65 78 74 20 66 6f 72 6d 61 74 74 ; # Text formatt
0620: 69 6e 67 0a 0a 23 20 23 20 23 23 20 23 23 23 20 ing..# # ## ###
0630: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0640: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
0650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0660: 23 23 0a 23 23 0a 0a 73 6e 69 74 3a 3a 74 79 70 ##.##..snit::typ
0670: 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a e ::vc::fossil::
0680: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c import::cvs::fil
0690: 65 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 e {. # # ## #
06a0: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
06b0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a # #############.
06c0: 20 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 ## Public AP
06d0: 49 0a 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 I.. construct
06e0: 6f 72 20 7b 69 64 20 70 61 74 68 20 75 73 72 70 or {id path usrp
06f0: 61 74 68 20 65 78 65 63 75 74 61 62 6c 65 20 70 ath executable p
0700: 72 6f 6a 65 63 74 7d 20 7b 0a 09 73 65 74 20 6d roject} {..set m
0710: 79 69 64 20 20 20 20 20 20 20 20 20 24 69 64 0a yid $id.
0720: 09 73 65 74 20 6d 79 70 61 74 68 20 20 20 20 20 .set mypath
0730: 20 20 24 70 61 74 68 0a 09 73 65 74 20 6d 79 75 $path..set myu
0740: 73 72 70 61 74 68 20 20 20 20 24 75 73 72 70 61 srpath $usrpa
0750: 74 68 0a 09 73 65 74 20 6d 79 65 78 65 63 75 74 th..set myexecut
0760: 61 62 6c 65 20 24 65 78 65 63 75 74 61 62 6c 65 able $executable
0770: 0a 09 73 65 74 20 6d 79 70 72 6f 6a 65 63 74 20 ..set myproject
0780: 20 20 20 24 70 72 6f 6a 65 63 74 0a 09 73 65 74 $project..set
0790: 20 6d 79 74 72 75 6e 6b 20 20 20 20 20 20 5b 24 mytrunk [$
07a0: 6d 79 70 72 6f 6a 65 63 74 20 74 72 75 6e 6b 5d myproject trunk]
07b0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
07c0: 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 69 64 method setid
07d0: 20 7b 69 64 7d 20 7b 0a 09 69 6e 74 65 67 72 69 {id} {..integri
07e0: 74 79 20 61 73 73 65 72 74 20 7b 24 6d 79 69 64 ty assert {$myid
07f0: 20 65 71 20 22 22 7d 20 7b 46 69 6c 65 20 27 24 eq ""} {File '$
0800: 6d 79 70 61 74 68 27 20 61 6c 72 65 61 64 79 20 mypath' already
0810: 68 61 73 20 61 6e 20 69 64 2c 20 27 24 6d 79 69 has an id, '$myi
0820: 64 27 7d 0a 09 73 65 74 20 6d 79 69 64 20 24 69 d'}..set myid $i
0830: 64 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a d..return. }.
0840: 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 64 20 20 . method id
0850: 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 {} { return
0860: 24 6d 79 69 64 20 7d 0a 20 20 20 20 6d 65 74 68 $myid }. meth
0870: 6f 64 20 70 61 74 68 20 20 20 20 7b 7d 20 7b 20 od path {} {
0880: 72 65 74 75 72 6e 20 24 6d 79 70 61 74 68 20 7d return $mypath }
0890: 0a 20 20 20 20 6d 65 74 68 6f 64 20 75 73 72 70 . method usrp
08a0: 61 74 68 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 ath {} { return
08b0: 24 6d 79 75 73 72 70 61 74 68 20 7d 0a 20 20 20 $myusrpath }.
08c0: 20 6d 65 74 68 6f 64 20 70 72 6f 6a 65 63 74 20 method project
08d0: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 70 {} { return $myp
08e0: 72 6f 6a 65 63 74 20 7d 0a 0a 20 20 20 20 64 65 roject }.. de
08f0: 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 63 6f legate method co
0900: 6d 6d 69 74 6d 65 73 73 61 67 65 6f 66 20 74 6f mmitmessageof to
0910: 20 6d 79 70 72 6f 6a 65 63 74 0a 0a 20 20 20 20 myproject..
0920: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
0930: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
0940: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 4d #######. ## M
0950: 65 74 68 6f 64 73 20 72 65 71 75 69 72 65 64 20 ethods required
0960: 66 6f 72 20 74 68 65 20 63 6c 61 73 73 20 74 6f for the class to
0970: 20 62 65 20 61 20 73 69 6e 6b 20 6f 66 20 74 68 be a sink of th
0980: 65 20 72 63 73 20 70 61 72 73 65 72 0a 0a 20 20 e rcs parser..
0990: 20 20 23 6d 65 74 68 6f 64 20 62 65 67 69 6e 20 #method begin
09a0: 7b 7d 20 7b 70 75 74 73 20 62 65 67 69 6e 7d 0a {} {puts begin}.
09b0: 20 20 20 20 23 6d 65 74 68 6f 64 20 73 65 74 68 #method seth
09c0: 65 61 64 20 7b 68 7d 20 7b 70 75 74 73 20 68 65 ead {h} {puts he
09d0: 61 64 3d 24 68 7d 0a 20 20 20 20 23 6d 65 74 68 ad=$h}. #meth
09e0: 6f 64 20 73 65 74 70 72 69 6e 63 69 70 61 6c 62 od setprincipalb
09f0: 72 61 6e 63 68 20 7b 62 7d 20 7b 70 75 74 73 20 ranch {b} {puts
0a00: 70 62 3d 24 62 7d 0a 20 20 20 20 23 6d 65 74 68 pb=$b}. #meth
0a10: 6f 64 20 64 65 66 74 61 67 20 7b 73 20 72 7d 20 od deftag {s r}
0a20: 7b 70 75 74 73 20 24 73 3d 24 72 7d 0a 20 20 20 {puts $s=$r}.
0a30: 20 23 6d 65 74 68 6f 64 20 73 65 74 63 6f 6d 6d #method setcomm
0a40: 65 6e 74 20 7b 63 7d 20 7b 70 75 74 73 20 63 6f ent {c} {puts co
0a50: 6d 6d 65 6e 74 3d 24 63 7d 0a 20 20 20 20 23 6d mment=$c}. #m
0a60: 65 74 68 6f 64 20 61 64 6d 69 6e 64 6f 6e 65 20 ethod admindone
0a70: 7b 7d 20 7b 70 75 74 73 20 61 64 6d 69 6e 64 6f {} {puts admindo
0a80: 6e 65 7d 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 ne}. #method
0a90: 64 65 66 20 7b 72 65 76 20 64 61 74 65 20 61 75 def {rev date au
0aa0: 74 68 6f 72 20 73 74 61 74 65 20 6e 65 78 74 20 thor state next
0ab0: 62 72 61 6e 63 68 65 73 7d 20 7b 70 75 74 73 20 branches} {puts
0ac0: 22 64 65 66 20 24 72 65 76 20 24 64 61 74 65 20 "def $rev $date
0ad0: 24 61 75 74 68 6f 72 20 24 73 74 61 74 65 20 24 $author $state $
0ae0: 6e 65 78 74 20 24 62 72 61 6e 63 68 65 73 22 7d next $branches"}
0af0: 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 64 65 66 . #method def
0b00: 64 6f 6e 65 20 7b 7d 20 7b 70 75 74 73 20 64 65 done {} {puts de
0b10: 66 2d 64 6f 6e 65 7d 0a 20 20 20 20 23 6d 65 74 f-done}. #met
0b20: 68 6f 64 20 73 65 74 64 65 73 63 20 7b 64 7d 20 hod setdesc {d}
0b30: 7b 70 75 74 73 20 64 65 73 63 3d 24 64 7d 0a 20 {puts desc=$d}.
0b40: 20 20 20 23 6d 65 74 68 6f 64 20 65 78 74 65 6e #method exten
0b50: 64 20 7b 72 65 76 20 63 6f 6d 6d 69 74 6d 73 67 d {rev commitmsg
0b60: 20 64 65 6c 74 61 72 61 6e 67 65 7d 20 7b 70 75 deltarange} {pu
0b70: 74 73 20 22 65 78 74 65 6e 64 20 24 63 6f 6d 6d ts "extend $comm
0b80: 69 74 6d 73 67 20 24 64 65 6c 74 61 72 61 6e 67 itmsg $deltarang
0b90: 65 22 7d 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 e"}. #method
0ba0: 64 6f 6e 65 20 7b 7d 20 7b 70 75 74 73 20 64 6f done {} {puts do
0bb0: 6e 65 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 ne}.. # # ##
0bc0: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
0bd0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0be0: 0a 20 20 20 20 23 23 20 50 65 72 73 69 73 74 65 . ## Persiste
0bf0: 6e 63 65 20 28 70 61 73 73 20 49 49 29 0a 0a 20 nce (pass II)..
0c00: 20 20 20 6d 65 74 68 6f 64 20 70 65 72 73 69 73 method persis
0c10: 74 20 7b 7d 20 7b 0a 09 23 20 46 69 72 73 74 20 t {} {..# First
0c20: 63 6f 6c 6c 65 63 74 20 74 68 65 20 72 65 61 63 collect the reac
0c30: 68 61 62 6c 65 20 72 65 76 69 73 69 6f 6e 73 20 hable revisions
0c40: 61 6e 64 20 73 79 6d 62 6f 6c 73 2c 20 74 68 65 and symbols, the
0c50: 6e 0a 09 23 20 61 73 73 69 67 6e 20 69 64 27 73 n..# assign id's
0c60: 20 74 6f 20 61 6c 6c 2e 20 54 68 65 79 20 61 72 to all. They ar
0c70: 65 20 73 6f 72 74 65 64 20 73 6f 20 74 68 61 74 e sorted so that
0c80: 20 77 65 20 77 69 6c 6c 20 68 61 76 65 20 69 64 we will have id
0c90: 73 0a 09 23 20 77 68 69 63 68 20 73 6f 72 74 20 s..# which sort
0ca0: 69 6e 20 6f 72 64 65 72 20 6f 66 20 63 72 65 61 in order of crea
0cb0: 74 69 6f 6e 2e 20 54 68 65 6e 20 77 65 20 63 61 tion. Then we ca
0cc0: 6e 20 73 61 76 65 20 74 68 65 6d 2e 20 54 68 69 n save them. Thi
0cd0: 73 0a 09 23 20 69 73 20 64 6f 6e 65 20 62 6f 74 s..# is done bot
0ce0: 74 6f 6d 20 75 70 2e 20 52 65 76 69 73 69 6f 6e tom up. Revision
0cf0: 73 2c 20 74 68 65 6e 20 73 79 6d 62 6f 6c 73 2e s, then symbols.
0d00: 20 5f 5f 4e 4f 54 45 5f 5f 20 54 68 69 73 0a 09 __NOTE__ This..
0d10: 23 20 77 6f 72 6b 73 20 6f 6e 6c 79 20 62 65 63 # works only bec
0d20: 61 75 73 65 20 73 71 6c 69 74 65 20 69 73 20 6e ause sqlite is n
0d30: 6f 74 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 65 ot checking fore
0d40: 69 67 6e 20 6b 65 79 0a 09 23 20 72 65 66 65 72 ign key..# refer
0d50: 65 6e 63 65 73 20 64 75 72 69 6e 67 20 69 6e 73 ences during ins
0d60: 65 72 74 2e 20 54 68 69 73 20 61 6c 6c 6f 77 73 ert. This allows
0d70: 20 74 6f 20 68 61 76 65 20 64 61 6e 67 6c 69 6e to have danglin
0d80: 67 0a 09 23 20 72 65 66 65 72 65 6e 63 65 73 20 g..# references
0d90: 77 68 69 63 68 20 61 72 65 20 66 69 78 65 64 20 which are fixed
0da0: 6c 61 74 65 72 2e 20 54 68 65 20 6c 6f 6e 67 65 later. The longe
0db0: 73 74 20 64 61 6e 67 6c 69 6e 67 0a 09 23 20 72 st dangling..# r
0dc0: 65 66 65 72 65 6e 63 65 73 20 61 72 65 20 66 6f eferences are fo
0dd0: 72 20 74 68 65 20 70 72 6f 6a 65 63 74 20 6c 65 r the project le
0de0: 76 65 6c 20 73 79 6d 62 6f 6c 73 2c 20 74 68 65 vel symbols, the
0df0: 73 65 20 77 65 20 64 6f 0a 09 23 20 6e 6f 74 20 se we do..# not
0e00: 73 61 76 65 20 68 65 72 65 2c 20 62 75 74 20 61 save here, but a
0e10: 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 t the end of the
0e20: 20 70 61 73 73 2e 20 57 68 61 74 20 77 65 20 6e pass. What we n
0e30: 65 65 64 20 61 72 65 0a 09 23 20 74 68 65 20 69 eed are..# the i
0e40: 64 73 2c 20 68 65 6e 63 65 20 74 68 65 20 74 77 ds, hence the tw
0e50: 6f 20 70 68 61 73 65 73 2e 0a 0a 09 73 74 72 75 o phases....stru
0e60: 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 ct::list assign
0e70: 5b 24 73 65 6c 66 20 41 63 74 69 76 65 5d 20 72 [$self Active] r
0e80: 65 76 69 73 69 6f 6e 73 20 73 79 6d 62 6f 6c 73 evisions symbols
0e90: 0a 09 66 6f 72 65 61 63 68 20 72 65 76 20 24 72 ..foreach rev $r
0ea0: 65 76 69 73 69 6f 6e 73 20 7b 20 24 72 65 76 20 evisions { $rev
0eb0: 64 65 66 69 64 20 7d 0a 09 66 6f 72 65 61 63 68 defid }..foreach
0ec0: 20 73 79 6d 20 24 73 79 6d 62 6f 6c 73 20 20 20 sym $symbols
0ed0: 7b 20 24 73 79 6d 20 64 65 66 69 64 20 7d 0a 0a { $sym defid }..
0ee0: 09 73 74 61 74 65 20 74 72 61 6e 73 61 63 74 69 .state transacti
0ef0: 6f 6e 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 on {.. foreac
0f00: 68 20 72 65 76 20 24 72 65 76 69 73 69 6f 6e 73 h rev $revisions
0f10: 20 7b 20 24 72 65 76 20 70 65 72 73 69 73 74 20 { $rev persist
0f20: 7d 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 73 }.. foreach s
0f30: 79 6d 20 24 73 79 6d 62 6f 6c 73 20 20 20 7b 20 ym $symbols {
0f40: 24 73 79 6d 20 70 65 72 73 69 73 74 20 7d 0a 09 $sym persist }..
0f50: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
0f60: 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 72 6f 70 . method drop
0f70: 20 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 68 20 7b {} {..foreach {
0f80: 5f 20 72 65 76 7d 20 20 20 20 5b 61 72 72 61 79 _ rev} [array
0f90: 20 67 65 74 20 6d 79 72 65 76 5d 20 20 20 20 20 get myrev]
0fa0: 20 7b 20 24 72 65 76 20 64 65 73 74 72 6f 79 20 { $rev destroy
0fb0: 7d 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 62 72 }..foreach {_ br
0fc0: 61 6e 63 68 7d 20 5b 61 72 72 61 79 20 67 65 74 anch} [array get
0fd0: 20 6d 79 62 72 61 6e 63 68 65 73 5d 20 7b 20 24 mybranches] { $
0fe0: 62 72 61 6e 63 68 20 64 65 73 74 72 6f 79 20 7d branch destroy }
0ff0: 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 74 61 67 ..foreach {_ tag
1000: 6c 69 73 74 7d 20 5b 61 72 72 61 79 20 67 65 74 list} [array get
1010: 20 6d 79 74 61 67 73 5d 20 7b 0a 09 20 20 20 20 mytags] {..
1020: 66 6f 72 65 61 63 68 20 74 61 67 20 24 74 61 67 foreach tag $tag
1030: 6c 69 73 74 20 7b 20 24 74 61 67 20 64 65 73 74 list { $tag dest
1040: 72 6f 79 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e roy }..}..return
1050: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
1060: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
1070: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
1080: 23 23 23 0a 20 20 20 20 23 23 20 49 6d 70 6c 65 ###. ## Imple
1090: 6d 65 6e 74 20 74 68 65 20 73 69 6e 6b 0a 0a 20 ment the sink..
10a0: 20 20 20 6d 65 74 68 6f 64 20 62 65 67 69 6e 20 method begin
10b0: 7b 7d 20 7b 23 69 67 6e 6f 72 65 7d 0a 0a 20 20 {} {#ignore}..
10c0: 20 20 6d 65 74 68 6f 64 20 73 65 74 68 65 61 64 method sethead
10d0: 20 7b 72 65 76 6e 72 7d 20 7b 0a 09 73 65 74 20 {revnr} {..set
10e0: 6d 79 68 65 61 64 72 65 76 6e 72 20 24 72 65 76 myheadrevnr $rev
10f0: 6e 72 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d nr..return. }
1100: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 .. method set
1110: 70 72 69 6e 63 69 70 61 6c 62 72 61 6e 63 68 20 principalbranch
1120: 7b 62 72 61 6e 63 68 6e 72 7d 20 7b 0a 09 73 65 {branchnr} {..se
1130: 74 20 6d 79 70 72 69 6e 63 69 70 61 6c 20 24 62 t myprincipal $b
1140: 72 61 6e 63 68 6e 72 0a 09 72 65 74 75 72 6e 0a ranchnr..return.
1150: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
1160: 64 20 64 65 66 74 61 67 20 7b 6e 61 6d 65 20 72 d deftag {name r
1170: 65 76 6e 72 7d 20 7b 0a 09 23 20 46 55 54 55 52 evnr} {..# FUTUR
1180: 45 3a 20 50 65 72 66 6f 72 6d 20 73 79 6d 62 6f E: Perform symbo
1190: 6c 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e l transformation
11a0: 20 68 65 72 65 2e 0a 0a 09 69 66 20 7b 5b 73 74 here....if {[st
11b0: 72 75 63 74 3a 3a 73 65 74 20 63 6f 6e 74 61 69 ruct::set contai
11c0: 6e 73 20 24 6d 79 73 79 6d 62 6f 6c 73 20 24 6e ns $mysymbols $n
11d0: 61 6d 65 5d 7d 20 7b 0a 09 20 20 20 20 74 72 6f ame]} {.. tro
11e0: 75 62 6c 65 20 66 61 74 61 6c 20 22 4d 75 6c 74 uble fatal "Mult
11f0: 69 70 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 iple definitions
1200: 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 27 of the symbol '
1210: 24 6e 61 6d 65 27 20 69 6e 20 27 24 6d 79 70 61 $name' in '$mypa
1220: 74 68 27 22 0a 09 20 20 20 20 72 65 74 75 72 6e th'".. return
1230: 0a 09 7d 0a 0a 09 73 74 72 75 63 74 3a 3a 73 65 ..}...struct::se
1240: 74 20 61 64 64 20 6d 79 73 79 6d 62 6f 6c 73 20 t add mysymbols
1250: 24 6e 61 6d 65 0a 0a 09 69 66 20 7b 5b 72 65 76 $name...if {[rev
1260: 20 69 73 62 72 61 6e 63 68 72 65 76 6e 72 20 24 isbranchrevnr $
1270: 72 65 76 6e 72 20 2d 3e 20 62 72 61 6e 63 68 6e revnr -> branchn
1280: 72 5d 7d 20 7b 0a 09 20 20 20 20 24 73 65 6c 66 r]} {.. $self
1290: 20 41 64 64 42 72 61 6e 63 68 20 24 6e 61 6d 65 AddBranch $name
12a0: 20 24 62 72 61 6e 63 68 6e 72 0a 09 7d 20 65 6c $branchnr..} el
12b0: 73 65 20 7b 0a 09 20 20 20 20 24 73 65 6c 66 20 se {.. $self
12c0: 41 64 64 54 61 67 20 24 6e 61 6d 65 20 24 72 65 AddTag $name $re
12d0: 76 6e 72 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 vnr..}..return.
12e0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
12f0: 20 73 65 74 63 6f 6d 6d 65 6e 74 20 7b 63 7d 20 setcomment {c}
1300: 7b 23 20 69 67 6e 6f 72 65 7d 0a 0a 20 20 20 20 {# ignore}..
1310: 6d 65 74 68 6f 64 20 61 64 6d 69 6e 64 6f 6e 65 method admindone
1320: 20 7b 7d 20 7b 0a 09 23 20 57 65 20 64 6f 20 6e {} {..# We do n
1330: 6f 74 68 69 6e 67 20 61 74 20 74 68 65 20 62 6f othing at the bo
1340: 75 6e 64 61 72 79 20 6f 66 20 61 64 6d 69 6e 20 undary of admin
1350: 61 6e 64 20 72 65 76 69 73 69 6f 6e 20 64 61 74 and revision dat
1360: 61 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 a. }.. met
1370: 68 6f 64 20 64 65 66 20 7b 72 65 76 6e 72 20 64 hod def {revnr d
1380: 61 74 65 20 61 75 74 68 6f 72 20 73 74 61 74 65 ate author state
1390: 20 6e 65 78 74 20 62 72 61 6e 63 68 65 73 7d 20 next branches}
13a0: 7b 0a 09 24 73 65 6c 66 20 52 65 63 6f 72 64 42 {..$self RecordB
13b0: 72 61 6e 63 68 43 6f 6d 6d 69 74 73 20 24 62 72 ranchCommits $br
13c0: 61 6e 63 68 65 73 0a 0a 09 69 66 20 7b 5b 69 6e anches...if {[in
13d0: 66 6f 20 65 78 69 73 74 73 20 6d 79 72 65 76 28 fo exists myrev(
13e0: 24 72 65 76 6e 72 29 5d 7d 20 7b 0a 09 20 20 20 $revnr)]} {..
13f0: 20 74 72 6f 75 62 6c 65 20 66 61 74 61 6c 20 22 trouble fatal "
1400: 46 69 6c 65 20 24 6d 79 70 61 74 68 20 63 6f 6e File $mypath con
1410: 74 61 69 6e 73 20 64 75 70 6c 69 63 61 74 65 20 tains duplicate
1420: 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 definitions for
1430: 72 65 76 69 73 69 6f 6e 20 24 72 65 76 6e 72 2e revision $revnr.
1440: 22 0a 09 20 20 20 20 72 65 74 75 72 6e 0a 09 7d ".. return..}
1450: 0a 0a 09 73 65 74 20 6d 79 61 69 64 28 24 72 65 ...set myaid($re
1460: 76 6e 72 29 20 5b 24 6d 79 70 72 6f 6a 65 63 74 vnr) [$myproject
1470: 20 64 65 66 61 75 74 68 6f 72 20 24 61 75 74 68 defauthor $auth
1480: 6f 72 5d 0a 09 73 65 74 20 6d 79 72 65 76 28 24 or]..set myrev($
1490: 72 65 76 6e 72 29 20 5b 72 65 76 20 25 41 55 54 revnr) [rev %AUT
14a0: 4f 25 20 24 72 65 76 6e 72 20 24 64 61 74 65 20 O% $revnr $date
14b0: 24 73 74 61 74 65 20 24 73 65 6c 66 5d 0a 0a 09 $state $self]...
14c0: 24 73 65 6c 66 20 52 65 63 6f 72 64 42 61 73 69 $self RecordBasi
14d0: 63 44 65 70 65 6e 64 65 6e 63 69 65 73 20 24 72 cDependencies $r
14e0: 65 76 6e 72 20 24 6e 65 78 74 0a 09 72 65 74 75 evnr $next..retu
14f0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 rn. }.. me
1500: 74 68 6f 64 20 64 65 66 64 6f 6e 65 20 7b 7d 20 thod defdone {}
1510: 7b 0a 09 23 20 54 68 69 73 20 69 73 20 61 6c 6c {..# This is all
1520: 20 64 6f 6e 65 20 61 66 74 65 72 20 74 68 65 20 done after the
1530: 72 65 76 69 73 69 6f 6e 20 74 72 65 65 20 68 61 revision tree ha
1540: 73 20 62 65 65 6e 20 65 78 74 72 61 63 74 65 64 s been extracted
1550: 0a 09 23 20 66 72 6f 6d 20 74 68 65 20 66 69 6c ..# from the fil
1560: 65 2c 20 62 65 66 6f 72 65 20 74 68 65 20 63 6f e, before the co
1570: 6d 6d 69 74 20 6d 65 73 61 67 65 73 20 61 6e 64 mmit mesages and
1580: 20 64 65 6c 74 61 20 74 65 78 74 73 20 61 72 65 delta texts are
1590: 0a 09 23 20 70 72 6f 63 65 73 73 65 64 2e 0a 0a ..# processed...
15a0: 09 24 73 65 6c 66 20 50 72 6f 63 65 73 73 50 72 .$self ProcessPr
15b0: 69 6d 61 72 79 44 65 70 65 6e 64 65 6e 63 69 65 imaryDependencie
15c0: 73 0a 09 24 73 65 6c 66 20 50 72 6f 63 65 73 73 s..$self Process
15d0: 42 72 61 6e 63 68 44 65 70 65 6e 64 65 6e 63 69 BranchDependenci
15e0: 65 73 0a 09 24 73 65 6c 66 20 53 6f 72 74 42 72 es..$self SortBr
15f0: 61 6e 63 68 65 73 0a 09 24 73 65 6c 66 20 50 72 anches..$self Pr
1600: 6f 63 65 73 73 54 61 67 44 65 70 65 6e 64 65 6e ocessTagDependen
1610: 63 69 65 73 0a 09 24 73 65 6c 66 20 44 65 74 65 cies..$self Dete
1620: 72 6d 69 6e 65 54 68 65 52 6f 6f 74 52 65 76 69 rmineTheRootRevi
1630: 73 69 6f 6e 0a 09 72 65 74 75 72 6e 0a 20 20 20 sion..return.
1640: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 }.. method s
1650: 65 74 64 65 73 63 20 7b 64 7d 20 7b 23 20 69 67 etdesc {d} {# ig
1660: 6e 6f 72 65 7d 0a 0a 20 20 20 20 6d 65 74 68 6f nore}.. metho
1670: 64 20 65 78 74 65 6e 64 20 7b 72 65 76 6e 72 20 d extend {revnr
1680: 63 6f 6d 6d 69 74 6d 73 67 20 74 65 78 74 72 61 commitmsg textra
1690: 6e 67 65 7d 20 7b 0a 09 73 65 74 20 63 6d 69 64 nge} {..set cmid
16a0: 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 64 65 66 [$myproject def
16b0: 63 6d 65 73 73 61 67 65 20 5b 73 74 72 69 6e 67 cmessage [string
16c0: 20 74 72 69 6d 20 24 63 6f 6d 6d 69 74 6d 73 67 trim $commitmsg
16d0: 5d 5d 0a 0a 09 73 65 74 20 72 65 76 20 24 6d 79 ]]...set rev $my
16e0: 72 65 76 28 24 72 65 76 6e 72 29 0a 0a 09 69 66 rev($revnr)...if
16f0: 20 7b 5b 24 72 65 76 20 68 61 73 6d 65 74 61 5d {[$rev hasmeta]
1700: 7d 20 7b 0a 09 20 20 20 20 23 20 41 70 70 61 72 } {.. # Appar
1710: 65 6e 74 6c 79 20 72 65 70 6f 73 69 74 6f 72 69 ently repositori
1720: 65 73 20 65 78 69 73 74 20 69 6e 20 77 68 69 63 es exist in whic
1730: 68 20 74 68 65 20 64 65 6c 74 61 20 64 61 74 61 h the delta data
1740: 0a 09 20 20 20 20 23 20 66 6f 72 20 72 65 76 69 .. # for revi
1750: 73 69 6f 6e 20 31 2e 31 20 69 73 20 70 72 6f 76 sion 1.1 is prov
1760: 69 64 65 64 20 73 65 76 65 72 61 6c 20 74 69 6d ided several tim
1770: 65 73 2c 20 61 74 20 6c 65 61 73 74 0a 09 20 20 es, at least..
1780: 20 20 23 20 74 77 69 63 65 2e 20 54 68 65 20 61 # twice. The a
1790: 63 74 75 61 6c 20 63 61 75 73 65 20 6f 66 20 74 ctual cause of t
17a0: 68 69 73 20 64 75 70 6c 69 63 61 74 69 6f 6e 20 his duplication
17b0: 69 73 20 6e 6f 74 0a 09 20 20 20 20 23 20 6b 6e is not.. # kn
17c0: 6f 77 6e 2e 20 53 70 65 63 75 6c 61 74 69 6f 6e own. Speculation
17d0: 20 63 65 6e 74 65 72 73 20 6f 6e 20 52 43 53 2f centers on RCS/
17e0: 43 56 53 20 62 75 67 73 2c 20 6f 72 20 66 72 6f CVS bugs, or fro
17f0: 6d 0a 09 20 20 20 20 23 20 6d 61 6e 75 61 6c 20 m.. # manual
1800: 65 64 69 74 73 20 6f 66 20 74 68 65 20 72 65 70 edits of the rep
1810: 6f 73 69 74 6f 72 79 20 77 68 69 63 68 20 62 6f ository which bo
1820: 72 6b 65 64 20 74 68 65 0a 09 20 20 20 20 23 20 rked the.. #
1830: 69 6e 74 65 72 6e 61 6c 73 2e 20 57 68 61 74 65 internals. Whate
1840: 76 65 72 20 74 68 65 20 63 61 75 73 65 2c 20 74 ver the cause, t
1850: 65 73 74 69 6e 67 20 73 68 6f 77 65 64 20 74 68 esting showed th
1860: 61 74 20 62 6f 74 68 0a 09 20 20 20 20 23 20 63 at both.. # c
1870: 76 73 20 61 6e 64 20 72 63 73 20 75 73 65 20 74 vs and rcs use t
1880: 68 65 20 66 69 72 73 74 20 64 65 66 69 6e 69 74 he first definit
1890: 69 6f 6e 20 77 68 65 6e 20 70 65 72 66 6f 72 6d ion when perform
18a0: 69 6e 67 20 61 0a 09 20 20 20 20 23 20 63 68 65 ing a.. # che
18b0: 63 6b 6f 75 74 2c 20 61 6e 64 20 77 65 20 66 6f ckout, and we fo
18c0: 6c 6c 6f 77 20 74 68 65 69 72 20 6c 65 61 64 2e llow their lead.
18d0: 20 53 69 64 65 20 6e 6f 74 65 73 3a 20 27 63 76 Side notes: 'cv
18e0: 73 0a 09 20 20 20 20 23 20 6c 6f 67 27 20 66 61 s.. # log' fa
18f0: 69 6c 73 20 6f 6e 20 73 75 63 68 20 61 20 66 69 ils on such a fi
1900: 6c 65 2c 20 61 6e 64 20 27 63 76 73 20 72 6c 6f le, and 'cvs rlo
1910: 67 27 20 70 72 69 6e 74 73 20 74 68 65 20 6c 6f g' prints the lo
1920: 67 0a 09 20 20 20 20 23 20 6d 65 73 73 61 67 65 g.. # message
1930: 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 from the first
1940: 64 65 6c 74 61 2c 20 69 67 6e 6f 72 69 6e 67 20 delta, ignoring
1950: 74 68 65 20 73 65 63 6f 6e 64 2e 0a 0a 09 20 20 the second....
1960: 20 20 6c 6f 67 20 77 72 69 74 65 20 31 20 66 69 log write 1 fi
1970: 6c 65 20 22 49 6e 20 66 69 6c 65 20 24 6d 79 70 le "In file $myp
1980: 61 74 68 20 3a 20 44 75 70 6c 69 63 61 74 65 20 ath : Duplicate
1990: 64 65 6c 74 61 20 64 61 74 61 20 66 6f 72 20 72 delta data for r
19a0: 65 76 69 73 69 6f 6e 20 24 72 65 76 6e 72 22 0a evision $revnr".
19b0: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 31 . log write 1
19c0: 20 66 69 6c 65 20 22 49 67 6e 6f 72 69 6e 67 20 file "Ignoring
19d0: 74 68 65 20 64 75 70 6c 69 63 61 74 65 22 0a 09 the duplicate"..
19e0: 20 20 20 20 72 65 74 75 72 6e 0a 09 7d 0a 0a 09 return..}...
19f0: 23 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 # Determine the
1a00: 6c 69 6e 65 20 6f 66 20 64 65 76 65 6c 6f 70 6d line of developm
1a10: 65 6e 74 20 66 6f 72 20 74 68 65 20 72 65 76 69 ent for the revi
1a20: 73 69 6f 6e 20 28 70 72 6f 6a 65 63 74 0a 09 23 sion (project..#
1a30: 20 6c 65 76 65 6c 29 2e 20 54 68 69 73 20 67 69 level). This gi
1a40: 76 65 73 20 75 73 20 74 68 65 20 62 72 61 6e 63 ves us the branc
1a50: 68 69 64 20 74 6f 6f 2c 20 72 65 71 75 69 72 65 hid too, require
1a60: 64 20 66 6f 72 20 74 68 65 0a 09 23 20 6d 65 74 d for the..# met
1a70: 61 20 64 61 74 61 20 67 72 6f 75 70 20 74 68 65 a data group the
1a80: 20 72 65 76 69 73 69 6f 6e 20 69 73 20 69 6e 2e revision is in.
1a90: 20 28 4e 6f 74 65 3a 20 42 79 20 70 75 74 74 69 (Note: By putti
1aa0: 6e 67 20 62 6f 74 68 0a 09 23 20 62 72 61 6e 63 ng both..# branc
1ab0: 68 2f 6c 6f 64 20 61 6e 64 20 70 72 6f 6a 65 63 h/lod and projec
1ac0: 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e t information in
1ad0: 74 6f 20 74 68 65 20 67 72 6f 75 70 20 77 65 20 to the group we
1ae0: 65 6e 73 75 72 65 0a 09 23 20 74 68 61 74 20 61 ensure..# that a
1af0: 6e 79 20 63 72 6f 73 73 2d 70 72 6f 6a 65 63 74 ny cross-project
1b00: 20 61 6e 64 20 63 72 6f 73 73 2d 62 72 61 6e 63 and cross-branc
1b10: 68 20 63 6f 6d 6d 69 74 73 20 61 72 65 0a 09 23 h commits are..#
1b20: 20 73 65 70 61 72 61 74 65 64 20 69 6e 74 6f 20 separated into
1b30: 6d 75 6c 74 69 70 6c 65 20 63 6f 6d 6d 69 74 73 multiple commits
1b40: 2c 20 6f 6e 65 20 69 6e 20 65 61 63 68 20 6f 66 , one in each of
1b50: 20 74 68 65 20 70 72 6f 6a 65 63 74 73 0a 09 23 the projects..#
1b60: 20 61 6e 64 2f 6f 72 20 62 72 61 6e 63 68 65 73 and/or branches
1b70: 29 2e 0a 0a 09 73 65 74 20 6c 6f 64 20 5b 24 73 )....set lod [$s
1b80: 65 6c 66 20 47 65 74 4c 4f 44 20 24 72 65 76 6e elf GetLOD $revn
1b90: 72 5d 0a 0a 09 24 72 65 76 20 73 65 74 6d 65 74 r]...$rev setmet
1ba0: 61 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 64 65 a [$myproject de
1bb0: 66 6d 65 74 61 20 5b 24 6c 6f 64 20 69 64 5d 20 fmeta [$lod id]
1bc0: 24 6d 79 61 69 64 28 24 72 65 76 6e 72 29 20 24 $myaid($revnr) $
1bd0: 63 6d 69 64 5d 0a 09 24 72 65 76 20 73 65 74 74 cmid]..$rev sett
1be0: 65 78 74 20 24 74 65 78 74 72 61 6e 67 65 0a 09 ext $textrange..
1bf0: 24 72 65 76 20 73 65 74 6c 6f 64 20 20 24 6c 6f $rev setlod $lo
1c00: 64 0a 0a 09 23 20 49 66 20 74 68 69 73 20 69 73 d...# If this is
1c10: 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 2c 20 77 revision 1.1, w
1c20: 65 20 68 61 76 65 20 74 6f 20 64 65 74 65 72 6d e have to determ
1c30: 69 6e 65 20 77 68 65 74 68 65 72 20 74 68 65 0a ine whether the.
1c40: 09 23 20 66 69 6c 65 20 73 65 65 6d 73 20 74 6f .# file seems to
1c50: 20 68 61 76 65 20 62 65 65 6e 20 63 72 65 61 74 have been creat
1c60: 65 64 20 74 68 72 6f 75 67 68 20 27 63 76 73 20 ed through 'cvs
1c70: 61 64 64 27 20 69 6e 73 74 65 61 64 20 6f 66 0a add' instead of.
1c80: 09 23 20 27 63 76 73 20 69 6d 70 6f 72 74 27 2e .# 'cvs import'.
1c90: 20 54 68 69 73 20 63 61 6e 20 62 65 20 64 6f 6e This can be don
1ca0: 65 20 62 79 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 e by looking at
1cb0: 74 68 65 20 75 6e 2d 0a 09 23 20 61 64 75 6c 74 the un-..# adult
1cc0: 65 72 61 74 65 64 20 63 6f 6d 6d 69 74 20 6d 65 erated commit me
1cd0: 73 73 61 67 65 2c 20 61 73 20 43 56 53 20 75 73 ssage, as CVS us
1ce0: 65 73 20 61 20 68 61 72 64 77 69 72 65 64 20 6d es a hardwired m
1cf0: 61 67 69 63 0a 09 23 20 6d 65 73 73 61 67 65 20 agic..# message
1d00: 66 6f 72 20 74 68 65 20 6c 61 74 74 65 72 2c 20 for the latter,
1d10: 69 2e 65 2e 20 22 49 6e 69 74 69 61 6c 20 72 65 i.e. "Initial re
1d20: 76 69 73 69 6f 6e 5c 6e 22 2c 20 6e 6f 0a 09 23 vision\n", no..#
1d30: 20 70 65 72 69 6f 64 2e 20 20 28 54 68 69 73 20 period. (This
1d40: 66 61 63 74 20 61 6c 73 6f 20 68 65 6c 70 73 20 fact also helps
1d50: 75 73 20 77 68 65 6e 20 74 68 65 20 74 69 6d 65 us when the time
1d60: 20 63 6f 6d 65 73 20 74 6f 0a 09 23 20 64 65 74 comes to..# det
1d70: 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 20 74 ermine whether t
1d80: 68 69 73 20 66 69 6c 65 20 6d 69 67 68 74 20 68 his file might h
1d90: 61 76 65 20 68 61 64 20 61 20 64 65 66 61 75 6c ave had a defaul
1da0: 74 20 62 72 61 6e 63 68 0a 09 23 20 69 6e 20 74 t branch..# in t
1db0: 68 65 20 70 61 73 74 2e 29 0a 0a 09 69 66 20 7b he past.)...if {
1dc0: 24 72 65 76 6e 72 20 65 71 20 22 31 2e 31 22 7d $revnr eq "1.1"}
1dd0: 20 7b 0a 09 20 20 20 20 73 65 74 20 6d 79 69 6d {.. set myim
1de0: 70 6f 72 74 65 64 20 5b 65 78 70 72 20 7b 24 63 ported [expr {$c
1df0: 6f 6d 6d 69 74 6d 73 67 20 65 71 20 22 49 6e 69 ommitmsg eq "Ini
1e00: 74 69 61 6c 20 72 65 76 69 73 69 6f 6e 5c 6e 22 tial revision\n"
1e10: 7d 5d 0a 09 7d 0a 0a 09 23 20 48 65 72 65 20 77 }]..}...# Here w
1e20: 65 20 61 6c 73 6f 20 6b 65 65 70 20 74 72 61 63 e also keep trac
1e30: 6b 20 6f 66 20 74 68 65 20 6f 72 64 65 72 20 69 k of the order i
1e40: 6e 20 77 68 69 63 68 20 74 68 65 20 72 65 76 69 n which the revi
1e50: 73 69 6f 6e 73 0a 09 23 20 77 65 72 65 20 61 64 sions..# were ad
1e60: 64 65 64 20 74 6f 20 74 68 65 20 66 69 6c 65 2e ded to the file.
1e70: 0a 0a 09 6c 61 70 70 65 6e 64 20 6d 79 72 65 76 ...lappend myrev
1e80: 69 73 69 6f 6e 73 20 24 72 65 76 0a 09 72 65 74 isions $rev..ret
1e90: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
1ea0: 65 74 68 6f 64 20 64 6f 6e 65 20 7b 7d 20 7b 0a ethod done {} {.
1eb0: 09 23 20 43 6f 6d 70 6c 65 74 65 20 74 68 65 20 .# Complete the
1ec0: 72 65 76 69 73 69 6f 6e 73 2c 20 62 72 61 6e 63 revisions, branc
1ed0: 68 65 73 2c 20 61 6e 64 20 74 61 67 73 2e 20 54 hes, and tags. T
1ee0: 68 69 73 20 69 6e 63 6c 75 64 65 73 0a 09 23 20 his includes..#
1ef0: 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 61 20 6e 6f looking for a no
1f00: 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 n-trunk default
1f10: 62 72 61 6e 63 68 2c 20 6d 61 72 6b 69 6e 67 20 branch, marking
1f20: 69 74 73 20 6d 65 6d 62 65 72 73 0a 09 23 20 61 its members..# a
1f30: 6e 64 20 6c 69 6e 6b 69 6e 67 20 74 68 65 6d 20 nd linking them
1f40: 69 6e 74 6f 20 74 68 65 20 74 72 75 6e 6b 2c 20 into the trunk,
1f50: 70 6f 73 73 69 62 6c 79 20 65 78 63 6c 75 64 69 possibly excludi
1f60: 6e 67 0a 09 23 20 6e 6f 6e 2d 74 72 75 6e 6b 20 ng..# non-trunk
1f70: 64 61 74 61 2c 20 61 6e 64 20 63 6f 6c 6c 65 63 data, and collec
1f80: 74 69 6e 67 20 61 67 67 72 65 67 61 74 65 20 73 ting aggregate s
1f90: 79 6d 62 6f 6c 20 73 74 61 74 69 73 74 69 63 73 ymbol statistics
1fa0: 2e 0a 0a 09 24 73 65 6c 66 20 44 65 74 65 72 6d ....$self Determ
1fb0: 69 6e 65 52 65 76 69 73 69 6f 6e 4f 70 65 72 61 ineRevisionOpera
1fc0: 74 69 6f 6e 73 0a 09 24 73 65 6c 66 20 44 65 74 tions..$self Det
1fd0: 65 72 6d 69 6e 65 4c 69 6e 65 73 4f 66 44 65 76 ermineLinesOfDev
1fe0: 65 6c 6f 70 6d 65 6e 74 0a 09 24 73 65 6c 66 20 elopment..$self
1ff0: 48 61 6e 64 6c 65 4e 6f 6e 54 72 75 6e 6b 44 65 HandleNonTrunkDe
2000: 66 61 75 6c 74 42 72 61 6e 63 68 0a 09 24 73 65 faultBranch..$se
2010: 6c 66 20 52 65 6d 6f 76 65 49 72 72 65 6c 65 76 lf RemoveIrrelev
2020: 61 6e 74 44 65 6c 65 74 69 6f 6e 73 0a 09 24 73 antDeletions..$s
2030: 65 6c 66 20 52 65 6d 6f 76 65 49 6e 69 74 69 61 elf RemoveInitia
2040: 6c 42 72 61 6e 63 68 44 65 6c 65 74 69 6f 6e 73 lBranchDeletions
2050: 0a 0a 09 69 66 20 7b 5b 24 6d 79 70 72 6f 6a 65 ...if {[$myproje
2060: 63 74 20 74 72 75 6e 6b 6f 6e 6c 79 5d 7d 20 7b ct trunkonly]} {
2070: 0a 09 20 20 20 20 24 73 65 6c 66 20 45 78 63 6c .. $self Excl
2080: 75 64 65 4e 6f 6e 54 72 75 6e 6b 49 6e 66 6f 72 udeNonTrunkInfor
2090: 6d 61 74 69 6f 6e 0a 09 7d 0a 0a 09 24 73 65 6c mation..}...$sel
20a0: 66 20 41 67 67 72 65 67 61 74 65 53 79 6d 62 6f f AggregateSymbo
20b0: 6c 44 61 74 61 0a 09 72 65 74 75 72 6e 0a 20 20 lData..return.
20c0: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 }.. # # ##
20d0: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
20e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
20f0: 0a 20 20 20 20 23 23 20 50 61 73 73 20 58 49 49 . ## Pass XII
2100: 20 28 49 6d 70 6f 72 74 29 2e 0a 0a 20 20 20 20 (Import)...
2110: 6d 65 74 68 6f 64 20 70 75 73 68 74 6f 20 7b 72 method pushto {r
2120: 65 70 6f 73 69 74 6f 72 79 7d 20 7b 0a 09 73 65 epository} {..se
2130: 74 20 77 73 20 5b 24 72 65 70 6f 73 69 74 6f 72 t ws [$repositor
2140: 79 20 77 6f 72 6b 73 70 61 63 65 5d 0a 09 73 74 y workspace]..st
2150: 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 ruct::list assig
2160: 6e 20 5b 24 73 65 6c 66 20 45 78 70 61 6e 64 20 n [$self Expand
2170: 24 77 73 5d 20 66 69 6c 65 6d 61 70 20 72 65 76 $ws] filemap rev
2180: 6d 61 70 0a 09 23 20 66 69 6c 65 6d 61 70 20 3d map..# filemap =
2190: 20 64 69 63 74 20 28 70 61 74 68 20 2d 3e 20 75 dict (path -> u
21a0: 75 69 64 29 0a 09 23 20 72 65 76 6d 61 70 20 20 uid)..# revmap
21b0: 3d 20 64 69 63 74 20 28 70 61 74 68 20 2d 3e 20 = dict (path ->
21c0: 72 69 64 29 0a 0a 09 61 72 72 61 79 20 73 65 74 rid)...array set
21d0: 20 69 64 6d 61 70 20 5b 24 72 65 70 6f 73 69 74 idmap [$reposit
21e0: 6f 72 79 20 69 6d 70 6f 72 74 66 69 6c 65 73 20 ory importfiles
21f0: 24 66 69 6c 65 6d 61 70 5d 0a 0a 09 23 20 57 69 $filemap]...# Wi
2200: 70 65 20 77 6f 72 6b 73 70 61 63 65 20 63 6c 65 pe workspace cle
2210: 61 6e 20 6f 66 20 74 68 65 20 69 6d 70 6f 72 74 an of the import
2220: 65 64 20 66 69 6c 65 73 2e 0a 09 66 6f 72 65 61 ed files...forea
2230: 63 68 20 78 20 5b 67 6c 6f 62 20 2d 64 69 72 65 ch x [glob -dire
2240: 63 74 6f 72 79 20 24 77 73 20 72 2a 5d 20 7b 20 ctory $ws r*] {
2250: 66 69 6c 65 20 64 65 6c 65 74 65 20 24 78 20 7d file delete $x }
2260: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 70 61 74 68 ...foreach {path
2270: 20 72 69 64 7d 20 24 72 65 76 6d 61 70 20 7b 0a rid} $revmap {.
2280: 09 20 20 20 20 73 65 74 20 75 75 69 64 20 24 69 . set uuid $i
2290: 64 6d 61 70 28 24 70 61 74 68 29 0a 09 20 20 20 dmap($path)..
22a0: 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 49 state run {...I
22b0: 4e 53 45 52 54 20 49 4e 54 4f 20 72 65 76 75 75 NSERT INTO revuu
22c0: 69 64 20 28 72 69 64 2c 20 20 75 75 69 64 29 0a id (rid, uuid).
22d0: 09 09 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 ..VALUES
22e0: 20 20 20 20 20 20 28 24 72 69 64 2c 20 24 75 75 ($rid, $uu
22f0: 69 64 29 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 id).. }..}..r
2300: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
2310: 20 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 20 7b method Expand {
2320: 64 69 72 7d 20 7b 0a 09 73 65 74 20 65 78 20 5b dir} {..set ex [
2330: 73 74 72 75 63 74 3a 3a 67 72 61 70 68 20 65 78 struct::graph ex
2340: 5d 20 3b 20 23 20 45 78 70 61 6e 73 69 6f 6e 20 ] ; # Expansion
2350: 67 72 61 70 68 2e 0a 09 73 65 74 20 7a 70 20 5b graph...set zp [
2360: 73 74 72 75 63 74 3a 3a 67 72 61 70 68 20 7a 70 struct::graph zp
2370: 5d 20 3b 20 23 20 5a 69 70 2f 49 6d 70 6f 72 74 ] ; # Zip/Import
2380: 20 67 72 61 70 68 2e 0a 0a 09 63 6c 6f 73 65 20 graph....close
2390: 5b 6f 70 65 6e 20 24 64 69 72 2f 72 5f 5f 65 6d [open $dir/r__em
23a0: 70 74 79 5f 5f 20 77 5d 3b 23 20 42 61 73 65 20 pty__ w];# Base
23b0: 66 6f 72 20 64 65 74 61 63 68 65 64 20 72 6f 6f for detached roo
23c0: 74 73 20 6f 6e 20 62 72 61 6e 63 68 65 73 2e 0a ts on branches..
23d0: 0a 09 23 20 50 68 61 73 65 20 49 3a 20 50 75 6c ..# Phase I: Pul
23e0: 6c 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 20 l the revisions
23f0: 66 72 6f 6d 20 6d 65 6d 6f 72 79 20 61 6e 64 20 from memory and
2400: 66 69 6c 6c 20 74 68 65 20 67 72 61 70 68 73 0a fill the graphs.
2410: 09 23 20 20 20 20 20 20 20 20 20 20 77 69 74 68 .# with
2420: 20 74 68 65 6d 2e 2e 2e 0a 0a 09 73 65 74 20 65 them......set e
2430: 61 72 63 73 20 20 20 7b 7d 20 3b 20 23 20 41 72 arcs {} ; # Ar
2440: 63 73 20 66 6f 72 20 65 78 70 61 6e 73 69 6f 6e cs for expansion
2450: 20 67 72 61 70 68 0a 09 73 65 74 20 7a 61 72 63 graph..set zarc
2460: 73 20 20 20 7b 7d 20 3b 20 23 20 41 72 63 73 20 s {} ; # Arcs
2470: 66 6f 72 20 7a 69 70 20 67 72 61 70 68 0a 09 73 for zip graph..s
2480: 65 74 20 72 65 76 6d 61 70 20 20 7b 7d 20 3b 20 et revmap {} ;
2490: 23 20 70 61 74 68 20 2d 3e 20 72 69 64 20 6d 61 # path -> rid ma
24a0: 70 20 74 6f 20 6c 61 74 65 72 20 6d 65 72 67 65 p to later merge
24b0: 20 75 75 69 64 20 69 6e 66 6f 72 6d 61 74 69 6f uuid informatio
24c0: 6e 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 69 64 n...foreach {rid
24d0: 20 72 65 76 6e 72 20 70 61 72 65 6e 74 20 63 68 revnr parent ch
24e0: 69 6c 64 20 63 6f 66 66 20 63 6c 65 6e 7d 20 5b ild coff clen} [
24f0: 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 state run {..
2500: 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 SELECT R.rid, R
2510: 2e 72 65 76 2c 20 52 2e 70 61 72 65 6e 74 2c 20 .rev, R.parent,
2520: 52 2e 63 68 69 6c 64 2c 20 52 2e 63 6f 66 66 2c R.child, R.coff,
2530: 20 52 2e 63 6c 65 6e 0a 09 20 20 20 20 46 52 4f R.clen.. FRO
2540: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 M revision R..
2550: 20 20 20 20 57 48 45 52 45 20 20 52 2e 66 69 64 WHERE R.fid
2560: 20 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 7b 0a 09 = $myid..}] {..
2570: 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 76 6d lappend revm
2580: 61 70 20 72 24 72 65 76 6e 72 20 24 72 69 64 0a ap r$revnr $rid.
2590: 0a 09 20 20 20 20 24 7a 70 20 6e 6f 64 65 20 69 .. $zp node i
25a0: 6e 73 65 72 74 20 24 72 69 64 0a 09 20 20 20 20 nsert $rid..
25b0: 24 7a 70 20 6e 6f 64 65 20 73 65 74 20 20 20 20 $zp node set
25c0: 24 72 69 64 20 72 65 76 6e 72 20 24 72 65 76 6e $rid revnr $revn
25d0: 72 0a 09 20 20 20 20 24 7a 70 20 6e 6f 64 65 20 r.. $zp node
25e0: 73 65 74 20 20 20 20 24 72 69 64 20 6c 61 62 65 set $rid labe
25f0: 6c 20 3c 24 72 65 76 6e 72 3e 0a 0a 09 20 20 20 l <$revnr>...
2600: 20 69 66 20 7b 24 63 68 69 6c 64 20 6e 65 20 22 if {$child ne "
2610: 22 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 7a "} {...lappend z
2620: 61 72 63 73 20 24 63 68 69 6c 64 20 24 72 69 64 arcs $child $rid
2630: 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 24 65 .. }... $e
2640: 78 20 6e 6f 64 65 20 69 6e 73 65 72 74 20 24 72 x node insert $r
2650: 69 64 0a 09 20 20 20 20 24 65 78 20 6e 6f 64 65 id.. $ex node
2660: 20 73 65 74 20 20 20 20 24 72 69 64 20 74 65 78 set $rid tex
2670: 74 20 20 5b 6c 69 73 74 20 24 63 6f 66 66 20 24 t [list $coff $
2680: 63 6c 65 6e 5d 0a 09 20 20 20 20 24 65 78 20 6e clen].. $ex n
2690: 6f 64 65 20 73 65 74 20 20 20 20 24 72 69 64 20 ode set $rid
26a0: 72 65 76 6e 72 20 24 72 65 76 6e 72 0a 09 20 20 revnr $revnr..
26b0: 20 20 24 65 78 20 6e 6f 64 65 20 73 65 74 20 20 $ex node set
26c0: 20 20 24 72 69 64 20 6c 61 62 65 6c 20 3c 24 72 $rid label <$r
26d0: 65 76 6e 72 3e 0a 0a 09 20 20 20 20 69 66 20 7b evnr>... if {
26e0: 5b 72 65 76 20 69 73 74 72 75 6e 6b 72 65 76 6e [rev istrunkrevn
26f0: 72 20 24 72 65 76 6e 72 5d 7d 20 7b 0a 09 09 23 r $revnr]} {...#
2700: 20 4f 6e 20 74 68 65 20 74 72 75 6e 6b 2c 20 74 On the trunk, t
2710: 68 69 73 20 72 65 76 69 73 69 6f 6e 20 69 73 20 his revision is
2720: 61 20 64 65 6c 74 61 20 62 61 73 65 64 20 6f 6e a delta based on
2730: 20 74 68 65 0a 09 09 23 20 63 68 69 6c 64 2e 20 the...# child.
2740: 54 68 61 74 20 6d 61 6b 65 73 20 74 68 65 20 63 That makes the c
2750: 68 69 6c 64 20 6f 75 72 20 70 72 65 64 65 63 65 hild our predece
2760: 73 73 6f 72 2e 0a 0a 09 09 69 66 20 7b 24 63 68 ssor.....if {$ch
2770: 69 6c 64 20 65 71 20 22 22 7d 20 63 6f 6e 74 69 ild eq ""} conti
2780: 6e 75 65 0a 09 09 6c 61 70 70 65 6e 64 20 65 61 nue...lappend ea
2790: 72 63 73 20 24 63 68 69 6c 64 20 24 72 69 64 0a rcs $child $rid.
27a0: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
27b0: 23 20 4f 6e 20 61 20 62 72 61 6e 63 68 20 74 68 # On a branch th
27c0: 69 73 20 72 65 76 69 73 69 6f 6e 20 69 73 20 61 is revision is a
27d0: 20 64 65 6c 74 61 20 62 61 73 65 64 20 6f 6e 20 delta based on
27e0: 74 68 65 0a 09 09 23 20 70 61 72 65 6e 74 2e 20 the...# parent.
27f0: 54 68 61 74 20 6d 61 6b 65 73 20 74 68 65 20 70 That makes the p
2800: 61 72 65 6e 74 20 6f 75 72 20 70 72 65 64 65 63 arent our predec
2810: 65 73 73 6f 72 2e 0a 0a 09 09 69 66 20 7b 24 70 essor.....if {$p
2820: 61 72 65 6e 74 20 65 71 20 22 22 7d 20 7b 0a 09 arent eq ""} {..
2830: 09 20 20 20 20 23 20 44 65 74 61 63 68 65 64 20 . # Detached
2840: 62 72 61 6e 63 68 20 72 6f 6f 74 2c 20 74 68 69 branch root, thi
2850: 73 20 69 73 20 61 20 70 61 74 63 68 20 62 61 73 s is a patch bas
2860: 65 64 20 6f 6e 0a 09 09 20 20 20 20 23 20 74 68 ed on... # th
2870: 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2e 0a e empty string..
2880: 09 09 20 20 20 20 24 65 78 20 6e 6f 64 65 20 73 .. $ex node s
2890: 65 74 20 24 72 69 64 20 5f 5f 62 61 73 65 5f 5f et $rid __base__
28a0: 20 72 5f 5f 65 6d 70 74 79 5f 5f 20 0a 09 09 20 r__empty__ ...
28b0: 20 20 20 63 6f 6e 74 69 6e 75 65 0a 09 09 7d 0a continue...}.
28c0: 09 09 6c 61 70 70 65 6e 64 20 65 61 72 63 73 20 ..lappend earcs
28d0: 24 70 61 72 65 6e 74 20 24 72 69 64 0a 09 20 20 $parent $rid..
28e0: 20 20 7d 0a 09 7d 0a 0a 09 23 20 50 68 61 73 65 }..}...# Phase
28f0: 20 49 49 3a 20 49 6e 73 65 72 74 20 74 68 65 20 II: Insert the
2900: 61 63 63 75 6d 75 6c 61 74 65 64 20 64 65 70 65 accumulated depe
2910: 6e 64 65 6e 63 69 65 73 0a 0a 09 66 6f 72 65 61 ndencies...forea
2920: 63 68 20 7b 66 72 6f 6d 20 74 6f 7d 20 24 65 61 ch {from to} $ea
2930: 72 63 73 20 7b 20 24 65 78 20 61 72 63 20 69 6e rcs { $ex arc in
2940: 73 65 72 74 20 24 66 72 6f 6d 20 24 74 6f 20 7d sert $from $to }
2950: 0a 09 66 6f 72 65 61 63 68 20 7b 66 72 6f 6d 20 ..foreach {from
2960: 74 6f 7d 20 24 7a 61 72 63 73 20 7b 20 24 7a 70 to} $zarcs { $zp
2970: 20 61 72 63 20 69 6e 73 65 72 74 20 24 66 72 6f arc insert $fro
2980: 6d 20 24 74 6f 20 7d 0a 0a 09 23 20 50 68 61 73 m $to }...# Phas
2990: 65 20 49 49 49 3a 20 54 72 61 76 65 72 73 65 20 e III: Traverse
29a0: 74 68 65 20 67 72 61 70 68 73 2c 20 65 78 70 61 the graphs, expa
29b0: 6e 64 20 74 68 65 20 66 69 6c 65 2c 20 61 6e 64 nd the file, and
29c0: 0a 09 23 20 20 20 20 20 20 20 20 20 20 20 20 67 ..# g
29d0: 65 6e 65 72 61 74 65 20 69 6d 70 6f 72 74 20 69 enerate import i
29e0: 6e 73 74 72 75 63 74 69 6f 6e 73 2e 0a 0a 09 73 nstructions....s
29f0: 65 74 20 61 72 63 68 69 76 65 20 5b 66 69 6c 65 et archive [file
2a00: 20 6a 6f 69 6e 20 5b 24 6d 79 70 72 6f 6a 65 63 join [$myprojec
2a10: 74 20 66 75 6c 6c 70 61 74 68 5d 20 24 6d 79 70 t fullpath] $myp
2a20: 61 74 68 5d 0a 09 73 65 74 20 61 63 20 20 20 20 ath]..set ac
2a30: 20 20 5b 6f 70 65 6e 20 24 61 72 63 68 69 76 65 [open $archive
2a40: 20 72 5d 0a 09 66 63 6f 6e 66 69 67 75 72 65 20 r]..fconfigure
2a50: 24 61 63 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e $ac -translation
2a60: 20 62 69 6e 61 72 79 0a 0a 09 23 20 46 69 72 73 binary...# Firs
2a70: 74 20 74 72 61 76 65 72 73 65 20 74 68 65 20 65 t traverse the e
2a80: 78 70 61 6e 73 69 6f 6e 20 67 72 61 70 68 2c 20 xpansion graph,
2a90: 74 68 69 73 20 67 69 76 65 73 20 75 73 20 74 68 this gives us th
2aa0: 65 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 20 69 e..# revisions i
2ab0: 6e 20 74 68 65 20 6f 72 64 65 72 20 77 65 20 68 n the order we h
2ac0: 61 76 65 20 74 6f 20 65 78 70 61 6e 64 20 74 68 ave to expand th
2ad0: 65 6d 2c 20 77 68 69 63 68 20 77 65 20 64 6f 2e em, which we do.
2ae0: 0a 0a 09 73 65 74 20 6d 61 78 20 5b 6c 6c 65 6e ...set max [llen
2af0: 67 74 68 20 5b 24 65 78 20 6e 6f 64 65 73 5d 5d gth [$ex nodes]]
2b00: 0a 09 73 65 74 20 6d 79 69 6d 70 6f 72 74 20 30 ..set myimport 0
2b10: 0a 0a 09 67 74 63 6f 72 65 20 64 61 74 61 63 6d ...gtcore datacm
2b20: 64 20 20 20 5b 6d 79 6d 65 74 68 6f 64 20 45 78 d [mymethod Ex
2b30: 70 61 6e 64 44 61 74 61 5d 0a 09 67 74 63 6f 72 pandData]..gtcor
2b40: 65 20 66 6f 72 6d 61 74 63 6d 64 20 5b 6d 79 6d e formatcmd [mym
2b50: 65 74 68 6f 64 20 45 78 70 61 6e 64 46 6f 72 6d ethod ExpandForm
2b60: 61 74 5d 0a 09 67 74 63 6f 72 65 20 73 6f 72 74 at]..gtcore sort
2b70: 63 6d 64 20 20 20 5b 6d 79 6d 65 74 68 6f 64 20 cmd [mymethod
2b80: 45 78 70 61 6e 64 53 6f 72 74 5d 0a 09 67 74 63 ExpandSort]..gtc
2b90: 6f 72 65 20 73 61 76 65 63 6d 64 20 20 20 5b 6d ore savecmd [m
2ba0: 79 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 31 20 ymethod Expand1
2bb0: 24 61 63 20 24 64 69 72 20 24 6d 61 78 5d 0a 0a $ac $dir $max]..
2bc0: 09 67 74 63 6f 72 65 20 74 72 61 76 65 72 73 65 .gtcore traverse
2bd0: 20 24 65 78 20 7b 45 78 70 61 6e 64 69 6e 67 20 $ex {Expanding
2be0: 72 65 76 69 73 69 6f 6e 73 2e 2e 2e 7d 0a 09 63 revisions...}..c
2bf0: 6c 6f 73 65 20 24 61 63 0a 0a 09 23 20 4e 6f 77 lose $ac...# Now
2c00: 20 74 72 61 76 65 72 73 65 20 74 68 65 20 69 6d traverse the im
2c10: 70 6f 72 74 20 67 72 61 70 68 2c 20 74 68 69 73 port graph, this
2c20: 20 62 75 69 6c 64 73 20 74 68 65 20 69 6e 73 74 builds the inst
2c30: 72 75 63 74 69 6f 6e 0a 09 23 20 6d 61 70 20 66 ruction..# map f
2c40: 6f 72 20 74 68 65 20 66 6f 73 73 69 6c 20 64 65 or the fossil de
2c50: 6c 74 61 73 2e 0a 0a 09 67 74 63 6f 72 65 20 64 ltas....gtcore d
2c60: 61 74 61 63 6d 64 20 20 20 5b 6d 79 6d 65 74 68 atacmd [mymeth
2c70: 6f 64 20 45 78 70 61 6e 64 44 61 74 61 5d 0a 09 od ExpandData]..
2c80: 67 74 63 6f 72 65 20 66 6f 72 6d 61 74 63 6d 64 gtcore formatcmd
2c90: 20 5b 6d 79 6d 65 74 68 6f 64 20 45 78 70 61 6e [mymethod Expan
2ca0: 64 46 6f 72 6d 61 74 5d 0a 09 67 74 63 6f 72 65 dFormat]..gtcore
2cb0: 20 73 6f 72 74 63 6d 64 20 20 20 5b 6d 79 6d 65 sortcmd [myme
2cc0: 74 68 6f 64 20 45 78 70 61 6e 64 53 6f 72 74 5d thod ExpandSort]
2cd0: 0a 09 67 74 63 6f 72 65 20 73 61 76 65 63 6d 64 ..gtcore savecmd
2ce0: 20 20 20 5b 6d 79 6d 65 74 68 6f 64 20 45 78 70 [mymethod Exp
2cf0: 61 6e 64 32 5d 0a 0a 09 73 65 74 20 6d 79 69 6d and2]...set myim
2d00: 70 6f 72 74 20 7b 7d 0a 09 67 74 63 6f 72 65 20 port {}..gtcore
2d10: 74 72 61 76 65 72 73 65 20 24 7a 70 20 7b 47 65 traverse $zp {Ge
2d20: 6e 65 72 61 74 69 6e 67 20 72 65 76 69 73 69 6f nerating revisio
2d30: 6e 20 6f 72 64 65 72 20 66 6f 72 20 69 6d 70 6f n order for impo
2d40: 72 74 2e 2e 2e 7d 0a 09 73 65 74 20 66 69 6c 65 rt...}..set file
2d50: 6d 61 70 20 24 6d 79 69 6d 70 6f 72 74 0a 09 75 map $myimport..u
2d60: 6e 73 65 74 20 6d 79 69 6d 70 6f 72 74 0a 0a 09 nset myimport...
2d70: 23 20 41 6e 64 20 62 61 63 6b 20 74 6f 20 69 6d # And back to im
2d80: 70 6f 72 74 20 63 6f 6e 74 72 6f 6c 0a 0a 09 24 port control...$
2d90: 65 78 20 64 65 73 74 72 6f 79 0a 09 24 7a 70 20 ex destroy..$zp
2da0: 64 65 73 74 72 6f 79 0a 0a 09 72 65 74 75 72 6e destroy...return
2db0: 20 5b 6c 69 73 74 20 24 66 69 6c 65 6d 61 70 20 [list $filemap
2dc0: 24 72 65 76 6d 61 70 5d 0a 20 20 20 20 7d 0a 0a $revmap]. }..
2dd0: 20 20 20 20 6d 65 74 68 6f 64 20 45 78 70 61 6e method Expan
2de0: 64 44 61 74 61 20 20 20 7b 67 72 61 70 68 20 6e dData {graph n
2df0: 6f 64 65 7d 20 7b 20 72 65 74 75 72 6e 20 5b 24 ode} { return [$
2e00: 67 72 61 70 68 20 6e 6f 64 65 20 67 65 74 20 24 graph node get $
2e10: 6e 6f 64 65 20 72 65 76 6e 72 5d 20 7d 0a 20 20 node revnr] }.
2e20: 20 20 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 46 method ExpandF
2e30: 6f 72 6d 61 74 20 7b 67 72 61 70 68 20 69 74 65 ormat {graph ite
2e40: 6d 7d 20 7b 20 72 65 74 75 72 6e 20 3c 5b 6c 69 m} { return <[li
2e50: 6e 64 65 78 20 24 69 74 65 6d 20 31 5d 3e 20 7d ndex $item 1]> }
2e60: 20 3b 20 23 20 72 65 76 6e 72 0a 20 20 20 20 6d ; # revnr. m
2e70: 65 74 68 6f 64 20 45 78 70 61 6e 64 53 6f 72 74 ethod ExpandSort
2e80: 20 20 20 7b 67 72 61 70 68 20 63 61 6e 64 69 64 {graph candid
2e90: 61 74 65 73 7d 20 7b 0a 09 23 20 63 61 6e 64 69 ates} {..# candi
2ea0: 64 61 74 65 73 20 3d 20 6c 69 73 74 28 69 74 65 dates = list(ite
2eb0: 6d 29 2c 20 69 74 65 6d 20 3d 20 6c 69 73 74 28 m), item = list(
2ec0: 6e 6f 64 65 20 72 65 76 6e 72 29 0a 09 23 20 53 node revnr)..# S
2ed0: 6f 72 74 20 62 79 20 6e 6f 64 65 20 61 6e 64 20 ort by node and
2ee0: 72 65 76 6e 72 20 2d 3e 20 54 72 75 6e 6b 20 72 revnr -> Trunk r
2ef0: 65 76 69 73 69 6f 6e 73 20 63 6f 6d 65 20 66 69 evisions come fi
2f00: 72 73 74 2e 0a 09 72 65 74 75 72 6e 20 5b 6c 73 rst...return [ls
2f10: 6f 72 74 20 2d 69 6e 64 65 78 20 31 20 2d 64 69 ort -index 1 -di
2f20: 63 74 20 5b 6c 73 6f 72 74 20 2d 69 6e 64 65 78 ct [lsort -index
2f30: 20 30 20 2d 64 69 63 74 20 24 63 61 6e 64 69 64 0 -dict $candid
2f40: 61 74 65 73 5d 5d 0a 20 20 20 20 7d 0a 20 20 20 ates]]. }.
2f50: 20 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 31 20 method Expand1
2f60: 7b 63 68 61 6e 20 64 69 72 20 6d 61 78 20 67 72 {chan dir max gr
2f70: 61 70 68 20 6e 6f 64 65 7d 20 7b 0a 09 6c 6f 67 aph node} {..log
2f80: 20 70 72 6f 67 72 65 73 73 20 33 20 66 69 6c 65 progress 3 file
2f90: 20 24 6d 79 69 6d 70 6f 72 74 20 24 6d 61 78 20 $myimport $max
2fa0: 3b 20 69 6e 63 72 20 6d 79 69 6d 70 6f 72 74 0a ; incr myimport.
2fb0: 0a 09 73 65 74 20 72 65 76 6e 72 20 20 20 20 20 ..set revnr
2fc0: 20 20 20 20 20 20 5b 24 67 72 61 70 68 20 6e 6f [$graph no
2fd0: 64 65 20 67 65 74 20 24 6e 6f 64 65 20 72 65 76 de get $node rev
2fe0: 6e 72 5d 0a 09 73 65 74 20 66 6e 61 6d 65 20 20 nr]..set fname
2ff0: 20 20 20 20 20 20 20 20 72 24 72 65 76 6e 72 0a r$revnr.
3000: 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 .struct::list as
3010: 73 69 67 6e 20 5b 24 67 72 61 70 68 20 6e 6f 64 sign [$graph nod
3020: 65 20 67 65 74 20 24 6e 6f 64 65 20 74 65 78 74 e get $node text
3030: 5d 20 6f 66 66 73 65 74 20 6c 65 6e 67 74 68 0a ] offset length.
3040: 0a 09 69 66 20 7b 24 6c 65 6e 67 74 68 20 3c 20 ..if {$length <
3050: 30 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 64 61 0} {.. set da
3060: 74 61 20 22 22 0a 09 7d 20 65 6c 73 65 20 7b 0a ta ""..} else {.
3070: 09 20 20 20 20 73 65 65 6b 20 24 63 68 61 6e 20 . seek $chan
3080: 24 6f 66 66 73 65 74 20 73 74 61 72 74 0a 09 20 $offset start..
3090: 20 20 20 73 65 74 20 64 61 74 61 20 5b 73 74 72 set data [str
30a0: 69 6e 67 20 6d 61 70 20 7b 40 40 20 40 7d 20 5b ing map {@@ @} [
30b0: 72 65 61 64 20 24 63 68 61 6e 20 24 6c 65 6e 67 read $chan $leng
30c0: 74 68 5d 5d 0a 09 7d 0a 0a 09 69 66 20 7b 21 5b th]]..}...if {![
30d0: 24 67 72 61 70 68 20 6e 6f 64 65 20 6b 65 79 65 $graph node keye
30e0: 78 69 73 74 73 20 24 6e 6f 64 65 20 5f 5f 62 61 xists $node __ba
30f0: 73 65 5f 5f 5d 7d 20 7b 0a 09 20 20 20 20 23 20 se__]} {.. #
3100: 46 75 6c 6c 20 74 65 78 74 20 6e 6f 64 65 2e 20 Full text node.
3110: 47 65 74 20 74 68 65 20 64 61 74 61 2c 20 64 65 Get the data, de
3120: 63 6f 64 65 20 69 74 2c 20 61 6e 64 20 73 61 76 code it, and sav
3130: 65 2e 0a 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 e.... log wri
3140: 74 65 20 38 20 66 69 6c 65 20 7b 45 78 70 61 6e te 8 file {Expan
3150: 64 69 6e 67 20 3c 24 72 65 76 6e 72 3e 2c 20 66 ding <$revnr>, f
3160: 75 6c 6c 20 74 65 78 74 7d 0a 0a 09 20 20 20 20 ull text}...
3170: 66 69 6c 65 75 74 69 6c 3a 3a 77 72 69 74 65 46 fileutil::writeF
3180: 69 6c 65 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e ile -translation
3190: 20 62 69 6e 61 72 79 20 24 64 69 72 2f 24 66 6e binary $dir/$fn
31a0: 61 6d 65 20 24 64 61 74 61 0a 09 7d 20 65 6c 73 ame $data..} els
31b0: 65 20 7b 0a 09 20 20 20 20 23 20 44 65 6c 74 61 e {.. # Delta
31c0: 20 6e 6f 64 65 2e 20 5f 5f 62 61 73 65 5f 5f 20 node. __base__
31d0: 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 is the name of t
31e0: 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 he file containi
31f0: 6e 67 0a 09 20 20 20 20 23 20 74 68 65 20 62 61 ng.. # the ba
3200: 73 65 6c 69 6e 65 2e 20 54 68 65 20 70 61 74 63 seline. The patc
3210: 68 20 69 73 20 61 74 20 74 68 65 20 73 70 65 63 h is at the spec
3220: 69 66 69 65 64 20 6c 6f 63 61 74 69 6f 6e 20 6f ified location o
3230: 66 0a 09 20 20 20 20 23 20 74 68 65 20 61 72 63 f.. # the arc
3240: 68 69 76 65 20 66 69 6c 65 2e 0a 0a 09 20 20 20 hive file....
3250: 20 73 65 74 20 66 62 61 73 65 20 5b 24 67 72 61 set fbase [$gra
3260: 70 68 20 6e 6f 64 65 20 67 65 74 20 24 6e 6f 64 ph node get $nod
3270: 65 20 5f 5f 62 61 73 65 5f 5f 5d 0a 09 20 20 20 e __base__]..
3280: 20 6c 6f 67 20 77 72 69 74 65 20 38 20 66 69 6c log write 8 fil
3290: 65 20 7b 45 78 70 61 6e 64 69 6e 67 20 3c 24 72 e {Expanding <$r
32a0: 65 76 6e 72 3e 2c 20 69 73 20 64 65 6c 74 61 20 evnr>, is delta
32b0: 6f 66 20 3c 24 66 62 61 73 65 3e 7d 0a 0a 09 20 of <$fbase>}...
32c0: 20 20 20 73 65 74 20 62 61 73 65 20 5b 66 69 6c set base [fil
32d0: 65 75 74 69 6c 3a 3a 63 61 74 20 2d 74 72 61 6e eutil::cat -tran
32e0: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 20 24 slation binary $
32f0: 64 69 72 2f 24 66 62 61 73 65 5d 0a 0a 09 20 20 dir/$fbase]...
3300: 20 20 23 20 57 72 69 74 69 6e 67 20 74 68 65 20 # Writing the
3310: 70 61 74 63 68 20 74 6f 20 64 69 73 6b 20 69 73 patch to disk is
3320: 20 6a 75 73 74 20 66 6f 72 20 62 65 74 74 65 72 just for better
3330: 0a 09 20 20 20 20 23 20 64 65 62 75 67 67 69 6e .. # debuggin
3340: 67 2e 20 49 74 20 69 73 20 6e 6f 74 20 75 73 65 g. It is not use
3350: 64 20 6f 74 68 65 72 77 69 73 65 2e 0a 09 20 20 d otherwise...
3360: 20 20 66 69 6c 65 75 74 69 6c 3a 3a 77 72 69 74 fileutil::writ
3370: 65 46 69 6c 65 20 24 64 69 72 2f 72 70 61 74 63 eFile $dir/rpatc
3380: 68 20 24 64 61 74 61 0a 09 20 20 20 20 66 69 6c h $data.. fil
3390: 65 75 74 69 6c 3a 3a 77 72 69 74 65 46 69 6c 65 eutil::writeFile
33a0: 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 -translation bi
33b0: 6e 61 72 79 20 24 64 69 72 2f 24 66 6e 61 6d 65 nary $dir/$fname
33c0: 20 5c 0a 09 09 5b 41 70 70 6c 79 20 24 62 61 73 \...[Apply $bas
33d0: 65 20 24 64 61 74 61 5d 0a 09 7d 0a 0a 09 23 20 e $data]..}...#
33e0: 50 6f 73 74 20 74 6f 20 61 6c 6c 20 73 75 63 63 Post to all succ
33f0: 65 73 73 6f 72 73 20 74 68 61 74 20 74 68 65 20 essors that the
3400: 6a 75 73 74 20 67 65 6e 65 72 61 74 65 64 20 66 just generated f
3410: 69 6c 65 20 69 73 20 74 68 65 69 72 0a 09 23 20 ile is their..#
3420: 62 61 73 65 6c 69 6e 65 2e 0a 0a 09 66 6f 72 65 baseline....fore
3430: 61 63 68 20 6f 75 74 20 5b 24 67 72 61 70 68 20 ach out [$graph
3440: 6e 6f 64 65 73 20 2d 6f 75 74 20 24 6e 6f 64 65 nodes -out $node
3450: 5d 20 7b 0a 09 20 20 20 20 24 67 72 61 70 68 20 ] {.. $graph
3460: 6e 6f 64 65 20 73 65 74 20 24 6f 75 74 20 5f 5f node set $out __
3470: 62 61 73 65 5f 5f 20 24 66 6e 61 6d 65 0a 09 7d base__ $fname..}
3480: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
3490: 20 20 20 20 70 72 6f 63 20 41 70 70 6c 79 20 7b proc Apply {
34a0: 62 61 73 65 20 64 65 6c 74 61 7d 20 7b 0a 09 23 base delta} {..#
34b0: 20 62 61 73 65 20 20 3d 20 62 61 73 65 20 74 65 base = base te
34c0: 78 74 2e 0a 09 23 20 64 65 6c 74 61 20 3d 20 64 xt...# delta = d
34d0: 65 6c 74 61 20 69 6e 20 72 63 73 20 66 6f 72 6d elta in rcs form
34e0: 61 74 2e 0a 09 23 0a 09 23 20 42 6f 74 68 20 73 at...#..# Both s
34f0: 74 72 69 6e 67 73 20 61 72 65 20 75 6e 65 6e 63 trings are unenc
3500: 6f 64 65 64 2c 20 69 2e 65 2e 20 74 68 69 6e 67 oded, i.e. thing
3510: 73 20 6c 69 6b 65 20 40 40 2c 20 65 74 63 2e 20 s like @@, etc.
3520: 68 61 76 65 0a 09 23 20 61 6c 72 65 61 64 79 20 have..# already
3530: 62 65 65 6e 20 72 65 70 6c 61 63 65 64 20 77 69 been replaced wi
3540: 74 68 20 74 68 65 69 72 20 70 72 6f 70 65 72 20 th their proper
3550: 63 68 61 72 61 63 74 65 72 73 2e 0a 09 23 0a 09 characters...#..
3560: 23 20 52 65 74 75 72 6e 20 76 61 6c 75 65 20 69 # Return value i
3570: 73 20 74 68 65 20 70 61 74 63 68 65 64 20 74 65 s the patched te
3580: 78 74 2e 0a 0a 09 73 65 74 20 62 61 73 65 20 5b xt....set base [
3590: 73 70 6c 69 74 20 24 62 61 73 65 20 5c 6e 5d 0a split $base \n].
35a0: 09 73 65 74 20 62 6c 65 6e 20 5b 6c 6c 65 6e 67 .set blen [lleng
35b0: 74 68 20 24 62 61 73 65 5d 0a 09 73 65 74 20 6f th $base]..set o
35c0: 6f 66 66 20 30 0a 09 73 65 74 20 72 65 73 20 22 off 0..set res "
35d0: 22 0a 0a 09 73 65 74 20 6c 69 6e 65 73 20 20 5b "...set lines [
35e0: 73 70 6c 69 74 20 24 64 65 6c 74 61 20 5c 6e 5d split $delta \n]
35f0: 0a 09 73 65 74 20 6e 6c 69 6e 65 73 20 5b 6c 6c ..set nlines [ll
3600: 65 6e 67 74 68 20 24 6c 69 6e 65 73 5d 0a 0a 09 ength $lines]...
3610: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 for {set i 0} {$
3620: 69 20 3c 20 24 6e 6c 69 6e 65 73 7d 20 7b 7d 20 i < $nlines} {}
3630: 7b 0a 09 20 20 20 20 69 66 20 7b 21 5b 72 65 67 {.. if {![reg
3640: 65 78 70 20 7b 5e 28 5b 61 64 5d 29 28 5c 64 2b exp {^([ad])(\d+
3650: 29 5c 73 28 5c 64 2b 29 24 7d 20 5b 6c 69 6e 64 )\s(\d+)$} [lind
3660: 65 78 20 24 6c 69 6e 65 73 20 24 69 5d 20 2d 3e ex $lines $i] ->
3670: 20 63 6d 64 20 73 6c 20 63 6e 5d 7d 20 7b 0a 09 cmd sl cn]} {..
3680: 09 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 .trouble interna
3690: 6c 20 22 42 61 64 20 65 64 20 63 6f 6d 6d 61 6e l "Bad ed comman
36a0: 64 20 27 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 d '[lindex $line
36b0: 73 20 24 69 5d 27 22 0a 09 20 20 20 20 7d 0a 0a s $i]'".. }..
36c0: 09 20 20 20 20 69 6e 63 72 20 69 0a 09 20 20 20 . incr i..
36d0: 20 73 65 74 20 65 6c 20 5b 65 78 70 72 20 7b 24 set el [expr {$
36e0: 73 6c 20 2b 20 24 63 6e 7d 5d 0a 0a 09 20 20 20 sl + $cn}]...
36f0: 20 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d switch -exact -
3700: 2d 20 24 63 6d 64 20 7b 0a 09 09 64 20 7b 0a 09 - $cmd {...d {..
3710: 09 20 20 20 20 69 6e 63 72 20 73 6c 20 2d 31 0a . incr sl -1.
3720: 09 09 20 20 20 20 69 6e 63 72 20 65 6c 20 2d 31 .. incr el -1
3730: 0a 09 09 20 20 20 20 69 66 20 7b 24 73 6c 20 3c ... if {$sl <
3740: 20 24 6f 6f 66 66 7d 20 7b 20 74 72 6f 75 62 6c $ooff} { troubl
3750: 65 20 69 6e 74 65 72 6e 61 6c 20 7b 44 65 6c 65 e internal {Dele
3760: 74 69 6f 6e 20 62 65 66 6f 72 65 20 6c 61 73 74 tion before last
3770: 20 65 64 69 74 7d 20 7d 0a 09 09 20 20 20 20 69 edit} }... i
3780: 66 20 7b 24 73 6c 20 3e 20 24 62 6c 65 6e 7d 20 f {$sl > $blen}
3790: 7b 20 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 6e { trouble intern
37a0: 61 6c 20 7b 44 65 6c 65 74 69 6f 6e 20 70 61 73 al {Deletion pas
37b0: 74 20 66 69 6c 65 20 65 6e 64 7d 20 7d 0a 09 09 t file end} }...
37c0: 20 20 20 20 69 66 20 7b 24 65 6c 20 3e 20 24 62 if {$el > $b
37d0: 6c 65 6e 7d 20 7b 20 74 72 6f 75 62 6c 65 20 69 len} { trouble i
37e0: 6e 74 65 72 6e 61 6c 20 7b 44 65 6c 65 74 69 6f nternal {Deletio
37f0: 6e 20 62 65 79 6f 6e 64 20 66 69 6c 65 20 65 6e n beyond file en
3800: 64 7d 20 7d 0a 09 09 20 20 20 20 66 6f 72 65 61 d} }... forea
3810: 63 68 20 78 20 5b 6c 72 61 6e 67 65 20 24 62 61 ch x [lrange $ba
3820: 73 65 20 24 6f 6f 66 66 20 24 73 6c 5d 20 7b 20 se $ooff $sl] {
3830: 6c 61 70 70 65 6e 64 20 72 65 73 20 24 78 20 7d lappend res $x }
3840: 0a 09 09 20 20 20 20 73 65 74 20 20 6f 6f 66 66 ... set ooff
3850: 20 24 65 6c 0a 09 09 7d 0a 09 09 61 20 7b 0a 09 $el...}...a {..
3860: 09 20 20 20 20 69 66 20 7b 24 73 6c 20 3c 20 24 . if {$sl < $
3870: 6f 6f 66 66 7d 20 7b 20 74 72 6f 75 62 6c 65 20 ooff} { trouble
3880: 69 6e 74 65 72 6e 61 6c 20 7b 49 6e 73 65 72 74 internal {Insert
3890: 20 62 65 66 6f 72 65 20 6c 61 73 74 20 65 64 69 before last edi
38a0: 74 7d 20 7d 0a 09 09 20 20 20 20 69 66 20 7b 24 t} }... if {$
38b0: 73 6c 20 3e 20 24 62 6c 65 6e 7d 20 7b 20 74 72 sl > $blen} { tr
38c0: 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 7b ouble internal {
38d0: 49 6e 73 65 72 74 20 70 61 73 74 20 66 69 6c 65 Insert past file
38e0: 20 65 6e 64 7d 20 7d 0a 0a 09 09 20 20 20 20 66 end} }.... f
38f0: 6f 72 65 61 63 68 20 78 20 5b 6c 72 61 6e 67 65 oreach x [lrange
3900: 20 24 62 61 73 65 20 24 6f 6f 66 66 20 24 73 6c $base $ooff $sl
3910: 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 ] {
3920: 6c 61 70 70 65 6e 64 20 72 65 73 20 24 78 20 7d lappend res $x }
3930: 0a 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 78 ... foreach x
3940: 20 5b 6c 72 61 6e 67 65 20 24 6c 69 6e 65 73 20 [lrange $lines
3950: 24 69 20 5b 65 78 70 72 20 7b 24 69 20 2b 20 24 $i [expr {$i + $
3960: 63 6e 7d 5d 5d 20 7b 20 6c 61 70 70 65 6e 64 20 cn}]] { lappend
3970: 72 65 73 20 24 78 20 7d 0a 09 09 20 20 20 20 73 res $x }... s
3980: 65 74 20 6f 6f 66 66 20 24 73 6c 0a 09 09 20 20 et ooff $sl...
3990: 20 20 69 6e 63 72 20 69 20 24 63 6e 0a 09 09 7d incr i $cn...}
39a0: 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 65 .. }..}..fore
39b0: 61 63 68 20 78 20 5b 6c 72 61 6e 67 65 20 24 62 ach x [lrange $b
39c0: 61 73 65 20 24 6f 6f 66 66 20 65 6e 64 5d 20 7b ase $ooff end] {
39d0: 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 78 20 lappend res $x
39e0: 7d 0a 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 }..return [join
39f0: 24 72 65 73 20 5c 6e 5d 0a 20 20 20 20 7d 0a 0a $res \n]. }..
3a00: 20 20 20 20 6d 65 74 68 6f 64 20 45 78 70 61 6e method Expan
3a10: 64 32 20 7b 67 72 61 70 68 20 6e 6f 64 65 7d 20 d2 {graph node}
3a20: 7b 0a 09 73 65 74 20 72 65 76 6e 72 20 5b 24 67 {..set revnr [$g
3a30: 72 61 70 68 20 6e 6f 64 65 20 67 65 74 20 24 6e raph node get $n
3a40: 6f 64 65 20 72 65 76 6e 72 5d 0a 0a 09 23 20 46 ode revnr]...# F
3a50: 69 72 73 74 20 69 6d 70 6f 72 74 20 74 68 65 20 irst import the
3a60: 66 69 6c 65 2e 0a 09 6c 61 70 70 65 6e 64 20 6d file...lappend m
3a70: 79 69 6d 70 6f 72 74 20 5b 6c 69 73 74 20 41 20 yimport [list A
3a80: 72 24 72 65 76 6e 72 20 7b 7d 5d 0a 0a 09 69 66 r$revnr {}]...if
3a90: 20 7b 5b 24 67 72 61 70 68 20 6e 6f 64 65 20 6b {[$graph node k
3aa0: 65 79 65 78 69 73 74 73 20 24 6e 6f 64 65 20 5f eyexists $node _
3ab0: 5f 62 61 73 65 5f 5f 5d 7d 20 7b 0a 09 20 20 20 _base__]} {..
3ac0: 20 23 20 44 65 6c 74 61 20 6e 6f 64 65 2e 20 5f # Delta node. _
3ad0: 5f 62 61 73 65 5f 5f 20 69 73 20 74 68 65 20 6e _base__ is the n
3ae0: 61 6d 65 20 6f 66 20 74 68 65 20 66 69 6c 65 20 ame of the file
3af0: 63 6f 6e 74 61 69 6e 69 6e 67 0a 09 20 20 20 20 containing..
3b00: 23 20 74 68 65 20 62 61 73 65 6c 69 6e 65 2e 20 # the baseline.
3b10: 47 65 6e 65 72 61 74 65 20 69 6e 73 74 72 75 63 Generate instruc
3b20: 74 69 6f 6e 20 74 6f 20 6d 61 6b 65 20 74 68 65 tion to make the
3b30: 20 64 65 6c 74 61 20 61 73 0a 09 20 20 20 20 23 delta as.. #
3b40: 20 77 65 6c 6c 2e 0a 0a 09 20 20 20 20 73 65 74 well.... set
3b50: 20 66 62 61 73 65 20 5b 24 67 72 61 70 68 20 6e fbase [$graph n
3b60: 6f 64 65 20 67 65 74 20 24 6e 6f 64 65 20 5f 5f ode get $node __
3b70: 62 61 73 65 5f 5f 5d 0a 09 20 20 20 20 6c 61 70 base__].. lap
3b80: 70 65 6e 64 20 6d 79 69 6d 70 6f 72 74 20 5b 6c pend myimport [l
3b90: 69 73 74 20 44 20 72 24 72 65 76 6e 72 20 72 24 ist D r$revnr r$
3ba0: 66 62 61 73 65 5d 0a 09 7d 0a 0a 09 23 20 50 6f fbase]..}...# Po
3bb0: 73 74 20 74 6f 20 61 6c 6c 20 73 75 63 63 65 73 st to all succes
3bc0: 73 6f 72 73 20 74 68 61 74 20 74 68 65 20 6a 75 sors that the ju
3bd0: 73 74 20 67 65 6e 65 72 61 74 65 64 20 66 69 6c st generated fil
3be0: 65 20 69 73 20 74 68 65 69 72 0a 09 23 20 62 61 e is their..# ba
3bf0: 73 65 6c 69 6e 65 2e 20 45 78 63 65 70 74 69 6f seline. Exceptio
3c00: 6e 3a 20 54 68 6f 73 65 20 77 68 69 63 68 20 61 n: Those which a
3c10: 76 65 20 61 6c 72 65 61 64 79 20 61 20 62 61 73 ve already a bas
3c20: 65 6c 69 6e 65 20 73 65 74 2e 0a 09 23 20 54 6f eline set...# To
3c30: 67 65 74 68 65 72 20 77 69 74 68 20 74 68 65 20 gether with the
3c40: 73 6f 72 74 69 6e 67 20 6f 66 20 74 72 75 6e 6b sorting of trunk
3c50: 20 72 65 76 69 73 69 6f 6e 73 20 66 69 72 73 74 revisions first
3c60: 20 74 68 65 20 74 72 75 6e 6b 0a 09 23 20 73 68 the trunk..# sh
3c70: 6f 75 6c 64 20 6f 6e 65 20 75 6e 69 6e 74 65 72 ould one uninter
3c80: 75 70 74 65 64 20 6c 69 6e 65 2c 20 77 69 74 68 upted line, with
3c90: 20 62 72 61 6e 63 68 20 72 6f 6f 74 73 20 5f 6e branch roots _n
3ca0: 6f 74 5f 20 64 65 6c 74 61 0a 09 23 20 63 6f 6d ot_ delta..# com
3cb0: 70 72 65 73 73 65 64 20 70 65 72 20 74 68 65 69 pressed per thei
3cc0: 72 20 62 72 61 6e 63 68 65 73 2e 0a 0a 09 66 6f r branches....fo
3cd0: 72 65 61 63 68 20 6f 75 74 20 5b 24 67 72 61 70 reach out [$grap
3ce0: 68 20 6e 6f 64 65 73 20 2d 6f 75 74 20 24 6e 6f h nodes -out $no
3cf0: 64 65 5d 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b de] {.. if {[
3d00: 24 67 72 61 70 68 20 6e 6f 64 65 20 6b 65 79 65 $graph node keye
3d10: 78 69 73 74 73 20 24 6f 75 74 20 5f 5f 62 61 73 xists $out __bas
3d20: 65 5f 5f 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 e__]} continue..
3d30: 20 20 20 20 24 67 72 61 70 68 20 6e 6f 64 65 20 $graph node
3d40: 73 65 74 20 24 6f 75 74 20 5f 5f 62 61 73 65 5f set $out __base_
3d50: 5f 20 24 72 65 76 6e 72 0a 09 7d 0a 09 72 65 74 _ $revnr..}..ret
3d60: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 76 urn. }.. v
3d70: 61 72 69 61 62 6c 65 20 6d 79 69 6d 70 6f 72 74 ariable myimport
3d80: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
3d90: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
3da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
3db0: 20 20 23 23 20 53 74 61 74 65 0a 0a 20 20 20 20 ## State..
3dc0: 76 61 72 69 61 62 6c 65 20 6d 79 69 64 20 20 20 variable myid
3dd0: 20 20 20 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 {} ;
3de0: 23 20 46 69 6c 65 20 69 64 20 69 6e 20 74 68 65 # File id in the
3df0: 20 70 65 72 73 69 73 74 65 6e 74 20 73 74 61 74 persistent stat
3e00: 65 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 e.. variable
3e10: 6d 79 70 61 74 68 20 20 20 20 20 20 20 20 20 20 mypath
3e20: 20 20 7b 7d 20 3b 20 23 20 50 61 74 68 20 6f 66 {} ; # Path of
3e30: 20 74 68 65 20 66 69 6c 65 27 73 20 72 63 73 20 the file's rcs
3e40: 61 72 63 68 69 76 65 2e 0a 20 20 20 20 76 61 72 archive.. var
3e50: 69 61 62 6c 65 20 6d 79 75 73 72 70 61 74 68 20 iable myusrpath
3e60: 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 50 {} ; # P
3e70: 61 74 68 20 6f 66 20 74 68 65 20 66 69 6c 65 20 ath of the file
3e80: 61 73 20 73 65 65 6e 20 62 79 20 75 73 65 72 73 as seen by users
3e90: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
3ea0: 79 65 78 65 63 75 74 61 62 6c 65 20 20 20 20 20 yexecutable
3eb0: 20 30 20 20 3b 20 23 20 42 6f 6f 6c 65 61 6e 20 0 ; # Boolean
3ec0: 66 6c 61 67 20 27 66 69 6c 65 20 65 78 65 63 75 flag 'file execu
3ed0: 74 61 62 6c 65 27 2e 0a 20 20 20 20 76 61 72 69 table'.. vari
3ee0: 61 62 6c 65 20 6d 79 70 72 6f 6a 65 63 74 20 20 able myproject
3ef0: 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 {} ; # Re
3f00: 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 70 ference to the p
3f10: 72 6f 6a 65 63 74 20 6f 62 6a 65 63 74 0a 09 09 roject object...
3f20: 09 09 20 20 20 20 23 20 74 68 65 20 66 69 6c 65 .. # the file
3f30: 20 62 65 6c 6f 6e 67 73 20 74 6f 2e 0a 20 20 20 belongs to..
3f40: 20 76 61 72 69 61 62 6c 65 20 6d 79 72 65 76 20 variable myrev
3f50: 2d 61 72 72 61 79 20 20 20 20 20 20 7b 7d 20 3b -array {} ;
3f60: 20 23 20 4d 61 70 73 20 72 65 76 69 73 69 6f 6e # Maps revision
3f70: 20 6e 75 6d 62 65 72 20 74 6f 20 74 68 65 0a 09 number to the..
3f80: 09 09 09 20 20 20 20 23 20 61 73 73 6f 63 69 61 ... # associa
3f90: 74 65 64 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a ted revision obj
3fa0: 65 63 74 2e 0a 20 20 20 20 76 61 72 69 61 62 6c ect.. variabl
3fb0: 65 20 6d 79 72 65 76 69 73 69 6f 6e 73 20 20 20 e myrevisions
3fc0: 20 20 20 20 7b 7d 20 3b 20 23 20 53 61 6d 65 20 {} ; # Same
3fd0: 61 73 20 6d 79 72 65 76 2c 20 62 75 74 20 61 20 as myrev, but a
3fe0: 6c 69 73 74 2c 0a 09 09 09 09 20 20 20 20 23 20 list,..... #
3ff0: 67 69 76 69 6e 67 20 75 73 20 74 68 65 20 6f 72 giving us the or
4000: 64 65 72 20 6f 66 0a 09 09 09 09 20 20 20 20 23 der of..... #
4010: 20 72 65 76 69 73 69 6f 6e 73 2e 0a 20 20 20 20 revisions..
4020: 76 61 72 69 61 62 6c 65 20 6d 79 61 69 64 20 20 variable myaid
4030: 20 20 20 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 -array {} ;
4040: 23 20 4d 61 70 20 72 65 76 69 73 69 6f 6e 20 6e # Map revision n
4050: 75 6d 62 65 72 73 20 74 6f 20 74 68 65 20 69 64 umbers to the id
4060: 0a 09 09 09 09 20 20 20 20 23 20 6f 66 20 74 68 ..... # of th
4070: 65 20 61 75 74 68 6f 72 20 77 68 6f 20 63 6f 6d e author who com
4080: 6d 69 74 74 65 64 0a 09 09 09 09 20 20 20 20 23 mitted..... #
4090: 20 69 74 2e 20 54 68 69 73 20 69 73 20 6c 61 74 it. This is lat
40a0: 65 72 20 61 67 67 72 65 67 61 74 65 64 0a 09 09 er aggregated...
40b0: 09 09 20 20 20 20 23 20 77 69 74 68 20 63 6f 6d .. # with com
40c0: 6d 69 74 20 6d 65 73 73 61 67 65 2c 20 62 72 61 mit message, bra
40d0: 6e 63 68 20 6e 61 6d 65 0a 09 09 09 09 20 20 20 nch name.....
40e0: 20 23 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 69 # and project i
40f0: 64 20 66 6f 72 20 61 20 6d 65 74 61 20 69 64 2e d for a meta id.
4100: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
4110: 68 65 61 64 72 65 76 6e 72 20 20 20 20 20 20 20 headrevnr
4120: 7b 7d 20 3b 20 23 20 48 65 61 64 20 72 65 76 69 {} ; # Head revi
4130: 73 69 6f 6e 20 28 72 65 76 69 73 69 6f 6e 20 6e sion (revision n
4140: 75 6d 62 65 72 29 0a 20 20 20 20 76 61 72 69 61 umber). varia
4150: 62 6c 65 20 6d 79 70 72 69 6e 63 69 70 61 6c 20 ble myprincipal
4160: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 50 72 69 {} ; # Pri
4170: 6e 63 69 70 61 6c 20 62 72 61 6e 63 68 20 28 62 ncipal branch (b
4180: 72 61 6e 63 68 20 6e 75 6d 62 65 72 29 2e 0a 09 ranch number)...
4190: 09 09 09 20 20 20 20 23 20 43 6f 6e 74 72 61 72 ... # Contrar
41a0: 79 20 74 6f 20 74 68 65 20 6e 61 6d 65 20 74 68 y to the name th
41b0: 69 73 20 69 73 20 74 68 65 0a 09 09 09 09 20 20 is is the.....
41c0: 20 20 23 20 64 65 66 61 75 6c 74 20 62 72 61 6e # default bran
41d0: 63 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ch.. variable
41e0: 20 6d 79 64 65 70 65 6e 64 65 6e 63 69 65 73 20 mydependencies
41f0: 20 20 20 7b 7d 20 3b 20 23 20 44 69 63 74 69 6f {} ; # Dictio
4200: 6e 61 72 79 20 70 61 72 65 6e 74 20 2d 3e 20 63 nary parent -> c
4210: 68 69 6c 64 2c 0a 09 09 09 09 20 20 20 20 23 20 hild,..... #
4220: 72 65 63 6f 72 64 73 20 70 72 69 6d 61 72 79 20 records primary
4230: 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 20 20 dependencies..
4240: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 69 6d 70 variable myimp
4250: 6f 72 74 65 64 20 20 20 20 20 20 20 20 30 20 20 orted 0
4260: 3b 20 23 20 42 6f 6f 6c 65 61 6e 20 66 6c 61 67 ; # Boolean flag
4270: 2e 20 53 65 74 20 69 66 20 61 6e 64 20 6f 6e 6c . Set if and onl
4280: 79 20 69 66 0a 09 09 09 09 20 20 20 20 23 20 72 y if..... # r
4290: 65 76 20 31 2e 31 20 6f 66 20 74 68 65 20 66 69 ev 1.1 of the fi
42a0: 6c 65 20 73 65 65 6d 69 6e 67 6c 79 0a 09 09 09 le seemingly....
42b0: 09 20 20 20 20 23 20 77 61 73 20 69 6d 70 6f 72 . # was impor
42c0: 74 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 61 ted instead of a
42d0: 64 64 65 64 0a 09 09 09 09 20 20 20 20 23 20 6e dded..... # n
42e0: 6f 72 6d 61 6c 6c 79 2e 0a 20 20 20 20 76 61 72 ormally.. var
42f0: 69 61 62 6c 65 20 6d 79 72 6f 6f 74 20 20 20 20 iable myroot
4300: 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 52 {} ; # R
4310: 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 eference to the
4320: 72 65 76 69 73 69 6f 6e 20 6f 62 6a 65 63 74 0a revision object.
4330: 09 09 09 09 20 20 20 20 23 20 68 6f 6c 64 69 6e .... # holdin
4340: 67 20 74 68 65 20 72 6f 6f 74 20 72 65 76 69 73 g the root revis
4350: 69 6f 6e 2e 20 20 49 74 73 0a 09 09 09 09 20 20 ion. Its.....
4360: 20 20 23 20 6e 75 6d 62 65 72 20 75 73 75 61 6c # number usual
4370: 6c 79 20 69 73 20 27 31 2e 31 27 2e 20 43 61 6e ly is '1.1'. Can
4380: 20 62 65 0a 09 09 09 09 20 20 20 20 23 20 61 20 be..... # a
4390: 64 69 66 66 65 72 65 6e 74 20 6e 75 6d 62 65 72 different number
43a0: 2c 20 62 65 63 61 75 73 65 20 6f 66 0a 09 09 09 , because of....
43b0: 09 20 20 20 20 23 20 67 61 70 73 20 63 72 65 61 . # gaps crea
43c0: 74 65 64 20 76 69 61 20 27 63 76 73 61 64 6d 69 ted via 'cvsadmi
43d0: 6e 20 2d 6f 27 2e 0a 20 20 20 20 76 61 72 69 61 n -o'.. varia
43e0: 62 6c 65 20 6d 79 62 72 61 6e 63 68 65 73 20 2d ble mybranches -
43f0: 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 array {} ; # Map
4400: 73 20 62 72 61 6e 63 68 20 6e 75 6d 62 65 72 20 s branch number
4410: 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 0a 09 09 to the symbol...
4420: 09 09 20 20 20 20 23 20 6f 62 6a 65 63 74 20 68 .. # object h
4430: 61 6e 64 6c 69 6e 67 20 74 68 65 20 62 72 61 6e andling the bran
4440: 63 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ch.. variable
4450: 20 6d 79 74 61 67 73 20 20 20 20 20 2d 61 72 72 mytags -arr
4460: 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 73 20 72 ay {} ; # Maps r
4470: 65 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 20 74 evision number t
4480: 6f 20 74 68 65 20 6c 69 73 74 0a 09 09 09 09 20 o the list.....
4490: 20 20 20 23 20 6f 66 20 73 79 6d 62 6f 6c 20 6f # of symbol o
44a0: 62 6a 65 63 74 73 20 66 6f 72 20 74 68 65 20 74 bjects for the t
44b0: 61 67 73 0a 09 09 09 09 20 20 20 20 23 20 61 73 ags..... # as
44c0: 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 sociated with th
44d0: 65 20 72 65 76 69 73 69 6f 6e 2e 0a 20 20 20 20 e revision..
44e0: 76 61 72 69 61 62 6c 65 20 6d 79 73 79 6d 62 6f variable mysymbo
44f0: 6c 73 20 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 ls {} ;
4500: 23 20 53 65 74 20 6f 66 20 74 68 65 20 73 79 6d # Set of the sym
4510: 62 6f 6c 20 6e 61 6d 65 73 20 66 6f 75 6e 64 20 bol names found
4520: 69 6e 0a 09 09 09 09 20 20 20 20 23 20 74 68 69 in..... # thi
4530: 73 20 66 69 6c 65 2e 0a 0a 20 20 20 20 76 61 72 s file... var
4540: 69 61 62 6c 65 20 6d 79 62 72 61 6e 63 68 63 6e iable mybranchcn
4550: 74 20 30 20 3b 20 23 20 43 6f 75 6e 74 65 72 20 t 0 ; # Counter
4560: 66 6f 72 20 62 72 61 6e 63 68 65 73 2c 20 74 6f for branches, to
4570: 20 72 65 63 6f 72 64 20 74 68 65 69 72 0a 09 09 record their...
4580: 09 20 20 20 20 20 23 20 6f 72 64 65 72 20 6f 66 . # order of
4590: 20 64 65 66 69 6e 69 74 69 6f 6e 2e 20 54 68 69 definition. Thi
45a0: 73 20 61 6c 73 6f 20 64 65 66 69 6e 65 73 0a 09 s also defines..
45b0: 09 09 20 20 20 20 20 23 20 74 68 65 69 72 20 6f .. # their o
45c0: 72 64 65 72 20 6f 66 20 63 72 65 61 74 69 6f 6e rder of creation
45d0: 2c 20 77 68 69 63 68 20 69 73 20 74 68 65 0a 09 , which is the..
45e0: 09 09 20 20 20 20 20 23 20 72 65 76 65 72 73 65 .. # reverse
45f0: 20 6f 66 20 64 65 66 69 6e 69 74 69 6f 6e 2e 20 of definition.
4600: 20 49 2e 65 2e 20 61 20 73 6d 61 6c 6c 65 72 0a I.e. a smaller.
4610: 09 09 09 20 20 20 20 20 23 20 6e 75 6d 62 65 72 ... # number
4620: 20 6d 65 61 6e 73 20 27 44 65 66 69 6e 65 64 20 means 'Defined
4630: 65 61 72 6c 69 65 72 27 2c 20 6d 65 61 6e 73 0a earlier', means.
4640: 09 09 09 20 20 20 20 20 23 20 27 43 72 65 61 74 ... # 'Creat
4650: 65 64 20 6c 61 74 65 72 27 2e 0a 0a 20 20 20 20 ed later'...
4660: 76 61 72 69 61 62 6c 65 20 6d 79 74 72 75 6e 6b variable mytrunk
4670: 20 7b 7d 20 3b 20 23 20 44 69 72 65 63 74 20 72 {} ; # Direct r
4680: 65 66 65 72 65 6e 63 65 20 74 6f 20 6d 79 70 72 eference to mypr
4690: 6f 6a 65 63 74 20 2d 3e 20 74 72 75 6e 6b 2e 0a oject -> trunk..
46a0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 72 variable myr
46b0: 6f 6f 74 73 20 7b 7d 20 3b 20 23 20 4c 69 73 74 oots {} ; # List
46c0: 20 6f 66 20 72 6f 6f 74 73 20 69 6e 20 74 68 65 of roots in the
46d0: 20 66 6f 72 65 73 74 20 6f 66 0a 09 09 09 20 20 forest of....
46e0: 23 20 6c 6f 64 27 73 2e 20 4f 62 6a 65 63 74 20 # lod's. Object
46f0: 72 65 66 65 72 65 6e 63 65 73 20 74 6f 20 72 65 references to re
4700: 76 69 73 69 6f 6e 73 20 61 6e 64 0a 09 09 09 20 visions and....
4710: 20 23 20 62 72 61 6e 63 68 65 73 2e 20 54 68 65 # branches. The
4720: 20 6c 61 74 74 65 72 20 63 61 6e 20 61 70 70 65 latter can appe
4730: 61 72 20 77 68 65 6e 20 74 68 65 79 0a 09 09 09 ar when they....
4740: 20 20 23 20 61 72 65 20 73 65 76 65 72 65 64 20 # are severed
4750: 66 72 6f 6d 20 74 68 65 69 72 20 70 61 72 65 6e from their paren
4760: 74 2e 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 t... # # ## #
4770: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
4780: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a # #############.
4790: 20 20 20 20 23 23 20 49 6e 74 65 72 6e 61 6c 20 ## Internal
47a0: 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 6d 65 74 methods.. met
47b0: 68 6f 64 20 52 65 63 6f 72 64 42 72 61 6e 63 68 hod RecordBranch
47c0: 43 6f 6d 6d 69 74 73 20 7b 62 72 61 6e 63 68 65 Commits {branche
47d0: 73 7d 20 7b 0a 09 66 6f 72 65 61 63 68 20 62 72 s} {..foreach br
47e0: 61 6e 63 68 72 65 76 6e 72 20 24 62 72 61 6e 63 anchrevnr $branc
47f0: 68 65 73 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b hes {.. if {[
4800: 63 61 74 63 68 20 7b 0a 09 09 73 65 74 20 62 72 catch {...set br
4810: 61 6e 63 68 20 5b 24 73 65 6c 66 20 52 65 76 32 anch [$self Rev2
4820: 42 72 61 6e 63 68 20 24 62 72 61 6e 63 68 72 65 Branch $branchre
4830: 76 6e 72 5d 0a 09 20 20 20 20 7d 5d 7d 20 7b 0a vnr].. }]} {.
4840: 09 09 73 65 74 20 62 72 61 6e 63 68 20 5b 24 73 ..set branch [$s
4850: 65 6c 66 20 41 64 64 55 6e 6c 61 62 65 6c 65 64 elf AddUnlabeled
4860: 42 72 61 6e 63 68 20 5b 72 65 76 20 32 62 72 61 Branch [rev 2bra
4870: 6e 63 68 6e 72 20 24 62 72 61 6e 63 68 72 65 76 nchnr $branchrev
4880: 6e 72 5d 5d 0a 09 20 20 20 20 7d 0a 0a 09 20 20 nr]].. }...
4890: 20 20 23 20 52 65 63 6f 72 64 20 74 68 65 20 63 # Record the c
48a0: 6f 6d 6d 69 74 2c 20 6a 75 73 74 20 61 73 20 72 ommit, just as r
48b0: 65 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 20 66 evision number f
48c0: 6f 72 0a 09 20 20 20 20 23 20 6e 6f 77 2e 20 50 or.. # now. P
48d0: 72 6f 63 65 73 42 72 61 6e 63 68 44 65 70 65 6e rocesBranchDepen
48e0: 64 65 6e 63 69 65 73 20 77 69 6c 6c 20 65 78 74 dencies will ext
48f0: 65 6e 64 20 74 68 61 74 20 69 74 6f 20 61 0a 09 end that ito a..
4900: 20 20 20 20 23 20 70 72 6f 70 65 72 20 6f 62 6a # proper obj
4910: 65 63 74 20 72 65 66 65 72 65 6e 63 65 2e 0a 0a ect reference...
4920: 09 20 20 20 20 24 62 72 61 6e 63 68 20 73 65 74 . $branch set
4930: 63 68 69 6c 64 72 65 76 6e 72 20 24 62 72 61 6e childrevnr $bran
4940: 63 68 72 65 76 6e 72 0a 09 7d 0a 09 72 65 74 75 chrevnr..}..retu
4950: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 rn. }.. me
4960: 74 68 6f 64 20 52 65 76 32 42 72 61 6e 63 68 20 thod Rev2Branch
4970: 7b 72 65 76 6e 72 7d 20 7b 0a 20 20 20 20 20 20 {revnr} {.
4980: 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 integrity asse
4990: 72 74 20 7b 21 5b 72 65 76 20 69 73 74 72 75 6e rt {![rev istrun
49a0: 6b 72 65 76 6e 72 20 24 72 65 76 6e 72 5d 7d 20 krevnr $revnr]}
49b0: 7b 45 78 70 65 63 74 65 64 20 61 20 62 72 61 6e {Expected a bran
49c0: 63 68 20 72 65 76 69 73 69 6f 6e 20 6e 75 6d 62 ch revision numb
49d0: 65 72 7d 0a 09 72 65 74 75 72 6e 20 24 6d 79 62 er}..return $myb
49e0: 72 61 6e 63 68 65 73 28 5b 72 65 76 20 32 62 72 ranches([rev 2br
49f0: 61 6e 63 68 6e 72 20 24 72 65 76 6e 72 5d 29 0a anchnr $revnr]).
4a00: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
4a10: 64 20 41 64 64 55 6e 6c 61 62 65 6c 65 64 42 72 d AddUnlabeledBr
4a20: 61 6e 63 68 20 7b 62 72 61 6e 63 68 6e 72 7d 20 anch {branchnr}
4a30: 7b 0a 09 72 65 74 75 72 6e 20 5b 24 73 65 6c 66 {..return [$self
4a40: 20 41 64 64 42 72 61 6e 63 68 20 75 6e 6c 61 62 AddBranch unlab
4a50: 65 6c 65 64 2d 24 62 72 61 6e 63 68 6e 72 20 24 eled-$branchnr $
4a60: 62 72 61 6e 63 68 6e 72 5d 0a 20 20 20 20 7d 0a branchnr]. }.
4a70: 0a 20 20 20 20 6d 65 74 68 6f 64 20 41 64 64 42 . method AddB
4a80: 72 61 6e 63 68 20 7b 6e 61 6d 65 20 62 72 61 6e ranch {name bran
4a90: 63 68 6e 72 7d 20 7b 0a 09 69 66 20 7b 5b 69 6e chnr} {..if {[in
4aa0: 66 6f 20 65 78 69 73 74 73 20 6d 79 62 72 61 6e fo exists mybran
4ab0: 63 68 65 73 28 24 62 72 61 6e 63 68 6e 72 29 5d ches($branchnr)]
4ac0: 7d 20 7b 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 } {.. log wri
4ad0: 74 65 20 31 20 66 69 6c 65 20 22 49 6e 20 27 24 te 1 file "In '$
4ae0: 6d 79 70 61 74 68 27 3a 20 42 72 61 6e 63 68 20 mypath': Branch
4af0: 27 24 62 72 61 6e 63 68 6e 72 27 20 6e 61 6d 65 '$branchnr' name
4b00: 64 20 27 5b 24 6d 79 62 72 61 6e 63 68 65 73 28 d '[$mybranches(
4b10: 24 62 72 61 6e 63 68 6e 72 29 20 6e 61 6d 65 5d $branchnr) name]
4b20: 27 22 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 '".. log writ
4b30: 65 20 31 20 66 69 6c 65 20 22 43 61 6e 6e 6f 74 e 1 file "Cannot
4b40: 20 68 61 76 65 20 73 65 63 6f 6e 64 20 6e 61 6d have second nam
4b50: 65 20 27 24 6e 61 6d 65 27 2c 20 69 67 6e 6f 72 e '$name', ignor
4b60: 69 6e 67 20 69 74 22 0a 09 20 20 20 20 72 65 74 ing it".. ret
4b70: 75 72 6e 0a 09 7d 0a 09 73 65 74 20 62 72 61 6e urn..}..set bran
4b80: 63 68 20 5b 73 79 6d 20 25 41 55 54 4f 25 20 62 ch [sym %AUTO% b
4b90: 72 61 6e 63 68 20 24 62 72 61 6e 63 68 6e 72 20 ranch $branchnr
4ba0: 5b 24 6d 79 70 72 6f 6a 65 63 74 20 67 65 74 73 [$myproject gets
4bb0: 79 6d 62 6f 6c 20 24 6e 61 6d 65 5d 20 24 73 65 ymbol $name] $se
4bc0: 6c 66 5d 0a 09 24 62 72 61 6e 63 68 20 73 65 74 lf]..$branch set
4bd0: 70 6f 73 69 74 69 6f 6e 20 5b 69 6e 63 72 20 6d position [incr m
4be0: 79 62 72 61 6e 63 68 63 6e 74 5d 0a 09 73 65 74 ybranchcnt]..set
4bf0: 20 6d 79 62 72 61 6e 63 68 65 73 28 24 62 72 61 mybranches($bra
4c00: 6e 63 68 6e 72 29 20 24 62 72 61 6e 63 68 0a 09 nchnr) $branch..
4c10: 72 65 74 75 72 6e 20 24 62 72 61 6e 63 68 0a 20 return $branch.
4c20: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
4c30: 20 41 64 64 54 61 67 20 7b 6e 61 6d 65 20 72 65 AddTag {name re
4c40: 76 6e 72 7d 20 7b 0a 09 73 65 74 20 74 61 67 20 vnr} {..set tag
4c50: 5b 73 79 6d 20 25 41 55 54 4f 25 20 74 61 67 20 [sym %AUTO% tag
4c60: 24 72 65 76 6e 72 20 5b 24 6d 79 70 72 6f 6a 65 $revnr [$myproje
4c70: 63 74 20 67 65 74 73 79 6d 62 6f 6c 20 24 6e 61 ct getsymbol $na
4c80: 6d 65 5d 20 24 73 65 6c 66 5d 0a 09 6c 61 70 70 me] $self]..lapp
4c90: 65 6e 64 20 6d 79 74 61 67 73 28 24 72 65 76 6e end mytags($revn
4ca0: 72 29 20 24 74 61 67 0a 09 72 65 74 75 72 6e 20 r) $tag..return
4cb0: 24 74 61 67 0a 20 20 20 20 7d 0a 0a 20 20 20 20 $tag. }..
4cc0: 6d 65 74 68 6f 64 20 52 65 63 6f 72 64 42 61 73 method RecordBas
4cd0: 69 63 44 65 70 65 6e 64 65 6e 63 69 65 73 20 7b icDependencies {
4ce0: 72 65 76 6e 72 20 6e 65 78 74 7d 20 7b 0a 09 23 revnr next} {..#
4cf0: 20 48 61 6e 64 6c 65 20 74 68 65 20 72 65 76 69 Handle the revi
4d00: 73 69 6f 6e 20 64 65 70 65 6e 64 65 6e 63 69 65 sion dependencie
4d10: 73 2e 20 52 65 63 6f 72 64 20 74 68 65 6d 20 66 s. Record them f
4d20: 6f 72 20 6e 6f 77 2c 20 64 6f 0a 09 23 20 6e 6f or now, do..# no
4d30: 74 68 69 6e 67 20 77 69 74 68 20 74 68 65 6d 20 thing with them
4d40: 79 65 74 2e 0a 0a 09 23 20 4f 6e 20 74 68 65 20 yet....# On the
4d50: 74 72 75 6e 6b 20 74 68 65 20 27 6e 65 78 74 27 trunk the 'next'
4d60: 20 66 69 65 6c 64 20 70 6f 69 6e 74 73 20 74 6f field points to
4d70: 20 74 68 65 20 70 72 65 76 69 6f 75 73 0a 09 23 the previous..#
4d80: 20 72 65 76 69 73 69 6f 6e 2c 20 69 2e 65 2e 20 revision, i.e.
4d90: 74 68 65 20 5f 70 61 72 65 6e 74 5f 20 6f 66 20 the _parent_ of
4da0: 74 68 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 2e the current one.
4db0: 20 45 78 61 6d 70 6c 65 3a 0a 09 23 20 31 2e 36 Example:..# 1.6
4dc0: 27 73 20 6e 65 78 74 20 69 73 20 31 2e 35 20 28 's next is 1.5 (
4dd0: 6d 6f 64 75 6c 6f 20 63 76 73 20 61 64 6d 69 6e modulo cvs admin
4de0: 20 2d 6f 29 2e 0a 0a 09 23 20 43 6f 6e 74 72 61 -o)....# Contra
4df0: 72 69 6c 79 20 6f 6e 20 61 20 62 72 61 6e 63 68 rily on a branch
4e00: 20 74 68 65 20 27 6e 65 78 74 27 20 66 69 65 6c the 'next' fiel
4e10: 64 20 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 0a d points to the.
4e20: 09 23 20 70 72 69 6d 61 72 79 20 5f 63 68 69 6c .# primary _chil
4e30: 64 5f 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e d_ of the curren
4e40: 74 20 72 65 76 69 73 69 6f 6e 2e 20 41 73 20 65 t revision. As e
4e50: 78 61 6d 70 6c 65 2c 0a 09 23 20 31 2e 31 2e 33 xample,..# 1.1.3
4e60: 2e 32 27 73 20 27 6e 65 78 74 27 20 77 69 6c 6c .2's 'next' will
4e70: 20 62 65 20 31 2e 31 2e 33 2e 33 2e 0a 0a 09 23 be 1.1.3.3....#
4e80: 20 54 68 65 20 27 6e 65 78 74 27 20 66 69 65 6c The 'next' fiel
4e90: 64 20 61 63 74 75 61 6c 6c 79 20 61 6c 77 61 79 d actually alway
4ea0: 73 20 72 65 66 65 72 73 20 74 6f 20 74 68 65 20 s refers to the
4eb0: 72 65 76 69 73 69 6f 6e 0a 09 23 20 63 6f 6e 74 revision..# cont
4ec0: 61 69 6e 69 6e 67 20 74 68 65 20 64 65 6c 74 61 aining the delta
4ed0: 20 6e 65 65 64 65 64 20 74 6f 20 72 65 74 72 69 needed to retri
4ee0: 65 76 65 20 74 68 61 74 20 72 65 76 69 73 69 6f eve that revisio
4ef0: 6e 2e 0a 0a 09 23 20 54 68 65 20 64 65 70 65 6e n....# The depen
4f00: 64 65 6e 63 69 65 73 20 6e 65 65 64 65 64 20 68 dencies needed h
4f10: 65 72 65 20 61 72 65 20 74 68 65 20 6c 6f 67 69 ere are the logi
4f20: 63 61 6c 20 73 74 72 75 63 74 75 72 65 2c 0a 09 cal structure,..
4f30: 23 20 70 61 72 65 6e 74 2f 63 68 69 6c 64 2c 20 # parent/child,
4f40: 61 6e 64 20 6e 6f 74 20 74 68 65 20 69 6d 70 6c and not the impl
4f50: 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 70 65 6e ementation depen
4f60: 64 65 6e 74 20 64 65 6c 74 61 0a 09 23 20 70 6f dent delta..# po
4f70: 69 6e 74 65 72 73 2e 0a 0a 09 69 66 20 7b 24 6e inters....if {$n
4f80: 65 78 74 20 65 71 20 22 22 7d 20 72 65 74 75 72 ext eq ""} retur
4f90: 6e 0a 09 23 20 20 20 20 20 20 20 20 20 20 20 20 n..#
4fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 pa
4fb0: 72 65 6e 74 20 2d 3e 20 63 68 69 6c 64 0a 09 69 rent -> child..i
4fc0: 66 20 7b 5b 72 65 76 20 69 73 74 72 75 6e 6b 72 f {[rev istrunkr
4fd0: 65 76 6e 72 20 24 72 65 76 6e 72 5d 7d 20 7b 0a evnr $revnr]} {.
4fe0: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 64 . lappend myd
4ff0: 65 70 65 6e 64 65 6e 63 69 65 73 20 24 6e 65 78 ependencies $nex
5000: 74 20 24 72 65 76 6e 72 0a 09 7d 20 65 6c 73 65 t $revnr..} else
5010: 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 {.. lappend
5020: 6d 79 64 65 70 65 6e 64 65 6e 63 69 65 73 20 24 mydependencies $
5030: 72 65 76 6e 72 20 24 6e 65 78 74 0a 09 7d 0a 09 revnr $next..}..
5040: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
5050: 20 20 6d 65 74 68 6f 64 20 50 72 6f 63 65 73 73 method Process
5060: 50 72 69 6d 61 72 79 44 65 70 65 6e 64 65 6e 63 PrimaryDependenc
5070: 69 65 73 20 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 ies {} {..foreac
5080: 68 20 7b 70 61 72 65 6e 74 72 65 76 6e 72 20 63 h {parentrevnr c
5090: 68 69 6c 64 72 65 76 6e 72 7d 20 24 6d 79 64 65 hildrevnr} $myde
50a0: 70 65 6e 64 65 6e 63 69 65 73 20 7b 0a 09 20 20 pendencies {..
50b0: 20 20 73 65 74 20 70 61 72 65 6e 74 20 24 6d 79 set parent $my
50c0: 72 65 76 28 24 70 61 72 65 6e 74 72 65 76 6e 72 rev($parentrevnr
50d0: 29 0a 09 20 20 20 20 73 65 74 20 63 68 69 6c 64 ).. set child
50e0: 20 20 24 6d 79 72 65 76 28 24 63 68 69 6c 64 72 $myrev($childr
50f0: 65 76 6e 72 29 0a 09 20 20 20 20 24 70 61 72 65 evnr).. $pare
5100: 6e 74 20 73 65 74 63 68 69 6c 64 20 24 63 68 69 nt setchild $chi
5110: 6c 64 0a 09 20 20 20 20 24 63 68 69 6c 64 20 73 ld.. $child s
5120: 65 74 70 61 72 65 6e 74 20 24 70 61 72 65 6e 74 etparent $parent
5130: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
5140: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 50 72 }.. method Pr
5150: 6f 63 65 73 73 42 72 61 6e 63 68 44 65 70 65 6e ocessBranchDepen
5160: 64 65 6e 63 69 65 73 20 7b 7d 20 7b 0a 09 66 6f dencies {} {..fo
5170: 72 65 61 63 68 20 7b 62 72 61 6e 63 68 6e 72 20 reach {branchnr
5180: 62 72 61 6e 63 68 7d 20 5b 61 72 72 61 79 20 67 branch} [array g
5190: 65 74 20 6d 79 62 72 61 6e 63 68 65 73 5d 20 7b et mybranches] {
51a0: 0a 09 20 20 20 20 73 65 74 20 72 65 76 6e 72 20 .. set revnr
51b0: 5b 24 62 72 61 6e 63 68 20 70 61 72 65 6e 74 72 [$branch parentr
51c0: 65 76 6e 72 5d 0a 0a 09 20 20 20 20 69 66 20 7b evnr]... if {
51d0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 ![info exists my
51e0: 72 65 76 28 24 72 65 76 6e 72 29 5d 7d 20 7b 0a rev($revnr)]} {.
51f0: 09 09 6c 6f 67 20 77 72 69 74 65 20 31 20 66 69 ..log write 1 fi
5200: 6c 65 20 22 49 6e 20 27 24 6d 79 70 61 74 68 27 le "In '$mypath'
5210: 3a 20 54 68 65 20 62 72 61 6e 63 68 20 27 5b 24 : The branch '[$
5220: 62 72 61 6e 63 68 20 6e 61 6d 65 5d 27 20 72 65 branch name]' re
5230: 66 65 72 65 6e 63 65 73 22 0a 09 09 6c 6f 67 20 ferences"...log
5240: 77 72 69 74 65 20 31 20 66 69 6c 65 20 22 74 68 write 1 file "th
5250: 65 20 62 6f 67 75 73 20 72 65 76 69 73 69 6f 6e e bogus revision
5260: 20 27 24 72 65 76 6e 72 27 20 61 6e 64 20 77 69 '$revnr' and wi
5270: 6c 6c 20 62 65 20 69 67 6e 6f 72 65 64 2e 22 0a ll be ignored.".
5280: 09 09 24 62 72 61 6e 63 68 20 64 65 73 74 72 6f ..$branch destro
5290: 79 0a 09 09 75 6e 73 65 74 20 6d 79 62 72 61 6e y...unset mybran
52a0: 63 68 65 73 28 24 62 72 61 6e 63 68 6e 72 29 0a ches($branchnr).
52b0: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
52c0: 73 65 74 20 72 65 76 20 24 6d 79 72 65 76 28 24 set rev $myrev($
52d0: 72 65 76 6e 72 29 0a 09 09 24 72 65 76 20 61 64 revnr)...$rev ad
52e0: 64 62 72 61 6e 63 68 20 24 62 72 61 6e 63 68 0a dbranch $branch.
52f0: 09 09 24 62 72 61 6e 63 68 20 73 65 74 70 61 72 ..$branch setpar
5300: 65 6e 74 20 24 72 65 76 0a 0a 09 09 23 20 49 66 ent $rev....# If
5310: 20 72 65 76 69 73 69 6f 6e 73 20 77 65 72 65 20 revisions were
5320: 63 6f 6d 6d 69 74 74 65 64 20 6f 6e 20 74 68 65 committed on the
5330: 20 62 72 61 6e 63 68 20 77 65 20 73 74 6f 72 65 branch we store
5340: 20 61 0a 09 09 23 20 72 65 66 65 72 65 6e 63 65 a...# reference
5350: 20 74 6f 20 74 68 65 20 62 72 61 6e 63 68 20 74 to the branch t
5360: 68 65 72 65 2c 20 61 6e 64 20 66 75 72 74 68 65 here, and furthe
5370: 72 20 64 65 63 6c 61 72 65 0a 09 09 23 20 74 68 r declare...# th
5380: 65 20 66 69 72 73 74 20 63 68 69 6c 64 27 73 20 e first child's
5390: 70 61 72 65 6e 74 20 74 6f 20 62 65 20 62 72 61 parent to be bra
53a0: 6e 63 68 27 73 20 70 61 72 65 6e 74 2c 20 61 6e nch's parent, an
53b0: 64 0a 09 09 23 20 6c 69 73 74 20 74 68 69 73 20 d...# list this
53c0: 63 68 69 6c 64 20 69 6e 20 74 68 65 20 70 61 72 child in the par
53d0: 65 6e 74 20 72 65 76 69 73 69 6f 6e 2e 0a 0a 09 ent revision....
53e0: 09 69 66 20 7b 5b 24 62 72 61 6e 63 68 20 68 61 .if {[$branch ha
53f0: 73 63 68 69 6c 64 72 65 76 5d 7d 20 7b 0a 09 09 schildrev]} {...
5400: 20 20 20 20 73 65 74 20 63 68 69 6c 64 72 65 76 set childrev
5410: 6e 72 20 5b 24 62 72 61 6e 63 68 20 63 68 69 6c nr [$branch chil
5420: 64 72 65 76 6e 72 5d 0a 09 09 20 20 20 20 73 65 drevnr]... se
5430: 74 20 63 68 69 6c 64 20 24 6d 79 72 65 76 28 24 t child $myrev($
5440: 63 68 69 6c 64 72 65 76 6e 72 29 0a 09 09 20 20 childrevnr)...
5450: 20 20 24 62 72 61 6e 63 68 20 73 65 74 63 68 69 $branch setchi
5460: 6c 64 20 24 63 68 69 6c 64 0a 0a 09 09 20 20 20 ld $child....
5470: 20 24 63 68 69 6c 64 20 73 65 74 70 61 72 65 6e $child setparen
5480: 74 62 72 61 6e 63 68 20 24 62 72 61 6e 63 68 0a tbranch $branch.
5490: 09 09 20 20 20 20 24 63 68 69 6c 64 20 73 65 74 .. $child set
54a0: 70 61 72 65 6e 74 20 20 20 20 20 20 20 24 72 65 parent $re
54b0: 76 0a 09 09 20 20 20 20 24 72 65 76 20 61 64 64 v... $rev add
54c0: 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 20 24 63 childonbranch $c
54d0: 68 69 6c 64 0a 09 09 7d 0a 09 20 20 20 20 7d 0a hild...}.. }.
54e0: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
54f0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 53 6f 72 .. method Sor
5500: 74 42 72 61 6e 63 68 65 73 20 7b 7d 20 7b 0a 09 tBranches {} {..
5510: 66 6f 72 65 61 63 68 20 7b 72 65 76 6e 72 20 72 foreach {revnr r
5520: 65 76 7d 20 5b 61 72 72 61 79 20 67 65 74 20 6d ev} [array get m
5530: 79 72 65 76 5d 20 7b 20 24 72 65 76 20 73 6f 72 yrev] { $rev sor
5540: 74 62 72 61 6e 63 68 65 73 20 7d 0a 09 72 65 74 tbranches }..ret
5550: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
5560: 65 74 68 6f 64 20 50 72 6f 63 65 73 73 54 61 67 ethod ProcessTag
5570: 44 65 70 65 6e 64 65 6e 63 69 65 73 20 7b 7d 20 Dependencies {}
5580: 7b 0a 09 66 6f 72 65 61 63 68 20 7b 72 65 76 6e {..foreach {revn
5590: 72 20 74 61 67 6c 69 73 74 7d 20 5b 61 72 72 61 r taglist} [arra
55a0: 79 20 67 65 74 20 6d 79 74 61 67 73 5d 20 7b 0a y get mytags] {.
55b0: 09 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 . if {![info
55c0: 65 78 69 73 74 73 20 6d 79 72 65 76 28 24 72 65 exists myrev($re
55d0: 76 6e 72 29 5d 7d 20 7b 0a 09 09 73 65 74 20 6e vnr)]} {...set n
55e0: 20 5b 6c 6c 65 6e 67 74 68 20 24 74 61 67 6c 69 [llength $tagli
55f0: 73 74 5d 0a 09 09 6c 6f 67 20 77 72 69 74 65 20 st]...log write
5600: 31 20 66 69 6c 65 20 22 49 6e 20 27 24 6d 79 70 1 file "In '$myp
5610: 61 74 68 27 3a 20 54 68 65 20 66 6f 6c 6c 6f 77 ath': The follow
5620: 69 6e 67 20 5b 6e 73 70 20 24 6e 20 74 61 67 5d ing [nsp $n tag]
5630: 20 72 65 66 65 72 65 6e 63 65 22 0a 09 09 6c 6f reference"...lo
5640: 67 20 77 72 69 74 65 20 31 20 66 69 6c 65 20 22 g write 1 file "
5650: 74 68 65 20 62 6f 67 75 73 20 72 65 76 69 73 69 the bogus revisi
5660: 6f 6e 20 27 24 72 65 76 6e 72 27 20 61 6e 64 20 on '$revnr' and
5670: 77 69 6c 6c 20 62 65 20 69 67 6e 6f 72 65 64 2e will be ignored.
5680: 22 0a 09 09 66 6f 72 65 61 63 68 20 74 61 67 20 "...foreach tag
5690: 24 74 61 67 6c 69 73 74 20 7b 0a 09 09 20 20 20 $taglist {...
56a0: 20 6c 6f 67 20 77 72 69 74 65 20 31 20 66 69 6c log write 1 fil
56b0: 65 20 22 20 20 20 20 5b 24 74 61 67 20 6e 61 6d e " [$tag nam
56c0: 65 5d 22 0a 09 09 20 20 20 20 24 74 61 67 20 64 e]"... $tag d
56d0: 65 73 74 72 6f 79 0a 09 09 7d 0a 09 09 75 6e 73 estroy...}...uns
56e0: 65 74 20 6d 79 74 61 67 73 28 24 72 65 76 6e 72 et mytags($revnr
56f0: 29 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ).. } else {.
5700: 09 09 73 65 74 20 72 65 76 20 24 6d 79 72 65 76 ..set rev $myrev
5710: 28 24 72 65 76 6e 72 29 0a 09 09 66 6f 72 65 61 ($revnr)...forea
5720: 63 68 20 74 61 67 20 24 74 61 67 6c 69 73 74 20 ch tag $taglist
5730: 7b 0a 09 09 20 20 20 20 24 72 65 76 20 61 64 64 {... $rev add
5740: 74 61 67 20 20 20 20 24 74 61 67 0a 09 09 20 20 tag $tag...
5750: 20 20 24 74 61 67 20 73 65 74 74 61 67 72 65 76 $tag settagrev
5760: 20 24 72 65 76 0a 09 09 7d 0a 09 20 20 20 20 7d $rev...}.. }
5770: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
5780: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 44 65 }.. method De
5790: 74 65 72 6d 69 6e 65 54 68 65 52 6f 6f 74 52 65 termineTheRootRe
57a0: 76 69 73 69 6f 6e 20 7b 7d 20 7b 0a 09 23 20 54 vision {} {..# T
57b0: 68 65 20 72 6f 6f 74 20 69 73 20 74 68 65 20 6f he root is the o
57c0: 6e 65 20 72 65 76 69 73 69 6f 6e 20 77 68 69 63 ne revision whic
57d0: 68 20 68 61 73 20 6e 6f 20 70 61 72 65 6e 74 2e h has no parent.
57e0: 20 42 79 0a 09 23 20 63 68 65 63 6b 69 6e 67 20 By..# checking
57f0: 61 6c 6c 20 72 65 76 69 73 69 6f 6e 73 20 77 65 all revisions we
5800: 20 65 6e 73 75 72 65 20 74 68 61 74 20 77 65 20 ensure that we
5810: 63 61 6e 20 64 65 74 65 63 74 20 61 6e 64 0a 09 can detect and..
5820: 23 20 72 65 70 6f 72 74 20 74 68 65 20 63 61 73 # report the cas
5830: 65 20 6f 66 20 6d 75 6c 74 69 70 6c 65 20 72 6f e of multiple ro
5840: 6f 74 73 2e 20 57 69 74 68 6f 75 74 20 74 68 61 ots. Without tha
5850: 74 20 77 65 20 63 6f 75 6c 64 0a 09 23 20 73 69 t we could..# si
5860: 6d 70 6c 79 20 74 61 6b 65 20 6f 6e 65 20 72 65 mply take one re
5870: 76 69 73 69 6f 6e 20 61 6e 64 20 66 6f 6c 6c 6f vision and follo
5880: 77 20 74 68 65 20 70 61 72 65 6e 74 20 6c 69 6e w the parent lin
5890: 6b 73 20 74 6f 0a 09 23 20 74 68 65 69 72 20 72 ks to..# their r
58a0: 6f 6f 74 20 28 73 69 63 21 29 2e 0a 0a 09 66 6f oot (sic!)....fo
58b0: 72 65 61 63 68 20 7b 72 65 76 6e 72 20 72 65 76 reach {revnr rev
58c0: 7d 20 5b 61 72 72 61 79 20 67 65 74 20 6d 79 72 } [array get myr
58d0: 65 76 5d 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b ev] {.. if {[
58e0: 24 72 65 76 20 68 61 73 70 61 72 65 6e 74 5d 7d $rev hasparent]}
58f0: 20 63 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 69 continue.. i
5900: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
5910: 7b 24 6d 79 72 6f 6f 74 20 65 71 20 22 22 7d 20 {$myroot eq ""}
5920: 7b 4d 75 6c 74 69 70 6c 65 20 72 6f 6f 74 20 72 {Multiple root r
5930: 65 76 69 73 69 6f 6e 73 20 66 6f 75 6e 64 7d 0a evisions found}.
5940: 09 20 20 20 20 73 65 74 20 6d 79 72 6f 6f 74 20 . set myroot
5950: 24 72 65 76 0a 09 7d 0a 0a 09 23 20 49 6e 20 74 $rev..}...# In t
5960: 68 65 20 66 75 74 75 72 65 20 77 65 20 61 6c 73 he future we als
5970: 6f 20 6e 65 65 64 20 61 20 6c 69 73 74 2c 20 61 o need a list, a
5980: 73 20 62 72 61 6e 63 68 65 73 20 63 61 6e 20 62 s branches can b
5990: 65 63 6f 6d 65 0a 09 23 20 73 65 76 65 72 65 64 ecome..# severed
59a0: 20 66 72 6f 6d 20 74 68 65 69 72 20 70 61 72 65 from their pare
59b0: 6e 74 2c 20 6d 61 6b 69 6e 67 20 74 68 65 6d 20 nt, making them
59c0: 74 68 65 69 72 20 6f 77 6e 20 72 6f 6f 74 2e 0a their own root..
59d0: 09 73 65 74 20 6d 79 72 6f 6f 74 73 20 5b 6c 69 .set myroots [li
59e0: 73 74 20 24 6d 79 72 6f 6f 74 5d 0a 09 72 65 74 st $myroot]..ret
59f0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
5a00: 65 74 68 6f 64 20 44 65 74 65 72 6d 69 6e 65 52 ethod DetermineR
5a10: 65 76 69 73 69 6f 6e 4f 70 65 72 61 74 69 6f 6e evisionOperation
5a20: 73 20 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 68 20 s {} {..foreach
5a30: 72 65 76 20 24 6d 79 72 65 76 69 73 69 6f 6e 73 rev $myrevisions
5a40: 20 7b 20 24 72 65 76 20 64 65 74 65 72 6d 69 6e { $rev determin
5a50: 65 6f 70 65 72 61 74 69 6f 6e 20 7d 0a 09 72 65 eoperation }..re
5a60: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
5a70: 6d 65 74 68 6f 64 20 44 65 74 65 72 6d 69 6e 65 method Determine
5a80: 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 LinesOfDevelopme
5a90: 6e 74 20 7b 7d 20 7b 0a 09 23 20 46 6f 72 20 72 nt {} {..# For r
5aa0: 65 76 69 73 69 6f 6e 73 20 74 68 69 73 20 68 61 evisions this ha
5ab0: 73 20 62 65 65 6e 20 64 6f 6e 65 20 61 6c 72 65 s been done alre
5ac0: 61 64 79 2c 20 69 6e 20 27 65 78 74 65 6e 64 27 ady, in 'extend'
5ad0: 2e 20 4e 6f 77 0a 09 23 20 77 65 20 64 6f 20 74 . Now..# we do t
5ae0: 68 69 73 20 66 6f 72 20 74 68 65 20 62 72 61 6e his for the bran
5af0: 63 68 65 73 20 61 6e 64 20 74 61 67 73 2e 0a 0a ches and tags...
5b00: 09 66 6f 72 65 61 63 68 20 7b 5f 20 62 72 61 6e .foreach {_ bran
5b10: 63 68 7d 20 5b 61 72 72 61 79 20 67 65 74 20 6d ch} [array get m
5b20: 79 62 72 61 6e 63 68 65 73 5d 20 7b 0a 09 20 20 ybranches] {..
5b30: 20 20 24 62 72 61 6e 63 68 20 73 65 74 6c 6f 64 $branch setlod
5b40: 20 5b 24 73 65 6c 66 20 47 65 74 4c 4f 44 20 5b [$self GetLOD [
5b50: 24 62 72 61 6e 63 68 20 70 61 72 65 6e 74 72 65 $branch parentre
5b60: 76 6e 72 5d 5d 0a 09 7d 0a 0a 09 66 6f 72 65 61 vnr]]..}...forea
5b70: 63 68 20 7b 5f 20 74 61 67 6c 69 73 74 7d 20 5b ch {_ taglist} [
5b80: 61 72 72 61 79 20 67 65 74 20 6d 79 74 61 67 73 array get mytags
5b90: 5d 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 ] {.. foreach
5ba0: 20 74 61 67 20 24 74 61 67 6c 69 73 74 20 7b 0a tag $taglist {.
5bb0: 09 09 24 74 61 67 20 73 65 74 6c 6f 64 20 5b 24 ..$tag setlod [$
5bc0: 73 65 6c 66 20 47 65 74 4c 4f 44 20 5b 24 74 61 self GetLOD [$ta
5bd0: 67 20 74 61 67 72 65 76 6e 72 5d 5d 0a 09 20 20 g tagrevnr]]..
5be0: 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 }..}..return.
5bf0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
5c00: 20 47 65 74 4c 4f 44 20 7b 72 65 76 6e 72 7d 20 GetLOD {revnr}
5c10: 7b 0a 09 69 66 20 7b 5b 72 65 76 20 69 73 74 72 {..if {[rev istr
5c20: 75 6e 6b 72 65 76 6e 72 20 24 72 65 76 6e 72 5d unkrevnr $revnr]
5c30: 7d 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 } {.. return
5c40: 24 6d 79 74 72 75 6e 6b 0a 09 7d 20 65 6c 73 65 $mytrunk..} else
5c50: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 5b {.. return [
5c60: 24 73 65 6c 66 20 52 65 76 32 42 72 61 6e 63 68 $self Rev2Branch
5c70: 20 24 72 65 76 6e 72 5d 0a 09 7d 0a 20 20 20 20 $revnr]..}.
5c80: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 48 61 }.. method Ha
5c90: 6e 64 6c 65 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 ndleNonTrunkDefa
5ca0: 75 6c 74 42 72 61 6e 63 68 20 7b 7d 20 7b 0a 09 ultBranch {} {..
5cb0: 73 65 74 20 72 65 76 6c 69 73 74 20 5b 24 73 65 set revlist [$se
5cc0: 6c 66 20 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 75 lf NonTrunkDefau
5cd0: 6c 74 52 65 76 69 73 69 6f 6e 73 5d 0a 09 69 66 ltRevisions]..if
5ce0: 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 24 72 65 76 {![llength $rev
5cf0: 6c 69 73 74 5d 7d 20 72 65 74 75 72 6e 0a 0a 09 list]} return...
5d00: 24 73 65 6c 66 20 41 64 6a 75 73 74 4e 6f 6e 54 $self AdjustNonT
5d10: 72 75 6e 6b 44 65 66 61 75 6c 74 42 72 61 6e 63 runkDefaultBranc
5d20: 68 20 24 72 65 76 6c 69 73 74 0a 09 24 73 65 6c h $revlist..$sel
5d30: 66 20 43 68 65 63 6b 4c 4f 44 73 0a 09 72 65 74 f CheckLODs..ret
5d40: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
5d50: 65 74 68 6f 64 20 4e 6f 6e 54 72 75 6e 6b 44 65 ethod NonTrunkDe
5d60: 66 61 75 6c 74 52 65 76 69 73 69 6f 6e 73 20 7b faultRevisions {
5d70: 7d 20 7b 0a 09 23 20 46 72 6f 6d 20 63 76 73 32 } {..# From cvs2
5d80: 73 76 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e svn the followin
5d90: 67 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 28 77 g explanation (w
5da0: 69 74 68 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e ith modification
5db0: 73 0a 09 23 20 66 6f 72 20 6f 75 72 20 61 6c 67 s..# for our alg
5dc0: 6f 72 69 74 68 6d 29 3a 0a 0a 09 23 20 44 65 74 orithm):...# Det
5dd0: 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 20 74 ermine whether t
5de0: 68 65 72 65 20 61 72 65 20 61 6e 79 20 6e 6f 6e here are any non
5df0: 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 -trunk default b
5e00: 72 61 6e 63 68 0a 09 23 20 72 65 76 69 73 69 6f ranch..# revisio
5e10: 6e 73 2e 0a 0a 09 23 20 49 66 20 61 20 6e 6f 6e ns....# If a non
5e20: 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 -trunk default b
5e30: 72 61 6e 63 68 20 69 73 20 64 65 74 65 72 6d 69 ranch is determi
5e40: 6e 65 64 20 74 6f 20 68 61 76 65 20 65 78 69 73 ned to have exis
5e50: 74 65 64 2c 0a 09 23 20 72 65 74 75 72 6e 20 61 ted,..# return a
5e60: 20 6c 69 73 74 20 6f 66 20 6f 62 6a 65 63 74 73 list of objects
5e70: 20 66 6f 72 20 61 6c 6c 20 72 65 76 69 73 69 6f for all revisio
5e80: 6e 73 20 74 68 61 74 20 77 65 72 65 20 6f 6e 63 ns that were onc
5e90: 65 0a 09 23 20 6e 6f 6e 2d 74 72 75 6e 6b 20 64 e..# non-trunk d
5ea0: 65 66 61 75 6c 74 20 72 65 76 69 73 69 6f 6e 73 efault revisions
5eb0: 2c 20 69 6e 20 64 65 70 65 6e 64 65 6e 63 79 20 , in dependency
5ec0: 6f 72 64 65 72 20 28 69 2e 65 2e 20 72 6f 6f 74 order (i.e. root
5ed0: 0a 09 23 20 66 69 72 73 74 29 2e 0a 0a 09 23 20 ..# first)....#
5ee0: 54 68 65 72 65 20 61 72 65 20 74 77 6f 20 63 61 There are two ca
5ef0: 73 65 73 20 74 6f 20 68 61 6e 64 6c 65 3a 0a 0a ses to handle:..
5f00: 09 23 20 4f 6e 65 20 63 61 73 65 20 69 73 20 73 .# One case is s
5f10: 69 6d 70 6c 65 2e 20 20 54 68 65 20 52 43 53 20 imple. The RCS
5f20: 66 69 6c 65 20 6c 69 73 74 73 20 61 20 64 65 66 file lists a def
5f30: 61 75 6c 74 20 62 72 61 6e 63 68 0a 09 23 20 65 ault branch..# e
5f40: 78 70 6c 69 63 69 74 6c 79 20 69 6e 20 69 74 73 xplicitly in its
5f50: 20 68 65 61 64 65 72 2c 20 73 75 63 68 20 61 73 header, such as
5f60: 20 27 31 2e 31 2e 31 27 2e 20 20 49 6e 20 74 68 '1.1.1'. In th
5f70: 69 73 20 63 61 73 65 2c 20 77 65 0a 09 23 20 6b is case, we..# k
5f80: 6e 6f 77 20 74 68 61 74 20 65 76 65 72 79 20 72 now that every r
5f90: 65 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 20 76 evision on the v
5fa0: 65 6e 64 6f 72 20 62 72 61 6e 63 68 20 69 73 20 endor branch is
5fb0: 74 6f 20 62 65 0a 09 23 20 74 72 65 61 74 65 64 to be..# treated
5fc0: 20 61 73 20 68 65 61 64 20 6f 66 20 74 72 75 6e as head of trun
5fd0: 6b 20 61 74 20 74 68 61 74 20 70 6f 69 6e 74 20 k at that point
5fe0: 69 6e 20 74 69 6d 65 2e 0a 0a 09 23 20 42 75 74 in time....# But
5ff0: 20 74 68 65 72 65 27 73 20 61 6c 73 6f 20 61 20 there's also a
6000: 64 65 67 65 6e 65 72 61 74 65 20 63 61 73 65 2e degenerate case.
6010: 20 20 54 68 65 20 52 43 53 20 66 69 6c 65 20 64 The RCS file d
6020: 6f 65 73 20 6e 6f 74 0a 09 23 20 63 75 72 72 65 oes not..# curre
6030: 6e 74 6c 79 20 68 61 76 65 20 61 20 64 65 66 61 ntly have a defa
6040: 75 6c 74 20 62 72 61 6e 63 68 2c 20 79 65 74 20 ult branch, yet
6050: 77 65 20 63 61 6e 20 64 65 64 75 63 65 20 74 68 we can deduce th
6060: 61 74 20 66 6f 72 0a 09 23 20 73 6f 6d 65 20 70 at for..# some p
6070: 65 72 69 6f 64 20 69 6e 20 74 68 65 20 70 61 73 eriod in the pas
6080: 74 20 69 74 20 70 72 6f 62 61 62 6c 79 20 2a 64 t it probably *d
6090: 69 64 2a 20 68 61 76 65 20 6f 6e 65 2e 20 20 46 id* have one. F
60a0: 6f 72 0a 09 23 20 65 78 61 6d 70 6c 65 2c 20 74 or..# example, t
60b0: 68 65 20 66 69 6c 65 20 68 61 73 20 76 65 6e 64 he file has vend
60c0: 6f 72 20 72 65 76 69 73 69 6f 6e 73 20 31 2e 31 or revisions 1.1
60d0: 2e 31 2e 31 20 2d 3e 20 31 2e 31 2e 31 2e 39 36 .1.1 -> 1.1.1.96
60e0: 2c 0a 09 23 20 61 6c 6c 20 6f 66 20 77 68 69 63 ,..# all of whic
60f0: 68 20 61 72 65 20 64 61 74 65 64 20 62 65 66 6f h are dated befo
6100: 72 65 20 31 2e 32 2c 20 61 6e 64 20 74 68 65 6e re 1.2, and then
6110: 20 69 74 20 68 61 73 20 31 2e 31 2e 31 2e 39 37 it has 1.1.1.97
6120: 0a 09 23 20 2d 3e 20 31 2e 31 2e 31 2e 31 30 30 ..# -> 1.1.1.100
6130: 20 64 61 74 65 64 20 61 66 74 65 72 20 31 2e 32 dated after 1.2
6140: 2e 20 20 49 6e 20 74 68 69 73 20 63 61 73 65 2c . In this case,
6150: 20 77 65 20 73 68 6f 75 6c 64 0a 09 23 20 72 65 we should..# re
6160: 63 6f 72 64 20 31 2e 31 2e 31 2e 39 36 20 61 73 cord 1.1.1.96 as
6170: 20 74 68 65 20 6c 61 73 74 20 76 65 6e 64 6f 72 the last vendor
6180: 20 72 65 76 69 73 69 6f 6e 20 74 6f 20 68 61 76 revision to hav
6190: 65 20 62 65 65 6e 20 74 68 65 0a 09 23 20 68 65 e been the..# he
61a0: 61 64 20 6f 66 20 74 68 65 20 64 65 66 61 75 6c ad of the defaul
61b0: 74 20 62 72 61 6e 63 68 2e 0a 0a 09 69 66 20 7b t branch....if {
61c0: 24 6d 79 70 72 69 6e 63 69 70 61 6c 20 6e 65 20 $myprincipal ne
61d0: 22 22 7d 20 7b 0a 09 20 20 20 20 23 20 54 68 65 ""} {.. # The
61e0: 72 65 20 69 73 20 73 74 69 6c 6c 20 61 20 64 65 re is still a de
61f0: 66 61 75 6c 74 20 62 72 61 6e 63 68 3b 20 74 68 fault branch; th
6200: 61 74 20 6d 65 61 6e 73 20 74 68 61 74 20 61 6c at means that al
6210: 6c 0a 09 20 20 20 20 23 20 72 65 76 69 73 69 6f l.. # revisio
6220: 6e 73 20 6f 6e 20 74 68 61 74 20 62 72 61 6e 63 ns on that branc
6230: 68 20 67 65 74 20 6d 61 72 6b 65 64 2e 0a 0a 09 h get marked....
6240: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 35 20 log write 5
6250: 66 69 6c 65 20 22 46 6f 75 6e 64 20 65 78 70 6c file "Found expl
6260: 69 63 69 74 6c 79 20 6d 61 72 6b 65 64 20 4e 54 icitly marked NT
6270: 44 42 22 0a 0a 09 20 20 20 20 73 65 74 20 72 6e DB"... set rn
6280: 65 78 74 20 5b 24 6d 79 72 6f 6f 74 20 63 68 69 ext [$myroot chi
6290: 6c 64 5d 0a 09 20 20 20 20 69 66 20 7b 24 72 6e ld].. if {$rn
62a0: 65 78 74 20 6e 65 20 22 22 7d 20 7b 0a 09 09 74 ext ne ""} {...t
62b0: 72 6f 75 62 6c 65 20 66 61 74 61 6c 20 22 46 69 rouble fatal "Fi
62c0: 6c 65 20 77 69 74 68 20 64 65 66 61 75 6c 74 20 le with default
62d0: 62 72 61 6e 63 68 20 24 6d 79 70 72 69 6e 63 69 branch $myprinci
62e0: 70 61 6c 20 61 6c 73 6f 20 68 61 73 20 72 65 76 pal also has rev
62f0: 69 73 69 6f 6e 20 5b 24 72 6e 65 78 74 20 72 65 ision [$rnext re
6300: 76 6e 72 5d 22 0a 09 09 72 65 74 75 72 6e 0a 09 vnr]"...return..
6310: 20 20 20 20 7d 0a 0a 09 20 20 20 20 73 65 74 20 }... set
6320: 72 65 76 20 5b 24 6d 79 62 72 61 6e 63 68 65 73 rev [$mybranches
6330: 28 24 6d 79 70 72 69 6e 63 69 70 61 6c 29 20 63 ($myprincipal) c
6340: 68 69 6c 64 5d 0a 09 20 20 20 20 73 65 74 20 72 hild].. set r
6350: 65 73 20 7b 7d 0a 0a 09 20 20 20 20 77 68 69 6c es {}... whil
6360: 65 20 7b 24 72 65 76 20 6e 65 20 22 22 7d 20 7b e {$rev ne ""} {
6370: 0a 09 09 6c 61 70 70 65 6e 64 20 72 65 73 20 24 ...lappend res $
6380: 72 65 76 0a 09 09 73 65 74 20 72 65 76 20 5b 24 rev...set rev [$
6390: 72 65 76 20 63 68 69 6c 64 5d 0a 09 20 20 20 20 rev child]..
63a0: 7d 0a 0a 09 20 20 20 20 72 65 74 75 72 6e 20 24 }... return $
63b0: 72 65 73 0a 0a 09 7d 20 65 6c 73 65 69 66 20 7b res...} elseif {
63c0: 24 6d 79 69 6d 70 6f 72 74 65 64 7d 20 7b 0a 09 $myimported} {..
63d0: 20 20 20 20 23 20 4e 6f 20 64 65 66 61 75 6c 74 # No default
63e0: 20 62 72 61 6e 63 68 2c 20 62 75 74 20 74 68 65 branch, but the
63f0: 20 66 69 6c 65 20 61 70 70 65 61 72 73 20 74 6f file appears to
6400: 20 68 61 76 65 20 62 65 65 6e 0a 09 20 20 20 20 have been..
6410: 23 20 69 6d 70 6f 72 74 65 64 2e 20 20 53 6f 20 # imported. So
6420: 6f 75 72 20 65 64 75 63 61 74 65 64 20 67 75 65 our educated gue
6430: 73 73 20 69 73 20 74 68 61 74 20 61 6c 6c 20 72 ss is that all r
6440: 65 76 69 73 69 6f 6e 73 0a 09 20 20 20 20 23 20 evisions.. #
6450: 6f 6e 20 74 68 65 20 27 31 2e 31 2e 31 27 20 62 on the '1.1.1' b
6460: 72 61 6e 63 68 20 77 69 74 68 20 74 69 6d 65 73 ranch with times
6470: 74 61 6d 70 73 20 70 72 69 6f 72 20 74 6f 20 74 tamps prior to t
6480: 68 65 0a 09 20 20 20 20 23 20 74 69 6d 65 73 74 he.. # timest
6490: 61 6d 70 20 6f 66 20 27 31 2e 32 27 20 77 65 72 amp of '1.2' wer
64a0: 65 20 6e 6f 6e 2d 74 72 75 6e 6b 20 64 65 66 61 e non-trunk defa
64b0: 75 6c 74 20 62 72 61 6e 63 68 0a 09 20 20 20 20 ult branch..
64c0: 23 20 72 65 76 69 73 69 6f 6e 73 2e 0a 0a 09 20 # revisions....
64d0: 20 20 20 23 20 54 68 69 73 20 72 65 61 6c 6c 79 # This really
64e0: 20 6f 6e 6c 79 20 70 72 6f 63 65 73 73 65 73 20 only processes
64f0: 73 74 61 6e 64 61 72 64 20 27 31 2e 31 2e 31 2e standard '1.1.1.
6500: 2a 27 2d 73 74 79 6c 65 0a 09 20 20 20 20 23 20 *'-style.. #
6510: 76 65 6e 64 6f 72 20 72 65 76 69 73 69 6f 6e 73 vendor revisions
6520: 2e 20 20 4f 6e 65 20 63 6f 75 6c 64 20 63 6f 6e . One could con
6530: 63 65 69 76 61 62 6c 79 20 68 61 76 65 20 61 20 ceivably have a
6540: 66 69 6c 65 0a 09 20 20 20 20 23 20 77 68 6f 73 file.. # whos
6550: 65 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 e default branch
6560: 20 69 73 20 31 2e 31 2e 33 20 6f 72 20 77 68 61 is 1.1.3 or wha
6570: 74 65 76 65 72 2c 20 6f 72 20 77 61 73 20 74 68 tever, or was th
6580: 61 74 0a 09 20 20 20 20 23 20 61 74 20 73 6f 6d at.. # at som
6590: 65 20 70 6f 69 6e 74 20 69 6e 20 74 69 6d 65 2c e point in time,
65a0: 20 77 69 74 68 20 76 65 6e 64 6f 72 20 72 65 76 with vendor rev
65b0: 69 73 69 6f 6e 73 20 31 2e 31 2e 33 2e 31 2c 0a isions 1.1.3.1,.
65c0: 09 20 20 20 20 23 20 31 2e 31 2e 33 2e 32 2c 20 . # 1.1.3.2,
65d0: 65 74 63 2e 20 20 42 75 74 20 77 69 74 68 20 74 etc. But with t
65e0: 68 65 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 he default branc
65f0: 68 20 67 6f 6e 65 20 6e 6f 77 2c 0a 09 20 20 20 h gone now,..
6600: 20 23 20 77 65 27 64 20 68 61 76 65 20 6e 6f 20 # we'd have no
6610: 62 61 73 69 73 20 66 6f 72 20 61 73 73 75 6d 69 basis for assumi
6620: 6e 67 20 74 68 61 74 20 74 68 65 20 6e 6f 6e 2d ng that the non-
6630: 73 74 61 6e 64 61 72 64 0a 09 20 20 20 20 23 20 standard.. #
6640: 76 65 6e 64 6f 72 20 62 72 61 6e 63 68 20 68 61 vendor branch ha
6650: 64 20 65 76 65 72 20 62 65 65 6e 20 74 68 65 20 d ever been the
6660: 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 20 61 default branch a
6670: 6e 79 77 61 79 2e 0a 0a 09 20 20 20 20 23 20 4e nyway.... # N
6680: 6f 74 65 20 74 68 61 74 20 77 65 20 72 65 6c 79 ote that we rely
6690: 20 6f 6e 20 63 6f 6d 70 61 72 69 73 6f 6e 73 20 on comparisons
66a0: 62 65 74 77 65 65 6e 20 74 68 65 20 74 69 6d 65 between the time
66b0: 73 74 61 6d 70 73 0a 09 20 20 20 20 23 20 6f 66 stamps.. # of
66c0: 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 20 6f the revisions o
66d0: 6e 20 74 68 65 20 76 65 6e 64 6f 72 20 62 72 61 n the vendor bra
66e0: 6e 63 68 20 61 6e 64 20 74 68 61 74 20 6f 66 0a nch and that of.
66f0: 09 20 20 20 20 23 20 72 65 76 69 73 69 6f 6e 20 . # revision
6700: 31 2e 32 2c 20 65 76 65 6e 20 74 68 6f 75 67 68 1.2, even though
6710: 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 20 the timestamps
6720: 6d 69 67 68 74 20 62 65 0a 09 20 20 20 20 23 20 might be.. #
6730: 69 6e 63 6f 72 72 65 63 74 20 64 75 65 20 74 6f incorrect due to
6740: 20 63 6c 6f 63 6b 20 73 6b 65 77 2e 20 20 57 65 clock skew. We
6750: 20 63 6f 75 6c 64 20 64 6f 20 61 20 73 6c 69 67 could do a slig
6760: 68 74 6c 79 0a 09 20 20 20 20 23 20 62 65 74 74 htly.. # bett
6770: 65 72 20 6a 6f 62 20 69 66 20 77 65 20 75 73 65 er job if we use
6780: 64 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 d the changeset
6790: 74 69 6d 65 73 74 61 6d 70 73 2c 20 61 73 20 69 timestamps, as i
67a0: 74 20 69 73 0a 09 20 20 20 20 23 20 70 6f 73 73 t is.. # poss
67b0: 69 62 6c 65 20 74 68 61 74 20 74 68 65 20 64 65 ible that the de
67c0: 70 65 6e 64 65 6e 63 69 65 73 20 74 68 61 74 20 pendencies that
67d0: 77 65 6e 74 20 69 6e 74 6f 0a 09 20 20 20 20 23 went into.. #
67e0: 20 64 65 74 65 72 6d 69 6e 69 6e 67 20 74 68 6f determining tho
67f0: 73 65 20 74 69 6d 65 73 74 61 6d 70 73 20 61 72 se timestamps ar
6800: 65 20 6d 6f 72 65 20 61 63 63 75 72 61 74 65 2e e more accurate.
6810: 20 20 42 75 74 0a 09 20 20 20 20 23 20 74 68 61 But.. # tha
6820: 74 20 77 6f 75 6c 64 20 72 65 71 75 69 72 65 20 t would require
6830: 61 6e 20 65 78 74 72 61 20 70 61 73 73 20 6f 72 an extra pass or
6840: 20 74 77 6f 2e 0a 0a 09 20 20 20 20 69 66 20 7b two.... if {
6850: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 ![info exists my
6860: 62 72 61 6e 63 68 65 73 28 31 2e 31 2e 31 29 5d branches(1.1.1)]
6870: 7d 20 7b 20 72 65 74 75 72 6e 20 7b 7d 20 7d 0a } { return {} }.
6880: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
6890: 35 20 66 69 6c 65 20 22 44 65 64 75 63 65 64 20 5 file "Deduced
68a0: 65 78 69 73 74 65 6e 63 65 20 6f 66 20 4e 54 44 existence of NTD
68b0: 42 22 0a 0a 09 20 20 20 20 73 65 74 20 72 65 76 B"... set rev
68c0: 20 20 5b 24 6d 79 62 72 61 6e 63 68 65 73 28 31 [$mybranches(1
68d0: 2e 31 2e 31 29 20 63 68 69 6c 64 5d 0a 09 20 20 .1.1) child]..
68e0: 20 20 73 65 74 20 72 65 73 20 20 7b 7d 0a 09 20 set res {}..
68f0: 20 20 20 73 65 74 20 73 74 6f 70 20 5b 24 6d 79 set stop [$my
6900: 72 6f 6f 74 20 63 68 69 6c 64 5d 0a 0a 09 20 20 root child]...
6910: 20 20 69 66 20 7b 24 73 74 6f 70 20 65 71 20 22 if {$stop eq "
6920: 22 7d 20 7b 0a 09 09 23 20 47 65 74 20 65 76 65 "} {...# Get eve
6930: 72 79 74 68 69 6e 67 20 6f 6e 20 74 68 65 20 62 rything on the b
6940: 72 61 6e 63 68 0a 09 09 77 68 69 6c 65 20 7b 24 ranch...while {$
6950: 72 65 76 20 6e 65 20 22 22 7d 20 7b 0a 09 09 20 rev ne ""} {...
6960: 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 lappend res $
6970: 72 65 76 0a 09 09 20 20 20 20 73 65 74 20 72 65 rev... set re
6980: 76 20 5b 24 72 65 76 20 63 68 69 6c 64 5d 0a 09 v [$rev child]..
6990: 09 7d 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b .}.. } else {
69a0: 0a 09 09 23 20 43 6f 6c 6c 65 63 74 20 65 76 65 ...# Collect eve
69b0: 72 79 74 68 69 6e 67 20 6f 6e 20 74 68 65 20 62 rything on the b
69c0: 72 61 6e 63 68 20 77 68 69 63 68 20 73 65 65 6d ranch which seem
69d0: 73 20 74 6f 20 68 61 76 65 0a 09 09 23 20 62 65 s to have...# be
69e0: 65 6e 20 63 6f 6d 6d 69 74 74 65 64 20 62 65 66 en committed bef
69f0: 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 70 72 ore the first pr
6a00: 69 6d 61 72 79 20 63 68 69 6c 64 20 6f 66 20 74 imary child of t
6a10: 68 65 0a 09 09 23 20 72 6f 6f 74 20 72 65 76 69 he...# root revi
6a20: 73 69 6f 6e 2e 0a 09 09 73 65 74 20 73 74 6f 70 sion....set stop
6a30: 64 61 74 65 20 5b 24 73 74 6f 70 20 64 61 74 65 date [$stop date
6a40: 5d 0a 09 09 77 68 69 6c 65 20 7b 24 72 65 76 20 ]...while {$rev
6a50: 6e 65 20 22 22 7d 20 7b 0a 09 09 20 20 20 20 69 ne ""} {... i
6a60: 66 20 7b 5b 24 72 65 76 20 64 61 74 65 5d 20 3e f {[$rev date] >
6a70: 3d 20 24 73 74 6f 70 64 61 74 65 7d 20 62 72 65 = $stopdate} bre
6a80: 61 6b 0a 09 09 20 20 20 20 6c 61 70 70 65 6e 64 ak... lappend
6a90: 20 72 65 73 20 24 72 65 76 0a 09 09 20 20 20 20 res $rev...
6aa0: 73 65 74 20 72 65 76 20 5b 24 72 65 76 20 63 68 set rev [$rev ch
6ab0: 69 6c 64 5d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a ild]...}.. }.
6ac0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 .. return $re
6ad0: 73 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 s...} else {..
6ae0: 20 20 72 65 74 75 72 6e 20 7b 7d 0a 09 7d 0a 20 return {}..}.
6af0: 20 20 20 7d 0a 0a 20 20 20 20 23 20 47 65 6e 65 }.. # Gene
6b00: 72 61 6c 20 6e 6f 74 65 3a 20 49 6e 20 74 68 65 ral note: In the
6b10: 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 65 74 68 6f following metho
6b20: 64 73 20 77 65 20 6f 6e 6c 79 20 6d 6f 64 69 66 ds we only modif
6b30: 79 20 74 68 65 20 6c 69 6e 6b 73 0a 20 20 20 20 y the links.
6b40: 23 20 62 65 74 77 65 65 6e 20 72 65 76 69 73 69 # between revisi
6b50: 6f 6e 73 20 61 6e 64 20 73 79 6d 62 6f 6c 73 20 ons and symbols
6b60: 74 6f 20 72 65 73 74 72 75 63 74 75 72 65 20 74 to restructure t
6b70: 68 65 20 72 65 76 69 73 69 6f 6e 0a 20 20 20 20 he revision.
6b80: 23 20 74 72 65 65 2e 20 57 65 20 64 6f 20 5f 5f # tree. We do __
6b90: 6e 6f 74 5f 5f 20 64 65 73 74 72 6f 79 20 74 68 not__ destroy th
6ba0: 65 20 6f 62 6a 65 63 74 73 2e 20 47 69 76 65 6e e objects. Given
6bb0: 20 74 68 65 20 63 6f 6d 70 6c 65 78 20 6c 69 6e the complex lin
6bc0: 6b 73 0a 20 20 20 20 23 20 47 43 20 69 73 20 64 ks. # GC is d
6bd0: 69 66 66 69 63 75 6c 74 20 61 74 20 74 68 69 73 ifficult at this
6be0: 20 6c 65 76 65 6c 2e 20 49 74 20 69 73 20 6d 75 level. It is mu
6bf0: 63 68 20 65 61 73 69 65 72 20 74 6f 20 64 72 6f ch easier to dro
6c00: 70 0a 20 20 20 20 23 20 65 76 65 72 79 74 68 69 p. # everythi
6c10: 6e 67 20 77 68 65 6e 20 77 65 20 77 65 20 61 72 ng when we we ar
6c20: 65 20 64 6f 6e 65 2e 20 54 68 69 73 20 68 61 70 e done. This hap
6c30: 70 65 6e 73 20 69 6e 20 27 64 72 6f 70 27 2c 20 pens in 'drop',
6c40: 75 73 69 6e 67 0a 20 20 20 20 23 20 74 68 65 20 using. # the
6c50: 73 74 61 74 65 20 76 61 72 69 61 62 6c 65 20 27 state variable '
6c60: 6d 79 72 65 76 27 2c 20 27 6d 79 62 72 61 6e 63 myrev', 'mybranc
6c70: 68 65 73 27 2c 20 61 6e 64 20 27 6d 79 74 61 67 hes', and 'mytag
6c80: 73 27 2e 20 57 68 61 74 20 77 65 0a 20 20 20 20 s'. What we.
6c90: 23 20 68 61 76 65 20 74 6f 20 70 65 72 73 69 73 # have to persis
6ca0: 74 2c 20 70 65 72 66 6f 72 6d 65 64 20 62 79 20 t, performed by
6cb0: 27 70 65 72 73 69 73 74 27 2c 20 77 65 20 6b 6e 'persist', we kn
6cc0: 6f 77 20 77 69 6c 6c 20 62 65 0a 20 20 20 20 23 ow will be. #
6cd0: 20 72 65 61 63 68 61 62 6c 65 20 74 68 72 6f 75 reachable throu
6ce0: 67 68 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 gh the revisions
6cf0: 20 6c 69 73 74 65 64 20 69 6e 20 27 6d 79 72 6f listed in 'myro
6d00: 6f 74 73 27 20 61 6e 64 20 74 68 65 69 72 0a 20 ots' and their.
6d10: 20 20 20 23 20 63 68 69 6c 64 72 65 6e 20 61 6e # children an
6d20: 64 20 73 79 6d 62 6f 6c 73 2e 0a 0a 20 20 20 20 d symbols...
6d30: 6d 65 74 68 6f 64 20 41 64 6a 75 73 74 4e 6f 6e method AdjustNon
6d40: 54 72 75 6e 6b 44 65 66 61 75 6c 74 42 72 61 6e TrunkDefaultBran
6d50: 63 68 20 7b 72 65 76 6c 69 73 74 7d 20 7b 0a 09 ch {revlist} {..
6d60: 73 65 74 20 73 74 6f 70 20 5b 24 6d 79 72 6f 6f set stop [$myroo
6d70: 74 20 63 68 69 6c 64 5d 20 3b 23 20 72 65 76 20 t child] ;# rev
6d80: 27 31 2e 32 27 0a 0a 09 6c 6f 67 20 77 72 69 74 '1.2'...log writ
6d90: 65 20 35 20 66 69 6c 65 20 22 41 64 6a 75 73 74 e 5 file "Adjust
6da0: 69 6e 67 20 4e 54 44 42 20 63 6f 6e 74 61 69 6e ing NTDB contain
6db0: 69 6e 67 20 5b 6e 73 70 20 5b 6c 6c 65 6e 67 74 ing [nsp [llengt
6dc0: 68 20 24 72 65 76 6c 69 73 74 5d 20 72 65 76 69 h $revlist] revi
6dd0: 73 69 6f 6e 5d 22 0a 0a 09 23 20 46 72 6f 6d 20 sion]"...# From
6de0: 63 76 73 32 73 76 6e 20 74 68 65 20 66 6f 6c 6c cvs2svn the foll
6df0: 6f 77 69 6e 67 20 65 78 70 6c 61 6e 61 74 69 6f owing explanatio
6e00: 6e 20 28 77 69 74 68 20 6d 6f 64 69 66 69 63 61 n (with modifica
6e10: 74 69 6f 6e 73 0a 09 23 20 66 6f 72 20 6f 75 72 tions..# for our
6e20: 20 61 6c 67 6f 72 69 74 68 6d 29 3a 0a 0a 09 23 algorithm):...#
6e30: 20 41 64 6a 75 73 74 20 74 68 65 20 6e 6f 6e 2d Adjust the non-
6e40: 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 trunk default br
6e50: 61 6e 63 68 20 72 65 76 69 73 69 6f 6e 73 20 66 anch revisions f
6e60: 6f 75 6e 64 20 69 6e 20 74 68 65 0a 09 23 20 27 ound in the..# '
6e70: 72 65 76 6c 69 73 74 27 2e 0a 0a 09 23 20 27 6d revlist'....# 'm
6e80: 79 69 6d 70 6f 72 74 65 64 27 20 69 73 20 61 20 yimported' is a
6e90: 62 6f 6f 6c 65 61 6e 20 66 6c 61 67 20 69 6e 64 boolean flag ind
6ea0: 69 63 61 74 69 6e 67 20 77 68 65 74 68 65 72 20 icating whether
6eb0: 74 68 69 73 20 66 69 6c 65 0a 09 23 20 61 70 70 this file..# app
6ec0: 65 61 72 73 20 74 6f 20 68 61 76 65 20 62 65 65 ears to have bee
6ed0: 6e 20 69 6d 70 6f 72 74 65 64 2c 20 77 68 69 63 n imported, whic
6ee0: 68 20 61 6c 73 6f 20 6d 65 61 6e 73 20 74 68 61 h also means tha
6ef0: 74 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 31 2e t..# revision 1.
6f00: 31 20 68 61 73 20 61 20 67 65 6e 65 72 61 74 65 1 has a generate
6f10: 64 20 6c 6f 67 20 6d 65 73 73 61 67 65 20 74 68 d log message th
6f20: 61 74 20 6e 65 65 64 20 6e 6f 74 20 62 65 0a 09 at need not be..
6f30: 23 20 70 72 65 73 65 72 76 65 64 2e 20 20 27 72 # preserved. 'r
6f40: 65 76 6c 69 73 74 27 20 69 73 20 61 20 6c 69 73 evlist' is a lis
6f50: 74 20 6f 66 20 6f 62 6a 65 63 74 20 72 65 66 65 t of object refe
6f60: 72 65 6e 63 65 73 20 66 6f 72 20 74 68 65 0a 09 rences for the..
6f70: 23 20 72 65 76 69 73 69 6f 6e 73 20 74 68 61 74 # revisions that
6f80: 20 68 61 76 65 20 62 65 65 6e 20 64 65 74 65 72 have been deter
6f90: 6d 69 6e 65 64 20 74 6f 20 62 65 20 6e 6f 6e 2d mined to be non-
6fa0: 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 0a 09 23 trunk default..#
6fb0: 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 6f 6e branch revision
6fc0: 73 2e 0a 0a 09 23 20 4e 6f 74 65 20 74 68 61 74 s....# Note that
6fd0: 20 74 68 65 20 66 69 72 73 74 20 72 65 76 69 73 the first revis
6fe0: 69 6f 6e 20 6f 6e 20 74 68 65 20 64 65 66 61 75 ion on the defau
6ff0: 6c 74 20 62 72 61 6e 63 68 20 69 73 0a 09 23 20 lt branch is..#
7000: 68 61 6e 64 6c 65 64 20 73 74 72 61 6e 67 65 6c handled strangel
7010: 79 20 62 79 20 43 56 53 2e 20 20 49 66 20 61 20 y by CVS. If a
7020: 66 69 6c 65 20 69 73 20 69 6d 70 6f 72 74 65 64 file is imported
7030: 20 28 61 73 20 6f 70 70 6f 73 65 64 0a 09 23 20 (as opposed..#
7040: 74 6f 20 62 65 69 6e 67 20 61 64 64 65 64 29 2c to being added),
7050: 20 43 56 53 20 63 72 65 61 74 65 73 20 61 20 31 CVS creates a 1
7060: 2e 31 20 72 65 76 69 73 69 6f 6e 2c 20 74 68 65 .1 revision, the
7070: 6e 20 63 72 65 61 74 65 73 20 61 0a 09 23 20 76 n creates a..# v
7080: 65 6e 64 6f 72 20 62 72 61 6e 63 68 20 31 2e 31 endor branch 1.1
7090: 2e 31 20 62 61 73 65 64 20 6f 6e 20 31 2e 31 2c .1 based on 1.1,
70a0: 20 74 68 65 6e 20 63 72 65 61 74 65 73 20 61 20 then creates a
70b0: 31 2e 31 2e 31 2e 31 0a 09 23 20 72 65 76 69 73 1.1.1.1..# revis
70c0: 69 6f 6e 20 74 68 61 74 20 69 73 20 69 64 65 6e ion that is iden
70d0: 74 69 63 61 6c 20 74 6f 20 74 68 65 20 31 2e 31 tical to the 1.1
70e0: 20 72 65 76 69 73 69 6f 6e 20 28 69 2e 65 2e 2c revision (i.e.,
70f0: 20 69 74 73 0a 09 23 20 64 65 6c 74 61 74 65 78 its..# deltatex
7100: 74 20 69 73 20 65 6d 70 74 79 29 2e 20 20 54 68 t is empty). Th
7110: 65 20 6c 6f 67 20 6d 65 73 73 61 67 65 20 74 68 e log message th
7120: 61 74 20 74 68 65 20 75 73 65 72 20 74 79 70 65 at the user type
7130: 64 0a 09 23 20 77 68 65 6e 20 69 6d 70 6f 72 74 d..# when import
7140: 69 6e 67 20 69 73 20 73 74 6f 72 65 64 20 77 69 ing is stored wi
7150: 74 68 20 74 68 65 20 31 2e 31 2e 31 2e 31 20 72 th the 1.1.1.1 r
7160: 65 76 69 73 69 6f 6e 2e 20 20 54 68 65 20 31 2e evision. The 1.
7170: 31 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 61 6c 1..# revision al
7180: 77 61 79 73 20 63 6f 6e 74 61 69 6e 73 20 61 20 ways contains a
7190: 73 74 61 6e 64 61 72 64 2c 20 67 65 6e 65 72 61 standard, genera
71a0: 74 65 64 20 6c 6f 67 20 6d 65 73 73 61 67 65 2c ted log message,
71b0: 0a 09 23 20 27 49 6e 69 74 69 61 6c 20 72 65 76 ..# 'Initial rev
71c0: 69 73 69 6f 6e 5c 6e 27 2e 0a 0a 09 23 20 57 68 ision\n'....# Wh
71d0: 65 6e 20 77 65 20 64 65 74 65 63 74 20 61 20 73 en we detect a s
71e0: 74 72 61 69 67 68 74 66 6f 72 77 61 72 64 20 69 traightforward i
71f0: 6d 70 6f 72 74 20 6c 69 6b 65 20 74 68 69 73 2c mport like this,
7200: 20 77 65 20 77 61 6e 74 0a 09 23 20 74 6f 20 68 we want..# to h
7210: 61 6e 64 6c 65 20 69 74 20 62 79 20 64 65 6c 65 andle it by dele
7220: 74 69 6e 67 20 74 68 65 20 31 2e 31 20 72 65 76 ting the 1.1 rev
7230: 69 73 69 6f 6e 20 28 77 68 69 63 68 20 64 6f 65 ision (which doe
7240: 73 6e 27 74 0a 09 23 20 63 6f 6e 74 61 69 6e 20 sn't..# contain
7250: 61 6e 79 20 75 73 65 66 75 6c 20 69 6e 66 6f 72 any useful infor
7260: 6d 61 74 69 6f 6e 29 20 61 6e 64 20 6d 61 6b 69 mation) and maki
7270: 6e 67 20 31 2e 31 2e 31 2e 31 20 69 6e 74 6f 20 ng 1.1.1.1 into
7280: 61 6e 0a 09 23 20 69 6e 64 65 70 65 6e 64 65 6e an..# independen
7290: 74 20 72 6f 6f 74 20 69 6e 20 74 68 65 20 66 69 t root in the fi
72a0: 6c 65 27 73 20 64 65 70 65 6e 64 65 6e 63 79 20 le's dependency
72b0: 74 72 65 65 2e 20 20 49 6e 20 53 56 4e 2c 0a 09 tree. In SVN,..
72c0: 23 20 31 2e 31 2e 31 2e 31 20 77 69 6c 6c 20 62 # 1.1.1.1 will b
72d0: 65 20 61 64 64 65 64 20 64 69 72 65 63 74 6c 79 e added directly
72e0: 20 74 6f 20 74 68 65 20 76 65 6e 64 6f 72 20 62 to the vendor b
72f0: 72 61 6e 63 68 20 77 69 74 68 20 69 74 73 0a 09 ranch with its..
7300: 23 20 69 6e 69 74 69 61 6c 20 63 6f 6e 74 65 6e # initial conten
7310: 74 2e 20 20 54 68 65 6e 20 69 6e 20 61 20 73 70 t. Then in a sp
7320: 65 63 69 61 6c 20 27 70 6f 73 74 2d 63 6f 6d 6d ecial 'post-comm
7330: 69 74 27 2c 20 74 68 65 0a 09 23 20 31 2e 31 2e it', the..# 1.1.
7340: 31 2e 31 20 72 65 76 69 73 69 6f 6e 20 69 73 20 1.1 revision is
7350: 63 6f 70 69 65 64 20 62 61 63 6b 20 74 6f 20 74 copied back to t
7360: 72 75 6e 6b 2e 0a 0a 09 23 20 49 66 20 74 68 65 runk....# If the
7370: 20 75 73 65 72 20 69 6d 70 6f 72 74 73 20 61 67 user imports ag
7380: 61 69 6e 20 74 6f 20 74 68 65 20 73 61 6d 65 20 ain to the same
7390: 76 65 6e 64 6f 72 20 62 72 61 6e 63 68 2c 20 74 vendor branch, t
73a0: 68 65 6e 20 43 56 53 0a 09 23 20 63 72 65 61 74 hen CVS..# creat
73b0: 65 73 20 72 65 76 69 73 69 6f 6e 73 20 31 2e 31 es revisions 1.1
73c0: 2e 31 2e 32 2c 20 31 2e 31 2e 31 2e 33 2c 20 65 .1.2, 1.1.1.3, e
73d0: 74 63 2e 20 6f 6e 20 74 68 65 20 76 65 6e 64 6f tc. on the vendo
73e0: 72 20 62 72 61 6e 63 68 2c 0a 09 23 20 2a 77 69 r branch,..# *wi
73f0: 74 68 6f 75 74 2a 20 63 6f 75 6e 74 65 72 70 61 thout* counterpa
7400: 72 74 73 20 69 6e 20 74 72 75 6e 6b 20 28 65 76 rts in trunk (ev
7410: 65 6e 20 74 68 6f 75 67 68 20 74 68 65 73 65 20 en though these
7420: 72 65 76 69 73 69 6f 6e 73 0a 09 23 20 65 66 66 revisions..# eff
7430: 65 63 74 69 76 65 6c 79 20 70 6c 61 79 20 74 68 ectively play th
7440: 65 20 72 6f 6c 65 20 6f 66 20 74 72 75 6e 6b 20 e role of trunk
7450: 72 65 76 69 73 69 6f 6e 73 29 2e 20 20 53 6f 20 revisions). So
7460: 61 66 74 65 72 20 77 65 20 61 64 64 0a 09 23 20 after we add..#
7470: 73 75 63 68 20 72 65 76 69 73 69 6f 6e 73 20 74 such revisions t
7480: 6f 20 74 68 65 20 76 65 6e 64 6f 72 20 62 72 61 o the vendor bra
7490: 6e 63 68 2c 20 77 65 20 61 6c 73 6f 20 63 6f 70 nch, we also cop
74a0: 79 20 74 68 65 6d 20 62 61 63 6b 20 74 6f 0a 09 y them back to..
74b0: 23 20 74 72 75 6e 6b 20 69 6e 20 70 6f 73 74 2d # trunk in post-
74c0: 63 6f 6d 6d 69 74 73 2e 0a 0a 09 23 20 57 65 20 commits....# We
74d0: 6d 61 72 6b 20 74 68 65 20 72 65 76 69 73 69 6f mark the revisio
74e0: 6e 73 20 66 6f 75 6e 64 20 69 6e 20 27 72 65 76 ns found in 'rev
74f0: 6c 69 73 74 27 20 61 73 20 64 65 66 61 75 6c 74 list' as default
7500: 20 62 72 61 6e 63 68 0a 09 23 20 72 65 76 69 73 branch..# revis
7510: 69 6f 6e 73 2e 20 20 41 6c 73 6f 2c 20 69 66 20 ions. Also, if
7520: 74 68 65 20 72 6f 6f 74 20 72 65 76 69 73 69 6f the root revisio
7530: 6e 20 68 61 73 20 61 20 70 72 69 6d 61 72 79 20 n has a primary
7540: 63 68 69 6c 64 0a 09 23 20 77 65 20 73 65 74 20 child..# we set
7550: 74 68 61 74 20 72 65 76 69 73 69 6f 6e 20 74 6f that revision to
7560: 20 64 65 70 65 6e 64 20 6f 6e 20 74 68 65 20 6c depend on the l
7570: 61 73 74 20 6e 6f 6e 2d 74 72 75 6e 6b 20 64 65 ast non-trunk de
7580: 66 61 75 6c 74 0a 09 23 20 62 72 61 6e 63 68 20 fault..# branch
7590: 72 65 76 69 73 69 6f 6e 20 61 6e 64 20 70 6f 73 revision and pos
75a0: 73 69 62 6c 79 20 61 64 6a 75 73 74 20 69 74 73 sibly adjust its
75b0: 20 74 79 70 65 20 61 63 63 6f 72 64 69 6e 67 6c type accordingl
75c0: 79 2e 0a 0a 09 73 65 74 20 66 69 72 73 74 20 5b y....set first [
75d0: 6c 69 6e 64 65 78 20 24 72 65 76 6c 69 73 74 20 lindex $revlist
75e0: 30 5d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 36 0]...log write 6
75f0: 20 66 69 6c 65 20 22 3c 5b 24 66 69 72 73 74 20 file "<[$first
7600: 72 65 76 6e 72 5d 3e 20 5b 65 78 70 72 20 7b 24 revnr]> [expr {$
7610: 6d 79 69 6d 70 6f 72 74 65 64 20 3f 20 22 69 6d myimported ? "im
7620: 70 6f 72 74 65 64 22 20 3a 20 22 6e 6f 74 20 69 ported" : "not i
7630: 6d 70 6f 72 74 65 64 22 7d 5d 2c 20 5b 24 66 69 mported"}], [$fi
7640: 72 73 74 20 6f 70 65 72 61 74 69 6f 6e 5d 2c 20 rst operation],
7650: 5b 65 78 70 72 20 7b 5b 24 66 69 72 73 74 20 68 [expr {[$first h
7660: 61 73 74 65 78 74 5d 20 3f 20 22 68 61 73 20 74 astext] ? "has t
7670: 65 78 74 22 20 3a 20 22 6e 6f 20 74 65 78 74 22 ext" : "no text"
7680: 7d 5d 22 0a 0a 09 69 66 20 7b 24 6d 79 69 6d 70 }]"...if {$myimp
7690: 6f 72 74 65 64 20 26 26 0a 09 20 20 20 20 5b 24 orted &&.. [$
76a0: 66 69 72 73 74 20 72 65 76 6e 72 5d 20 65 71 20 first revnr] eq
76b0: 22 31 2e 31 2e 31 2e 31 22 20 26 26 0a 09 20 20 "1.1.1.1" &&..
76c0: 20 20 5b 24 66 69 72 73 74 20 6f 70 65 72 61 74 [$first operat
76d0: 69 6f 6e 5d 20 65 71 20 22 63 68 61 6e 67 65 22 ion] eq "change"
76e0: 20 26 26 0a 09 20 20 20 20 21 5b 24 66 69 72 73 &&.. ![$firs
76f0: 74 20 68 61 73 74 65 78 74 5d 7d 20 7b 0a 0a 09 t hastext]} {...
7700: 20 20 20 20 73 65 74 20 72 65 76 31 31 20 5b 24 set rev11 [$
7710: 66 69 72 73 74 20 70 61 72 65 6e 74 5d 20 3b 20 first parent] ;
7720: 23 20 41 73 73 65 72 74 3a 20 53 68 6f 75 6c 64 # Assert: Should
7730: 20 62 65 20 6d 79 72 6f 6f 74 2e 0a 09 20 20 20 be myroot...
7740: 20 6c 6f 67 20 77 72 69 74 65 20 33 20 66 69 6c log write 3 fil
7750: 65 20 22 52 65 6d 6f 76 69 6e 67 20 69 72 72 65 e "Removing irre
7760: 6c 65 76 61 6e 74 20 72 65 76 69 73 69 6f 6e 20 levant revision
7770: 5b 24 72 65 76 31 31 20 72 65 76 6e 72 5d 22 0a [$rev11 revnr]".
7780: 0a 09 20 20 20 20 23 20 43 75 74 20 6f 75 74 20 .. # Cut out
7790: 74 68 65 20 6f 6c 64 20 6d 79 72 6f 6f 74 20 72 the old myroot r
77a0: 65 76 69 73 69 6f 6e 2e 0a 0a 09 20 20 20 20 6c evision.... l
77b0: 64 65 6c 65 74 65 20 6d 79 72 6f 6f 74 73 20 24 delete myroots $
77c0: 72 65 76 31 31 20 3b 20 23 20 4e 6f 74 20 61 20 rev11 ; # Not a
77d0: 72 6f 6f 74 20 61 6e 79 20 6c 6f 6e 67 65 72 2e root any longer.
77e0: 0a 0a 09 20 20 20 20 24 66 69 72 73 74 20 63 75 ... $first cu
77f0: 74 66 72 6f 6d 70 61 72 65 6e 74 20 3b 20 23 20 tfromparent ; #
7800: 53 65 76 65 72 20 72 65 76 69 73 69 6f 6e 20 66 Sever revision f
7810: 72 6f 6d 20 70 61 72 65 6e 74 20 72 65 76 69 73 rom parent revis
7820: 69 6f 6e 2e 0a 09 20 20 20 20 69 66 20 7b 24 73 ion... if {$s
7830: 74 6f 70 20 6e 65 20 22 22 7d 20 7b 0a 09 09 24 top ne ""} {...$
7840: 73 74 6f 70 20 63 75 74 66 72 6f 6d 70 61 72 65 stop cutfrompare
7850: 6e 74 0a 09 09 6c 61 70 70 65 6e 64 20 6d 79 72 nt...lappend myr
7860: 6f 6f 74 73 20 24 73 74 6f 70 20 3b 20 23 20 4e oots $stop ; # N
7870: 65 77 20 72 6f 6f 74 2c 20 61 66 74 65 72 20 76 ew root, after v
7880: 65 6e 64 6f 72 20 62 72 61 6e 63 68 0a 09 20 20 endor branch..
7890: 20 20 7d 0a 0a 09 20 20 20 20 23 20 43 75 74 20 }... # Cut
78a0: 6f 75 74 20 74 68 65 20 76 65 6e 64 6f 72 20 62 out the vendor b
78b0: 72 61 6e 63 68 20 73 79 6d 62 6f 6c 0a 0a 09 20 ranch symbol...
78c0: 20 20 20 73 65 74 20 76 65 6e 64 6f 72 20 5b 24 set vendor [$
78d0: 66 69 72 73 74 20 70 61 72 65 6e 74 62 72 61 6e first parentbran
78e0: 63 68 5d 0a 09 20 20 20 20 69 6e 74 65 67 72 69 ch].. integri
78f0: 74 79 20 61 73 73 65 72 74 20 7b 24 76 65 6e 64 ty assert {$vend
7900: 6f 72 20 6e 65 20 22 22 7d 20 7b 46 69 72 73 74 or ne ""} {First
7910: 20 4e 54 44 42 20 72 65 76 69 73 69 6f 6e 20 68 NTDB revision h
7920: 61 73 20 6e 6f 20 62 72 61 6e 63 68 7d 0a 09 20 as no branch}..
7930: 20 20 20 69 66 20 7b 5b 24 76 65 6e 64 6f 72 20 if {[$vendor
7940: 70 61 72 65 6e 74 5d 20 65 71 20 24 72 65 76 31 parent] eq $rev1
7950: 31 7d 20 7b 0a 09 09 24 72 65 76 31 31 20 72 65 1} {...$rev11 re
7960: 6d 6f 76 65 62 72 61 6e 63 68 20 20 20 20 20 20 movebranch
7970: 20 20 24 76 65 6e 64 6f 72 0a 09 09 24 72 65 76 $vendor...$rev
7980: 31 31 20 72 65 6d 6f 76 65 63 68 69 6c 64 6f 6e 11 removechildon
7990: 62 72 61 6e 63 68 20 24 66 69 72 73 74 0a 09 09 branch $first...
79a0: 24 76 65 6e 64 6f 72 20 63 75 74 62 72 61 6e 63 $vendor cutbranc
79b0: 68 70 61 72 65 6e 74 20 20 20 20 3b 23 20 62 70 hparent ;# bp
79c0: 20 3d 20 72 65 76 31 31 2c 20 61 62 6f 75 74 20 = rev11, about
79d0: 74 6f 20 62 65 20 67 6f 6e 65 0a 09 09 24 66 69 to be gone...$fi
79e0: 72 73 74 20 63 75 74 66 72 6f 6d 70 61 72 65 6e rst cutfromparen
79f0: 74 62 72 61 6e 63 68 20 3b 23 20 70 62 20 3d 20 tbranch ;# pb =
7a00: 76 65 6e 64 6f 72 2c 20 74 6f 20 62 65 20 61 20 vendor, to be a
7a10: 64 65 74 61 63 68 65 64 20 4c 4f 44 0a 09 09 6c detached LOD...l
7a20: 61 70 70 65 6e 64 20 6d 79 72 6f 6f 74 73 20 24 append myroots $
7a30: 66 69 72 73 74 0a 09 20 20 20 20 7d 0a 0a 09 20 first.. }...
7a40: 20 20 20 23 20 43 68 61 6e 67 65 20 74 68 65 20 # Change the
7a50: 74 79 70 65 20 6f 66 20 66 69 72 73 74 20 28 74 type of first (t
7a60: 79 70 69 63 61 6c 6c 79 20 66 72 6f 6d 20 43 68 ypically from Ch
7a70: 61 6e 67 65 20 74 6f 20 41 64 64 29 3a 0a 09 20 ange to Add):..
7a80: 20 20 20 24 66 69 72 73 74 20 72 65 74 79 70 65 $first retype
7a90: 20 61 64 64 0a 0a 09 20 20 20 20 23 20 4d 6f 76 add... # Mov
7aa0: 65 20 61 6e 79 20 74 61 67 73 20 61 6e 64 20 62 e any tags and b
7ab0: 72 61 6e 63 68 65 73 20 66 72 6f 6d 20 74 68 65 ranches from the
7ac0: 20 6f 6c 64 20 74 6f 20 74 68 65 20 6e 65 77 20 old to the new
7ad0: 72 6f 6f 74 2e 0a 09 20 20 20 20 24 72 65 76 31 root... $rev1
7ae0: 31 20 6d 6f 76 65 73 79 6d 62 6f 6c 73 74 6f 20 1 movesymbolsto
7af0: 24 66 69 72 73 74 0a 09 7d 0a 0a 09 23 20 4d 61 $first..}...# Ma
7b00: 72 6b 20 61 6c 6c 20 74 68 65 20 73 70 65 63 69 rk all the speci
7b10: 61 6c 20 72 65 76 69 73 69 6f 6e 73 20 61 73 20 al revisions as
7b20: 73 75 63 68 0a 09 66 6f 72 65 61 63 68 20 72 65 such..foreach re
7b30: 76 20 24 72 65 76 6c 69 73 74 20 7b 0a 09 20 20 v $revlist {..
7b40: 20 20 6c 6f 67 20 77 72 69 74 65 20 33 20 66 69 log write 3 fi
7b50: 6c 65 20 22 52 65 76 69 73 69 6f 6e 20 6f 6e 20 le "Revision on
7b60: 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 3a 20 default branch:
7b70: 5b 24 72 65 76 20 72 65 76 6e 72 5d 22 0a 09 20 [$rev revnr]"..
7b80: 20 20 20 24 72 65 76 20 73 65 74 6f 6e 64 65 66 $rev setondef
7b90: 61 75 6c 74 62 72 61 6e 63 68 20 31 0a 09 7d 0a aultbranch 1..}.
7ba0: 0a 09 69 66 20 7b 24 73 74 6f 70 20 6e 65 20 22 ..if {$stop ne "
7bb0: 22 7d 20 7b 0a 09 20 20 20 20 23 20 52 65 76 69 "} {.. # Revi
7bc0: 73 69 6f 6e 20 31 2e 32 20 6c 6f 67 69 63 61 6c sion 1.2 logical
7bd0: 6c 79 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 69 ly follows the i
7be0: 6d 70 6f 72 74 65 64 20 72 65 76 69 73 69 6f 6e mported revision
7bf0: 73 2c 0a 09 20 20 20 20 23 20 6e 6f 74 20 31 2e s,.. # not 1.
7c00: 31 2e 20 20 41 63 63 6f 72 64 69 6e 67 6c 79 2c 1. Accordingly,
7c10: 20 63 6f 6e 6e 65 63 74 20 69 74 20 74 6f 20 74 connect it to t
7c20: 68 65 20 6c 61 73 74 20 4e 54 44 42 52 20 61 6e he last NTDBR an
7c30: 64 0a 09 20 20 20 20 23 20 70 6f 73 73 69 62 6c d.. # possibl
7c40: 79 20 63 68 61 6e 67 65 20 69 74 73 20 74 79 70 y change its typ
7c50: 65 2e 0a 0a 09 20 20 20 20 73 65 74 20 6c 61 73 e.... set las
7c60: 74 20 5b 6c 69 6e 64 65 78 20 24 72 65 76 6c 69 t [lindex $revli
7c70: 73 74 20 65 6e 64 5d 0a 09 20 20 20 20 24 73 74 st end].. $st
7c80: 6f 70 20 73 65 74 64 65 66 61 75 6c 74 62 72 61 op setdefaultbra
7c90: 6e 63 68 70 61 72 65 6e 74 20 24 6c 61 73 74 20 nchparent $last
7ca0: 3b 20 23 20 52 65 74 79 70 65 73 20 74 68 65 20 ; # Retypes the
7cb0: 72 65 76 69 73 69 6f 6e 20 74 6f 6f 2e 0a 09 20 revision too...
7cc0: 20 20 20 24 6c 61 73 74 20 73 65 74 64 65 66 61 $last setdefa
7cd0: 75 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 20 20 ultbranchchild
7ce0: 24 73 74 6f 70 0a 09 7d 0a 09 72 65 74 75 72 6e $stop..}..return
7cf0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
7d00: 6f 64 20 43 68 65 63 6b 4c 4f 44 73 20 7b 7d 20 od CheckLODs {}
7d10: 7b 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 62 72 {..foreach {_ br
7d20: 61 6e 63 68 7d 20 20 5b 61 72 72 61 79 20 67 65 anch} [array ge
7d30: 74 20 6d 79 62 72 61 6e 63 68 65 73 5d 20 7b 20 t mybranches] {
7d40: 24 62 72 61 6e 63 68 20 63 68 65 63 6b 6c 6f 64 $branch checklod
7d50: 20 7d 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 74 }..foreach {_ t
7d60: 61 67 6c 69 73 74 7d 20 5b 61 72 72 61 79 20 67 aglist} [array g
7d70: 65 74 20 6d 79 74 61 67 73 5d 20 7b 0a 09 20 20 et mytags] {..
7d80: 20 20 66 6f 72 65 61 63 68 20 74 61 67 20 24 74 foreach tag $t
7d90: 61 67 6c 69 73 74 20 7b 20 24 74 61 67 20 63 68 aglist { $tag ch
7da0: 65 63 6b 6c 6f 64 20 7d 0a 09 7d 0a 09 72 65 74 ecklod }..}..ret
7db0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
7dc0: 65 74 68 6f 64 20 52 65 6d 6f 76 65 49 72 72 65 ethod RemoveIrre
7dd0: 6c 65 76 61 6e 74 44 65 6c 65 74 69 6f 6e 73 20 levantDeletions
7de0: 7b 7d 20 7b 0a 09 23 20 46 72 6f 6d 20 63 76 73 {} {..# From cvs
7df0: 32 73 76 6e 3a 20 49 66 20 61 20 66 69 6c 65 20 2svn: If a file
7e00: 69 73 20 61 64 64 65 64 20 6f 6e 20 61 20 62 72 is added on a br
7e10: 61 6e 63 68 2c 20 74 68 65 6e 20 61 20 74 72 75 anch, then a tru
7e20: 6e 6b 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 69 nk..# revision i
7e30: 73 20 61 64 64 65 64 20 61 74 20 74 68 65 20 73 s added at the s
7e40: 61 6d 65 20 74 69 6d 65 20 69 6e 20 74 68 65 20 ame time in the
7e50: 27 44 65 61 64 27 20 73 74 61 74 65 2e 0a 09 23 'Dead' state...#
7e60: 20 54 68 69 73 20 72 65 76 69 73 69 6f 6e 20 64 This revision d
7e70: 6f 65 73 6e 27 74 20 64 6f 20 61 6e 79 74 68 69 oesn't do anythi
7e80: 6e 67 20 75 73 65 66 75 6c 2c 20 73 6f 20 64 65 ng useful, so de
7e90: 6c 65 74 65 20 69 74 2e 0a 0a 09 66 6f 72 65 61 lete it....forea
7ea0: 63 68 20 72 6f 6f 74 20 24 6d 79 72 6f 6f 74 73 ch root $myroots
7eb0: 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 24 72 6f {.. if {[$ro
7ec0: 6f 74 20 69 73 6e 65 65 64 65 64 5d 7d 20 63 6f ot isneeded]} co
7ed0: 6e 74 69 6e 75 65 0a 09 20 20 20 20 6c 6f 67 20 ntinue.. log
7ee0: 77 72 69 74 65 20 32 20 66 69 6c 65 20 22 52 65 write 2 file "Re
7ef0: 6d 6f 76 69 6e 67 20 75 6e 6e 65 63 65 73 73 61 moving unnecessa
7f00: 72 79 20 64 65 61 64 20 72 65 76 69 73 69 6f 6e ry dead revision
7f10: 20 5b 24 72 6f 6f 74 20 72 65 76 6e 72 5d 22 0a [$root revnr]".
7f20: 0a 09 20 20 20 20 23 20 52 65 6d 6f 76 65 20 61 .. # Remove a
7f30: 73 20 72 6f 6f 74 2c 20 6d 61 6b 65 20 69 74 73 s root, make its
7f40: 20 63 68 69 6c 64 20 6e 65 77 20 72 6f 6f 74 20 child new root
7f50: 61 66 74 65 72 0a 09 20 20 20 20 23 20 64 69 73 after.. # dis
7f60: 63 6f 6e 6e 65 63 74 69 6e 67 20 69 74 20 66 72 connecting it fr
7f70: 6f 6d 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 om the revision
7f80: 6a 75 73 74 20 67 6f 69 6e 67 20 61 77 61 79 2e just going away.
7f90: 0a 0a 09 20 20 20 20 6c 64 65 6c 65 74 65 20 6d ... ldelete m
7fa0: 79 72 6f 6f 74 73 20 24 72 6f 6f 74 0a 09 20 20 yroots $root..
7fb0: 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 73 if {[$root has
7fc0: 63 68 69 6c 64 5d 7d 20 7b 0a 09 09 73 65 74 20 child]} {...set
7fd0: 63 68 69 6c 64 20 5b 24 72 6f 6f 74 20 63 68 69 child [$root chi
7fe0: 6c 64 5d 0a 09 09 24 63 68 69 6c 64 20 63 75 74 ld]...$child cut
7ff0: 66 72 6f 6d 70 61 72 65 6e 74 0a 09 09 6c 61 70 fromparent...lap
8000: 70 65 6e 64 20 6d 79 72 6f 6f 74 73 20 24 63 68 pend myroots $ch
8010: 69 6c 64 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 ild.. }...
8020: 20 23 20 43 75 74 20 6f 75 74 20 74 68 65 20 62 # Cut out the b
8030: 72 61 6e 63 68 65 73 20 73 70 61 77 6e 65 64 20 ranches spawned
8040: 62 79 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 by the revision
8050: 74 6f 20 62 65 0a 09 20 20 20 20 23 20 64 65 6c to be.. # del
8060: 65 74 65 64 2e 20 49 66 20 74 68 65 20 62 72 61 eted. If the bra
8070: 6e 63 68 20 68 61 73 20 72 65 76 69 73 69 6f 6e nch has revision
8080: 73 20 74 68 65 79 20 73 68 6f 75 6c 64 20 61 6c s they should al
8090: 72 65 61 64 79 0a 09 20 20 20 20 23 20 75 73 65 ready.. # use
80a0: 20 6f 70 65 72 61 74 69 6f 6e 20 27 61 64 64 27 operation 'add'
80b0: 2c 20 6e 6f 20 6e 65 65 64 20 74 6f 20 63 68 61 , no need to cha
80c0: 6e 67 65 20 74 68 61 74 2e 20 54 68 65 20 66 69 nge that. The fi
80d0: 72 73 74 0a 09 20 20 20 20 23 20 72 65 76 69 73 rst.. # revis
80e0: 69 6f 6e 20 6f 6e 20 65 61 63 68 20 62 72 61 6e ion on each bran
80f0: 63 68 20 62 65 63 6f 6d 65 73 20 61 20 6e 65 77 ch becomes a new
8100: 20 61 6e 64 20 64 69 73 63 6f 6e 6e 65 63 74 65 and disconnecte
8110: 64 0a 09 20 20 20 20 23 20 72 6f 6f 74 2e 0a 0a d.. # root...
8120: 09 20 20 20 20 66 6f 72 65 61 63 68 20 62 72 61 . foreach bra
8130: 6e 63 68 20 5b 24 72 6f 6f 74 20 62 72 61 6e 63 nch [$root branc
8140: 68 65 73 5d 20 7b 0a 09 09 24 62 72 61 6e 63 68 hes] {...$branch
8150: 20 63 75 74 62 72 61 6e 63 68 70 61 72 65 6e 74 cutbranchparent
8160: 0a 09 09 69 66 20 7b 21 5b 24 62 72 61 6e 63 68 ...if {![$branch
8170: 20 68 61 73 63 68 69 6c 64 5d 7d 20 63 6f 6e 74 haschild]} cont
8180: 69 6e 75 65 0a 09 09 73 65 74 20 66 69 72 73 74 inue...set first
8190: 20 5b 24 62 72 61 6e 63 68 20 63 68 69 6c 64 5d [$branch child]
81a0: 0a 09 09 24 66 69 72 73 74 20 63 75 74 66 72 6f ...$first cutfro
81b0: 6d 70 61 72 65 6e 74 0a 09 09 6c 61 70 70 65 6e mparent...lappen
81c0: 64 20 6d 79 72 6f 6f 74 73 20 24 66 69 72 73 74 d myroots $first
81d0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 24 72 6f .. }.. $ro
81e0: 6f 74 20 72 65 6d 6f 76 65 61 6c 6c 62 72 61 6e ot removeallbran
81f0: 63 68 65 73 0a 0a 09 20 20 20 20 23 20 54 61 67 ches... # Tag
8200: 67 69 6e 67 20 61 20 64 65 61 64 20 72 65 76 69 ging a dead revi
8210: 73 69 6f 6e 20 64 6f 65 73 6e 27 74 20 64 6f 20 sion doesn't do
8220: 61 6e 79 74 68 69 6e 67 2c 20 73 6f 20 72 65 6d anything, so rem
8230: 6f 76 65 0a 09 20 20 20 20 23 20 61 6e 79 20 74 ove.. # any t
8240: 61 67 73 20 74 68 61 74 20 77 65 72 65 20 73 65 ags that were se
8250: 74 20 6f 6e 20 69 74 2e 0a 0a 09 20 20 20 20 24 t on it.... $
8260: 72 6f 6f 74 20 72 65 6d 6f 76 65 61 6c 6c 74 61 root removeallta
8270: 67 73 0a 0a 09 20 20 20 20 23 20 54 68 69 73 20 gs... # This
8280: 63 61 6e 20 6f 6e 6c 79 20 68 61 70 70 65 6e 20 can only happen
8290: 6f 6e 63 65 20 70 65 72 20 66 69 6c 65 2c 20 61 once per file, a
82a0: 6e 64 20 77 65 20 6d 69 67 68 74 20 68 61 76 65 nd we might have
82b0: 0a 09 20 20 20 20 23 20 6a 75 73 74 20 63 68 61 .. # just cha
82c0: 6e 67 65 64 20 6d 79 72 6f 6f 74 73 2c 20 73 6f nged myroots, so
82d0: 20 65 6e 64 20 74 68 65 20 6c 6f 6f 70 0a 09 20 end the loop..
82e0: 20 20 20 62 72 65 61 6b 0a 09 7d 0a 09 72 65 74 break..}..ret
82f0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
8300: 65 74 68 6f 64 20 52 65 6d 6f 76 65 49 6e 69 74 ethod RemoveInit
8310: 69 61 6c 42 72 61 6e 63 68 44 65 6c 65 74 69 6f ialBranchDeletio
8320: 6e 73 20 7b 7d 20 7b 0a 09 23 20 46 72 6f 6d 20 ns {} {..# From
8330: 63 76 73 32 73 76 6e 3a 20 49 66 20 74 68 65 20 cvs2svn: If the
8340: 66 69 72 73 74 20 72 65 76 69 73 69 6f 6e 20 6f first revision o
8350: 6e 20 61 20 62 72 61 6e 63 68 20 69 73 20 61 6e n a branch is an
8360: 0a 09 23 20 75 6e 6e 65 63 65 73 73 61 72 79 20 ..# unnecessary
8370: 64 65 6c 65 74 65 2c 20 72 65 6d 6f 76 65 20 69 delete, remove i
8380: 74 2e 0a 09 23 0a 09 23 20 49 66 20 61 20 66 69 t...#..# If a fi
8390: 6c 65 20 69 73 20 61 64 64 65 64 20 6f 6e 20 61 le is added on a
83a0: 20 62 72 61 6e 63 68 20 28 77 68 65 74 68 65 72 branch (whether
83b0: 20 6f 72 20 6e 6f 74 20 69 74 20 61 6c 72 65 61 or not it alrea
83c0: 64 79 0a 09 23 20 65 78 69 73 74 65 64 20 6f 6e dy..# existed on
83d0: 20 74 72 75 6e 6b 29 2c 20 74 68 65 6e 20 6e 65 trunk), then ne
83e0: 77 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 43 56 w versions of CV
83f0: 53 20 61 64 64 20 61 20 66 69 72 73 74 0a 09 23 S add a first..#
8400: 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 6f 6e branch revision
8410: 20 69 6e 20 74 68 65 20 27 64 65 61 64 27 20 73 in the 'dead' s
8420: 74 61 74 65 20 28 74 6f 20 69 6e 64 69 63 61 74 tate (to indicat
8430: 65 20 74 68 61 74 20 74 68 65 0a 09 23 20 66 69 e that the..# fi
8440: 6c 65 20 64 69 64 20 6e 6f 74 20 65 78 69 73 74 le did not exist
8450: 20 6f 6e 20 74 68 65 20 62 72 61 6e 63 68 20 77 on the branch w
8460: 68 65 6e 20 74 68 65 20 62 72 61 6e 63 68 20 77 hen the branch w
8470: 61 73 0a 09 23 20 63 72 65 61 74 65 64 29 20 66 as..# created) f
8480: 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 73 ollowed by the s
8490: 65 63 6f 6e 64 20 62 72 61 6e 63 68 20 72 65 76 econd branch rev
84a0: 69 73 69 6f 6e 2c 20 77 68 69 63 68 20 69 73 20 ision, which is
84b0: 61 6e 0a 09 23 20 61 64 64 2e 20 20 57 68 65 6e an..# add. When
84c0: 20 77 65 20 65 6e 63 6f 75 6e 74 65 72 20 74 68 we encounter th
84d0: 69 73 20 73 69 74 75 61 74 69 6f 6e 2c 20 77 65 is situation, we
84e0: 20 73 65 76 65 72 20 74 68 65 20 62 72 61 6e 63 sever the branc
84f0: 68 0a 09 23 20 66 72 6f 6d 20 74 72 75 6e 6b 20 h..# from trunk
8500: 61 6e 64 20 64 65 6c 65 74 65 20 74 68 65 20 66 and delete the f
8510: 69 72 73 74 20 62 72 61 6e 63 68 20 72 65 76 69 irst branch revi
8520: 73 69 6f 6e 2e 0a 0a 09 23 20 41 74 20 74 68 69 sion....# At thi
8530: 73 20 70 6f 69 6e 74 20 77 65 20 6d 61 79 20 68 s point we may h
8540: 61 76 65 20 61 6c 72 65 61 64 79 20 6d 75 6c 74 ave already mult
8550: 69 70 6c 65 20 72 6f 6f 74 73 20 69 6e 20 6d 79 iple roots in my
8560: 72 6f 6f 74 73 2c 0a 09 23 20 77 65 20 68 61 76 roots,..# we hav
8570: 65 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 e to process the
8580: 6d 20 61 6c 6c 2e 0a 0a 09 66 6f 72 65 61 63 68 m all....foreach
8590: 20 72 6f 6f 74 20 5b 24 73 65 6c 66 20 4c 69 6e root [$self Lin
85a0: 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 6e 74 5d esOfDevelopment]
85b0: 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 24 72 6f {.. if {[$ro
85c0: 6f 74 20 69 73 6e 65 65 64 65 64 62 72 61 6e 63 ot isneededbranc
85d0: 68 64 65 6c 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a hdel]} continue.
85e0: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 32 . log write 2
85f0: 20 66 69 6c 65 20 22 52 65 6d 6f 76 69 6e 67 20 file "Removing
8600: 75 6e 6e 65 63 65 73 73 61 72 79 20 69 6e 69 74 unnecessary init
8610: 69 61 6c 20 62 72 61 6e 63 68 20 64 65 6c 65 74 ial branch delet
8620: 65 20 5b 24 72 6f 6f 74 20 72 65 76 6e 72 5d 22 e [$root revnr]"
8630: 0a 0a 09 20 20 20 20 73 65 74 20 62 72 61 6e 63 ... set branc
8640: 68 20 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 62 h [$root parentb
8650: 72 61 6e 63 68 5d 0a 09 20 20 20 20 73 65 74 20 ranch].. set
8660: 70 61 72 65 6e 74 20 5b 24 72 6f 6f 74 20 70 61 parent [$root pa
8670: 72 65 6e 74 5d 0a 09 20 20 20 20 73 65 74 20 63 rent].. set c
8680: 68 69 6c 64 20 20 5b 24 72 6f 6f 74 20 63 68 69 hild [$root chi
8690: 6c 64 5d 0a 0a 09 20 20 20 20 6c 64 65 6c 65 74 ld]... ldelet
86a0: 65 20 6d 79 72 6f 6f 74 73 20 24 72 6f 6f 74 0a e myroots $root.
86b0: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 72 . lappend myr
86c0: 6f 6f 74 73 20 24 63 68 69 6c 64 0a 0a 09 20 20 oots $child...
86d0: 20 20 24 62 72 61 6e 63 68 20 63 75 74 62 72 61 $branch cutbra
86e0: 6e 63 68 70 61 72 65 6e 74 0a 09 20 20 20 20 24 nchparent.. $
86f0: 62 72 61 6e 63 68 20 63 75 74 63 68 69 6c 64 0a branch cutchild.
8700: 09 20 20 20 20 24 63 68 69 6c 64 20 20 63 75 74 . $child cut
8710: 66 72 6f 6d 70 61 72 65 6e 74 0a 0a 09 20 20 20 fromparent...
8720: 20 24 62 72 61 6e 63 68 20 73 65 74 63 68 69 6c $branch setchil
8730: 64 20 20 20 20 20 20 20 20 24 63 68 69 6c 64 0a d $child.
8740: 09 20 20 20 20 24 63 68 69 6c 64 20 20 73 65 74 . $child set
8750: 70 61 72 65 6e 74 62 72 61 6e 63 68 20 24 62 72 parentbranch $br
8760: 61 6e 63 68 0a 0a 09 20 20 20 20 24 70 61 72 65 anch... $pare
8770: 6e 74 20 72 65 6d 6f 76 65 62 72 61 6e 63 68 20 nt removebranch
8780: 20 20 20 20 20 20 20 24 62 72 61 6e 63 68 0a 09 $branch..
8790: 20 20 20 20 24 70 61 72 65 6e 74 20 72 65 6d 6f $parent remo
87a0: 76 65 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 20 vechildonbranch
87b0: 24 72 6f 6f 74 0a 09 7d 0a 09 72 65 74 75 72 6e $root..}..return
87c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
87d0: 6f 64 20 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f od LinesOfDevelo
87e0: 70 6d 65 6e 74 20 7b 7d 20 7b 0a 09 23 20 44 65 pment {} {..# De
87f0: 74 65 72 6d 69 6e 65 20 61 6c 6c 20 6c 69 6e 65 termine all line
8800: 73 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e 74 s of development
8810: 20 66 6f 72 20 74 68 65 20 66 69 6c 65 2e 20 54 for the file. T
8820: 68 69 73 20 61 72 65 0a 09 23 20 74 68 65 20 6b his are..# the k
8830: 6e 6f 77 6e 20 72 6f 6f 74 73 2c 20 61 6e 64 20 nown roots, and
8840: 74 68 65 20 72 6f 6f 74 20 6f 66 20 61 6c 6c 20 the root of all
8850: 62 72 61 6e 63 68 65 73 20 66 6f 75 6e 64 20 6f branches found o
8860: 6e 20 74 68 65 0a 09 23 20 6c 69 6e 65 20 6f 66 n the..# line of
8870: 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 72 65 primary childre
8880: 6e 2e 0a 0a 09 73 65 74 20 6c 6f 64 72 6f 6f 74 n....set lodroot
8890: 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 72 6f s {}..foreach ro
88a0: 6f 74 20 24 6d 79 72 6f 6f 74 73 20 7b 0a 09 20 ot $myroots {..
88b0: 20 20 20 24 73 65 6c 66 20 41 64 64 42 72 61 6e $self AddBran
88c0: 63 68 65 64 4c 69 6e 65 73 4f 66 44 65 76 65 6c chedLinesOfDevel
88d0: 6f 70 6d 65 6e 74 20 6c 6f 64 72 6f 6f 74 73 20 opment lodroots
88e0: 24 72 6f 6f 74 0a 09 20 20 20 20 6c 61 70 70 65 $root.. lappe
88f0: 6e 64 20 6c 6f 64 72 6f 6f 74 73 20 24 72 6f 6f nd lodroots $roo
8900: 74 0a 09 7d 0a 09 72 65 74 75 72 6e 20 24 6c 6f t..}..return $lo
8910: 64 72 6f 6f 74 73 0a 20 20 20 20 7d 0a 0a 20 20 droots. }..
8920: 20 20 6d 65 74 68 6f 64 20 41 64 64 42 72 61 6e method AddBran
8930: 63 68 65 64 4c 69 6e 65 73 4f 66 44 65 76 65 6c chedLinesOfDevel
8940: 6f 70 6d 65 6e 74 20 7b 6c 76 20 72 6f 6f 74 7d opment {lv root}
8950: 20 7b 0a 09 75 70 76 61 72 20 31 20 24 6c 76 20 {..upvar 1 $lv
8960: 6c 6f 64 72 6f 6f 74 73 0a 09 77 68 69 6c 65 20 lodroots..while
8970: 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d 20 7b 0a {$root ne ""} {.
8980: 09 20 20 20 20 66 6f 72 65 61 63 68 20 62 72 61 . foreach bra
8990: 6e 63 68 20 5b 24 72 6f 6f 74 20 62 72 61 6e 63 nch [$root branc
89a0: 68 65 73 5d 20 7b 0a 09 09 69 66 20 7b 21 5b 24 hes] {...if {![$
89b0: 62 72 61 6e 63 68 20 68 61 73 63 68 69 6c 64 5d branch haschild]
89c0: 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 73 65 74 } continue...set
89d0: 20 63 68 69 6c 64 20 5b 24 62 72 61 6e 63 68 20 child [$branch
89e0: 63 68 69 6c 64 5d 0a 09 09 23 20 52 65 63 75 72 child]...# Recur
89f0: 73 65 20 69 6e 74 6f 20 74 68 65 20 62 72 61 6e se into the bran
8a00: 63 68 20 66 6f 72 20 64 65 65 70 65 72 20 62 72 ch for deeper br
8a10: 61 6e 63 68 65 73 2e 0a 09 09 24 73 65 6c 66 20 anches....$self
8a20: 41 64 64 42 72 61 6e 63 68 65 64 4c 69 6e 65 73 AddBranchedLines
8a30: 4f 66 44 65 76 65 6c 6f 70 6d 65 6e 74 20 6c 6f OfDevelopment lo
8a40: 64 72 6f 6f 74 73 20 24 63 68 69 6c 64 0a 09 09 droots $child...
8a50: 6c 61 70 70 65 6e 64 20 6c 6f 64 72 6f 6f 74 73 lappend lodroots
8a60: 20 24 63 68 69 6c 64 0a 09 20 20 20 20 7d 0a 09 $child.. }..
8a70: 20 20 20 20 73 65 74 20 72 6f 6f 74 20 5b 24 72 set root [$r
8a80: 6f 6f 74 20 63 68 69 6c 64 5d 0a 09 7d 0a 09 72 oot child]..}..r
8a90: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
8aa0: 20 6d 65 74 68 6f 64 20 45 78 63 6c 75 64 65 4e method ExcludeN
8ab0: 6f 6e 54 72 75 6e 6b 49 6e 66 6f 72 6d 61 74 69 onTrunkInformati
8ac0: 6f 6e 20 7b 7d 20 7b 0a 09 23 20 52 65 6d 6f 76 on {} {..# Remov
8ad0: 65 20 61 6c 6c 20 6e 6f 6e 2d 74 72 75 6e 6b 20 e all non-trunk
8ae0: 62 72 61 6e 63 68 65 73 2c 20 72 65 76 69 73 69 branches, revisi
8af0: 6f 6e 73 2c 20 61 6e 64 20 74 61 67 73 2e 20 57 ons, and tags. W
8b00: 65 20 64 6f 0a 09 23 20 6b 65 65 70 20 74 68 65 e do..# keep the
8b10: 20 74 61 67 73 20 77 68 69 63 68 20 61 72 65 20 tags which are
8b20: 6f 6e 20 74 68 65 20 74 72 75 6e 6b 2e 0a 0a 09 on the trunk....
8b30: 73 65 74 20 6e 74 64 62 72 6f 6f 74 20 22 22 0a set ntdbroot "".
8b40: 09 66 6f 72 65 61 63 68 20 72 6f 6f 74 20 5b 24 .foreach root [$
8b50: 73 65 6c 66 20 4c 69 6e 65 73 4f 66 44 65 76 65 self LinesOfDeve
8b60: 6c 6f 70 6d 65 6e 74 5d 20 7b 0a 09 20 20 20 20 lopment] {..
8b70: 23 20 4e 6f 74 65 3a 20 48 65 72 65 20 74 68 65 # Note: Here the
8b80: 20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 72 6f order of the ro
8b90: 6f 74 73 20 69 73 20 69 6d 70 6f 72 74 61 6e 74 ots is important
8ba0: 2c 0a 09 20 20 20 20 23 20 69 2e 65 2e 20 74 68 ,.. # i.e. th
8bb0: 61 74 20 77 65 20 67 65 74 20 74 68 65 6d 20 69 at we get them i
8bc0: 6e 20 64 65 70 74 68 20 66 69 72 73 74 20 6f 72 n depth first or
8bd0: 64 65 72 2e 20 54 68 69 73 20 65 6e 73 75 72 65 der. This ensure
8be0: 73 0a 09 20 20 20 20 23 20 74 68 61 74 20 74 68 s.. # that th
8bf0: 65 20 72 65 6d 6f 76 61 6c 20 6f 66 20 61 20 62 e removal of a b
8c00: 72 61 6e 63 68 20 68 61 70 70 65 6e 73 20 6f 6e ranch happens on
8c10: 6c 79 20 61 66 74 65 72 20 74 68 65 0a 09 20 20 ly after the..
8c20: 20 20 23 20 62 72 61 6e 63 68 65 73 20 73 70 61 # branches spa
8c30: 77 6e 65 64 20 66 72 6f 6d 20 69 74 20 77 65 72 wned from it wer
8c40: 65 20 72 65 6d 6f 76 65 64 2e 20 4f 74 68 65 72 e removed. Other
8c50: 77 69 73 65 20 74 68 65 0a 09 20 20 20 20 23 20 wise the.. #
8c60: 73 79 73 74 65 6d 20 6d 69 67 68 74 20 74 72 79 system might try
8c70: 20 74 6f 20 61 63 63 65 73 73 20 64 65 6c 65 74 to access delet
8c80: 65 64 20 6f 62 6a 65 63 74 73 2e 0a 0a 09 20 20 ed objects....
8c90: 20 20 23 20 44 6f 20 6e 6f 74 20 65 78 63 6c 75 # Do not exclu
8ca0: 64 65 20 74 68 65 20 74 72 75 6e 6b 2e 0a 09 20 de the trunk...
8cb0: 20 20 20 69 66 20 7b 5b 5b 24 72 6f 6f 74 20 6c if {[[$root l
8cc0: 6f 64 5d 20 69 73 74 72 75 6e 6b 5d 7d 20 63 6f od] istrunk]} co
8cd0: 6e 74 69 6e 75 65 0a 09 20 20 20 20 24 73 65 6c ntinue.. $sel
8ce0: 66 20 45 78 63 6c 75 64 65 42 72 61 6e 63 68 20 f ExcludeBranch
8cf0: 24 72 6f 6f 74 20 6e 74 64 62 72 6f 6f 74 0a 09 $root ntdbroot..
8d00: 7d 0a 0a 09 69 66 20 7b 24 6e 74 64 62 72 6f 6f }...if {$ntdbroo
8d10: 74 20 6e 65 20 22 22 7d 20 7b 0a 09 20 20 20 20 t ne ""} {..
8d20: 24 73 65 6c 66 20 47 72 61 66 74 4e 54 44 42 32 $self GraftNTDB2
8d30: 54 72 75 6e 6b 20 24 6e 74 64 62 72 6f 6f 74 0a Trunk $ntdbroot.
8d40: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
8d50: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 45 78 63 .. method Exc
8d60: 6c 75 64 65 42 72 61 6e 63 68 20 7b 72 6f 6f 74 ludeBranch {root
8d70: 20 6e 76 7d 20 7b 0a 09 23 20 45 78 63 6c 75 64 nv} {..# Exclud
8d80: 65 20 74 68 65 20 62 72 61 6e 63 68 2f 6c 6f 64 e the branch/lod
8d90: 20 73 74 61 72 74 69 6e 67 20 61 74 20 72 6f 6f starting at roo
8da0: 74 2c 20 61 20 72 65 76 69 73 69 6f 6e 2e 0a 09 t, a revision...
8db0: 23 0a 09 23 20 49 66 20 74 68 65 20 4c 4f 44 20 #..# If the LOD
8dc0: 73 74 61 72 74 73 20 77 69 74 68 20 6e 6f 6e 2d starts with non-
8dd0: 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 trunk default br
8de0: 61 6e 63 68 20 72 65 76 69 73 69 6f 6e 73 2c 0a anch revisions,.
8df0: 09 23 20 77 65 20 6c 65 61 76 65 20 74 68 65 6d .# we leave them
8e00: 20 69 6e 20 70 6c 61 63 65 20 61 6e 64 20 64 6f in place and do
8e10: 20 6e 6f 74 20 64 65 6c 65 74 65 20 74 68 65 20 not delete the
8e20: 62 72 61 6e 63 68 2e 20 49 6e 20 74 68 61 74 0a branch. In that.
8e30: 09 23 20 63 61 73 65 20 74 68 65 20 63 6f 6d 6d .# case the comm
8e40: 61 6e 64 20 73 65 74 73 20 74 68 65 20 76 61 72 and sets the var
8e50: 69 61 62 6c 65 20 69 6e 20 4e 56 20 73 6f 20 74 iable in NV so t
8e60: 68 61 74 20 77 65 20 63 61 6e 0a 09 23 20 6c 61 hat we can..# la
8e70: 74 65 72 20 72 65 77 6f 72 6b 20 74 68 65 73 65 ter rework these
8e80: 20 72 65 76 69 73 6f 6e 73 20 74 6f 20 62 65 20 revisons to be
8e90: 70 75 72 65 6c 79 20 74 72 75 6e 6b 2e 0a 0a 09 purely trunk....
8ea0: 69 66 20 7b 5b 24 72 6f 6f 74 20 69 73 6f 6e 64 if {[$root isond
8eb0: 65 66 61 75 6c 74 62 72 61 6e 63 68 5d 7d 20 7b efaultbranch]} {
8ec0: 0a 09 20 20 20 20 23 20 48 61 6e 64 6c 69 6e 67 .. # Handling
8ed0: 20 61 20 4e 54 44 42 2e 20 54 68 69 73 20 62 72 a NTDB. This br
8ee0: 61 6e 63 68 20 6d 61 79 20 63 6f 6e 73 69 73 74 anch may consist
8ef0: 73 20 6e 6f 74 20 6f 6e 6c 79 20 6f 66 0a 09 20 s not only of..
8f00: 20 20 20 23 20 4e 54 44 42 20 72 65 76 69 73 69 # NTDB revisi
8f10: 6f 6e 73 2c 20 62 75 74 20 61 6c 73 6f 20 73 6f ons, but also so
8f20: 6d 65 20 6e 6f 6e 2d 4e 54 44 42 2e 20 54 68 65 me non-NTDB. The
8f30: 20 6c 61 74 74 65 72 20 61 72 65 0a 09 20 20 20 latter are..
8f40: 20 23 20 74 72 75 6c 79 20 6f 6e 20 61 20 62 72 # truly on a br
8f50: 61 6e 63 68 20 61 6e 64 20 68 61 76 65 20 74 6f anch and have to
8f60: 20 62 65 20 65 78 63 6c 75 64 65 64 2e 20 54 68 be excluded. Th
8f70: 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 09 20 20 20 e following..
8f80: 20 23 20 6c 6f 6f 70 20 64 65 74 65 72 6d 69 6e # loop determin
8f90: 65 73 20 69 66 20 74 68 65 72 65 20 61 72 65 20 es if there are
8fa0: 73 75 63 68 20 72 65 76 69 73 69 6f 6e 73 2e 0a such revisions..
8fb0: 0a 09 20 20 20 20 75 70 76 61 72 20 31 20 24 6e .. upvar 1 $n
8fc0: 76 20 6e 74 64 62 72 6f 6f 74 0a 09 20 20 20 20 v ntdbroot..
8fd0: 73 65 74 20 6e 74 64 62 72 6f 6f 74 20 24 72 6f set ntdbroot $ro
8fe0: 6f 74 0a 09 20 20 20 20 24 72 6f 6f 74 20 63 75 ot.. $root cu
8ff0: 74 66 72 6f 6d 70 61 72 65 6e 74 62 72 61 6e 63 tfromparentbranc
9000: 68 0a 0a 09 20 20 20 20 73 65 74 20 72 65 76 20 h... set rev
9010: 24 72 6f 6f 74 0a 09 20 20 20 20 77 68 69 6c 65 $root.. while
9020: 20 7b 24 72 65 76 20 6e 65 20 22 22 7d 20 7b 0a {$rev ne ""} {.
9030: 09 09 24 72 65 76 20 72 65 6d 6f 76 65 61 6c 6c ..$rev removeall
9040: 62 72 61 6e 63 68 65 73 0a 09 09 23 20 53 65 65 branches...# See
9050: 20 6e 6f 74 65 20 5b 78 5d 2e 0a 0a 09 09 69 66 note [x].....if
9060: 20 7b 5b 24 72 65 76 20 69 73 6f 6e 64 65 66 61 {[$rev isondefa
9070: 75 6c 74 62 72 61 6e 63 68 5d 7d 20 7b 0a 09 09 ultbranch]} {...
9080: 20 20 20 20 73 65 74 20 72 65 76 20 5b 24 72 65 set rev [$re
9090: 76 20 63 68 69 6c 64 5d 0a 09 09 7d 20 65 6c 73 v child]...} els
90a0: 65 20 7b 0a 09 09 20 20 20 20 62 72 65 61 6b 0a e {... break.
90b0: 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 ..}.. }...
90c0: 20 23 20 72 65 76 20 6e 6f 77 20 63 6f 6e 74 61 # rev now conta
90d0: 69 6e 73 20 74 68 65 20 66 69 72 73 74 20 6e 6f ins the first no
90e0: 6e 2d 4e 54 44 42 20 72 65 76 69 73 69 6f 6e 20 n-NTDB revision
90f0: 61 66 74 65 72 20 74 68 65 0a 09 20 20 20 20 23 after the.. #
9100: 20 4e 54 44 42 2c 20 6f 72 20 69 73 20 65 6d 70 NTDB, or is emp
9110: 74 79 20 69 66 20 74 68 65 72 65 20 69 73 20 6e ty if there is n
9120: 6f 20 73 75 63 68 2e 20 49 66 20 77 65 20 68 61 o such. If we ha
9130: 76 65 20 73 6f 6d 65 0a 09 20 20 20 20 23 20 74 ve some.. # t
9140: 68 65 79 20 68 61 76 65 20 74 6f 20 72 65 6d 6f hey have to remo
9150: 76 65 64 2e 0a 0a 09 20 20 20 20 69 66 20 7b 24 ved.... if {$
9160: 72 65 76 20 6e 65 20 22 22 7d 20 20 7b 0a 09 09 rev ne ""} {...
9170: 73 65 74 20 6c 61 73 74 6e 74 64 62 20 5b 24 72 set lastntdb [$r
9180: 65 76 20 70 61 72 65 6e 74 5d 0a 09 09 24 6c 61 ev parent]...$la
9190: 73 74 6e 74 64 62 20 63 75 74 66 72 6f 6d 63 68 stntdb cutfromch
91a0: 69 6c 64 0a 09 09 77 68 69 6c 65 20 7b 24 72 65 ild...while {$re
91b0: 76 20 6e 65 20 22 22 7d 20 7b 0a 09 09 20 20 20 v ne ""} {...
91c0: 20 24 72 65 76 20 72 65 6d 6f 76 65 61 6c 6c 74 $rev removeallt
91d0: 61 67 73 0a 09 09 20 20 20 20 24 72 65 76 20 72 ags... $rev r
91e0: 65 6d 6f 76 65 61 6c 6c 62 72 61 6e 63 68 65 73 emoveallbranches
91f0: 0a 09 09 20 20 20 20 23 20 4e 6f 74 65 20 5b 78 ... # Note [x
9200: 5d 3a 20 57 65 20 6d 61 79 20 73 74 69 6c 6c 20 ]: We may still
9210: 68 61 76 65 20 68 61 64 20 62 72 61 6e 63 68 65 have had branche
9220: 73 20 6f 6e 20 74 68 65 0a 09 09 20 20 20 20 23 s on the... #
9230: 20 72 65 76 69 73 69 6f 6e 2e 20 42 72 61 6e 63 revision. Branc
9240: 68 65 73 20 77 69 74 68 6f 75 74 20 72 65 76 69 hes without revi
9250: 73 69 6f 6e 73 20 63 6f 6d 6d 69 74 74 65 64 0a sions committed.
9260: 09 09 20 20 20 20 23 20 6f 6e 20 74 68 65 6d 20 .. # on them
9270: 64 6f 20 6e 6f 74 20 73 68 6f 77 20 75 70 20 69 do not show up i
9280: 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 6f n the list of ro
9290: 6f 74 73 20 61 6b 61 0a 09 09 20 20 20 20 23 20 ots aka... #
92a0: 6c 69 6e 65 73 20 6f 66 20 64 65 76 65 6c 6f 70 lines of develop
92b0: 6d 65 6e 74 2e 0a 09 09 20 20 20 20 73 65 74 20 ment.... set
92c0: 72 65 76 20 5b 24 72 65 76 20 63 68 69 6c 64 5d rev [$rev child]
92d0: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 ...}.. }..
92e0: 20 72 65 74 75 72 6e 0a 09 7d 0a 0a 09 23 20 4e return..}...# N
92f0: 6f 20 4e 54 44 42 20 73 74 75 66 66 20 74 6f 20 o NTDB stuff to
9300: 64 65 61 6c 20 77 69 74 68 2e 20 46 69 72 73 74 deal with. First
9310: 20 64 65 6c 65 74 65 20 74 68 65 20 62 72 61 6e delete the bran
9320: 63 68 20 6f 62 6a 65 63 74 0a 09 23 20 69 74 73 ch object..# its
9330: 65 6c 66 2c 20 61 66 74 65 72 20 63 75 74 74 69 elf, after cutti
9340: 6e 67 20 61 6c 6c 20 74 68 65 20 76 61 72 69 6f ng all the vario
9350: 75 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a us connections..
9360: 0a 09 73 65 74 20 62 72 61 6e 63 68 20 5b 24 72 ..set branch [$r
9370: 6f 6f 74 20 70 61 72 65 6e 74 62 72 61 6e 63 68 oot parentbranch
9380: 5d 0a 09 69 66 20 7b 24 62 72 61 6e 63 68 20 6e ]..if {$branch n
9390: 65 20 22 22 7d 20 7b 0a 09 20 20 20 20 73 65 74 e ""} {.. set
93a0: 20 62 72 61 6e 63 68 70 61 72 65 6e 74 20 5b 24 branchparent [$
93b0: 62 72 61 6e 63 68 20 70 61 72 65 6e 74 5d 0a 09 branch parent]..
93c0: 20 20 20 20 24 62 72 61 6e 63 68 70 61 72 65 6e $branchparen
93d0: 74 20 72 65 6d 6f 76 65 62 72 61 6e 63 68 20 20 t removebranch
93e0: 20 20 20 20 20 20 24 62 72 61 6e 63 68 0a 09 20 $branch..
93f0: 20 20 20 24 62 72 61 6e 63 68 70 61 72 65 6e 74 $branchparent
9400: 20 72 65 6d 6f 76 65 63 68 69 6c 64 6f 6e 62 72 removechildonbr
9410: 61 6e 63 68 20 24 72 6f 6f 74 0a 09 7d 0a 0a 09 anch $root..}...
9420: 23 20 54 68 65 20 72 6f 6f 74 20 69 73 20 6e 6f # The root is no
9430: 20 73 75 63 68 20 61 6e 79 20 6c 6f 6e 67 65 72 such any longer
9440: 20 65 69 74 68 65 72 2e 0a 09 6c 64 65 6c 65 74 either...ldelet
9450: 65 20 6d 79 72 6f 6f 74 73 20 24 72 6f 6f 74 0a e myroots $root.
9460: 0a 09 23 20 4e 6f 77 20 67 6f 20 74 68 72 6f 75 ..# Now go throu
9470: 67 68 20 74 68 65 20 6c 69 6e 65 20 61 6e 64 20 gh the line and
9480: 72 65 6d 6f 76 65 20 61 6c 6c 20 69 74 73 20 72 remove all its r
9490: 65 76 69 73 69 6f 6e 73 2e 0a 0a 09 77 68 69 6c evisions....whil
94a0: 65 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d 20 e {$root ne ""}
94b0: 7b 0a 09 20 20 20 20 24 72 6f 6f 74 20 72 65 6d {.. $root rem
94c0: 6f 76 65 61 6c 6c 74 61 67 73 0a 09 20 20 20 20 ovealltags..
94d0: 24 72 6f 6f 74 20 72 65 6d 6f 76 65 61 6c 6c 62 $root removeallb
94e0: 72 61 6e 63 68 65 73 0a 09 20 20 20 20 23 20 4e ranches.. # N
94f0: 6f 74 65 3a 20 53 65 65 20 74 68 65 20 6e 6f 74 ote: See the not
9500: 65 20 5b 78 5d 2e 0a 0a 09 20 20 20 20 23 20 46 e [x].... # F
9510: 72 6f 6d 20 63 76 73 32 73 76 6e 3a 20 49 66 20 rom cvs2svn: If
9520: 74 68 69 73 20 69 73 20 74 68 65 20 6c 61 73 74 this is the last
9530: 20 64 65 66 61 75 6c 74 20 72 65 76 69 73 69 6f default revisio
9540: 6e 20 6f 6e 20 61 0a 09 20 20 20 20 23 20 6e 6f n on a.. # no
9550: 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 n-trunk default
9560: 62 72 61 6e 63 68 20 66 6f 6c 6c 6f 77 65 64 20 branch followed
9570: 62 79 20 61 20 31 2e 32 20 72 65 76 69 73 69 6f by a 1.2 revisio
9580: 6e 2c 0a 09 20 20 20 20 23 20 74 68 65 6e 20 74 n,.. # then t
9590: 68 65 20 31 2e 32 20 72 65 76 69 73 69 6f 6e 20 he 1.2 revision
95a0: 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 69 73 20 depends on this
95b0: 6f 6e 65 2e 20 20 46 49 58 4d 45 3a 20 49 74 20 one. FIXME: It
95c0: 69 73 0a 09 20 20 20 20 23 20 71 75 65 73 74 69 is.. # questi
95d0: 6f 6e 61 62 6c 65 20 77 68 65 74 68 65 72 20 74 onable whether t
95e0: 68 69 73 20 68 61 6e 64 6c 69 6e 67 20 69 73 20 his handling is
95f0: 63 6f 72 72 65 63 74 2c 20 73 69 6e 63 65 20 74 correct, since t
9600: 68 65 0a 09 20 20 20 20 23 20 6e 6f 6e 2d 74 72 he.. # non-tr
9610: 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e unk default bran
9620: 63 68 20 72 65 76 69 73 69 6f 6e 73 20 61 66 66 ch revisions aff
9630: 65 63 74 20 74 72 75 6e 6b 20 61 6e 64 0a 09 20 ect trunk and..
9640: 20 20 20 23 20 73 68 6f 75 6c 64 20 74 68 65 72 # should ther
9650: 65 66 6f 72 65 20 6e 6f 74 20 6a 75 73 74 20 62 efore not just b
9660: 65 20 64 69 73 63 61 72 64 65 64 20 65 76 65 6e e discarded even
9670: 20 69 66 0a 09 20 20 20 20 23 20 2d 2d 74 72 75 if.. # --tru
9680: 6e 6b 2d 6f 6e 6c 79 2e 0a 0a 09 20 20 20 20 69 nk-only.... i
9690: 66 20 7b 5b 24 72 6f 6f 74 20 68 61 73 64 65 66 f {[$root hasdef
96a0: 61 75 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 5d aultbranchchild]
96b0: 7d 20 7b 0a 09 09 73 65 74 20 6e 74 64 62 63 68 } {...set ntdbch
96c0: 69 6c 64 20 5b 24 72 6f 6f 74 20 64 65 66 61 75 ild [$root defau
96d0: 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 5d 0a 09 ltbranchchild]..
96e0: 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 .integrity asser
96f0: 74 20 7b 0a 09 09 20 20 20 20 5b 24 6e 74 64 62 t {... [$ntdb
9700: 63 68 69 6c 64 20 64 65 66 61 75 6c 74 62 72 61 child defaultbra
9710: 6e 63 68 70 61 72 65 6e 74 5d 20 65 71 20 24 6e nchparent] eq $n
9720: 74 64 62 63 68 69 6c 64 0a 09 09 7d 20 7b 6e 74 tdbchild...} {nt
9730: 64 62 20 2d 20 74 72 75 6e 6b 20 6c 69 6e 6b 61 db - trunk linka
9740: 67 65 20 62 72 6f 6b 65 6e 7d 0a 09 09 24 6e 74 ge broken}...$nt
9750: 64 62 63 68 69 6c 64 20 63 75 74 64 65 66 61 75 dbchild cutdefau
9760: 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 0a 09 ltbranchparent..
9770: 09 69 66 20 7b 5b 24 6e 74 64 62 63 68 69 6c 64 .if {[$ntdbchild
9780: 20 68 61 73 70 61 72 65 6e 74 5d 7d 20 7b 0a 09 hasparent]} {..
9790: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 72 . lappend myr
97a0: 6f 6f 74 73 20 5b 24 6e 74 64 62 63 68 69 6c 64 oots [$ntdbchild
97b0: 20 70 61 72 65 6e 74 5d 0a 09 09 7d 0a 09 20 20 parent]...}..
97c0: 20 20 7d 0a 0a 09 20 20 20 20 73 65 74 20 72 6f }... set ro
97d0: 6f 74 20 5b 24 72 6f 6f 74 20 63 68 69 6c 64 5d ot [$root child]
97e0: 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 20 20 ..}...return.
97f0: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 47 }.. method G
9800: 72 61 66 74 4e 54 44 42 32 54 72 75 6e 6b 20 7b raftNTDB2Trunk {
9810: 72 6f 6f 74 7d 20 7b 0a 09 23 20 57 65 20 63 61 root} {..# We ca
9820: 6e 20 6e 6f 77 20 67 72 61 66 74 20 74 68 65 20 n now graft the
9830: 6e 6f 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c non-trunk defaul
9840: 74 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 6f t branch revisio
9850: 6e 73 20 74 6f 0a 09 23 20 74 72 75 6e 6b 2e 20 ns to..# trunk.
9860: 54 68 65 79 20 73 68 6f 75 6c 64 20 61 6c 72 65 They should alre
9870: 61 64 79 20 62 65 20 61 6c 6f 6e 65 20 6f 6e 20 ady be alone on
9880: 61 20 43 56 53 42 72 61 6e 63 68 2d 6c 65 73 73 a CVSBranch-less
9890: 0a 09 23 20 62 72 61 6e 63 68 2e 0a 0a 09 69 6e ..# branch....in
98a0: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
98b0: 21 5b 24 72 6f 6f 74 20 68 61 73 70 61 72 65 6e ![$root hasparen
98c0: 74 62 72 61 6e 63 68 5d 7d 20 7b 4e 54 44 42 20 tbranch]} {NTDB
98d0: 72 6f 6f 74 20 73 74 69 6c 6c 20 68 61 73 20 69 root still has i
98e0: 74 73 20 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c ts branch symbol
98f0: 7d 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 }..integrity ass
9900: 65 72 74 20 7b 21 5b 24 72 6f 6f 74 20 68 61 73 ert {![$root has
9910: 62 72 61 6e 63 68 65 73 5d 7d 20 20 20 20 20 7b branches]} {
9920: 4e 54 44 42 20 72 6f 6f 74 20 73 74 69 6c 6c 20 NTDB root still
9930: 68 61 73 20 73 70 61 77 6e 65 64 20 62 72 61 6e has spawned bran
9940: 63 68 65 73 7d 0a 0a 09 73 65 74 20 6c 61 73 74 ches}...set last
9950: 20 24 72 6f 6f 74 0a 09 77 68 69 6c 65 20 7b 5b $root..while {[
9960: 24 6c 61 73 74 20 68 61 73 63 68 69 6c 64 5d 7d $last haschild]}
9970: 20 7b 73 65 74 20 6c 61 73 74 20 5b 24 6c 61 73 {set last [$las
9980: 74 20 63 68 69 6c 64 5d 7d 0a 0a 09 69 66 20 7b t child]}...if {
9990: 5b 24 6c 61 73 74 20 68 61 73 64 65 66 61 75 6c [$last hasdefaul
99a0: 74 62 72 61 6e 63 68 63 68 69 6c 64 5d 7d 20 7b tbranchchild]} {
99b0: 0a 0a 09 20 20 20 20 73 65 74 20 72 65 76 31 32 ... set rev12
99c0: 20 5b 24 6c 61 73 74 20 64 65 66 61 75 6c 74 62 [$last defaultb
99d0: 72 61 6e 63 68 63 68 69 6c 64 5d 0a 09 20 20 20 ranchchild]..
99e0: 20 24 72 65 76 31 32 20 63 75 74 64 65 66 61 75 $rev12 cutdefau
99f0: 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 0a 09 ltbranchparent..
9a00: 20 20 20 20 24 6c 61 73 74 20 20 63 75 74 64 65 $last cutde
9a10: 66 61 75 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 faultbranchchild
9a20: 0a 0a 09 20 20 20 20 24 72 65 76 31 32 20 63 68 ... $rev12 ch
9a30: 61 6e 67 65 70 61 72 65 6e 74 20 24 6c 61 73 74 angeparent $last
9a40: 0a 09 20 20 20 20 24 6c 61 73 74 20 20 63 68 61 .. $last cha
9a50: 6e 67 65 63 68 69 6c 64 20 24 72 65 76 31 32 0a ngechild $rev12.
9a60: 0a 09 20 20 20 20 6c 64 65 6c 65 74 65 20 6d 79 .. ldelete my
9a70: 72 6f 6f 74 73 20 24 72 65 76 31 32 0a 0a 09 20 roots $rev12...
9a80: 20 20 20 23 20 4e 6f 74 65 20 61 6e 64 20 72 65 # Note and re
9a90: 6d 65 6d 62 65 72 20 74 68 61 74 20 74 68 65 20 member that the
9aa0: 74 79 70 65 20 6f 66 20 72 65 76 31 32 20 77 61 type of rev12 wa
9ab0: 73 20 61 6c 72 65 61 64 79 0a 09 20 20 20 20 23 s already.. #
9ac0: 20 61 64 6a 75 73 74 65 64 20 62 79 20 41 64 6a adjusted by Adj
9ad0: 75 73 74 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 75 ustNonTrunkDefau
9ae0: 6c 74 42 72 61 6e 63 68 2c 20 73 6f 20 77 65 20 ltBranch, so we
9af0: 64 6f 6e 27 74 0a 09 20 20 20 20 23 20 68 61 76 don't.. # hav
9b00: 65 20 74 6f 20 63 68 61 6e 67 65 20 69 74 73 20 e to change its
9b10: 74 79 70 65 20 68 65 72 65 2e 0a 09 7d 0a 0a 09 type here...}...
9b20: 77 68 69 6c 65 20 7b 24 72 6f 6f 74 20 6e 65 20 while {$root ne
9b30: 22 22 7d 20 7b 0a 09 20 20 20 20 24 72 6f 6f 74 ""} {.. $root
9b40: 20 73 65 74 6f 6e 64 65 66 61 75 6c 74 62 72 61 setondefaultbra
9b50: 6e 63 68 20 30 0a 09 20 20 20 20 24 72 6f 6f 74 nch 0.. $root
9b60: 20 73 65 74 6c 6f 64 20 24 6d 79 74 72 75 6e 6b setlod $mytrunk
9b70: 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 74 61 .. foreach ta
9b80: 67 20 5b 24 72 6f 6f 74 20 74 61 67 73 5d 20 7b g [$root tags] {
9b90: 0a 09 09 24 74 61 67 20 73 65 74 6c 6f 64 20 24 ...$tag setlod $
9ba0: 6d 79 74 72 75 6e 6b 0a 09 20 20 20 20 7d 0a 09 mytrunk.. }..
9bb0: 20 20 20 20 73 65 74 20 72 6f 6f 74 20 5b 24 72 set root [$r
9bc0: 6f 6f 74 20 63 68 69 6c 64 5d 0a 09 7d 0a 0a 20 oot child]..}..
9bd0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a 20 20 return.
9be0: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
9bf0: 41 63 74 69 76 65 20 7b 7d 20 7b 0a 09 73 65 74 Active {} {..set
9c00: 20 72 65 76 69 73 69 6f 6e 73 20 7b 7d 0a 09 73 revisions {}..s
9c10: 65 74 20 73 79 6d 62 6f 6c 73 20 20 20 7b 7d 0a et symbols {}.
9c20: 0a 09 66 6f 72 65 61 63 68 20 72 6f 6f 74 20 5b ..foreach root [
9c30: 24 73 65 6c 66 20 4c 69 6e 65 73 4f 66 44 65 76 $self LinesOfDev
9c40: 65 6c 6f 70 6d 65 6e 74 5d 20 7b 0a 09 20 20 20 elopment] {..
9c50: 20 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 73 70 if {[$root hasp
9c60: 61 72 65 6e 74 62 72 61 6e 63 68 5d 7d 20 7b 20 arentbranch]} {
9c70: 6c 61 70 70 65 6e 64 20 73 79 6d 62 6f 6c 73 20 lappend symbols
9c80: 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 62 72 61 [$root parentbra
9c90: 6e 63 68 5d 20 7d 0a 09 20 20 20 20 77 68 69 6c nch] }.. whil
9ca0: 65 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d 20 e {$root ne ""}
9cb0: 7b 0a 09 09 6c 61 70 70 65 6e 64 20 72 65 76 69 {...lappend revi
9cc0: 73 69 6f 6e 73 20 24 72 6f 6f 74 0a 09 09 66 6f sions $root...fo
9cd0: 72 65 61 63 68 20 74 61 67 20 20 20 20 5b 24 72 reach tag [$r
9ce0: 6f 6f 74 20 74 61 67 73 5d 20 20 20 20 20 7b 20 oot tags] {
9cf0: 6c 61 70 70 65 6e 64 20 73 79 6d 62 6f 6c 73 20 lappend symbols
9d00: 24 74 61 67 20 20 20 20 7d 0a 09 09 66 6f 72 65 $tag }...fore
9d10: 61 63 68 20 62 72 61 6e 63 68 20 5b 24 72 6f 6f ach branch [$roo
9d20: 74 20 62 72 61 6e 63 68 65 73 5d 20 7b 0a 09 09 t branches] {...
9d30: 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 integrity as
9d40: 73 65 72 74 20 7b 0a 09 09 09 5b 24 62 72 61 6e sert {....[$bran
9d50: 63 68 20 70 61 72 65 6e 74 5d 20 65 71 20 24 72 ch parent] eq $r
9d60: 6f 6f 74 0a 09 09 20 20 20 20 7d 20 7b 42 61 63 oot... } {Bac
9d70: 6b 72 65 66 65 72 65 6e 63 65 20 62 72 61 6e 63 kreference branc
9d80: 68 20 74 6f 20 69 74 73 20 72 6f 6f 74 20 69 73 h to its root is
9d90: 20 6d 69 73 73 69 6e 67 20 6f 72 20 77 72 6f 6e missing or wron
9da0: 67 7d 0a 09 09 20 20 20 20 6c 61 70 70 65 6e 64 g}... lappend
9db0: 20 73 79 6d 62 6f 6c 73 20 24 62 72 61 6e 63 68 symbols $branch
9dc0: 0a 09 09 7d 0a 09 09 73 65 74 20 6c 6f 64 20 5b ...}...set lod [
9dd0: 24 72 6f 6f 74 20 6c 6f 64 5d 0a 09 09 69 66 20 $root lod]...if
9de0: 7b 21 5b 24 6c 6f 64 20 69 73 74 72 75 6e 6b 5d {![$lod istrunk]
9df0: 7d 20 7b 0a 09 09 20 20 20 20 69 6e 74 65 67 72 } {... integr
9e00: 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 09 09 ity assert {....
9e10: 5b 24 6c 6f 64 20 68 61 73 63 68 69 6c 64 5d 0a [$lod haschild].
9e20: 09 09 20 20 20 20 7d 20 7b 42 72 61 6e 63 68 20 .. } {Branch
9e30: 69 73 20 4c 4f 44 20 73 79 6d 62 6f 6c 20 77 69 is LOD symbol wi
9e40: 74 68 6f 75 74 20 72 65 76 69 73 69 6f 6e 73 7d thout revisions}
9e50: 0a 09 09 20 20 20 20 6c 61 70 70 65 6e 64 20 73 ... lappend s
9e60: 79 6d 62 6f 6c 73 20 24 6c 6f 64 0a 09 09 7d 0a ymbols $lod...}.
9e70: 09 09 73 65 74 20 72 6f 6f 74 20 5b 24 72 6f 6f ..set root [$roo
9e80: 74 20 63 68 69 6c 64 5d 0a 09 20 20 20 20 7d 0a t child].. }.
9e90: 09 7d 0a 0a 09 72 65 74 75 72 6e 20 5b 6c 69 73 .}...return [lis
9ea0: 74 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 75 65 t [lsort -unique
9eb0: 20 2d 64 69 63 74 20 24 72 65 76 69 73 69 6f 6e -dict $revision
9ec0: 73 5d 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 75 s] [lsort -uniqu
9ed0: 65 20 2d 64 69 63 74 20 24 73 79 6d 62 6f 6c 73 e -dict $symbols
9ee0: 5d 5d 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 6d ]]. }... m
9ef0: 65 74 68 6f 64 20 41 67 67 72 65 67 61 74 65 53 ethod AggregateS
9f00: 79 6d 62 6f 6c 44 61 74 61 20 7b 7d 20 7b 0a 09 ymbolData {} {..
9f10: 23 20 4e 6f 77 20 74 68 61 74 20 74 68 65 20 65 # Now that the e
9f20: 78 61 63 74 20 73 65 74 20 6f 66 20 72 65 76 69 xact set of revi
9f30: 73 69 6f 6e 73 20 28 61 6e 64 20 74 68 72 6f 75 sions (and throu
9f40: 67 68 20 74 68 61 74 0a 09 23 20 62 72 61 6e 63 gh that..# branc
9f50: 68 65 73 20 61 6e 64 20 74 61 67 73 29 20 69 73 hes and tags) is
9f60: 20 6b 6e 6f 77 6e 20 77 65 20 63 61 6e 20 75 70 known we can up
9f70: 64 61 74 65 20 74 68 65 20 61 67 67 72 65 67 61 date the aggrega
9f80: 74 65 0a 09 23 20 73 79 6d 62 6f 6c 20 73 74 61 te..# symbol sta
9f90: 74 69 73 74 69 63 73 2e 0a 0a 09 66 6f 72 65 61 tistics....forea
9fa0: 63 68 20 72 6f 6f 74 20 5b 24 73 65 6c 66 20 4c ch root [$self L
9fb0: 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 6e inesOfDevelopmen
9fc0: 74 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 6c 6f t] {.. set lo
9fd0: 64 20 5b 24 72 6f 6f 74 20 6c 6f 64 5d 0a 0a 09 d [$root lod]...
9fe0: 20 20 20 20 23 20 4e 6f 74 65 3a 20 49 66 20 74 # Note: If t
9ff0: 68 65 20 4c 4f 44 20 69 73 20 74 68 65 20 74 72 he LOD is the tr
a000: 75 6e 6b 20 74 68 65 20 63 6f 75 6e 74 2a 2c 20 unk the count*,
a010: 65 74 63 2e 20 6d 65 74 68 6f 64 73 0a 09 20 20 etc. methods..
a020: 20 20 23 20 77 69 6c 6c 20 64 6f 20 6e 6f 74 68 # will do noth
a030: 69 6e 67 2c 20 61 73 20 69 74 20 69 73 20 61 6c ing, as it is al
a040: 77 61 79 73 20 70 72 65 73 65 6e 74 20 28 63 61 ways present (ca
a050: 6e 6e 6f 74 20 62 65 0a 09 20 20 20 20 23 20 65 nnot be.. # e
a060: 78 63 6c 75 64 65 64 29 2c 20 61 6e 64 20 69 73 xcluded), and is
a070: 20 61 6c 77 61 79 73 20 61 20 62 72 61 6e 63 68 always a branch
a080: 20 74 6f 6f 2e 0a 0a 09 20 20 20 20 23 20 4c 69 too.... # Li
a090: 6e 65 73 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 nes of developme
a0a0: 6e 74 20 63 6f 75 6e 74 20 61 73 20 62 72 61 6e nt count as bran
a0b0: 63 68 65 73 20 61 6e 64 20 68 61 76 65 20 61 20 ches and have a
a0c0: 63 6f 6d 6d 69 74 0a 09 20 20 20 20 23 20 6f 6e commit.. # on
a0d0: 20 74 68 65 6d 20 28 72 6f 6f 74 29 2e 20 49 66 them (root). If
a0e0: 20 74 68 65 79 20 61 72 65 20 73 74 69 6c 6c 20 they are still
a0f0: 61 74 74 61 63 68 65 64 20 74 6f 20 61 20 74 72 attached to a tr
a100: 65 65 20 77 65 0a 09 20 20 20 20 23 20 68 61 76 ee we.. # hav
a110: 65 20 74 6f 20 63 6f 6d 70 75 74 65 20 61 6e 64 e to compute and
a120: 20 72 65 67 69 73 74 65 72 20 70 6f 73 73 69 62 register possib
a130: 6c 65 20 70 61 72 65 6e 74 73 2e 0a 0a 09 20 20 le parents....
a140: 20 20 24 6c 6f 64 20 63 6f 75 6e 74 61 73 62 72 $lod countasbr
a150: 61 6e 63 68 0a 09 20 20 20 20 24 6c 6f 64 20 63 anch.. $lod c
a160: 6f 75 6e 74 61 63 6f 6d 6d 69 74 0a 0a 09 20 20 ountacommit...
a170: 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 73 if {[$root has
a180: 70 61 72 65 6e 74 62 72 61 6e 63 68 5d 7d 20 7b parentbranch]} {
a190: 0a 09 09 23 20 4e 6f 74 65 20 6c 6f 64 20 3d 3d ...# Note lod ==
a1a0: 20 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 62 72 [$root parentbr
a1b0: 61 6e 63 68 5d 0a 09 09 24 6c 6f 64 20 70 6f 73 anch]...$lod pos
a1c0: 73 69 62 6c 65 70 61 72 65 6e 74 73 0a 09 20 20 sibleparents..
a1d0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 21 5b 24 6c } elseif {![$l
a1e0: 6f 64 20 69 73 74 72 75 6e 6b 5d 20 26 26 20 5b od istrunk] && [
a1f0: 24 72 6f 6f 74 20 69 73 6f 6e 64 65 66 61 75 6c $root isondefaul
a200: 74 62 72 61 6e 63 68 5d 7d 20 7b 0a 09 09 23 20 tbranch]} {...#
a210: 54 68 69 73 20 69 73 20 74 68 65 20 72 6f 6f 74 This is the root
a220: 20 72 65 76 69 73 69 6f 6e 20 6f 66 20 61 20 64 revision of a d
a230: 65 74 61 63 68 65 64 20 4e 54 44 42 2e 20 57 65 etached NTDB. We
a240: 0a 09 09 23 20 68 61 76 65 20 74 6f 20 6d 61 6e ...# have to man
a250: 75 61 6c 6c 79 20 73 65 74 20 74 68 65 20 6f 6e ually set the on
a260: 6c 79 20 70 6f 73 73 69 62 6c 65 20 70 61 72 65 ly possible pare
a270: 6e 74 20 66 6f 72 0a 09 09 23 20 74 68 69 73 20 nt for...# this
a280: 4c 4f 44 2c 20 74 68 65 20 74 72 75 6e 6b 20 69 LOD, the trunk i
a290: 74 73 65 6c 66 2e 0a 0a 09 09 5b 24 6c 6f 64 20 tself.....[$lod
a2a0: 73 79 6d 62 6f 6c 5d 20 70 6f 73 73 69 62 6c 65 symbol] possible
a2b0: 70 61 72 65 6e 74 20 24 6d 79 74 72 75 6e 6b 0a parent $mytrunk.
a2c0: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 20 46 . }... # F
a2d0: 6f 72 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 or the revisions
a2e0: 20 69 6e 20 74 68 65 20 6c 69 6e 65 20 77 65 20 in the line we
a2f0: 72 65 67 69 73 74 65 72 20 74 68 65 69 72 20 62 register their b
a300: 72 61 6e 63 68 65 73 0a 09 20 20 20 20 23 20 61 ranches.. # a
a310: 6e 64 20 74 61 67 73 20 61 73 20 62 6c 6f 63 6b nd tags as block
a320: 65 72 73 20 66 6f 72 20 74 68 65 20 6c 6f 64 2c ers for the lod,
a330: 20 61 6e 64 20 75 70 64 61 74 65 20 74 68 65 20 and update the
a340: 74 79 70 65 0a 09 20 20 20 20 23 20 63 6f 75 6e type.. # coun
a350: 74 65 72 73 20 61 73 20 77 65 6c 6c 2e 20 41 73 ters as well. As
a360: 20 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c 73 20 branch symbols
a370: 77 69 74 68 6f 75 74 20 63 6f 6d 6d 69 74 73 20 without commits
a380: 6f 6e 0a 09 20 20 20 20 23 20 74 68 65 6d 20 61 on.. # them a
a390: 72 65 20 6e 6f 74 20 6c 69 73 74 65 64 20 61 73 re not listed as
a3a0: 20 6c 69 6e 65 73 20 6f 66 20 64 65 76 65 6c 6f lines of develo
a3b0: 70 6d 65 6e 74 2c 20 77 65 20 68 61 76 65 20 74 pment, we have t
a3c0: 6f 0a 09 20 20 20 20 23 20 63 6f 75 6e 74 20 74 o.. # count t
a3d0: 68 65 6d 20 68 65 72 65 20 61 73 20 77 65 6c 6c hem here as well
a3e0: 2c 20 61 73 20 70 6c 61 69 6e 20 62 72 61 6e 63 , as plain branc
a3f0: 68 65 73 2e 20 41 74 20 6c 61 73 74 20 77 65 0a hes. At last we.
a400: 09 20 20 20 20 23 20 68 61 76 65 20 74 6f 20 63 . # have to c
a410: 6f 6d 70 75 74 65 20 61 6e 64 20 72 65 67 69 73 ompute and regis
a420: 74 65 72 20 74 68 65 20 70 6f 73 73 69 62 6c 65 ter the possible
a430: 20 70 61 72 65 6e 74 73 20 6f 66 20 74 68 65 0a parents of the.
a440: 09 20 20 20 20 23 20 74 61 67 73 2c 20 69 6e 20 . # tags, in
a450: 63 61 73 65 20 74 68 65 79 20 61 72 65 20 6c 61 case they are la
a460: 74 65 72 20 63 6f 6e 76 65 72 74 65 64 20 61 73 ter converted as
a470: 20 62 72 61 6e 63 68 65 73 2e 0a 0a 09 20 20 20 branches....
a480: 20 77 68 69 6c 65 20 7b 24 72 6f 6f 74 20 6e 65 while {$root ne
a490: 20 22 22 7d 20 7b 0a 09 09 66 6f 72 65 61 63 68 ""} {...foreach
a4a0: 20 62 72 61 6e 63 68 20 5b 24 72 6f 6f 74 20 62 branch [$root b
a4b0: 72 61 6e 63 68 65 73 5d 20 7b 0a 09 09 20 20 20 ranches] {...
a4c0: 20 24 6c 6f 64 20 62 6c 6f 63 6b 65 64 62 79 20 $lod blockedby
a4d0: 24 62 72 61 6e 63 68 0a 09 09 20 20 20 20 24 62 $branch... $b
a4e0: 72 61 6e 63 68 20 70 6f 73 73 69 62 6c 65 70 61 ranch possiblepa
a4f0: 72 65 6e 74 73 0a 09 09 20 20 20 20 69 66 20 7b rents... if {
a500: 5b 24 62 72 61 6e 63 68 20 68 61 73 63 68 69 6c [$branch haschil
a510: 64 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 d]} continue...
a520: 20 20 20 24 62 72 61 6e 63 68 20 63 6f 75 6e 74 $branch count
a530: 61 73 62 72 61 6e 63 68 0a 09 09 7d 0a 0a 09 09 asbranch...}....
a540: 66 6f 72 65 61 63 68 20 74 61 67 20 5b 24 72 6f foreach tag [$ro
a550: 6f 74 20 74 61 67 73 5d 20 7b 0a 09 09 20 20 20 ot tags] {...
a560: 20 24 6c 6f 64 20 62 6c 6f 63 6b 65 64 62 79 20 $lod blockedby
a570: 24 74 61 67 0a 09 09 20 20 20 20 24 74 61 67 20 $tag... $tag
a580: 70 6f 73 73 69 62 6c 65 70 61 72 65 6e 74 73 0a possibleparents.
a590: 09 09 20 20 20 20 24 74 61 67 20 63 6f 75 6e 74 .. $tag count
a5a0: 61 73 74 61 67 0a 09 09 7d 0a 0a 09 09 73 65 74 astag...}....set
a5b0: 20 72 6f 6f 74 20 5b 24 72 6f 6f 74 20 63 68 69 root [$root chi
a5c0: 6c 64 5d 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 ld].. }..}...
a5d0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
a5e0: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
a5f0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
a600: 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 #########. ##
a610: 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a Configuration..
a620: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 pragma -hast
a630: 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 20 3b ypeinfo no ;
a640: 20 23 20 6e 6f 20 74 79 70 65 20 69 6e 74 72 6f # no type intro
a650: 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 spection. pra
a660: 67 6d 61 20 2d 68 61 73 69 6e 66 6f 20 20 20 20 gma -hasinfo
a670: 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f no ; # no o
a680: 62 6a 65 63 74 20 69 6e 74 72 6f 73 70 65 63 74 bject introspect
a690: 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d ion. pragma -
a6a0: 68 61 73 74 79 70 65 6d 65 74 68 6f 64 73 20 6e hastypemethods n
a6b0: 6f 20 20 3b 20 23 20 74 79 70 65 20 69 73 20 6e o ; # type is n
a6c0: 6f 74 20 72 65 6c 65 76 61 6e 74 2e 0a 0a 20 20 ot relevant...
a6d0: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
a6e0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
a6f0: 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d #########.}..nam
a700: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 espace eval ::vc
a710: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
a720: 3a 3a 63 76 73 20 7b 0a 20 20 20 20 6e 61 6d 65 ::cvs {. name
a730: 73 70 61 63 65 20 65 78 70 6f 72 74 20 66 69 6c space export fil
a740: 65 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 e. namespace
a750: 65 76 61 6c 20 66 69 6c 65 20 7b 0a 09 23 20 49 eval file {..# I
a760: 6d 70 6f 72 74 20 6e 6f 74 20 72 65 71 75 69 72 mport not requir
a770: 65 64 2c 20 61 6c 72 65 61 64 79 20 61 20 63 68 ed, already a ch
a780: 69 6c 64 20 6e 61 6d 65 73 70 61 63 65 2e 0a 09 ild namespace...
a790: 23 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f # namespace impo
a7a0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
a7b0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 :import::cvs::fi
a7c0: 6c 65 3a 3a 72 65 76 0a 09 23 20 6e 61 6d 65 73 le::rev..# names
a7d0: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
a7e0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
a7f0: 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 73 79 6d ::cvs::file::sym
a800: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
a810: 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a rt ::vc::tools::
a820: 6d 69 73 63 3a 3a 2a 0a 09 6e 61 6d 65 73 70 61 misc::*..namespa
a830: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
a840: 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 tools::trouble..
a850: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
a860: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f ::vc::tools::lo
a870: 67 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 g..namespace imp
a880: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ort ::vc::fossil
a890: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 ::import::cvs::s
a8a0: 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 tate..namespace
a8b0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
a8c0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
a8d0: 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 6d ::integrity..nam
a8e0: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
a8f0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
a900: 72 74 3a 3a 63 76 73 3a 3a 67 74 63 6f 72 65 0a rt::cvs::gtcore.
a910: 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 }.}..# # ##
a920: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
a930: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
a940: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
a950: 23 23 23 23 23 23 0a 23 23 20 52 65 61 64 79 0a ######.## Ready.
a960: 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 .package provide
a970: 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 vc::fossil::imp
a980: 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 20 31 ort::cvs::file 1
a990: 2e 30 0a 72 65 74 75 72 6e 0a .0.return.