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 62 6c 6f 62 73 74 6f 72 65 20 20 3b 20 s::blobstore ;
0400: 23 20 42 6c 6f 62 20 73 74 6f 72 61 67 65 2e 0a # Blob storage..
0410: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0420: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0430: 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 72 rt::cvs::file::r
0440: 65 76 20 20 3b 20 23 20 43 56 53 20 70 65 72 20 ev ; # CVS per
0450: 66 69 6c 65 20 72 65 76 69 73 69 6f 6e 73 2e 0a file revisions..
0460: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0470: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0480: 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 73 rt::cvs::file::s
0490: 79 6d 20 20 3b 20 23 20 43 56 53 20 70 65 72 20 ym ; # CVS per
04a0: 66 69 6c 65 20 73 79 6d 62 6f 6c 73 2e 0a 70 61 file symbols..pa
04b0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
04c0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
04d0: 3a 3a 63 76 73 3a 3a 73 74 61 74 65 20 20 20 20 ::cvs::state
04e0: 20 20 3b 20 23 20 53 74 61 74 65 20 73 74 6f 72 ; # State stor
04f0: 61 67 65 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 age..package req
0500: 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a uire vc::fossil:
0510: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e :import::cvs::in
0520: 74 65 67 72 69 74 79 20 20 3b 20 23 20 53 74 61 tegrity ; # Sta
0530: 74 65 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 te integrity che
0540: 63 6b 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 cks..package req
0550: 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a uire vc::fossil:
0560: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 67 74 :import::cvs::gt
0570: 63 6f 72 65 20 20 20 20 20 3b 20 23 20 47 72 61 core ; # Gra
0580: 70 68 20 74 72 61 76 65 72 73 61 6c 20 63 6f 72 ph traversal cor
0590: 65 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 e..package requi
05a0: 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 re vc::tools::tr
05b0: 6f 75 62 6c 65 20 20 20 20 20 20 20 20 20 20 20 ouble
05c0: 20 20 20 20 20 20 20 3b 20 23 20 45 72 72 6f 72 ; # Error
05d0: 20 72 65 70 6f 72 74 69 6e 67 2e 0a 70 61 63 6b reporting..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 6c 6f 67 20 20 20 20 20 20 tools::log
0600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0610: 3b 20 23 20 55 73 65 72 20 66 65 65 64 62 61 63 ; # User feedbac
0620: 6b 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 k.package requir
0630: 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 e vc::tools::mis
0640: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c
0650: 20 20 20 20 20 20 3b 20 23 20 54 65 78 74 20 66 ; # Text f
0660: 6f 72 6d 61 74 74 69 6e 67 0a 0a 23 20 23 20 23 ormatting..# # #
0670: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
0680: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
0690: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
06a0: 23 23 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e 69 ########.##..sni
06b0: 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f t::type ::vc::fo
06c0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
06d0: 73 3a 3a 66 69 6c 65 20 7b 0a 20 20 20 20 23 20 s::file {. #
06e0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
06f0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
0700: 23 23 23 23 23 0a 20 20 20 20 23 23 20 50 75 62 #####. ## Pub
0710: 6c 69 63 20 41 50 49 0a 0a 20 20 20 20 63 6f 6e lic API.. con
0720: 73 74 72 75 63 74 6f 72 20 7b 69 64 20 70 61 74 structor {id pat
0730: 68 20 75 73 72 70 61 74 68 20 65 78 65 63 75 74 h usrpath execut
0740: 61 62 6c 65 20 70 72 6f 6a 65 63 74 7d 20 7b 0a able project} {.
0750: 09 73 65 74 20 6d 79 69 64 20 20 20 20 20 20 20 .set myid
0760: 20 20 24 69 64 0a 09 73 65 74 20 6d 79 70 61 74 $id..set mypat
0770: 68 20 20 20 20 20 20 20 24 70 61 74 68 0a 09 73 h $path..s
0780: 65 74 20 6d 79 75 73 72 70 61 74 68 20 20 20 20 et myusrpath
0790: 24 75 73 72 70 61 74 68 0a 09 73 65 74 20 6d 79 $usrpath..set my
07a0: 65 78 65 63 75 74 61 62 6c 65 20 24 65 78 65 63 executable $exec
07b0: 75 74 61 62 6c 65 0a 09 73 65 74 20 6d 79 70 72 utable..set mypr
07c0: 6f 6a 65 63 74 20 20 20 20 24 70 72 6f 6a 65 63 oject $projec
07d0: 74 0a 09 73 65 74 20 6d 79 74 72 75 6e 6b 20 20 t..set mytrunk
07e0: 20 20 20 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 [$myproject
07f0: 74 72 75 6e 6b 5d 0a 09 73 65 74 20 6d 79 62 6c trunk]..set mybl
0800: 6f 62 20 20 20 20 20 20 20 5b 62 6c 6f 62 73 74 ob [blobst
0810: 6f 72 65 20 24 7b 73 65 6c 66 6e 73 7d 3a 3a 25 ore ${selfns}::%
0820: 41 55 54 4f 25 20 24 69 64 5d 0a 09 72 65 74 75 AUTO% $id]..retu
0830: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 rn. }.. me
0840: 74 68 6f 64 20 73 65 74 69 64 20 7b 69 64 7d 20 thod setid {id}
0850: 7b 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 {..integrity ass
0860: 65 72 74 20 7b 24 6d 79 69 64 20 65 71 20 22 22 ert {$myid eq ""
0870: 7d 20 7b 46 69 6c 65 20 27 24 6d 79 70 61 74 68 } {File '$mypath
0880: 27 20 61 6c 72 65 61 64 79 20 68 61 73 20 61 6e ' already has an
0890: 20 69 64 2c 20 27 24 6d 79 69 64 27 7d 0a 09 73 id, '$myid'}..s
08a0: 65 74 20 6d 79 69 64 20 24 69 64 0a 09 24 6d 79 et myid $id..$my
08b0: 62 6c 6f 62 20 73 65 74 69 64 20 24 69 64 0a 09 blob setid $id..
08c0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
08d0: 20 20 6d 65 74 68 6f 64 20 69 64 20 20 20 20 20 method id
08e0: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 {} { return $my
08f0: 69 64 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 id }. method
0900: 70 61 74 68 20 20 20 20 7b 7d 20 7b 20 72 65 74 path {} { ret
0910: 75 72 6e 20 24 6d 79 70 61 74 68 20 7d 0a 20 20 urn $mypath }.
0920: 20 20 6d 65 74 68 6f 64 20 75 73 72 70 61 74 68 method usrpath
0930: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 {} { return $my
0940: 75 73 72 70 61 74 68 20 7d 0a 20 20 20 20 6d 65 usrpath }. me
0950: 74 68 6f 64 20 70 72 6f 6a 65 63 74 20 7b 7d 20 thod project {}
0960: 7b 20 72 65 74 75 72 6e 20 24 6d 79 70 72 6f 6a { return $myproj
0970: 65 63 74 20 7d 0a 0a 20 20 20 20 64 65 6c 65 67 ect }.. deleg
0980: 61 74 65 20 6d 65 74 68 6f 64 20 63 6f 6d 6d 69 ate method commi
0990: 74 6d 65 73 73 61 67 65 6f 66 20 74 6f 20 6d 79 tmessageof to my
09a0: 70 72 6f 6a 65 63 74 0a 0a 20 20 20 20 23 20 23 project.. # #
09b0: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
09c0: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
09d0: 23 23 23 23 0a 20 20 20 20 23 23 20 4d 65 74 68 ####. ## Meth
09e0: 6f 64 73 20 72 65 71 75 69 72 65 64 20 66 6f 72 ods required for
09f0: 20 74 68 65 20 63 6c 61 73 73 20 74 6f 20 62 65 the class to be
0a00: 20 61 20 73 69 6e 6b 20 6f 66 20 74 68 65 20 72 a sink of the r
0a10: 63 73 20 70 61 72 73 65 72 0a 0a 20 20 20 20 23 cs parser.. #
0a20: 6d 65 74 68 6f 64 20 62 65 67 69 6e 20 7b 7d 20 method begin {}
0a30: 7b 70 75 74 73 20 62 65 67 69 6e 7d 0a 20 20 20 {puts begin}.
0a40: 20 23 6d 65 74 68 6f 64 20 73 65 74 68 65 61 64 #method sethead
0a50: 20 7b 68 7d 20 7b 70 75 74 73 20 68 65 61 64 3d {h} {puts head=
0a60: 24 68 7d 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 $h}. #method
0a70: 73 65 74 70 72 69 6e 63 69 70 61 6c 62 72 61 6e setprincipalbran
0a80: 63 68 20 7b 62 7d 20 7b 70 75 74 73 20 70 62 3d ch {b} {puts pb=
0a90: 24 62 7d 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 $b}. #method
0aa0: 64 65 66 74 61 67 20 7b 73 20 72 7d 20 7b 70 75 deftag {s r} {pu
0ab0: 74 73 20 24 73 3d 24 72 7d 0a 20 20 20 20 23 6d ts $s=$r}. #m
0ac0: 65 74 68 6f 64 20 73 65 74 63 6f 6d 6d 65 6e 74 ethod setcomment
0ad0: 20 7b 63 7d 20 7b 70 75 74 73 20 63 6f 6d 6d 65 {c} {puts comme
0ae0: 6e 74 3d 24 63 7d 0a 20 20 20 20 23 6d 65 74 68 nt=$c}. #meth
0af0: 6f 64 20 61 64 6d 69 6e 64 6f 6e 65 20 7b 7d 20 od admindone {}
0b00: 7b 70 75 74 73 20 61 64 6d 69 6e 64 6f 6e 65 7d {puts admindone}
0b10: 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 64 65 66 . #method def
0b20: 20 7b 72 65 76 20 64 61 74 65 20 61 75 74 68 6f {rev date autho
0b30: 72 20 73 74 61 74 65 20 6e 65 78 74 20 62 72 61 r state next bra
0b40: 6e 63 68 65 73 7d 20 7b 70 75 74 73 20 22 64 65 nches} {puts "de
0b50: 66 20 24 72 65 76 20 24 64 61 74 65 20 24 61 75 f $rev $date $au
0b60: 74 68 6f 72 20 24 73 74 61 74 65 20 24 6e 65 78 thor $state $nex
0b70: 74 20 24 62 72 61 6e 63 68 65 73 22 7d 0a 20 20 t $branches"}.
0b80: 20 20 23 6d 65 74 68 6f 64 20 64 65 66 64 6f 6e #method defdon
0b90: 65 20 7b 7d 20 7b 70 75 74 73 20 64 65 66 2d 64 e {} {puts def-d
0ba0: 6f 6e 65 7d 0a 20 20 20 20 23 6d 65 74 68 6f 64 one}. #method
0bb0: 20 73 65 74 64 65 73 63 20 7b 64 7d 20 7b 70 75 setdesc {d} {pu
0bc0: 74 73 20 64 65 73 63 3d 24 64 7d 0a 20 20 20 20 ts desc=$d}.
0bd0: 23 6d 65 74 68 6f 64 20 65 78 74 65 6e 64 20 7b #method extend {
0be0: 72 65 76 20 63 6f 6d 6d 69 74 6d 73 67 20 64 65 rev commitmsg de
0bf0: 6c 74 61 72 61 6e 67 65 7d 20 7b 70 75 74 73 20 ltarange} {puts
0c00: 22 65 78 74 65 6e 64 20 24 63 6f 6d 6d 69 74 6d "extend $commitm
0c10: 73 67 20 24 64 65 6c 74 61 72 61 6e 67 65 22 7d sg $deltarange"}
0c20: 0a 20 20 20 20 23 6d 65 74 68 6f 64 20 64 6f 6e . #method don
0c30: 65 20 7b 7d 20 7b 70 75 74 73 20 64 6f 6e 65 7d e {} {puts done}
0c40: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
0c50: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
0c60: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
0c70: 20 20 23 23 20 50 65 72 73 69 73 74 65 6e 63 65 ## Persistence
0c80: 20 28 70 61 73 73 20 49 49 29 0a 0a 20 20 20 20 (pass II)..
0c90: 6d 65 74 68 6f 64 20 70 65 72 73 69 73 74 20 7b method persist {
0ca0: 7d 20 7b 0a 09 23 20 46 69 72 73 74 20 63 6f 6c } {..# First col
0cb0: 6c 65 63 74 20 74 68 65 20 72 65 61 63 68 61 62 lect the reachab
0cc0: 6c 65 20 72 65 76 69 73 69 6f 6e 73 20 61 6e 64 le revisions and
0cd0: 20 73 79 6d 62 6f 6c 73 2c 20 74 68 65 6e 0a 09 symbols, then..
0ce0: 23 20 61 73 73 69 67 6e 20 69 64 27 73 20 74 6f # assign id's to
0cf0: 20 61 6c 6c 2e 20 54 68 65 79 20 61 72 65 20 73 all. They are s
0d00: 6f 72 74 65 64 20 73 6f 20 74 68 61 74 20 77 65 orted so that we
0d10: 20 77 69 6c 6c 20 68 61 76 65 20 69 64 73 0a 09 will have ids..
0d20: 23 20 77 68 69 63 68 20 73 6f 72 74 20 69 6e 20 # which sort in
0d30: 6f 72 64 65 72 20 6f 66 20 63 72 65 61 74 69 6f order of creatio
0d40: 6e 2e 20 54 68 65 6e 20 77 65 20 63 61 6e 20 73 n. Then we can s
0d50: 61 76 65 20 74 68 65 6d 2e 20 54 68 69 73 0a 09 ave them. This..
0d60: 23 20 69 73 20 64 6f 6e 65 20 62 6f 74 74 6f 6d # is done bottom
0d70: 20 75 70 2e 20 52 65 76 69 73 69 6f 6e 73 2c 20 up. Revisions,
0d80: 74 68 65 6e 20 73 79 6d 62 6f 6c 73 2e 20 5f 5f then symbols. __
0d90: 4e 4f 54 45 5f 5f 20 54 68 69 73 0a 09 23 20 77 NOTE__ This..# w
0da0: 6f 72 6b 73 20 6f 6e 6c 79 20 62 65 63 61 75 73 orks only becaus
0db0: 65 20 73 71 6c 69 74 65 20 69 73 20 6e 6f 74 20 e sqlite is not
0dc0: 63 68 65 63 6b 69 6e 67 20 66 6f 72 65 69 67 6e checking foreign
0dd0: 20 6b 65 79 0a 09 23 20 72 65 66 65 72 65 6e 63 key..# referenc
0de0: 65 73 20 64 75 72 69 6e 67 20 69 6e 73 65 72 74 es during insert
0df0: 2e 20 54 68 69 73 20 61 6c 6c 6f 77 73 20 74 6f . This allows to
0e00: 20 68 61 76 65 20 64 61 6e 67 6c 69 6e 67 0a 09 have dangling..
0e10: 23 20 72 65 66 65 72 65 6e 63 65 73 20 77 68 69 # references whi
0e20: 63 68 20 61 72 65 20 66 69 78 65 64 20 6c 61 74 ch are fixed lat
0e30: 65 72 2e 20 54 68 65 20 6c 6f 6e 67 65 73 74 20 er. The longest
0e40: 64 61 6e 67 6c 69 6e 67 0a 09 23 20 72 65 66 65 dangling..# refe
0e50: 72 65 6e 63 65 73 20 61 72 65 20 66 6f 72 20 74 rences are for t
0e60: 68 65 20 70 72 6f 6a 65 63 74 20 6c 65 76 65 6c he project level
0e70: 20 73 79 6d 62 6f 6c 73 2c 20 74 68 65 73 65 20 symbols, these
0e80: 77 65 20 64 6f 0a 09 23 20 6e 6f 74 20 73 61 76 we do..# not sav
0e90: 65 20 68 65 72 65 2c 20 62 75 74 20 61 74 20 74 e here, but at t
0ea0: 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 70 61 he end of the pa
0eb0: 73 73 2e 20 57 68 61 74 20 77 65 20 6e 65 65 64 ss. What we need
0ec0: 20 61 72 65 0a 09 23 20 74 68 65 20 69 64 73 2c are..# the ids,
0ed0: 20 68 65 6e 63 65 20 74 68 65 20 74 77 6f 20 70 hence the two p
0ee0: 68 61 73 65 73 2e 0a 0a 09 73 74 72 75 63 74 3a hases....struct:
0ef0: 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 24 73 :list assign [$s
0f00: 65 6c 66 20 41 63 74 69 76 65 5d 20 72 65 76 69 elf Active] revi
0f10: 73 69 6f 6e 73 20 73 79 6d 62 6f 6c 73 0a 09 66 sions symbols..f
0f20: 6f 72 65 61 63 68 20 72 65 76 20 24 72 65 76 69 oreach rev $revi
0f30: 73 69 6f 6e 73 20 7b 20 24 72 65 76 20 64 65 66 sions { $rev def
0f40: 69 64 20 7d 0a 09 66 6f 72 65 61 63 68 20 73 79 id }..foreach sy
0f50: 6d 20 24 73 79 6d 62 6f 6c 73 20 20 20 7b 20 24 m $symbols { $
0f60: 73 79 6d 20 64 65 66 69 64 20 7d 0a 0a 09 73 74 sym defid }...st
0f70: 61 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 ate transaction
0f80: 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 72 {.. foreach r
0f90: 65 76 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 20 ev $revisions {
0fa0: 24 72 65 76 20 70 65 72 73 69 73 74 20 7d 0a 09 $rev persist }..
0fb0: 20 20 20 20 66 6f 72 65 61 63 68 20 73 79 6d 20 foreach sym
0fc0: 24 73 79 6d 62 6f 6c 73 20 20 20 7b 20 24 73 79 $symbols { $sy
0fd0: 6d 20 70 65 72 73 69 73 74 20 7d 0a 09 20 20 20 m persist }..
0fe0: 20 24 6d 79 62 6c 6f 62 20 70 65 72 73 69 73 74 $myblob persist
0ff0: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
1000: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 72 }.. method dr
1010: 6f 70 20 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 68 op {} {..foreach
1020: 20 7b 5f 20 72 65 76 7d 20 20 20 20 5b 61 72 72 {_ rev} [arr
1030: 61 79 20 67 65 74 20 6d 79 72 65 76 5d 20 20 20 ay get myrev]
1040: 20 20 20 7b 20 24 72 65 76 20 64 65 73 74 72 6f { $rev destro
1050: 79 20 7d 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 y }..foreach {_
1060: 62 72 61 6e 63 68 7d 20 5b 61 72 72 61 79 20 67 branch} [array g
1070: 65 74 20 6d 79 62 72 61 6e 63 68 65 73 5d 20 7b et mybranches] {
1080: 20 24 62 72 61 6e 63 68 20 64 65 73 74 72 6f 79 $branch destroy
1090: 20 7d 0a 09 66 6f 72 65 61 63 68 20 7b 5f 20 74 }..foreach {_ t
10a0: 61 67 6c 69 73 74 7d 20 5b 61 72 72 61 79 20 67 aglist} [array g
10b0: 65 74 20 6d 79 74 61 67 73 5d 20 7b 0a 09 20 20 et mytags] {..
10c0: 20 20 66 6f 72 65 61 63 68 20 74 61 67 20 24 74 foreach tag $t
10d0: 61 67 6c 69 73 74 20 7b 20 24 74 61 67 20 64 65 aglist { $tag de
10e0: 73 74 72 6f 79 20 7d 0a 09 7d 0a 09 72 65 74 75 stroy }..}..retu
10f0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 rn. }.. #
1100: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
1110: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
1120: 23 23 23 23 23 0a 20 20 20 20 23 23 20 49 6d 70 #####. ## Imp
1130: 6c 65 6d 65 6e 74 20 74 68 65 20 73 69 6e 6b 0a lement the sink.
1140: 0a 20 20 20 20 6d 65 74 68 6f 64 20 62 65 67 69 . method begi
1150: 6e 20 7b 7d 20 7b 23 69 67 6e 6f 72 65 7d 0a 0a n {} {#ignore}..
1160: 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 68 65 method sethe
1170: 61 64 20 7b 72 65 76 6e 72 7d 20 7b 0a 09 73 65 ad {revnr} {..se
1180: 74 20 6d 79 68 65 61 64 72 65 76 6e 72 20 24 72 t myheadrevnr $r
1190: 65 76 6e 72 0a 09 72 65 74 75 72 6e 0a 20 20 20 evnr..return.
11a0: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 }.. method s
11b0: 65 74 70 72 69 6e 63 69 70 61 6c 62 72 61 6e 63 etprincipalbranc
11c0: 68 20 7b 62 72 61 6e 63 68 6e 72 7d 20 7b 0a 09 h {branchnr} {..
11d0: 73 65 74 20 6d 79 70 72 69 6e 63 69 70 61 6c 20 set myprincipal
11e0: 24 62 72 61 6e 63 68 6e 72 0a 09 72 65 74 75 72 $branchnr..retur
11f0: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 n. }.. met
1200: 68 6f 64 20 64 65 66 74 61 67 20 7b 6e 61 6d 65 hod deftag {name
1210: 20 72 65 76 6e 72 7d 20 7b 0a 09 23 20 46 55 54 revnr} {..# FUT
1220: 55 52 45 3a 20 50 65 72 66 6f 72 6d 20 73 79 6d URE: Perform sym
1230: 62 6f 6c 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 bol transformati
1240: 6f 6e 20 68 65 72 65 2e 0a 0a 09 69 66 20 7b 5b on here....if {[
1250: 73 74 72 75 63 74 3a 3a 73 65 74 20 63 6f 6e 74 struct::set cont
1260: 61 69 6e 73 20 24 6d 79 73 79 6d 62 6f 6c 73 20 ains $mysymbols
1270: 24 6e 61 6d 65 5d 7d 20 7b 0a 09 20 20 20 20 74 $name]} {.. t
1280: 72 6f 75 62 6c 65 20 66 61 74 61 6c 20 22 4d 75 rouble fatal "Mu
1290: 6c 74 69 70 6c 65 20 64 65 66 69 6e 69 74 69 6f ltiple definitio
12a0: 6e 73 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c ns of the symbol
12b0: 20 27 24 6e 61 6d 65 27 20 69 6e 20 27 24 6d 79 '$name' in '$my
12c0: 70 61 74 68 27 22 0a 09 20 20 20 20 72 65 74 75 path'".. retu
12d0: 72 6e 0a 09 7d 0a 0a 09 73 74 72 75 63 74 3a 3a rn..}...struct::
12e0: 73 65 74 20 61 64 64 20 6d 79 73 79 6d 62 6f 6c set add mysymbol
12f0: 73 20 24 6e 61 6d 65 0a 0a 09 69 66 20 7b 5b 72 s $name...if {[r
1300: 65 76 20 69 73 62 72 61 6e 63 68 72 65 76 6e 72 ev isbranchrevnr
1310: 20 24 72 65 76 6e 72 20 2d 3e 20 62 72 61 6e 63 $revnr -> branc
1320: 68 6e 72 5d 7d 20 7b 0a 09 20 20 20 20 24 73 65 hnr]} {.. $se
1330: 6c 66 20 41 64 64 42 72 61 6e 63 68 20 24 6e 61 lf AddBranch $na
1340: 6d 65 20 24 62 72 61 6e 63 68 6e 72 0a 09 7d 20 me $branchnr..}
1350: 65 6c 73 65 20 7b 0a 09 20 20 20 20 24 73 65 6c else {.. $sel
1360: 66 20 41 64 64 54 61 67 20 24 6e 61 6d 65 20 24 f AddTag $name $
1370: 72 65 76 6e 72 0a 09 7d 0a 09 72 65 74 75 72 6e revnr..}..return
1380: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
1390: 6f 64 20 73 65 74 63 6f 6d 6d 65 6e 74 20 7b 63 od setcomment {c
13a0: 7d 20 7b 23 20 69 67 6e 6f 72 65 7d 0a 0a 20 20 } {# ignore}..
13b0: 20 20 6d 65 74 68 6f 64 20 61 64 6d 69 6e 64 6f method admindo
13c0: 6e 65 20 7b 7d 20 7b 0a 09 23 20 57 65 20 64 6f ne {} {..# We do
13d0: 20 6e 6f 74 68 69 6e 67 20 61 74 20 74 68 65 20 nothing at the
13e0: 62 6f 75 6e 64 61 72 79 20 6f 66 20 61 64 6d 69 boundary of admi
13f0: 6e 20 61 6e 64 20 72 65 76 69 73 69 6f 6e 20 64 n and revision d
1400: 61 74 61 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d ata. }.. m
1410: 65 74 68 6f 64 20 64 65 66 20 7b 72 65 76 6e 72 ethod def {revnr
1420: 20 64 61 74 65 20 61 75 74 68 6f 72 20 73 74 61 date author sta
1430: 74 65 20 6e 65 78 74 20 62 72 61 6e 63 68 65 73 te next branches
1440: 7d 20 7b 0a 09 24 73 65 6c 66 20 52 65 63 6f 72 } {..$self Recor
1450: 64 42 72 61 6e 63 68 43 6f 6d 6d 69 74 73 20 24 dBranchCommits $
1460: 62 72 61 6e 63 68 65 73 0a 0a 09 69 66 20 7b 5b branches...if {[
1470: 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 72 65 info exists myre
1480: 76 28 24 72 65 76 6e 72 29 5d 7d 20 7b 0a 09 20 v($revnr)]} {..
1490: 20 20 20 74 72 6f 75 62 6c 65 20 66 61 74 61 6c trouble fatal
14a0: 20 22 46 69 6c 65 20 24 6d 79 70 61 74 68 20 63 "File $mypath c
14b0: 6f 6e 74 61 69 6e 73 20 64 75 70 6c 69 63 61 74 ontains duplicat
14c0: 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f e definitions fo
14d0: 72 20 72 65 76 69 73 69 6f 6e 20 24 72 65 76 6e r revision $revn
14e0: 72 2e 22 0a 09 20 20 20 20 72 65 74 75 72 6e 0a r.".. return.
14f0: 09 7d 0a 0a 09 73 65 74 20 6d 79 61 69 64 28 24 .}...set myaid($
1500: 72 65 76 6e 72 29 20 5b 24 6d 79 70 72 6f 6a 65 revnr) [$myproje
1510: 63 74 20 64 65 66 61 75 74 68 6f 72 20 24 61 75 ct defauthor $au
1520: 74 68 6f 72 5d 0a 09 73 65 74 20 6d 79 72 65 76 thor]..set myrev
1530: 28 24 72 65 76 6e 72 29 20 5b 72 65 76 20 25 41 ($revnr) [rev %A
1540: 55 54 4f 25 20 24 72 65 76 6e 72 20 24 64 61 74 UTO% $revnr $dat
1550: 65 20 24 73 74 61 74 65 20 24 73 65 6c 66 5d 0a e $state $self].
1560: 0a 09 24 6d 79 62 6c 6f 62 20 61 64 64 20 24 72 ..$myblob add $r
1570: 65 76 6e 72 20 24 6d 79 72 65 76 28 24 72 65 76 evnr $myrev($rev
1580: 6e 72 29 0a 0a 09 69 66 20 7b 24 6e 65 78 74 20 nr)...if {$next
1590: 6e 65 20 22 22 7d 20 7b 0a 09 20 20 20 20 23 20 ne ""} {.. #
15a0: 70 61 72 65 6e 74 20 72 65 76 69 73 69 6f 6e 20 parent revision
15b0: 4e 45 58 54 20 69 73 20 61 20 64 65 6c 74 61 20 NEXT is a delta
15c0: 6f 66 20 63 75 72 72 65 6e 74 2e 0a 09 20 20 20 of current...
15d0: 20 24 6d 79 62 6c 6f 62 20 64 65 6c 74 61 20 24 $myblob delta $
15e0: 6e 65 78 74 20 24 72 65 76 6e 72 0a 09 7d 0a 09 next $revnr..}..
15f0: 66 6f 72 65 61 63 68 20 62 20 24 62 72 61 6e 63 foreach b $branc
1600: 68 65 73 20 7b 0a 09 20 20 20 20 23 20 62 72 61 hes {.. # bra
1610: 6e 63 68 20 63 68 69 6c 64 20 72 65 76 69 73 69 nch child revisi
1620: 6f 6e 20 42 20 69 73 20 61 20 64 65 6c 74 61 20 on B is a delta
1630: 6f 66 20 63 75 72 72 65 6e 74 2e 0a 09 20 20 20 of current...
1640: 20 24 6d 79 62 6c 6f 62 20 64 65 6c 74 61 20 24 $myblob delta $
1650: 62 20 24 72 65 76 6e 72 0a 09 7d 0a 0a 09 24 73 b $revnr..}...$s
1660: 65 6c 66 20 52 65 63 6f 72 64 42 61 73 69 63 44 elf RecordBasicD
1670: 65 70 65 6e 64 65 6e 63 69 65 73 20 24 72 65 76 ependencies $rev
1680: 6e 72 20 24 6e 65 78 74 0a 09 72 65 74 75 72 6e nr $next..return
1690: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
16a0: 6f 64 20 64 65 66 64 6f 6e 65 20 7b 7d 20 7b 0a od defdone {} {.
16b0: 09 23 20 54 68 69 73 20 69 73 20 61 6c 6c 20 64 .# This is all d
16c0: 6f 6e 65 20 61 66 74 65 72 20 74 68 65 20 72 65 one after the re
16d0: 76 69 73 69 6f 6e 20 74 72 65 65 20 68 61 73 20 vision tree has
16e0: 62 65 65 6e 20 65 78 74 72 61 63 74 65 64 0a 09 been extracted..
16f0: 23 20 66 72 6f 6d 20 74 68 65 20 66 69 6c 65 2c # from the file,
1700: 20 62 65 66 6f 72 65 20 74 68 65 20 63 6f 6d 6d before the comm
1710: 69 74 20 6d 65 73 61 67 65 73 20 61 6e 64 20 64 it mesages and d
1720: 65 6c 74 61 20 74 65 78 74 73 20 61 72 65 0a 09 elta texts are..
1730: 23 20 70 72 6f 63 65 73 73 65 64 2e 0a 0a 09 24 # processed....$
1740: 73 65 6c 66 20 50 72 6f 63 65 73 73 50 72 69 6d self ProcessPrim
1750: 61 72 79 44 65 70 65 6e 64 65 6e 63 69 65 73 0a aryDependencies.
1760: 09 24 73 65 6c 66 20 50 72 6f 63 65 73 73 42 72 .$self ProcessBr
1770: 61 6e 63 68 44 65 70 65 6e 64 65 6e 63 69 65 73 anchDependencies
1780: 0a 09 24 73 65 6c 66 20 53 6f 72 74 42 72 61 6e ..$self SortBran
1790: 63 68 65 73 0a 09 24 73 65 6c 66 20 50 72 6f 63 ches..$self Proc
17a0: 65 73 73 54 61 67 44 65 70 65 6e 64 65 6e 63 69 essTagDependenci
17b0: 65 73 0a 09 24 73 65 6c 66 20 44 65 74 65 72 6d es..$self Determ
17c0: 69 6e 65 54 68 65 52 6f 6f 74 52 65 76 69 73 69 ineTheRootRevisi
17d0: 6f 6e 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d on..return. }
17e0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 .. method set
17f0: 64 65 73 63 20 7b 64 7d 20 7b 23 20 69 67 6e 6f desc {d} {# igno
1800: 72 65 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 re}.. method
1810: 65 78 74 65 6e 64 20 7b 72 65 76 6e 72 20 63 6f extend {revnr co
1820: 6d 6d 69 74 6d 73 67 20 74 65 78 74 72 61 6e 67 mmitmsg textrang
1830: 65 7d 20 7b 0a 09 73 65 74 20 63 6d 69 64 20 5b e} {..set cmid [
1840: 24 6d 79 70 72 6f 6a 65 63 74 20 64 65 66 63 6d $myproject defcm
1850: 65 73 73 61 67 65 20 5b 73 74 72 69 6e 67 20 74 essage [string t
1860: 72 69 6d 20 24 63 6f 6d 6d 69 74 6d 73 67 5d 5d rim $commitmsg]]
1870: 0a 0a 09 73 65 74 20 72 65 76 20 24 6d 79 72 65 ...set rev $myre
1880: 76 28 24 72 65 76 6e 72 29 0a 0a 09 69 66 20 7b v($revnr)...if {
1890: 5b 24 72 65 76 20 68 61 73 6d 65 74 61 5d 7d 20 [$rev hasmeta]}
18a0: 7b 0a 09 20 20 20 20 23 20 41 70 70 61 72 65 6e {.. # Apparen
18b0: 74 6c 79 20 72 65 70 6f 73 69 74 6f 72 69 65 73 tly repositories
18c0: 20 65 78 69 73 74 20 69 6e 20 77 68 69 63 68 20 exist in which
18d0: 74 68 65 20 64 65 6c 74 61 20 64 61 74 61 0a 09 the delta data..
18e0: 20 20 20 20 23 20 66 6f 72 20 72 65 76 69 73 69 # for revisi
18f0: 6f 6e 20 31 2e 31 20 69 73 20 70 72 6f 76 69 64 on 1.1 is provid
1900: 65 64 20 73 65 76 65 72 61 6c 20 74 69 6d 65 73 ed several times
1910: 2c 20 61 74 20 6c 65 61 73 74 0a 09 20 20 20 20 , at least..
1920: 23 20 74 77 69 63 65 2e 20 54 68 65 20 61 63 74 # twice. The act
1930: 75 61 6c 20 63 61 75 73 65 20 6f 66 20 74 68 69 ual cause of thi
1940: 73 20 64 75 70 6c 69 63 61 74 69 6f 6e 20 69 73 s duplication is
1950: 20 6e 6f 74 0a 09 20 20 20 20 23 20 6b 6e 6f 77 not.. # know
1960: 6e 2e 20 53 70 65 63 75 6c 61 74 69 6f 6e 20 63 n. Speculation c
1970: 65 6e 74 65 72 73 20 6f 6e 20 52 43 53 2f 43 56 enters on RCS/CV
1980: 53 20 62 75 67 73 2c 20 6f 72 20 66 72 6f 6d 0a S bugs, or from.
1990: 09 20 20 20 20 23 20 6d 61 6e 75 61 6c 20 65 64 . # manual ed
19a0: 69 74 73 20 6f 66 20 74 68 65 20 72 65 70 6f 73 its of the repos
19b0: 69 74 6f 72 79 20 77 68 69 63 68 20 62 6f 72 6b itory which bork
19c0: 65 64 20 74 68 65 0a 09 20 20 20 20 23 20 69 6e ed the.. # in
19d0: 74 65 72 6e 61 6c 73 2e 20 57 68 61 74 65 76 65 ternals. Whateve
19e0: 72 20 74 68 65 20 63 61 75 73 65 2c 20 74 65 73 r the cause, tes
19f0: 74 69 6e 67 20 73 68 6f 77 65 64 20 74 68 61 74 ting showed that
1a00: 20 62 6f 74 68 0a 09 20 20 20 20 23 20 63 76 73 both.. # cvs
1a10: 20 61 6e 64 20 72 63 73 20 75 73 65 20 74 68 65 and rcs use the
1a20: 20 66 69 72 73 74 20 64 65 66 69 6e 69 74 69 6f first definitio
1a30: 6e 20 77 68 65 6e 20 70 65 72 66 6f 72 6d 69 6e n when performin
1a40: 67 20 61 0a 09 20 20 20 20 23 20 63 68 65 63 6b g a.. # check
1a50: 6f 75 74 2c 20 61 6e 64 20 77 65 20 66 6f 6c 6c out, and we foll
1a60: 6f 77 20 74 68 65 69 72 20 6c 65 61 64 2e 20 53 ow their lead. S
1a70: 69 64 65 20 6e 6f 74 65 73 3a 20 27 63 76 73 0a ide notes: 'cvs.
1a80: 09 20 20 20 20 23 20 6c 6f 67 27 20 66 61 69 6c . # log' fail
1a90: 73 20 6f 6e 20 73 75 63 68 20 61 20 66 69 6c 65 s on such a file
1aa0: 2c 20 61 6e 64 20 27 63 76 73 20 72 6c 6f 67 27 , and 'cvs rlog'
1ab0: 20 70 72 69 6e 74 73 20 74 68 65 20 6c 6f 67 0a prints the log.
1ac0: 09 20 20 20 20 23 20 6d 65 73 73 61 67 65 20 66 . # message f
1ad0: 72 6f 6d 20 74 68 65 20 66 69 72 73 74 20 64 65 rom the first de
1ae0: 6c 74 61 2c 20 69 67 6e 6f 72 69 6e 67 20 74 68 lta, ignoring th
1af0: 65 20 73 65 63 6f 6e 64 2e 0a 0a 09 20 20 20 20 e second....
1b00: 6c 6f 67 20 77 72 69 74 65 20 31 20 66 69 6c 65 log write 1 file
1b10: 20 22 49 6e 20 66 69 6c 65 20 24 6d 79 70 61 74 "In file $mypat
1b20: 68 20 3a 20 44 75 70 6c 69 63 61 74 65 20 64 65 h : Duplicate de
1b30: 6c 74 61 20 64 61 74 61 20 66 6f 72 20 72 65 76 lta data for rev
1b40: 69 73 69 6f 6e 20 24 72 65 76 6e 72 22 0a 09 20 ision $revnr"..
1b50: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 31 20 66 log write 1 f
1b60: 69 6c 65 20 22 49 67 6e 6f 72 69 6e 67 20 74 68 ile "Ignoring th
1b70: 65 20 64 75 70 6c 69 63 61 74 65 22 0a 09 20 20 e duplicate"..
1b80: 20 20 72 65 74 75 72 6e 0a 09 7d 0a 0a 09 23 20 return..}...#
1b90: 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 6c 69 Determine the li
1ba0: 6e 65 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e ne of developmen
1bb0: 74 20 66 6f 72 20 74 68 65 20 72 65 76 69 73 69 t for the revisi
1bc0: 6f 6e 20 28 70 72 6f 6a 65 63 74 0a 09 23 20 6c on (project..# l
1bd0: 65 76 65 6c 29 2e 20 54 68 69 73 20 67 69 76 65 evel). This give
1be0: 73 20 75 73 20 74 68 65 20 62 72 61 6e 63 68 69 s us the branchi
1bf0: 64 20 74 6f 6f 2c 20 72 65 71 75 69 72 65 64 20 d too, required
1c00: 66 6f 72 20 74 68 65 0a 09 23 20 6d 65 74 61 20 for the..# meta
1c10: 64 61 74 61 20 67 72 6f 75 70 20 74 68 65 20 72 data group the r
1c20: 65 76 69 73 69 6f 6e 20 69 73 20 69 6e 2e 20 28 evision is in. (
1c30: 4e 6f 74 65 3a 20 42 79 20 70 75 74 74 69 6e 67 Note: By putting
1c40: 20 62 6f 74 68 0a 09 23 20 62 72 61 6e 63 68 2f both..# branch/
1c50: 6c 6f 64 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 lod and project
1c60: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 74 6f information into
1c70: 20 74 68 65 20 67 72 6f 75 70 20 77 65 20 65 6e the group we en
1c80: 73 75 72 65 0a 09 23 20 74 68 61 74 20 61 6e 79 sure..# that any
1c90: 20 63 72 6f 73 73 2d 70 72 6f 6a 65 63 74 20 61 cross-project a
1ca0: 6e 64 20 63 72 6f 73 73 2d 62 72 61 6e 63 68 20 nd cross-branch
1cb0: 63 6f 6d 6d 69 74 73 20 61 72 65 0a 09 23 20 73 commits are..# s
1cc0: 65 70 61 72 61 74 65 64 20 69 6e 74 6f 20 6d 75 eparated into mu
1cd0: 6c 74 69 70 6c 65 20 63 6f 6d 6d 69 74 73 2c 20 ltiple commits,
1ce0: 6f 6e 65 20 69 6e 20 65 61 63 68 20 6f 66 20 74 one in each of t
1cf0: 68 65 20 70 72 6f 6a 65 63 74 73 0a 09 23 20 61 he projects..# a
1d00: 6e 64 2f 6f 72 20 62 72 61 6e 63 68 65 73 29 2e nd/or branches).
1d10: 0a 0a 09 73 65 74 20 6c 6f 64 20 5b 24 73 65 6c ...set lod [$sel
1d20: 66 20 47 65 74 4c 4f 44 20 24 72 65 76 6e 72 5d f GetLOD $revnr]
1d30: 0a 0a 09 24 72 65 76 20 73 65 74 6d 65 74 61 20 ...$rev setmeta
1d40: 5b 24 6d 79 70 72 6f 6a 65 63 74 20 64 65 66 6d [$myproject defm
1d50: 65 74 61 20 5b 24 6c 6f 64 20 69 64 5d 20 24 6d eta [$lod id] $m
1d60: 79 61 69 64 28 24 72 65 76 6e 72 29 20 24 63 6d yaid($revnr) $cm
1d70: 69 64 5d 0a 09 23 20 4e 6f 74 65 3a 20 57 65 20 id]..# Note: We
1d80: 6b 65 65 70 20 73 65 74 74 65 78 74 20 6f 6e 20 keep settext on
1d90: 66 69 6c 65 3a 3a 72 65 76 20 66 6f 72 20 74 68 file::rev for th
1da0: 65 20 68 61 73 74 65 78 74 20 71 75 65 72 69 65 e hastext querie
1db0: 73 0a 09 23 20 75 73 65 64 20 62 79 20 73 65 76 s..# used by sev
1dc0: 65 72 61 6c 20 63 68 65 63 6b 73 2e 0a 09 24 72 eral checks...$r
1dd0: 65 76 20 73 65 74 74 65 78 74 20 24 74 65 78 74 ev settext $text
1de0: 72 61 6e 67 65 0a 09 24 72 65 76 20 73 65 74 6c range..$rev setl
1df0: 6f 64 20 20 24 6c 6f 64 0a 0a 09 24 6d 79 62 6c od $lod...$mybl
1e00: 6f 62 20 65 78 74 65 6e 64 20 24 72 65 76 6e 72 ob extend $revnr
1e10: 20 24 74 65 78 74 72 61 6e 67 65 0a 0a 09 23 20 $textrange...#
1e20: 49 66 20 74 68 69 73 20 69 73 20 72 65 76 69 73 If this is revis
1e30: 69 6f 6e 20 31 2e 31 2c 20 77 65 20 68 61 76 65 ion 1.1, we have
1e40: 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 77 68 to determine wh
1e50: 65 74 68 65 72 20 74 68 65 0a 09 23 20 66 69 6c ether the..# fil
1e60: 65 20 73 65 65 6d 73 20 74 6f 20 68 61 76 65 20 e seems to have
1e70: 62 65 65 6e 20 63 72 65 61 74 65 64 20 74 68 72 been created thr
1e80: 6f 75 67 68 20 27 63 76 73 20 61 64 64 27 20 69 ough 'cvs add' i
1e90: 6e 73 74 65 61 64 20 6f 66 0a 09 23 20 27 63 76 nstead of..# 'cv
1ea0: 73 20 69 6d 70 6f 72 74 27 2e 20 54 68 69 73 20 s import'. This
1eb0: 63 61 6e 20 62 65 20 64 6f 6e 65 20 62 79 20 6c can be done by l
1ec0: 6f 6f 6b 69 6e 67 20 61 74 20 74 68 65 20 75 6e ooking at the un
1ed0: 2d 0a 09 23 20 61 64 75 6c 74 65 72 61 74 65 64 -..# adulterated
1ee0: 20 63 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 2c commit message,
1ef0: 20 61 73 20 43 56 53 20 75 73 65 73 20 61 20 68 as CVS uses a h
1f00: 61 72 64 77 69 72 65 64 20 6d 61 67 69 63 0a 09 ardwired magic..
1f10: 23 20 6d 65 73 73 61 67 65 20 66 6f 72 20 74 68 # message for th
1f20: 65 20 6c 61 74 74 65 72 2c 20 69 2e 65 2e 20 22 e latter, i.e. "
1f30: 49 6e 69 74 69 61 6c 20 72 65 76 69 73 69 6f 6e Initial revision
1f40: 5c 6e 22 2c 20 6e 6f 0a 09 23 20 70 65 72 69 6f \n", no..# perio
1f50: 64 2e 20 20 28 54 68 69 73 20 66 61 63 74 20 61 d. (This fact a
1f60: 6c 73 6f 20 68 65 6c 70 73 20 75 73 20 77 68 65 lso helps us whe
1f70: 6e 20 74 68 65 20 74 69 6d 65 20 63 6f 6d 65 73 n the time comes
1f80: 20 74 6f 0a 09 23 20 64 65 74 65 72 6d 69 6e 65 to..# determine
1f90: 20 77 68 65 74 68 65 72 20 74 68 69 73 20 66 69 whether this fi
1fa0: 6c 65 20 6d 69 67 68 74 20 68 61 76 65 20 68 61 le might have ha
1fb0: 64 20 61 20 64 65 66 61 75 6c 74 20 62 72 61 6e d a default bran
1fc0: 63 68 0a 09 23 20 69 6e 20 74 68 65 20 70 61 73 ch..# in the pas
1fd0: 74 2e 29 0a 0a 09 69 66 20 7b 24 72 65 76 6e 72 t.)...if {$revnr
1fe0: 20 65 71 20 22 31 2e 31 22 7d 20 7b 0a 09 20 20 eq "1.1"} {..
1ff0: 20 20 73 65 74 20 6d 79 69 6d 70 6f 72 74 65 64 set myimported
2000: 20 5b 65 78 70 72 20 7b 24 63 6f 6d 6d 69 74 6d [expr {$commitm
2010: 73 67 20 65 71 20 22 49 6e 69 74 69 61 6c 20 72 sg eq "Initial r
2020: 65 76 69 73 69 6f 6e 5c 6e 22 7d 5d 0a 09 7d 0a evision\n"}]..}.
2030: 0a 09 23 20 48 65 72 65 20 77 65 20 61 6c 73 6f ..# Here we also
2040: 20 6b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 74 keep track of t
2050: 68 65 20 6f 72 64 65 72 20 69 6e 20 77 68 69 63 he order in whic
2060: 68 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 0a h the revisions.
2070: 09 23 20 77 65 72 65 20 61 64 64 65 64 20 74 6f .# were added to
2080: 20 74 68 65 20 66 69 6c 65 2e 0a 0a 09 6c 61 70 the file....lap
2090: 70 65 6e 64 20 6d 79 72 65 76 69 73 69 6f 6e 73 pend myrevisions
20a0: 20 24 72 65 76 0a 09 72 65 74 75 72 6e 0a 20 20 $rev..return.
20b0: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
20c0: 64 6f 6e 65 20 7b 7d 20 7b 0a 09 23 20 43 6f 6d done {} {..# Com
20d0: 70 6c 65 74 65 20 74 68 65 20 72 65 76 69 73 69 plete the revisi
20e0: 6f 6e 73 2c 20 62 72 61 6e 63 68 65 73 2c 20 61 ons, branches, a
20f0: 6e 64 20 74 61 67 73 2e 20 54 68 69 73 20 69 6e nd tags. This in
2100: 63 6c 75 64 65 73 0a 09 23 20 6c 6f 6f 6b 69 6e cludes..# lookin
2110: 67 20 66 6f 72 20 61 20 6e 6f 6e 2d 74 72 75 6e g for a non-trun
2120: 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 k default branch
2130: 2c 20 6d 61 72 6b 69 6e 67 20 69 74 73 20 6d 65 , marking its me
2140: 6d 62 65 72 73 0a 09 23 20 61 6e 64 20 6c 69 6e mbers..# and lin
2150: 6b 69 6e 67 20 74 68 65 6d 20 69 6e 74 6f 20 74 king them into t
2160: 68 65 20 74 72 75 6e 6b 2c 20 70 6f 73 73 69 62 he trunk, possib
2170: 6c 79 20 65 78 63 6c 75 64 69 6e 67 0a 09 23 20 ly excluding..#
2180: 6e 6f 6e 2d 74 72 75 6e 6b 20 64 61 74 61 2c 20 non-trunk data,
2190: 61 6e 64 20 63 6f 6c 6c 65 63 74 69 6e 67 20 61 and collecting a
21a0: 67 67 72 65 67 61 74 65 20 73 79 6d 62 6f 6c 20 ggregate symbol
21b0: 73 74 61 74 69 73 74 69 63 73 2e 0a 0a 09 24 73 statistics....$s
21c0: 65 6c 66 20 44 65 74 65 72 6d 69 6e 65 52 65 76 elf DetermineRev
21d0: 69 73 69 6f 6e 4f 70 65 72 61 74 69 6f 6e 73 0a isionOperations.
21e0: 09 24 73 65 6c 66 20 44 65 74 65 72 6d 69 6e 65 .$self Determine
21f0: 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 LinesOfDevelopme
2200: 6e 74 0a 09 24 73 65 6c 66 20 48 61 6e 64 6c 65 nt..$self Handle
2210: 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 75 6c 74 42 NonTrunkDefaultB
2220: 72 61 6e 63 68 0a 09 24 73 65 6c 66 20 52 65 6d ranch..$self Rem
2230: 6f 76 65 49 72 72 65 6c 65 76 61 6e 74 44 65 6c oveIrrelevantDel
2240: 65 74 69 6f 6e 73 0a 09 24 73 65 6c 66 20 52 65 etions..$self Re
2250: 6d 6f 76 65 49 6e 69 74 69 61 6c 42 72 61 6e 63 moveInitialBranc
2260: 68 44 65 6c 65 74 69 6f 6e 73 0a 0a 09 69 66 20 hDeletions...if
2270: 7b 5b 24 6d 79 70 72 6f 6a 65 63 74 20 74 72 75 {[$myproject tru
2280: 6e 6b 6f 6e 6c 79 5d 7d 20 7b 0a 09 20 20 20 20 nkonly]} {..
2290: 24 73 65 6c 66 20 45 78 63 6c 75 64 65 4e 6f 6e $self ExcludeNon
22a0: 54 72 75 6e 6b 49 6e 66 6f 72 6d 61 74 69 6f 6e TrunkInformation
22b0: 0a 09 7d 0a 0a 09 24 73 65 6c 66 20 41 67 67 72 ..}...$self Aggr
22c0: 65 67 61 74 65 53 79 6d 62 6f 6c 44 61 74 61 0a egateSymbolData.
22d0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
22e0: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
22f0: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
2300: 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 ##########. #
2310: 23 20 50 61 73 73 20 58 49 49 20 28 49 6d 70 6f # Pass XII (Impo
2320: 72 74 29 2e 0a 0a 20 20 20 20 6d 65 74 68 6f 64 rt)... method
2330: 20 70 75 73 68 74 6f 20 7b 72 65 70 6f 73 69 74 pushto {reposit
2340: 6f 72 79 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 74 ory} {..log writ
2350: 65 20 32 20 66 69 6c 65 20 7b 49 6d 70 6f 72 74 e 2 file {Import
2360: 69 6e 67 20 66 69 6c 65 20 22 24 6d 79 70 61 74 ing file "$mypat
2370: 68 22 7d 0a 0a 09 73 65 74 20 77 73 20 5b 24 72 h"}...set ws [$r
2380: 65 70 6f 73 69 74 6f 72 79 20 77 6f 72 6b 73 70 epository worksp
2390: 61 63 65 5d 0a 09 73 74 72 75 63 74 3a 3a 6c 69 ace]..struct::li
23a0: 73 74 20 61 73 73 69 67 6e 20 5b 24 73 65 6c 66 st assign [$self
23b0: 20 45 78 70 61 6e 64 20 24 77 73 5d 20 66 69 6c Expand $ws] fil
23c0: 65 6d 61 70 20 72 65 76 6d 61 70 0a 09 23 20 66 emap revmap..# f
23d0: 69 6c 65 6d 61 70 20 3d 20 64 69 63 74 20 28 70 ilemap = dict (p
23e0: 61 74 68 20 2d 3e 20 75 75 69 64 29 0a 09 23 20 ath -> uuid)..#
23f0: 72 65 76 6d 61 70 20 20 3d 20 64 69 63 74 20 28 revmap = dict (
2400: 70 61 74 68 20 2d 3e 20 72 69 64 29 0a 0a 09 61 path -> rid)...a
2410: 72 72 61 79 20 73 65 74 20 69 64 6d 61 70 20 5b rray set idmap [
2420: 24 72 65 70 6f 73 69 74 6f 72 79 20 69 6d 70 6f $repository impo
2430: 72 74 66 69 6c 65 73 20 24 66 69 6c 65 6d 61 70 rtfiles $filemap
2440: 5d 0a 0a 09 23 20 57 69 70 65 20 77 6f 72 6b 73 ]...# Wipe works
2450: 70 61 63 65 20 63 6c 65 61 6e 20 6f 66 20 74 68 pace clean of th
2460: 65 20 69 6d 70 6f 72 74 65 64 20 66 69 6c 65 73 e imported files
2470: 2e 0a 09 66 6f 72 65 61 63 68 20 78 20 5b 67 6c ...foreach x [gl
2480: 6f 62 20 2d 64 69 72 65 63 74 6f 72 79 20 24 77 ob -directory $w
2490: 73 20 72 2a 5d 20 7b 20 3a 3a 66 69 6c 65 20 64 s r*] { ::file d
24a0: 65 6c 65 74 65 20 24 78 20 7d 0a 0a 09 66 6f 72 elete $x }...for
24b0: 65 61 63 68 20 7b 70 61 74 68 20 72 69 64 7d 20 each {path rid}
24c0: 24 72 65 76 6d 61 70 20 7b 0a 09 20 20 20 20 73 $revmap {.. s
24d0: 65 74 20 75 75 69 64 20 24 69 64 6d 61 70 28 24 et uuid $idmap($
24e0: 70 61 74 68 29 0a 09 20 20 20 20 73 74 61 74 65 path).. state
24f0: 20 72 75 6e 20 7b 0a 09 09 49 4e 53 45 52 54 20 run {...INSERT
2500: 49 4e 54 4f 20 72 65 76 75 75 69 64 20 28 72 69 INTO revuuid (ri
2510: 64 2c 20 20 75 75 69 64 29 0a 09 09 56 41 4c 55 d, uuid)...VALU
2520: 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ES
2530: 28 24 72 69 64 2c 20 24 75 75 69 64 29 0a 09 20 ($rid, $uuid)..
2540: 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a }..}..return.
2550: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
2560: 64 20 45 78 70 61 6e 64 20 7b 64 69 72 7d 20 7b d Expand {dir} {
2570: 0a 09 73 65 74 20 65 78 20 5b 73 74 72 75 63 74 ..set ex [struct
2580: 3a 3a 67 72 61 70 68 20 65 78 5d 20 3b 20 23 20 ::graph ex] ; #
2590: 45 78 70 61 6e 73 69 6f 6e 20 67 72 61 70 68 2e Expansion graph.
25a0: 0a 09 73 65 74 20 7a 70 20 5b 73 74 72 75 63 74 ..set zp [struct
25b0: 3a 3a 67 72 61 70 68 20 7a 70 5d 20 3b 20 23 20 ::graph zp] ; #
25c0: 5a 69 70 2f 49 6d 70 6f 72 74 20 67 72 61 70 68 Zip/Import graph
25d0: 2e 0a 0a 09 63 6c 6f 73 65 20 5b 6f 70 65 6e 20 ....close [open
25e0: 24 64 69 72 2f 72 5f 5f 65 6d 70 74 79 5f 5f 20 $dir/r__empty__
25f0: 77 5d 3b 23 20 42 61 73 65 20 66 6f 72 20 64 65 w];# Base for de
2600: 74 61 63 68 65 64 20 72 6f 6f 74 73 20 6f 6e 20 tached roots on
2610: 62 72 61 6e 63 68 65 73 2e 0a 0a 09 23 20 50 68 branches....# Ph
2620: 61 73 65 20 49 3a 20 50 75 6c 6c 20 62 6c 6f 62 ase I: Pull blob
2630: 73 20 61 6e 64 20 72 65 66 65 72 65 6e 63 65 64 s and referenced
2640: 20 72 65 76 69 73 69 6f 6e 73 20 66 72 6f 6d 20 revisions from
2650: 74 68 65 20 73 74 61 74 65 0a 09 23 20 20 20 20 the state..#
2660: 20 20 20 20 20 20 61 6e 64 20 66 69 6c 6c 20 74 and fill t
2670: 68 65 20 67 72 61 70 68 73 20 77 69 74 68 20 74 he graphs with t
2680: 68 65 6d 2e 2e 2e 0a 0a 09 23 20 4e 6f 74 65 3a hem......# Note:
2690: 20 57 65 20 75 73 65 20 74 68 65 20 62 6c 6f 62 We use the blob
26a0: 73 20 66 6f 72 20 65 78 70 61 6e 73 69 6f 6e 20 s for expansion
26b0: 62 65 63 61 75 73 65 20 77 65 20 6e 65 65 64 20 because we need
26c0: 74 68 65 6d 0a 09 23 20 20 20 20 20 20 20 61 6c them..# al
26d0: 6c 2c 20 65 76 65 6e 20 74 68 6f 73 65 20 77 69 l, even those wi
26e0: 74 68 6f 75 74 20 72 65 76 69 73 69 6f 6e 2c 20 thout revision,
26f0: 66 6f 72 20 62 6f 74 68 20 70 72 6f 70 65 72 0a for both proper.
2700: 09 23 20 20 20 20 20 20 20 6f 72 64 65 72 69 6e .# orderin
2710: 67 20 61 6e 64 20 65 78 61 63 74 20 70 61 74 63 g and exact patc
2720: 68 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 0a 0a h application...
2730: 09 73 65 74 20 65 61 72 63 73 20 20 20 7b 7d 20 .set earcs {}
2740: 3b 20 23 20 41 72 63 73 20 66 6f 72 20 65 78 70 ; # Arcs for exp
2750: 61 6e 73 69 6f 6e 20 67 72 61 70 68 0a 09 73 65 ansion graph..se
2760: 74 20 7a 61 72 63 73 20 20 20 7b 7d 20 3b 20 23 t zarcs {} ; #
2770: 20 41 72 63 73 20 66 6f 72 20 7a 69 70 20 67 72 Arcs for zip gr
2780: 61 70 68 0a 09 73 65 74 20 72 65 76 6d 61 70 20 aph..set revmap
2790: 20 7b 7d 20 3b 20 23 20 70 61 74 68 20 2d 3e 20 {} ; # path ->
27a0: 72 69 64 20 6d 61 70 20 74 6f 20 6c 61 74 65 72 rid map to later
27b0: 20 6d 65 72 67 65 20 75 75 69 64 20 69 6e 66 6f merge uuid info
27c0: 72 6d 61 74 69 6f 6e 0a 0a 09 66 6f 72 65 61 63 rmation...foreac
27d0: 68 20 7b 72 69 64 20 72 65 76 6e 72 20 70 61 72 h {rid revnr par
27e0: 65 6e 74 20 63 68 69 6c 64 20 63 6f 66 66 20 63 ent child coff c
27f0: 6c 65 6e 20 63 69 64 20 63 70 61 72 65 6e 74 7d len cid cparent}
2800: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
2810: 20 20 20 53 45 4c 45 43 54 20 42 2e 72 69 64 2c SELECT B.rid,
2820: 20 52 2e 72 65 76 2c 20 52 2e 70 61 72 65 6e 74 R.rev, R.parent
2830: 2c 20 52 2e 63 68 69 6c 64 2c 20 42 2e 63 6f 66 , R.child, B.cof
2840: 66 2c 20 42 2e 63 6c 65 6e 2c 20 42 2e 62 69 64 f, B.clen, B.bid
2850: 2c 20 42 2e 70 69 64 0a 09 20 20 20 20 46 52 4f , B.pid.. FRO
2860: 4d 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 6f M blo
2870: 62 20 42 0a 09 20 20 20 20 4c 45 46 54 20 4f 55 b B.. LEFT OU
2880: 54 45 52 20 4a 4f 49 4e 20 72 65 76 69 73 69 6f TER JOIN revisio
2890: 6e 20 52 0a 09 20 20 20 20 4f 4e 20 20 20 20 20 n R.. ON
28a0: 20 20 20 20 20 20 20 20 20 42 2e 72 69 64 20 3d B.rid =
28b0: 20 52 2e 72 69 64 0a 09 20 20 20 20 57 48 45 52 R.rid.. WHER
28c0: 45 20 20 42 2e 66 69 64 20 3d 20 24 6d 79 69 64 E B.fid = $myid
28d0: 0a 09 7d 5d 20 7b 0a 09 20 20 20 20 23 20 4d 61 ..}] {.. # Ma
28e0: 69 6e 20 64 61 74 61 20 61 72 65 20 62 6c 6f 62 in data are blob
28f0: 73 2c 20 6d 6f 73 74 20 77 69 6c 6c 20 68 61 76 s, most will hav
2900: 65 20 72 65 76 69 73 69 6f 6e 73 2c 20 62 75 74 e revisions, but
2910: 20 6e 6f 74 0a 09 20 20 20 20 23 20 61 6c 6c 2e not.. # all.
2920: 20 54 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 67 The expansion g
2930: 72 61 70 68 20 69 73 20 62 6c 6f 62 20 62 61 73 raph is blob bas
2940: 65 64 2c 20 77 68 65 72 65 61 73 20 74 68 65 0a ed, whereas the.
2950: 09 20 20 20 20 23 20 72 65 63 6f 6d 70 72 65 73 . # recompres
2960: 73 69 6f 6e 20 67 72 61 70 68 20 69 73 20 72 65 sion graph is re
2970: 76 69 73 69 6f 6e 20 62 61 73 65 64 2e 0a 0a 09 vision based....
2980: 20 20 20 20 69 66 20 7b 24 72 65 76 6e 72 20 6e if {$revnr n
2990: 65 20 22 22 7d 20 7b 0a 09 09 23 20 42 6c 6f 62 e ""} {...# Blob
29a0: 20 68 61 73 20 72 65 76 69 73 69 6f 6e 2c 20 65 has revision, e
29b0: 78 74 65 6e 64 20 72 65 63 6f 6d 70 72 65 73 73 xtend recompress
29c0: 69 6f 6e 20 67 72 61 70 68 2e 0a 0a 09 09 6c 61 ion graph.....la
29d0: 70 70 65 6e 64 20 72 65 76 6d 61 70 20 72 24 72 ppend revmap r$r
29e0: 65 76 6e 72 20 24 72 69 64 0a 0a 09 09 24 7a 70 evnr $rid....$zp
29f0: 20 6e 6f 64 65 20 69 6e 73 65 72 74 20 24 72 69 node insert $ri
2a00: 64 0a 09 09 24 7a 70 20 6e 6f 64 65 20 73 65 74 d...$zp node set
2a10: 20 20 20 20 24 72 69 64 20 72 65 76 6e 72 20 24 $rid revnr $
2a20: 72 65 76 6e 72 0a 09 09 24 7a 70 20 6e 6f 64 65 revnr...$zp node
2a30: 20 73 65 74 20 20 20 20 24 72 69 64 20 6c 61 62 set $rid lab
2a40: 65 6c 20 3c 24 72 65 76 6e 72 3e 0a 0a 09 09 69 el <$revnr>....i
2a50: 66 20 7b 24 63 68 69 6c 64 20 6e 65 20 22 22 7d f {$child ne ""}
2a60: 20 7b 0a 09 09 20 20 20 20 6c 61 70 70 65 6e 64 {... lappend
2a70: 20 7a 61 72 63 73 20 24 63 68 69 6c 64 20 24 72 zarcs $child $r
2a80: 69 64 0a 09 09 7d 0a 09 20 20 20 20 7d 20 65 6c id...}.. } el
2a90: 73 65 20 7b 0a 09 09 23 20 57 65 20 66 61 6b 65 se {...# We fake
2aa0: 20 61 20 72 65 76 6e 72 20 66 6f 72 20 74 68 65 a revnr for the
2ab0: 20 62 6c 6f 62 73 20 77 68 69 63 68 20 68 61 76 blobs which hav
2ac0: 65 20 6e 6f 0a 09 09 23 20 72 65 76 69 73 69 6f e no...# revisio
2ad0: 6e 2c 20 66 6f 72 20 75 73 65 20 69 6e 20 74 68 n, for use in th
2ae0: 65 20 65 78 70 61 6e 73 69 6f 6e 20 67 72 61 70 e expansion grap
2af0: 68 2e 0a 09 09 73 65 74 20 72 65 76 6e 72 20 67 h....set revnr g
2b00: 68 6f 73 74 24 63 69 64 0a 09 20 20 20 20 7d 0a host$cid.. }.
2b10: 0a 09 20 20 20 20 23 20 4e 6f 77 20 74 68 65 20 .. # Now the
2b20: 65 78 70 61 6e 73 69 6f 6e 20 67 72 61 70 68 2e expansion graph.
2b30: 0a 0a 09 20 20 20 20 24 65 78 20 6e 6f 64 65 20 ... $ex node
2b40: 69 6e 73 65 72 74 20 24 63 69 64 0a 09 20 20 20 insert $cid..
2b50: 20 24 65 78 20 6e 6f 64 65 20 73 65 74 20 20 20 $ex node set
2b60: 20 24 63 69 64 20 74 65 78 74 20 20 5b 6c 69 73 $cid text [lis
2b70: 74 20 24 63 6f 66 66 20 24 63 6c 65 6e 5d 0a 09 t $coff $clen]..
2b80: 20 20 20 20 24 65 78 20 6e 6f 64 65 20 73 65 74 $ex node set
2b90: 20 20 20 20 24 63 69 64 20 72 65 76 6e 72 20 24 $cid revnr $
2ba0: 72 65 76 6e 72 0a 09 20 20 20 20 24 65 78 20 6e revnr.. $ex n
2bb0: 6f 64 65 20 73 65 74 20 20 20 20 24 63 69 64 20 ode set $cid
2bc0: 6c 61 62 65 6c 20 3c 24 72 65 76 6e 72 3e 0a 0a label <$revnr>..
2bd0: 09 20 20 20 20 69 66 20 7b 24 63 70 61 72 65 6e . if {$cparen
2be0: 74 20 6e 65 20 22 22 7d 20 7b 0a 09 09 23 20 54 t ne ""} {...# T
2bf0: 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 61 72 63 he expansion arc
2c00: 73 20 67 6f 20 66 72 6f 6d 20 62 61 73 65 6c 69 s go from baseli
2c10: 6e 65 20 74 6f 20 64 65 6c 74 61 0a 09 09 23 20 ne to delta...#
2c20: 64 65 73 63 65 6e 64 61 6e 74 2c 20 62 61 73 65 descendant, base
2c30: 64 20 6f 6e 20 74 68 65 20 62 6c 6f 62 20 69 6e d on the blob in
2c40: 66 6f 72 6d 61 74 69 6f 6e 2e 0a 09 09 6c 61 70 formation....lap
2c50: 70 65 6e 64 20 65 61 72 63 73 20 24 63 70 61 72 pend earcs $cpar
2c60: 65 6e 74 20 24 63 69 64 0a 09 20 20 20 20 7d 0a ent $cid.. }.
2c70: 09 7d 0a 0a 09 23 20 50 68 61 73 65 20 49 49 3a .}...# Phase II:
2c80: 20 49 6e 73 65 72 74 20 74 68 65 20 61 63 63 75 Insert the accu
2c90: 6d 75 6c 61 74 65 64 20 64 65 70 65 6e 64 65 6e mulated dependen
2ca0: 63 69 65 73 0a 0a 09 66 6f 72 65 61 63 68 20 7b cies...foreach {
2cb0: 66 72 6f 6d 20 74 6f 7d 20 24 65 61 72 63 73 20 from to} $earcs
2cc0: 7b 20 24 65 78 20 61 72 63 20 69 6e 73 65 72 74 { $ex arc insert
2cd0: 20 24 66 72 6f 6d 20 24 74 6f 20 7d 0a 09 66 6f $from $to }..fo
2ce0: 72 65 61 63 68 20 7b 66 72 6f 6d 20 74 6f 7d 20 reach {from to}
2cf0: 24 7a 61 72 63 73 20 7b 20 24 7a 70 20 61 72 63 $zarcs { $zp arc
2d00: 20 69 6e 73 65 72 74 20 24 66 72 6f 6d 20 24 74 insert $from $t
2d10: 6f 20 7d 0a 0a 09 23 20 50 68 61 73 65 20 49 49 o }...# Phase II
2d20: 49 3a 20 54 72 61 76 65 72 73 65 20 74 68 65 20 I: Traverse the
2d30: 67 72 61 70 68 73 2c 20 65 78 70 61 6e 64 20 74 graphs, expand t
2d40: 68 65 20 66 69 6c 65 2c 20 61 6e 64 0a 09 23 20 he file, and..#
2d50: 20 20 20 20 20 20 20 20 20 20 20 67 65 6e 65 72 gener
2d60: 61 74 65 20 69 6d 70 6f 72 74 20 69 6e 73 74 72 ate import instr
2d70: 75 63 74 69 6f 6e 73 2e 0a 0a 09 73 65 74 20 61 uctions....set a
2d80: 72 63 68 69 76 65 20 5b 3a 3a 66 69 6c 65 20 6a rchive [::file j
2d90: 6f 69 6e 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 oin [$myproject
2da0: 66 75 6c 6c 70 61 74 68 5d 20 24 6d 79 70 61 74 fullpath] $mypat
2db0: 68 5d 0a 09 73 65 74 20 61 63 20 20 20 20 20 20 h]..set ac
2dc0: 5b 6f 70 65 6e 20 24 61 72 63 68 69 76 65 20 72 [open $archive r
2dd0: 5d 0a 09 66 63 6f 6e 66 69 67 75 72 65 20 24 61 ]..fconfigure $a
2de0: 63 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 c -translation b
2df0: 69 6e 61 72 79 0a 0a 09 23 20 46 69 72 73 74 20 inary...# First
2e00: 74 72 61 76 65 72 73 65 20 74 68 65 20 65 78 70 traverse the exp
2e10: 61 6e 73 69 6f 6e 20 67 72 61 70 68 2c 20 74 68 ansion graph, th
2e20: 69 73 20 67 69 76 65 73 20 75 73 20 74 68 65 0a is gives us the.
2e30: 09 23 20 72 65 76 69 73 69 6f 6e 73 20 69 6e 20 .# revisions in
2e40: 74 68 65 20 6f 72 64 65 72 20 77 65 20 68 61 76 the order we hav
2e50: 65 20 74 6f 20 65 78 70 61 6e 64 20 74 68 65 6d e to expand them
2e60: 2c 20 77 68 69 63 68 20 77 65 20 64 6f 2e 0a 0a , which we do...
2e70: 09 73 65 74 20 6d 61 78 20 5b 6c 6c 65 6e 67 74 .set max [llengt
2e80: 68 20 5b 24 65 78 20 6e 6f 64 65 73 5d 5d 0a 09 h [$ex nodes]]..
2e90: 73 65 74 20 6d 79 69 6d 70 6f 72 74 20 30 0a 0a set myimport 0..
2ea0: 09 67 74 63 6f 72 65 20 64 61 74 61 63 6d 64 20 .gtcore datacmd
2eb0: 20 20 5b 6d 79 6d 65 74 68 6f 64 20 45 78 70 61 [mymethod Expa
2ec0: 6e 64 44 61 74 61 5d 0a 09 67 74 63 6f 72 65 20 ndData]..gtcore
2ed0: 66 6f 72 6d 61 74 63 6d 64 20 5b 6d 79 6d 65 74 formatcmd [mymet
2ee0: 68 6f 64 20 45 78 70 61 6e 64 46 6f 72 6d 61 74 hod ExpandFormat
2ef0: 5d 0a 09 67 74 63 6f 72 65 20 73 6f 72 74 63 6d ]..gtcore sortcm
2f00: 64 20 20 20 5b 6d 79 6d 65 74 68 6f 64 20 45 78 d [mymethod Ex
2f10: 70 61 6e 64 53 6f 72 74 5d 0a 09 67 74 63 6f 72 pandSort]..gtcor
2f20: 65 20 73 61 76 65 63 6d 64 20 20 20 5b 6d 79 6d e savecmd [mym
2f30: 65 74 68 6f 64 20 45 78 70 61 6e 64 31 20 24 61 ethod Expand1 $a
2f40: 63 20 24 64 69 72 20 24 6d 61 78 5d 0a 0a 09 67 c $dir $max]...g
2f50: 74 63 6f 72 65 20 74 72 61 76 65 72 73 65 20 24 tcore traverse $
2f60: 65 78 20 7b 45 78 70 61 6e 64 69 6e 67 20 72 65 ex {Expanding re
2f70: 76 69 73 69 6f 6e 73 2e 2e 2e 7d 0a 09 63 6c 6f visions...}..clo
2f80: 73 65 20 24 61 63 0a 0a 09 23 20 4e 6f 77 20 74 se $ac...# Now t
2f90: 72 61 76 65 72 73 65 20 74 68 65 20 69 6d 70 6f raverse the impo
2fa0: 72 74 20 67 72 61 70 68 2c 20 74 68 69 73 20 62 rt graph, this b
2fb0: 75 69 6c 64 73 20 74 68 65 20 69 6e 73 74 72 75 uilds the instru
2fc0: 63 74 69 6f 6e 0a 09 23 20 6d 61 70 20 66 6f 72 ction..# map for
2fd0: 20 74 68 65 20 66 6f 73 73 69 6c 20 64 65 6c 74 the fossil delt
2fe0: 61 73 2e 0a 0a 09 67 74 63 6f 72 65 20 64 61 74 as....gtcore dat
2ff0: 61 63 6d 64 20 20 20 5b 6d 79 6d 65 74 68 6f 64 acmd [mymethod
3000: 20 45 78 70 61 6e 64 44 61 74 61 5d 0a 09 67 74 ExpandData]..gt
3010: 63 6f 72 65 20 66 6f 72 6d 61 74 63 6d 64 20 5b core formatcmd [
3020: 6d 79 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 46 mymethod ExpandF
3030: 6f 72 6d 61 74 5d 0a 09 67 74 63 6f 72 65 20 73 ormat]..gtcore s
3040: 6f 72 74 63 6d 64 20 20 20 5b 6d 79 6d 65 74 68 ortcmd [mymeth
3050: 6f 64 20 45 78 70 61 6e 64 53 6f 72 74 5d 0a 09 od ExpandSort]..
3060: 67 74 63 6f 72 65 20 73 61 76 65 63 6d 64 20 20 gtcore savecmd
3070: 20 5b 6d 79 6d 65 74 68 6f 64 20 45 78 70 61 6e [mymethod Expan
3080: 64 32 5d 0a 0a 09 73 65 74 20 6d 79 69 6d 70 6f d2]...set myimpo
3090: 72 74 20 7b 7d 0a 09 67 74 63 6f 72 65 20 74 72 rt {}..gtcore tr
30a0: 61 76 65 72 73 65 20 24 7a 70 20 7b 47 65 6e 65 averse $zp {Gene
30b0: 72 61 74 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 rating revision
30c0: 6f 72 64 65 72 20 66 6f 72 20 69 6d 70 6f 72 74 order for import
30d0: 2e 2e 2e 7d 0a 09 73 65 74 20 66 69 6c 65 6d 61 ...}..set filema
30e0: 70 20 24 6d 79 69 6d 70 6f 72 74 0a 09 75 6e 73 p $myimport..uns
30f0: 65 74 20 6d 79 69 6d 70 6f 72 74 0a 0a 09 23 20 et myimport...#
3100: 41 6e 64 20 62 61 63 6b 20 74 6f 20 69 6d 70 6f And back to impo
3110: 72 74 20 63 6f 6e 74 72 6f 6c 0a 0a 09 24 65 78 rt control...$ex
3120: 20 64 65 73 74 72 6f 79 0a 09 24 7a 70 20 64 65 destroy..$zp de
3130: 73 74 72 6f 79 0a 0a 09 72 65 74 75 72 6e 20 5b stroy...return [
3140: 6c 69 73 74 20 24 66 69 6c 65 6d 61 70 20 24 72 list $filemap $r
3150: 65 76 6d 61 70 5d 0a 20 20 20 20 7d 0a 0a 20 20 evmap]. }..
3160: 20 20 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 44 method ExpandD
3170: 61 74 61 20 20 20 7b 67 72 61 70 68 20 6e 6f 64 ata {graph nod
3180: 65 7d 20 7b 20 72 65 74 75 72 6e 20 5b 24 67 72 e} { return [$gr
3190: 61 70 68 20 6e 6f 64 65 20 67 65 74 20 24 6e 6f aph node get $no
31a0: 64 65 20 72 65 76 6e 72 5d 20 7d 0a 20 20 20 20 de revnr] }.
31b0: 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 46 6f 72 method ExpandFor
31c0: 6d 61 74 20 7b 67 72 61 70 68 20 69 74 65 6d 7d mat {graph item}
31d0: 20 7b 20 72 65 74 75 72 6e 20 3c 5b 6c 69 6e 64 { return <[lind
31e0: 65 78 20 24 69 74 65 6d 20 31 5d 3e 20 7d 20 3b ex $item 1]> } ;
31f0: 20 23 20 72 65 76 6e 72 0a 20 20 20 20 6d 65 74 # revnr. met
3200: 68 6f 64 20 45 78 70 61 6e 64 53 6f 72 74 20 20 hod ExpandSort
3210: 20 7b 67 72 61 70 68 20 63 61 6e 64 69 64 61 74 {graph candidat
3220: 65 73 7d 20 7b 0a 09 23 20 63 61 6e 64 69 64 61 es} {..# candida
3230: 74 65 73 20 3d 20 6c 69 73 74 28 69 74 65 6d 29 tes = list(item)
3240: 2c 20 69 74 65 6d 20 3d 20 6c 69 73 74 28 6e 6f , item = list(no
3250: 64 65 20 72 65 76 6e 72 29 0a 09 23 20 53 6f 72 de revnr)..# Sor
3260: 74 20 62 79 20 6e 6f 64 65 20 61 6e 64 20 72 65 t by node and re
3270: 76 6e 72 20 2d 3e 20 54 72 75 6e 6b 20 72 65 76 vnr -> Trunk rev
3280: 69 73 69 6f 6e 73 20 63 6f 6d 65 20 66 69 72 73 isions come firs
3290: 74 2e 0a 09 72 65 74 75 72 6e 20 5b 6c 73 6f 72 t...return [lsor
32a0: 74 20 2d 69 6e 64 65 78 20 31 20 2d 64 69 63 74 t -index 1 -dict
32b0: 20 5b 6c 73 6f 72 74 20 2d 69 6e 64 65 78 20 30 [lsort -index 0
32c0: 20 2d 64 69 63 74 20 24 63 61 6e 64 69 64 61 74 -dict $candidat
32d0: 65 73 5d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 6d es]]. }. m
32e0: 65 74 68 6f 64 20 45 78 70 61 6e 64 31 20 7b 63 ethod Expand1 {c
32f0: 68 61 6e 20 64 69 72 20 6d 61 78 20 67 72 61 70 han dir max grap
3300: 68 20 6e 6f 64 65 7d 20 7b 0a 09 6c 6f 67 20 70 h node} {..log p
3310: 72 6f 67 72 65 73 73 20 33 20 66 69 6c 65 20 24 rogress 3 file $
3320: 6d 79 69 6d 70 6f 72 74 20 24 6d 61 78 20 3b 20 myimport $max ;
3330: 69 6e 63 72 20 6d 79 69 6d 70 6f 72 74 0a 0a 09 incr myimport...
3340: 73 65 74 20 72 65 76 6e 72 20 20 20 20 20 20 20 set revnr
3350: 20 20 20 20 5b 24 67 72 61 70 68 20 6e 6f 64 65 [$graph node
3360: 20 67 65 74 20 24 6e 6f 64 65 20 72 65 76 6e 72 get $node revnr
3370: 5d 0a 09 73 65 74 20 66 6e 61 6d 65 20 20 20 20 ]..set fname
3380: 20 20 20 20 20 20 72 24 72 65 76 6e 72 0a 09 73 r$revnr..s
3390: 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 truct::list assi
33a0: 67 6e 20 5b 24 67 72 61 70 68 20 6e 6f 64 65 20 gn [$graph node
33b0: 67 65 74 20 24 6e 6f 64 65 20 74 65 78 74 5d 20 get $node text]
33c0: 6f 66 66 73 65 74 20 6c 65 6e 67 74 68 0a 0a 09 offset length...
33d0: 69 66 20 7b 24 6c 65 6e 67 74 68 20 3c 20 30 7d if {$length < 0}
33e0: 20 7b 0a 09 20 20 20 20 73 65 74 20 64 61 74 61 {.. set data
33f0: 20 22 22 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 ""..} else {..
3400: 20 20 20 73 65 65 6b 20 24 63 68 61 6e 20 24 6f seek $chan $o
3410: 66 66 73 65 74 20 73 74 61 72 74 0a 09 20 20 20 ffset start..
3420: 20 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e set data [strin
3430: 67 20 6d 61 70 20 7b 40 40 20 40 7d 20 5b 72 65 g map {@@ @} [re
3440: 61 64 20 24 63 68 61 6e 20 24 6c 65 6e 67 74 68 ad $chan $length
3450: 5d 5d 0a 09 7d 0a 0a 09 69 66 20 7b 21 5b 24 67 ]]..}...if {![$g
3460: 72 61 70 68 20 6e 6f 64 65 20 6b 65 79 65 78 69 raph node keyexi
3470: 73 74 73 20 24 6e 6f 64 65 20 5f 5f 62 61 73 65 sts $node __base
3480: 5f 5f 5d 7d 20 7b 0a 09 20 20 20 20 23 20 46 75 __]} {.. # Fu
3490: 6c 6c 20 74 65 78 74 20 6e 6f 64 65 2e 20 47 65 ll text node. Ge
34a0: 74 20 74 68 65 20 64 61 74 61 2c 20 64 65 63 6f t the data, deco
34b0: 64 65 20 69 74 2c 20 61 6e 64 20 73 61 76 65 2e de it, and save.
34c0: 0a 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 ... log write
34d0: 20 38 20 66 69 6c 65 20 7b 45 78 70 61 6e 64 69 8 file {Expandi
34e0: 6e 67 20 3c 24 72 65 76 6e 72 3e 2c 20 66 75 6c ng <$revnr>, ful
34f0: 6c 20 74 65 78 74 7d 0a 0a 09 20 20 20 20 66 69 l text}... fi
3500: 6c 65 75 74 69 6c 3a 3a 77 72 69 74 65 46 69 6c leutil::writeFil
3510: 65 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 e -translation b
3520: 69 6e 61 72 79 20 24 64 69 72 2f 24 66 6e 61 6d inary $dir/$fnam
3530: 65 20 24 64 61 74 61 0a 09 7d 20 65 6c 73 65 20 e $data..} else
3540: 7b 0a 09 20 20 20 20 23 20 44 65 6c 74 61 20 6e {.. # Delta n
3550: 6f 64 65 2e 20 5f 5f 62 61 73 65 5f 5f 20 69 73 ode. __base__ is
3560: 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 the name of the
3570: 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 file containing
3580: 0a 09 20 20 20 20 23 20 74 68 65 20 62 61 73 65 .. # the base
3590: 6c 69 6e 65 2e 20 54 68 65 20 70 61 74 63 68 20 line. The patch
35a0: 69 73 20 61 74 20 74 68 65 20 73 70 65 63 69 66 is at the specif
35b0: 69 65 64 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 0a ied location of.
35c0: 09 20 20 20 20 23 20 74 68 65 20 61 72 63 68 69 . # the archi
35d0: 76 65 20 66 69 6c 65 2e 0a 0a 09 20 20 20 20 73 ve file.... s
35e0: 65 74 20 66 62 61 73 65 20 5b 24 67 72 61 70 68 et fbase [$graph
35f0: 20 6e 6f 64 65 20 67 65 74 20 24 6e 6f 64 65 20 node get $node
3600: 5f 5f 62 61 73 65 5f 5f 5d 0a 09 20 20 20 20 6c __base__].. l
3610: 6f 67 20 77 72 69 74 65 20 38 20 66 69 6c 65 20 og write 8 file
3620: 7b 45 78 70 61 6e 64 69 6e 67 20 3c 24 72 65 76 {Expanding <$rev
3630: 6e 72 3e 2c 20 69 73 20 64 65 6c 74 61 20 6f 66 nr>, is delta of
3640: 20 3c 24 66 62 61 73 65 3e 7d 0a 0a 09 20 20 20 <$fbase>}...
3650: 20 73 65 74 20 62 61 73 65 20 5b 66 69 6c 65 75 set base [fileu
3660: 74 69 6c 3a 3a 63 61 74 20 2d 74 72 61 6e 73 6c til::cat -transl
3670: 61 74 69 6f 6e 20 62 69 6e 61 72 79 20 24 64 69 ation binary $di
3680: 72 2f 24 66 62 61 73 65 5d 0a 0a 09 20 20 20 20 r/$fbase]...
3690: 23 20 57 72 69 74 69 6e 67 20 74 68 65 20 70 61 # Writing the pa
36a0: 74 63 68 20 74 6f 20 64 69 73 6b 20 69 73 20 6a tch to disk is j
36b0: 75 73 74 20 66 6f 72 20 62 65 74 74 65 72 0a 09 ust for better..
36c0: 20 20 20 20 23 20 64 65 62 75 67 67 69 6e 67 2e # debugging.
36d0: 20 49 74 20 69 73 20 6e 6f 74 20 75 73 65 64 20 It is not used
36e0: 6f 74 68 65 72 77 69 73 65 2e 0a 09 20 20 20 20 otherwise...
36f0: 66 69 6c 65 75 74 69 6c 3a 3a 77 72 69 74 65 46 fileutil::writeF
3700: 69 6c 65 20 24 64 69 72 2f 72 70 61 74 63 68 20 ile $dir/rpatch
3710: 24 64 61 74 61 0a 09 20 20 20 20 66 69 6c 65 75 $data.. fileu
3720: 74 69 6c 3a 3a 77 72 69 74 65 46 69 6c 65 20 2d til::writeFile -
3730: 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 translation bina
3740: 72 79 20 24 64 69 72 2f 24 66 6e 61 6d 65 20 5c ry $dir/$fname \
3750: 0a 09 09 5b 41 70 70 6c 79 20 24 62 61 73 65 20 ...[Apply $base
3760: 24 64 61 74 61 5d 0a 09 7d 0a 0a 09 23 20 50 6f $data]..}...# Po
3770: 73 74 20 74 6f 20 61 6c 6c 20 73 75 63 63 65 73 st to all succes
3780: 73 6f 72 73 20 74 68 61 74 20 74 68 65 20 6a 75 sors that the ju
3790: 73 74 20 67 65 6e 65 72 61 74 65 64 20 66 69 6c st generated fil
37a0: 65 20 69 73 20 74 68 65 69 72 0a 09 23 20 62 61 e is their..# ba
37b0: 73 65 6c 69 6e 65 2e 0a 0a 09 66 6f 72 65 61 63 seline....foreac
37c0: 68 20 6f 75 74 20 5b 24 67 72 61 70 68 20 6e 6f h out [$graph no
37d0: 64 65 73 20 2d 6f 75 74 20 24 6e 6f 64 65 5d 20 des -out $node]
37e0: 7b 0a 09 20 20 20 20 24 67 72 61 70 68 20 6e 6f {.. $graph no
37f0: 64 65 20 73 65 74 20 24 6f 75 74 20 5f 5f 62 61 de set $out __ba
3800: 73 65 5f 5f 20 24 66 6e 61 6d 65 0a 09 7d 0a 09 se__ $fname..}..
3810: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
3820: 20 20 70 72 6f 63 20 41 70 70 6c 79 20 7b 62 61 proc Apply {ba
3830: 73 65 20 64 65 6c 74 61 7d 20 7b 0a 09 23 20 62 se delta} {..# b
3840: 61 73 65 20 20 3d 20 62 61 73 65 20 74 65 78 74 ase = base text
3850: 2e 0a 09 23 20 64 65 6c 74 61 20 3d 20 64 65 6c ...# delta = del
3860: 74 61 20 69 6e 20 72 63 73 20 66 6f 72 6d 61 74 ta in rcs format
3870: 2e 0a 09 23 0a 09 23 20 42 6f 74 68 20 73 74 72 ...#..# Both str
3880: 69 6e 67 73 20 61 72 65 20 75 6e 65 6e 63 6f 64 ings are unencod
3890: 65 64 2c 20 69 2e 65 2e 20 74 68 69 6e 67 73 20 ed, i.e. things
38a0: 6c 69 6b 65 20 40 40 2c 20 65 74 63 2e 20 68 61 like @@, etc. ha
38b0: 76 65 0a 09 23 20 61 6c 72 65 61 64 79 20 62 65 ve..# already be
38c0: 65 6e 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 en replaced with
38d0: 20 74 68 65 69 72 20 70 72 6f 70 65 72 20 63 68 their proper ch
38e0: 61 72 61 63 74 65 72 73 2e 0a 09 23 0a 09 23 20 aracters...#..#
38f0: 52 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 Return value is
3900: 74 68 65 20 70 61 74 63 68 65 64 20 74 65 78 74 the patched text
3910: 2e 0a 0a 09 73 65 74 20 62 61 73 65 20 5b 73 70 ....set base [sp
3920: 6c 69 74 20 24 62 61 73 65 20 5c 6e 5d 0a 09 73 lit $base \n]..s
3930: 65 74 20 62 6c 65 6e 20 5b 6c 6c 65 6e 67 74 68 et blen [llength
3940: 20 24 62 61 73 65 5d 0a 09 73 65 74 20 6f 6f 66 $base]..set oof
3950: 66 20 30 0a 09 73 65 74 20 72 65 73 20 22 22 0a f 0..set res "".
3960: 0a 09 73 65 74 20 6c 69 6e 65 73 20 20 5b 73 70 ..set lines [sp
3970: 6c 69 74 20 24 64 65 6c 74 61 20 5c 6e 5d 0a 09 lit $delta \n]..
3980: 73 65 74 20 6e 6c 69 6e 65 73 20 5b 6c 6c 65 6e set nlines [llen
3990: 67 74 68 20 24 6c 69 6e 65 73 5d 0a 0a 09 6c 6f gth $lines]...lo
39a0: 67 20 77 72 69 74 65 20 31 31 20 66 69 6c 65 20 g write 11 file
39b0: 7b 42 61 73 65 20 20 6c 69 6e 65 73 20 3d 20 24 {Base lines = $
39c0: 62 6c 65 6e 7d 0a 09 6c 6f 67 20 77 72 69 74 65 blen}..log write
39d0: 20 31 31 20 66 69 6c 65 20 7b 44 65 6c 74 61 20 11 file {Delta
39e0: 6c 69 6e 65 73 20 3d 20 24 6e 6c 69 6e 65 73 7d lines = $nlines}
39f0: 0a 0a 09 66 6f 72 20 7b 73 65 74 20 69 20 30 7d ...for {set i 0}
3a00: 20 7b 24 69 20 3c 20 24 6e 6c 69 6e 65 73 7d 20 {$i < $nlines}
3a10: 7b 7d 20 7b 0a 09 20 20 20 20 6c 6f 67 20 77 72 {} {.. log wr
3a20: 69 74 65 20 31 31 20 66 69 6c 65 20 7b 20 20 20 ite 11 file {
3a30: 20 40 20 24 69 20 3d 20 5b 6c 69 6e 64 65 78 20 @ $i = [lindex
3a40: 24 6c 69 6e 65 73 20 24 69 5d 7d 0a 09 20 20 20 $lines $i]}..
3a50: 20 6c 6f 67 20 77 72 69 74 65 20 31 31 20 66 69 log write 11 fi
3a60: 6c 65 20 7b 20 6f 6f 66 66 20 24 6f 6f 66 66 7d le { ooff $ooff}
3a70: 0a 0a 09 20 20 20 20 69 66 20 7b 21 5b 72 65 67 ... if {![reg
3a80: 65 78 70 20 7b 5e 28 5b 61 64 5d 29 28 5c 64 2b exp {^([ad])(\d+
3a90: 29 5c 73 28 5c 64 2b 29 24 7d 20 5b 6c 69 6e 64 )\s(\d+)$} [lind
3aa0: 65 78 20 24 6c 69 6e 65 73 20 24 69 5d 20 2d 3e ex $lines $i] ->
3ab0: 20 63 6d 64 20 73 6c 20 63 6e 5d 7d 20 7b 0a 09 cmd sl cn]} {..
3ac0: 09 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 .trouble interna
3ad0: 6c 20 22 42 61 64 20 65 64 20 63 6f 6d 6d 61 6e l "Bad ed comman
3ae0: 64 20 27 5b 6c 69 6e 64 65 78 20 24 6c 69 6e 65 d '[lindex $line
3af0: 73 20 24 69 5d 27 22 0a 09 20 20 20 20 7d 0a 0a s $i]'".. }..
3b00: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 31 . log write 1
3b10: 31 20 66 69 6c 65 20 7b 20 20 63 6d 64 20 24 63 1 file { cmd $c
3b20: 6d 64 7d 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 md}.. log wri
3b30: 74 65 20 31 31 20 66 69 6c 65 20 7b 20 20 20 73 te 11 file { s
3b40: 6c 20 24 73 6c 7d 0a 09 20 20 20 20 6c 6f 67 20 l $sl}.. log
3b50: 77 72 69 74 65 20 31 31 20 66 69 6c 65 20 7b 20 write 11 file {
3b60: 20 20 63 6e 20 24 63 6e 7d 0a 0a 09 20 20 20 20 cn $cn}...
3b70: 69 6e 63 72 20 69 0a 09 20 20 20 20 73 65 74 20 incr i.. set
3b80: 65 6c 20 5b 65 78 70 72 20 7b 24 73 6c 20 2b 20 el [expr {$sl +
3b90: 24 63 6e 7d 5d 0a 0a 09 20 20 20 20 6c 6f 67 20 $cn}]... log
3ba0: 77 72 69 74 65 20 31 31 20 66 69 6c 65 20 7b 20 write 11 file {
3bb0: 20 20 65 6c 20 24 65 6c 7d 0a 0a 09 20 20 20 20 el $el}...
3bc0: 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d 2d switch -exact --
3bd0: 20 24 63 6d 64 20 7b 0a 09 09 64 20 7b 0a 09 09 $cmd {...d {...
3be0: 20 20 20 20 69 6e 63 72 20 73 6c 20 2d 31 0a 09 incr sl -1..
3bf0: 09 20 20 20 20 69 6e 63 72 20 65 6c 20 2d 31 0a . incr el -1.
3c00: 09 09 20 20 20 20 69 66 20 7b 24 73 6c 20 3c 20 .. if {$sl <
3c10: 24 6f 6f 66 66 7d 20 7b 20 74 72 6f 75 62 6c 65 $ooff} { trouble
3c20: 20 69 6e 74 65 72 6e 61 6c 20 7b 44 65 6c 65 74 internal {Delet
3c30: 69 6f 6e 20 62 65 66 6f 72 65 20 6c 61 73 74 20 ion before last
3c40: 65 64 69 74 7d 20 7d 0a 09 09 20 20 20 20 69 66 edit} }... if
3c50: 20 7b 24 73 6c 20 3e 20 24 62 6c 65 6e 7d 20 7b {$sl > $blen} {
3c60: 20 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 trouble interna
3c70: 6c 20 7b 44 65 6c 65 74 69 6f 6e 20 70 61 73 74 l {Deletion past
3c80: 20 66 69 6c 65 20 65 6e 64 7d 20 7d 0a 09 09 20 file end} }...
3c90: 20 20 20 69 66 20 7b 24 65 6c 20 3e 20 24 62 6c if {$el > $bl
3ca0: 65 6e 7d 20 7b 20 74 72 6f 75 62 6c 65 20 69 6e en} { trouble in
3cb0: 74 65 72 6e 61 6c 20 7b 44 65 6c 65 74 69 6f 6e ternal {Deletion
3cc0: 20 62 65 79 6f 6e 64 20 66 69 6c 65 20 65 6e 64 beyond file end
3cd0: 7d 20 7d 0a 09 09 20 20 20 20 66 6f 72 65 61 63 } }... foreac
3ce0: 68 20 78 20 5b 6c 72 61 6e 67 65 20 24 62 61 73 h x [lrange $bas
3cf0: 65 20 24 6f 6f 66 66 20 24 73 6c 5d 20 7b 20 6c e $ooff $sl] { l
3d00: 61 70 70 65 6e 64 20 72 65 73 20 24 78 20 7d 0a append res $x }.
3d10: 09 09 20 20 20 20 73 65 74 20 20 6f 6f 66 66 20 .. set ooff
3d20: 24 65 6c 0a 09 09 7d 0a 09 09 61 20 7b 0a 09 09 $el...}...a {...
3d30: 20 20 20 20 69 66 20 7b 24 73 6c 20 3c 20 24 6f if {$sl < $o
3d40: 6f 66 66 7d 20 7b 20 74 72 6f 75 62 6c 65 20 69 off} { trouble i
3d50: 6e 74 65 72 6e 61 6c 20 7b 49 6e 73 65 72 74 20 nternal {Insert
3d60: 62 65 66 6f 72 65 20 6c 61 73 74 20 65 64 69 74 before last edit
3d70: 7d 20 7d 0a 09 09 20 20 20 20 69 66 20 7b 24 73 } }... if {$s
3d80: 6c 20 3e 20 24 62 6c 65 6e 7d 20 7b 20 74 72 6f l > $blen} { tro
3d90: 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 7b 49 uble internal {I
3da0: 6e 73 65 72 74 20 70 61 73 74 20 66 69 6c 65 20 nsert past file
3db0: 65 6e 64 7d 20 7d 0a 0a 09 09 20 20 20 20 66 6f end} }.... fo
3dc0: 72 65 61 63 68 20 78 20 5b 6c 72 61 6e 67 65 20 reach x [lrange
3dd0: 24 62 61 73 65 20 24 6f 6f 66 66 20 24 73 6c 5d $base $ooff $sl]
3de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 6c { l
3df0: 61 70 70 65 6e 64 20 72 65 73 20 24 78 20 7d 0a append res $x }.
3e00: 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 .. foreach x
3e10: 5b 6c 72 61 6e 67 65 20 24 6c 69 6e 65 73 20 24 [lrange $lines $
3e20: 69 20 5b 65 78 70 72 20 7b 24 69 20 2b 20 24 63 i [expr {$i + $c
3e30: 6e 7d 5d 5d 20 7b 20 6c 61 70 70 65 6e 64 20 72 n}]] { lappend r
3e40: 65 73 20 24 78 20 7d 0a 09 09 20 20 20 20 73 65 es $x }... se
3e50: 74 20 6f 6f 66 66 20 24 73 6c 0a 09 09 20 20 20 t ooff $sl...
3e60: 20 69 6e 63 72 20 69 20 24 63 6e 0a 09 09 7d 0a incr i $cn...}.
3e70: 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 65 61 . }..}..forea
3e80: 63 68 20 78 20 5b 6c 72 61 6e 67 65 20 24 62 61 ch x [lrange $ba
3e90: 73 65 20 24 6f 6f 66 66 20 65 6e 64 5d 20 7b 20 se $ooff end] {
3ea0: 6c 61 70 70 65 6e 64 20 72 65 73 20 24 78 20 7d lappend res $x }
3eb0: 0a 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 24 ..return [join $
3ec0: 72 65 73 20 5c 6e 5d 0a 20 20 20 20 7d 0a 0a 20 res \n]. }..
3ed0: 20 20 20 6d 65 74 68 6f 64 20 45 78 70 61 6e 64 method Expand
3ee0: 32 20 7b 67 72 61 70 68 20 6e 6f 64 65 7d 20 7b 2 {graph node} {
3ef0: 0a 09 73 65 74 20 72 65 76 6e 72 20 5b 24 67 72 ..set revnr [$gr
3f00: 61 70 68 20 6e 6f 64 65 20 67 65 74 20 24 6e 6f aph node get $no
3f10: 64 65 20 72 65 76 6e 72 5d 0a 0a 09 23 20 46 69 de revnr]...# Fi
3f20: 72 73 74 20 69 6d 70 6f 72 74 20 74 68 65 20 66 rst import the f
3f30: 69 6c 65 2e 0a 09 6c 61 70 70 65 6e 64 20 6d 79 ile...lappend my
3f40: 69 6d 70 6f 72 74 20 5b 6c 69 73 74 20 41 20 72 import [list A r
3f50: 24 72 65 76 6e 72 20 7b 7d 5d 0a 0a 09 69 66 20 $revnr {}]...if
3f60: 7b 5b 24 67 72 61 70 68 20 6e 6f 64 65 20 6b 65 {[$graph node ke
3f70: 79 65 78 69 73 74 73 20 24 6e 6f 64 65 20 5f 5f yexists $node __
3f80: 62 61 73 65 5f 5f 5d 7d 20 7b 0a 09 20 20 20 20 base__]} {..
3f90: 23 20 44 65 6c 74 61 20 6e 6f 64 65 2e 20 5f 5f # Delta node. __
3fa0: 62 61 73 65 5f 5f 20 69 73 20 74 68 65 20 6e 61 base__ is the na
3fb0: 6d 65 20 6f 66 20 74 68 65 20 66 69 6c 65 20 63 me of the file c
3fc0: 6f 6e 74 61 69 6e 69 6e 67 0a 09 20 20 20 20 23 ontaining.. #
3fd0: 20 74 68 65 20 62 61 73 65 6c 69 6e 65 2e 20 47 the baseline. G
3fe0: 65 6e 65 72 61 74 65 20 69 6e 73 74 72 75 63 74 enerate instruct
3ff0: 69 6f 6e 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 ion to make the
4000: 64 65 6c 74 61 20 61 73 0a 09 20 20 20 20 23 20 delta as.. #
4010: 77 65 6c 6c 2e 0a 0a 09 20 20 20 20 73 65 74 20 well.... set
4020: 66 62 61 73 65 20 5b 24 67 72 61 70 68 20 6e 6f fbase [$graph no
4030: 64 65 20 67 65 74 20 24 6e 6f 64 65 20 5f 5f 62 de get $node __b
4040: 61 73 65 5f 5f 5d 0a 09 20 20 20 20 6c 61 70 70 ase__].. lapp
4050: 65 6e 64 20 6d 79 69 6d 70 6f 72 74 20 5b 6c 69 end myimport [li
4060: 73 74 20 44 20 72 24 72 65 76 6e 72 20 72 24 66 st D r$revnr r$f
4070: 62 61 73 65 5d 0a 09 7d 0a 0a 09 23 20 50 6f 73 base]..}...# Pos
4080: 74 20 74 6f 20 61 6c 6c 20 73 75 63 63 65 73 73 t to all success
4090: 6f 72 73 20 74 68 61 74 20 74 68 65 20 6a 75 73 ors that the jus
40a0: 74 20 67 65 6e 65 72 61 74 65 64 20 66 69 6c 65 t generated file
40b0: 20 69 73 20 74 68 65 69 72 0a 09 23 20 62 61 73 is their..# bas
40c0: 65 6c 69 6e 65 2e 20 45 78 63 65 70 74 69 6f 6e eline. Exception
40d0: 3a 20 54 68 6f 73 65 20 77 68 69 63 68 20 61 76 : Those which av
40e0: 65 20 61 6c 72 65 61 64 79 20 61 20 62 61 73 65 e already a base
40f0: 6c 69 6e 65 20 73 65 74 2e 0a 09 23 20 54 6f 67 line set...# Tog
4100: 65 74 68 65 72 20 77 69 74 68 20 74 68 65 20 73 ether with the s
4110: 6f 72 74 69 6e 67 20 6f 66 20 74 72 75 6e 6b 20 orting of trunk
4120: 72 65 76 69 73 69 6f 6e 73 20 66 69 72 73 74 20 revisions first
4130: 74 68 65 20 74 72 75 6e 6b 0a 09 23 20 73 68 6f the trunk..# sho
4140: 75 6c 64 20 6f 6e 65 20 75 6e 69 6e 74 65 72 75 uld one uninteru
4150: 70 74 65 64 20 6c 69 6e 65 2c 20 77 69 74 68 20 pted line, with
4160: 62 72 61 6e 63 68 20 72 6f 6f 74 73 20 5f 6e 6f branch roots _no
4170: 74 5f 20 64 65 6c 74 61 0a 09 23 20 63 6f 6d 70 t_ delta..# comp
4180: 72 65 73 73 65 64 20 70 65 72 20 74 68 65 69 72 ressed per their
4190: 20 62 72 61 6e 63 68 65 73 2e 0a 0a 09 66 6f 72 branches....for
41a0: 65 61 63 68 20 6f 75 74 20 5b 24 67 72 61 70 68 each out [$graph
41b0: 20 6e 6f 64 65 73 20 2d 6f 75 74 20 24 6e 6f 64 nodes -out $nod
41c0: 65 5d 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 24 e] {.. if {[$
41d0: 67 72 61 70 68 20 6e 6f 64 65 20 6b 65 79 65 78 graph node keyex
41e0: 69 73 74 73 20 24 6f 75 74 20 5f 5f 62 61 73 65 ists $out __base
41f0: 5f 5f 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 20 __]} continue..
4200: 20 20 20 24 67 72 61 70 68 20 6e 6f 64 65 20 73 $graph node s
4210: 65 74 20 24 6f 75 74 20 5f 5f 62 61 73 65 5f 5f et $out __base__
4220: 20 24 72 65 76 6e 72 0a 09 7d 0a 09 72 65 74 75 $revnr..}..retu
4230: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 76 61 rn. }.. va
4240: 72 69 61 62 6c 65 20 6d 79 69 6d 70 6f 72 74 0a riable myimport.
4250: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
4260: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
4270: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
4280: 20 23 23 20 53 74 61 74 65 0a 0a 20 20 20 20 76 ## State.. v
4290: 61 72 69 61 62 6c 65 20 6d 79 69 64 20 20 20 20 ariable myid
42a0: 20 20 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 {} ; #
42b0: 20 46 69 6c 65 20 69 64 20 69 6e 20 74 68 65 20 File id in the
42c0: 70 65 72 73 69 73 74 65 6e 74 20 73 74 61 74 65 persistent state
42d0: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
42e0: 79 70 61 74 68 20 20 20 20 20 20 20 20 20 20 20 ypath
42f0: 20 7b 7d 20 3b 20 23 20 50 61 74 68 20 6f 66 20 {} ; # Path of
4300: 74 68 65 20 66 69 6c 65 27 73 20 72 63 73 20 61 the file's rcs a
4310: 72 63 68 69 76 65 2e 0a 20 20 20 20 76 61 72 69 rchive.. vari
4320: 61 62 6c 65 20 6d 79 75 73 72 70 61 74 68 20 20 able myusrpath
4330: 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 50 61 {} ; # Pa
4340: 74 68 20 6f 66 20 74 68 65 20 66 69 6c 65 20 61 th of the file a
4350: 73 20 73 65 65 6e 20 62 79 20 75 73 65 72 73 2e s seen by users.
4360: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
4370: 65 78 65 63 75 74 61 62 6c 65 20 20 20 20 20 20 executable
4380: 30 20 20 3b 20 23 20 42 6f 6f 6c 65 61 6e 20 66 0 ; # Boolean f
4390: 6c 61 67 20 27 66 69 6c 65 20 65 78 65 63 75 74 lag 'file execut
43a0: 61 62 6c 65 27 2e 0a 20 20 20 20 76 61 72 69 61 able'.. varia
43b0: 62 6c 65 20 6d 79 70 72 6f 6a 65 63 74 20 20 20 ble myproject
43c0: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 66 {} ; # Ref
43d0: 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 70 72 erence to the pr
43e0: 6f 6a 65 63 74 20 6f 62 6a 65 63 74 0a 09 09 09 oject object....
43f0: 09 20 20 20 20 23 20 74 68 65 20 66 69 6c 65 20 . # the file
4400: 62 65 6c 6f 6e 67 73 20 74 6f 2e 0a 20 20 20 20 belongs to..
4410: 76 61 72 69 61 62 6c 65 20 6d 79 72 65 76 20 2d variable myrev -
4420: 61 72 72 61 79 20 20 20 20 20 20 7b 7d 20 3b 20 array {} ;
4430: 23 20 4d 61 70 73 20 72 65 76 69 73 69 6f 6e 20 # Maps revision
4440: 6e 75 6d 62 65 72 20 74 6f 20 74 68 65 0a 09 09 number to the...
4450: 09 09 20 20 20 20 23 20 61 73 73 6f 63 69 61 74 .. # associat
4460: 65 64 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a 65 ed revision obje
4470: 63 74 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ct.. variable
4480: 20 6d 79 72 65 76 69 73 69 6f 6e 73 20 20 20 20 myrevisions
4490: 20 20 20 7b 7d 20 3b 20 23 20 53 61 6d 65 20 61 {} ; # Same a
44a0: 73 20 6d 79 72 65 76 2c 20 62 75 74 20 61 20 6c s myrev, but a l
44b0: 69 73 74 2c 0a 09 09 09 09 20 20 20 20 23 20 67 ist,..... # g
44c0: 69 76 69 6e 67 20 75 73 20 74 68 65 20 6f 72 64 iving us the ord
44d0: 65 72 20 6f 66 0a 09 09 09 09 20 20 20 20 23 20 er of..... #
44e0: 72 65 76 69 73 69 6f 6e 73 2e 0a 20 20 20 20 76 revisions.. v
44f0: 61 72 69 61 62 6c 65 20 6d 79 61 69 64 20 20 20 ariable myaid
4500: 20 20 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 -array {} ; #
4510: 20 4d 61 70 20 72 65 76 69 73 69 6f 6e 20 6e 75 Map revision nu
4520: 6d 62 65 72 73 20 74 6f 20 74 68 65 20 69 64 0a mbers to the id.
4530: 09 09 09 09 20 20 20 20 23 20 6f 66 20 74 68 65 .... # of the
4540: 20 61 75 74 68 6f 72 20 77 68 6f 20 63 6f 6d 6d author who comm
4550: 69 74 74 65 64 0a 09 09 09 09 20 20 20 20 23 20 itted..... #
4560: 69 74 2e 20 54 68 69 73 20 69 73 20 6c 61 74 65 it. This is late
4570: 72 20 61 67 67 72 65 67 61 74 65 64 0a 09 09 09 r aggregated....
4580: 09 20 20 20 20 23 20 77 69 74 68 20 63 6f 6d 6d . # with comm
4590: 69 74 20 6d 65 73 73 61 67 65 2c 20 62 72 61 6e it message, bran
45a0: 63 68 20 6e 61 6d 65 0a 09 09 09 09 20 20 20 20 ch name.....
45b0: 23 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 69 64 # and project id
45c0: 20 66 6f 72 20 61 20 6d 65 74 61 20 69 64 2e 0a for a meta id..
45d0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 68 variable myh
45e0: 65 61 64 72 65 76 6e 72 20 20 20 20 20 20 20 7b eadrevnr {
45f0: 7d 20 3b 20 23 20 48 65 61 64 20 72 65 76 69 73 } ; # Head revis
4600: 69 6f 6e 20 28 72 65 76 69 73 69 6f 6e 20 6e 75 ion (revision nu
4610: 6d 62 65 72 29 0a 20 20 20 20 76 61 72 69 61 62 mber). variab
4620: 6c 65 20 6d 79 70 72 69 6e 63 69 70 61 6c 20 20 le myprincipal
4630: 20 20 20 20 20 7b 7d 20 3b 20 23 20 50 72 69 6e {} ; # Prin
4640: 63 69 70 61 6c 20 62 72 61 6e 63 68 20 28 62 72 cipal branch (br
4650: 61 6e 63 68 20 6e 75 6d 62 65 72 29 2e 0a 09 09 anch number)....
4660: 09 09 20 20 20 20 23 20 43 6f 6e 74 72 61 72 79 .. # Contrary
4670: 20 74 6f 20 74 68 65 20 6e 61 6d 65 20 74 68 69 to the name thi
4680: 73 20 69 73 20 74 68 65 0a 09 09 09 09 20 20 20 s is the.....
4690: 20 23 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 # default branc
46a0: 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 h.. variable
46b0: 6d 79 64 65 70 65 6e 64 65 6e 63 69 65 73 20 20 mydependencies
46c0: 20 20 7b 7d 20 3b 20 23 20 44 69 63 74 69 6f 6e {} ; # Diction
46d0: 61 72 79 20 70 61 72 65 6e 74 20 2d 3e 20 63 68 ary parent -> ch
46e0: 69 6c 64 2c 0a 09 09 09 09 20 20 20 20 23 20 72 ild,..... # r
46f0: 65 63 6f 72 64 73 20 70 72 69 6d 61 72 79 20 64 ecords primary d
4700: 65 70 65 6e 64 65 6e 63 69 65 73 2e 0a 20 20 20 ependencies..
4710: 20 76 61 72 69 61 62 6c 65 20 6d 79 69 6d 70 6f variable myimpo
4720: 72 74 65 64 20 20 20 20 20 20 20 20 30 20 20 3b rted 0 ;
4730: 20 23 20 42 6f 6f 6c 65 61 6e 20 66 6c 61 67 2e # Boolean flag.
4740: 20 53 65 74 20 69 66 20 61 6e 64 20 6f 6e 6c 79 Set if and only
4750: 20 69 66 0a 09 09 09 09 20 20 20 20 23 20 72 65 if..... # re
4760: 76 20 31 2e 31 20 6f 66 20 74 68 65 20 66 69 6c v 1.1 of the fil
4770: 65 20 73 65 65 6d 69 6e 67 6c 79 0a 09 09 09 09 e seemingly.....
4780: 20 20 20 20 23 20 77 61 73 20 69 6d 70 6f 72 74 # was import
4790: 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 61 64 ed instead of ad
47a0: 64 65 64 0a 09 09 09 09 20 20 20 20 23 20 6e 6f ded..... # no
47b0: 72 6d 61 6c 6c 79 2e 0a 20 20 20 20 76 61 72 69 rmally.. vari
47c0: 61 62 6c 65 20 6d 79 72 6f 6f 74 20 20 20 20 20 able myroot
47d0: 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 {} ; # Re
47e0: 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 72 ference to the r
47f0: 65 76 69 73 69 6f 6e 20 6f 62 6a 65 63 74 0a 09 evision object..
4800: 09 09 09 20 20 20 20 23 20 68 6f 6c 64 69 6e 67 ... # holding
4810: 20 74 68 65 20 72 6f 6f 74 20 72 65 76 69 73 69 the root revisi
4820: 6f 6e 2e 20 20 49 74 73 0a 09 09 09 09 20 20 20 on. Its.....
4830: 20 23 20 6e 75 6d 62 65 72 20 75 73 75 61 6c 6c # number usuall
4840: 79 20 69 73 20 27 31 2e 31 27 2e 20 43 61 6e 20 y is '1.1'. Can
4850: 62 65 0a 09 09 09 09 20 20 20 20 23 20 61 20 64 be..... # a d
4860: 69 66 66 65 72 65 6e 74 20 6e 75 6d 62 65 72 2c ifferent number,
4870: 20 62 65 63 61 75 73 65 20 6f 66 0a 09 09 09 09 because of.....
4880: 20 20 20 20 23 20 67 61 70 73 20 63 72 65 61 74 # gaps creat
4890: 65 64 20 76 69 61 20 27 63 76 73 61 64 6d 69 6e ed via 'cvsadmin
48a0: 20 2d 6f 27 2e 0a 20 20 20 20 76 61 72 69 61 62 -o'.. variab
48b0: 6c 65 20 6d 79 62 72 61 6e 63 68 65 73 20 2d 61 le mybranches -a
48c0: 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 73 rray {} ; # Maps
48d0: 20 62 72 61 6e 63 68 20 6e 75 6d 62 65 72 20 74 branch number t
48e0: 6f 20 74 68 65 20 73 79 6d 62 6f 6c 0a 09 09 09 o the symbol....
48f0: 09 20 20 20 20 23 20 6f 62 6a 65 63 74 20 68 61 . # object ha
4900: 6e 64 6c 69 6e 67 20 74 68 65 20 62 72 61 6e 63 ndling the branc
4910: 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 h.. variable
4920: 6d 79 74 61 67 73 20 20 20 20 20 2d 61 72 72 61 mytags -arra
4930: 79 20 7b 7d 20 3b 20 23 20 4d 61 70 73 20 72 65 y {} ; # Maps re
4940: 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 20 74 6f vision number to
4950: 20 74 68 65 20 6c 69 73 74 0a 09 09 09 09 20 20 the list.....
4960: 20 20 23 20 6f 66 20 73 79 6d 62 6f 6c 20 6f 62 # of symbol ob
4970: 6a 65 63 74 73 20 66 6f 72 20 74 68 65 20 74 61 jects for the ta
4980: 67 73 0a 09 09 09 09 20 20 20 20 23 20 61 73 73 gs..... # ass
4990: 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 ociated with the
49a0: 20 72 65 76 69 73 69 6f 6e 2e 0a 20 20 20 20 76 revision.. v
49b0: 61 72 69 61 62 6c 65 20 6d 79 73 79 6d 62 6f 6c ariable mysymbol
49c0: 73 20 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 s {} ; #
49d0: 20 53 65 74 20 6f 66 20 74 68 65 20 73 79 6d 62 Set of the symb
49e0: 6f 6c 20 6e 61 6d 65 73 20 66 6f 75 6e 64 20 69 ol names found i
49f0: 6e 0a 09 09 09 09 20 20 20 20 23 20 74 68 69 73 n..... # this
4a00: 20 66 69 6c 65 2e 0a 0a 20 20 20 20 76 61 72 69 file... vari
4a10: 61 62 6c 65 20 6d 79 62 72 61 6e 63 68 63 6e 74 able mybranchcnt
4a20: 20 30 20 3b 20 23 20 43 6f 75 6e 74 65 72 20 66 0 ; # Counter f
4a30: 6f 72 20 62 72 61 6e 63 68 65 73 2c 20 74 6f 20 or branches, to
4a40: 72 65 63 6f 72 64 20 74 68 65 69 72 0a 09 09 09 record their....
4a50: 20 20 20 20 20 23 20 6f 72 64 65 72 20 6f 66 20 # order of
4a60: 64 65 66 69 6e 69 74 69 6f 6e 2e 20 54 68 69 73 definition. This
4a70: 20 61 6c 73 6f 20 64 65 66 69 6e 65 73 0a 09 09 also defines...
4a80: 09 20 20 20 20 20 23 20 74 68 65 69 72 20 6f 72 . # their or
4a90: 64 65 72 20 6f 66 20 63 72 65 61 74 69 6f 6e 2c der of creation,
4aa0: 20 77 68 69 63 68 20 69 73 20 74 68 65 0a 09 09 which is the...
4ab0: 09 20 20 20 20 20 23 20 72 65 76 65 72 73 65 20 . # reverse
4ac0: 6f 66 20 64 65 66 69 6e 69 74 69 6f 6e 2e 20 20 of definition.
4ad0: 49 2e 65 2e 20 61 20 73 6d 61 6c 6c 65 72 0a 09 I.e. a smaller..
4ae0: 09 09 20 20 20 20 20 23 20 6e 75 6d 62 65 72 20 .. # number
4af0: 6d 65 61 6e 73 20 27 44 65 66 69 6e 65 64 20 65 means 'Defined e
4b00: 61 72 6c 69 65 72 27 2c 20 6d 65 61 6e 73 0a 09 arlier', means..
4b10: 09 09 20 20 20 20 20 23 20 27 43 72 65 61 74 65 .. # 'Create
4b20: 64 20 6c 61 74 65 72 27 2e 0a 0a 20 20 20 20 76 d later'... v
4b30: 61 72 69 61 62 6c 65 20 6d 79 74 72 75 6e 6b 20 ariable mytrunk
4b40: 7b 7d 20 3b 20 23 20 44 69 72 65 63 74 20 72 65 {} ; # Direct re
4b50: 66 65 72 65 6e 63 65 20 74 6f 20 6d 79 70 72 6f ference to mypro
4b60: 6a 65 63 74 20 2d 3e 20 74 72 75 6e 6b 2e 0a 20 ject -> trunk..
4b70: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 72 6f variable myro
4b80: 6f 74 73 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 ots {} ; # List
4b90: 6f 66 20 72 6f 6f 74 73 20 69 6e 20 74 68 65 20 of roots in the
4ba0: 66 6f 72 65 73 74 20 6f 66 0a 09 09 09 20 20 23 forest of.... #
4bb0: 20 6c 6f 64 27 73 2e 20 4f 62 6a 65 63 74 20 72 lod's. Object r
4bc0: 65 66 65 72 65 6e 63 65 73 20 74 6f 20 72 65 76 eferences to rev
4bd0: 69 73 69 6f 6e 73 20 61 6e 64 0a 09 09 09 20 20 isions and....
4be0: 23 20 62 72 61 6e 63 68 65 73 2e 20 54 68 65 20 # branches. The
4bf0: 6c 61 74 74 65 72 20 63 61 6e 20 61 70 70 65 61 latter can appea
4c00: 72 20 77 68 65 6e 20 74 68 65 79 0a 09 09 09 20 r when they....
4c10: 20 23 20 61 72 65 20 73 65 76 65 72 65 64 20 66 # are severed f
4c20: 72 6f 6d 20 74 68 65 69 72 20 70 61 72 65 6e 74 rom their parent
4c30: 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 ... variable
4c40: 6d 79 62 6c 6f 62 20 7b 7d 20 3b 20 23 20 52 65 myblob {} ; # Re
4c50: 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 6f ference to the o
4c60: 62 6a 65 63 74 20 6d 61 6e 61 67 69 6e 67 20 74 bject managing t
4c70: 68 65 20 62 6c 6f 62 0a 09 09 09 20 23 20 69 6e he blob.... # in
4c80: 66 6f 72 6d 61 74 69 6f 6e 20 28 74 65 78 74 72 formation (textr
4c90: 61 6e 67 65 20 6f 66 20 72 65 76 69 73 69 6f 6e ange of revision
4ca0: 73 2c 20 61 6e 64 0a 09 09 09 20 23 20 64 65 6c s, and.... # del
4cb0: 74 61 20 64 65 70 65 6e 64 65 6e 63 69 65 73 29 ta dependencies)
4cc0: 20 6f 66 20 74 68 69 73 20 66 69 6c 65 2e 0a 0a of this file...
4cd0: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
4ce0: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
4cf0: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
4d00: 23 23 20 49 6e 74 65 72 6e 61 6c 20 6d 65 74 68 ## Internal meth
4d10: 6f 64 73 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 ods.. method
4d20: 52 65 63 6f 72 64 42 72 61 6e 63 68 43 6f 6d 6d RecordBranchComm
4d30: 69 74 73 20 7b 62 72 61 6e 63 68 65 73 7d 20 7b its {branches} {
4d40: 0a 09 66 6f 72 65 61 63 68 20 62 72 61 6e 63 68 ..foreach branch
4d50: 72 65 76 6e 72 20 24 62 72 61 6e 63 68 65 73 20 revnr $branches
4d60: 7b 0a 09 20 20 20 20 69 66 20 7b 5b 63 61 74 63 {.. if {[catc
4d70: 68 20 7b 0a 09 09 73 65 74 20 62 72 61 6e 63 68 h {...set branch
4d80: 20 5b 24 73 65 6c 66 20 52 65 76 32 42 72 61 6e [$self Rev2Bran
4d90: 63 68 20 24 62 72 61 6e 63 68 72 65 76 6e 72 5d ch $branchrevnr]
4da0: 0a 09 20 20 20 20 7d 5d 7d 20 7b 0a 09 09 73 65 .. }]} {...se
4db0: 74 20 62 72 61 6e 63 68 20 5b 24 73 65 6c 66 20 t branch [$self
4dc0: 41 64 64 55 6e 6c 61 62 65 6c 65 64 42 72 61 6e AddUnlabeledBran
4dd0: 63 68 20 5b 72 65 76 20 32 62 72 61 6e 63 68 6e ch [rev 2branchn
4de0: 72 20 24 62 72 61 6e 63 68 72 65 76 6e 72 5d 5d r $branchrevnr]]
4df0: 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 20 .. }... #
4e00: 52 65 63 6f 72 64 20 74 68 65 20 63 6f 6d 6d 69 Record the commi
4e10: 74 2c 20 6a 75 73 74 20 61 73 20 72 65 76 69 73 t, just as revis
4e20: 69 6f 6e 20 6e 75 6d 62 65 72 20 66 6f 72 0a 09 ion number for..
4e30: 20 20 20 20 23 20 6e 6f 77 2e 20 50 72 6f 63 65 # now. Proce
4e40: 73 42 72 61 6e 63 68 44 65 70 65 6e 64 65 6e 63 sBranchDependenc
4e50: 69 65 73 20 77 69 6c 6c 20 65 78 74 65 6e 64 20 ies will extend
4e60: 74 68 61 74 20 69 74 6f 20 61 0a 09 20 20 20 20 that ito a..
4e70: 23 20 70 72 6f 70 65 72 20 6f 62 6a 65 63 74 20 # proper object
4e80: 72 65 66 65 72 65 6e 63 65 2e 0a 0a 09 20 20 20 reference....
4e90: 20 24 62 72 61 6e 63 68 20 73 65 74 63 68 69 6c $branch setchil
4ea0: 64 72 65 76 6e 72 20 24 62 72 61 6e 63 68 72 65 drevnr $branchre
4eb0: 76 6e 72 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 vnr..}..return.
4ec0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
4ed0: 20 52 65 76 32 42 72 61 6e 63 68 20 7b 72 65 76 Rev2Branch {rev
4ee0: 6e 72 7d 20 7b 0a 20 20 20 20 20 20 20 20 69 6e nr} {. in
4ef0: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
4f00: 21 5b 72 65 76 20 69 73 74 72 75 6e 6b 72 65 76 ![rev istrunkrev
4f10: 6e 72 20 24 72 65 76 6e 72 5d 7d 20 7b 45 78 70 nr $revnr]} {Exp
4f20: 65 63 74 65 64 20 61 20 62 72 61 6e 63 68 20 72 ected a branch r
4f30: 65 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 7d 0a evision number}.
4f40: 09 72 65 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 .return $mybranc
4f50: 68 65 73 28 5b 72 65 76 20 32 62 72 61 6e 63 68 hes([rev 2branch
4f60: 6e 72 20 24 72 65 76 6e 72 5d 29 0a 20 20 20 20 nr $revnr]).
4f70: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 41 64 }.. method Ad
4f80: 64 55 6e 6c 61 62 65 6c 65 64 42 72 61 6e 63 68 dUnlabeledBranch
4f90: 20 7b 62 72 61 6e 63 68 6e 72 7d 20 7b 0a 09 72 {branchnr} {..r
4fa0: 65 74 75 72 6e 20 5b 24 73 65 6c 66 20 41 64 64 eturn [$self Add
4fb0: 42 72 61 6e 63 68 20 75 6e 6c 61 62 65 6c 65 64 Branch unlabeled
4fc0: 2d 24 62 72 61 6e 63 68 6e 72 20 24 62 72 61 6e -$branchnr $bran
4fd0: 63 68 6e 72 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 chnr]. }..
4fe0: 20 6d 65 74 68 6f 64 20 41 64 64 42 72 61 6e 63 method AddBranc
4ff0: 68 20 7b 6e 61 6d 65 20 62 72 61 6e 63 68 6e 72 h {name branchnr
5000: 7d 20 7b 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 65 } {..if {[info e
5010: 78 69 73 74 73 20 6d 79 62 72 61 6e 63 68 65 73 xists mybranches
5020: 28 24 62 72 61 6e 63 68 6e 72 29 5d 7d 20 7b 0a ($branchnr)]} {.
5030: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 31 . log write 1
5040: 20 66 69 6c 65 20 22 49 6e 20 27 24 6d 79 70 61 file "In '$mypa
5050: 74 68 27 3a 20 42 72 61 6e 63 68 20 27 24 62 72 th': Branch '$br
5060: 61 6e 63 68 6e 72 27 20 6e 61 6d 65 64 20 27 5b anchnr' named '[
5070: 24 6d 79 62 72 61 6e 63 68 65 73 28 24 62 72 61 $mybranches($bra
5080: 6e 63 68 6e 72 29 20 6e 61 6d 65 5d 27 22 0a 09 nchnr) name]'"..
5090: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 31 20 log write 1
50a0: 66 69 6c 65 20 22 43 61 6e 6e 6f 74 20 68 61 76 file "Cannot hav
50b0: 65 20 73 65 63 6f 6e 64 20 6e 61 6d 65 20 27 24 e second name '$
50c0: 6e 61 6d 65 27 2c 20 69 67 6e 6f 72 69 6e 67 20 name', ignoring
50d0: 69 74 22 0a 09 20 20 20 20 72 65 74 75 72 6e 0a it".. return.
50e0: 09 7d 0a 09 73 65 74 20 62 72 61 6e 63 68 20 5b .}..set branch [
50f0: 73 79 6d 20 25 41 55 54 4f 25 20 62 72 61 6e 63 sym %AUTO% branc
5100: 68 20 24 62 72 61 6e 63 68 6e 72 20 5b 24 6d 79 h $branchnr [$my
5110: 70 72 6f 6a 65 63 74 20 67 65 74 73 79 6d 62 6f project getsymbo
5120: 6c 20 24 6e 61 6d 65 5d 20 24 73 65 6c 66 5d 0a l $name] $self].
5130: 09 24 62 72 61 6e 63 68 20 73 65 74 70 6f 73 69 .$branch setposi
5140: 74 69 6f 6e 20 5b 69 6e 63 72 20 6d 79 62 72 61 tion [incr mybra
5150: 6e 63 68 63 6e 74 5d 0a 09 73 65 74 20 6d 79 62 nchcnt]..set myb
5160: 72 61 6e 63 68 65 73 28 24 62 72 61 6e 63 68 6e ranches($branchn
5170: 72 29 20 24 62 72 61 6e 63 68 0a 09 72 65 74 75 r) $branch..retu
5180: 72 6e 20 24 62 72 61 6e 63 68 0a 20 20 20 20 7d rn $branch. }
5190: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 41 64 64 .. method Add
51a0: 54 61 67 20 7b 6e 61 6d 65 20 72 65 76 6e 72 7d Tag {name revnr}
51b0: 20 7b 0a 09 73 65 74 20 74 61 67 20 5b 73 79 6d {..set tag [sym
51c0: 20 25 41 55 54 4f 25 20 74 61 67 20 24 72 65 76 %AUTO% tag $rev
51d0: 6e 72 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 67 nr [$myproject g
51e0: 65 74 73 79 6d 62 6f 6c 20 24 6e 61 6d 65 5d 20 etsymbol $name]
51f0: 24 73 65 6c 66 5d 0a 09 6c 61 70 70 65 6e 64 20 $self]..lappend
5200: 6d 79 74 61 67 73 28 24 72 65 76 6e 72 29 20 24 mytags($revnr) $
5210: 74 61 67 0a 09 72 65 74 75 72 6e 20 24 74 61 67 tag..return $tag
5220: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
5230: 6f 64 20 52 65 63 6f 72 64 42 61 73 69 63 44 65 od RecordBasicDe
5240: 70 65 6e 64 65 6e 63 69 65 73 20 7b 72 65 76 6e pendencies {revn
5250: 72 20 6e 65 78 74 7d 20 7b 0a 09 23 20 48 61 6e r next} {..# Han
5260: 64 6c 65 20 74 68 65 20 72 65 76 69 73 69 6f 6e dle the revision
5270: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 20 52 dependencies. R
5280: 65 63 6f 72 64 20 74 68 65 6d 20 66 6f 72 20 6e ecord them for n
5290: 6f 77 2c 20 64 6f 0a 09 23 20 6e 6f 74 68 69 6e ow, do..# nothin
52a0: 67 20 77 69 74 68 20 74 68 65 6d 20 79 65 74 2e g with them yet.
52b0: 0a 0a 09 23 20 4f 6e 20 74 68 65 20 74 72 75 6e ...# On the trun
52c0: 6b 20 74 68 65 20 27 6e 65 78 74 27 20 66 69 65 k the 'next' fie
52d0: 6c 64 20 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 ld points to the
52e0: 20 70 72 65 76 69 6f 75 73 0a 09 23 20 72 65 76 previous..# rev
52f0: 69 73 69 6f 6e 2c 20 69 2e 65 2e 20 74 68 65 20 ision, i.e. the
5300: 5f 70 61 72 65 6e 74 5f 20 6f 66 20 74 68 65 20 _parent_ of the
5310: 63 75 72 72 65 6e 74 20 6f 6e 65 2e 20 45 78 61 current one. Exa
5320: 6d 70 6c 65 3a 0a 09 23 20 31 2e 36 27 73 20 6e mple:..# 1.6's n
5330: 65 78 74 20 69 73 20 31 2e 35 20 28 6d 6f 64 75 ext is 1.5 (modu
5340: 6c 6f 20 63 76 73 20 61 64 6d 69 6e 20 2d 6f 29 lo cvs admin -o)
5350: 2e 0a 0a 09 23 20 43 6f 6e 74 72 61 72 69 6c 79 ....# Contrarily
5360: 20 6f 6e 20 61 20 62 72 61 6e 63 68 20 74 68 65 on a branch the
5370: 20 27 6e 65 78 74 27 20 66 69 65 6c 64 20 70 6f 'next' field po
5380: 69 6e 74 73 20 74 6f 20 74 68 65 0a 09 23 20 70 ints to the..# p
5390: 72 69 6d 61 72 79 20 5f 63 68 69 6c 64 5f 20 6f rimary _child_ o
53a0: 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 f the current re
53b0: 76 69 73 69 6f 6e 2e 20 41 73 20 65 78 61 6d 70 vision. As examp
53c0: 6c 65 2c 0a 09 23 20 31 2e 31 2e 33 2e 32 27 73 le,..# 1.1.3.2's
53d0: 20 27 6e 65 78 74 27 20 77 69 6c 6c 20 62 65 20 'next' will be
53e0: 31 2e 31 2e 33 2e 33 2e 0a 0a 09 23 20 54 68 65 1.1.3.3....# The
53f0: 20 27 6e 65 78 74 27 20 66 69 65 6c 64 20 61 63 'next' field ac
5400: 74 75 61 6c 6c 79 20 61 6c 77 61 79 73 20 72 65 tually always re
5410: 66 65 72 73 20 74 6f 20 74 68 65 20 72 65 76 69 fers to the revi
5420: 73 69 6f 6e 0a 09 23 20 63 6f 6e 74 61 69 6e 69 sion..# containi
5430: 6e 67 20 74 68 65 20 64 65 6c 74 61 20 6e 65 65 ng the delta nee
5440: 64 65 64 20 74 6f 20 72 65 74 72 69 65 76 65 20 ded to retrieve
5450: 74 68 61 74 20 72 65 76 69 73 69 6f 6e 2e 0a 0a that revision...
5460: 09 23 20 54 68 65 20 64 65 70 65 6e 64 65 6e 63 .# The dependenc
5470: 69 65 73 20 6e 65 65 64 65 64 20 68 65 72 65 20 ies needed here
5480: 61 72 65 20 74 68 65 20 6c 6f 67 69 63 61 6c 20 are the logical
5490: 73 74 72 75 63 74 75 72 65 2c 0a 09 23 20 70 61 structure,..# pa
54a0: 72 65 6e 74 2f 63 68 69 6c 64 2c 20 61 6e 64 20 rent/child, and
54b0: 6e 6f 74 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e not the implemen
54c0: 74 61 74 69 6f 6e 20 64 65 70 65 6e 64 65 6e 74 tation dependent
54d0: 20 64 65 6c 74 61 0a 09 23 20 70 6f 69 6e 74 65 delta..# pointe
54e0: 72 73 2e 0a 0a 09 69 66 20 7b 24 6e 65 78 74 20 rs....if {$next
54f0: 65 71 20 22 22 7d 20 72 65 74 75 72 6e 0a 09 23 eq ""} return..#
5500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5510: 20 20 20 20 20 20 20 20 20 20 70 61 72 65 6e 74 parent
5520: 20 2d 3e 20 63 68 69 6c 64 0a 09 69 66 20 7b 5b -> child..if {[
5530: 72 65 76 20 69 73 74 72 75 6e 6b 72 65 76 6e 72 rev istrunkrevnr
5540: 20 24 72 65 76 6e 72 5d 7d 20 7b 0a 09 20 20 20 $revnr]} {..
5550: 20 6c 61 70 70 65 6e 64 20 6d 79 64 65 70 65 6e lappend mydepen
5560: 64 65 6e 63 69 65 73 20 24 6e 65 78 74 20 24 72 dencies $next $r
5570: 65 76 6e 72 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 evnr..} else {..
5580: 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 64 65 lappend myde
5590: 70 65 6e 64 65 6e 63 69 65 73 20 24 72 65 76 6e pendencies $revn
55a0: 72 20 24 6e 65 78 74 0a 09 7d 0a 09 72 65 74 75 r $next..}..retu
55b0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 rn. }.. me
55c0: 74 68 6f 64 20 50 72 6f 63 65 73 73 50 72 69 6d thod ProcessPrim
55d0: 61 72 79 44 65 70 65 6e 64 65 6e 63 69 65 73 20 aryDependencies
55e0: 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 68 20 7b 70 {} {..foreach {p
55f0: 61 72 65 6e 74 72 65 76 6e 72 20 63 68 69 6c 64 arentrevnr child
5600: 72 65 76 6e 72 7d 20 24 6d 79 64 65 70 65 6e 64 revnr} $mydepend
5610: 65 6e 63 69 65 73 20 7b 0a 09 20 20 20 20 73 65 encies {.. se
5620: 74 20 70 61 72 65 6e 74 20 24 6d 79 72 65 76 28 t parent $myrev(
5630: 24 70 61 72 65 6e 74 72 65 76 6e 72 29 0a 09 20 $parentrevnr)..
5640: 20 20 20 73 65 74 20 63 68 69 6c 64 20 20 24 6d set child $m
5650: 79 72 65 76 28 24 63 68 69 6c 64 72 65 76 6e 72 yrev($childrevnr
5660: 29 0a 09 20 20 20 20 24 70 61 72 65 6e 74 20 73 ).. $parent s
5670: 65 74 63 68 69 6c 64 20 24 63 68 69 6c 64 0a 09 etchild $child..
5680: 20 20 20 20 24 63 68 69 6c 64 20 73 65 74 70 61 $child setpa
5690: 72 65 6e 74 20 24 70 61 72 65 6e 74 0a 09 7d 0a rent $parent..}.
56a0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
56b0: 20 20 20 6d 65 74 68 6f 64 20 50 72 6f 63 65 73 method Proces
56c0: 73 42 72 61 6e 63 68 44 65 70 65 6e 64 65 6e 63 sBranchDependenc
56d0: 69 65 73 20 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 ies {} {..foreac
56e0: 68 20 7b 62 72 61 6e 63 68 6e 72 20 62 72 61 6e h {branchnr bran
56f0: 63 68 7d 20 5b 61 72 72 61 79 20 67 65 74 20 6d ch} [array get m
5700: 79 62 72 61 6e 63 68 65 73 5d 20 7b 0a 09 20 20 ybranches] {..
5710: 20 20 73 65 74 20 72 65 76 6e 72 20 5b 24 62 72 set revnr [$br
5720: 61 6e 63 68 20 70 61 72 65 6e 74 72 65 76 6e 72 anch parentrevnr
5730: 5d 0a 0a 09 20 20 20 20 69 66 20 7b 21 5b 69 6e ]... if {![in
5740: 66 6f 20 65 78 69 73 74 73 20 6d 79 72 65 76 28 fo exists myrev(
5750: 24 72 65 76 6e 72 29 5d 7d 20 7b 0a 09 09 6c 6f $revnr)]} {...lo
5760: 67 20 77 72 69 74 65 20 31 20 66 69 6c 65 20 22 g write 1 file "
5770: 49 6e 20 27 24 6d 79 70 61 74 68 27 3a 20 54 68 In '$mypath': Th
5780: 65 20 62 72 61 6e 63 68 20 27 5b 24 62 72 61 6e e branch '[$bran
5790: 63 68 20 6e 61 6d 65 5d 27 20 72 65 66 65 72 65 ch name]' refere
57a0: 6e 63 65 73 22 0a 09 09 6c 6f 67 20 77 72 69 74 nces"...log writ
57b0: 65 20 31 20 66 69 6c 65 20 22 74 68 65 20 62 6f e 1 file "the bo
57c0: 67 75 73 20 72 65 76 69 73 69 6f 6e 20 27 24 72 gus revision '$r
57d0: 65 76 6e 72 27 20 61 6e 64 20 77 69 6c 6c 20 62 evnr' and will b
57e0: 65 20 69 67 6e 6f 72 65 64 2e 22 0a 09 09 24 62 e ignored."...$b
57f0: 72 61 6e 63 68 20 64 65 73 74 72 6f 79 0a 09 09 ranch destroy...
5800: 75 6e 73 65 74 20 6d 79 62 72 61 6e 63 68 65 73 unset mybranches
5810: 28 24 62 72 61 6e 63 68 6e 72 29 0a 09 20 20 20 ($branchnr)..
5820: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 73 65 74 20 } else {...set
5830: 72 65 76 20 24 6d 79 72 65 76 28 24 72 65 76 6e rev $myrev($revn
5840: 72 29 0a 09 09 24 72 65 76 20 61 64 64 62 72 61 r)...$rev addbra
5850: 6e 63 68 20 24 62 72 61 6e 63 68 0a 09 09 24 62 nch $branch...$b
5860: 72 61 6e 63 68 20 73 65 74 70 61 72 65 6e 74 20 ranch setparent
5870: 24 72 65 76 0a 0a 09 09 23 20 49 66 20 72 65 76 $rev....# If rev
5880: 69 73 69 6f 6e 73 20 77 65 72 65 20 63 6f 6d 6d isions were comm
5890: 69 74 74 65 64 20 6f 6e 20 74 68 65 20 62 72 61 itted on the bra
58a0: 6e 63 68 20 77 65 20 73 74 6f 72 65 20 61 0a 09 nch we store a..
58b0: 09 23 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 .# reference to
58c0: 74 68 65 20 62 72 61 6e 63 68 20 74 68 65 72 65 the branch there
58d0: 2c 20 61 6e 64 20 66 75 72 74 68 65 72 20 64 65 , and further de
58e0: 63 6c 61 72 65 0a 09 09 23 20 74 68 65 20 66 69 clare...# the fi
58f0: 72 73 74 20 63 68 69 6c 64 27 73 20 70 61 72 65 rst child's pare
5900: 6e 74 20 74 6f 20 62 65 20 62 72 61 6e 63 68 27 nt to be branch'
5910: 73 20 70 61 72 65 6e 74 2c 20 61 6e 64 0a 09 09 s parent, and...
5920: 23 20 6c 69 73 74 20 74 68 69 73 20 63 68 69 6c # list this chil
5930: 64 20 69 6e 20 74 68 65 20 70 61 72 65 6e 74 20 d in the parent
5940: 72 65 76 69 73 69 6f 6e 2e 0a 0a 09 09 69 66 20 revision.....if
5950: 7b 5b 24 62 72 61 6e 63 68 20 68 61 73 63 68 69 {[$branch haschi
5960: 6c 64 72 65 76 5d 7d 20 7b 0a 09 09 20 20 20 20 ldrev]} {...
5970: 73 65 74 20 63 68 69 6c 64 72 65 76 6e 72 20 5b set childrevnr [
5980: 24 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 76 $branch childrev
5990: 6e 72 5d 0a 09 09 20 20 20 20 73 65 74 20 63 68 nr]... set ch
59a0: 69 6c 64 20 24 6d 79 72 65 76 28 24 63 68 69 6c ild $myrev($chil
59b0: 64 72 65 76 6e 72 29 0a 09 09 20 20 20 20 24 62 drevnr)... $b
59c0: 72 61 6e 63 68 20 73 65 74 63 68 69 6c 64 20 24 ranch setchild $
59d0: 63 68 69 6c 64 0a 0a 09 09 20 20 20 20 24 63 68 child.... $ch
59e0: 69 6c 64 20 73 65 74 70 61 72 65 6e 74 62 72 61 ild setparentbra
59f0: 6e 63 68 20 24 62 72 61 6e 63 68 0a 09 09 20 20 nch $branch...
5a00: 20 20 24 63 68 69 6c 64 20 73 65 74 70 61 72 65 $child setpare
5a10: 6e 74 20 20 20 20 20 20 20 24 72 65 76 0a 09 09 nt $rev...
5a20: 20 20 20 20 24 72 65 76 20 61 64 64 63 68 69 6c $rev addchil
5a30: 64 6f 6e 62 72 61 6e 63 68 20 24 63 68 69 6c 64 donbranch $child
5a40: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 ...}.. }..}..
5a50: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
5a60: 20 20 6d 65 74 68 6f 64 20 53 6f 72 74 42 72 61 method SortBra
5a70: 6e 63 68 65 73 20 7b 7d 20 7b 0a 09 66 6f 72 65 nches {} {..fore
5a80: 61 63 68 20 7b 72 65 76 6e 72 20 72 65 76 7d 20 ach {revnr rev}
5a90: 5b 61 72 72 61 79 20 67 65 74 20 6d 79 72 65 76 [array get myrev
5aa0: 5d 20 7b 20 24 72 65 76 20 73 6f 72 74 62 72 61 ] { $rev sortbra
5ab0: 6e 63 68 65 73 20 7d 0a 09 72 65 74 75 72 6e 0a nches }..return.
5ac0: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
5ad0: 64 20 50 72 6f 63 65 73 73 54 61 67 44 65 70 65 d ProcessTagDepe
5ae0: 6e 64 65 6e 63 69 65 73 20 7b 7d 20 7b 0a 09 66 ndencies {} {..f
5af0: 6f 72 65 61 63 68 20 7b 72 65 76 6e 72 20 74 61 oreach {revnr ta
5b00: 67 6c 69 73 74 7d 20 5b 61 72 72 61 79 20 67 65 glist} [array ge
5b10: 74 20 6d 79 74 61 67 73 5d 20 7b 0a 09 20 20 20 t mytags] {..
5b20: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 if {![info exis
5b30: 74 73 20 6d 79 72 65 76 28 24 72 65 76 6e 72 29 ts myrev($revnr)
5b40: 5d 7d 20 7b 0a 09 09 73 65 74 20 6e 20 5b 6c 6c ]} {...set n [ll
5b50: 65 6e 67 74 68 20 24 74 61 67 6c 69 73 74 5d 0a ength $taglist].
5b60: 09 09 6c 6f 67 20 77 72 69 74 65 20 31 20 66 69 ..log write 1 fi
5b70: 6c 65 20 22 49 6e 20 27 24 6d 79 70 61 74 68 27 le "In '$mypath'
5b80: 3a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 : The following
5b90: 5b 6e 73 70 20 24 6e 20 74 61 67 5d 20 72 65 66 [nsp $n tag] ref
5ba0: 65 72 65 6e 63 65 22 0a 09 09 6c 6f 67 20 77 72 erence"...log wr
5bb0: 69 74 65 20 31 20 66 69 6c 65 20 22 74 68 65 20 ite 1 file "the
5bc0: 62 6f 67 75 73 20 72 65 76 69 73 69 6f 6e 20 27 bogus revision '
5bd0: 24 72 65 76 6e 72 27 20 61 6e 64 20 77 69 6c 6c $revnr' and will
5be0: 20 62 65 20 69 67 6e 6f 72 65 64 2e 22 0a 09 09 be ignored."...
5bf0: 66 6f 72 65 61 63 68 20 74 61 67 20 24 74 61 67 foreach tag $tag
5c00: 6c 69 73 74 20 7b 0a 09 09 20 20 20 20 6c 6f 67 list {... log
5c10: 20 77 72 69 74 65 20 31 20 66 69 6c 65 20 22 20 write 1 file "
5c20: 20 20 20 5b 24 74 61 67 20 6e 61 6d 65 5d 22 0a [$tag name]".
5c30: 09 09 20 20 20 20 24 74 61 67 20 64 65 73 74 72 .. $tag destr
5c40: 6f 79 0a 09 09 7d 0a 09 09 75 6e 73 65 74 20 6d oy...}...unset m
5c50: 79 74 61 67 73 28 24 72 65 76 6e 72 29 0a 09 20 ytags($revnr)..
5c60: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 73 65 } else {...se
5c70: 74 20 72 65 76 20 24 6d 79 72 65 76 28 24 72 65 t rev $myrev($re
5c80: 76 6e 72 29 0a 09 09 66 6f 72 65 61 63 68 20 74 vnr)...foreach t
5c90: 61 67 20 24 74 61 67 6c 69 73 74 20 7b 0a 09 09 ag $taglist {...
5ca0: 20 20 20 20 24 72 65 76 20 61 64 64 74 61 67 20 $rev addtag
5cb0: 20 20 20 24 74 61 67 0a 09 09 20 20 20 20 24 74 $tag... $t
5cc0: 61 67 20 73 65 74 74 61 67 72 65 76 20 24 72 65 ag settagrev $re
5cd0: 76 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a v...}.. }..}.
5ce0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
5cf0: 20 20 20 6d 65 74 68 6f 64 20 44 65 74 65 72 6d method Determ
5d00: 69 6e 65 54 68 65 52 6f 6f 74 52 65 76 69 73 69 ineTheRootRevisi
5d10: 6f 6e 20 7b 7d 20 7b 0a 09 23 20 54 68 65 20 72 on {} {..# The r
5d20: 6f 6f 74 20 69 73 20 74 68 65 20 6f 6e 65 20 72 oot is the one r
5d30: 65 76 69 73 69 6f 6e 20 77 68 69 63 68 20 68 61 evision which ha
5d40: 73 20 6e 6f 20 70 61 72 65 6e 74 2e 20 42 79 0a s no parent. By.
5d50: 09 23 20 63 68 65 63 6b 69 6e 67 20 61 6c 6c 20 .# checking all
5d60: 72 65 76 69 73 69 6f 6e 73 20 77 65 20 65 6e 73 revisions we ens
5d70: 75 72 65 20 74 68 61 74 20 77 65 20 63 61 6e 20 ure that we can
5d80: 64 65 74 65 63 74 20 61 6e 64 0a 09 23 20 72 65 detect and..# re
5d90: 70 6f 72 74 20 74 68 65 20 63 61 73 65 20 6f 66 port the case of
5da0: 20 6d 75 6c 74 69 70 6c 65 20 72 6f 6f 74 73 2e multiple roots.
5db0: 20 57 69 74 68 6f 75 74 20 74 68 61 74 20 77 65 Without that we
5dc0: 20 63 6f 75 6c 64 0a 09 23 20 73 69 6d 70 6c 79 could..# simply
5dd0: 20 74 61 6b 65 20 6f 6e 65 20 72 65 76 69 73 69 take one revisi
5de0: 6f 6e 20 61 6e 64 20 66 6f 6c 6c 6f 77 20 74 68 on and follow th
5df0: 65 20 70 61 72 65 6e 74 20 6c 69 6e 6b 73 20 74 e parent links t
5e00: 6f 0a 09 23 20 74 68 65 69 72 20 72 6f 6f 74 20 o..# their root
5e10: 28 73 69 63 21 29 2e 0a 0a 09 66 6f 72 65 61 63 (sic!)....foreac
5e20: 68 20 7b 72 65 76 6e 72 20 72 65 76 7d 20 5b 61 h {revnr rev} [a
5e30: 72 72 61 79 20 67 65 74 20 6d 79 72 65 76 5d 20 rray get myrev]
5e40: 7b 0a 09 20 20 20 20 69 66 20 7b 5b 24 72 65 76 {.. if {[$rev
5e50: 20 68 61 73 70 61 72 65 6e 74 5d 7d 20 63 6f 6e hasparent]} con
5e60: 74 69 6e 75 65 0a 09 20 20 20 20 69 6e 74 65 67 tinue.. integ
5e70: 72 69 74 79 20 61 73 73 65 72 74 20 7b 24 6d 79 rity assert {$my
5e80: 72 6f 6f 74 20 65 71 20 22 22 7d 20 7b 4d 75 6c root eq ""} {Mul
5e90: 74 69 70 6c 65 20 72 6f 6f 74 20 72 65 76 69 73 tiple root revis
5ea0: 69 6f 6e 73 20 66 6f 75 6e 64 7d 0a 09 20 20 20 ions found}..
5eb0: 20 73 65 74 20 6d 79 72 6f 6f 74 20 24 72 65 76 set myroot $rev
5ec0: 0a 09 7d 0a 0a 09 23 20 49 6e 20 74 68 65 20 66 ..}...# In the f
5ed0: 75 74 75 72 65 20 77 65 20 61 6c 73 6f 20 6e 65 uture we also ne
5ee0: 65 64 20 61 20 6c 69 73 74 2c 20 61 73 20 62 72 ed a list, as br
5ef0: 61 6e 63 68 65 73 20 63 61 6e 20 62 65 63 6f 6d anches can becom
5f00: 65 0a 09 23 20 73 65 76 65 72 65 64 20 66 72 6f e..# severed fro
5f10: 6d 20 74 68 65 69 72 20 70 61 72 65 6e 74 2c 20 m their parent,
5f20: 6d 61 6b 69 6e 67 20 74 68 65 6d 20 74 68 65 69 making them thei
5f30: 72 20 6f 77 6e 20 72 6f 6f 74 2e 0a 09 73 65 74 r own root...set
5f40: 20 6d 79 72 6f 6f 74 73 20 5b 6c 69 73 74 20 24 myroots [list $
5f50: 6d 79 72 6f 6f 74 5d 0a 09 72 65 74 75 72 6e 0a myroot]..return.
5f60: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
5f70: 64 20 44 65 74 65 72 6d 69 6e 65 52 65 76 69 73 d DetermineRevis
5f80: 69 6f 6e 4f 70 65 72 61 74 69 6f 6e 73 20 7b 7d ionOperations {}
5f90: 20 7b 0a 09 66 6f 72 65 61 63 68 20 72 65 76 20 {..foreach rev
5fa0: 24 6d 79 72 65 76 69 73 69 6f 6e 73 20 7b 20 24 $myrevisions { $
5fb0: 72 65 76 20 64 65 74 65 72 6d 69 6e 65 6f 70 65 rev determineope
5fc0: 72 61 74 69 6f 6e 20 7d 0a 09 72 65 74 75 72 6e ration }..return
5fd0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
5fe0: 6f 64 20 44 65 74 65 72 6d 69 6e 65 4c 69 6e 65 od DetermineLine
5ff0: 73 4f 66 44 65 76 65 6c 6f 70 6d 65 6e 74 20 7b sOfDevelopment {
6000: 7d 20 7b 0a 09 23 20 46 6f 72 20 72 65 76 69 73 } {..# For revis
6010: 69 6f 6e 73 20 74 68 69 73 20 68 61 73 20 62 65 ions this has be
6020: 65 6e 20 64 6f 6e 65 20 61 6c 72 65 61 64 79 2c en done already,
6030: 20 69 6e 20 27 65 78 74 65 6e 64 27 2e 20 4e 6f in 'extend'. No
6040: 77 0a 09 23 20 77 65 20 64 6f 20 74 68 69 73 20 w..# we do this
6050: 66 6f 72 20 74 68 65 20 62 72 61 6e 63 68 65 73 for the branches
6060: 20 61 6e 64 20 74 61 67 73 2e 0a 0a 09 66 6f 72 and tags....for
6070: 65 61 63 68 20 7b 5f 20 62 72 61 6e 63 68 7d 20 each {_ branch}
6080: 5b 61 72 72 61 79 20 67 65 74 20 6d 79 62 72 61 [array get mybra
6090: 6e 63 68 65 73 5d 20 7b 0a 09 20 20 20 20 24 62 nches] {.. $b
60a0: 72 61 6e 63 68 20 73 65 74 6c 6f 64 20 5b 24 73 ranch setlod [$s
60b0: 65 6c 66 20 47 65 74 4c 4f 44 20 5b 24 62 72 61 elf GetLOD [$bra
60c0: 6e 63 68 20 70 61 72 65 6e 74 72 65 76 6e 72 5d nch parentrevnr]
60d0: 5d 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b ]..}...foreach {
60e0: 5f 20 74 61 67 6c 69 73 74 7d 20 5b 61 72 72 61 _ taglist} [arra
60f0: 79 20 67 65 74 20 6d 79 74 61 67 73 5d 20 7b 0a y get mytags] {.
6100: 09 20 20 20 20 66 6f 72 65 61 63 68 20 74 61 67 . foreach tag
6110: 20 24 74 61 67 6c 69 73 74 20 7b 0a 09 09 24 74 $taglist {...$t
6120: 61 67 20 73 65 74 6c 6f 64 20 5b 24 73 65 6c 66 ag setlod [$self
6130: 20 47 65 74 4c 4f 44 20 5b 24 74 61 67 20 74 61 GetLOD [$tag ta
6140: 67 72 65 76 6e 72 5d 5d 0a 09 20 20 20 20 7d 0a grevnr]].. }.
6150: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
6160: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 47 65 74 .. method Get
6170: 4c 4f 44 20 7b 72 65 76 6e 72 7d 20 7b 0a 09 69 LOD {revnr} {..i
6180: 66 20 7b 5b 72 65 76 20 69 73 74 72 75 6e 6b 72 f {[rev istrunkr
6190: 65 76 6e 72 20 24 72 65 76 6e 72 5d 7d 20 7b 0a evnr $revnr]} {.
61a0: 09 20 20 20 20 72 65 74 75 72 6e 20 24 6d 79 74 . return $myt
61b0: 72 75 6e 6b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 runk..} else {..
61c0: 20 20 20 20 72 65 74 75 72 6e 20 5b 24 73 65 6c return [$sel
61d0: 66 20 52 65 76 32 42 72 61 6e 63 68 20 24 72 65 f Rev2Branch $re
61e0: 76 6e 72 5d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 vnr]..}. }..
61f0: 20 20 20 6d 65 74 68 6f 64 20 48 61 6e 64 6c 65 method Handle
6200: 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 75 6c 74 42 NonTrunkDefaultB
6210: 72 61 6e 63 68 20 7b 7d 20 7b 0a 09 73 65 74 20 ranch {} {..set
6220: 72 65 76 6c 69 73 74 20 5b 24 73 65 6c 66 20 4e revlist [$self N
6230: 6f 6e 54 72 75 6e 6b 44 65 66 61 75 6c 74 52 65 onTrunkDefaultRe
6240: 76 69 73 69 6f 6e 73 5d 0a 09 69 66 20 7b 21 5b visions]..if {![
6250: 6c 6c 65 6e 67 74 68 20 24 72 65 76 6c 69 73 74 llength $revlist
6260: 5d 7d 20 72 65 74 75 72 6e 0a 0a 09 24 73 65 6c ]} return...$sel
6270: 66 20 41 64 6a 75 73 74 4e 6f 6e 54 72 75 6e 6b f AdjustNonTrunk
6280: 44 65 66 61 75 6c 74 42 72 61 6e 63 68 20 24 72 DefaultBranch $r
6290: 65 76 6c 69 73 74 0a 09 24 73 65 6c 66 20 43 68 evlist..$self Ch
62a0: 65 63 6b 4c 4f 44 73 0a 09 72 65 74 75 72 6e 0a eckLODs..return.
62b0: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
62c0: 64 20 4e 6f 6e 54 72 75 6e 6b 44 65 66 61 75 6c d NonTrunkDefaul
62d0: 74 52 65 76 69 73 69 6f 6e 73 20 7b 7d 20 7b 0a tRevisions {} {.
62e0: 09 23 20 46 72 6f 6d 20 63 76 73 32 73 76 6e 20 .# From cvs2svn
62f0: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 the following ex
6300: 70 6c 61 6e 61 74 69 6f 6e 20 28 77 69 74 68 20 planation (with
6310: 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 0a 09 23 modifications..#
6320: 20 66 6f 72 20 6f 75 72 20 61 6c 67 6f 72 69 74 for our algorit
6330: 68 6d 29 3a 0a 0a 09 23 20 44 65 74 65 72 6d 69 hm):...# Determi
6340: 6e 65 20 77 68 65 74 68 65 72 20 74 68 65 72 65 ne whether there
6350: 20 61 72 65 20 61 6e 79 20 6e 6f 6e 2d 74 72 75 are any non-tru
6360: 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 nk default branc
6370: 68 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 2e 0a h..# revisions..
6380: 0a 09 23 20 49 66 20 61 20 6e 6f 6e 2d 74 72 75 ..# If a non-tru
6390: 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 nk default branc
63a0: 68 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 h is determined
63b0: 74 6f 20 68 61 76 65 20 65 78 69 73 74 65 64 2c to have existed,
63c0: 0a 09 23 20 72 65 74 75 72 6e 20 61 20 6c 69 73 ..# return a lis
63d0: 74 20 6f 66 20 6f 62 6a 65 63 74 73 20 66 6f 72 t of objects for
63e0: 20 61 6c 6c 20 72 65 76 69 73 69 6f 6e 73 20 74 all revisions t
63f0: 68 61 74 20 77 65 72 65 20 6f 6e 63 65 0a 09 23 hat were once..#
6400: 20 6e 6f 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 non-trunk defau
6410: 6c 74 20 72 65 76 69 73 69 6f 6e 73 2c 20 69 6e lt revisions, in
6420: 20 64 65 70 65 6e 64 65 6e 63 79 20 6f 72 64 65 dependency orde
6430: 72 20 28 69 2e 65 2e 20 72 6f 6f 74 0a 09 23 20 r (i.e. root..#
6440: 66 69 72 73 74 29 2e 0a 0a 09 23 20 54 68 65 72 first)....# Ther
6450: 65 20 61 72 65 20 74 77 6f 20 63 61 73 65 73 20 e are two cases
6460: 74 6f 20 68 61 6e 64 6c 65 3a 0a 0a 09 23 20 4f to handle:...# O
6470: 6e 65 20 63 61 73 65 20 69 73 20 73 69 6d 70 6c ne case is simpl
6480: 65 2e 20 20 54 68 65 20 52 43 53 20 66 69 6c 65 e. The RCS file
6490: 20 6c 69 73 74 73 20 61 20 64 65 66 61 75 6c 74 lists a default
64a0: 20 62 72 61 6e 63 68 0a 09 23 20 65 78 70 6c 69 branch..# expli
64b0: 63 69 74 6c 79 20 69 6e 20 69 74 73 20 68 65 61 citly in its hea
64c0: 64 65 72 2c 20 73 75 63 68 20 61 73 20 27 31 2e der, such as '1.
64d0: 31 2e 31 27 2e 20 20 49 6e 20 74 68 69 73 20 63 1.1'. In this c
64e0: 61 73 65 2c 20 77 65 0a 09 23 20 6b 6e 6f 77 20 ase, we..# know
64f0: 74 68 61 74 20 65 76 65 72 79 20 72 65 76 69 73 that every revis
6500: 69 6f 6e 20 6f 6e 20 74 68 65 20 76 65 6e 64 6f ion on the vendo
6510: 72 20 62 72 61 6e 63 68 20 69 73 20 74 6f 20 62 r branch is to b
6520: 65 0a 09 23 20 74 72 65 61 74 65 64 20 61 73 20 e..# treated as
6530: 68 65 61 64 20 6f 66 20 74 72 75 6e 6b 20 61 74 head of trunk at
6540: 20 74 68 61 74 20 70 6f 69 6e 74 20 69 6e 20 74 that point in t
6550: 69 6d 65 2e 0a 0a 09 23 20 42 75 74 20 74 68 65 ime....# But the
6560: 72 65 27 73 20 61 6c 73 6f 20 61 20 64 65 67 65 re's also a dege
6570: 6e 65 72 61 74 65 20 63 61 73 65 2e 20 20 54 68 nerate case. Th
6580: 65 20 52 43 53 20 66 69 6c 65 20 64 6f 65 73 20 e RCS file does
6590: 6e 6f 74 0a 09 23 20 63 75 72 72 65 6e 74 6c 79 not..# currently
65a0: 20 68 61 76 65 20 61 20 64 65 66 61 75 6c 74 20 have a default
65b0: 62 72 61 6e 63 68 2c 20 79 65 74 20 77 65 20 63 branch, yet we c
65c0: 61 6e 20 64 65 64 75 63 65 20 74 68 61 74 20 66 an deduce that f
65d0: 6f 72 0a 09 23 20 73 6f 6d 65 20 70 65 72 69 6f or..# some perio
65e0: 64 20 69 6e 20 74 68 65 20 70 61 73 74 20 69 74 d in the past it
65f0: 20 70 72 6f 62 61 62 6c 79 20 2a 64 69 64 2a 20 probably *did*
6600: 68 61 76 65 20 6f 6e 65 2e 20 20 46 6f 72 0a 09 have one. For..
6610: 23 20 65 78 61 6d 70 6c 65 2c 20 74 68 65 20 66 # example, the f
6620: 69 6c 65 20 68 61 73 20 76 65 6e 64 6f 72 20 72 ile has vendor r
6630: 65 76 69 73 69 6f 6e 73 20 31 2e 31 2e 31 2e 31 evisions 1.1.1.1
6640: 20 2d 3e 20 31 2e 31 2e 31 2e 39 36 2c 0a 09 23 -> 1.1.1.96,..#
6650: 20 61 6c 6c 20 6f 66 20 77 68 69 63 68 20 61 72 all of which ar
6660: 65 20 64 61 74 65 64 20 62 65 66 6f 72 65 20 31 e dated before 1
6670: 2e 32 2c 20 61 6e 64 20 74 68 65 6e 20 69 74 20 .2, and then it
6680: 68 61 73 20 31 2e 31 2e 31 2e 39 37 0a 09 23 20 has 1.1.1.97..#
6690: 2d 3e 20 31 2e 31 2e 31 2e 31 30 30 20 64 61 74 -> 1.1.1.100 dat
66a0: 65 64 20 61 66 74 65 72 20 31 2e 32 2e 20 20 49 ed after 1.2. I
66b0: 6e 20 74 68 69 73 20 63 61 73 65 2c 20 77 65 20 n this case, we
66c0: 73 68 6f 75 6c 64 0a 09 23 20 72 65 63 6f 72 64 should..# record
66d0: 20 31 2e 31 2e 31 2e 39 36 20 61 73 20 74 68 65 1.1.1.96 as the
66e0: 20 6c 61 73 74 20 76 65 6e 64 6f 72 20 72 65 76 last vendor rev
66f0: 69 73 69 6f 6e 20 74 6f 20 68 61 76 65 20 62 65 ision to have be
6700: 65 6e 20 74 68 65 0a 09 23 20 68 65 61 64 20 6f en the..# head o
6710: 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 62 72 f the default br
6720: 61 6e 63 68 2e 0a 0a 09 69 66 20 7b 24 6d 79 70 anch....if {$myp
6730: 72 69 6e 63 69 70 61 6c 20 6e 65 20 22 22 7d 20 rincipal ne ""}
6740: 7b 0a 09 20 20 20 20 23 20 54 68 65 72 65 20 69 {.. # There i
6750: 73 20 73 74 69 6c 6c 20 61 20 64 65 66 61 75 6c s still a defaul
6760: 74 20 62 72 61 6e 63 68 3b 20 74 68 61 74 20 6d t branch; that m
6770: 65 61 6e 73 20 74 68 61 74 20 61 6c 6c 0a 09 20 eans that all..
6780: 20 20 20 23 20 72 65 76 69 73 69 6f 6e 73 20 6f # revisions o
6790: 6e 20 74 68 61 74 20 62 72 61 6e 63 68 20 67 65 n that branch ge
67a0: 74 20 6d 61 72 6b 65 64 2e 0a 0a 09 20 20 20 20 t marked....
67b0: 6c 6f 67 20 77 72 69 74 65 20 35 20 66 69 6c 65 log write 5 file
67c0: 20 22 46 6f 75 6e 64 20 65 78 70 6c 69 63 69 74 "Found explicit
67d0: 6c 79 20 6d 61 72 6b 65 64 20 4e 54 44 42 22 0a ly marked NTDB".
67e0: 0a 09 20 20 20 20 73 65 74 20 72 6e 65 78 74 20 .. set rnext
67f0: 5b 24 6d 79 72 6f 6f 74 20 63 68 69 6c 64 5d 0a [$myroot child].
6800: 09 20 20 20 20 69 66 20 7b 24 72 6e 65 78 74 20 . if {$rnext
6810: 6e 65 20 22 22 7d 20 7b 0a 09 09 74 72 6f 75 62 ne ""} {...troub
6820: 6c 65 20 66 61 74 61 6c 20 22 46 69 6c 65 20 77 le fatal "File w
6830: 69 74 68 20 64 65 66 61 75 6c 74 20 62 72 61 6e ith default bran
6840: 63 68 20 24 6d 79 70 72 69 6e 63 69 70 61 6c 20 ch $myprincipal
6850: 61 6c 73 6f 20 68 61 73 20 72 65 76 69 73 69 6f also has revisio
6860: 6e 20 5b 24 72 6e 65 78 74 20 72 65 76 6e 72 5d n [$rnext revnr]
6870: 22 0a 09 09 72 65 74 75 72 6e 0a 09 20 20 20 20 "...return..
6880: 7d 0a 0a 09 20 20 20 20 73 65 74 20 72 65 76 20 }... set rev
6890: 5b 24 6d 79 62 72 61 6e 63 68 65 73 28 24 6d 79 [$mybranches($my
68a0: 70 72 69 6e 63 69 70 61 6c 29 20 63 68 69 6c 64 principal) child
68b0: 5d 0a 09 20 20 20 20 73 65 74 20 72 65 73 20 7b ].. set res {
68c0: 7d 0a 0a 09 20 20 20 20 77 68 69 6c 65 20 7b 24 }... while {$
68d0: 72 65 76 20 6e 65 20 22 22 7d 20 7b 0a 09 09 6c rev ne ""} {...l
68e0: 61 70 70 65 6e 64 20 72 65 73 20 24 72 65 76 0a append res $rev.
68f0: 09 09 73 65 74 20 72 65 76 20 5b 24 72 65 76 20 ..set rev [$rev
6900: 63 68 69 6c 64 5d 0a 09 20 20 20 20 7d 0a 0a 09 child].. }...
6910: 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 0a return $res.
6920: 0a 09 7d 20 65 6c 73 65 69 66 20 7b 24 6d 79 69 ..} elseif {$myi
6930: 6d 70 6f 72 74 65 64 7d 20 7b 0a 09 20 20 20 20 mported} {..
6940: 23 20 4e 6f 20 64 65 66 61 75 6c 74 20 62 72 61 # No default bra
6950: 6e 63 68 2c 20 62 75 74 20 74 68 65 20 66 69 6c nch, but the fil
6960: 65 20 61 70 70 65 61 72 73 20 74 6f 20 68 61 76 e appears to hav
6970: 65 20 62 65 65 6e 0a 09 20 20 20 20 23 20 69 6d e been.. # im
6980: 70 6f 72 74 65 64 2e 20 20 53 6f 20 6f 75 72 20 ported. So our
6990: 65 64 75 63 61 74 65 64 20 67 75 65 73 73 20 69 educated guess i
69a0: 73 20 74 68 61 74 20 61 6c 6c 20 72 65 76 69 73 s that all revis
69b0: 69 6f 6e 73 0a 09 20 20 20 20 23 20 6f 6e 20 74 ions.. # on t
69c0: 68 65 20 27 31 2e 31 2e 31 27 20 62 72 61 6e 63 he '1.1.1' branc
69d0: 68 20 77 69 74 68 20 74 69 6d 65 73 74 61 6d 70 h with timestamp
69e0: 73 20 70 72 69 6f 72 20 74 6f 20 74 68 65 0a 09 s prior to the..
69f0: 20 20 20 20 23 20 74 69 6d 65 73 74 61 6d 70 20 # timestamp
6a00: 6f 66 20 27 31 2e 32 27 20 77 65 72 65 20 6e 6f of '1.2' were no
6a10: 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 n-trunk default
6a20: 62 72 61 6e 63 68 0a 09 20 20 20 20 23 20 72 65 branch.. # re
6a30: 76 69 73 69 6f 6e 73 2e 0a 0a 09 20 20 20 20 23 visions.... #
6a40: 20 54 68 69 73 20 72 65 61 6c 6c 79 20 6f 6e 6c This really onl
6a50: 79 20 70 72 6f 63 65 73 73 65 73 20 73 74 61 6e y processes stan
6a60: 64 61 72 64 20 27 31 2e 31 2e 31 2e 2a 27 2d 73 dard '1.1.1.*'-s
6a70: 74 79 6c 65 0a 09 20 20 20 20 23 20 76 65 6e 64 tyle.. # vend
6a80: 6f 72 20 72 65 76 69 73 69 6f 6e 73 2e 20 20 4f or revisions. O
6a90: 6e 65 20 63 6f 75 6c 64 20 63 6f 6e 63 65 69 76 ne could conceiv
6aa0: 61 62 6c 79 20 68 61 76 65 20 61 20 66 69 6c 65 ably have a file
6ab0: 0a 09 20 20 20 20 23 20 77 68 6f 73 65 20 64 65 .. # whose de
6ac0: 66 61 75 6c 74 20 62 72 61 6e 63 68 20 69 73 20 fault branch is
6ad0: 31 2e 31 2e 33 20 6f 72 20 77 68 61 74 65 76 65 1.1.3 or whateve
6ae0: 72 2c 20 6f 72 20 77 61 73 20 74 68 61 74 0a 09 r, or was that..
6af0: 20 20 20 20 23 20 61 74 20 73 6f 6d 65 20 70 6f # at some po
6b00: 69 6e 74 20 69 6e 20 74 69 6d 65 2c 20 77 69 74 int in time, wit
6b10: 68 20 76 65 6e 64 6f 72 20 72 65 76 69 73 69 6f h vendor revisio
6b20: 6e 73 20 31 2e 31 2e 33 2e 31 2c 0a 09 20 20 20 ns 1.1.3.1,..
6b30: 20 23 20 31 2e 31 2e 33 2e 32 2c 20 65 74 63 2e # 1.1.3.2, etc.
6b40: 20 20 42 75 74 20 77 69 74 68 20 74 68 65 20 64 But with the d
6b50: 65 66 61 75 6c 74 20 62 72 61 6e 63 68 20 67 6f efault branch go
6b60: 6e 65 20 6e 6f 77 2c 0a 09 20 20 20 20 23 20 77 ne now,.. # w
6b70: 65 27 64 20 68 61 76 65 20 6e 6f 20 62 61 73 69 e'd have no basi
6b80: 73 20 66 6f 72 20 61 73 73 75 6d 69 6e 67 20 74 s for assuming t
6b90: 68 61 74 20 74 68 65 20 6e 6f 6e 2d 73 74 61 6e hat the non-stan
6ba0: 64 61 72 64 0a 09 20 20 20 20 23 20 76 65 6e 64 dard.. # vend
6bb0: 6f 72 20 62 72 61 6e 63 68 20 68 61 64 20 65 76 or branch had ev
6bc0: 65 72 20 62 65 65 6e 20 74 68 65 20 64 65 66 61 er been the defa
6bd0: 75 6c 74 20 62 72 61 6e 63 68 20 61 6e 79 77 61 ult branch anywa
6be0: 79 2e 0a 0a 09 20 20 20 20 23 20 4e 6f 74 65 20 y.... # Note
6bf0: 74 68 61 74 20 77 65 20 72 65 6c 79 20 6f 6e 20 that we rely on
6c00: 63 6f 6d 70 61 72 69 73 6f 6e 73 20 62 65 74 77 comparisons betw
6c10: 65 65 6e 20 74 68 65 20 74 69 6d 65 73 74 61 6d een the timestam
6c20: 70 73 0a 09 20 20 20 20 23 20 6f 66 20 74 68 65 ps.. # of the
6c30: 20 72 65 76 69 73 69 6f 6e 73 20 6f 6e 20 74 68 revisions on th
6c40: 65 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 68 20 e vendor branch
6c50: 61 6e 64 20 74 68 61 74 20 6f 66 0a 09 20 20 20 and that of..
6c60: 20 23 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 2c # revision 1.2,
6c70: 20 65 76 65 6e 20 74 68 6f 75 67 68 20 74 68 65 even though the
6c80: 20 74 69 6d 65 73 74 61 6d 70 73 20 6d 69 67 68 timestamps migh
6c90: 74 20 62 65 0a 09 20 20 20 20 23 20 69 6e 63 6f t be.. # inco
6ca0: 72 72 65 63 74 20 64 75 65 20 74 6f 20 63 6c 6f rrect due to clo
6cb0: 63 6b 20 73 6b 65 77 2e 20 20 57 65 20 63 6f 75 ck skew. We cou
6cc0: 6c 64 20 64 6f 20 61 20 73 6c 69 67 68 74 6c 79 ld do a slightly
6cd0: 0a 09 20 20 20 20 23 20 62 65 74 74 65 72 20 6a .. # better j
6ce0: 6f 62 20 69 66 20 77 65 20 75 73 65 64 20 74 68 ob if we used th
6cf0: 65 20 63 68 61 6e 67 65 73 65 74 20 74 69 6d 65 e changeset time
6d00: 73 74 61 6d 70 73 2c 20 61 73 20 69 74 20 69 73 stamps, as it is
6d10: 0a 09 20 20 20 20 23 20 70 6f 73 73 69 62 6c 65 .. # possible
6d20: 20 74 68 61 74 20 74 68 65 20 64 65 70 65 6e 64 that the depend
6d30: 65 6e 63 69 65 73 20 74 68 61 74 20 77 65 6e 74 encies that went
6d40: 20 69 6e 74 6f 0a 09 20 20 20 20 23 20 64 65 74 into.. # det
6d50: 65 72 6d 69 6e 69 6e 67 20 74 68 6f 73 65 20 74 ermining those t
6d60: 69 6d 65 73 74 61 6d 70 73 20 61 72 65 20 6d 6f imestamps are mo
6d70: 72 65 20 61 63 63 75 72 61 74 65 2e 20 20 42 75 re accurate. Bu
6d80: 74 0a 09 20 20 20 20 23 20 74 68 61 74 20 77 6f t.. # that wo
6d90: 75 6c 64 20 72 65 71 75 69 72 65 20 61 6e 20 65 uld require an e
6da0: 78 74 72 61 20 70 61 73 73 20 6f 72 20 74 77 6f xtra pass or two
6db0: 2e 0a 0a 09 20 20 20 20 69 66 20 7b 21 5b 69 6e .... if {![in
6dc0: 66 6f 20 65 78 69 73 74 73 20 6d 79 62 72 61 6e fo exists mybran
6dd0: 63 68 65 73 28 31 2e 31 2e 31 29 5d 7d 20 7b 20 ches(1.1.1)]} {
6de0: 72 65 74 75 72 6e 20 7b 7d 20 7d 0a 0a 09 20 20 return {} }...
6df0: 20 20 6c 6f 67 20 77 72 69 74 65 20 35 20 66 69 log write 5 fi
6e00: 6c 65 20 22 44 65 64 75 63 65 64 20 65 78 69 73 le "Deduced exis
6e10: 74 65 6e 63 65 20 6f 66 20 4e 54 44 42 22 0a 0a tence of NTDB"..
6e20: 09 20 20 20 20 73 65 74 20 72 65 76 20 20 5b 24 . set rev [$
6e30: 6d 79 62 72 61 6e 63 68 65 73 28 31 2e 31 2e 31 mybranches(1.1.1
6e40: 29 20 63 68 69 6c 64 5d 0a 09 20 20 20 20 73 65 ) child].. se
6e50: 74 20 72 65 73 20 20 7b 7d 0a 09 20 20 20 20 73 t res {}.. s
6e60: 65 74 20 73 74 6f 70 20 5b 24 6d 79 72 6f 6f 74 et stop [$myroot
6e70: 20 63 68 69 6c 64 5d 0a 0a 09 20 20 20 20 69 66 child]... if
6e80: 20 7b 24 73 74 6f 70 20 65 71 20 22 22 7d 20 7b {$stop eq ""} {
6e90: 0a 09 09 23 20 47 65 74 20 65 76 65 72 79 74 68 ...# Get everyth
6ea0: 69 6e 67 20 6f 6e 20 74 68 65 20 62 72 61 6e 63 ing on the branc
6eb0: 68 0a 09 09 77 68 69 6c 65 20 7b 24 72 65 76 20 h...while {$rev
6ec0: 6e 65 20 22 22 7d 20 7b 0a 09 09 20 20 20 20 6c ne ""} {... l
6ed0: 61 70 70 65 6e 64 20 72 65 73 20 24 72 65 76 0a append res $rev.
6ee0: 09 09 20 20 20 20 73 65 74 20 72 65 76 20 5b 24 .. set rev [$
6ef0: 72 65 76 20 63 68 69 6c 64 5d 0a 09 09 7d 0a 09 rev child]...}..
6f00: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 23 } else {...#
6f10: 20 43 6f 6c 6c 65 63 74 20 65 76 65 72 79 74 68 Collect everyth
6f20: 69 6e 67 20 6f 6e 20 74 68 65 20 62 72 61 6e 63 ing on the branc
6f30: 68 20 77 68 69 63 68 20 73 65 65 6d 73 20 74 6f h which seems to
6f40: 20 68 61 76 65 0a 09 09 23 20 62 65 65 6e 20 63 have...# been c
6f50: 6f 6d 6d 69 74 74 65 64 20 62 65 66 6f 72 65 20 ommitted before
6f60: 74 68 65 20 66 69 72 73 74 20 70 72 69 6d 61 72 the first primar
6f70: 79 20 63 68 69 6c 64 20 6f 66 20 74 68 65 0a 09 y child of the..
6f80: 09 23 20 72 6f 6f 74 20 72 65 76 69 73 69 6f 6e .# root revision
6f90: 2e 0a 09 09 73 65 74 20 73 74 6f 70 64 61 74 65 ....set stopdate
6fa0: 20 5b 24 73 74 6f 70 20 64 61 74 65 5d 0a 09 09 [$stop date]...
6fb0: 77 68 69 6c 65 20 7b 24 72 65 76 20 6e 65 20 22 while {$rev ne "
6fc0: 22 7d 20 7b 0a 09 09 20 20 20 20 69 66 20 7b 5b "} {... if {[
6fd0: 24 72 65 76 20 64 61 74 65 5d 20 3e 3d 20 24 73 $rev date] >= $s
6fe0: 74 6f 70 64 61 74 65 7d 20 62 72 65 61 6b 0a 09 topdate} break..
6ff0: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 . lappend res
7000: 20 24 72 65 76 0a 09 09 20 20 20 20 73 65 74 20 $rev... set
7010: 72 65 76 20 5b 24 72 65 76 20 63 68 69 6c 64 5d rev [$rev child]
7020: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 09 20 20 ...}.. }...
7030: 20 20 72 65 74 75 72 6e 20 24 72 65 73 0a 0a 09 return $res...
7040: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 } else {.. re
7050: 74 75 72 6e 20 7b 7d 0a 09 7d 0a 20 20 20 20 7d turn {}..}. }
7060: 0a 0a 20 20 20 20 23 20 47 65 6e 65 72 61 6c 20 .. # General
7070: 6e 6f 74 65 3a 20 49 6e 20 74 68 65 20 66 6f 6c note: In the fol
7080: 6c 6f 77 69 6e 67 20 6d 65 74 68 6f 64 73 20 77 lowing methods w
7090: 65 20 6f 6e 6c 79 20 6d 6f 64 69 66 79 20 74 68 e only modify th
70a0: 65 20 6c 69 6e 6b 73 0a 20 20 20 20 23 20 62 65 e links. # be
70b0: 74 77 65 65 6e 20 72 65 76 69 73 69 6f 6e 73 20 tween revisions
70c0: 61 6e 64 20 73 79 6d 62 6f 6c 73 20 74 6f 20 72 and symbols to r
70d0: 65 73 74 72 75 63 74 75 72 65 20 74 68 65 20 72 estructure the r
70e0: 65 76 69 73 69 6f 6e 0a 20 20 20 20 23 20 74 72 evision. # tr
70f0: 65 65 2e 20 57 65 20 64 6f 20 5f 5f 6e 6f 74 5f ee. We do __not_
7100: 5f 20 64 65 73 74 72 6f 79 20 74 68 65 20 6f 62 _ destroy the ob
7110: 6a 65 63 74 73 2e 20 47 69 76 65 6e 20 74 68 65 jects. Given the
7120: 20 63 6f 6d 70 6c 65 78 20 6c 69 6e 6b 73 0a 20 complex links.
7130: 20 20 20 23 20 47 43 20 69 73 20 64 69 66 66 69 # GC is diffi
7140: 63 75 6c 74 20 61 74 20 74 68 69 73 20 6c 65 76 cult at this lev
7150: 65 6c 2e 20 49 74 20 69 73 20 6d 75 63 68 20 65 el. It is much e
7160: 61 73 69 65 72 20 74 6f 20 64 72 6f 70 0a 20 20 asier to drop.
7170: 20 20 23 20 65 76 65 72 79 74 68 69 6e 67 20 77 # everything w
7180: 68 65 6e 20 77 65 20 77 65 20 61 72 65 20 64 6f hen we we are do
7190: 6e 65 2e 20 54 68 69 73 20 68 61 70 70 65 6e 73 ne. This happens
71a0: 20 69 6e 20 27 64 72 6f 70 27 2c 20 75 73 69 6e in 'drop', usin
71b0: 67 0a 20 20 20 20 23 20 74 68 65 20 73 74 61 74 g. # the stat
71c0: 65 20 76 61 72 69 61 62 6c 65 20 27 6d 79 72 65 e variable 'myre
71d0: 76 27 2c 20 27 6d 79 62 72 61 6e 63 68 65 73 27 v', 'mybranches'
71e0: 2c 20 61 6e 64 20 27 6d 79 74 61 67 73 27 2e 20 , and 'mytags'.
71f0: 57 68 61 74 20 77 65 0a 20 20 20 20 23 20 68 61 What we. # ha
7200: 76 65 20 74 6f 20 70 65 72 73 69 73 74 2c 20 70 ve to persist, p
7210: 65 72 66 6f 72 6d 65 64 20 62 79 20 27 70 65 72 erformed by 'per
7220: 73 69 73 74 27 2c 20 77 65 20 6b 6e 6f 77 20 77 sist', we know w
7230: 69 6c 6c 20 62 65 0a 20 20 20 20 23 20 72 65 61 ill be. # rea
7240: 63 68 61 62 6c 65 20 74 68 72 6f 75 67 68 20 74 chable through t
7250: 68 65 20 72 65 76 69 73 69 6f 6e 73 20 6c 69 73 he revisions lis
7260: 74 65 64 20 69 6e 20 27 6d 79 72 6f 6f 74 73 27 ted in 'myroots'
7270: 20 61 6e 64 20 74 68 65 69 72 0a 20 20 20 20 23 and their. #
7280: 20 63 68 69 6c 64 72 65 6e 20 61 6e 64 20 73 79 children and sy
7290: 6d 62 6f 6c 73 2e 0a 0a 20 20 20 20 6d 65 74 68 mbols... meth
72a0: 6f 64 20 41 64 6a 75 73 74 4e 6f 6e 54 72 75 6e od AdjustNonTrun
72b0: 6b 44 65 66 61 75 6c 74 42 72 61 6e 63 68 20 7b kDefaultBranch {
72c0: 72 65 76 6c 69 73 74 7d 20 7b 0a 09 73 65 74 20 revlist} {..set
72d0: 73 74 6f 70 20 5b 24 6d 79 72 6f 6f 74 20 63 68 stop [$myroot ch
72e0: 69 6c 64 5d 20 3b 23 20 72 65 76 20 27 31 2e 32 ild] ;# rev '1.2
72f0: 27 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 35 20 '...log write 5
7300: 66 69 6c 65 20 22 41 64 6a 75 73 74 69 6e 67 20 file "Adjusting
7310: 4e 54 44 42 20 63 6f 6e 74 61 69 6e 69 6e 67 20 NTDB containing
7320: 5b 6e 73 70 20 5b 6c 6c 65 6e 67 74 68 20 24 72 [nsp [llength $r
7330: 65 76 6c 69 73 74 5d 20 72 65 76 69 73 69 6f 6e evlist] revision
7340: 5d 22 0a 0a 09 23 20 46 72 6f 6d 20 63 76 73 32 ]"...# From cvs2
7350: 73 76 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e svn the followin
7360: 67 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 28 77 g explanation (w
7370: 69 74 68 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e ith modification
7380: 73 0a 09 23 20 66 6f 72 20 6f 75 72 20 61 6c 67 s..# for our alg
7390: 6f 72 69 74 68 6d 29 3a 0a 0a 09 23 20 41 64 6a orithm):...# Adj
73a0: 75 73 74 20 74 68 65 20 6e 6f 6e 2d 74 72 75 6e ust the non-trun
73b0: 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 k default branch
73c0: 20 72 65 76 69 73 69 6f 6e 73 20 66 6f 75 6e 64 revisions found
73d0: 20 69 6e 20 74 68 65 0a 09 23 20 27 72 65 76 6c in the..# 'revl
73e0: 69 73 74 27 2e 0a 0a 09 23 20 27 6d 79 69 6d 70 ist'....# 'myimp
73f0: 6f 72 74 65 64 27 20 69 73 20 61 20 62 6f 6f 6c orted' is a bool
7400: 65 61 6e 20 66 6c 61 67 20 69 6e 64 69 63 61 74 ean flag indicat
7410: 69 6e 67 20 77 68 65 74 68 65 72 20 74 68 69 73 ing whether this
7420: 20 66 69 6c 65 0a 09 23 20 61 70 70 65 61 72 73 file..# appears
7430: 20 74 6f 20 68 61 76 65 20 62 65 65 6e 20 69 6d to have been im
7440: 70 6f 72 74 65 64 2c 20 77 68 69 63 68 20 61 6c ported, which al
7450: 73 6f 20 6d 65 61 6e 73 20 74 68 61 74 0a 09 23 so means that..#
7460: 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 20 68 61 revision 1.1 ha
7470: 73 20 61 20 67 65 6e 65 72 61 74 65 64 20 6c 6f s a generated lo
7480: 67 20 6d 65 73 73 61 67 65 20 74 68 61 74 20 6e g message that n
7490: 65 65 64 20 6e 6f 74 20 62 65 0a 09 23 20 70 72 eed not be..# pr
74a0: 65 73 65 72 76 65 64 2e 20 20 27 72 65 76 6c 69 eserved. 'revli
74b0: 73 74 27 20 69 73 20 61 20 6c 69 73 74 20 6f 66 st' is a list of
74c0: 20 6f 62 6a 65 63 74 20 72 65 66 65 72 65 6e 63 object referenc
74d0: 65 73 20 66 6f 72 20 74 68 65 0a 09 23 20 72 65 es for the..# re
74e0: 76 69 73 69 6f 6e 73 20 74 68 61 74 20 68 61 76 visions that hav
74f0: 65 20 62 65 65 6e 20 64 65 74 65 72 6d 69 6e 65 e been determine
7500: 64 20 74 6f 20 62 65 20 6e 6f 6e 2d 74 72 75 6e d to be non-trun
7510: 6b 20 64 65 66 61 75 6c 74 0a 09 23 20 62 72 61 k default..# bra
7520: 6e 63 68 20 72 65 76 69 73 69 6f 6e 73 2e 0a 0a nch revisions...
7530: 09 23 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 .# Note that the
7540: 20 66 69 72 73 74 20 72 65 76 69 73 69 6f 6e 20 first revision
7550: 6f 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 62 on the default b
7560: 72 61 6e 63 68 20 69 73 0a 09 23 20 68 61 6e 64 ranch is..# hand
7570: 6c 65 64 20 73 74 72 61 6e 67 65 6c 79 20 62 79 led strangely by
7580: 20 43 56 53 2e 20 20 49 66 20 61 20 66 69 6c 65 CVS. If a file
7590: 20 69 73 20 69 6d 70 6f 72 74 65 64 20 28 61 73 is imported (as
75a0: 20 6f 70 70 6f 73 65 64 0a 09 23 20 74 6f 20 62 opposed..# to b
75b0: 65 69 6e 67 20 61 64 64 65 64 29 2c 20 43 56 53 eing added), CVS
75c0: 20 63 72 65 61 74 65 73 20 61 20 31 2e 31 20 72 creates a 1.1 r
75d0: 65 76 69 73 69 6f 6e 2c 20 74 68 65 6e 20 63 72 evision, then cr
75e0: 65 61 74 65 73 20 61 0a 09 23 20 76 65 6e 64 6f eates a..# vendo
75f0: 72 20 62 72 61 6e 63 68 20 31 2e 31 2e 31 20 62 r branch 1.1.1 b
7600: 61 73 65 64 20 6f 6e 20 31 2e 31 2c 20 74 68 65 ased on 1.1, the
7610: 6e 20 63 72 65 61 74 65 73 20 61 20 31 2e 31 2e n creates a 1.1.
7620: 31 2e 31 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 1.1..# revision
7630: 74 68 61 74 20 69 73 20 69 64 65 6e 74 69 63 61 that is identica
7640: 6c 20 74 6f 20 74 68 65 20 31 2e 31 20 72 65 76 l to the 1.1 rev
7650: 69 73 69 6f 6e 20 28 69 2e 65 2e 2c 20 69 74 73 ision (i.e., its
7660: 0a 09 23 20 64 65 6c 74 61 74 65 78 74 20 69 73 ..# deltatext is
7670: 20 65 6d 70 74 79 29 2e 20 20 54 68 65 20 6c 6f empty). The lo
7680: 67 20 6d 65 73 73 61 67 65 20 74 68 61 74 20 74 g message that t
7690: 68 65 20 75 73 65 72 20 74 79 70 65 64 0a 09 23 he user typed..#
76a0: 20 77 68 65 6e 20 69 6d 70 6f 72 74 69 6e 67 20 when importing
76b0: 69 73 20 73 74 6f 72 65 64 20 77 69 74 68 20 74 is stored with t
76c0: 68 65 20 31 2e 31 2e 31 2e 31 20 72 65 76 69 73 he 1.1.1.1 revis
76d0: 69 6f 6e 2e 20 20 54 68 65 20 31 2e 31 0a 09 23 ion. The 1.1..#
76e0: 20 72 65 76 69 73 69 6f 6e 20 61 6c 77 61 79 73 revision always
76f0: 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 74 61 6e contains a stan
7700: 64 61 72 64 2c 20 67 65 6e 65 72 61 74 65 64 20 dard, generated
7710: 6c 6f 67 20 6d 65 73 73 61 67 65 2c 0a 09 23 20 log message,..#
7720: 27 49 6e 69 74 69 61 6c 20 72 65 76 69 73 69 6f 'Initial revisio
7730: 6e 5c 6e 27 2e 0a 0a 09 23 20 57 68 65 6e 20 77 n\n'....# When w
7740: 65 20 64 65 74 65 63 74 20 61 20 73 74 72 61 69 e detect a strai
7750: 67 68 74 66 6f 72 77 61 72 64 20 69 6d 70 6f 72 ghtforward impor
7760: 74 20 6c 69 6b 65 20 74 68 69 73 2c 20 77 65 20 t like this, we
7770: 77 61 6e 74 0a 09 23 20 74 6f 20 68 61 6e 64 6c want..# to handl
7780: 65 20 69 74 20 62 79 20 64 65 6c 65 74 69 6e 67 e it by deleting
7790: 20 74 68 65 20 31 2e 31 20 72 65 76 69 73 69 6f the 1.1 revisio
77a0: 6e 20 28 77 68 69 63 68 20 64 6f 65 73 6e 27 74 n (which doesn't
77b0: 0a 09 23 20 63 6f 6e 74 61 69 6e 20 61 6e 79 20 ..# contain any
77c0: 75 73 65 66 75 6c 20 69 6e 66 6f 72 6d 61 74 69 useful informati
77d0: 6f 6e 29 20 61 6e 64 20 6d 61 6b 69 6e 67 20 31 on) and making 1
77e0: 2e 31 2e 31 2e 31 20 69 6e 74 6f 20 61 6e 0a 09 .1.1.1 into an..
77f0: 23 20 69 6e 64 65 70 65 6e 64 65 6e 74 20 72 6f # independent ro
7800: 6f 74 20 69 6e 20 74 68 65 20 66 69 6c 65 27 73 ot in the file's
7810: 20 64 65 70 65 6e 64 65 6e 63 79 20 74 72 65 65 dependency tree
7820: 2e 20 20 49 6e 20 53 56 4e 2c 0a 09 23 20 31 2e . In SVN,..# 1.
7830: 31 2e 31 2e 31 20 77 69 6c 6c 20 62 65 20 61 64 1.1.1 will be ad
7840: 64 65 64 20 64 69 72 65 63 74 6c 79 20 74 6f 20 ded directly to
7850: 74 68 65 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 the vendor branc
7860: 68 20 77 69 74 68 20 69 74 73 0a 09 23 20 69 6e h with its..# in
7870: 69 74 69 61 6c 20 63 6f 6e 74 65 6e 74 2e 20 20 itial content.
7880: 54 68 65 6e 20 69 6e 20 61 20 73 70 65 63 69 61 Then in a specia
7890: 6c 20 27 70 6f 73 74 2d 63 6f 6d 6d 69 74 27 2c l 'post-commit',
78a0: 20 74 68 65 0a 09 23 20 31 2e 31 2e 31 2e 31 20 the..# 1.1.1.1
78b0: 72 65 76 69 73 69 6f 6e 20 69 73 20 63 6f 70 69 revision is copi
78c0: 65 64 20 62 61 63 6b 20 74 6f 20 74 72 75 6e 6b ed back to trunk
78d0: 2e 0a 0a 09 23 20 49 66 20 74 68 65 20 75 73 65 ....# If the use
78e0: 72 20 69 6d 70 6f 72 74 73 20 61 67 61 69 6e 20 r imports again
78f0: 74 6f 20 74 68 65 20 73 61 6d 65 20 76 65 6e 64 to the same vend
7900: 6f 72 20 62 72 61 6e 63 68 2c 20 74 68 65 6e 20 or branch, then
7910: 43 56 53 0a 09 23 20 63 72 65 61 74 65 73 20 72 CVS..# creates r
7920: 65 76 69 73 69 6f 6e 73 20 31 2e 31 2e 31 2e 32 evisions 1.1.1.2
7930: 2c 20 31 2e 31 2e 31 2e 33 2c 20 65 74 63 2e 20 , 1.1.1.3, etc.
7940: 6f 6e 20 74 68 65 20 76 65 6e 64 6f 72 20 62 72 on the vendor br
7950: 61 6e 63 68 2c 0a 09 23 20 2a 77 69 74 68 6f 75 anch,..# *withou
7960: 74 2a 20 63 6f 75 6e 74 65 72 70 61 72 74 73 20 t* counterparts
7970: 69 6e 20 74 72 75 6e 6b 20 28 65 76 65 6e 20 74 in trunk (even t
7980: 68 6f 75 67 68 20 74 68 65 73 65 20 72 65 76 69 hough these revi
7990: 73 69 6f 6e 73 0a 09 23 20 65 66 66 65 63 74 69 sions..# effecti
79a0: 76 65 6c 79 20 70 6c 61 79 20 74 68 65 20 72 6f vely play the ro
79b0: 6c 65 20 6f 66 20 74 72 75 6e 6b 20 72 65 76 69 le of trunk revi
79c0: 73 69 6f 6e 73 29 2e 20 20 53 6f 20 61 66 74 65 sions). So afte
79d0: 72 20 77 65 20 61 64 64 0a 09 23 20 73 75 63 68 r we add..# such
79e0: 20 72 65 76 69 73 69 6f 6e 73 20 74 6f 20 74 68 revisions to th
79f0: 65 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 68 2c e vendor branch,
7a00: 20 77 65 20 61 6c 73 6f 20 63 6f 70 79 20 74 68 we also copy th
7a10: 65 6d 20 62 61 63 6b 20 74 6f 0a 09 23 20 74 72 em back to..# tr
7a20: 75 6e 6b 20 69 6e 20 70 6f 73 74 2d 63 6f 6d 6d unk in post-comm
7a30: 69 74 73 2e 0a 0a 09 23 20 57 65 20 6d 61 72 6b its....# We mark
7a40: 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 20 66 the revisions f
7a50: 6f 75 6e 64 20 69 6e 20 27 72 65 76 6c 69 73 74 ound in 'revlist
7a60: 27 20 61 73 20 64 65 66 61 75 6c 74 20 62 72 61 ' as default bra
7a70: 6e 63 68 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 nch..# revisions
7a80: 2e 20 20 41 6c 73 6f 2c 20 69 66 20 74 68 65 20 . Also, if the
7a90: 72 6f 6f 74 20 72 65 76 69 73 69 6f 6e 20 68 61 root revision ha
7aa0: 73 20 61 20 70 72 69 6d 61 72 79 20 63 68 69 6c s a primary chil
7ab0: 64 0a 09 23 20 77 65 20 73 65 74 20 74 68 61 74 d..# we set that
7ac0: 20 72 65 76 69 73 69 6f 6e 20 74 6f 20 64 65 70 revision to dep
7ad0: 65 6e 64 20 6f 6e 20 74 68 65 20 6c 61 73 74 20 end on the last
7ae0: 6e 6f 6e 2d 74 72 75 6e 6b 20 64 65 66 61 75 6c non-trunk defaul
7af0: 74 0a 09 23 20 62 72 61 6e 63 68 20 72 65 76 69 t..# branch revi
7b00: 73 69 6f 6e 20 61 6e 64 20 70 6f 73 73 69 62 6c sion and possibl
7b10: 79 20 61 64 6a 75 73 74 20 69 74 73 20 74 79 70 y adjust its typ
7b20: 65 20 61 63 63 6f 72 64 69 6e 67 6c 79 2e 0a 0a e accordingly...
7b30: 09 73 65 74 20 66 69 72 73 74 20 5b 6c 69 6e 64 .set first [lind
7b40: 65 78 20 24 72 65 76 6c 69 73 74 20 30 5d 0a 0a ex $revlist 0]..
7b50: 09 6c 6f 67 20 77 72 69 74 65 20 36 20 66 69 6c .log write 6 fil
7b60: 65 20 22 3c 5b 24 66 69 72 73 74 20 72 65 76 6e e "<[$first revn
7b70: 72 5d 3e 20 5b 65 78 70 72 20 7b 24 6d 79 69 6d r]> [expr {$myim
7b80: 70 6f 72 74 65 64 20 3f 20 22 69 6d 70 6f 72 74 ported ? "import
7b90: 65 64 22 20 3a 20 22 6e 6f 74 20 69 6d 70 6f 72 ed" : "not impor
7ba0: 74 65 64 22 7d 5d 2c 20 5b 24 66 69 72 73 74 20 ted"}], [$first
7bb0: 6f 70 65 72 61 74 69 6f 6e 5d 2c 20 5b 65 78 70 operation], [exp
7bc0: 72 20 7b 5b 24 66 69 72 73 74 20 68 61 73 74 65 r {[$first haste
7bd0: 78 74 5d 20 3f 20 22 68 61 73 20 74 65 78 74 22 xt] ? "has text"
7be0: 20 3a 20 22 6e 6f 20 74 65 78 74 22 7d 5d 22 0a : "no text"}]".
7bf0: 0a 09 69 66 20 7b 24 6d 79 69 6d 70 6f 72 74 65 ..if {$myimporte
7c00: 64 20 26 26 0a 09 20 20 20 20 5b 24 66 69 72 73 d &&.. [$firs
7c10: 74 20 72 65 76 6e 72 5d 20 65 71 20 22 31 2e 31 t revnr] eq "1.1
7c20: 2e 31 2e 31 22 20 26 26 0a 09 20 20 20 20 5b 24 .1.1" &&.. [$
7c30: 66 69 72 73 74 20 6f 70 65 72 61 74 69 6f 6e 5d first operation]
7c40: 20 65 71 20 22 63 68 61 6e 67 65 22 20 26 26 0a eq "change" &&.
7c50: 09 20 20 20 20 21 5b 24 66 69 72 73 74 20 68 61 . ![$first ha
7c60: 73 74 65 78 74 5d 7d 20 7b 0a 0a 09 20 20 20 20 stext]} {...
7c70: 73 65 74 20 72 65 76 31 31 20 5b 24 66 69 72 73 set rev11 [$firs
7c80: 74 20 70 61 72 65 6e 74 5d 20 3b 20 23 20 41 73 t parent] ; # As
7c90: 73 65 72 74 3a 20 53 68 6f 75 6c 64 20 62 65 20 sert: Should be
7ca0: 6d 79 72 6f 6f 74 2e 0a 09 20 20 20 20 6c 6f 67 myroot... log
7cb0: 20 77 72 69 74 65 20 33 20 66 69 6c 65 20 22 52 write 3 file "R
7cc0: 65 6d 6f 76 69 6e 67 20 69 72 72 65 6c 65 76 61 emoving irreleva
7cd0: 6e 74 20 72 65 76 69 73 69 6f 6e 20 5b 24 72 65 nt revision [$re
7ce0: 76 31 31 20 72 65 76 6e 72 5d 22 0a 0a 09 20 20 v11 revnr]"...
7cf0: 20 20 23 20 43 75 74 20 6f 75 74 20 74 68 65 20 # Cut out the
7d00: 6f 6c 64 20 6d 79 72 6f 6f 74 20 72 65 76 69 73 old myroot revis
7d10: 69 6f 6e 2e 0a 0a 09 20 20 20 20 6c 64 65 6c 65 ion.... ldele
7d20: 74 65 20 6d 79 72 6f 6f 74 73 20 24 72 65 76 31 te myroots $rev1
7d30: 31 20 3b 20 23 20 4e 6f 74 20 61 20 72 6f 6f 74 1 ; # Not a root
7d40: 20 61 6e 79 20 6c 6f 6e 67 65 72 2e 0a 0a 09 20 any longer....
7d50: 20 20 20 24 66 69 72 73 74 20 63 75 74 66 72 6f $first cutfro
7d60: 6d 70 61 72 65 6e 74 20 3b 20 23 20 53 65 76 65 mparent ; # Seve
7d70: 72 20 72 65 76 69 73 69 6f 6e 20 66 72 6f 6d 20 r revision from
7d80: 70 61 72 65 6e 74 20 72 65 76 69 73 69 6f 6e 2e parent revision.
7d90: 0a 09 20 20 20 20 69 66 20 7b 24 73 74 6f 70 20 .. if {$stop
7da0: 6e 65 20 22 22 7d 20 7b 0a 09 09 24 73 74 6f 70 ne ""} {...$stop
7db0: 20 63 75 74 66 72 6f 6d 70 61 72 65 6e 74 0a 09 cutfromparent..
7dc0: 09 6c 61 70 70 65 6e 64 20 6d 79 72 6f 6f 74 73 .lappend myroots
7dd0: 20 24 73 74 6f 70 20 3b 20 23 20 4e 65 77 20 72 $stop ; # New r
7de0: 6f 6f 74 2c 20 61 66 74 65 72 20 76 65 6e 64 6f oot, after vendo
7df0: 72 20 62 72 61 6e 63 68 0a 09 20 20 20 20 7d 0a r branch.. }.
7e00: 0a 09 20 20 20 20 23 20 43 75 74 20 6f 75 74 20 .. # Cut out
7e10: 74 68 65 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 the vendor branc
7e20: 68 20 73 79 6d 62 6f 6c 0a 0a 09 20 20 20 20 73 h symbol... s
7e30: 65 74 20 76 65 6e 64 6f 72 20 5b 24 66 69 72 73 et vendor [$firs
7e40: 74 20 70 61 72 65 6e 74 62 72 61 6e 63 68 5d 0a t parentbranch].
7e50: 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 . integrity a
7e60: 73 73 65 72 74 20 7b 24 76 65 6e 64 6f 72 20 6e ssert {$vendor n
7e70: 65 20 22 22 7d 20 7b 46 69 72 73 74 20 4e 54 44 e ""} {First NTD
7e80: 42 20 72 65 76 69 73 69 6f 6e 20 68 61 73 20 6e B revision has n
7e90: 6f 20 62 72 61 6e 63 68 7d 0a 09 20 20 20 20 69 o branch}.. i
7ea0: 66 20 7b 5b 24 76 65 6e 64 6f 72 20 70 61 72 65 f {[$vendor pare
7eb0: 6e 74 5d 20 65 71 20 24 72 65 76 31 31 7d 20 7b nt] eq $rev11} {
7ec0: 0a 09 09 24 72 65 76 31 31 20 72 65 6d 6f 76 65 ...$rev11 remove
7ed0: 62 72 61 6e 63 68 20 20 20 20 20 20 20 20 24 76 branch $v
7ee0: 65 6e 64 6f 72 0a 09 09 24 72 65 76 31 31 20 72 endor...$rev11 r
7ef0: 65 6d 6f 76 65 63 68 69 6c 64 6f 6e 62 72 61 6e emovechildonbran
7f00: 63 68 20 24 66 69 72 73 74 0a 09 09 24 76 65 6e ch $first...$ven
7f10: 64 6f 72 20 63 75 74 62 72 61 6e 63 68 70 61 72 dor cutbranchpar
7f20: 65 6e 74 20 20 20 20 3b 23 20 62 70 20 3d 20 72 ent ;# bp = r
7f30: 65 76 31 31 2c 20 61 62 6f 75 74 20 74 6f 20 62 ev11, about to b
7f40: 65 20 67 6f 6e 65 0a 09 09 24 66 69 72 73 74 20 e gone...$first
7f50: 63 75 74 66 72 6f 6d 70 61 72 65 6e 74 62 72 61 cutfromparentbra
7f60: 6e 63 68 20 3b 23 20 70 62 20 3d 20 76 65 6e 64 nch ;# pb = vend
7f70: 6f 72 2c 20 74 6f 20 62 65 20 61 20 64 65 74 61 or, to be a deta
7f80: 63 68 65 64 20 4c 4f 44 0a 09 09 6c 61 70 70 65 ched LOD...lappe
7f90: 6e 64 20 6d 79 72 6f 6f 74 73 20 24 66 69 72 73 nd myroots $firs
7fa0: 74 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 t.. }... #
7fb0: 20 43 68 61 6e 67 65 20 74 68 65 20 74 79 70 65 Change the type
7fc0: 20 6f 66 20 66 69 72 73 74 20 28 74 79 70 69 63 of first (typic
7fd0: 61 6c 6c 79 20 66 72 6f 6d 20 43 68 61 6e 67 65 ally from Change
7fe0: 20 74 6f 20 41 64 64 29 3a 0a 09 20 20 20 20 24 to Add):.. $
7ff0: 66 69 72 73 74 20 72 65 74 79 70 65 20 61 64 64 first retype add
8000: 0a 0a 09 20 20 20 20 23 20 4d 6f 76 65 20 61 6e ... # Move an
8010: 79 20 74 61 67 73 20 61 6e 64 20 62 72 61 6e 63 y tags and branc
8020: 68 65 73 20 66 72 6f 6d 20 74 68 65 20 6f 6c 64 hes from the old
8030: 20 74 6f 20 74 68 65 20 6e 65 77 20 72 6f 6f 74 to the new root
8040: 2e 0a 09 20 20 20 20 24 72 65 76 31 31 20 6d 6f ... $rev11 mo
8050: 76 65 73 79 6d 62 6f 6c 73 74 6f 20 24 66 69 72 vesymbolsto $fir
8060: 73 74 0a 09 7d 0a 0a 09 23 20 4d 61 72 6b 20 61 st..}...# Mark a
8070: 6c 6c 20 74 68 65 20 73 70 65 63 69 61 6c 20 72 ll the special r
8080: 65 76 69 73 69 6f 6e 73 20 61 73 20 73 75 63 68 evisions as such
8090: 0a 09 66 6f 72 65 61 63 68 20 72 65 76 20 24 72 ..foreach rev $r
80a0: 65 76 6c 69 73 74 20 7b 0a 09 20 20 20 20 6c 6f evlist {.. lo
80b0: 67 20 77 72 69 74 65 20 33 20 66 69 6c 65 20 22 g write 3 file "
80c0: 52 65 76 69 73 69 6f 6e 20 6f 6e 20 64 65 66 61 Revision on defa
80d0: 75 6c 74 20 62 72 61 6e 63 68 3a 20 5b 24 72 65 ult branch: [$re
80e0: 76 20 72 65 76 6e 72 5d 22 0a 09 20 20 20 20 24 v revnr]".. $
80f0: 72 65 76 20 73 65 74 6f 6e 64 65 66 61 75 6c 74 rev setondefault
8100: 62 72 61 6e 63 68 20 31 0a 09 7d 0a 0a 09 69 66 branch 1..}...if
8110: 20 7b 24 73 74 6f 70 20 6e 65 20 22 22 7d 20 7b {$stop ne ""} {
8120: 0a 09 20 20 20 20 23 20 52 65 76 69 73 69 6f 6e .. # Revision
8130: 20 31 2e 32 20 6c 6f 67 69 63 61 6c 6c 79 20 66 1.2 logically f
8140: 6f 6c 6c 6f 77 73 20 74 68 65 20 69 6d 70 6f 72 ollows the impor
8150: 74 65 64 20 72 65 76 69 73 69 6f 6e 73 2c 0a 09 ted revisions,..
8160: 20 20 20 20 23 20 6e 6f 74 20 31 2e 31 2e 20 20 # not 1.1.
8170: 41 63 63 6f 72 64 69 6e 67 6c 79 2c 20 63 6f 6e Accordingly, con
8180: 6e 65 63 74 20 69 74 20 74 6f 20 74 68 65 20 6c nect it to the l
8190: 61 73 74 20 4e 54 44 42 52 20 61 6e 64 0a 09 20 ast NTDBR and..
81a0: 20 20 20 23 20 70 6f 73 73 69 62 6c 79 20 63 68 # possibly ch
81b0: 61 6e 67 65 20 69 74 73 20 74 79 70 65 2e 0a 0a ange its type...
81c0: 09 20 20 20 20 73 65 74 20 6c 61 73 74 20 5b 6c . set last [l
81d0: 69 6e 64 65 78 20 24 72 65 76 6c 69 73 74 20 65 index $revlist e
81e0: 6e 64 5d 0a 09 20 20 20 20 24 73 74 6f 70 20 73 nd].. $stop s
81f0: 65 74 64 65 66 61 75 6c 74 62 72 61 6e 63 68 70 etdefaultbranchp
8200: 61 72 65 6e 74 20 24 6c 61 73 74 20 3b 20 23 20 arent $last ; #
8210: 52 65 74 79 70 65 73 20 74 68 65 20 72 65 76 69 Retypes the revi
8220: 73 69 6f 6e 20 74 6f 6f 2e 0a 09 20 20 20 20 24 sion too... $
8230: 6c 61 73 74 20 73 65 74 64 65 66 61 75 6c 74 62 last setdefaultb
8240: 72 61 6e 63 68 63 68 69 6c 64 20 20 24 73 74 6f ranchchild $sto
8250: 70 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 p..}..return.
8260: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 43 }.. method C
8270: 68 65 63 6b 4c 4f 44 73 20 7b 7d 20 7b 0a 09 66 heckLODs {} {..f
8280: 6f 72 65 61 63 68 20 7b 5f 20 62 72 61 6e 63 68 oreach {_ branch
8290: 7d 20 20 5b 61 72 72 61 79 20 67 65 74 20 6d 79 } [array get my
82a0: 62 72 61 6e 63 68 65 73 5d 20 7b 20 24 62 72 61 branches] { $bra
82b0: 6e 63 68 20 63 68 65 63 6b 6c 6f 64 20 7d 0a 09 nch checklod }..
82c0: 66 6f 72 65 61 63 68 20 7b 5f 20 74 61 67 6c 69 foreach {_ tagli
82d0: 73 74 7d 20 5b 61 72 72 61 79 20 67 65 74 20 6d st} [array get m
82e0: 79 74 61 67 73 5d 20 7b 0a 09 20 20 20 20 66 6f ytags] {.. fo
82f0: 72 65 61 63 68 20 74 61 67 20 24 74 61 67 6c 69 reach tag $tagli
8300: 73 74 20 7b 20 24 74 61 67 20 63 68 65 63 6b 6c st { $tag checkl
8310: 6f 64 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a od }..}..return.
8320: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
8330: 64 20 52 65 6d 6f 76 65 49 72 72 65 6c 65 76 61 d RemoveIrreleva
8340: 6e 74 44 65 6c 65 74 69 6f 6e 73 20 7b 7d 20 7b ntDeletions {} {
8350: 0a 09 23 20 46 72 6f 6d 20 63 76 73 32 73 76 6e ..# From cvs2svn
8360: 3a 20 49 66 20 61 20 66 69 6c 65 20 69 73 20 61 : If a file is a
8370: 64 64 65 64 20 6f 6e 20 61 20 62 72 61 6e 63 68 dded on a branch
8380: 2c 20 74 68 65 6e 20 61 20 74 72 75 6e 6b 0a 09 , then a trunk..
8390: 23 20 72 65 76 69 73 69 6f 6e 20 69 73 20 61 64 # revision is ad
83a0: 64 65 64 20 61 74 20 74 68 65 20 73 61 6d 65 20 ded at the same
83b0: 74 69 6d 65 20 69 6e 20 74 68 65 20 27 44 65 61 time in the 'Dea
83c0: 64 27 20 73 74 61 74 65 2e 0a 09 23 20 54 68 69 d' state...# Thi
83d0: 73 20 72 65 76 69 73 69 6f 6e 20 64 6f 65 73 6e s revision doesn
83e0: 27 74 20 64 6f 20 61 6e 79 74 68 69 6e 67 20 75 't do anything u
83f0: 73 65 66 75 6c 2c 20 73 6f 20 64 65 6c 65 74 65 seful, so delete
8400: 20 69 74 2e 0a 0a 09 66 6f 72 65 61 63 68 20 72 it....foreach r
8410: 6f 6f 74 20 24 6d 79 72 6f 6f 74 73 20 7b 0a 09 oot $myroots {..
8420: 20 20 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 69 if {[$root i
8430: 73 6e 65 65 64 65 64 5d 7d 20 63 6f 6e 74 69 6e sneeded]} contin
8440: 75 65 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 ue.. log writ
8450: 65 20 32 20 66 69 6c 65 20 22 52 65 6d 6f 76 69 e 2 file "Removi
8460: 6e 67 20 75 6e 6e 65 63 65 73 73 61 72 79 20 64 ng unnecessary d
8470: 65 61 64 20 72 65 76 69 73 69 6f 6e 20 5b 24 72 ead revision [$r
8480: 6f 6f 74 20 72 65 76 6e 72 5d 22 0a 0a 09 20 20 oot revnr]"...
8490: 20 20 23 20 52 65 6d 6f 76 65 20 61 73 20 72 6f # Remove as ro
84a0: 6f 74 2c 20 6d 61 6b 65 20 69 74 73 20 63 68 69 ot, make its chi
84b0: 6c 64 20 6e 65 77 20 72 6f 6f 74 20 61 66 74 65 ld new root afte
84c0: 72 0a 09 20 20 20 20 23 20 64 69 73 63 6f 6e 6e r.. # disconn
84d0: 65 63 74 69 6e 67 20 69 74 20 66 72 6f 6d 20 74 ecting it from t
84e0: 68 65 20 72 65 76 69 73 69 6f 6e 20 6a 75 73 74 he revision just
84f0: 20 67 6f 69 6e 67 20 61 77 61 79 2e 0a 0a 09 20 going away....
8500: 20 20 20 6c 64 65 6c 65 74 65 20 6d 79 72 6f 6f ldelete myroo
8510: 74 73 20 24 72 6f 6f 74 0a 09 20 20 20 20 69 66 ts $root.. if
8520: 20 7b 5b 24 72 6f 6f 74 20 68 61 73 63 68 69 6c {[$root haschil
8530: 64 5d 7d 20 7b 0a 09 09 73 65 74 20 63 68 69 6c d]} {...set chil
8540: 64 20 5b 24 72 6f 6f 74 20 63 68 69 6c 64 5d 0a d [$root child].
8550: 09 09 24 63 68 69 6c 64 20 63 75 74 66 72 6f 6d ..$child cutfrom
8560: 70 61 72 65 6e 74 0a 09 09 6c 61 70 70 65 6e 64 parent...lappend
8570: 20 6d 79 72 6f 6f 74 73 20 24 63 68 69 6c 64 0a myroots $child.
8580: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 20 43 . }... # C
8590: 75 74 20 6f 75 74 20 74 68 65 20 62 72 61 6e 63 ut out the branc
85a0: 68 65 73 20 73 70 61 77 6e 65 64 20 62 79 20 74 hes spawned by t
85b0: 68 65 20 72 65 76 69 73 69 6f 6e 20 74 6f 20 62 he revision to b
85c0: 65 0a 09 20 20 20 20 23 20 64 65 6c 65 74 65 64 e.. # deleted
85d0: 2e 20 49 66 20 74 68 65 20 62 72 61 6e 63 68 20 . If the branch
85e0: 68 61 73 20 72 65 76 69 73 69 6f 6e 73 20 74 68 has revisions th
85f0: 65 79 20 73 68 6f 75 6c 64 20 61 6c 72 65 61 64 ey should alread
8600: 79 0a 09 20 20 20 20 23 20 75 73 65 20 6f 70 65 y.. # use ope
8610: 72 61 74 69 6f 6e 20 27 61 64 64 27 2c 20 6e 6f ration 'add', no
8620: 20 6e 65 65 64 20 74 6f 20 63 68 61 6e 67 65 20 need to change
8630: 74 68 61 74 2e 20 54 68 65 20 66 69 72 73 74 0a that. The first.
8640: 09 20 20 20 20 23 20 72 65 76 69 73 69 6f 6e 20 . # revision
8650: 6f 6e 20 65 61 63 68 20 62 72 61 6e 63 68 20 62 on each branch b
8660: 65 63 6f 6d 65 73 20 61 20 6e 65 77 20 61 6e 64 ecomes a new and
8670: 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 0a 09 20 disconnected..
8680: 20 20 20 23 20 72 6f 6f 74 2e 0a 0a 09 20 20 20 # root....
8690: 20 66 6f 72 65 61 63 68 20 62 72 61 6e 63 68 20 foreach branch
86a0: 5b 24 72 6f 6f 74 20 62 72 61 6e 63 68 65 73 5d [$root branches]
86b0: 20 7b 0a 09 09 24 62 72 61 6e 63 68 20 63 75 74 {...$branch cut
86c0: 62 72 61 6e 63 68 70 61 72 65 6e 74 0a 09 09 69 branchparent...i
86d0: 66 20 7b 21 5b 24 62 72 61 6e 63 68 20 68 61 73 f {![$branch has
86e0: 63 68 69 6c 64 5d 7d 20 63 6f 6e 74 69 6e 75 65 child]} continue
86f0: 0a 09 09 73 65 74 20 66 69 72 73 74 20 5b 24 62 ...set first [$b
8700: 72 61 6e 63 68 20 63 68 69 6c 64 5d 0a 09 09 24 ranch child]...$
8710: 66 69 72 73 74 20 63 75 74 66 72 6f 6d 70 61 72 first cutfrompar
8720: 65 6e 74 0a 09 09 6c 61 70 70 65 6e 64 20 6d 79 ent...lappend my
8730: 72 6f 6f 74 73 20 24 66 69 72 73 74 0a 09 20 20 roots $first..
8740: 20 20 7d 0a 09 20 20 20 20 24 72 6f 6f 74 20 72 }.. $root r
8750: 65 6d 6f 76 65 61 6c 6c 62 72 61 6e 63 68 65 73 emoveallbranches
8760: 0a 0a 09 20 20 20 20 23 20 54 61 67 67 69 6e 67 ... # Tagging
8770: 20 61 20 64 65 61 64 20 72 65 76 69 73 69 6f 6e a dead revision
8780: 20 64 6f 65 73 6e 27 74 20 64 6f 20 61 6e 79 74 doesn't do anyt
8790: 68 69 6e 67 2c 20 73 6f 20 72 65 6d 6f 76 65 0a hing, so remove.
87a0: 09 20 20 20 20 23 20 61 6e 79 20 74 61 67 73 20 . # any tags
87b0: 74 68 61 74 20 77 65 72 65 20 73 65 74 20 6f 6e that were set on
87c0: 20 69 74 2e 0a 0a 09 20 20 20 20 24 72 6f 6f 74 it.... $root
87d0: 20 72 65 6d 6f 76 65 61 6c 6c 74 61 67 73 0a 0a removealltags..
87e0: 09 20 20 20 20 23 20 54 68 69 73 20 63 61 6e 20 . # This can
87f0: 6f 6e 6c 79 20 68 61 70 70 65 6e 20 6f 6e 63 65 only happen once
8800: 20 70 65 72 20 66 69 6c 65 2c 20 61 6e 64 20 77 per file, and w
8810: 65 20 6d 69 67 68 74 20 68 61 76 65 0a 09 20 20 e might have..
8820: 20 20 23 20 6a 75 73 74 20 63 68 61 6e 67 65 64 # just changed
8830: 20 6d 79 72 6f 6f 74 73 2c 20 73 6f 20 65 6e 64 myroots, so end
8840: 20 74 68 65 20 6c 6f 6f 70 0a 09 20 20 20 20 62 the loop.. b
8850: 72 65 61 6b 0a 09 7d 0a 09 72 65 74 75 72 6e 0a reak..}..return.
8860: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
8870: 64 20 52 65 6d 6f 76 65 49 6e 69 74 69 61 6c 42 d RemoveInitialB
8880: 72 61 6e 63 68 44 65 6c 65 74 69 6f 6e 73 20 7b ranchDeletions {
8890: 7d 20 7b 0a 09 23 20 46 72 6f 6d 20 63 76 73 32 } {..# From cvs2
88a0: 73 76 6e 3a 20 49 66 20 74 68 65 20 66 69 72 73 svn: If the firs
88b0: 74 20 72 65 76 69 73 69 6f 6e 20 6f 6e 20 61 20 t revision on a
88c0: 62 72 61 6e 63 68 20 69 73 20 61 6e 0a 09 23 20 branch is an..#
88d0: 75 6e 6e 65 63 65 73 73 61 72 79 20 64 65 6c 65 unnecessary dele
88e0: 74 65 2c 20 72 65 6d 6f 76 65 20 69 74 2e 0a 09 te, remove it...
88f0: 23 0a 09 23 20 49 66 20 61 20 66 69 6c 65 20 69 #..# If a file i
8900: 73 20 61 64 64 65 64 20 6f 6e 20 61 20 62 72 61 s added on a bra
8910: 6e 63 68 20 28 77 68 65 74 68 65 72 20 6f 72 20 nch (whether or
8920: 6e 6f 74 20 69 74 20 61 6c 72 65 61 64 79 0a 09 not it already..
8930: 23 20 65 78 69 73 74 65 64 20 6f 6e 20 74 72 75 # existed on tru
8940: 6e 6b 29 2c 20 74 68 65 6e 20 6e 65 77 20 76 65 nk), then new ve
8950: 72 73 69 6f 6e 73 20 6f 66 20 43 56 53 20 61 64 rsions of CVS ad
8960: 64 20 61 20 66 69 72 73 74 0a 09 23 20 62 72 61 d a first..# bra
8970: 6e 63 68 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 nch revision in
8980: 74 68 65 20 27 64 65 61 64 27 20 73 74 61 74 65 the 'dead' state
8990: 20 28 74 6f 20 69 6e 64 69 63 61 74 65 20 74 68 (to indicate th
89a0: 61 74 20 74 68 65 0a 09 23 20 66 69 6c 65 20 64 at the..# file d
89b0: 69 64 20 6e 6f 74 20 65 78 69 73 74 20 6f 6e 20 id not exist on
89c0: 74 68 65 20 62 72 61 6e 63 68 20 77 68 65 6e 20 the branch when
89d0: 74 68 65 20 62 72 61 6e 63 68 20 77 61 73 0a 09 the branch was..
89e0: 23 20 63 72 65 61 74 65 64 29 20 66 6f 6c 6c 6f # created) follo
89f0: 77 65 64 20 62 79 20 74 68 65 20 73 65 63 6f 6e wed by the secon
8a00: 64 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 6f d branch revisio
8a10: 6e 2c 20 77 68 69 63 68 20 69 73 20 61 6e 0a 09 n, which is an..
8a20: 23 20 61 64 64 2e 20 20 57 68 65 6e 20 77 65 20 # add. When we
8a30: 65 6e 63 6f 75 6e 74 65 72 20 74 68 69 73 20 73 encounter this s
8a40: 69 74 75 61 74 69 6f 6e 2c 20 77 65 20 73 65 76 ituation, we sev
8a50: 65 72 20 74 68 65 20 62 72 61 6e 63 68 0a 09 23 er the branch..#
8a60: 20 66 72 6f 6d 20 74 72 75 6e 6b 20 61 6e 64 20 from trunk and
8a70: 64 65 6c 65 74 65 20 74 68 65 20 66 69 72 73 74 delete the first
8a80: 20 62 72 61 6e 63 68 20 72 65 76 69 73 69 6f 6e branch revision
8a90: 2e 0a 0a 09 23 20 41 74 20 74 68 69 73 20 70 6f ....# At this po
8aa0: 69 6e 74 20 77 65 20 6d 61 79 20 68 61 76 65 20 int we may have
8ab0: 61 6c 72 65 61 64 79 20 6d 75 6c 74 69 70 6c 65 already multiple
8ac0: 20 72 6f 6f 74 73 20 69 6e 20 6d 79 72 6f 6f 74 roots in myroot
8ad0: 73 2c 0a 09 23 20 77 65 20 68 61 76 65 20 74 6f s,..# we have to
8ae0: 20 70 72 6f 63 65 73 73 20 74 68 65 6d 20 61 6c process them al
8af0: 6c 2e 0a 0a 09 66 6f 72 65 61 63 68 20 72 6f 6f l....foreach roo
8b00: 74 20 5b 24 73 65 6c 66 20 4c 69 6e 65 73 4f 66 t [$self LinesOf
8b10: 44 65 76 65 6c 6f 70 6d 65 6e 74 5d 20 7b 0a 09 Development] {..
8b20: 20 20 20 20 69 66 20 7b 5b 24 72 6f 6f 74 20 69 if {[$root i
8b30: 73 6e 65 65 64 65 64 62 72 61 6e 63 68 64 65 6c sneededbranchdel
8b40: 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 20 20 20 ]} continue..
8b50: 20 6c 6f 67 20 77 72 69 74 65 20 32 20 66 69 6c log write 2 fil
8b60: 65 20 22 52 65 6d 6f 76 69 6e 67 20 75 6e 6e 65 e "Removing unne
8b70: 63 65 73 73 61 72 79 20 69 6e 69 74 69 61 6c 20 cessary initial
8b80: 62 72 61 6e 63 68 20 64 65 6c 65 74 65 20 5b 24 branch delete [$
8b90: 72 6f 6f 74 20 72 65 76 6e 72 5d 22 0a 0a 09 20 root revnr]"...
8ba0: 20 20 20 73 65 74 20 62 72 61 6e 63 68 20 5b 24 set branch [$
8bb0: 72 6f 6f 74 20 70 61 72 65 6e 74 62 72 61 6e 63 root parentbranc
8bc0: 68 5d 0a 09 20 20 20 20 73 65 74 20 70 61 72 65 h].. set pare
8bd0: 6e 74 20 5b 24 72 6f 6f 74 20 70 61 72 65 6e 74 nt [$root parent
8be0: 5d 0a 09 20 20 20 20 73 65 74 20 63 68 69 6c 64 ].. set child
8bf0: 20 20 5b 24 72 6f 6f 74 20 63 68 69 6c 64 5d 0a [$root child].
8c00: 0a 09 20 20 20 20 6c 64 65 6c 65 74 65 20 6d 79 .. ldelete my
8c10: 72 6f 6f 74 73 20 24 72 6f 6f 74 0a 09 20 20 20 roots $root..
8c20: 20 6c 61 70 70 65 6e 64 20 6d 79 72 6f 6f 74 73 lappend myroots
8c30: 20 24 63 68 69 6c 64 0a 0a 09 20 20 20 20 24 62 $child... $b
8c40: 72 61 6e 63 68 20 63 75 74 62 72 61 6e 63 68 70 ranch cutbranchp
8c50: 61 72 65 6e 74 0a 09 20 20 20 20 24 62 72 61 6e arent.. $bran
8c60: 63 68 20 63 75 74 63 68 69 6c 64 0a 09 20 20 20 ch cutchild..
8c70: 20 24 63 68 69 6c 64 20 20 63 75 74 66 72 6f 6d $child cutfrom
8c80: 70 61 72 65 6e 74 0a 0a 09 20 20 20 20 24 62 72 parent... $br
8c90: 61 6e 63 68 20 73 65 74 63 68 69 6c 64 20 20 20 anch setchild
8ca0: 20 20 20 20 20 24 63 68 69 6c 64 0a 09 20 20 20 $child..
8cb0: 20 24 63 68 69 6c 64 20 20 73 65 74 70 61 72 65 $child setpare
8cc0: 6e 74 62 72 61 6e 63 68 20 24 62 72 61 6e 63 68 ntbranch $branch
8cd0: 0a 0a 09 20 20 20 20 24 70 61 72 65 6e 74 20 72 ... $parent r
8ce0: 65 6d 6f 76 65 62 72 61 6e 63 68 20 20 20 20 20 emovebranch
8cf0: 20 20 20 24 62 72 61 6e 63 68 0a 09 20 20 20 20 $branch..
8d00: 24 70 61 72 65 6e 74 20 72 65 6d 6f 76 65 63 68 $parent removech
8d10: 69 6c 64 6f 6e 62 72 61 6e 63 68 20 24 72 6f 6f ildonbranch $roo
8d20: 74 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 t..}..return.
8d30: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 4c }.. method L
8d40: 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 6e inesOfDevelopmen
8d50: 74 20 7b 7d 20 7b 0a 09 23 20 44 65 74 65 72 6d t {} {..# Determ
8d60: 69 6e 65 20 61 6c 6c 20 6c 69 6e 65 73 20 6f 66 ine all lines of
8d70: 20 64 65 76 65 6c 6f 70 6d 65 6e 74 20 66 6f 72 development for
8d80: 20 74 68 65 20 66 69 6c 65 2e 20 54 68 69 73 20 the file. This
8d90: 61 72 65 0a 09 23 20 74 68 65 20 6b 6e 6f 77 6e are..# the known
8da0: 20 72 6f 6f 74 73 2c 20 61 6e 64 20 74 68 65 20 roots, and the
8db0: 72 6f 6f 74 20 6f 66 20 61 6c 6c 20 62 72 61 6e root of all bran
8dc0: 63 68 65 73 20 66 6f 75 6e 64 20 6f 6e 20 74 68 ches found on th
8dd0: 65 0a 09 23 20 6c 69 6e 65 20 6f 66 20 70 72 69 e..# line of pri
8de0: 6d 61 72 79 20 63 68 69 6c 64 72 65 6e 2e 0a 0a mary children...
8df0: 09 73 65 74 20 6c 6f 64 72 6f 6f 74 73 20 7b 7d .set lodroots {}
8e00: 0a 09 66 6f 72 65 61 63 68 20 72 6f 6f 74 20 24 ..foreach root $
8e10: 6d 79 72 6f 6f 74 73 20 7b 0a 09 20 20 20 20 24 myroots {.. $
8e20: 73 65 6c 66 20 41 64 64 42 72 61 6e 63 68 65 64 self AddBranched
8e30: 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 LinesOfDevelopme
8e40: 6e 74 20 6c 6f 64 72 6f 6f 74 73 20 24 72 6f 6f nt lodroots $roo
8e50: 74 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6c t.. lappend l
8e60: 6f 64 72 6f 6f 74 73 20 24 72 6f 6f 74 0a 09 7d odroots $root..}
8e70: 0a 09 72 65 74 75 72 6e 20 24 6c 6f 64 72 6f 6f ..return $lodroo
8e80: 74 73 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 ts. }.. me
8e90: 74 68 6f 64 20 41 64 64 42 72 61 6e 63 68 65 64 thod AddBranched
8ea0: 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d 65 LinesOfDevelopme
8eb0: 6e 74 20 7b 6c 76 20 72 6f 6f 74 7d 20 7b 0a 09 nt {lv root} {..
8ec0: 75 70 76 61 72 20 31 20 24 6c 76 20 6c 6f 64 72 upvar 1 $lv lodr
8ed0: 6f 6f 74 73 0a 09 77 68 69 6c 65 20 7b 24 72 6f oots..while {$ro
8ee0: 6f 74 20 6e 65 20 22 22 7d 20 7b 0a 09 20 20 20 ot ne ""} {..
8ef0: 20 66 6f 72 65 61 63 68 20 62 72 61 6e 63 68 20 foreach branch
8f00: 5b 24 72 6f 6f 74 20 62 72 61 6e 63 68 65 73 5d [$root branches]
8f10: 20 7b 0a 09 09 69 66 20 7b 21 5b 24 62 72 61 6e {...if {![$bran
8f20: 63 68 20 68 61 73 63 68 69 6c 64 5d 7d 20 63 6f ch haschild]} co
8f30: 6e 74 69 6e 75 65 0a 09 09 73 65 74 20 63 68 69 ntinue...set chi
8f40: 6c 64 20 5b 24 62 72 61 6e 63 68 20 63 68 69 6c ld [$branch chil
8f50: 64 5d 0a 09 09 23 20 52 65 63 75 72 73 65 20 69 d]...# Recurse i
8f60: 6e 74 6f 20 74 68 65 20 62 72 61 6e 63 68 20 66 nto the branch f
8f70: 6f 72 20 64 65 65 70 65 72 20 62 72 61 6e 63 68 or deeper branch
8f80: 65 73 2e 0a 09 09 24 73 65 6c 66 20 41 64 64 42 es....$self AddB
8f90: 72 61 6e 63 68 65 64 4c 69 6e 65 73 4f 66 44 65 ranchedLinesOfDe
8fa0: 76 65 6c 6f 70 6d 65 6e 74 20 6c 6f 64 72 6f 6f velopment lodroo
8fb0: 74 73 20 24 63 68 69 6c 64 0a 09 09 6c 61 70 70 ts $child...lapp
8fc0: 65 6e 64 20 6c 6f 64 72 6f 6f 74 73 20 24 63 68 end lodroots $ch
8fd0: 69 6c 64 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ild.. }..
8fe0: 73 65 74 20 72 6f 6f 74 20 5b 24 72 6f 6f 74 20 set root [$root
8ff0: 63 68 69 6c 64 5d 0a 09 7d 0a 09 72 65 74 75 72 child]..}..retur
9000: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 n. }.. met
9010: 68 6f 64 20 45 78 63 6c 75 64 65 4e 6f 6e 54 72 hod ExcludeNonTr
9020: 75 6e 6b 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 7b unkInformation {
9030: 7d 20 7b 0a 09 23 20 52 65 6d 6f 76 65 20 61 6c } {..# Remove al
9040: 6c 20 6e 6f 6e 2d 74 72 75 6e 6b 20 62 72 61 6e l non-trunk bran
9050: 63 68 65 73 2c 20 72 65 76 69 73 69 6f 6e 73 2c ches, revisions,
9060: 20 61 6e 64 20 74 61 67 73 2e 20 57 65 20 64 6f and tags. We do
9070: 0a 09 23 20 6b 65 65 70 20 74 68 65 20 74 61 67 ..# keep the tag
9080: 73 20 77 68 69 63 68 20 61 72 65 20 6f 6e 20 74 s which are on t
9090: 68 65 20 74 72 75 6e 6b 2e 0a 0a 09 73 65 74 20 he trunk....set
90a0: 6e 74 64 62 72 6f 6f 74 20 22 22 0a 09 66 6f 72 ntdbroot ""..for
90b0: 65 61 63 68 20 72 6f 6f 74 20 5b 24 73 65 6c 66 each root [$self
90c0: 20 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 6d LinesOfDevelopm
90d0: 65 6e 74 5d 20 7b 0a 09 20 20 20 20 23 20 4e 6f ent] {.. # No
90e0: 74 65 3a 20 48 65 72 65 20 74 68 65 20 6f 72 64 te: Here the ord
90f0: 65 72 20 6f 66 20 74 68 65 20 72 6f 6f 74 73 20 er of the roots
9100: 69 73 20 69 6d 70 6f 72 74 61 6e 74 2c 0a 09 20 is important,..
9110: 20 20 20 23 20 69 2e 65 2e 20 74 68 61 74 20 77 # i.e. that w
9120: 65 20 67 65 74 20 74 68 65 6d 20 69 6e 20 64 65 e get them in de
9130: 70 74 68 20 66 69 72 73 74 20 6f 72 64 65 72 2e pth first order.
9140: 20 54 68 69 73 20 65 6e 73 75 72 65 73 0a 09 20 This ensures..
9150: 20 20 20 23 20 74 68 61 74 20 74 68 65 20 72 65 # that the re
9160: 6d 6f 76 61 6c 20 6f 66 20 61 20 62 72 61 6e 63 moval of a branc
9170: 68 20 68 61 70 70 65 6e 73 20 6f 6e 6c 79 20 61 h happens only a
9180: 66 74 65 72 20 74 68 65 0a 09 20 20 20 20 23 20 fter the.. #
9190: 62 72 61 6e 63 68 65 73 20 73 70 61 77 6e 65 64 branches spawned
91a0: 20 66 72 6f 6d 20 69 74 20 77 65 72 65 20 72 65 from it were re
91b0: 6d 6f 76 65 64 2e 20 4f 74 68 65 72 77 69 73 65 moved. Otherwise
91c0: 20 74 68 65 0a 09 20 20 20 20 23 20 73 79 73 74 the.. # syst
91d0: 65 6d 20 6d 69 67 68 74 20 74 72 79 20 74 6f 20 em might try to
91e0: 61 63 63 65 73 73 20 64 65 6c 65 74 65 64 20 6f access deleted o
91f0: 62 6a 65 63 74 73 2e 0a 0a 09 20 20 20 20 23 20 bjects.... #
9200: 44 6f 20 6e 6f 74 20 65 78 63 6c 75 64 65 20 74 Do not exclude t
9210: 68 65 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 69 he trunk... i
9220: 66 20 7b 5b 5b 24 72 6f 6f 74 20 6c 6f 64 5d 20 f {[[$root lod]
9230: 69 73 74 72 75 6e 6b 5d 7d 20 63 6f 6e 74 69 6e istrunk]} contin
9240: 75 65 0a 09 20 20 20 20 24 73 65 6c 66 20 45 78 ue.. $self Ex
9250: 63 6c 75 64 65 42 72 61 6e 63 68 20 24 72 6f 6f cludeBranch $roo
9260: 74 20 6e 74 64 62 72 6f 6f 74 0a 09 7d 0a 0a 09 t ntdbroot..}...
9270: 69 66 20 7b 24 6e 74 64 62 72 6f 6f 74 20 6e 65 if {$ntdbroot ne
9280: 20 22 22 7d 20 7b 0a 09 20 20 20 20 24 73 65 6c ""} {.. $sel
9290: 66 20 47 72 61 66 74 4e 54 44 42 32 54 72 75 6e f GraftNTDB2Trun
92a0: 6b 20 24 6e 74 64 62 72 6f 6f 74 0a 09 7d 0a 09 k $ntdbroot..}..
92b0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
92c0: 20 20 6d 65 74 68 6f 64 20 45 78 63 6c 75 64 65 method Exclude
92d0: 42 72 61 6e 63 68 20 7b 72 6f 6f 74 20 6e 76 7d Branch {root nv}
92e0: 20 7b 0a 09 23 20 45 78 63 6c 75 64 65 20 74 68 {..# Exclude th
92f0: 65 20 62 72 61 6e 63 68 2f 6c 6f 64 20 73 74 61 e branch/lod sta
9300: 72 74 69 6e 67 20 61 74 20 72 6f 6f 74 2c 20 61 rting at root, a
9310: 20 72 65 76 69 73 69 6f 6e 2e 0a 09 23 0a 09 23 revision...#..#
9320: 20 49 66 20 74 68 65 20 4c 4f 44 20 73 74 61 72 If the LOD star
9330: 74 73 20 77 69 74 68 20 6e 6f 6e 2d 74 72 75 6e ts with non-trun
9340: 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 k default branch
9350: 20 72 65 76 69 73 69 6f 6e 73 2c 0a 09 23 20 77 revisions,..# w
9360: 65 20 6c 65 61 76 65 20 74 68 65 6d 20 69 6e 20 e leave them in
9370: 70 6c 61 63 65 20 61 6e 64 20 64 6f 20 6e 6f 74 place and do not
9380: 20 64 65 6c 65 74 65 20 74 68 65 20 62 72 61 6e delete the bran
9390: 63 68 2e 20 49 6e 20 74 68 61 74 0a 09 23 20 63 ch. In that..# c
93a0: 61 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 ase the command
93b0: 73 65 74 73 20 74 68 65 20 76 61 72 69 61 62 6c sets the variabl
93c0: 65 20 69 6e 20 4e 56 20 73 6f 20 74 68 61 74 20 e in NV so that
93d0: 77 65 20 63 61 6e 0a 09 23 20 6c 61 74 65 72 20 we can..# later
93e0: 72 65 77 6f 72 6b 20 74 68 65 73 65 20 72 65 76 rework these rev
93f0: 69 73 6f 6e 73 20 74 6f 20 62 65 20 70 75 72 65 isons to be pure
9400: 6c 79 20 74 72 75 6e 6b 2e 0a 0a 09 69 66 20 7b ly trunk....if {
9410: 5b 24 72 6f 6f 74 20 69 73 6f 6e 64 65 66 61 75 [$root isondefau
9420: 6c 74 62 72 61 6e 63 68 5d 7d 20 7b 0a 09 20 20 ltbranch]} {..
9430: 20 20 23 20 48 61 6e 64 6c 69 6e 67 20 61 20 4e # Handling a N
9440: 54 44 42 2e 20 54 68 69 73 20 62 72 61 6e 63 68 TDB. This branch
9450: 20 6d 61 79 20 63 6f 6e 73 69 73 74 73 20 6e 6f may consists no
9460: 74 20 6f 6e 6c 79 20 6f 66 0a 09 20 20 20 20 23 t only of.. #
9470: 20 4e 54 44 42 20 72 65 76 69 73 69 6f 6e 73 2c NTDB revisions,
9480: 20 62 75 74 20 61 6c 73 6f 20 73 6f 6d 65 20 6e but also some n
9490: 6f 6e 2d 4e 54 44 42 2e 20 54 68 65 20 6c 61 74 on-NTDB. The lat
94a0: 74 65 72 20 61 72 65 0a 09 20 20 20 20 23 20 74 ter are.. # t
94b0: 72 75 6c 79 20 6f 6e 20 61 20 62 72 61 6e 63 68 ruly on a branch
94c0: 20 61 6e 64 20 68 61 76 65 20 74 6f 20 62 65 20 and have to be
94d0: 65 78 63 6c 75 64 65 64 2e 20 54 68 65 20 66 6f excluded. The fo
94e0: 6c 6c 6f 77 69 6e 67 0a 09 20 20 20 20 23 20 6c llowing.. # l
94f0: 6f 6f 70 20 64 65 74 65 72 6d 69 6e 65 73 20 69 oop determines i
9500: 66 20 74 68 65 72 65 20 61 72 65 20 73 75 63 68 f there are such
9510: 20 72 65 76 69 73 69 6f 6e 73 2e 0a 0a 09 20 20 revisions....
9520: 20 20 75 70 76 61 72 20 31 20 24 6e 76 20 6e 74 upvar 1 $nv nt
9530: 64 62 72 6f 6f 74 0a 09 20 20 20 20 73 65 74 20 dbroot.. set
9540: 6e 74 64 62 72 6f 6f 74 20 24 72 6f 6f 74 0a 09 ntdbroot $root..
9550: 20 20 20 20 24 72 6f 6f 74 20 63 75 74 66 72 6f $root cutfro
9560: 6d 70 61 72 65 6e 74 62 72 61 6e 63 68 0a 0a 09 mparentbranch...
9570: 20 20 20 20 73 65 74 20 72 65 76 20 24 72 6f 6f set rev $roo
9580: 74 0a 09 20 20 20 20 77 68 69 6c 65 20 7b 24 72 t.. while {$r
9590: 65 76 20 6e 65 20 22 22 7d 20 7b 0a 09 09 24 72 ev ne ""} {...$r
95a0: 65 76 20 72 65 6d 6f 76 65 61 6c 6c 62 72 61 6e ev removeallbran
95b0: 63 68 65 73 0a 09 09 23 20 53 65 65 20 6e 6f 74 ches...# See not
95c0: 65 20 5b 78 5d 2e 0a 0a 09 09 69 66 20 7b 5b 24 e [x].....if {[$
95d0: 72 65 76 20 69 73 6f 6e 64 65 66 61 75 6c 74 62 rev isondefaultb
95e0: 72 61 6e 63 68 5d 7d 20 7b 0a 09 09 20 20 20 20 ranch]} {...
95f0: 73 65 74 20 72 65 76 20 5b 24 72 65 76 20 63 68 set rev [$rev ch
9600: 69 6c 64 5d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a ild]...} else {.
9610: 09 09 20 20 20 20 62 72 65 61 6b 0a 09 09 7d 0a .. break...}.
9620: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 20 72 . }... # r
9630: 65 76 20 6e 6f 77 20 63 6f 6e 74 61 69 6e 73 20 ev now contains
9640: 74 68 65 20 66 69 72 73 74 20 6e 6f 6e 2d 4e 54 the first non-NT
9650: 44 42 20 72 65 76 69 73 69 6f 6e 20 61 66 74 65 DB revision afte
9660: 72 20 74 68 65 0a 09 20 20 20 20 23 20 4e 54 44 r the.. # NTD
9670: 42 2c 20 6f 72 20 69 73 20 65 6d 70 74 79 20 69 B, or is empty i
9680: 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 73 75 f there is no su
9690: 63 68 2e 20 49 66 20 77 65 20 68 61 76 65 20 73 ch. If we have s
96a0: 6f 6d 65 0a 09 20 20 20 20 23 20 74 68 65 79 20 ome.. # they
96b0: 68 61 76 65 20 74 6f 20 72 65 6d 6f 76 65 64 2e have to removed.
96c0: 0a 0a 09 20 20 20 20 69 66 20 7b 24 72 65 76 20 ... if {$rev
96d0: 6e 65 20 22 22 7d 20 20 7b 0a 09 09 73 65 74 20 ne ""} {...set
96e0: 6c 61 73 74 6e 74 64 62 20 5b 24 72 65 76 20 70 lastntdb [$rev p
96f0: 61 72 65 6e 74 5d 0a 09 09 24 6c 61 73 74 6e 74 arent]...$lastnt
9700: 64 62 20 63 75 74 66 72 6f 6d 63 68 69 6c 64 0a db cutfromchild.
9710: 09 09 77 68 69 6c 65 20 7b 24 72 65 76 20 6e 65 ..while {$rev ne
9720: 20 22 22 7d 20 7b 0a 09 09 20 20 20 20 24 72 65 ""} {... $re
9730: 76 20 72 65 6d 6f 76 65 61 6c 6c 74 61 67 73 0a v removealltags.
9740: 09 09 20 20 20 20 24 72 65 76 20 72 65 6d 6f 76 .. $rev remov
9750: 65 61 6c 6c 62 72 61 6e 63 68 65 73 0a 09 09 20 eallbranches...
9760: 20 20 20 23 20 4e 6f 74 65 20 5b 78 5d 3a 20 57 # Note [x]: W
9770: 65 20 6d 61 79 20 73 74 69 6c 6c 20 68 61 76 65 e may still have
9780: 20 68 61 64 20 62 72 61 6e 63 68 65 73 20 6f 6e had branches on
9790: 20 74 68 65 0a 09 09 20 20 20 20 23 20 72 65 76 the... # rev
97a0: 69 73 69 6f 6e 2e 20 42 72 61 6e 63 68 65 73 20 ision. Branches
97b0: 77 69 74 68 6f 75 74 20 72 65 76 69 73 69 6f 6e without revision
97c0: 73 20 63 6f 6d 6d 69 74 74 65 64 0a 09 09 20 20 s committed...
97d0: 20 20 23 20 6f 6e 20 74 68 65 6d 20 64 6f 20 6e # on them do n
97e0: 6f 74 20 73 68 6f 77 20 75 70 20 69 6e 20 74 68 ot show up in th
97f0: 65 20 6c 69 73 74 20 6f 66 20 72 6f 6f 74 73 20 e list of roots
9800: 61 6b 61 0a 09 09 20 20 20 20 23 20 6c 69 6e 65 aka... # line
9810: 73 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e 74 s of development
9820: 2e 0a 09 09 20 20 20 20 73 65 74 20 72 65 76 20 .... set rev
9830: 5b 24 72 65 76 20 63 68 69 6c 64 5d 0a 09 09 7d [$rev child]...}
9840: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 72 65 74 .. }.. ret
9850: 75 72 6e 0a 09 7d 0a 0a 09 23 20 4e 6f 20 4e 54 urn..}...# No NT
9860: 44 42 20 73 74 75 66 66 20 74 6f 20 64 65 61 6c DB stuff to deal
9870: 20 77 69 74 68 2e 20 46 69 72 73 74 20 64 65 6c with. First del
9880: 65 74 65 20 74 68 65 20 62 72 61 6e 63 68 20 6f ete the branch o
9890: 62 6a 65 63 74 0a 09 23 20 69 74 73 65 6c 66 2c bject..# itself,
98a0: 20 61 66 74 65 72 20 63 75 74 74 69 6e 67 20 61 after cutting a
98b0: 6c 6c 20 74 68 65 20 76 61 72 69 6f 75 73 20 63 ll the various c
98c0: 6f 6e 6e 65 63 74 69 6f 6e 73 2e 0a 0a 09 73 65 onnections....se
98d0: 74 20 62 72 61 6e 63 68 20 5b 24 72 6f 6f 74 20 t branch [$root
98e0: 70 61 72 65 6e 74 62 72 61 6e 63 68 5d 0a 09 69 parentbranch]..i
98f0: 66 20 7b 24 62 72 61 6e 63 68 20 6e 65 20 22 22 f {$branch ne ""
9900: 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 62 72 61 } {.. set bra
9910: 6e 63 68 70 61 72 65 6e 74 20 5b 24 62 72 61 6e nchparent [$bran
9920: 63 68 20 70 61 72 65 6e 74 5d 0a 09 20 20 20 20 ch parent]..
9930: 24 62 72 61 6e 63 68 70 61 72 65 6e 74 20 72 65 $branchparent re
9940: 6d 6f 76 65 62 72 61 6e 63 68 20 20 20 20 20 20 movebranch
9950: 20 20 24 62 72 61 6e 63 68 0a 09 20 20 20 20 24 $branch.. $
9960: 62 72 61 6e 63 68 70 61 72 65 6e 74 20 72 65 6d branchparent rem
9970: 6f 76 65 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 ovechildonbranch
9980: 20 24 72 6f 6f 74 0a 09 7d 0a 0a 09 23 20 54 68 $root..}...# Th
9990: 65 20 72 6f 6f 74 20 69 73 20 6e 6f 20 73 75 63 e root is no suc
99a0: 68 20 61 6e 79 20 6c 6f 6e 67 65 72 20 65 69 74 h any longer eit
99b0: 68 65 72 2e 0a 09 6c 64 65 6c 65 74 65 20 6d 79 her...ldelete my
99c0: 72 6f 6f 74 73 20 24 72 6f 6f 74 0a 0a 09 23 20 roots $root...#
99d0: 4e 6f 77 20 67 6f 20 74 68 72 6f 75 67 68 20 74 Now go through t
99e0: 68 65 20 6c 69 6e 65 20 61 6e 64 20 72 65 6d 6f he line and remo
99f0: 76 65 20 61 6c 6c 20 69 74 73 20 72 65 76 69 73 ve all its revis
9a00: 69 6f 6e 73 2e 0a 0a 09 77 68 69 6c 65 20 7b 24 ions....while {$
9a10: 72 6f 6f 74 20 6e 65 20 22 22 7d 20 7b 0a 09 20 root ne ""} {..
9a20: 20 20 20 24 72 6f 6f 74 20 72 65 6d 6f 76 65 61 $root removea
9a30: 6c 6c 74 61 67 73 0a 09 20 20 20 20 24 72 6f 6f lltags.. $roo
9a40: 74 20 72 65 6d 6f 76 65 61 6c 6c 62 72 61 6e 63 t removeallbranc
9a50: 68 65 73 0a 09 20 20 20 20 23 20 4e 6f 74 65 3a hes.. # Note:
9a60: 20 53 65 65 20 74 68 65 20 6e 6f 74 65 20 5b 78 See the note [x
9a70: 5d 2e 0a 0a 09 20 20 20 20 23 20 46 72 6f 6d 20 ].... # From
9a80: 63 76 73 32 73 76 6e 3a 20 49 66 20 74 68 69 73 cvs2svn: If this
9a90: 20 69 73 20 74 68 65 20 6c 61 73 74 20 64 65 66 is the last def
9aa0: 61 75 6c 74 20 72 65 76 69 73 69 6f 6e 20 6f 6e ault revision on
9ab0: 20 61 0a 09 20 20 20 20 23 20 6e 6f 6e 2d 74 72 a.. # non-tr
9ac0: 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 61 6e unk default bran
9ad0: 63 68 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61 ch followed by a
9ae0: 20 31 2e 32 20 72 65 76 69 73 69 6f 6e 2c 0a 09 1.2 revision,..
9af0: 20 20 20 20 23 20 74 68 65 6e 20 74 68 65 20 31 # then the 1
9b00: 2e 32 20 72 65 76 69 73 69 6f 6e 20 64 65 70 65 .2 revision depe
9b10: 6e 64 73 20 6f 6e 20 74 68 69 73 20 6f 6e 65 2e nds on this one.
9b20: 20 20 46 49 58 4d 45 3a 20 49 74 20 69 73 0a 09 FIXME: It is..
9b30: 20 20 20 20 23 20 71 75 65 73 74 69 6f 6e 61 62 # questionab
9b40: 6c 65 20 77 68 65 74 68 65 72 20 74 68 69 73 20 le whether this
9b50: 68 61 6e 64 6c 69 6e 67 20 69 73 20 63 6f 72 72 handling is corr
9b60: 65 63 74 2c 20 73 69 6e 63 65 20 74 68 65 0a 09 ect, since the..
9b70: 20 20 20 20 23 20 6e 6f 6e 2d 74 72 75 6e 6b 20 # non-trunk
9b80: 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 20 72 default branch r
9b90: 65 76 69 73 69 6f 6e 73 20 61 66 66 65 63 74 20 evisions affect
9ba0: 74 72 75 6e 6b 20 61 6e 64 0a 09 20 20 20 20 23 trunk and.. #
9bb0: 20 73 68 6f 75 6c 64 20 74 68 65 72 65 66 6f 72 should therefor
9bc0: 65 20 6e 6f 74 20 6a 75 73 74 20 62 65 20 64 69 e not just be di
9bd0: 73 63 61 72 64 65 64 20 65 76 65 6e 20 69 66 0a scarded even if.
9be0: 09 20 20 20 20 23 20 2d 2d 74 72 75 6e 6b 2d 6f . # --trunk-o
9bf0: 6e 6c 79 2e 0a 0a 09 20 20 20 20 69 66 20 7b 5b nly.... if {[
9c00: 24 72 6f 6f 74 20 68 61 73 64 65 66 61 75 6c 74 $root hasdefault
9c10: 62 72 61 6e 63 68 63 68 69 6c 64 5d 7d 20 7b 0a branchchild]} {.
9c20: 09 09 73 65 74 20 6e 74 64 62 63 68 69 6c 64 20 ..set ntdbchild
9c30: 5b 24 72 6f 6f 74 20 64 65 66 61 75 6c 74 62 72 [$root defaultbr
9c40: 61 6e 63 68 63 68 69 6c 64 5d 0a 09 09 69 6e 74 anchchild]...int
9c50: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a egrity assert {.
9c60: 09 09 20 20 20 20 5b 24 6e 74 64 62 63 68 69 6c .. [$ntdbchil
9c70: 64 20 64 65 66 61 75 6c 74 62 72 61 6e 63 68 70 d defaultbranchp
9c80: 61 72 65 6e 74 5d 20 65 71 20 24 6e 74 64 62 63 arent] eq $ntdbc
9c90: 68 69 6c 64 0a 09 09 7d 20 7b 6e 74 64 62 20 2d hild...} {ntdb -
9ca0: 20 74 72 75 6e 6b 20 6c 69 6e 6b 61 67 65 20 62 trunk linkage b
9cb0: 72 6f 6b 65 6e 7d 0a 09 09 24 6e 74 64 62 63 68 roken}...$ntdbch
9cc0: 69 6c 64 20 63 75 74 64 65 66 61 75 6c 74 62 72 ild cutdefaultbr
9cd0: 61 6e 63 68 70 61 72 65 6e 74 0a 09 09 69 66 20 anchparent...if
9ce0: 7b 5b 24 6e 74 64 62 63 68 69 6c 64 20 68 61 73 {[$ntdbchild has
9cf0: 70 61 72 65 6e 74 5d 7d 20 7b 0a 09 09 20 20 20 parent]} {...
9d00: 20 6c 61 70 70 65 6e 64 20 6d 79 72 6f 6f 74 73 lappend myroots
9d10: 20 5b 24 6e 74 64 62 63 68 69 6c 64 20 70 61 72 [$ntdbchild par
9d20: 65 6e 74 5d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a ent]...}.. }.
9d30: 0a 09 20 20 20 20 73 65 74 20 72 6f 6f 74 20 5b .. set root [
9d40: 24 72 6f 6f 74 20 63 68 69 6c 64 5d 0a 09 7d 0a $root child]..}.
9d50: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
9d60: 20 20 20 20 6d 65 74 68 6f 64 20 47 72 61 66 74 method Graft
9d70: 4e 54 44 42 32 54 72 75 6e 6b 20 7b 72 6f 6f 74 NTDB2Trunk {root
9d80: 7d 20 7b 0a 09 23 20 57 65 20 63 61 6e 20 6e 6f } {..# We can no
9d90: 77 20 67 72 61 66 74 20 74 68 65 20 6e 6f 6e 2d w graft the non-
9da0: 74 72 75 6e 6b 20 64 65 66 61 75 6c 74 20 62 72 trunk default br
9db0: 61 6e 63 68 20 72 65 76 69 73 69 6f 6e 73 20 74 anch revisions t
9dc0: 6f 0a 09 23 20 74 72 75 6e 6b 2e 20 54 68 65 79 o..# trunk. They
9dd0: 20 73 68 6f 75 6c 64 20 61 6c 72 65 61 64 79 20 should already
9de0: 62 65 20 61 6c 6f 6e 65 20 6f 6e 20 61 20 43 56 be alone on a CV
9df0: 53 42 72 61 6e 63 68 2d 6c 65 73 73 0a 09 23 20 SBranch-less..#
9e00: 62 72 61 6e 63 68 2e 0a 0a 09 69 6e 74 65 67 72 branch....integr
9e10: 69 74 79 20 61 73 73 65 72 74 20 7b 21 5b 24 72 ity assert {![$r
9e20: 6f 6f 74 20 68 61 73 70 61 72 65 6e 74 62 72 61 oot hasparentbra
9e30: 6e 63 68 5d 7d 20 7b 4e 54 44 42 20 72 6f 6f 74 nch]} {NTDB root
9e40: 20 73 74 69 6c 6c 20 68 61 73 20 69 74 73 20 62 still has its b
9e50: 72 61 6e 63 68 20 73 79 6d 62 6f 6c 7d 0a 09 69 ranch symbol}..i
9e60: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
9e70: 7b 21 5b 24 72 6f 6f 74 20 68 61 73 62 72 61 6e {![$root hasbran
9e80: 63 68 65 73 5d 7d 20 20 20 20 20 7b 4e 54 44 42 ches]} {NTDB
9e90: 20 72 6f 6f 74 20 73 74 69 6c 6c 20 68 61 73 20 root still has
9ea0: 73 70 61 77 6e 65 64 20 62 72 61 6e 63 68 65 73 spawned branches
9eb0: 7d 0a 0a 09 73 65 74 20 6c 61 73 74 20 24 72 6f }...set last $ro
9ec0: 6f 74 0a 09 77 68 69 6c 65 20 7b 5b 24 6c 61 73 ot..while {[$las
9ed0: 74 20 68 61 73 63 68 69 6c 64 5d 7d 20 7b 73 65 t haschild]} {se
9ee0: 74 20 6c 61 73 74 20 5b 24 6c 61 73 74 20 63 68 t last [$last ch
9ef0: 69 6c 64 5d 7d 0a 0a 09 69 66 20 7b 5b 24 6c 61 ild]}...if {[$la
9f00: 73 74 20 68 61 73 64 65 66 61 75 6c 74 62 72 61 st hasdefaultbra
9f10: 6e 63 68 63 68 69 6c 64 5d 7d 20 7b 0a 0a 09 20 nchchild]} {...
9f20: 20 20 20 73 65 74 20 72 65 76 31 32 20 5b 24 6c set rev12 [$l
9f30: 61 73 74 20 64 65 66 61 75 6c 74 62 72 61 6e 63 ast defaultbranc
9f40: 68 63 68 69 6c 64 5d 0a 09 20 20 20 20 24 72 65 hchild].. $re
9f50: 76 31 32 20 63 75 74 64 65 66 61 75 6c 74 62 72 v12 cutdefaultbr
9f60: 61 6e 63 68 70 61 72 65 6e 74 0a 09 20 20 20 20 anchparent..
9f70: 24 6c 61 73 74 20 20 63 75 74 64 65 66 61 75 6c $last cutdefaul
9f80: 74 62 72 61 6e 63 68 63 68 69 6c 64 0a 0a 09 20 tbranchchild...
9f90: 20 20 20 24 72 65 76 31 32 20 63 68 61 6e 67 65 $rev12 change
9fa0: 70 61 72 65 6e 74 20 24 6c 61 73 74 0a 09 20 20 parent $last..
9fb0: 20 20 24 6c 61 73 74 20 20 63 68 61 6e 67 65 63 $last changec
9fc0: 68 69 6c 64 20 24 72 65 76 31 32 0a 0a 09 20 20 hild $rev12...
9fd0: 20 20 6c 64 65 6c 65 74 65 20 6d 79 72 6f 6f 74 ldelete myroot
9fe0: 73 20 24 72 65 76 31 32 0a 0a 09 20 20 20 20 23 s $rev12... #
9ff0: 20 4e 6f 74 65 20 61 6e 64 20 72 65 6d 65 6d 62 Note and rememb
a000: 65 72 20 74 68 61 74 20 74 68 65 20 74 79 70 65 er that the type
a010: 20 6f 66 20 72 65 76 31 32 20 77 61 73 20 61 6c of rev12 was al
a020: 72 65 61 64 79 0a 09 20 20 20 20 23 20 61 64 6a ready.. # adj
a030: 75 73 74 65 64 20 62 79 20 41 64 6a 75 73 74 4e usted by AdjustN
a040: 6f 6e 54 72 75 6e 6b 44 65 66 61 75 6c 74 42 72 onTrunkDefaultBr
a050: 61 6e 63 68 2c 20 73 6f 20 77 65 20 64 6f 6e 27 anch, so we don'
a060: 74 0a 09 20 20 20 20 23 20 68 61 76 65 20 74 6f t.. # have to
a070: 20 63 68 61 6e 67 65 20 69 74 73 20 74 79 70 65 change its type
a080: 20 68 65 72 65 2e 0a 09 7d 0a 0a 09 77 68 69 6c here...}...whil
a090: 65 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d 20 e {$root ne ""}
a0a0: 7b 0a 09 20 20 20 20 24 72 6f 6f 74 20 73 65 74 {.. $root set
a0b0: 6f 6e 64 65 66 61 75 6c 74 62 72 61 6e 63 68 20 ondefaultbranch
a0c0: 30 0a 09 20 20 20 20 24 72 6f 6f 74 20 73 65 74 0.. $root set
a0d0: 6c 6f 64 20 24 6d 79 74 72 75 6e 6b 0a 09 20 20 lod $mytrunk..
a0e0: 20 20 66 6f 72 65 61 63 68 20 74 61 67 20 5b 24 foreach tag [$
a0f0: 72 6f 6f 74 20 74 61 67 73 5d 20 7b 0a 09 09 24 root tags] {...$
a100: 74 61 67 20 73 65 74 6c 6f 64 20 24 6d 79 74 72 tag setlod $mytr
a110: 75 6e 6b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 unk.. }..
a120: 73 65 74 20 72 6f 6f 74 20 5b 24 72 6f 6f 74 20 set root [$root
a130: 63 68 69 6c 64 5d 0a 09 7d 0a 0a 20 20 20 20 20 child]..}..
a140: 20 20 20 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a return. }.
a150: 0a 20 20 20 20 6d 65 74 68 6f 64 20 41 63 74 69 . method Acti
a160: 76 65 20 7b 7d 20 7b 0a 09 73 65 74 20 72 65 76 ve {} {..set rev
a170: 69 73 69 6f 6e 73 20 7b 7d 0a 09 73 65 74 20 73 isions {}..set s
a180: 79 6d 62 6f 6c 73 20 20 20 7b 7d 0a 0a 09 66 6f ymbols {}...fo
a190: 72 65 61 63 68 20 72 6f 6f 74 20 5b 24 73 65 6c reach root [$sel
a1a0: 66 20 4c 69 6e 65 73 4f 66 44 65 76 65 6c 6f 70 f LinesOfDevelop
a1b0: 6d 65 6e 74 5d 20 7b 0a 09 20 20 20 20 69 66 20 ment] {.. if
a1c0: 7b 5b 24 72 6f 6f 74 20 68 61 73 70 61 72 65 6e {[$root hasparen
a1d0: 74 62 72 61 6e 63 68 5d 7d 20 7b 20 6c 61 70 70 tbranch]} { lapp
a1e0: 65 6e 64 20 73 79 6d 62 6f 6c 73 20 5b 24 72 6f end symbols [$ro
a1f0: 6f 74 20 70 61 72 65 6e 74 62 72 61 6e 63 68 5d ot parentbranch]
a200: 20 7d 0a 09 20 20 20 20 77 68 69 6c 65 20 7b 24 }.. while {$
a210: 72 6f 6f 74 20 6e 65 20 22 22 7d 20 7b 0a 09 09 root ne ""} {...
a220: 6c 61 70 70 65 6e 64 20 72 65 76 69 73 69 6f 6e lappend revision
a230: 73 20 24 72 6f 6f 74 0a 09 09 66 6f 72 65 61 63 s $root...foreac
a240: 68 20 74 61 67 20 20 20 20 5b 24 72 6f 6f 74 20 h tag [$root
a250: 74 61 67 73 5d 20 20 20 20 20 7b 20 6c 61 70 70 tags] { lapp
a260: 65 6e 64 20 73 79 6d 62 6f 6c 73 20 24 74 61 67 end symbols $tag
a270: 20 20 20 20 7d 0a 09 09 66 6f 72 65 61 63 68 20 }...foreach
a280: 62 72 61 6e 63 68 20 5b 24 72 6f 6f 74 20 62 72 branch [$root br
a290: 61 6e 63 68 65 73 5d 20 7b 0a 09 09 20 20 20 20 anches] {...
a2a0: 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 integrity assert
a2b0: 20 7b 0a 09 09 09 5b 24 62 72 61 6e 63 68 20 70 {....[$branch p
a2c0: 61 72 65 6e 74 5d 20 65 71 20 24 72 6f 6f 74 0a arent] eq $root.
a2d0: 09 09 20 20 20 20 7d 20 7b 42 61 63 6b 72 65 66 .. } {Backref
a2e0: 65 72 65 6e 63 65 20 62 72 61 6e 63 68 20 74 6f erence branch to
a2f0: 20 69 74 73 20 72 6f 6f 74 20 69 73 20 6d 69 73 its root is mis
a300: 73 69 6e 67 20 6f 72 20 77 72 6f 6e 67 7d 0a 09 sing or wrong}..
a310: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 73 79 6d . lappend sym
a320: 62 6f 6c 73 20 24 62 72 61 6e 63 68 0a 09 09 7d bols $branch...}
a330: 0a 09 09 73 65 74 20 6c 6f 64 20 5b 24 72 6f 6f ...set lod [$roo
a340: 74 20 6c 6f 64 5d 0a 09 09 69 66 20 7b 21 5b 24 t lod]...if {![$
a350: 6c 6f 64 20 69 73 74 72 75 6e 6b 5d 7d 20 7b 0a lod istrunk]} {.
a360: 09 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 .. integrity
a370: 61 73 73 65 72 74 20 7b 0a 09 09 09 5b 24 6c 6f assert {....[$lo
a380: 64 20 68 61 73 63 68 69 6c 64 5d 0a 09 09 20 20 d haschild]...
a390: 20 20 7d 20 7b 42 72 61 6e 63 68 20 69 73 20 4c } {Branch is L
a3a0: 4f 44 20 73 79 6d 62 6f 6c 20 77 69 74 68 6f 75 OD symbol withou
a3b0: 74 20 72 65 76 69 73 69 6f 6e 73 7d 0a 09 09 20 t revisions}...
a3c0: 20 20 20 6c 61 70 70 65 6e 64 20 73 79 6d 62 6f lappend symbo
a3d0: 6c 73 20 24 6c 6f 64 0a 09 09 7d 0a 09 09 73 65 ls $lod...}...se
a3e0: 74 20 72 6f 6f 74 20 5b 24 72 6f 6f 74 20 63 68 t root [$root ch
a3f0: 69 6c 64 5d 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a ild].. }..}..
a400: 09 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 5b 6c .return [list [l
a410: 73 6f 72 74 20 2d 75 6e 69 71 75 65 20 2d 64 69 sort -unique -di
a420: 63 74 20 24 72 65 76 69 73 69 6f 6e 73 5d 20 5b ct $revisions] [
a430: 6c 73 6f 72 74 20 2d 75 6e 69 71 75 65 20 2d 64 lsort -unique -d
a440: 69 63 74 20 24 73 79 6d 62 6f 6c 73 5d 5d 0a 20 ict $symbols]].
a450: 20 20 20 7d 0a 0a 0a 20 20 20 20 6d 65 74 68 6f }... metho
a460: 64 20 41 67 67 72 65 67 61 74 65 53 79 6d 62 6f d AggregateSymbo
a470: 6c 44 61 74 61 20 7b 7d 20 7b 0a 09 23 20 4e 6f lData {} {..# No
a480: 77 20 74 68 61 74 20 74 68 65 20 65 78 61 63 74 w that the exact
a490: 20 73 65 74 20 6f 66 20 72 65 76 69 73 69 6f 6e set of revision
a4a0: 73 20 28 61 6e 64 20 74 68 72 6f 75 67 68 20 74 s (and through t
a4b0: 68 61 74 0a 09 23 20 62 72 61 6e 63 68 65 73 20 hat..# branches
a4c0: 61 6e 64 20 74 61 67 73 29 20 69 73 20 6b 6e 6f and tags) is kno
a4d0: 77 6e 20 77 65 20 63 61 6e 20 75 70 64 61 74 65 wn we can update
a4e0: 20 74 68 65 20 61 67 67 72 65 67 61 74 65 0a 09 the aggregate..
a4f0: 23 20 73 79 6d 62 6f 6c 20 73 74 61 74 69 73 74 # symbol statist
a500: 69 63 73 2e 0a 0a 09 66 6f 72 65 61 63 68 20 72 ics....foreach r
a510: 6f 6f 74 20 5b 24 73 65 6c 66 20 4c 69 6e 65 73 oot [$self Lines
a520: 4f 66 44 65 76 65 6c 6f 70 6d 65 6e 74 5d 20 7b OfDevelopment] {
a530: 0a 09 20 20 20 20 73 65 74 20 6c 6f 64 20 5b 24 .. set lod [$
a540: 72 6f 6f 74 20 6c 6f 64 5d 0a 0a 09 20 20 20 20 root lod]...
a550: 23 20 4e 6f 74 65 3a 20 49 66 20 74 68 65 20 4c # Note: If the L
a560: 4f 44 20 69 73 20 74 68 65 20 74 72 75 6e 6b 20 OD is the trunk
a570: 74 68 65 20 63 6f 75 6e 74 2a 2c 20 65 74 63 2e the count*, etc.
a580: 20 6d 65 74 68 6f 64 73 0a 09 20 20 20 20 23 20 methods.. #
a590: 77 69 6c 6c 20 64 6f 20 6e 6f 74 68 69 6e 67 2c will do nothing,
a5a0: 20 61 73 20 69 74 20 69 73 20 61 6c 77 61 79 73 as it is always
a5b0: 20 70 72 65 73 65 6e 74 20 28 63 61 6e 6e 6f 74 present (cannot
a5c0: 20 62 65 0a 09 20 20 20 20 23 20 65 78 63 6c 75 be.. # exclu
a5d0: 64 65 64 29 2c 20 61 6e 64 20 69 73 20 61 6c 77 ded), and is alw
a5e0: 61 79 73 20 61 20 62 72 61 6e 63 68 20 74 6f 6f ays a branch too
a5f0: 2e 0a 0a 09 20 20 20 20 23 20 4c 69 6e 65 73 20 .... # Lines
a600: 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e 74 20 63 of development c
a610: 6f 75 6e 74 20 61 73 20 62 72 61 6e 63 68 65 73 ount as branches
a620: 20 61 6e 64 20 68 61 76 65 20 61 20 63 6f 6d 6d and have a comm
a630: 69 74 0a 09 20 20 20 20 23 20 6f 6e 20 74 68 65 it.. # on the
a640: 6d 20 28 72 6f 6f 74 29 2e 20 49 66 20 74 68 65 m (root). If the
a650: 79 20 61 72 65 20 73 74 69 6c 6c 20 61 74 74 61 y are still atta
a660: 63 68 65 64 20 74 6f 20 61 20 74 72 65 65 20 77 ched to a tree w
a670: 65 0a 09 20 20 20 20 23 20 68 61 76 65 20 74 6f e.. # have to
a680: 20 63 6f 6d 70 75 74 65 20 61 6e 64 20 72 65 67 compute and reg
a690: 69 73 74 65 72 20 70 6f 73 73 69 62 6c 65 20 70 ister possible p
a6a0: 61 72 65 6e 74 73 2e 0a 0a 09 20 20 20 20 24 6c arents.... $l
a6b0: 6f 64 20 63 6f 75 6e 74 61 73 62 72 61 6e 63 68 od countasbranch
a6c0: 0a 09 20 20 20 20 24 6c 6f 64 20 63 6f 75 6e 74 .. $lod count
a6d0: 61 63 6f 6d 6d 69 74 0a 0a 09 20 20 20 20 69 66 acommit... if
a6e0: 20 7b 5b 24 72 6f 6f 74 20 68 61 73 70 61 72 65 {[$root haspare
a6f0: 6e 74 62 72 61 6e 63 68 5d 7d 20 7b 0a 09 09 23 ntbranch]} {...#
a700: 20 4e 6f 74 65 20 6c 6f 64 20 3d 3d 20 5b 24 72 Note lod == [$r
a710: 6f 6f 74 20 70 61 72 65 6e 74 62 72 61 6e 63 68 oot parentbranch
a720: 5d 0a 09 09 24 6c 6f 64 20 70 6f 73 73 69 62 6c ]...$lod possibl
a730: 65 70 61 72 65 6e 74 73 0a 09 20 20 20 20 7d 20 eparents.. }
a740: 65 6c 73 65 69 66 20 7b 21 5b 24 6c 6f 64 20 69 elseif {![$lod i
a750: 73 74 72 75 6e 6b 5d 20 26 26 20 5b 24 72 6f 6f strunk] && [$roo
a760: 74 20 69 73 6f 6e 64 65 66 61 75 6c 74 62 72 61 t isondefaultbra
a770: 6e 63 68 5d 7d 20 7b 0a 09 09 23 20 54 68 69 73 nch]} {...# This
a780: 20 69 73 20 74 68 65 20 72 6f 6f 74 20 72 65 76 is the root rev
a790: 69 73 69 6f 6e 20 6f 66 20 61 20 64 65 74 61 63 ision of a detac
a7a0: 68 65 64 20 4e 54 44 42 2e 20 57 65 0a 09 09 23 hed NTDB. We...#
a7b0: 20 68 61 76 65 20 74 6f 20 6d 61 6e 75 61 6c 6c have to manuall
a7c0: 79 20 73 65 74 20 74 68 65 20 6f 6e 6c 79 20 70 y set the only p
a7d0: 6f 73 73 69 62 6c 65 20 70 61 72 65 6e 74 20 66 ossible parent f
a7e0: 6f 72 0a 09 09 23 20 74 68 69 73 20 4c 4f 44 2c or...# this LOD,
a7f0: 20 74 68 65 20 74 72 75 6e 6b 20 69 74 73 65 6c the trunk itsel
a800: 66 2e 0a 0a 09 09 5b 24 6c 6f 64 20 73 79 6d 62 f.....[$lod symb
a810: 6f 6c 5d 20 70 6f 73 73 69 62 6c 65 70 61 72 65 ol] possiblepare
a820: 6e 74 20 24 6d 79 74 72 75 6e 6b 0a 09 20 20 20 nt $mytrunk..
a830: 20 7d 0a 0a 09 20 20 20 20 23 20 46 6f 72 20 74 }... # For t
a840: 68 65 20 72 65 76 69 73 69 6f 6e 73 20 69 6e 20 he revisions in
a850: 74 68 65 20 6c 69 6e 65 20 77 65 20 72 65 67 69 the line we regi
a860: 73 74 65 72 20 74 68 65 69 72 20 62 72 61 6e 63 ster their branc
a870: 68 65 73 0a 09 20 20 20 20 23 20 61 6e 64 20 74 hes.. # and t
a880: 61 67 73 20 61 73 20 62 6c 6f 63 6b 65 72 73 20 ags as blockers
a890: 66 6f 72 20 74 68 65 20 6c 6f 64 2c 20 61 6e 64 for the lod, and
a8a0: 20 75 70 64 61 74 65 20 74 68 65 20 74 79 70 65 update the type
a8b0: 0a 09 20 20 20 20 23 20 63 6f 75 6e 74 65 72 73 .. # counters
a8c0: 20 61 73 20 77 65 6c 6c 2e 20 41 73 20 62 72 61 as well. As bra
a8d0: 6e 63 68 20 73 79 6d 62 6f 6c 73 20 77 69 74 68 nch symbols with
a8e0: 6f 75 74 20 63 6f 6d 6d 69 74 73 20 6f 6e 0a 09 out commits on..
a8f0: 20 20 20 20 23 20 74 68 65 6d 20 61 72 65 20 6e # them are n
a900: 6f 74 20 6c 69 73 74 65 64 20 61 73 20 6c 69 6e ot listed as lin
a910: 65 73 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e es of developmen
a920: 74 2c 20 77 65 20 68 61 76 65 20 74 6f 0a 09 20 t, we have to..
a930: 20 20 20 23 20 63 6f 75 6e 74 20 74 68 65 6d 20 # count them
a940: 68 65 72 65 20 61 73 20 77 65 6c 6c 2c 20 61 73 here as well, as
a950: 20 70 6c 61 69 6e 20 62 72 61 6e 63 68 65 73 2e plain branches.
a960: 20 41 74 20 6c 61 73 74 20 77 65 0a 09 20 20 20 At last we..
a970: 20 23 20 68 61 76 65 20 74 6f 20 63 6f 6d 70 75 # have to compu
a980: 74 65 20 61 6e 64 20 72 65 67 69 73 74 65 72 20 te and register
a990: 74 68 65 20 70 6f 73 73 69 62 6c 65 20 70 61 72 the possible par
a9a0: 65 6e 74 73 20 6f 66 20 74 68 65 0a 09 20 20 20 ents of the..
a9b0: 20 23 20 74 61 67 73 2c 20 69 6e 20 63 61 73 65 # tags, in case
a9c0: 20 74 68 65 79 20 61 72 65 20 6c 61 74 65 72 20 they are later
a9d0: 63 6f 6e 76 65 72 74 65 64 20 61 73 20 62 72 61 converted as bra
a9e0: 6e 63 68 65 73 2e 0a 0a 09 20 20 20 20 77 68 69 nches.... whi
a9f0: 6c 65 20 7b 24 72 6f 6f 74 20 6e 65 20 22 22 7d le {$root ne ""}
aa00: 20 7b 0a 09 09 66 6f 72 65 61 63 68 20 62 72 61 {...foreach bra
aa10: 6e 63 68 20 5b 24 72 6f 6f 74 20 62 72 61 6e 63 nch [$root branc
aa20: 68 65 73 5d 20 7b 0a 09 09 20 20 20 20 24 6c 6f hes] {... $lo
aa30: 64 20 62 6c 6f 63 6b 65 64 62 79 20 24 62 72 61 d blockedby $bra
aa40: 6e 63 68 0a 09 09 20 20 20 20 24 62 72 61 6e 63 nch... $branc
aa50: 68 20 70 6f 73 73 69 62 6c 65 70 61 72 65 6e 74 h possibleparent
aa60: 73 0a 09 09 20 20 20 20 69 66 20 7b 5b 24 62 72 s... if {[$br
aa70: 61 6e 63 68 20 68 61 73 63 68 69 6c 64 5d 7d 20 anch haschild]}
aa80: 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 24 continue... $
aa90: 62 72 61 6e 63 68 20 63 6f 75 6e 74 61 73 62 72 branch countasbr
aaa0: 61 6e 63 68 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 anch...}....fore
aab0: 61 63 68 20 74 61 67 20 5b 24 72 6f 6f 74 20 74 ach tag [$root t
aac0: 61 67 73 5d 20 7b 0a 09 09 20 20 20 20 24 6c 6f ags] {... $lo
aad0: 64 20 62 6c 6f 63 6b 65 64 62 79 20 24 74 61 67 d blockedby $tag
aae0: 0a 09 09 20 20 20 20 24 74 61 67 20 70 6f 73 73 ... $tag poss
aaf0: 69 62 6c 65 70 61 72 65 6e 74 73 0a 09 09 20 20 ibleparents...
ab00: 20 20 24 74 61 67 20 63 6f 75 6e 74 61 73 74 61 $tag countasta
ab10: 67 0a 09 09 7d 0a 0a 09 09 73 65 74 20 72 6f 6f g...}....set roo
ab20: 74 20 5b 24 72 6f 6f 74 20 63 68 69 6c 64 5d 0a t [$root child].
ab30: 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 72 65 74 75 . }..}...retu
ab40: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 rn. }.. #
ab50: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
ab60: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
ab70: 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 6f 6e #####. ## Con
ab80: 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 figuration..
ab90: 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 pragma -hastypei
aba0: 6e 66 6f 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e nfo no ; # n
abb0: 6f 20 74 79 70 65 20 69 6e 74 72 6f 73 70 65 63 o type introspec
abc0: 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 tion. pragma
abd0: 2d 68 61 73 69 6e 66 6f 20 20 20 20 20 20 20 20 -hasinfo
abe0: 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f 62 6a 65 63 no ; # no objec
abf0: 74 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a t introspection.
ac00: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 pragma -hast
ac10: 79 70 65 6d 65 74 68 6f 64 73 20 6e 6f 20 20 3b ypemethods no ;
ac20: 20 23 20 74 79 70 65 20 69 73 20 6e 6f 74 20 72 # type is not r
ac30: 65 6c 65 76 61 6e 74 2e 0a 0a 20 20 20 20 23 20 elevant... #
ac40: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
ac50: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
ac60: 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 #####.}..namespa
ac70: 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f ce eval ::vc::fo
ac80: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
ac90: 73 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 s {. namespac
aca0: 65 20 65 78 70 6f 72 74 20 66 69 6c 65 0a 20 20 e export file.
acb0: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
acc0: 20 66 69 6c 65 20 7b 0a 09 23 20 49 6d 70 6f 72 file {..# Impor
acd0: 74 20 6e 6f 74 20 72 65 71 75 69 72 65 64 2c 20 t not required,
ace0: 61 6c 72 65 61 64 79 20 61 20 63 68 69 6c 64 20 already a child
acf0: 6e 61 6d 65 73 70 61 63 65 2e 0a 09 23 20 6e 61 namespace...# na
ad00: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
ad10: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
ad20: 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a ort::cvs::file::
ad30: 72 65 76 0a 09 23 20 6e 61 6d 65 73 70 61 63 65 rev..# namespace
ad40: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
ad50: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
ad60: 73 3a 3a 66 69 6c 65 3a 3a 73 79 6d 0a 09 6e 61 s::file::sym..na
ad70: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
ad80: 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 :vc::tools::misc
ad90: 3a 3a 2a 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 ::*..namespace i
ada0: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c mport ::vc::tool
adb0: 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 s::trouble..name
adc0: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
add0: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 6e c::tools::log..n
ade0: 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 amespace import
adf0: 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d ::vc::fossil::im
ae00: 70 6f 72 74 3a 3a 63 76 73 3a 3a 62 6c 6f 62 73 port::cvs::blobs
ae10: 74 6f 72 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 tore..namespace
ae20: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
ae30: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
ae40: 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 ::state..namespa
ae50: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
ae60: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
ae70: 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 cvs::integrity..
ae80: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
ae90: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
aea0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 67 74 63 6f mport::cvs::gtco
aeb0: 72 65 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 re. }.}..# #
aec0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
aed0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
aee0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
aef0: 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 #########.## Rea
af00: 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 dy..package prov
af10: 69 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ide vc::fossil::
af20: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c import::cvs::fil
af30: 65 20 31 2e 30 0a 72 65 74 75 72 6e 0a e 1.0.return.