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 63 68 69 6c 64 $vendor cutchild
79b0: 0a 09 09 24 66 69 72 73 74 20 63 75 74 66 72 6f ...$first cutfro
79c0: 6d 70 61 72 65 6e 74 62 72 61 6e 63 68 0a 09 09 mparentbranch...
79d0: 6c 61 70 70 65 6e 64 20 6d 79 72 6f 6f 74 73 20 lappend myroots
79e0: 24 66 69 72 73 74 0a 09 20 20 20 20 7d 0a 0a 09 $first.. }...
79f0: 20 20 20 20 23 20 43 68 61 6e 67 65 20 74 68 65 # Change the
7a00: 20 74 79 70 65 20 6f 66 20 66 69 72 73 74 20 28 type of first (
7a10: 74 79 70 69 63 61 6c 6c 79 20 66 72 6f 6d 20 43 typically from C
7a20: 68 61 6e 67 65 20 74 6f 20 41 64 64 29 3a 0a 09 hange to Add):..
7a30: 20 20 20 20 24 66 69 72 73 74 20 72 65 74 79 70 $first retyp
7a40: 65 20 61 64 64 0a 0a 09 20 20 20 20 23 20 4d 6f e add... # Mo
7a50: 76 65 20 61 6e 79 20 74 61 67 73 20 61 6e 64 20 ve any tags and
7a60: 62 72 61 6e 63 68 65 73 20 66 72 6f 6d 20 74 68 branches from th
7a70: 65 20 6f 6c 64 20 74 6f 20 74 68 65 20 6e 65 77 e old to the new
7a80: 20 72 6f 6f 74 2e 0a 09 20 20 20 20 24 72 65 76 root... $rev
7a90: 31 31 20 6d 6f 76 65 73 79 6d 62 6f 6c 73 74 6f 11 movesymbolsto
7aa0: 20 24 66 69 72 73 74 0a 09 7d 0a 0a 09 23 20 4d $first..}...# M
7ab0: 61 72 6b 20 61 6c 6c 20 74 68 65 20 73 70 65 63 ark all the spec
7ac0: 69 61 6c 20 72 65 76 69 73 69 6f 6e 73 20 61 73 ial revisions as
7ad0: 20 73 75 63 68 0a 09 66 6f 72 65 61 63 68 20 72 such..foreach r
7ae0: 65 76 20 24 72 65 76 6c 69 73 74 20 7b 0a 09 20 ev $revlist {..
7af0: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 33 20 66 log write 3 f
7b00: 69 6c 65 20 22 52 65 76 69 73 69 6f 6e 20 6f 6e ile "Revision on
7b10: 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 3a default branch:
7b20: 20 5b 24 72 65 76 20 72 65 76 6e 72 5d 22 0a 09 [$rev revnr]"..
7b30: 20 20 20 20 24 72 65 76 20 73 65 74 6f 6e 64 65 $rev setonde
7b40: 66 61 75 6c 74 62 72 61 6e 63 68 20 31 0a 09 7d faultbranch 1..}
7b50: 0a 0a 09 69 66 20 7b 24 73 74 6f 70 20 6e 65 20 ...if {$stop ne
7b60: 22 22 7d 20 7b 0a 09 20 20 20 20 23 20 52 65 76 ""} {.. # Rev
7b70: 69 73 69 6f 6e 20 31 2e 32 20 6c 6f 67 69 63 61 ision 1.2 logica
7b80: 6c 6c 79 20 66 6f 6c 6c 6f 77 73 20 74 68 65 20 lly follows the
7b90: 69 6d 70 6f 72 74 65 64 20 72 65 76 69 73 69 6f imported revisio
7ba0: 6e 73 2c 0a 09 20 20 20 20 23 20 6e 6f 74 20 31 ns,.. # not 1
7bb0: 2e 31 2e 20 20 41 63 63 6f 72 64 69 6e 67 6c 79 .1. Accordingly
7bc0: 2c 20 63 6f 6e 6e 65 63 74 20 69 74 20 74 6f 20 , connect it to
7bd0: 74 68 65 20 6c 61 73 74 20 4e 54 44 42 52 20 61 the last NTDBR a
7be0: 6e 64 0a 09 20 20 20 20 23 20 70 6f 73 73 69 62 nd.. # possib
7bf0: 6c 79 20 63 68 61 6e 67 65 20 69 74 73 20 74 79 ly change its ty
7c00: 70 65 2e 0a 0a 09 20 20 20 20 73 65 74 20 6c 61 pe.... set la
7c10: 73 74 20 5b 6c 69 6e 64 65 78 20 24 72 65 76 6c st [lindex $revl
7c20: 69 73 74 20 65 6e 64 5d 0a 09 20 20 20 20 24 73 ist end].. $s
7c30: 74 6f 70 20 73 65 74 64 65 66 61 75 6c 74 62 72 top setdefaultbr
7c40: 61 6e 63 68 70 61 72 65 6e 74 20 24 6c 61 73 74 anchparent $last
7c50: 20 3b 20 23 20 52 65 74 79 70 65 73 20 74 68 65 ; # Retypes the
7c60: 20 72 65 76 69 73 69 6f 6e 20 74 6f 6f 2e 0a 09 revision too...
7c70: 20 20 20 20 24 6c 61 73 74 20 73 65 74 64 65 66 $last setdef
7c80: 61 75 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 20 aultbranchchild
7c90: 20 24 73 74 6f 70 0a 09 7d 0a 09 72 65 74 75 72 $stop..}..retur
7ca0: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 n. }.. met
7cb0: 68 6f 64 20 43 68 65 63 6b 4c 4f 44 73 20 7b 7d hod CheckLODs {}
7cc0: 20 7b 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 62 {..foreach {_ b
7cd0: 72 61 6e 63 68 7d 20 20 5b 61 72 72 61 79 20 67 ranch} [array g
7ce0: 65 74 20 6d 79 62 72 61 6e 63 68 65 73 5d 20 7b et mybranches] {
7cf0: 20 24 62 72 61 6e 63 68 20 63 68 65 63 6b 6c 6f $branch checklo
7d00: 64 20 7d 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 d }..foreach {_
7d10: 74 61 67 6c 69 73 74 7d 20 5b 61 72 72 61 79 20 taglist} [array
7d20: 67 65 74 20 6d 79 74 61 67 73 5d 20 7b 0a 09 20 get mytags] {..
7d30: 20 20 20 66 6f 72 65 61 63 68 20 74 61 67 20 24 foreach tag $
7d40: 74 61 67 6c 69 73 74 20 7b 20 24 74 61 67 20 63 taglist { $tag c
7d50: 68 65 63 6b 6c 6f 64 20 7d 0a 09 7d 0a 09 72 65 hecklod }..}..re
7d60: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
7d70: 6d 65 74 68 6f 64 20 52 65 6d 6f 76 65 49 72 72 method RemoveIrr
7d80: 65 6c 65 76 61 6e 74 44 65 6c 65 74 69 6f 6e 73 elevantDeletions
7d90: 20 7b 7d 20 7b 0a 09 23 20 46 72 6f 6d 20 63 76 {} {..# From cv
7da0: 73 32 73 76 6e 3a 20 49 66 20 61 20 66 69 6c 65 s2svn: If a file
7db0: 20 69 73 20 61 64 64 65 64 20 6f 6e 20 61 20 62 is added on a b
7dc0: 72 61 6e 63 68 2c 20 74 68 65 6e 20 61 20 74 72 ranch, then a tr
7dd0: 75 6e 6b 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 unk..# revision
7de0: 69 73 20 61 64 64 65 64 20 61 74 20 74 68 65 20 is added at the
7df0: 73 61 6d 65 20 74 69 6d 65 20 69 6e 20 74 68 65 same time in the
7e00: 20 27 44 65 61 64 27 20 73 74 61 74 65 2e 0a 09 'Dead' state...
7e10: 23 20 54 68 69 73 20 72 65 76 69 73 69 6f 6e 20 # This revision
7e20: 64 6f 65 73 6e 27 74 20 64 6f 20 61 6e 79 74 68 doesn't do anyth
7e30: 69 6e 67 20 75 73 65 66 75 6c 2c 20 73 6f 20 64 ing useful, so d
7e40: 65 6c 65 74 65 20 69 74 2e 0a 0a 09 66 6f 72 65 elete it....fore
7e50: 61 63 68 20 72 6f 6f 74 20 24 6d 79 72 6f 6f 74 ach root $myroot
7e60: 73 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 24 72 s {.. if {[$r
7e70: 6f 6f 74 20 69 73 6e 65 65 64 65 64 5d 7d 20 63 oot isneeded]} c
7e80: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 6c 6f 67 ontinue.. log
7e90: 20 77 72 69 74 65 20 32 20 66 69 6c 65 20 22 52 write 2 file "R
7ea0: 65 6d 6f 76 69 6e 67 20 75 6e 6e 65 63 65 73 73 emoving unnecess
7eb0: 61 72 79 20 64 65 61 64 20 72 65 76 69 73 69 6f ary dead revisio
7ec0: 6e 20 5b 24 72 6f 6f 74 20 72 65 76 6e 72 5d 22 n [$root revnr]"
7ed0: 0a 0a 09 20 20 20 20 23 20 52 65 6d 6f 76 65 20 ... # Remove
7ee0: 61 73 20 72 6f 6f 74 2c 20 6d 61 6b 65 20 69 74 as root, make it
7ef0: 73 20 63 68 69 6c 64 20 6e 65 77 20 72 6f 6f 74 s child new root
7f00: 20 61 66 74 65 72 0a 09 20 20 20 20 23 20 64 69 after.. # di
7f10: 73 63 6f 6e 6e 65 63 74 69 6e 67 20 69 74 20 66 sconnecting it f
7f20: 72 6f 6d 20 74 68 65 20 72 65 76 69 73 69 6f 6e rom the revision
7f30: 20 6a 75 73 74 20 67 6f 69 6e 67 20 61 77 61 79 just going away
7f40: 2e 0a 0a 09 20 20 20 20 6c 64 65 6c 65 74 65 20 .... ldelete
7f50: 6d 79 72 6f 6f 74 73 20 24 72 6f 6f 74 0a 09 20 myroots $root..
7f60: 20 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 if {[$root ha
7f70: 73 63 68 69 6c 64 5d 7d 20 7b 0a 09 09 73 65 74 schild]} {...set
7f80: 20 63 68 69 6c 64 20 5b 24 72 6f 6f 74 20 63 68 child [$root ch
7f90: 69 6c 64 5d 0a 09 09 24 63 68 69 6c 64 20 63 75 ild]...$child cu
7fa0: 74 66 72 6f 6d 70 61 72 65 6e 74 0a 09 09 6c 61 tfromparent...la
7fb0: 70 70 65 6e 64 20 6d 79 72 6f 6f 74 73 20 24 63 ppend myroots $c
7fc0: 68 69 6c 64 0a 09 20 20 20 20 7d 0a 0a 09 20 20 hild.. }...
7fd0: 20 20 23 20 43 75 74 20 6f 75 74 20 74 68 65 20 # Cut out the
7fe0: 62 72 61 6e 63 68 65 73 20 73 70 61 77 6e 65 64 branches spawned
7ff0: 20 62 79 20 74 68 65 20 72 65 76 69 73 69 6f 6e by the revision
8000: 20 74 6f 20 62 65 0a 09 20 20 20 20 23 20 64 65 to be.. # de
8010: 6c 65 74 65 64 2e 20 49 66 20 74 68 65 20 62 72 leted. If the br
8020: 61 6e 63 68 20 68 61 73 20 72 65 76 69 73 69 6f anch has revisio
8030: 6e 73 20 74 68 65 79 20 73 68 6f 75 6c 64 20 61 ns they should a
8040: 6c 72 65 61 64 79 0a 09 20 20 20 20 23 20 75 73 lready.. # us
8050: 65 20 6f 70 65 72 61 74 69 6f 6e 20 27 61 64 64 e operation 'add
8060: 27 2c 20 6e 6f 20 6e 65 65 64 20 74 6f 20 63 68 ', no need to ch
8070: 61 6e 67 65 20 74 68 61 74 2e 20 54 68 65 20 66 ange that. The f
8080: 69 72 73 74 0a 09 20 20 20 20 23 20 72 65 76 69 irst.. # revi
8090: 73 69 6f 6e 20 6f 6e 20 65 61 63 68 20 62 72 61 sion on each bra
80a0: 6e 63 68 20 62 65 63 6f 6d 65 73 20 61 20 6e 65 nch becomes a ne
80b0: 77 20 61 6e 64 20 64 69 73 63 6f 6e 6e 65 63 74 w and disconnect
80c0: 65 64 0a 09 20 20 20 20 23 20 72 6f 6f 74 2e 0a ed.. # root..
80d0: 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 62 72 .. foreach br
80e0: 61 6e 63 68 20 5b 24 72 6f 6f 74 20 62 72 61 6e anch [$root bran
80f0: 63 68 65 73 5d 20 7b 0a 09 09 24 62 72 61 6e 63 ches] {...$branc
8100: 68 20 63 75 74 62 72 61 6e 63 68 70 61 72 65 6e h cutbranchparen
8110: 74 0a 09 09 69 66 20 7b 21 5b 24 62 72 61 6e 63 t...if {![$branc
8120: 68 20 68 61 73 63 68 69 6c 64 5d 7d 20 63 6f 6e h haschild]} con
8130: 74 69 6e 75 65 0a 09 09 73 65 74 20 66 69 72 73 tinue...set firs
8140: 74 20 5b 24 62 72 61 6e 63 68 20 63 68 69 6c 64 t [$branch child
8150: 5d 0a 09 09 24 66 69 72 73 74 20 63 75 74 66 72 ]...$first cutfr
8160: 6f 6d 70 61 72 65 6e 74 0a 09 09 6c 61 70 70 65 omparent...lappe
8170: 6e 64 20 6d 79 72 6f 6f 74 73 20 24 66 69 72 73 nd myroots $firs
8180: 74 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 24 72 t.. }.. $r
8190: 6f 6f 74 20 72 65 6d 6f 76 65 61 6c 6c 62 72 61 oot removeallbra
81a0: 6e 63 68 65 73 0a 0a 09 20 20 20 20 23 20 54 61 nches... # Ta
81b0: 67 67 69 6e 67 20 61 20 64 65 61 64 20 72 65 76 gging a dead rev
81c0: 69 73 69 6f 6e 20 64 6f 65 73 6e 27 74 20 64 6f ision doesn't do
81d0: 20 61 6e 79 74 68 69 6e 67 2c 20 73 6f 20 72 65 anything, so re
81e0: 6d 6f 76 65 0a 09 20 20 20 20 23 20 61 6e 79 20 move.. # any
81f0: 74 61 67 73 20 74 68 61 74 20 77 65 72 65 20 73 tags that were s
8200: 65 74 20 6f 6e 20 69 74 2e 0a 0a 09 20 20 20 20 et on it....
8210: 24 72 6f 6f 74 20 72 65 6d 6f 76 65 61 6c 6c 74 $root removeallt
8220: 61 67 73 0a 0a 09 20 20 20 20 23 20 54 68 69 73 ags... # This
8230: 20 63 61 6e 20 6f 6e 6c 79 20 68 61 70 70 65 6e can only happen
8240: 20 6f 6e 63 65 20 70 65 72 20 66 69 6c 65 2c 20 once per file,
8250: 61 6e 64 20 77 65 20 6d 69 67 68 74 20 68 61 76 and we might hav
8260: 65 0a 09 20 20 20 20 23 20 6a 75 73 74 20 63 68 e.. # just ch
8270: 61 6e 67 65 64 20 6d 79 72 6f 6f 74 73 2c 20 73 anged myroots, s
8280: 6f 20 65 6e 64 20 74 68 65 20 6c 6f 6f 70 0a 09 o end the loop..
8290: 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a 09 72 65 break..}..re
82a0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
82b0: 6d 65 74 68 6f 64 20 52 65 6d 6f 76 65 49 6e 69 method RemoveIni
82c0: 74 69 61 6c 42 72 61 6e 63 68 44 65 6c 65 74 69 tialBranchDeleti
82d0: 6f 6e 73 20 7b 7d 20 7b 0a 09 23 20 46 72 6f 6d ons {} {..# From
82e0: 20 63 76 73 32 73 76 6e 3a 20 49 66 20 74 68 65 cvs2svn: If the
82f0: 20 66 69 72 73 74 20 72 65 76 69 73 69 6f 6e 20 first revision
8300: 6f 6e 20 61 20 62 72 61 6e 63 68 20 69 73 20 61 on a branch is a
8310: 6e 0a 09 23 20 75 6e 6e 65 63 65 73 73 61 72 79 n..# unnecessary
8320: 20 64 65 6c 65 74 65 2c 20 72 65 6d 6f 76 65 20 delete, remove
8330: 69 74 2e 0a 09 23 0a 09 23 20 49 66 20 61 20 66 it...#..# If a f
8340: 69 6c 65 20 69 73 20 61 64 64 65 64 20 6f 6e 20 ile is added on
8350: 61 20 62 72 61 6e 63 68 20 28 77 68 65 74 68 65 a branch (whethe
8360: 72 20 6f 72 20 6e 6f 74 20 69 74 20 61 6c 72 65 r or not it alre
8370: 61 64 79 0a 09 23 20 65 78 69 73 74 65 64 20 6f ady..# existed o
8380: 6e 20 74 72 75 6e 6b 29 2c 20 74 68 65 6e 20 6e n trunk), then n
8390: 65 77 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 43 ew versions of C
83a0: 56 53 20 61 64 64 20 61 20 66 69 72 73 74 0a 09 VS add a first..
83b0: 23 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 6f # branch revisio
83c0: 6e 20 69 6e 20 74 68 65 20 27 64 65 61 64 27 20 n in the 'dead'
83d0: 73 74 61 74 65 20 28 74 6f 20 69 6e 64 69 63 61 state (to indica
83e0: 74 65 20 74 68 61 74 20 74 68 65 0a 09 23 20 66 te that the..# f
83f0: 69 6c 65 20 64 69 64 20 6e 6f 74 20 65 78 69 73 ile did not exis
8400: 74 20 6f 6e 20 74 68 65 20 62 72 61 6e 63 68 20 t on the branch
8410: 77 68 65 6e 20 74 68 65 20 62 72 61 6e 63 68 20 when the branch
8420: 77 61 73 0a 09 23 20 63 72 65 61 74 65 64 29 20 was..# created)
8430: 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 followed by the
8440: 73 65 63 6f 6e 64 20 62 72 61 6e 63 68 20 72 65 second branch re
8450: 76 69 73 69 6f 6e 2c 20 77 68 69 63 68 20 69 73 vision, which is
8460: 20 61 6e 0a 09 23 20 61 64 64 2e 20 20 57 68 65 an..# add. Whe
8470: 6e 20 77 65 20 65 6e 63 6f 75 6e 74 65 72 20 74 n we encounter t
8480: 68 69 73 20 73 69 74 75 61 74 69 6f 6e 2c 20 77 his situation, w
8490: 65 20 73 65 76 65 72 20 74 68 65 20 62 72 61 6e e sever the bran
84a0: 63 68 0a 09 23 20 66 72 6f 6d 20 74 72 75 6e 6b ch..# from trunk
84b0: 20 61 6e 64 20 64 65 6c 65 74 65 20 74 68 65 20 and delete the
84c0: 66 69 72 73 74 20 62 72 61 6e 63 68 20 72 65 76 first branch rev
84d0: 69 73 69 6f 6e 2e 0a 0a 09 23 20 41 74 20 74 68 ision....# At th
84e0: 69 73 20 70 6f 69 6e 74 20 77 65 20 6d 61 79 20 is point we may
84f0: 68 61 76 65 20 61 6c 72 65 61 64 79 20 6d 75 6c have already mul
8500: 74 69 70 6c 65 20 72 6f 6f 74 73 20 69 6e 20 6d tiple roots in m
8510: 79 72 6f 6f 74 73 2c 0a 09 23 20 77 65 20 68 61 yroots,..# we ha
8520: 76 65 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 ve to process th
8530: 65 6d 20 61 6c 6c 2e 0a 0a 09 66 6f 72 65 61 63 em all....foreac
8540: 68 20 72 6f 6f 74 20 5b 24 73 65 6c 66 20 4c 69 h root [$self Li
8550: 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 6e 74 nesOfDevelopment
8560: 5d 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 24 72 ] {.. if {[$r
8570: 6f 6f 74 20 69 73 6e 65 65 64 65 64 62 72 61 6e oot isneededbran
8580: 63 68 64 65 6c 5d 7d 20 63 6f 6e 74 69 6e 75 65 chdel]} continue
8590: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
85a0: 32 20 66 69 6c 65 20 22 52 65 6d 6f 76 69 6e 67 2 file "Removing
85b0: 20 75 6e 6e 65 63 65 73 73 61 72 79 20 69 6e 69 unnecessary ini
85c0: 74 69 61 6c 20 62 72 61 6e 63 68 20 64 65 6c 65 tial branch dele
85d0: 74 65 20 5b 24 72 6f 6f 74 20 72 65 76 6e 72 5d te [$root revnr]
85e0: 22 0a 0a 09 20 20 20 20 73 65 74 20 62 72 61 6e "... set bran
85f0: 63 68 20 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 ch [$root parent
8600: 62 72 61 6e 63 68 5d 0a 09 20 20 20 20 73 65 74 branch].. set
8610: 20 70 61 72 65 6e 74 20 5b 24 72 6f 6f 74 20 70 parent [$root p
8620: 61 72 65 6e 74 5d 0a 09 20 20 20 20 73 65 74 20 arent].. set
8630: 63 68 69 6c 64 20 20 5b 24 72 6f 6f 74 20 63 68 child [$root ch
8640: 69 6c 64 5d 0a 0a 09 20 20 20 20 6c 64 65 6c 65 ild]... ldele
8650: 74 65 20 6d 79 72 6f 6f 74 73 20 24 72 6f 6f 74 te myroots $root
8660: 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 .. lappend my
8670: 72 6f 6f 74 73 20 24 63 68 69 6c 64 0a 0a 09 20 roots $child...
8680: 20 20 20 24 62 72 61 6e 63 68 20 63 75 74 62 72 $branch cutbr
8690: 61 6e 63 68 70 61 72 65 6e 74 0a 09 20 20 20 20 anchparent..
86a0: 24 62 72 61 6e 63 68 20 63 75 74 63 68 69 6c 64 $branch cutchild
86b0: 0a 09 20 20 20 20 24 63 68 69 6c 64 20 20 63 75 .. $child cu
86c0: 74 66 72 6f 6d 70 61 72 65 6e 74 0a 0a 09 20 20 tfromparent...
86d0: 20 20 24 62 72 61 6e 63 68 20 73 65 74 63 68 69 $branch setchi
86e0: 6c 64 20 20 20 20 20 20 20 20 24 63 68 69 6c 64 ld $child
86f0: 0a 09 20 20 20 20 24 63 68 69 6c 64 20 20 73 65 .. $child se
8700: 74 70 61 72 65 6e 74 62 72 61 6e 63 68 20 24 62 tparentbranch $b
8710: 72 61 6e 63 68 0a 0a 09 20 20 20 20 24 70 61 72 ranch... $par
8720: 65 6e 74 20 72 65 6d 6f 76 65 62 72 61 6e 63 68 ent removebranch
8730: 20 20 20 20 20 20 20 20 24 62 72 61 6e 63 68 0a $branch.
8740: 09 20 20 20 20 24 70 61 72 65 6e 74 20 72 65 6d . $parent rem
8750: 6f 76 65 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 ovechildonbranch
8760: 20 24 72 6f 6f 74 0a 09 7d 0a 09 72 65 74 75 72 $root..}..retur
8770: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 n. }.. met
8780: 68 6f 64 20 4c 69 6e 65 73 4f 66 44 65 76 65 6c hod LinesOfDevel
8790: 6f 70 6d 65 6e 74 20 7b 7d 20 7b 0a 09 23 20 44 opment {} {..# D
87a0: 65 74 65 72 6d 69 6e 65 20 61 6c 6c 20 6c 69 6e etermine all lin
87b0: 65 73 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e es of developmen
87c0: 74 20 66 6f 72 20 74 68 65 20 66 69 6c 65 2e 20 t for the file.
87d0: 54 68 69 73 20 61 72 65 0a 09 23 20 74 68 65 20 This are..# the
87e0: 6b 6e 6f 77 6e 20 72 6f 6f 74 73 2c 20 61 6e 64 known roots, and
87f0: 20 74 68 65 20 72 6f 6f 74 20 6f 66 20 61 6c 6c the root of all
8800: 20 62 72 61 6e 63 68 65 73 20 66 6f 75 6e 64 20 branches found
8810: 6f 6e 20 74 68 65 0a 09 23 20 6c 69 6e 65 20 6f on the..# line o
8820: 66 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 72 f primary childr
8830: 65 6e 2e 0a 0a 09 73 65 74 20 6c 6f 64 72 6f 6f en....set lodroo
8840: 74 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 72 ts {}..foreach r
8850: 6f 6f 74 20 24 6d 79 72 6f 6f 74 73 20 7b 0a 09 oot $myroots {..
8860: 20 20 20 20 24 73 65 6c 66 20 41 64 64 42 72 61 $self AddBra
8870: 6e 63 68 65 64 4c 69 6e 65 73 4f 66 44 65 76 65 nchedLinesOfDeve
8880: 6c 6f 70 6d 65 6e 74 20 6c 6f 64 72 6f 6f 74 73 lopment lodroots
8890: 20 24 72 6f 6f 74 0a 09 20 20 20 20 6c 61 70 70 $root.. lapp
88a0: 65 6e 64 20 6c 6f 64 72 6f 6f 74 73 20 24 72 6f end lodroots $ro
88b0: 6f 74 0a 09 7d 0a 09 72 65 74 75 72 6e 20 24 6c ot..}..return $l
88c0: 6f 64 72 6f 6f 74 73 0a 20 20 20 20 7d 0a 0a 20 odroots. }..
88d0: 20 20 20 6d 65 74 68 6f 64 20 41 64 64 42 72 61 method AddBra
88e0: 6e 63 68 65 64 4c 69 6e 65 73 4f 66 44 65 76 65 nchedLinesOfDeve
88f0: 6c 6f 70 6d 65 6e 74 20 7b 6c 76 20 72 6f 6f 74 lopment {lv root
8900: 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 6c 76 } {..upvar 1 $lv
8910: 20 6c 6f 64 72 6f 6f 74 73 0a 09 77 68 69 6c 65 lodroots..while
8920: 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d 20 7b {$root ne ""} {
8930: 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 62 72 .. foreach br
8940: 61 6e 63 68 20 5b 24 72 6f 6f 74 20 62 72 61 6e anch [$root bran
8950: 63 68 65 73 5d 20 7b 0a 09 09 69 66 20 7b 21 5b ches] {...if {![
8960: 24 62 72 61 6e 63 68 20 68 61 73 63 68 69 6c 64 $branch haschild
8970: 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 73 65 ]} continue...se
8980: 74 20 63 68 69 6c 64 20 5b 24 62 72 61 6e 63 68 t child [$branch
8990: 20 63 68 69 6c 64 5d 0a 09 09 23 20 52 65 63 75 child]...# Recu
89a0: 72 73 65 20 69 6e 74 6f 20 74 68 65 20 62 72 61 rse into the bra
89b0: 6e 63 68 20 66 6f 72 20 64 65 65 70 65 72 20 62 nch for deeper b
89c0: 72 61 6e 63 68 65 73 2e 0a 09 09 24 73 65 6c 66 ranches....$self
89d0: 20 41 64 64 42 72 61 6e 63 68 65 64 4c 69 6e 65 AddBranchedLine
89e0: 73 4f 66 44 65 76 65 6c 6f 70 6d 65 6e 74 20 6c sOfDevelopment l
89f0: 6f 64 72 6f 6f 74 73 20 24 63 68 69 6c 64 0a 09 odroots $child..
8a00: 09 6c 61 70 70 65 6e 64 20 6c 6f 64 72 6f 6f 74 .lappend lodroot
8a10: 73 20 24 63 68 69 6c 64 0a 09 20 20 20 20 7d 0a s $child.. }.
8a20: 09 20 20 20 20 73 65 74 20 72 6f 6f 74 20 5b 24 . set root [$
8a30: 72 6f 6f 74 20 63 68 69 6c 64 5d 0a 09 7d 0a 09 root child]..}..
8a40: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
8a50: 20 20 6d 65 74 68 6f 64 20 45 78 63 6c 75 64 65 method Exclude
8a60: 4e 6f 6e 54 72 75 6e 6b 49 6e 66 6f 72 6d 61 74 NonTrunkInformat
8a70: 69 6f 6e 20 7b 7d 20 7b 0a 09 23 20 52 65 6d 6f ion {} {..# Remo
8a80: 76 65 20 61 6c 6c 20 6e 6f 6e 2d 74 72 75 6e 6b ve all non-trunk
8a90: 20 62 72 61 6e 63 68 65 73 2c 20 72 65 76 69 73 branches, revis
8aa0: 69 6f 6e 73 2c 20 61 6e 64 20 74 61 67 73 2e 20 ions, and tags.
8ab0: 57 65 20 64 6f 0a 09 23 20 6b 65 65 70 20 74 68 We do..# keep th
8ac0: 65 20 74 61 67 73 20 77 68 69 63 68 20 61 72 65 e tags which are
8ad0: 20 6f 6e 20 74 68 65 20 74 72 75 6e 6b 2e 0a 0a on the trunk...
8ae0: 09 73 65 74 20 6e 74 64 62 72 6f 6f 74 20 22 22 .set ntdbroot ""
8af0: 0a 09 66 6f 72 65 61 63 68 20 72 6f 6f 74 20 5b ..foreach root [
8b00: 24 73 65 6c 66 20 4c 69 6e 65 73 4f 66 44 65 76 $self LinesOfDev
8b10: 65 6c 6f 70 6d 65 6e 74 5d 20 7b 0a 09 20 20 20 elopment] {..
8b20: 20 23 20 4e 6f 74 65 3a 20 48 65 72 65 20 74 68 # Note: Here th
8b30: 65 20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 72 e order of the r
8b40: 6f 6f 74 73 20 69 73 20 69 6d 70 6f 72 74 61 6e oots is importan
8b50: 74 2c 0a 09 20 20 20 20 23 20 69 2e 65 2e 20 74 t,.. # i.e. t
8b60: 68 61 74 20 77 65 20 67 65 74 20 74 68 65 6d 20 hat we get them
8b70: 69 6e 20 64 65 70 74 68 20 66 69 72 73 74 20 6f in depth first o
8b80: 72 64 65 72 2e 20 54 68 69 73 20 65 6e 73 75 72 rder. This ensur
8b90: 65 73 0a 09 20 20 20 20 23 20 74 68 61 74 20 74 es.. # that t
8ba0: 68 65 20 72 65 6d 6f 76 61 6c 20 6f 66 20 61 20 he removal of a
8bb0: 62 72 61 6e 63 68 20 68 61 70 70 65 6e 73 20 6f branch happens o
8bc0: 6e 6c 79 20 61 66 74 65 72 20 74 68 65 0a 09 20 nly after the..
8bd0: 20 20 20 23 20 62 72 61 6e 63 68 65 73 20 73 70 # branches sp
8be0: 61 77 6e 65 64 20 66 72 6f 6d 20 69 74 20 77 65 awned from it we
8bf0: 72 65 20 72 65 6d 6f 76 65 64 2e 20 4f 74 68 65 re removed. Othe
8c00: 72 77 69 73 65 20 74 68 65 0a 09 20 20 20 20 23 rwise the.. #
8c10: 20 73 79 73 74 65 6d 20 6d 69 67 68 74 20 74 72 system might tr
8c20: 79 20 74 6f 20 61 63 63 65 73 73 20 64 65 6c 65 y to access dele
8c30: 74 65 64 20 6f 62 6a 65 63 74 73 2e 0a 0a 09 20 ted objects....
8c40: 20 20 20 23 20 44 6f 20 6e 6f 74 20 65 78 63 6c # Do not excl
8c50: 75 64 65 20 74 68 65 20 74 72 75 6e 6b 2e 0a 09 ude the trunk...
8c60: 20 20 20 20 69 66 20 7b 5b 5b 24 72 6f 6f 74 20 if {[[$root
8c70: 6c 6f 64 5d 20 69 73 74 72 75 6e 6b 5d 7d 20 63 lod] istrunk]} c
8c80: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 24 73 65 ontinue.. $se
8c90: 6c 66 20 45 78 63 6c 75 64 65 42 72 61 6e 63 68 lf ExcludeBranch
8ca0: 20 24 72 6f 6f 74 20 6e 74 64 62 72 6f 6f 74 0a $root ntdbroot.
8cb0: 09 7d 0a 0a 09 69 66 20 7b 24 6e 74 64 62 72 6f .}...if {$ntdbro
8cc0: 6f 74 20 6e 65 20 22 22 7d 20 7b 0a 09 20 20 20 ot ne ""} {..
8cd0: 20 24 73 65 6c 66 20 47 72 61 66 74 4e 54 44 42 $self GraftNTDB
8ce0: 32 54 72 75 6e 6b 20 24 6e 74 64 62 72 6f 6f 74 2Trunk $ntdbroot
8cf0: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
8d00: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 45 78 }.. method Ex
8d10: 63 6c 75 64 65 42 72 61 6e 63 68 20 7b 72 6f 6f cludeBranch {roo
8d20: 74 20 6e 76 7d 20 7b 0a 09 23 20 45 78 63 6c 75 t nv} {..# Exclu
8d30: 64 65 20 74 68 65 20 62 72 61 6e 63 68 2f 6c 6f de the branch/lo
8d40: 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 72 6f d starting at ro
8d50: 6f 74 2c 20 61 20 72 65 76 69 73 69 6f 6e 2e 0a ot, a revision..
8d60: 09 23 0a 09 23 20 49 66 20 74 68 65 20 4c 4f 44 .#..# If the LOD
8d70: 20 73 74 61 72 74 73 20 77 69 74 68 20 6e 6f 6e starts with non
8d80: 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 -trunk default b
8d90: 72 61 6e 63 68 20 72 65 76 69 73 69 6f 6e 73 2c ranch revisions,
8da0: 0a 09 23 20 77 65 20 6c 65 61 76 65 20 74 68 65 ..# we leave the
8db0: 6d 20 69 6e 20 70 6c 61 63 65 20 61 6e 64 20 64 m in place and d
8dc0: 6f 20 6e 6f 74 20 64 65 6c 65 74 65 20 74 68 65 o not delete the
8dd0: 20 62 72 61 6e 63 68 2e 20 49 6e 20 74 68 61 74 branch. In that
8de0: 0a 09 23 20 63 61 73 65 20 74 68 65 20 63 6f 6d ..# case the com
8df0: 6d 61 6e 64 20 73 65 74 73 20 74 68 65 20 76 61 mand sets the va
8e00: 72 69 61 62 6c 65 20 69 6e 20 4e 56 20 73 6f 20 riable in NV so
8e10: 74 68 61 74 20 77 65 20 63 61 6e 0a 09 23 20 6c that we can..# l
8e20: 61 74 65 72 20 72 65 77 6f 72 6b 20 74 68 65 73 ater rework thes
8e30: 65 20 72 65 76 69 73 6f 6e 73 20 74 6f 20 62 65 e revisons to be
8e40: 20 70 75 72 65 6c 79 20 74 72 75 6e 6b 2e 0a 0a purely trunk...
8e50: 09 69 66 20 7b 5b 24 72 6f 6f 74 20 69 73 6f 6e .if {[$root ison
8e60: 64 65 66 61 75 6c 74 62 72 61 6e 63 68 5d 7d 20 defaultbranch]}
8e70: 7b 0a 09 20 20 20 20 23 20 48 61 6e 64 6c 69 6e {.. # Handlin
8e80: 67 20 61 20 4e 54 44 42 2e 20 54 68 69 73 20 62 g a NTDB. This b
8e90: 72 61 6e 63 68 20 6d 61 79 20 63 6f 6e 73 69 73 ranch may consis
8ea0: 74 73 20 6e 6f 74 20 6f 6e 6c 79 20 6f 66 0a 09 ts not only of..
8eb0: 20 20 20 20 23 20 4e 54 44 42 20 72 65 76 69 73 # NTDB revis
8ec0: 69 6f 6e 73 2c 20 62 75 74 20 61 6c 73 6f 20 73 ions, but also s
8ed0: 6f 6d 65 20 6e 6f 6e 2d 4e 54 44 42 2e 20 54 68 ome non-NTDB. Th
8ee0: 65 20 6c 61 74 74 65 72 20 61 72 65 0a 09 20 20 e latter are..
8ef0: 20 20 23 20 74 72 75 6c 79 20 6f 6e 20 61 20 62 # truly on a b
8f00: 72 61 6e 63 68 20 61 6e 64 20 68 61 76 65 20 74 ranch and have t
8f10: 6f 20 62 65 20 65 78 63 6c 75 64 65 64 2e 20 54 o be excluded. T
8f20: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 09 20 20 he following..
8f30: 20 20 23 20 6c 6f 6f 70 20 64 65 74 65 72 6d 69 # loop determi
8f40: 6e 65 73 20 69 66 20 74 68 65 72 65 20 61 72 65 nes if there are
8f50: 20 73 75 63 68 20 72 65 76 69 73 69 6f 6e 73 2e such revisions.
8f60: 0a 0a 09 20 20 20 20 75 70 76 61 72 20 31 20 24 ... upvar 1 $
8f70: 6e 76 20 6e 74 64 62 72 6f 6f 74 0a 09 20 20 20 nv ntdbroot..
8f80: 20 73 65 74 20 6e 74 64 62 72 6f 6f 74 20 24 72 set ntdbroot $r
8f90: 6f 6f 74 0a 09 20 20 20 20 24 72 6f 6f 74 20 63 oot.. $root c
8fa0: 75 74 66 72 6f 6d 70 61 72 65 6e 74 62 72 61 6e utfromparentbran
8fb0: 63 68 0a 0a 09 20 20 20 20 73 65 74 20 72 65 76 ch... set rev
8fc0: 20 24 72 6f 6f 74 0a 09 20 20 20 20 77 68 69 6c $root.. whil
8fd0: 65 20 7b 24 72 65 76 20 6e 65 20 22 22 7d 20 7b e {$rev ne ""} {
8fe0: 0a 09 09 24 72 65 76 20 72 65 6d 6f 76 65 61 6c ...$rev removeal
8ff0: 6c 62 72 61 6e 63 68 65 73 0a 09 09 23 20 53 65 lbranches...# Se
9000: 65 20 6e 6f 74 65 20 5b 78 5d 2e 0a 0a 09 09 69 e note [x].....i
9010: 66 20 7b 5b 24 72 65 76 20 69 73 6f 6e 64 65 66 f {[$rev isondef
9020: 61 75 6c 74 62 72 61 6e 63 68 5d 7d 20 7b 0a 09 aultbranch]} {..
9030: 09 20 20 20 20 73 65 74 20 72 65 76 20 5b 24 72 . set rev [$r
9040: 65 76 20 63 68 69 6c 64 5d 0a 09 09 7d 20 65 6c ev child]...} el
9050: 73 65 20 7b 0a 09 09 20 20 20 20 62 72 65 61 6b se {... break
9060: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 09 20 20 ...}.. }...
9070: 20 20 23 20 72 65 76 20 6e 6f 77 20 63 6f 6e 74 # rev now cont
9080: 61 69 6e 73 20 74 68 65 20 66 69 72 73 74 20 6e ains the first n
9090: 6f 6e 2d 4e 54 44 42 20 72 65 76 69 73 69 6f 6e on-NTDB revision
90a0: 20 61 66 74 65 72 20 74 68 65 0a 09 20 20 20 20 after the..
90b0: 23 20 4e 54 44 42 2c 20 6f 72 20 69 73 20 65 6d # NTDB, or is em
90c0: 70 74 79 20 69 66 20 74 68 65 72 65 20 69 73 20 pty if there is
90d0: 6e 6f 20 73 75 63 68 2e 20 49 66 20 77 65 20 68 no such. If we h
90e0: 61 76 65 20 73 6f 6d 65 0a 09 20 20 20 20 23 20 ave some.. #
90f0: 74 68 65 79 20 68 61 76 65 20 74 6f 20 72 65 6d they have to rem
9100: 6f 76 65 64 2e 0a 0a 09 20 20 20 20 69 66 20 7b oved.... if {
9110: 24 72 65 76 20 6e 65 20 22 22 7d 20 20 7b 0a 09 $rev ne ""} {..
9120: 09 73 65 74 20 6c 61 73 74 6e 74 64 62 20 5b 24 .set lastntdb [$
9130: 72 65 76 20 70 61 72 65 6e 74 5d 0a 09 09 24 6c rev parent]...$l
9140: 61 73 74 6e 74 64 62 20 63 75 74 66 72 6f 6d 63 astntdb cutfromc
9150: 68 69 6c 64 0a 09 09 77 68 69 6c 65 20 7b 24 72 hild...while {$r
9160: 65 76 20 6e 65 20 22 22 7d 20 7b 0a 09 09 20 20 ev ne ""} {...
9170: 20 20 24 72 65 76 20 72 65 6d 6f 76 65 61 6c 6c $rev removeall
9180: 74 61 67 73 0a 09 09 20 20 20 20 24 72 65 76 20 tags... $rev
9190: 72 65 6d 6f 76 65 61 6c 6c 62 72 61 6e 63 68 65 removeallbranche
91a0: 73 0a 09 09 20 20 20 20 23 20 4e 6f 74 65 20 5b s... # Note [
91b0: 78 5d 3a 20 57 65 20 6d 61 79 20 73 74 69 6c 6c x]: We may still
91c0: 20 68 61 76 65 20 68 61 64 20 62 72 61 6e 63 68 have had branch
91d0: 65 73 20 6f 6e 20 74 68 65 0a 09 09 20 20 20 20 es on the...
91e0: 23 20 72 65 76 69 73 69 6f 6e 2e 20 42 72 61 6e # revision. Bran
91f0: 63 68 65 73 20 77 69 74 68 6f 75 74 20 72 65 76 ches without rev
9200: 69 73 69 6f 6e 73 20 63 6f 6d 6d 69 74 74 65 64 isions committed
9210: 0a 09 09 20 20 20 20 23 20 6f 6e 20 74 68 65 6d ... # on them
9220: 20 64 6f 20 6e 6f 74 20 73 68 6f 77 20 75 70 20 do not show up
9230: 69 6e 20 74 68 65 20 6c 69 73 74 20 6f 66 20 72 in the list of r
9240: 6f 6f 74 73 20 61 6b 61 0a 09 09 20 20 20 20 23 oots aka... #
9250: 20 6c 69 6e 65 73 20 6f 66 20 64 65 76 65 6c 6f lines of develo
9260: 70 6d 65 6e 74 2e 0a 09 09 20 20 20 20 73 65 74 pment.... set
9270: 20 72 65 76 20 5b 24 72 65 76 20 63 68 69 6c 64 rev [$rev child
9280: 5d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 ]...}.. }..
9290: 20 20 72 65 74 75 72 6e 0a 09 7d 0a 0a 09 23 20 return..}...#
92a0: 4e 6f 20 4e 54 44 42 20 73 74 75 66 66 20 74 6f No NTDB stuff to
92b0: 20 64 65 61 6c 20 77 69 74 68 2e 20 46 69 72 73 deal with. Firs
92c0: 74 20 64 65 6c 65 74 65 20 74 68 65 20 62 72 61 t delete the bra
92d0: 6e 63 68 20 6f 62 6a 65 63 74 0a 09 23 20 69 74 nch object..# it
92e0: 73 65 6c 66 2c 20 61 66 74 65 72 20 63 75 74 74 self, after cutt
92f0: 69 6e 67 20 61 6c 6c 20 74 68 65 20 76 61 72 69 ing all the vari
9300: 6f 75 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e ous connections.
9310: 0a 0a 09 73 65 74 20 62 72 61 6e 63 68 20 5b 24 ...set branch [$
9320: 72 6f 6f 74 20 70 61 72 65 6e 74 62 72 61 6e 63 root parentbranc
9330: 68 5d 0a 09 69 66 20 7b 24 62 72 61 6e 63 68 20 h]..if {$branch
9340: 6e 65 20 22 22 7d 20 7b 0a 09 20 20 20 20 73 65 ne ""} {.. se
9350: 74 20 62 72 61 6e 63 68 70 61 72 65 6e 74 20 5b t branchparent [
9360: 24 62 72 61 6e 63 68 20 70 61 72 65 6e 74 5d 0a $branch parent].
9370: 09 20 20 20 20 24 62 72 61 6e 63 68 70 61 72 65 . $branchpare
9380: 6e 74 20 72 65 6d 6f 76 65 62 72 61 6e 63 68 20 nt removebranch
9390: 20 20 20 20 20 20 20 24 62 72 61 6e 63 68 0a 09 $branch..
93a0: 20 20 20 20 24 62 72 61 6e 63 68 70 61 72 65 6e $branchparen
93b0: 74 20 72 65 6d 6f 76 65 63 68 69 6c 64 6f 6e 62 t removechildonb
93c0: 72 61 6e 63 68 20 24 72 6f 6f 74 0a 09 7d 0a 0a ranch $root..}..
93d0: 09 23 20 54 68 65 20 72 6f 6f 74 20 69 73 20 6e .# The root is n
93e0: 6f 20 73 75 63 68 20 61 6e 79 20 6c 6f 6e 67 65 o such any longe
93f0: 72 20 65 69 74 68 65 72 2e 0a 09 6c 64 65 6c 65 r either...ldele
9400: 74 65 20 6d 79 72 6f 6f 74 73 20 24 72 6f 6f 74 te myroots $root
9410: 0a 0a 09 23 20 4e 6f 77 20 67 6f 20 74 68 72 6f ...# Now go thro
9420: 75 67 68 20 74 68 65 20 6c 69 6e 65 20 61 6e 64 ugh the line and
9430: 20 72 65 6d 6f 76 65 20 61 6c 6c 20 69 74 73 20 remove all its
9440: 72 65 76 69 73 69 6f 6e 73 2e 0a 0a 09 77 68 69 revisions....whi
9450: 6c 65 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d le {$root ne ""}
9460: 20 7b 0a 09 20 20 20 20 24 72 6f 6f 74 20 72 65 {.. $root re
9470: 6d 6f 76 65 61 6c 6c 74 61 67 73 0a 09 20 20 20 movealltags..
9480: 20 24 72 6f 6f 74 20 72 65 6d 6f 76 65 61 6c 6c $root removeall
9490: 62 72 61 6e 63 68 65 73 0a 09 20 20 20 20 23 20 branches.. #
94a0: 4e 6f 74 65 3a 20 53 65 65 20 74 68 65 20 6e 6f Note: See the no
94b0: 74 65 20 5b 78 5d 2e 0a 0a 09 20 20 20 20 23 20 te [x].... #
94c0: 46 72 6f 6d 20 63 76 73 32 73 76 6e 3a 20 49 66 From cvs2svn: If
94d0: 20 74 68 69 73 20 69 73 20 74 68 65 20 6c 61 73 this is the las
94e0: 74 20 64 65 66 61 75 6c 74 20 72 65 76 69 73 69 t default revisi
94f0: 6f 6e 20 6f 6e 20 61 0a 09 20 20 20 20 23 20 6e on on a.. # n
9500: 6f 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 on-trunk default
9510: 20 62 72 61 6e 63 68 20 66 6f 6c 6c 6f 77 65 64 branch followed
9520: 20 62 79 20 61 20 31 2e 32 20 72 65 76 69 73 69 by a 1.2 revisi
9530: 6f 6e 2c 0a 09 20 20 20 20 23 20 74 68 65 6e 20 on,.. # then
9540: 74 68 65 20 31 2e 32 20 72 65 76 69 73 69 6f 6e the 1.2 revision
9550: 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 69 73 depends on this
9560: 20 6f 6e 65 2e 20 20 46 49 58 4d 45 3a 20 49 74 one. FIXME: It
9570: 20 69 73 0a 09 20 20 20 20 23 20 71 75 65 73 74 is.. # quest
9580: 69 6f 6e 61 62 6c 65 20 77 68 65 74 68 65 72 20 ionable whether
9590: 74 68 69 73 20 68 61 6e 64 6c 69 6e 67 20 69 73 this handling is
95a0: 20 63 6f 72 72 65 63 74 2c 20 73 69 6e 63 65 20 correct, since
95b0: 74 68 65 0a 09 20 20 20 20 23 20 6e 6f 6e 2d 74 the.. # non-t
95c0: 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 61 runk default bra
95d0: 6e 63 68 20 72 65 76 69 73 69 6f 6e 73 20 61 66 nch revisions af
95e0: 66 65 63 74 20 74 72 75 6e 6b 20 61 6e 64 0a 09 fect trunk and..
95f0: 20 20 20 20 23 20 73 68 6f 75 6c 64 20 74 68 65 # should the
9600: 72 65 66 6f 72 65 20 6e 6f 74 20 6a 75 73 74 20 refore not just
9610: 62 65 20 64 69 73 63 61 72 64 65 64 20 65 76 65 be discarded eve
9620: 6e 20 69 66 0a 09 20 20 20 20 23 20 2d 2d 74 72 n if.. # --tr
9630: 75 6e 6b 2d 6f 6e 6c 79 2e 0a 0a 09 20 20 20 20 unk-only....
9640: 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 73 64 65 if {[$root hasde
9650: 66 61 75 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 faultbranchchild
9660: 5d 7d 20 7b 0a 09 09 73 65 74 20 6e 74 64 62 63 ]} {...set ntdbc
9670: 68 69 6c 64 20 5b 24 72 6f 6f 74 20 64 65 66 61 hild [$root defa
9680: 75 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 5d 0a ultbranchchild].
9690: 09 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 ..integrity asse
96a0: 72 74 20 7b 0a 09 09 20 20 20 20 5b 24 6e 74 64 rt {... [$ntd
96b0: 62 63 68 69 6c 64 20 64 65 66 61 75 6c 74 62 72 bchild defaultbr
96c0: 61 6e 63 68 70 61 72 65 6e 74 5d 20 65 71 20 24 anchparent] eq $
96d0: 6e 74 64 62 63 68 69 6c 64 0a 09 09 7d 20 7b 6e ntdbchild...} {n
96e0: 74 64 62 20 2d 20 74 72 75 6e 6b 20 6c 69 6e 6b tdb - trunk link
96f0: 61 67 65 20 62 72 6f 6b 65 6e 7d 0a 09 09 24 6e age broken}...$n
9700: 74 64 62 63 68 69 6c 64 20 63 75 74 64 65 66 61 tdbchild cutdefa
9710: 75 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 0a ultbranchparent.
9720: 09 09 69 66 20 7b 5b 24 6e 74 64 62 63 68 69 6c ..if {[$ntdbchil
9730: 64 20 68 61 73 70 61 72 65 6e 74 5d 7d 20 7b 0a d hasparent]} {.
9740: 09 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 .. lappend my
9750: 72 6f 6f 74 73 20 5b 24 6e 74 64 62 63 68 69 6c roots [$ntdbchil
9760: 64 20 70 61 72 65 6e 74 5d 0a 09 09 7d 0a 09 20 d parent]...}..
9770: 20 20 20 7d 0a 0a 09 20 20 20 20 73 65 74 20 72 }... set r
9780: 6f 6f 74 20 5b 24 72 6f 6f 74 20 63 68 69 6c 64 oot [$root child
9790: 5d 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 20 ]..}...return.
97a0: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
97b0: 47 72 61 66 74 4e 54 44 42 32 54 72 75 6e 6b 20 GraftNTDB2Trunk
97c0: 7b 72 6f 6f 74 7d 20 7b 0a 09 23 20 57 65 20 63 {root} {..# We c
97d0: 61 6e 20 6e 6f 77 20 67 72 61 66 74 20 74 68 65 an now graft the
97e0: 20 6e 6f 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 non-trunk defau
97f0: 6c 74 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 lt branch revisi
9800: 6f 6e 73 20 74 6f 0a 09 23 20 74 72 75 6e 6b 2e ons to..# trunk.
9810: 20 54 68 65 79 20 73 68 6f 75 6c 64 20 61 6c 72 They should alr
9820: 65 61 64 79 20 62 65 20 61 6c 6f 6e 65 20 6f 6e eady be alone on
9830: 20 61 20 43 56 53 42 72 61 6e 63 68 2d 6c 65 73 a CVSBranch-les
9840: 73 0a 09 23 20 62 72 61 6e 63 68 2e 0a 0a 09 69 s..# branch....i
9850: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
9860: 7b 21 5b 24 72 6f 6f 74 20 68 61 73 70 61 72 65 {![$root haspare
9870: 6e 74 62 72 61 6e 63 68 5d 7d 20 7b 4e 54 44 42 ntbranch]} {NTDB
9880: 20 72 6f 6f 74 20 73 74 69 6c 6c 20 68 61 73 20 root still has
9890: 69 74 73 20 62 72 61 6e 63 68 20 73 79 6d 62 6f its branch symbo
98a0: 6c 7d 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 l}..integrity as
98b0: 73 65 72 74 20 7b 21 5b 24 72 6f 6f 74 20 68 61 sert {![$root ha
98c0: 73 62 72 61 6e 63 68 65 73 5d 7d 20 20 20 20 20 sbranches]}
98d0: 7b 4e 54 44 42 20 72 6f 6f 74 20 73 74 69 6c 6c {NTDB root still
98e0: 20 68 61 73 20 73 70 61 77 6e 65 64 20 62 72 61 has spawned bra
98f0: 6e 63 68 65 73 7d 0a 0a 09 73 65 74 20 6c 61 73 nches}...set las
9900: 74 20 24 72 6f 6f 74 0a 09 77 68 69 6c 65 20 7b t $root..while {
9910: 5b 24 6c 61 73 74 20 68 61 73 63 68 69 6c 64 5d [$last haschild]
9920: 7d 20 7b 73 65 74 20 6c 61 73 74 20 5b 24 6c 61 } {set last [$la
9930: 73 74 20 63 68 69 6c 64 5d 7d 0a 0a 09 69 66 20 st child]}...if
9940: 7b 5b 24 6c 61 73 74 20 68 61 73 64 65 66 61 75 {[$last hasdefau
9950: 6c 74 62 72 61 6e 63 68 63 68 69 6c 64 5d 7d 20 ltbranchchild]}
9960: 7b 0a 0a 09 20 20 20 20 73 65 74 20 72 65 76 31 {... set rev1
9970: 32 20 5b 24 6c 61 73 74 20 64 65 66 61 75 6c 74 2 [$last default
9980: 62 72 61 6e 63 68 63 68 69 6c 64 5d 0a 09 20 20 branchchild]..
9990: 20 20 24 72 65 76 31 32 20 63 75 74 64 65 66 61 $rev12 cutdefa
99a0: 75 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 0a ultbranchparent.
99b0: 09 20 20 20 20 24 6c 61 73 74 20 20 63 75 74 64 . $last cutd
99c0: 65 66 61 75 6c 74 62 72 61 6e 63 68 63 68 69 6c efaultbranchchil
99d0: 64 0a 0a 09 20 20 20 20 24 72 65 76 31 32 20 63 d... $rev12 c
99e0: 68 61 6e 67 65 70 61 72 65 6e 74 20 24 6c 61 73 hangeparent $las
99f0: 74 0a 09 20 20 20 20 24 6c 61 73 74 20 20 63 68 t.. $last ch
9a00: 61 6e 67 65 63 68 69 6c 64 20 24 72 65 76 31 32 angechild $rev12
9a10: 0a 0a 09 20 20 20 20 6c 64 65 6c 65 74 65 20 6d ... ldelete m
9a20: 79 72 6f 6f 74 73 20 24 72 65 76 31 32 0a 0a 09 yroots $rev12...
9a30: 20 20 20 20 23 20 4e 6f 74 65 20 61 6e 64 20 72 # Note and r
9a40: 65 6d 65 6d 62 65 72 20 74 68 61 74 20 74 68 65 emember that the
9a50: 20 74 79 70 65 20 6f 66 20 72 65 76 31 32 20 77 type of rev12 w
9a60: 61 73 20 61 6c 72 65 61 64 79 0a 09 20 20 20 20 as already..
9a70: 23 20 61 64 6a 75 73 74 65 64 20 62 79 20 41 64 # adjusted by Ad
9a80: 6a 75 73 74 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 justNonTrunkDefa
9a90: 75 6c 74 42 72 61 6e 63 68 2c 20 73 6f 20 77 65 ultBranch, so we
9aa0: 20 64 6f 6e 27 74 0a 09 20 20 20 20 23 20 68 61 don't.. # ha
9ab0: 76 65 20 74 6f 20 63 68 61 6e 67 65 20 69 74 73 ve to change its
9ac0: 20 74 79 70 65 20 68 65 72 65 2e 0a 09 7d 0a 0a type here...}..
9ad0: 09 77 68 69 6c 65 20 7b 24 72 6f 6f 74 20 6e 65 .while {$root ne
9ae0: 20 22 22 7d 20 7b 0a 09 20 20 20 20 24 72 6f 6f ""} {.. $roo
9af0: 74 20 73 65 74 6f 6e 64 65 66 61 75 6c 74 62 72 t setondefaultbr
9b00: 61 6e 63 68 20 30 0a 09 20 20 20 20 24 72 6f 6f anch 0.. $roo
9b10: 74 20 73 65 74 6c 6f 64 20 24 6d 79 74 72 75 6e t setlod $mytrun
9b20: 6b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 74 k.. foreach t
9b30: 61 67 20 5b 24 72 6f 6f 74 20 74 61 67 73 5d 20 ag [$root tags]
9b40: 7b 0a 09 09 24 74 61 67 20 73 65 74 6c 6f 64 20 {...$tag setlod
9b50: 24 6d 79 74 72 75 6e 6b 0a 09 20 20 20 20 7d 0a $mytrunk.. }.
9b60: 09 20 20 20 20 73 65 74 20 72 6f 6f 74 20 5b 24 . set root [$
9b70: 72 6f 6f 74 20 63 68 69 6c 64 5d 0a 09 7d 0a 0a root child]..}..
9b80: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a 20 return.
9b90: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
9ba0: 20 41 63 74 69 76 65 20 7b 7d 20 7b 0a 09 73 65 Active {} {..se
9bb0: 74 20 72 65 76 69 73 69 6f 6e 73 20 7b 7d 0a 09 t revisions {}..
9bc0: 73 65 74 20 73 79 6d 62 6f 6c 73 20 20 20 7b 7d set symbols {}
9bd0: 0a 0a 09 66 6f 72 65 61 63 68 20 72 6f 6f 74 20 ...foreach root
9be0: 5b 24 73 65 6c 66 20 4c 69 6e 65 73 4f 66 44 65 [$self LinesOfDe
9bf0: 76 65 6c 6f 70 6d 65 6e 74 5d 20 7b 0a 09 20 20 velopment] {..
9c00: 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 73 if {[$root has
9c10: 70 61 72 65 6e 74 62 72 61 6e 63 68 5d 7d 20 7b parentbranch]} {
9c20: 20 6c 61 70 70 65 6e 64 20 73 79 6d 62 6f 6c 73 lappend symbols
9c30: 20 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 62 72 [$root parentbr
9c40: 61 6e 63 68 5d 20 7d 0a 09 20 20 20 20 77 68 69 anch] }.. whi
9c50: 6c 65 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d le {$root ne ""}
9c60: 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 72 65 76 {...lappend rev
9c70: 69 73 69 6f 6e 73 20 24 72 6f 6f 74 0a 09 09 66 isions $root...f
9c80: 6f 72 65 61 63 68 20 74 61 67 20 20 20 20 5b 24 oreach tag [$
9c90: 72 6f 6f 74 20 74 61 67 73 5d 20 20 20 20 20 7b root tags] {
9ca0: 20 6c 61 70 70 65 6e 64 20 73 79 6d 62 6f 6c 73 lappend symbols
9cb0: 20 24 74 61 67 20 20 20 20 7d 0a 09 09 66 6f 72 $tag }...for
9cc0: 65 61 63 68 20 62 72 61 6e 63 68 20 5b 24 72 6f each branch [$ro
9cd0: 6f 74 20 62 72 61 6e 63 68 65 73 5d 20 7b 0a 09 ot branches] {..
9ce0: 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 . integrity a
9cf0: 73 73 65 72 74 20 7b 0a 09 09 09 5b 24 62 72 61 ssert {....[$bra
9d00: 6e 63 68 20 70 61 72 65 6e 74 5d 20 65 71 20 24 nch parent] eq $
9d10: 72 6f 6f 74 0a 09 09 20 20 20 20 7d 20 7b 42 61 root... } {Ba
9d20: 63 6b 72 65 66 65 72 65 6e 63 65 20 62 72 61 6e ckreference bran
9d30: 63 68 20 74 6f 20 69 74 73 20 72 6f 6f 74 20 69 ch to its root i
9d40: 73 20 6d 69 73 73 69 6e 67 20 6f 72 20 77 72 6f s missing or wro
9d50: 6e 67 7d 0a 09 09 20 20 20 20 6c 61 70 70 65 6e ng}... lappen
9d60: 64 20 73 79 6d 62 6f 6c 73 20 24 62 72 61 6e 63 d symbols $branc
9d70: 68 0a 09 09 7d 0a 09 09 73 65 74 20 6c 6f 64 20 h...}...set lod
9d80: 5b 24 72 6f 6f 74 20 6c 6f 64 5d 0a 09 09 69 66 [$root lod]...if
9d90: 20 7b 21 5b 24 6c 6f 64 20 69 73 74 72 75 6e 6b {![$lod istrunk
9da0: 5d 7d 20 7b 0a 09 09 20 20 20 20 69 6e 74 65 67 ]} {... integ
9db0: 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 09 rity assert {...
9dc0: 09 5b 24 6c 6f 64 20 68 61 73 63 68 69 6c 64 5d .[$lod haschild]
9dd0: 0a 09 09 20 20 20 20 7d 20 7b 42 72 61 6e 63 68 ... } {Branch
9de0: 20 69 73 20 4c 4f 44 20 73 79 6d 62 6f 6c 20 77 is LOD symbol w
9df0: 69 74 68 6f 75 74 20 72 65 76 69 73 69 6f 6e 73 ithout revisions
9e00: 7d 0a 09 09 20 20 20 20 6c 61 70 70 65 6e 64 20 }... lappend
9e10: 73 79 6d 62 6f 6c 73 20 24 6c 6f 64 0a 09 09 7d symbols $lod...}
9e20: 0a 09 09 73 65 74 20 72 6f 6f 74 20 5b 24 72 6f ...set root [$ro
9e30: 6f 74 20 63 68 69 6c 64 5d 0a 09 20 20 20 20 7d ot child].. }
9e40: 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 5b 6c 69 ..}...return [li
9e50: 73 74 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 75 st [lsort -uniqu
9e60: 65 20 2d 64 69 63 74 20 24 72 65 76 69 73 69 6f e -dict $revisio
9e70: 6e 73 5d 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 71 ns] [lsort -uniq
9e80: 75 65 20 2d 64 69 63 74 20 24 73 79 6d 62 6f 6c ue -dict $symbol
9e90: 73 5d 5d 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 s]]. }...
9ea0: 6d 65 74 68 6f 64 20 41 67 67 72 65 67 61 74 65 method Aggregate
9eb0: 53 79 6d 62 6f 6c 44 61 74 61 20 7b 7d 20 7b 0a SymbolData {} {.
9ec0: 09 23 20 4e 6f 77 20 74 68 61 74 20 74 68 65 20 .# Now that the
9ed0: 65 78 61 63 74 20 73 65 74 20 6f 66 20 72 65 76 exact set of rev
9ee0: 69 73 69 6f 6e 73 20 28 61 6e 64 20 74 68 72 6f isions (and thro
9ef0: 75 67 68 20 74 68 61 74 0a 09 23 20 62 72 61 6e ugh that..# bran
9f00: 63 68 65 73 20 61 6e 64 20 74 61 67 73 29 20 69 ches and tags) i
9f10: 73 20 6b 6e 6f 77 6e 20 77 65 20 63 61 6e 20 75 s known we can u
9f20: 70 64 61 74 65 20 74 68 65 20 61 67 67 72 65 67 pdate the aggreg
9f30: 61 74 65 0a 09 23 20 73 79 6d 62 6f 6c 20 73 74 ate..# symbol st
9f40: 61 74 69 73 74 69 63 73 2e 0a 0a 09 66 6f 72 65 atistics....fore
9f50: 61 63 68 20 72 6f 6f 74 20 5b 24 73 65 6c 66 20 ach root [$self
9f60: 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 LinesOfDevelopme
9f70: 6e 74 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 6c nt] {.. set l
9f80: 6f 64 20 5b 24 72 6f 6f 74 20 6c 6f 64 5d 0a 0a od [$root lod]..
9f90: 09 20 20 20 20 23 20 4e 6f 74 65 3a 20 49 66 20 . # Note: If
9fa0: 74 68 65 20 4c 4f 44 20 69 73 20 74 68 65 20 74 the LOD is the t
9fb0: 72 75 6e 6b 20 74 68 65 20 63 6f 75 6e 74 2a 2c runk the count*,
9fc0: 20 65 74 63 2e 20 6d 65 74 68 6f 64 73 0a 09 20 etc. methods..
9fd0: 20 20 20 23 20 77 69 6c 6c 20 64 6f 20 6e 6f 74 # will do not
9fe0: 68 69 6e 67 2c 20 61 73 20 69 74 20 69 73 20 61 hing, as it is a
9ff0: 6c 77 61 79 73 20 70 72 65 73 65 6e 74 20 28 63 lways present (c
a000: 61 6e 6e 6f 74 20 62 65 0a 09 20 20 20 20 23 20 annot be.. #
a010: 65 78 63 6c 75 64 65 64 29 2c 20 61 6e 64 20 69 excluded), and i
a020: 73 20 61 6c 77 61 79 73 20 61 20 62 72 61 6e 63 s always a branc
a030: 68 20 74 6f 6f 2e 0a 0a 09 20 20 20 20 23 20 4c h too.... # L
a040: 69 6e 65 73 20 6f 66 20 64 65 76 65 6c 6f 70 6d ines of developm
a050: 65 6e 74 20 63 6f 75 6e 74 20 61 73 20 62 72 61 ent count as bra
a060: 6e 63 68 65 73 20 61 6e 64 20 68 61 76 65 20 61 nches and have a
a070: 20 63 6f 6d 6d 69 74 0a 09 20 20 20 20 23 20 6f commit.. # o
a080: 6e 20 74 68 65 6d 20 28 72 6f 6f 74 29 2e 20 49 n them (root). I
a090: 66 20 74 68 65 79 20 61 72 65 20 73 74 69 6c 6c f they are still
a0a0: 20 61 74 74 61 63 68 65 64 20 74 6f 20 61 20 74 attached to a t
a0b0: 72 65 65 20 77 65 0a 09 20 20 20 20 23 20 68 61 ree we.. # ha
a0c0: 76 65 20 74 6f 20 63 6f 6d 70 75 74 65 20 61 6e ve to compute an
a0d0: 64 20 72 65 67 69 73 74 65 72 20 70 6f 73 73 69 d register possi
a0e0: 62 6c 65 20 70 61 72 65 6e 74 73 2e 0a 0a 09 20 ble parents....
a0f0: 20 20 20 24 6c 6f 64 20 63 6f 75 6e 74 61 73 62 $lod countasb
a100: 72 61 6e 63 68 0a 09 20 20 20 20 24 6c 6f 64 20 ranch.. $lod
a110: 63 6f 75 6e 74 61 63 6f 6d 6d 69 74 0a 0a 09 20 countacommit...
a120: 20 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 68 61 if {[$root ha
a130: 73 70 61 72 65 6e 74 62 72 61 6e 63 68 5d 7d 20 sparentbranch]}
a140: 7b 0a 09 09 23 20 4e 6f 74 65 20 6c 6f 64 20 3d {...# Note lod =
a150: 3d 20 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 62 = [$root parentb
a160: 72 61 6e 63 68 5d 0a 09 09 24 6c 6f 64 20 70 6f ranch]...$lod po
a170: 73 73 69 62 6c 65 70 61 72 65 6e 74 73 0a 09 20 ssibleparents..
a180: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 21 5b 24 } elseif {![$
a190: 6c 6f 64 20 69 73 74 72 75 6e 6b 5d 20 26 26 20 lod istrunk] &&
a1a0: 5b 24 72 6f 6f 74 20 69 73 6f 6e 64 65 66 61 75 [$root isondefau
a1b0: 6c 74 62 72 61 6e 63 68 5d 7d 20 7b 0a 09 09 23 ltbranch]} {...#
a1c0: 20 54 68 69 73 20 69 73 20 74 68 65 20 72 6f 6f This is the roo
a1d0: 74 20 72 65 76 69 73 69 6f 6e 20 6f 66 20 61 20 t revision of a
a1e0: 64 65 74 61 63 68 65 64 20 4e 54 44 42 2e 20 57 detached NTDB. W
a1f0: 65 0a 09 09 23 20 68 61 76 65 20 74 6f 20 6d 61 e...# have to ma
a200: 6e 75 61 6c 6c 79 20 73 65 74 20 74 68 65 20 6f nually set the o
a210: 6e 6c 79 20 70 6f 73 73 69 62 6c 65 20 70 61 72 nly possible par
a220: 65 6e 74 20 66 6f 72 0a 09 09 23 20 74 68 69 73 ent for...# this
a230: 20 4c 4f 44 2c 20 74 68 65 20 74 72 75 6e 6b 20 LOD, the trunk
a240: 69 74 73 65 6c 66 2e 0a 0a 09 09 5b 24 6c 6f 64 itself.....[$lod
a250: 20 73 79 6d 62 6f 6c 5d 20 70 6f 73 73 69 62 6c symbol] possibl
a260: 65 70 61 72 65 6e 74 20 24 6d 79 74 72 75 6e 6b eparent $mytrunk
a270: 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 20 .. }... #
a280: 46 6f 72 20 74 68 65 20 72 65 76 69 73 69 6f 6e For the revision
a290: 73 20 69 6e 20 74 68 65 20 6c 69 6e 65 20 77 65 s in the line we
a2a0: 20 72 65 67 69 73 74 65 72 20 74 68 65 69 72 20 register their
a2b0: 62 72 61 6e 63 68 65 73 0a 09 20 20 20 20 23 20 branches.. #
a2c0: 61 6e 64 20 74 61 67 73 20 61 73 20 62 6c 6f 63 and tags as bloc
a2d0: 6b 65 72 73 20 66 6f 72 20 74 68 65 20 6c 6f 64 kers for the lod
a2e0: 2c 20 61 6e 64 20 75 70 64 61 74 65 20 74 68 65 , and update the
a2f0: 20 74 79 70 65 0a 09 20 20 20 20 23 20 63 6f 75 type.. # cou
a300: 6e 74 65 72 73 20 61 73 20 77 65 6c 6c 2e 20 41 nters as well. A
a310: 73 20 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c 73 s branch symbols
a320: 20 77 69 74 68 6f 75 74 20 63 6f 6d 6d 69 74 73 without commits
a330: 20 6f 6e 0a 09 20 20 20 20 23 20 74 68 65 6d 20 on.. # them
a340: 61 72 65 20 6e 6f 74 20 6c 69 73 74 65 64 20 61 are not listed a
a350: 73 20 6c 69 6e 65 73 20 6f 66 20 64 65 76 65 6c s lines of devel
a360: 6f 70 6d 65 6e 74 2c 20 77 65 20 68 61 76 65 20 opment, we have
a370: 74 6f 0a 09 20 20 20 20 23 20 63 6f 75 6e 74 20 to.. # count
a380: 74 68 65 6d 20 68 65 72 65 20 61 73 20 77 65 6c them here as wel
a390: 6c 2c 20 61 73 20 70 6c 61 69 6e 20 62 72 61 6e l, as plain bran
a3a0: 63 68 65 73 2e 20 41 74 20 6c 61 73 74 20 77 65 ches. At last we
a3b0: 0a 09 20 20 20 20 23 20 68 61 76 65 20 74 6f 20 .. # have to
a3c0: 63 6f 6d 70 75 74 65 20 61 6e 64 20 72 65 67 69 compute and regi
a3d0: 73 74 65 72 20 74 68 65 20 70 6f 73 73 69 62 6c ster the possibl
a3e0: 65 20 70 61 72 65 6e 74 73 20 6f 66 20 74 68 65 e parents of the
a3f0: 0a 09 20 20 20 20 23 20 74 61 67 73 2c 20 69 6e .. # tags, in
a400: 20 63 61 73 65 20 74 68 65 79 20 61 72 65 20 6c case they are l
a410: 61 74 65 72 20 63 6f 6e 76 65 72 74 65 64 20 61 ater converted a
a420: 73 20 62 72 61 6e 63 68 65 73 2e 0a 0a 09 20 20 s branches....
a430: 20 20 77 68 69 6c 65 20 7b 24 72 6f 6f 74 20 6e while {$root n
a440: 65 20 22 22 7d 20 7b 0a 09 09 66 6f 72 65 61 63 e ""} {...foreac
a450: 68 20 62 72 61 6e 63 68 20 5b 24 72 6f 6f 74 20 h branch [$root
a460: 62 72 61 6e 63 68 65 73 5d 20 7b 0a 09 09 20 20 branches] {...
a470: 20 20 24 6c 6f 64 20 62 6c 6f 63 6b 65 64 62 79 $lod blockedby
a480: 20 24 62 72 61 6e 63 68 0a 09 09 20 20 20 20 24 $branch... $
a490: 62 72 61 6e 63 68 20 70 6f 73 73 69 62 6c 65 70 branch possiblep
a4a0: 61 72 65 6e 74 73 0a 09 09 20 20 20 20 69 66 20 arents... if
a4b0: 7b 5b 24 62 72 61 6e 63 68 20 68 61 73 63 68 69 {[$branch haschi
a4c0: 6c 64 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 ld]} continue...
a4d0: 20 20 20 20 24 62 72 61 6e 63 68 20 63 6f 75 6e $branch coun
a4e0: 74 61 73 62 72 61 6e 63 68 0a 09 09 7d 0a 0a 09 tasbranch...}...
a4f0: 09 66 6f 72 65 61 63 68 20 74 61 67 20 5b 24 72 .foreach tag [$r
a500: 6f 6f 74 20 74 61 67 73 5d 20 7b 0a 09 09 20 20 oot tags] {...
a510: 20 20 24 6c 6f 64 20 62 6c 6f 63 6b 65 64 62 79 $lod blockedby
a520: 20 24 74 61 67 0a 09 09 20 20 20 20 24 74 61 67 $tag... $tag
a530: 20 70 6f 73 73 69 62 6c 65 70 61 72 65 6e 74 73 possibleparents
a540: 0a 09 09 20 20 20 20 24 74 61 67 20 63 6f 75 6e ... $tag coun
a550: 74 61 73 74 61 67 0a 09 09 7d 0a 0a 09 09 73 65 tastag...}....se
a560: 74 20 72 6f 6f 74 20 5b 24 72 6f 6f 74 20 63 68 t root [$root ch
a570: 69 6c 64 5d 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a ild].. }..}..
a580: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
a590: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
a5a0: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
a5b0: 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 ##########. #
a5c0: 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a # Configuration.
a5d0: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 . pragma -has
a5e0: 74 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 20 typeinfo no
a5f0: 3b 20 23 20 6e 6f 20 74 79 70 65 20 69 6e 74 72 ; # no type intr
a600: 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 ospection. pr
a610: 61 67 6d 61 20 2d 68 61 73 69 6e 66 6f 20 20 20 agma -hasinfo
a620: 20 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 no ; # no
a630: 6f 62 6a 65 63 74 20 69 6e 74 72 6f 73 70 65 63 object introspec
a640: 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 tion. pragma
a650: 2d 68 61 73 74 79 70 65 6d 65 74 68 6f 64 73 20 -hastypemethods
a660: 6e 6f 20 20 3b 20 23 20 74 79 70 65 20 69 73 20 no ; # type is
a670: 6e 6f 74 20 72 65 6c 65 76 61 6e 74 2e 0a 0a 20 not relevant...
a680: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
a690: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
a6a0: 23 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 ##########.}..na
a6b0: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 mespace eval ::v
a6c0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
a6d0: 74 3a 3a 63 76 73 20 7b 0a 20 20 20 20 6e 61 6d t::cvs {. nam
a6e0: 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 66 69 espace export fi
a6f0: 6c 65 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 le. namespace
a700: 20 65 76 61 6c 20 66 69 6c 65 20 7b 0a 09 23 20 eval file {..#
a710: 49 6d 70 6f 72 74 20 6e 6f 74 20 72 65 71 75 69 Import not requi
a720: 72 65 64 2c 20 61 6c 72 65 61 64 79 20 61 20 63 red, already a c
a730: 68 69 6c 64 20 6e 61 6d 65 73 70 61 63 65 2e 0a hild namespace..
a740: 09 23 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 .# namespace imp
a750: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ort ::vc::fossil
a760: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 ::import::cvs::f
a770: 69 6c 65 3a 3a 72 65 76 0a 09 23 20 6e 61 6d 65 ile::rev..# name
a780: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
a790: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
a7a0: 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 73 79 t::cvs::file::sy
a7b0: 6d 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 m..namespace imp
a7c0: 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a ort ::vc::tools:
a7d0: 3a 6d 69 73 63 3a 3a 2a 0a 09 6e 61 6d 65 73 70 :misc::*..namesp
a7e0: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
a7f0: 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 0a :tools::trouble.
a800: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
a810: 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c t ::vc::tools::l
a820: 6f 67 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d og..namespace im
a830: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
a840: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
a850: 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 state..namespace
a860: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
a870: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
a880: 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 s::integrity..na
a890: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
a8a0: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
a8b0: 6f 72 74 3a 3a 63 76 73 3a 3a 67 74 63 6f 72 65 ort::cvs::gtcore
a8c0: 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 . }.}..# # ##
a8d0: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
a8e0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
a8f0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 # ##############
a900: 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 64 79 #######.## Ready
a910: 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 ..package provid
a920: 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d e vc::fossil::im
a930: 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 20 port::cvs::file
a940: 31 2e 30 0a 72 65 74 75 72 6e 0a 1.0.return.