0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0a 23 ## -*- tcl -*-.#
0010: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
0020: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0030: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 ############.##
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 Copyright (c) 20
0060: 30 37 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 07 Andreas Kupri
0070: 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 es..#.# This sof
0080: 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73 65 tware is license
0090: 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 d as described i
00a0: 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45 4e n the file LICEN
00b0: 53 45 2c 20 77 68 69 63 68 0a 23 20 79 6f 75 20 SE, which.# you
00c0: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 should have rece
00d0: 69 76 65 64 20 61 73 20 70 61 72 74 20 6f 66 20 ived as part of
00e0: 74 68 69 73 20 64 69 73 74 72 69 62 75 74 69 6f this distributio
00f0: 6e 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 74 n..#.# This soft
0100: 77 61 72 65 20 63 6f 6e 73 69 73 74 73 20 6f 66 ware consists of
0110: 20 76 6f 6c 75 6e 74 61 72 79 20 63 6f 6e 74 72 voluntary contr
0120: 69 62 75 74 69 6f 6e 73 20 6d 61 64 65 20 62 79 ibutions made by
0130: 20 6d 61 6e 79 0a 23 20 69 6e 64 69 76 69 64 75 many.# individu
0140: 61 6c 73 2e 20 20 46 6f 72 20 65 78 61 63 74 20 als. For exact
0150: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 20 68 69 73 contribution his
0160: 74 6f 72 79 2c 20 73 65 65 20 74 68 65 20 72 65 tory, see the re
0170: 76 69 73 69 6f 6e 0a 23 20 68 69 73 74 6f 72 79 vision.# history
0180: 20 61 6e 64 20 6c 6f 67 73 2c 20 61 76 61 69 6c and logs, avail
0190: 61 62 6c 65 20 61 74 20 68 74 74 70 3a 2f 2f 66 able at http://f
01a0: 6f 73 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e ossil-scm.hwaci.
01b0: 63 6f 6d 2f 66 6f 73 73 69 6c 0a 23 20 23 20 23 com/fossil.# # #
01c0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
01d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
01e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
01f0: 23 23 23 23 23 23 23 23 0a 0a 23 23 20 50 61 73 ########..## Pas
0200: 73 20 49 56 2e 20 43 6f 6d 69 6e 67 20 61 66 74 s IV. Coming aft
0210: 65 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 63 6f er the symbol co
0220: 6c 6c 61 74 69 6f 6e 20 70 61 73 73 20 74 68 69 llation pass thi
0230: 73 20 70 61 73 73 20 6e 6f 77 0a 23 23 20 72 65 s pass now.## re
0240: 6d 6f 76 65 73 20 61 6c 6c 20 72 65 76 69 73 69 moves all revisi
0250: 6f 6e 73 20 61 6e 64 20 73 79 6d 62 6f 6c 73 20 ons and symbols
0260: 72 65 66 65 72 65 6e 63 69 6e 67 20 61 6e 79 20 referencing any
0270: 6f 66 20 74 68 65 20 65 78 63 6c 75 64 65 64 0a of the excluded.
0280: 23 23 20 73 79 6d 62 6f 6c 73 20 66 72 6f 6d 20 ## symbols from
0290: 74 68 65 20 70 65 72 73 69 73 74 65 6e 74 20 64 the persistent d
02a0: 61 74 61 62 61 73 65 2e 0a 0a 23 20 23 20 23 23 atabase...# # ##
02b0: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
02c0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
02d0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 # ##############
02e0: 23 23 23 23 23 23 23 0a 23 23 20 52 65 71 75 69 #######.## Requi
02f0: 72 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61 67 65 rements..package
0300: 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 2e 34 require Tcl 8.4
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ;
0330: 20 23 20 52 65 71 75 69 72 65 64 20 72 75 6e 74 # Required runt
0340: 69 6d 65 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 ime..package req
0350: 75 69 72 65 20 73 6e 69 74 20 20 20 20 20 20 20 uire snit
0360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0370: 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 4f ; # O
0380: 4f 20 73 79 73 74 65 6d 2e 0a 70 61 63 6b 61 67 O system..packag
0390: 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 74 6f e require vc::to
03a0: 6f 6c 73 3a 3a 6d 69 73 63 20 20 20 20 20 20 20 ols::misc
03b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03c0: 3b 20 23 20 54 65 78 74 20 66 6f 72 6d 61 74 74 ; # Text formatt
03d0: 69 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 ing..package req
03e0: 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a uire vc::tools::
03f0: 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 20 log
0400: 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 55 ; # U
0410: 73 65 72 20 66 65 65 64 62 61 63 6b 2e 0a 70 61 ser feedback..pa
0420: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
0430: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
0440: 3a 3a 63 76 73 3a 3a 72 65 70 6f 73 69 74 6f 72 ::cvs::repositor
0450: 79 20 20 20 3b 20 23 20 52 65 70 6f 73 69 74 6f y ; # Reposito
0460: 72 79 20 6d 61 6e 61 67 65 6d 65 6e 74 2e 0a 70 ry management..p
0470: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 ackage require v
0480: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0490: 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 20 20 20 t::cvs::state
04a0: 20 20 20 20 20 3b 20 23 20 53 74 61 74 65 20 73 ; # State s
04b0: 74 6f 72 61 67 65 2e 0a 70 61 63 6b 61 67 65 20 torage..package
04c0: 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 require vc::foss
04d0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
04e0: 3a 69 6e 74 65 67 72 69 74 79 20 20 20 20 3b 20 :integrity ;
04f0: 23 20 53 74 61 74 65 20 73 74 6f 72 61 67 65 20 # State storage
0500: 69 6e 74 65 67 72 69 74 79 20 63 68 65 63 6b 73 integrity checks
0510: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0520: 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d e vc::fossil::im
0530: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 port::cvs::proje
0540: 63 74 3a 3a 73 79 6d 20 3b 20 23 20 50 72 6f 6a ct::sym ; # Proj
0550: 65 63 74 20 6c 65 76 65 6c 20 73 79 6d 62 6f 6c ect level symbol
0560: 73 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 s..# # ## ### ##
0570: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
0580: 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 ########## #####
0590: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
05a0: 0a 23 23 20 52 65 67 69 73 74 65 72 20 74 68 65 .## Register the
05b0: 20 70 61 73 73 20 77 69 74 68 20 74 68 65 20 6d pass with the m
05c0: 61 6e 61 67 65 6d 65 6e 74 0a 0a 76 63 3a 3a 66 anagement..vc::f
05d0: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
05e0: 76 73 3a 3a 70 61 73 73 20 64 65 66 69 6e 65 20 vs::pass define
05f0: 5c 0a 20 20 20 20 46 69 6c 74 65 72 53 79 6d 62 \. FilterSymb
0600: 6f 6c 73 20 5c 0a 20 20 20 20 7b 46 69 6c 74 65 ols \. {Filte
0610: 72 20 73 79 6d 62 6f 6c 73 2c 20 72 65 6d 6f 76 r symbols, remov
0620: 65 20 61 6c 6c 20 65 78 63 6c 75 64 65 64 20 70 e all excluded p
0630: 69 65 63 65 73 7d 20 5c 0a 20 20 20 20 3a 3a 76 ieces} \. ::v
0640: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0650: 74 3a 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 66 69 t::cvs::pass::fi
0660: 6c 74 65 72 73 79 6d 0a 0a 23 20 23 20 23 23 20 ltersym..# # ##
0670: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
0680: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0690: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
06a0: 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e 69 74 3a ######.##..snit:
06b0: 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 :type ::vc::foss
06c0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
06d0: 3a 70 61 73 73 3a 3a 66 69 6c 74 65 72 73 79 6d :pass::filtersym
06e0: 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 {. # # ## ##
06f0: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
0700: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 #############.
0710: 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 ## Public API
0720: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
0730: 20 73 65 74 75 70 20 7b 7d 20 7b 0a 09 23 20 44 setup {} {..# D
0740: 65 66 69 6e 65 20 6e 61 6d 65 73 20 61 6e 64 20 efine names and
0750: 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 structure of the
0760: 20 70 65 72 73 69 73 74 65 6e 74 20 73 74 61 74 persistent stat
0770: 65 20 6f 66 20 74 68 69 73 0a 09 23 20 70 61 73 e of this..# pas
0780: 73 2e 0a 0a 09 73 74 61 74 65 20 75 73 65 20 70 s....state use p
0790: 72 6f 6a 65 63 74 0a 09 73 74 61 74 65 20 75 73 roject..state us
07a0: 65 20 66 69 6c 65 0a 09 73 74 61 74 65 20 75 73 e file..state us
07b0: 65 20 72 65 76 69 73 69 6f 6e 0a 09 73 74 61 74 e revision..stat
07c0: 65 20 75 73 65 20 72 65 76 69 73 69 6f 6e 62 72 e use revisionbr
07d0: 61 6e 63 68 63 68 69 6c 64 72 65 6e 0a 09 73 74 anchchildren..st
07e0: 61 74 65 20 75 73 65 20 62 72 61 6e 63 68 0a 09 ate use branch..
07f0: 73 74 61 74 65 20 75 73 65 20 74 61 67 0a 09 73 state use tag..s
0800: 74 61 74 65 20 75 73 65 20 73 79 6d 62 6f 6c 0a tate use symbol.
0810: 09 73 74 61 74 65 20 75 73 65 20 62 6c 6f 63 6b .state use block
0820: 65 72 0a 09 73 74 61 74 65 20 75 73 65 20 70 61 er..state use pa
0830: 72 65 6e 74 0a 09 73 74 61 74 65 20 75 73 65 20 rent..state use
0840: 61 75 74 68 6f 72 0a 09 73 74 61 74 65 20 75 73 author..state us
0850: 65 20 63 6d 65 73 73 61 67 65 0a 09 73 74 61 74 e cmessage..stat
0860: 65 20 75 73 65 20 70 72 65 66 65 72 65 64 70 61 e use preferedpa
0870: 72 65 6e 74 0a 0a 09 23 20 4e 4f 54 45 3a 20 53 rent...# NOTE: S
0880: 6f 20 66 61 72 20 6e 6f 20 70 61 73 73 20 63 6f o far no pass co
0890: 6d 69 6e 67 20 61 66 74 65 72 20 74 68 69 73 20 ming after this
08a0: 6d 61 6b 65 73 20 75 73 20 6f 66 20 74 68 69 73 makes us of this
08b0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 09 73 information...s
08c0: 74 61 74 65 20 65 78 74 65 6e 64 20 6e 6f 6f 70 tate extend noop
08d0: 20 7b 0a 09 20 20 20 20 69 64 20 20 20 20 49 4e {.. id IN
08e0: 54 45 47 45 52 20 4e 4f 54 20 4e 55 4c 4c 20 20 TEGER NOT NULL
08f0: 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 2d 2d 20 PRIMARY KEY, --
0900: 74 61 67 2f 62 72 61 6e 63 68 20 72 65 66 65 72 tag/branch refer
0910: 65 6e 63 65 0a 09 20 20 20 20 6e 6f 6f 70 20 20 ence.. noop
0920: 49 4e 54 45 47 45 52 20 4e 4f 54 20 4e 55 4c 4c INTEGER NOT NULL
0930: 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 ..}..return.
0940: 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }.. typemetho
0950: 64 20 6c 6f 61 64 20 7b 7d 20 7b 0a 09 23 20 50 d load {} {..# P
0960: 61 73 73 20 6d 61 6e 61 67 65 72 20 69 6e 74 65 ass manager inte
0970: 72 66 61 63 65 2e 20 45 78 65 63 75 74 65 64 20 rface. Executed
0980: 74 6f 20 6c 6f 61 64 20 64 61 74 61 20 63 6f 6d to load data com
0990: 70 75 74 65 64 20 62 79 0a 09 23 20 74 68 69 73 puted by..# this
09a0: 20 70 61 73 73 20 69 6e 74 6f 20 6d 65 6d 6f 72 pass into memor
09b0: 79 20 77 68 65 6e 20 74 68 69 73 20 70 61 73 73 y when this pass
09c0: 20 69 73 20 73 6b 69 70 70 65 64 20 69 6e 73 74 is skipped inst
09d0: 65 61 64 20 6f 66 0a 09 23 20 65 78 65 63 75 74 ead of..# execut
09e0: 65 64 2e 0a 0a 09 23 20 54 68 65 20 72 65 73 75 ed....# The resu
09f0: 6c 74 73 20 6f 66 20 74 68 69 73 20 70 61 73 73 lts of this pass
0a00: 20 61 72 65 20 66 75 6c 6c 79 20 69 6e 20 74 68 are fully in th
0a10: 65 20 70 65 72 73 69 73 74 65 6e 74 20 73 74 61 e persistent sta
0a20: 74 65 2c 0a 09 23 20 74 68 65 72 65 20 69 73 20 te,..# there is
0a30: 6e 6f 74 68 69 6e 67 20 74 6f 20 6c 6f 61 64 20 nothing to load
0a40: 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6f 6e 65 for the next one
0a50: 2e 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ...return. }.
0a60: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
0a70: 72 75 6e 20 7b 7d 20 7b 0a 09 23 20 50 61 73 73 run {} {..# Pass
0a80: 20 6d 61 6e 61 67 65 72 20 69 6e 74 65 72 66 61 manager interfa
0a90: 63 65 2e 20 45 78 65 63 75 74 65 64 20 74 6f 20 ce. Executed to
0aa0: 70 65 72 66 6f 72 6d 20 74 68 65 0a 09 23 20 66 perform the..# f
0ab0: 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 6f 66 20 unctionality of
0ac0: 74 68 65 20 70 61 73 73 2e 0a 0a 09 23 20 54 68 the pass....# Th
0ad0: 65 20 72 65 6d 6f 76 61 6c 20 6f 66 20 65 78 63 e removal of exc
0ae0: 6c 75 64 65 64 20 73 79 6d 62 6f 6c 73 20 61 6e luded symbols an
0af0: 64 20 65 76 65 72 79 74 68 69 6e 67 20 72 65 66 d everything ref
0b00: 65 72 65 6e 63 69 6e 67 0a 09 23 20 74 6f 20 74 erencing..# to t
0b10: 68 65 6d 20 69 73 20 64 6f 6e 65 20 63 6f 6d 70 hem is done comp
0b20: 6c 65 74 65 6c 79 20 69 6e 20 74 68 65 20 64 61 letely in the da
0b30: 74 61 62 61 73 65 2e 0a 0a 09 73 74 61 74 65 20 tabase....state
0b40: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 20 transaction {..
0b50: 20 20 20 46 69 6c 74 65 72 45 78 63 6c 75 64 65 FilterExclude
0b60: 64 53 79 6d 62 6f 6c 73 0a 09 20 20 20 20 4d 75 dSymbols.. Mu
0b70: 74 61 74 65 53 79 6d 62 6f 6c 73 0a 09 20 20 20 tateSymbols..
0b80: 20 41 64 6a 75 73 74 50 61 72 65 6e 74 73 0a 09 AdjustParents..
0b90: 20 20 20 20 52 65 66 69 6e 65 53 79 6d 62 6f 6c RefineSymbol
0ba0: 73 0a 0a 09 20 20 20 20 72 65 70 6f 73 69 74 6f s... reposito
0bb0: 72 79 20 70 72 69 6e 74 72 65 76 73 74 61 74 69 ry printrevstati
0bc0: 73 74 69 63 73 0a 0a 09 20 20 20 20 23 20 53 74 stics... # St
0bd0: 72 69 63 74 20 69 6e 74 65 67 72 69 74 79 20 65 rict integrity e
0be0: 6e 66 6f 72 63 65 73 20 74 68 61 74 20 61 6c 6c nforces that all
0bf0: 20 6d 65 74 61 20 65 6e 74 72 69 65 73 20 61 72 meta entries ar
0c00: 65 20 69 6e 0a 09 20 20 20 20 23 20 74 68 65 20 e in.. # the
0c10: 73 61 6d 65 20 4c 4f 44 20 61 73 20 74 68 65 20 same LOD as the
0c20: 72 65 76 69 73 69 6f 6e 20 75 73 69 6e 67 20 74 revision using t
0c30: 68 65 6d 2e 20 41 74 20 74 68 69 73 20 70 6f 69 hem. At this poi
0c40: 6e 74 0a 09 20 20 20 20 23 20 74 68 69 73 20 6d nt.. # this m
0c50: 61 79 20 6e 6f 74 20 62 65 20 74 72 75 65 20 61 ay not be true a
0c60: 6e 79 20 6c 6f 6e 67 65 72 2e 20 49 66 20 61 20 ny longer. If a
0c70: 4e 54 44 42 20 77 61 73 20 65 78 63 6c 75 64 65 NTDB was exclude
0c80: 64 0a 09 20 20 20 20 23 20 74 68 65 6e 20 61 6c d.. # then al
0c90: 6c 20 72 65 76 69 73 69 6f 6e 73 20 69 74 20 73 l revisions it s
0ca0: 68 61 72 65 64 20 77 69 74 68 20 74 68 65 20 74 hared with the t
0cb0: 72 75 6e 6b 20 77 65 72 65 20 6d 6f 76 65 64 0a runk were moved.
0cc0: 09 20 20 20 20 23 20 74 6f 20 74 68 65 20 74 72 . # to the tr
0cd0: 75 6e 6b 20 4c 4f 44 2c 20 68 6f 77 65 76 65 72 unk LOD, however
0ce0: 20 74 68 65 69 72 20 6d 65 74 61 20 65 6e 74 72 their meta entr
0cf0: 69 65 73 20 77 69 6c 6c 20 73 74 69 6c 6c 0a 09 ies will still..
0d00: 20 20 20 20 23 20 72 65 66 65 72 20 74 6f 20 74 # refer to t
0d10: 68 65 20 6e 6f 77 20 67 6f 6e 65 20 4c 4f 44 20 he now gone LOD
0d20: 73 79 6d 62 6f 6c 2e 20 54 68 69 73 20 69 73 20 symbol. This is
0d30: 66 69 6e 65 20 68 6f 77 65 76 65 72 2c 0a 09 20 fine however,..
0d40: 20 20 20 23 20 69 74 20 77 69 6c 6c 20 6e 6f 74 # it will not
0d50: 20 61 66 66 65 63 74 20 6f 75 72 20 61 62 69 6c affect our abil
0d60: 69 74 79 20 74 6f 20 75 73 65 20 74 68 65 20 6d ity to use the m
0d70: 65 74 61 20 65 6e 74 72 69 65 73 0a 09 20 20 20 eta entries..
0d80: 20 23 20 74 6f 20 64 69 73 74 69 6e 67 75 69 73 # to distinguis
0d90: 68 20 61 6e 64 20 67 72 6f 75 70 20 72 65 76 69 h and group revi
0da0: 73 69 6f 6e 73 20 69 6e 74 6f 20 63 68 61 6e 67 sions into chang
0db0: 65 73 65 74 73 2e 20 49 74 0a 09 20 20 20 20 23 esets. It.. #
0dc0: 20 73 68 6f 75 6c 64 20 62 65 20 6e 6f 74 65 64 should be noted
0dd0: 20 74 68 61 74 20 77 65 20 63 61 6e 6e 6f 74 20 that we cannot
0de0: 73 69 6d 70 6c 79 20 73 77 69 74 63 68 20 74 68 simply switch th
0df0: 65 20 6d 65 74 61 0a 09 20 20 20 20 23 20 65 6e e meta.. # en
0e00: 74 72 69 65 73 20 6f 76 65 72 20 74 6f 20 74 68 tries over to th
0e10: 65 20 74 72 75 6e 6b 20 65 69 74 68 65 72 2c 20 e trunk either,
0e20: 61 73 20 74 68 61 74 20 6d 61 79 20 63 61 75 73 as that may caus
0e30: 65 20 74 68 65 0a 09 20 20 20 20 23 20 6d 6f 64 e the.. # mod
0e40: 69 66 69 65 64 20 65 6e 74 72 69 65 73 20 74 6f ified entries to
0e50: 20 76 69 6f 6c 61 74 65 20 74 68 65 20 75 6e 69 violate the uni
0e60: 71 75 65 2d 6e 65 73 73 20 63 6f 6e 73 74 72 61 que-ness constra
0e70: 69 6e 0a 09 20 20 20 20 23 20 73 65 74 20 6f 6e in.. # set on
0e80: 20 74 68 61 74 20 74 61 62 6c 65 2e 0a 09 20 20 that table...
0e90: 20 20 69 6e 74 65 67 72 69 74 79 20 6d 65 74 61 integrity meta
0ea0: 72 65 6c 61 78 65 64 0a 09 7d 0a 0a 09 6c 6f 67 relaxed..}...log
0eb0: 20 77 72 69 74 65 20 31 20 66 69 6c 74 65 72 73 write 1 filters
0ec0: 79 6d 20 22 46 69 6c 74 65 72 69 6e 67 20 63 6f ym "Filtering co
0ed0: 6d 70 6c 65 74 65 64 22 0a 09 72 65 74 75 72 6e mpleted"..return
0ee0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 . }.. type
0ef0: 6d 65 74 68 6f 64 20 64 69 73 63 61 72 64 20 7b method discard {
0f00: 7d 20 7b 0a 09 23 20 50 61 73 73 20 6d 61 6e 61 } {..# Pass mana
0f10: 67 65 72 20 69 6e 74 65 72 66 61 63 65 2e 20 45 ger interface. E
0f20: 78 65 63 75 74 65 64 20 66 6f 72 20 61 6c 6c 20 xecuted for all
0f30: 70 61 73 73 65 73 20 61 66 74 65 72 20 74 68 65 passes after the
0f40: 0a 09 23 20 72 75 6e 20 70 61 73 73 65 73 2c 20 ..# run passes,
0f50: 74 6f 20 72 65 6d 6f 76 65 20 61 6c 6c 20 64 61 to remove all da
0f60: 74 61 20 6f 66 20 74 68 69 73 20 70 61 73 73 20 ta of this pass
0f70: 66 72 6f 6d 20 74 68 65 20 73 74 61 74 65 2c 0a from the state,.
0f80: 09 23 20 61 73 20 62 65 69 6e 67 20 6f 75 74 20 .# as being out
0f90: 6f 66 20 64 61 74 65 2e 0a 09 72 65 74 75 72 6e of date...return
0fa0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
0fb0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
0fc0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0fd0: 23 23 23 0a 20 20 20 20 23 23 20 49 6e 74 65 72 ###. ## Inter
0fe0: 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 nal methods..
0ff0: 20 70 72 6f 63 20 46 69 6c 74 65 72 45 78 63 6c proc FilterExcl
1000: 75 64 65 64 53 79 6d 62 6f 6c 73 20 7b 7d 20 7b udedSymbols {} {
1010: 0a 09 6c 6f 67 20 77 72 69 74 65 20 33 20 66 69 ..log write 3 fi
1020: 6c 74 65 72 73 79 6d 20 22 52 65 6d 6f 76 65 20 ltersym "Remove
1030: 74 68 65 20 65 78 63 6c 75 64 65 64 20 73 79 6d the excluded sym
1040: 62 6f 6c 73 20 61 6e 64 20 74 68 65 69 72 20 75 bols and their u
1050: 73 65 72 73 22 0a 0a 09 23 20 57 65 20 70 75 6c sers"...# We pul
1060: 6c 20 61 6c 6c 20 74 68 65 20 65 78 63 6c 75 64 l all the exclud
1070: 65 64 20 73 79 6d 62 6f 6c 73 20 74 6f 67 65 74 ed symbols toget
1080: 68 65 72 20 69 6e 74 6f 20 61 20 74 61 62 6c 65 her into a table
1090: 20 66 6f 72 0a 09 23 20 65 61 73 79 20 72 65 66 for..# easy ref
10a0: 65 72 65 6e 63 65 20 62 79 20 74 68 65 20 75 70 erence by the up
10b0: 63 6f 6d 69 6e 67 20 44 45 4c 45 54 45 20 61 6e coming DELETE an
10c0: 64 20 6f 74 68 65 72 20 73 74 61 74 65 6d 65 6e d other statemen
10d0: 74 73 2e 0a 09 23 20 28 27 78 20 49 4e 20 74 61 ts...# ('x IN ta
10e0: 62 6c 65 27 20 63 6c 61 75 73 65 73 29 2e 0a 0a ble' clauses)...
10f0: 09 73 65 74 20 65 78 63 6c 20 5b 70 72 6f 6a 65 .set excl [proje
1100: 63 74 3a 3a 73 79 6d 20 65 78 63 6c 75 64 65 64 ct::sym excluded
1110: 5d 0a 0a 09 73 74 61 74 65 20 72 75 6e 20 7b 0a ]...state run {.
1120: 09 20 20 20 20 43 52 45 41 54 45 20 54 45 4d 50 . CREATE TEMP
1130: 4f 52 41 52 59 20 54 41 42 4c 45 20 65 78 63 6c ORARY TABLE excl
1140: 75 64 65 64 73 79 6d 62 6f 6c 73 20 41 53 0a 09 udedsymbols AS..
1150: 20 20 20 20 53 45 4c 45 43 54 20 73 69 64 0a 09 SELECT sid..
1160: 20 20 20 20 46 52 4f 4d 20 20 20 73 79 6d 62 6f FROM symbo
1170: 6c 0a 09 20 20 20 20 57 48 45 52 45 20 20 74 79 l.. WHERE ty
1180: 70 65 20 3d 20 24 65 78 63 6c 0a 09 7d 0a 0a 09 pe = $excl..}...
1190: 23 20 46 69 72 73 74 20 77 65 20 68 61 76 65 20 # First we have
11a0: 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 70 6f to handle the po
11b0: 73 73 69 62 69 6c 69 74 79 20 6f 66 20 61 6e 20 ssibility of an
11c0: 65 78 63 6c 75 64 65 64 0a 09 23 20 4e 54 44 42 excluded..# NTDB
11d0: 2e 20 54 68 69 73 20 69 73 20 61 20 73 70 65 63 . This is a spec
11e0: 69 61 6c 20 73 70 65 63 69 61 6c 20 63 61 73 65 ial special case
11f0: 20 74 68 65 72 65 20 77 65 20 68 61 76 65 20 74 there we have t
1200: 6f 0a 09 23 20 72 65 67 72 61 66 74 20 74 68 65 o..# regraft the
1210: 20 72 65 76 69 73 69 6f 6e 73 20 77 68 69 63 68 revisions which
1220: 20 61 72 65 20 73 68 61 72 65 64 20 62 65 74 77 are shared betw
1230: 65 65 6e 20 74 68 65 20 4e 54 44 42 20 61 6e 64 een the NTDB and
1240: 0a 09 23 20 54 72 75 6e 6b 20 6f 6e 74 6f 20 74 ..# Trunk onto t
1250: 68 65 20 74 72 75 6e 6b 2c 20 70 72 65 76 65 6e he trunk, preven
1260: 74 69 6e 67 20 74 68 65 69 72 20 64 65 6c 65 74 ting their delet
1270: 69 6f 6e 20 6c 61 74 65 72 2e 20 57 65 0a 09 23 ion later. We..#
1280: 20 68 61 76 65 20 63 6f 64 65 20 66 6f 72 20 74 have code for t
1290: 68 61 74 20 69 6e 20 27 66 69 6c 65 27 2c 20 68 hat in 'file', h
12a0: 6f 77 65 76 65 72 20 74 68 61 74 20 6f 70 65 72 owever that oper
12b0: 61 74 65 64 20 6f 6e 20 74 68 65 0a 09 23 20 69 ated on the..# i
12c0: 6e 2d 6d 65 6d 6f 72 79 20 72 65 76 69 73 69 6f n-memory revisio
12d0: 6e 20 6f 62 6a 65 63 74 73 2c 20 77 68 69 63 68 n objects, which
12e0: 20 77 65 20 64 6f 20 6e 6f 74 20 68 61 76 65 20 we do not have
12f0: 68 65 72 65 2e 20 57 65 20 64 6f 0a 09 23 20 74 here. We do..# t
1300: 68 65 20 73 61 6d 65 20 6e 6f 77 20 77 69 74 68 he same now with
1310: 6f 75 74 20 6f 62 6a 65 63 74 2c 20 62 79 20 64 out object, by d
1320: 69 72 65 63 74 6c 79 20 6d 61 6e 69 70 75 6c 61 irectly manipula
1330: 74 69 6e 67 20 74 68 65 0a 09 23 20 6c 69 6e 6b ting the..# link
1340: 73 20 69 6e 20 74 68 65 20 64 61 74 61 62 61 73 s in the databas
1350: 65 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 6e e....array set n
1360: 74 64 62 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 tdb {}..array se
1370: 74 20 6c 69 6e 6b 20 7b 7d 0a 0a 09 66 6f 72 65 t link {}...fore
1380: 61 63 68 20 7b 69 64 20 70 61 72 65 6e 74 20 74 ach {id parent t
1390: 72 61 6e 73 66 65 72 7d 20 5b 73 74 61 74 65 20 ransfer} [state
13a0: 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 run {.. SELEC
13b0: 54 20 52 2e 72 69 64 2c 20 52 2e 70 61 72 65 6e T R.rid, R.paren
13c0: 74 2c 20 52 2e 64 62 63 68 69 6c 64 0a 09 20 20 t, R.dbchild..
13d0: 20 20 46 52 4f 4d 20 20 72 65 76 69 73 69 6f 6e FROM revision
13e0: 20 52 2c 20 73 79 6d 62 6f 6c 20 53 0a 09 20 20 R, symbol S..
13f0: 20 20 57 48 45 52 45 20 52 2e 6c 6f 64 20 3d 20 WHERE R.lod =
1400: 53 2e 73 69 64 0a 09 20 20 20 20 41 4e 44 20 20 S.sid.. AND
1410: 20 53 2e 73 69 64 20 49 4e 20 65 78 63 6c 75 64 S.sid IN exclud
1420: 65 64 73 79 6d 62 6f 6c 73 0a 09 20 20 20 20 41 edsymbols.. A
1430: 4e 44 20 20 20 52 2e 69 73 64 65 66 61 75 6c 74 ND R.isdefault
1440: 0a 09 7d 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 ..}] {.. set
1450: 6e 74 64 62 28 24 69 64 29 20 24 70 61 72 65 6e ntdb($id) $paren
1460: 74 0a 09 20 20 20 20 69 66 20 7b 24 74 72 61 6e t.. if {$tran
1470: 73 66 65 72 20 65 71 20 22 22 7d 20 63 6f 6e 74 sfer eq ""} cont
1480: 69 6e 75 65 0a 09 20 20 20 20 73 65 74 20 6c 69 inue.. set li
1490: 6e 6b 28 24 69 64 29 20 24 74 72 61 6e 73 66 65 nk($id) $transfe
14a0: 72 0a 09 7d 0a 0a 09 66 6f 72 65 61 63 68 20 6a r..}...foreach j
14b0: 6f 69 6e 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 oint [array name
14c0: 73 20 6c 69 6e 6b 5d 20 7b 0a 09 20 20 20 20 23 s link] {.. #
14d0: 20 54 68 65 20 6a 6f 69 6e 74 73 20 61 72 65 20 The joints are
14e0: 74 68 65 20 68 69 67 68 65 73 74 20 4e 54 44 42 the highest NTDB
14f0: 20 72 65 76 69 73 69 6f 6e 73 20 77 68 69 63 68 revisions which
1500: 20 61 72 65 0a 09 20 20 20 20 23 20 73 68 61 72 are.. # shar
1510: 65 64 20 77 69 74 68 20 74 68 65 69 72 20 72 65 ed with their re
1520: 73 70 65 63 74 69 76 65 20 74 72 75 6e 6b 2e 20 spective trunk.
1530: 57 65 20 64 69 73 63 6f 6e 6e 65 63 74 20 66 72 We disconnect fr
1540: 6f 6d 0a 09 20 20 20 20 23 20 74 68 65 69 72 20 om.. # their
1550: 4e 54 44 42 20 63 68 69 6c 64 72 65 6e 2c 20 61 NTDB children, a
1560: 6e 64 20 6d 61 6b 65 20 74 68 65 6d 20 70 61 72 nd make them par
1570: 65 6e 74 73 20 6f 66 20 74 68 65 69 72 0a 09 20 ents of their..
1580: 20 20 20 23 20 27 64 62 63 68 69 6c 64 27 2e 20 # 'dbchild'.
1590: 54 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 27 The associated '
15a0: 64 62 70 61 72 65 6e 74 27 20 69 73 20 73 71 75 dbparent' is squ
15b0: 61 73 68 65 64 0a 09 20 20 20 20 23 20 69 6e 73 ashed.. # ins
15c0: 74 65 61 64 2e 20 41 6c 6c 20 70 61 72 65 6e 74 tead. All parent
15d0: 73 20 6f 66 20 74 68 65 20 6a 6f 69 6e 74 73 20 s of the joints
15e0: 61 72 65 20 6d 6f 76 65 64 20 74 6f 20 74 68 65 are moved to the
15f0: 0a 09 20 20 20 20 23 20 74 72 75 6e 6b 20 61 73 .. # trunk as
1600: 20 77 65 6c 6c 2e 0a 0a 09 20 20 20 20 73 65 74 well.... set
1610: 20 74 6a 6f 69 6e 74 20 24 6c 69 6e 6b 28 24 6a tjoint $link($j
1620: 6f 69 6e 74 29 0a 09 20 20 20 20 73 65 74 20 74 oint).. set t
1630: 6c 6f 64 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b lod [state one {
1640: 0a 09 09 53 45 4c 45 43 54 20 6c 6f 64 20 46 52 ...SELECT lod FR
1650: 4f 4d 20 72 65 76 69 73 69 6f 6e 20 57 48 45 52 OM revision WHER
1660: 45 20 72 69 64 20 3d 20 24 74 6a 6f 69 6e 74 0a E rid = $tjoint.
1670: 09 20 20 20 20 7d 5d 0a 0a 09 20 20 20 20 23 20 . }]... #
1680: 43 6f 76 6e 65 72 74 20 64 62 2f 70 61 72 65 6e Covnert db/paren
1690: 74 2f 63 68 69 6c 64 20 69 6e 74 6f 20 72 65 67 t/child into reg
16a0: 75 6c 61 72 20 70 61 72 65 6e 74 2f 63 68 69 6c ular parent/chil
16b0: 64 20 6c 69 6e 6b 73 2e 0a 09 20 20 20 20 73 74 d links... st
16c0: 61 74 65 20 72 75 6e 20 7b 0a 09 09 55 50 44 41 ate run {...UPDA
16d0: 54 45 20 72 65 76 69 73 69 6f 6e 20 53 45 54 20 TE revision SET
16e0: 64 62 70 61 72 65 6e 74 20 3d 20 4e 55 4c 4c 2c dbparent = NULL,
16f0: 20 70 61 72 65 6e 74 20 3d 20 24 6a 6f 69 6e 74 parent = $joint
1700: 20 20 57 48 45 52 45 20 72 69 64 20 3d 20 24 74 WHERE rid = $t
1710: 6a 6f 69 6e 74 20 3b 0a 09 09 55 50 44 41 54 45 joint ;...UPDATE
1720: 20 72 65 76 69 73 69 6f 6e 20 53 45 54 20 64 62 revision SET db
1730: 63 68 69 6c 64 20 20 3d 20 4e 55 4c 4c 2c 20 63 child = NULL, c
1740: 68 69 6c 64 20 20 3d 20 24 74 6a 6f 69 6e 74 20 hild = $tjoint
1750: 57 48 45 52 45 20 72 69 64 20 3d 20 24 6a 6f 69 WHERE rid = $joi
1760: 6e 74 20 20 3b 0a 09 20 20 20 20 7d 0a 09 20 20 nt ;.. }..
1770: 20 20 77 68 69 6c 65 20 7b 31 7d 20 7b 0a 09 09 while {1} {...
1780: 23 20 4d 6f 76 65 20 74 68 65 20 4e 54 44 42 20 # Move the NTDB
1790: 74 72 75 6e 6b 20 72 65 76 69 73 69 6f 6e 73 20 trunk revisions
17a0: 74 6f 20 74 72 75 6e 6b 2e 0a 09 09 73 74 61 74 to trunk....stat
17b0: 65 20 72 75 6e 20 7b 0a 09 09 20 20 20 20 55 50 e run {... UP
17c0: 44 41 54 45 20 72 65 76 69 73 69 6f 6e 20 53 45 DATE revision SE
17d0: 54 20 6c 6f 64 20 3d 20 24 74 6c 6f 64 2c 20 69 T lod = $tlod, i
17e0: 73 64 65 66 61 75 6c 74 20 3d 20 30 20 57 48 45 sdefault = 0 WHE
17f0: 52 45 20 72 69 64 20 3d 20 24 6a 6f 69 6e 74 0a RE rid = $joint.
1800: 09 09 7d 0a 09 09 73 65 74 20 6c 61 73 74 20 24 ..}...set last $
1810: 6a 6f 69 6e 74 0a 09 09 73 65 74 20 6a 6f 69 6e joint...set join
1820: 74 20 24 6e 74 64 62 28 24 6a 6f 69 6e 74 29 0a t $ntdb($joint).
1830: 09 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 ..if {![info exi
1840: 73 74 73 20 6e 74 64 62 28 24 6a 6f 69 6e 74 29 sts ntdb($joint)
1850: 5d 7d 20 62 72 65 61 6b 0a 09 20 20 20 20 7d 0a ]} break.. }.
1860: 0a 09 20 20 20 20 23 20 52 65 61 63 68 65 64 20 .. # Reached
1870: 74 68 65 20 4e 54 44 42 20 62 61 73 69 73 20 69 the NTDB basis i
1880: 6e 20 74 68 65 20 74 72 75 6e 6b 2e 20 46 69 6e n the trunk. Fin
1890: 61 6c 69 7a 65 20 74 68 65 0a 09 20 20 20 20 23 alize the.. #
18a0: 20 70 61 72 65 6e 74 2f 63 68 69 6c 64 20 6c 69 parent/child li
18b0: 6e 6b 61 67 65 20 61 6e 64 20 73 71 75 61 73 68 nkage and squash
18c0: 20 74 68 65 20 62 72 61 6e 63 68 20 70 61 72 65 the branch pare
18d0: 6e 74 20 73 79 6d 62 6f 6c 0a 09 20 20 20 20 23 nt symbol.. #
18e0: 20 72 65 66 65 72 65 6e 63 65 2e 0a 0a 09 20 20 reference....
18f0: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
1900: 55 50 44 41 54 45 20 72 65 76 69 73 69 6f 6e 20 UPDATE revision
1910: 53 45 54 20 63 68 69 6c 64 20 20 20 3d 20 24 6c SET child = $l
1920: 61 73 74 20 57 48 45 52 45 20 72 69 64 20 3d 20 ast WHERE rid =
1930: 24 6a 6f 69 6e 74 20 3b 0a 09 09 55 50 44 41 54 $joint ;...UPDAT
1940: 45 20 72 65 76 69 73 69 6f 6e 20 53 45 54 20 62 E revision SET b
1950: 70 61 72 65 6e 74 20 3d 20 4e 55 4c 4c 20 20 57 parent = NULL W
1960: 48 45 52 45 20 72 69 64 20 3d 20 24 6c 61 73 74 HERE rid = $last
1970: 20 20 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 ;.. }..}...
1980: 23 20 4e 6f 77 20 74 68 61 74 20 74 68 65 20 73 # Now that the s
1990: 70 65 63 69 61 6c 20 63 61 73 65 20 69 73 20 64 pecial case is d
19a0: 6f 6e 65 20 77 65 20 63 61 6e 20 73 69 6d 70 6c one we can simpl
19b0: 79 20 6b 69 6c 6c 20 61 6c 6c 20 74 68 65 0a 09 y kill all the..
19c0: 23 20 72 65 76 69 73 69 6f 6e 73 2c 20 74 61 67 # revisions, tag
19d0: 73 2c 20 61 6e 64 20 62 72 61 6e 63 68 65 73 20 s, and branches
19e0: 72 65 66 65 72 65 6e 63 69 6e 67 20 61 6e 79 20 referencing any
19f0: 6f 66 20 74 68 65 0a 09 23 20 65 78 63 6c 75 64 of the..# exclud
1a00: 65 64 20 73 79 6d 62 6f 6c 73 20 69 6e 20 73 6f ed symbols in so
1a10: 6d 65 20 77 61 79 2e 20 54 68 69 73 20 69 73 20 me way. This is
1a20: 65 61 73 79 20 61 73 20 77 65 20 64 6f 20 6e 6f easy as we do no
1a30: 74 20 68 61 76 65 0a 09 23 20 74 6f 20 73 65 6c t have..# to sel
1a40: 65 63 74 20 74 68 65 6d 20 61 67 61 69 6e 20 61 ect them again a
1a50: 6e 64 20 61 67 61 69 6e 20 66 72 6f 6d 20 74 68 nd again from th
1a60: 65 20 62 61 73 65 20 74 61 62 6c 65 73 20 61 6e e base tables an
1a70: 79 0a 09 23 20 6c 6f 6e 67 65 72 2e 0a 0a 09 73 y..# longer....s
1a80: 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 tate run {..
1a90: 43 52 45 41 54 45 20 54 45 4d 50 4f 52 41 52 59 CREATE TEMPORARY
1aa0: 20 54 41 42 4c 45 20 65 78 63 6c 75 64 65 64 72 TABLE excludedr
1ab0: 65 76 69 73 69 6f 6e 73 20 41 53 0a 09 20 20 20 evisions AS..
1ac0: 20 53 45 4c 45 43 54 20 72 69 64 20 46 52 4f 4d SELECT rid FROM
1ad0: 20 72 65 76 69 73 69 6f 6e 20 57 48 45 52 45 20 revision WHERE
1ae0: 6c 6f 64 20 49 4e 20 65 78 63 6c 75 64 65 64 73 lod IN excludeds
1af0: 79 6d 62 6f 6c 73 3b 0a 0a 09 20 20 20 20 44 45 ymbols;... DE
1b00: 4c 45 54 45 20 46 52 4f 4d 20 72 65 76 69 73 69 LETE FROM revisi
1b10: 6f 6e 20 57 48 45 52 45 20 6c 6f 64 20 49 4e 20 on WHERE lod IN
1b20: 65 78 63 6c 75 64 65 64 73 79 6d 62 6f 6c 73 3b excludedsymbols;
1b30: 0a 09 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f .. DELETE FRO
1b40: 4d 20 74 61 67 20 20 20 20 20 20 57 48 45 52 45 M tag WHERE
1b50: 20 6c 6f 64 20 49 4e 20 65 78 63 6c 75 64 65 64 lod IN excluded
1b60: 73 79 6d 62 6f 6c 73 3b 0a 09 20 20 20 20 44 45 symbols;.. DE
1b70: 4c 45 54 45 20 46 52 4f 4d 20 74 61 67 20 20 20 LETE FROM tag
1b80: 20 20 20 57 48 45 52 45 20 73 69 64 20 49 4e 20 WHERE sid IN
1b90: 65 78 63 6c 75 64 65 64 73 79 6d 62 6f 6c 73 3b excludedsymbols;
1ba0: 0a 09 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f .. DELETE FRO
1bb0: 4d 20 62 72 61 6e 63 68 20 20 20 57 48 45 52 45 M branch WHERE
1bc0: 20 6c 6f 64 20 49 4e 20 65 78 63 6c 75 64 65 64 lod IN excluded
1bd0: 73 79 6d 62 6f 6c 73 3b 0a 09 20 20 20 20 44 45 symbols;.. DE
1be0: 4c 45 54 45 20 46 52 4f 4d 20 62 72 61 6e 63 68 LETE FROM branch
1bf0: 20 20 20 57 48 45 52 45 20 73 69 64 20 49 4e 20 WHERE sid IN
1c00: 65 78 63 6c 75 64 65 64 73 79 6d 62 6f 6c 73 3b excludedsymbols;
1c10: 0a 0a 09 20 20 20 20 44 45 4c 45 54 45 20 46 52 ... DELETE FR
1c20: 4f 4d 20 72 65 76 69 73 69 6f 6e 62 72 61 6e 63 OM revisionbranc
1c30: 68 63 68 69 6c 64 72 65 6e 20 57 48 45 52 45 20 hchildren WHERE
1c40: 72 69 64 20 20 49 4e 20 65 78 63 6c 75 64 65 64 rid IN excluded
1c50: 72 65 76 69 73 69 6f 6e 73 3b 0a 09 20 20 20 20 revisions;..
1c60: 44 45 4c 45 54 45 20 46 52 4f 4d 20 72 65 76 69 DELETE FROM revi
1c70: 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c 64 72 sionbranchchildr
1c80: 65 6e 20 57 48 45 52 45 20 62 72 69 64 20 49 4e en WHERE brid IN
1c90: 20 65 78 63 6c 75 64 65 64 72 65 76 69 73 69 6f excludedrevisio
1ca0: 6e 73 3b 0a 0a 09 20 20 20 20 44 52 4f 50 20 54 ns;... DROP T
1cb0: 41 42 4c 45 20 65 78 63 6c 75 64 65 64 72 65 76 ABLE excludedrev
1cc0: 69 73 69 6f 6e 73 3b 0a 09 20 20 20 20 44 52 4f isions;.. DRO
1cd0: 50 20 54 41 42 4c 45 20 65 78 63 6c 75 64 65 64 P TABLE excluded
1ce0: 73 79 6d 62 6f 6c 73 3b 0a 09 7d 0a 09 72 65 74 symbols;..}..ret
1cf0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 urn. }.. p
1d00: 72 6f 63 20 4d 75 74 61 74 65 53 79 6d 62 6f 6c roc MutateSymbol
1d10: 73 20 7b 7d 20 7b 0a 09 23 20 4e 65 78 74 2c 20 s {} {..# Next,
1d20: 6e 6f 77 20 74 68 61 74 20 77 65 20 6b 6e 6f 77 now that we know
1d30: 20 77 68 69 63 68 20 73 79 6d 62 6f 6c 73 20 61 which symbols a
1d40: 72 65 20 77 68 61 74 20 77 65 20 6c 6f 6f 6b 20 re what we look
1d50: 66 6f 72 0a 09 23 20 66 69 6c 65 20 6c 65 76 65 for..# file leve
1d60: 6c 20 74 61 67 73 20 77 68 69 63 68 20 61 72 65 l tags which are
1d70: 20 61 63 74 75 61 6c 6c 79 20 63 6f 6e 76 65 72 actually conver
1d80: 74 65 64 20 61 73 20 62 72 61 6e 63 68 65 73 0a ted as branches.
1d90: 09 23 20 28 70 72 6f 6a 65 63 74 20 6c 65 76 65 .# (project leve
1da0: 6c 2c 20 61 6e 64 20 76 69 63 65 20 76 65 72 73 l, and vice vers
1db0: 61 29 2c 20 61 6e 64 20 6d 6f 76 65 20 74 68 65 a), and move the
1dc0: 6d 20 74 6f 20 74 68 65 0a 09 23 20 63 6f 72 72 m to the..# corr
1dd0: 65 63 74 20 74 61 62 6c 65 73 2e 0a 0a 09 23 20 ect tables....#
1de0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
1df0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
1e00: 23 23 23 23 23 0a 0a 09 6c 6f 67 20 77 72 69 74 #####...log writ
1e10: 65 20 33 20 66 69 6c 74 65 72 73 79 6d 20 22 4d e 3 filtersym "M
1e20: 75 74 61 74 65 20 73 79 6d 62 6f 6c 73 2c 20 70 utate symbols, p
1e30: 72 65 70 61 72 61 74 69 6f 6e 22 0a 0a 09 73 65 reparation"...se
1e40: 74 20 62 72 61 6e 63 68 20 5b 70 72 6f 6a 65 63 t branch [projec
1e50: 74 3a 3a 73 79 6d 20 62 72 61 6e 63 68 5d 0a 09 t::sym branch]..
1e60: 73 65 74 20 74 61 67 20 20 20 20 5b 70 72 6f 6a set tag [proj
1e70: 65 63 74 3a 3a 73 79 6d 20 74 61 67 5d 0a 0a 09 ect::sym tag]...
1e80: 73 65 74 20 74 61 67 73 74 6f 6d 75 74 61 74 65 set tagstomutate
1e90: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
1ea0: 20 20 20 53 45 4c 45 43 54 20 54 2e 74 69 64 2c SELECT T.tid,
1eb0: 20 54 2e 66 69 64 2c 20 54 2e 6c 6f 64 2c 20 54 T.fid, T.lod, T
1ec0: 2e 73 69 64 2c 20 54 2e 72 65 76 0a 09 20 20 20 .sid, T.rev..
1ed0: 20 46 52 4f 4d 20 74 61 67 20 54 2c 20 73 79 6d FROM tag T, sym
1ee0: 62 6f 6c 20 53 0a 09 20 20 20 20 57 48 45 52 45 bol S.. WHERE
1ef0: 20 54 2e 73 69 64 20 3d 20 53 2e 73 69 64 0a 09 T.sid = S.sid..
1f00: 20 20 20 20 41 4e 44 20 53 2e 74 79 70 65 20 3d AND S.type =
1f10: 20 24 62 72 61 6e 63 68 0a 09 7d 5d 0a 0a 09 73 $branch..}]...s
1f20: 65 74 20 62 72 61 6e 63 68 65 73 74 6f 6d 75 74 et branchestomut
1f30: 61 74 65 20 5b 73 74 61 74 65 20 72 75 6e 20 7b ate [state run {
1f40: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 .. SELECT B.b
1f50: 69 64 2c 20 42 2e 66 69 64 2c 20 42 2e 6c 6f 64 id, B.fid, B.lod
1f60: 2c 20 42 2e 73 69 64 2c 20 42 2e 72 6f 6f 74 2c , B.sid, B.root,
1f70: 20 42 2e 66 69 72 73 74 2c 20 42 2e 62 72 61 0a B.first, B.bra.
1f80: 09 20 20 20 20 46 52 4f 4d 20 62 72 61 6e 63 68 . FROM branch
1f90: 20 42 2c 20 73 79 6d 62 6f 6c 20 53 0a 09 20 20 B, symbol S..
1fa0: 20 20 57 48 45 52 45 20 42 2e 73 69 64 20 3d 20 WHERE B.sid =
1fb0: 53 2e 73 69 64 0a 09 20 20 20 20 41 4e 44 20 53 S.sid.. AND S
1fc0: 2e 74 79 70 65 20 3d 20 24 74 61 67 0a 09 7d 5d .type = $tag..}]
1fd0: 0a 0a 09 73 65 74 20 6e 74 20 5b 65 78 70 72 20 ...set nt [expr
1fe0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 74 61 67 73 74 {[llength $tagst
1ff0: 6f 6d 75 74 61 74 65 5d 2f 35 7d 5d 0a 09 73 65 omutate]/5}]..se
2000: 74 20 6e 62 20 5b 65 78 70 72 20 7b 5b 6c 6c 65 t nb [expr {[lle
2010: 6e 67 74 68 20 24 62 72 61 6e 63 68 65 73 74 6f ngth $branchesto
2020: 6d 75 74 61 74 65 5d 2f 37 7d 5d 0a 0a 09 6c 6f mutate]/7}]...lo
2030: 67 20 77 72 69 74 65 20 34 20 66 69 6c 74 65 72 g write 4 filter
2040: 73 79 6d 20 22 43 68 61 6e 67 69 6e 67 20 5b 6e sym "Changing [n
2050: 73 70 20 24 6e 74 20 74 61 67 5d 20 69 6e 74 6f sp $nt tag] into
2060: 20 20 5b 6e 73 70 20 24 6e 74 20 62 72 61 6e 63 [nsp $nt branc
2070: 68 20 62 72 61 6e 63 68 65 73 5d 22 0a 09 6c 6f h branches]"..lo
2080: 67 20 77 72 69 74 65 20 34 20 66 69 6c 74 65 72 g write 4 filter
2090: 73 79 6d 20 22 43 68 61 6e 67 69 6e 67 20 5b 6e sym "Changing [n
20a0: 73 70 20 24 6e 62 20 62 72 61 6e 63 68 20 62 72 sp $nb branch br
20b0: 61 6e 63 68 65 73 5d 20 69 6e 74 6f 20 20 5b 6e anches] into [n
20c0: 73 70 20 24 6e 62 20 74 61 67 5d 22 0a 0a 09 23 sp $nb tag]"...#
20d0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
20e0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
20f0: 23 23 23 23 23 23 0a 0a 09 6c 6f 67 20 77 72 69 ######...log wri
2100: 74 65 20 33 20 66 69 6c 74 65 72 73 79 6d 20 22 te 3 filtersym "
2110: 4d 75 74 61 74 65 20 74 61 67 73 20 74 6f 20 62 Mutate tags to b
2120: 72 61 6e 63 68 65 73 22 0a 0a 09 66 6f 72 65 61 ranches"...forea
2130: 63 68 20 7b 69 64 20 66 69 64 20 6c 6f 64 20 73 ch {id fid lod s
2140: 69 64 20 72 65 76 7d 20 24 74 61 67 73 74 6f 6d id rev} $tagstom
2150: 75 74 61 74 65 20 7b 0a 09 20 20 20 20 73 74 61 utate {.. sta
2160: 74 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 54 te run {...DELET
2170: 45 20 46 52 4f 4d 20 74 61 67 20 57 48 45 52 45 E FROM tag WHERE
2180: 20 74 69 64 20 3d 20 24 69 64 20 3b 0a 09 09 49 tid = $id ;...I
2190: 4e 53 45 52 54 20 49 4e 54 4f 20 62 72 61 6e 63 NSERT INTO branc
21a0: 68 20 28 62 69 64 2c 20 66 69 64 2c 20 20 6c 6f h (bid, fid, lo
21b0: 64 2c 20 20 73 69 64 2c 20 20 72 6f 6f 74 2c 20 d, sid, root,
21c0: 66 69 72 73 74 2c 20 62 72 61 2c 20 70 6f 73 29 first, bra, pos)
21d0: 0a 09 09 56 41 4c 55 45 53 20 20 20 20 20 20 20 ...VALUES
21e0: 20 20 20 20 20 20 28 24 69 64 2c 20 24 66 69 64 ($id, $fid
21f0: 2c 20 24 6c 6f 64 2c 20 24 73 69 64 2c 20 24 72 , $lod, $sid, $r
2200: 65 76 2c 20 4e 55 4c 4c 2c 20 20 27 27 2c 20 20 ev, NULL, '',
2210: 2d 31 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a -1);.. }..}..
2220: 09 6c 6f 67 20 77 72 69 74 65 20 33 20 66 69 6c .log write 3 fil
2230: 74 65 72 73 79 6d 20 22 4f 6b 2e 22 0a 0a 09 23 tersym "Ok."...#
2240: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
2250: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
2260: 23 23 23 23 23 23 0a 0a 09 6c 6f 67 20 77 72 69 ######...log wri
2270: 74 65 20 33 20 66 69 6c 74 65 72 73 79 6d 20 22 te 3 filtersym "
2280: 4d 75 74 61 74 65 20 62 72 61 6e 63 68 65 73 20 Mutate branches
2290: 74 6f 20 74 61 67 73 22 0a 0a 09 66 6f 72 65 61 to tags"...forea
22a0: 63 68 20 7b 69 64 20 66 69 64 20 6c 6f 64 20 73 ch {id fid lod s
22b0: 69 64 20 72 6f 6f 74 20 66 69 72 73 74 20 62 72 id root first br
22c0: 61 7d 20 24 62 72 61 6e 63 68 65 73 74 6f 6d 75 a} $branchestomu
22d0: 74 61 74 65 20 7b 0a 09 20 20 20 20 73 74 61 74 tate {.. stat
22e0: 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 54 45 e run {...DELETE
22f0: 20 46 52 4f 4d 20 62 72 61 6e 63 68 20 57 48 45 FROM branch WHE
2300: 52 45 20 62 69 64 20 3d 20 24 69 64 20 3b 0a 09 RE bid = $id ;..
2310: 09 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 61 67 .INSERT INTO tag
2320: 20 28 74 69 64 2c 20 66 69 64 2c 20 20 6c 6f 64 (tid, fid, lod
2330: 2c 20 20 73 69 64 2c 20 20 72 65 76 29 0a 09 09 , sid, rev)...
2340: 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 20 20 VALUES
2350: 28 24 69 64 2c 20 24 66 69 64 2c 20 24 6c 6f 64 ($id, $fid, $lod
2360: 2c 20 24 73 69 64 2c 20 24 72 6f 6f 74 29 3b 0a , $sid, $root);.
2370: 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 6c 6f 67 20 . }..}...log
2380: 77 72 69 74 65 20 33 20 66 69 6c 74 65 72 73 79 write 3 filtersy
2390: 6d 20 22 4f 6b 2e 22 0a 0a 09 23 20 23 20 23 23 m "Ok."...# # ##
23a0: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
23b0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
23c0: 23 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a #..return. }.
23d0: 0a 20 20 20 20 23 20 41 64 6a 75 73 74 20 74 68 . # Adjust th
23e0: 65 20 70 61 72 65 6e 74 73 20 6f 66 20 73 79 6d e parents of sym
23f0: 62 6f 6c 73 20 74 6f 20 74 68 65 69 72 20 70 72 bols to their pr
2400: 65 66 65 72 72 65 64 20 70 61 72 65 6e 74 73 2e eferred parents.
2410: 0a 0a 20 20 20 20 23 20 49 66 20 61 20 66 69 6c .. # If a fil
2420: 65 20 6c 65 76 65 6c 20 79 6d 62 6f 6c 20 68 61 e level ymbol ha
2430: 73 20 61 20 70 72 65 66 65 72 72 65 64 20 70 61 s a preferred pa
2440: 72 65 6e 74 20 74 68 61 74 20 69 73 20 64 69 66 rent that is dif
2450: 66 65 72 65 6e 74 0a 20 20 20 20 23 20 74 68 61 ferent. # tha
2460: 6e 20 69 74 73 20 63 75 72 72 65 6e 74 20 70 61 n its current pa
2470: 72 65 6e 74 2c 20 61 6e 64 20 69 66 20 74 68 65 rent, and if the
2480: 20 70 72 65 66 65 72 72 65 64 20 70 61 72 65 6e preferred paren
2490: 74 20 69 73 20 61 6e 0a 20 20 20 20 23 20 61 6c t is an. # al
24a0: 6c 6f 77 65 64 20 70 61 72 65 6e 74 20 6f 66 20 lowed parent of
24b0: 74 68 65 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 the symbol in th
24c0: 69 73 20 66 69 6c 65 2c 20 74 68 65 6e 20 77 65 is file, then we
24d0: 20 67 72 61 66 74 20 74 68 65 0a 20 20 20 20 23 graft the. #
24e0: 20 61 53 79 6d 62 6f 6c 20 6f 6e 74 6f 20 69 74 aSymbol onto it
24f0: 73 20 70 72 65 66 65 72 72 65 64 20 70 61 72 65 s preferred pare
2500: 6e 74 2e 0a 0a 20 20 20 20 70 72 6f 63 20 41 64 nt... proc Ad
2510: 6a 75 73 74 50 61 72 65 6e 74 73 20 7b 7d 20 7b justParents {} {
2520: 0a 09 6c 6f 67 20 77 72 69 74 65 20 33 20 66 69 ..log write 3 fi
2530: 6c 74 65 72 73 79 6d 20 22 41 64 6a 75 73 74 20 ltersym "Adjust
2540: 70 61 72 65 6e 74 73 2c 20 6c 6f 61 64 69 6e 67 parents, loading
2550: 20 64 61 74 61 20 69 6e 20 70 72 65 70 61 72 61 data in prepara
2560: 74 69 6f 6e 22 0a 0a 09 23 20 57 65 20 70 75 6c tion"...# We pul
2570: 6c 20 69 6d 70 6f 72 74 61 6e 74 20 6d 61 70 73 l important maps
2580: 20 6f 6e 63 65 20 69 6e 74 6f 20 6d 65 6d 6f 72 once into memor
2590: 79 20 73 6f 20 74 68 61 74 20 77 65 20 64 6f 20 y so that we do
25a0: 71 75 69 63 6b 0a 09 23 20 68 61 73 68 20 6c 6f quick..# hash lo
25b0: 6f 6b 75 70 20 6c 61 74 65 72 20 77 68 65 6e 20 okup later when
25c0: 70 72 6f 63 65 73 73 69 6e 67 20 74 68 65 20 67 processing the g
25d0: 72 61 66 74 20 63 61 6e 64 69 64 61 74 65 73 2e raft candidates.
25e0: 0a 0a 09 23 20 54 61 67 2f 42 72 61 6e 63 68 20 ...# Tag/Branch
25f0: 6e 61 6d 65 73 20 2e 2e 2e 0a 09 61 72 72 61 79 names .....array
2600: 20 73 65 74 20 73 6e 20 5b 73 74 61 74 65 20 72 set sn [state r
2610: 75 6e 20 7b 20 53 45 4c 45 43 54 20 54 2e 74 69 un { SELECT T.ti
2620: 64 2c 20 53 2e 6e 61 6d 65 20 46 52 4f 4d 20 74 d, S.name FROM t
2630: 61 67 20 54 2c 20 20 20 20 73 79 6d 62 6f 6c 20 ag T, symbol
2640: 53 20 57 48 45 52 45 20 54 2e 73 69 64 20 3d 20 S WHERE T.sid =
2650: 53 2e 73 69 64 20 7d 5d 0a 09 61 72 72 61 79 20 S.sid }]..array
2660: 73 65 74 20 73 6e 20 5b 73 74 61 74 65 20 72 75 set sn [state ru
2670: 6e 20 7b 20 53 45 4c 45 43 54 20 42 2e 62 69 64 n { SELECT B.bid
2680: 2c 20 53 2e 6e 61 6d 65 20 46 52 4f 4d 20 62 72 , S.name FROM br
2690: 61 6e 63 68 20 42 2c 20 73 79 6d 62 6f 6c 20 53 anch B, symbol S
26a0: 20 57 48 45 52 45 20 42 2e 73 69 64 20 3d 20 53 WHERE B.sid = S
26b0: 2e 73 69 64 20 7d 5d 0a 09 23 20 53 79 6d 62 6f .sid }]..# Symbo
26c0: 6c 20 6e 61 6d 65 73 20 2e 2e 2e 0a 09 61 72 72 l names .....arr
26d0: 61 79 20 73 65 74 20 73 78 20 5b 73 74 61 74 65 ay set sx [state
26e0: 20 72 75 6e 20 7b 20 53 45 4c 45 43 54 20 4c 2e run { SELECT L.
26f0: 73 69 64 2c 20 4c 2e 6e 61 6d 65 20 46 52 4f 4d sid, L.name FROM
2700: 20 73 79 6d 62 6f 6c 20 4c 20 7d 5d 0a 09 23 20 symbol L }]..#
2710: 46 69 6c 65 73 20 61 6e 64 20 70 72 6f 6a 65 63 Files and projec
2720: 74 73 2e 0a 09 61 72 72 61 79 20 73 65 74 20 66 ts...array set f
2730: 70 6e 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 7b pn {}..foreach {
2740: 69 64 20 66 6e 20 70 6e 7d 20 5b 73 74 61 74 65 id fn pn} [state
2750: 20 72 75 6e 20 7b 0a 09 09 53 45 4c 45 43 54 20 run {...SELECT
2760: 46 2e 66 69 64 2c 20 46 2e 6e 61 6d 65 2c 20 50 F.fid, F.name, P
2770: 2e 6e 61 6d 65 0a 09 09 46 52 4f 4d 20 20 20 66 .name...FROM f
2780: 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 ile F, project P
2790: 0a 09 09 57 48 45 52 45 20 20 46 2e 70 69 64 20 ...WHERE F.pid
27a0: 3d 20 50 2e 70 69 64 0a 09 7d 5d 20 7b 20 73 65 = P.pid..}] { se
27b0: 74 20 66 70 6e 28 24 69 64 29 20 5b 6c 69 73 74 t fpn($id) [list
27c0: 20 24 66 6e 20 24 70 6e 5d 20 7d 0a 0a 09 73 65 $fn $pn] }...se
27d0: 74 20 74 61 67 73 74 6f 61 64 6a 75 73 74 20 5b t tagstoadjust [
27e0: 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 state run {..
27f0: 20 53 45 4c 45 43 54 20 54 2e 74 69 64 2c 20 54 SELECT T.tid, T
2800: 2e 66 69 64 2c 20 54 2e 6c 6f 64 2c 20 50 2e 70 .fid, T.lod, P.p
2810: 69 64 2c 20 53 2e 6e 61 6d 65 2c 20 52 2e 72 65 id, S.name, R.re
2820: 76 2c 20 52 2e 72 69 64 0a 09 20 20 20 20 46 52 v, R.rid.. FR
2830: 4f 4d 20 74 61 67 20 54 2c 20 70 72 65 66 65 72 OM tag T, prefer
2840: 65 64 70 61 72 65 6e 74 20 50 2c 20 73 79 6d 62 edparent P, symb
2850: 6f 6c 20 53 2c 20 72 65 76 69 73 69 6f 6e 20 52 ol S, revision R
2860: 0a 09 20 20 20 20 57 48 45 52 45 20 54 2e 73 69 .. WHERE T.si
2870: 64 20 3d 20 50 2e 73 69 64 0a 09 20 20 20 20 41 d = P.sid.. A
2880: 4e 44 20 20 20 54 2e 6c 6f 64 20 21 3d 20 50 2e ND T.lod != P.
2890: 70 69 64 0a 09 20 20 20 20 41 4e 44 20 20 20 50 pid.. AND P
28a0: 2e 70 69 64 20 3d 20 53 2e 73 69 64 0a 09 20 20 .pid = S.sid..
28b0: 20 20 41 4e 44 20 20 20 53 2e 6e 61 6d 65 20 21 AND S.name !
28c0: 3d 20 27 3a 74 72 75 6e 6b 3a 27 0a 09 20 20 20 = ':trunk:'..
28d0: 20 41 4e 44 20 20 20 54 2e 72 65 76 20 3d 20 52 AND T.rev = R
28e0: 2e 72 69 64 0a 09 7d 5d 0a 0a 09 73 65 74 20 62 .rid..}]...set b
28f0: 72 61 6e 63 68 65 73 74 6f 61 64 6a 75 73 74 20 ranchestoadjust
2900: 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 [state run {..
2910: 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 SELECT B.bid,
2920: 42 2e 66 69 64 2c 20 42 2e 6c 6f 64 2c 20 42 2e B.fid, B.lod, B.
2930: 70 6f 73 2c 20 50 2e 70 69 64 2c 20 53 2e 6e 61 pos, P.pid, S.na
2940: 6d 65 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 0a 09 me, NULL, NULL..
2950: 20 20 20 20 46 52 4f 4d 20 62 72 61 6e 63 68 20 FROM branch
2960: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
2970: 74 20 50 2c 20 73 79 6d 62 6f 6c 20 53 0a 09 20 t P, symbol S..
2980: 20 20 20 57 48 45 52 45 20 42 2e 73 69 64 20 3d WHERE B.sid =
2990: 20 50 2e 73 69 64 0a 09 20 20 20 20 41 4e 44 20 P.sid.. AND
29a0: 20 20 42 2e 6c 6f 64 20 21 3d 20 50 2e 70 69 64 B.lod != P.pid
29b0: 0a 09 20 20 20 20 41 4e 44 20 20 20 50 2e 70 69 .. AND P.pi
29c0: 64 20 3d 20 53 2e 73 69 64 0a 09 20 20 20 20 41 d = S.sid.. A
29d0: 4e 44 20 20 20 53 2e 6e 61 6d 65 20 21 3d 20 27 ND S.name != '
29e0: 3a 74 72 75 6e 6b 3a 27 0a 09 20 20 20 20 41 4e :trunk:'.. AN
29f0: 44 20 20 20 42 2e 72 6f 6f 74 20 49 53 20 4e 55 D B.root IS NU
2a00: 4c 4c 20 2d 2d 20 41 63 63 65 70 74 20 66 72 65 LL -- Accept fre
2a10: 65 2d 66 6c 6f 61 74 69 6e 67 20 62 72 61 6e 63 e-floating branc
2a20: 68 0a 09 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 h.. UNION..
2a30: 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 SELECT B.bid,
2a40: 42 2e 66 69 64 2c 20 42 2e 6c 6f 64 2c 20 42 2e B.fid, B.lod, B.
2a50: 70 6f 73 2c 20 50 2e 70 69 64 2c 20 53 2e 6e 61 pos, P.pid, S.na
2a60: 6d 65 2c 20 52 2e 72 65 76 2c 20 52 2e 72 69 64 me, R.rev, R.rid
2a70: 0a 09 20 20 20 20 46 52 4f 4d 20 62 72 61 6e 63 .. FROM branc
2a80: 68 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 h B, preferedpar
2a90: 65 6e 74 20 50 2c 20 73 79 6d 62 6f 6c 20 53 2c ent P, symbol S,
2aa0: 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 revision R..
2ab0: 20 57 48 45 52 45 20 42 2e 73 69 64 20 3d 20 50 WHERE B.sid = P
2ac0: 2e 73 69 64 0a 09 20 20 20 20 41 4e 44 20 20 20 .sid.. AND
2ad0: 42 2e 6c 6f 64 20 21 3d 20 50 2e 70 69 64 0a 09 B.lod != P.pid..
2ae0: 20 20 20 20 41 4e 44 20 20 20 50 2e 70 69 64 20 AND P.pid
2af0: 3d 20 53 2e 73 69 64 0a 09 20 20 20 20 41 4e 44 = S.sid.. AND
2b00: 20 20 20 53 2e 6e 61 6d 65 20 21 3d 20 27 3a 74 S.name != ':t
2b10: 72 75 6e 6b 3a 27 0a 09 20 20 20 20 41 4e 44 20 runk:'.. AND
2b20: 20 20 42 2e 72 6f 6f 74 20 3d 20 52 2e 72 69 64 B.root = R.rid
2b30: 0a 09 7d 5d 0a 0a 09 73 65 74 20 74 6d 61 78 20 ..}]...set tmax
2b40: 5b 65 78 70 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 [expr {[llength
2b50: 24 74 61 67 73 74 6f 61 64 6a 75 73 74 5d 20 2f $tagstoadjust] /
2b60: 20 37 7d 5d 0a 09 73 65 74 20 62 6d 61 78 20 5b 7}]..set bmax [
2b70: 65 78 70 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 expr {[llength $
2b80: 62 72 61 6e 63 68 65 73 74 6f 61 64 6a 75 73 74 branchestoadjust
2b90: 5d 20 2f 20 38 7d 5d 0a 0a 09 6c 6f 67 20 77 72 ] / 8}]...log wr
2ba0: 69 74 65 20 34 20 66 69 6c 74 65 72 73 79 6d 20 ite 4 filtersym
2bb0: 22 52 65 70 61 72 65 6e 74 69 6e 67 20 61 74 20 "Reparenting at
2bc0: 6d 6f 73 74 20 5b 6e 73 70 20 24 74 6d 61 78 20 most [nsp $tmax
2bd0: 74 61 67 5d 22 0a 09 6c 6f 67 20 77 72 69 74 65 tag]"..log write
2be0: 20 34 20 66 69 6c 74 65 72 73 79 6d 20 22 52 65 4 filtersym "Re
2bf0: 70 61 72 65 6e 74 69 6e 67 20 61 74 20 6d 6f 73 parenting at mos
2c00: 74 20 5b 6e 73 70 20 24 62 6d 61 78 20 62 72 61 t [nsp $bmax bra
2c10: 6e 63 68 20 62 72 61 6e 63 68 65 73 5d 22 0a 0a nch branches]"..
2c20: 09 6c 6f 67 20 77 72 69 74 65 20 33 20 66 69 6c .log write 3 fil
2c30: 74 65 72 73 79 6d 20 22 41 64 6a 75 73 74 20 74 tersym "Adjust t
2c40: 61 67 20 70 61 72 65 6e 74 73 22 0a 0a 09 23 20 ag parents"...#
2c50: 46 69 6e 64 20 74 68 65 20 74 61 67 73 20 77 68 Find the tags wh
2c60: 6f 73 65 20 63 75 72 72 65 6e 74 20 70 61 72 65 ose current pare
2c70: 6e 74 20 28 6c 6f 64 29 20 69 73 20 6e 6f 74 20 nt (lod) is not
2c80: 74 68 65 20 70 72 65 66 65 72 65 64 0a 09 23 20 the prefered..#
2c90: 70 61 72 65 6e 74 2c 20 74 68 65 20 70 72 65 66 parent, the pref
2ca0: 65 72 65 64 20 70 61 72 65 6e 74 20 69 73 20 6e ered parent is n
2cb0: 6f 74 20 74 68 65 20 74 72 75 6e 6b 2c 20 61 6e ot the trunk, an
2cc0: 64 20 74 68 65 0a 09 23 20 70 72 65 66 65 72 65 d the..# prefere
2cd0: 64 20 70 61 72 65 6e 74 20 69 73 20 61 20 70 6f d parent is a po
2ce0: 73 73 69 62 6c 65 20 70 61 72 65 6e 74 20 70 65 ssible parent pe
2cf0: 72 20 74 68 65 20 74 61 67 27 73 20 72 65 76 69 r the tag's revi
2d00: 73 69 6f 6e 2e 0a 0a 09 73 65 74 20 66 6d 74 20 sion....set fmt
2d10: 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 %[string length
2d20: 24 74 6d 61 78 5d 73 0a 09 73 65 74 20 6d 78 73 $tmax]s..set mxs
2d30: 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 74 [format $fmt $t
2d40: 6d 61 78 5d 0a 0a 09 73 65 74 20 6e 20 30 0a 09 max]...set n 0..
2d50: 66 6f 72 65 61 63 68 20 7b 69 64 20 66 69 64 20 foreach {id fid
2d60: 6c 6f 64 20 70 69 64 20 70 72 65 66 65 72 65 64 lod pid prefered
2d70: 6e 61 6d 65 20 72 65 76 6e 72 20 72 69 64 7d 20 name revnr rid}
2d80: 24 74 61 67 73 74 6f 61 64 6a 75 73 74 20 7b 0a $tagstoadjust {.
2d90: 09 20 20 20 20 23 20 42 4f 54 54 4c 45 2d 4e 45 . # BOTTLE-NE
2da0: 43 4b 20 2e 2e 2e 0a 09 20 20 20 20 23 0a 09 20 CK ..... #..
2db0: 20 20 20 23 20 54 68 65 20 63 68 65 63 6b 20 69 # The check i
2dc0: 66 20 74 68 65 20 63 61 6e 64 69 64 61 74 65 20 f the candidate
2dd0: 28 70 69 64 29 20 69 73 20 74 72 75 6c 79 20 76 (pid) is truly v
2de0: 69 61 62 6c 65 20 69 73 0a 09 20 20 20 20 23 20 iable is.. #
2df0: 62 61 73 65 64 20 66 69 6e 64 69 6e 67 20 74 68 based finding th
2e00: 65 20 62 72 61 6e 63 68 20 61 73 20 70 6f 73 73 e branch as poss
2e10: 69 62 6c 65 20 70 61 72 65 6e 74 2c 20 61 6e 64 ible parent, and
2e20: 20 64 6f 6e 65 0a 09 20 20 20 20 23 20 6e 6f 77 done.. # now
2e30: 20 69 6e 73 74 65 61 64 20 6f 66 20 61 73 20 70 instead of as p
2e40: 61 72 74 20 6f 66 20 74 68 65 20 61 6c 72 65 61 art of the alrea
2e50: 64 79 20 63 6f 6d 70 6c 65 78 20 6a 6f 69 6e 2e dy complex join.
2e60: 0a 09 20 20 20 20 23 0a 09 20 20 20 20 23 20 2e .. #.. # .
2e70: 2e 2e 20 41 4e 44 20 50 2e 70 69 64 20 49 4e 20 .. AND P.pid IN
2e80: 28 53 45 4c 45 43 54 20 42 2e 73 69 64 0a 09 20 (SELECT B.sid..
2e90: 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 #
2ea0: 20 20 20 20 20 20 20 46 52 4f 4d 20 62 72 61 6e FROM bran
2eb0: 63 68 20 42 0a 09 20 20 20 20 23 20 20 20 20 20 ch B.. #
2ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 WH
2ed0: 45 52 45 20 42 2e 72 6f 6f 74 20 3d 20 52 2e 72 ERE B.root = R.r
2ee0: 69 64 29 0a 0a 09 20 20 20 20 69 66 20 7b 21 5b id)... if {![
2ef0: 73 74 61 74 65 20 6f 6e 65 20 7b 0a 09 09 53 45 state one {...SE
2f00: 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 0a 09 09 LECT COUNT(*)...
2f10: 46 52 4f 4d 20 62 72 61 6e 63 68 20 42 0a 09 09 FROM branch B...
2f20: 57 48 45 52 45 20 20 42 2e 73 69 64 20 20 3d 20 WHERE B.sid =
2f30: 24 70 69 64 0a 09 09 41 4e 44 20 20 20 20 42 2e $pid...AND B.
2f40: 72 6f 6f 74 20 3d 20 24 72 69 64 0a 09 20 20 20 root = $rid..
2f50: 20 7d 5d 7d 20 7b 0a 09 09 69 6e 63 72 20 74 6d }]} {...incr tm
2f60: 61 78 20 2d 31 0a 09 09 73 65 74 20 20 6d 78 73 ax -1...set mxs
2f70: 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 74 [format $fmt $t
2f80: 6d 61 78 5d 0a 09 09 63 6f 6e 74 69 6e 75 65 0a max]...continue.
2f90: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 0a 09 . }... #..
2fa0: 20 20 20 20 23 20 42 4f 54 54 4c 45 2d 4e 45 43 # BOTTLE-NEC
2fb0: 4b 20 2e 2e 2e 0a 0a 09 20 20 20 20 23 20 54 68 K ...... # Th
2fc0: 65 20 6e 61 6d 65 73 20 66 6f 72 20 75 73 65 20 e names for use
2fd0: 69 6e 20 74 68 65 20 6c 6f 67 20 6f 75 74 70 75 in the log outpu
2fe0: 74 20 61 72 65 20 72 65 74 72 69 65 76 65 64 0a t are retrieved.
2ff0: 09 20 20 20 20 23 20 73 65 70 61 72 61 74 65 6c . # separatel
3000: 79 2c 20 74 6f 20 6b 65 65 70 20 74 68 65 20 6a y, to keep the j
3010: 6f 69 6e 20 73 65 6c 65 63 74 69 6e 67 20 74 68 oin selecting th
3020: 65 20 61 64 6a 75 73 74 61 62 6c 65 0a 09 20 20 e adjustable..
3030: 20 20 23 20 74 61 67 73 20 73 6d 61 6c 6c 2c 20 # tags small,
3040: 6e 6f 74 20 62 75 72 64 65 6e 65 64 20 77 69 74 not burdened wit
3050: 68 20 74 68 65 20 64 65 72 65 66 65 72 65 6e 63 h the dereferenc
3060: 69 6e 67 20 6f 66 20 6c 69 6e 6b 73 0a 09 20 20 ing of links..
3070: 20 20 23 20 74 6f 20 6e 61 6d 65 2e 0a 0a 09 20 # to name....
3080: 20 20 20 73 65 74 20 74 61 67 6e 61 6d 65 20 24 set tagname $
3090: 73 6e 28 24 69 64 29 0a 09 20 20 20 20 73 65 74 sn($id).. set
30a0: 20 6f 6c 64 6e 61 6d 65 20 24 73 78 28 24 6c 6f oldname $sx($lo
30b0: 64 29 0a 09 20 20 20 20 73 74 72 75 63 74 3a 3a d).. struct::
30c0: 6c 69 73 74 20 61 73 73 69 67 6e 20 24 66 70 6e list assign $fpn
30d0: 28 24 66 69 64 29 20 66 6e 61 6d 65 20 70 72 6e ($fid) fname prn
30e0: 61 6d 65 0a 0a 09 20 20 20 20 23 20 44 6f 20 74 ame... # Do t
30f0: 68 65 20 67 72 61 66 74 69 6e 67 2e 0a 0a 09 20 he grafting....
3100: 20 20 20 6c 6f 67 20 77 72 69 74 65 20 34 20 66 log write 4 f
3110: 69 6c 74 65 72 73 79 6d 20 7b 5c 5b 5b 66 6f 72 iltersym {\[[for
3120: 6d 61 74 20 24 66 6d 74 20 24 6e 5d 2f 24 6d 78 mat $fmt $n]/$mx
3130: 73 5c 5d 20 24 70 72 6e 61 6d 65 20 3a 20 47 72 s\] $prname : Gr
3140: 61 66 74 69 6e 67 20 74 61 67 20 27 24 74 61 67 afting tag '$tag
3150: 6e 61 6d 65 27 20 6f 6e 20 24 66 6e 61 6d 65 2f name' on $fname/
3160: 24 72 65 76 6e 72 20 66 72 6f 6d 20 27 24 6f 6c $revnr from '$ol
3170: 64 6e 61 6d 65 27 20 6f 6e 74 6f 20 27 24 70 72 dname' onto '$pr
3180: 65 66 65 72 65 64 6e 61 6d 65 27 7d 0a 09 20 20 eferedname'}..
3190: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 20 55 50 state run { UP
31a0: 44 41 54 45 20 74 61 67 20 53 45 54 20 6c 6f 64 DATE tag SET lod
31b0: 20 3d 20 24 70 69 64 20 57 48 45 52 45 20 74 69 = $pid WHERE ti
31c0: 64 20 3d 20 24 69 64 20 7d 0a 09 20 20 20 20 69 d = $id }.. i
31d0: 6e 63 72 20 6e 0a 09 7d 0a 0a 09 6c 6f 67 20 77 ncr n..}...log w
31e0: 72 69 74 65 20 33 20 66 69 6c 74 65 72 73 79 6d rite 3 filtersym
31f0: 20 22 52 65 70 61 72 65 6e 74 65 64 20 5b 6e 73 "Reparented [ns
3200: 70 20 24 6e 20 74 61 67 5d 22 0a 0a 09 6c 6f 67 p $n tag]"...log
3210: 20 77 72 69 74 65 20 33 20 66 69 6c 74 65 72 73 write 3 filters
3220: 79 6d 20 22 41 64 6a 75 73 74 20 62 72 61 6e 63 ym "Adjust branc
3230: 68 20 70 61 72 65 6e 74 73 22 0a 0a 09 23 20 46 h parents"...# F
3240: 69 6e 64 20 74 68 65 20 62 72 61 6e 63 68 65 73 ind the branches
3250: 20 77 68 6f 73 65 20 63 75 72 72 65 6e 74 20 70 whose current p
3260: 61 72 65 6e 74 20 28 6c 6f 64 29 20 69 73 20 6e arent (lod) is n
3270: 6f 74 20 74 68 65 0a 09 23 20 70 72 65 66 65 72 ot the..# prefer
3280: 65 64 20 70 61 72 65 6e 74 2c 20 74 68 65 20 70 ed parent, the p
3290: 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 20 69 refered parent i
32a0: 73 20 6e 6f 74 20 74 68 65 20 74 72 75 6e 6b 2c s not the trunk,
32b0: 20 61 6e 64 0a 09 23 20 74 68 65 20 70 72 65 66 and..# the pref
32c0: 65 72 65 64 20 70 61 72 65 6e 74 20 69 73 20 61 ered parent is a
32d0: 20 70 6f 73 73 69 62 6c 65 20 70 61 72 65 6e 74 possible parent
32e0: 20 70 65 72 20 74 68 65 20 62 72 61 6e 63 68 27 per the branch'
32f0: 73 0a 09 23 20 72 65 76 69 73 69 6f 6e 2e 0a 0a s..# revision...
3300: 09 73 65 74 20 66 6d 74 20 25 5b 73 74 72 69 6e .set fmt %[strin
3310: 67 20 6c 65 6e 67 74 68 20 24 62 6d 61 78 5d 73 g length $bmax]s
3320: 0a 09 73 65 74 20 6d 78 73 20 5b 66 6f 72 6d 61 ..set mxs [forma
3330: 74 20 24 66 6d 74 20 24 62 6d 61 78 5d 0a 0a 09 t $fmt $bmax]...
3340: 73 65 74 20 6e 20 30 0a 09 66 6f 72 65 61 63 68 set n 0..foreach
3350: 20 7b 69 64 20 66 69 64 20 6c 6f 64 20 70 6f 73 {id fid lod pos
3360: 20 70 69 64 20 70 72 65 66 65 72 65 64 6e 61 6d pid preferednam
3370: 65 20 72 65 76 6e 72 20 72 69 64 7d 20 24 62 72 e revnr rid} $br
3380: 61 6e 63 68 65 73 74 6f 61 64 6a 75 73 74 20 7b anchestoadjust {
3390: 0a 0a 09 20 20 20 20 23 20 42 4f 54 54 4c 45 2d ... # BOTTLE-
33a0: 4e 45 43 4b 20 2e 2e 2e 0a 09 20 20 20 20 23 0a NECK ..... #.
33b0: 09 20 20 20 20 23 20 54 68 65 20 63 68 65 63 6b . # The check
33c0: 20 69 66 20 74 68 65 20 63 61 6e 64 69 64 61 74 if the candidat
33d0: 65 20 28 70 69 64 29 20 69 73 20 74 72 75 6c 79 e (pid) is truly
33e0: 20 76 69 61 62 6c 65 20 69 73 0a 09 20 20 20 20 viable is..
33f0: 23 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 62 # based on the b
3400: 72 61 6e 63 68 20 70 6f 73 69 74 69 6f 6e 73 20 ranch positions
3410: 69 6e 20 74 68 65 20 73 70 61 77 6e 69 6e 67 20 in the spawning
3420: 72 65 76 69 73 69 6f 6e 2c 0a 09 20 20 20 20 23 revision,.. #
3430: 20 61 6e 64 20 64 6f 6e 65 20 6e 6f 77 20 69 6e and done now in
3440: 73 74 65 61 64 20 6f 66 20 61 73 20 70 61 72 74 stead of as part
3450: 20 6f 66 20 74 68 65 20 61 6c 72 65 61 64 79 20 of the already
3460: 63 6f 6d 70 6c 65 78 0a 09 20 20 20 20 23 20 6a complex.. # j
3470: 6f 69 6e 2e 0a 09 20 20 20 20 23 0a 09 20 20 20 oin... #..
3480: 20 23 20 2e 2e 2e 20 41 4e 44 20 50 2e 70 69 64 # ... AND P.pid
3490: 20 49 4e 20 28 53 45 4c 45 43 54 20 42 58 2e 73 IN (SELECT BX.s
34a0: 69 64 0a 09 20 20 20 20 23 20 20 20 20 20 20 20 id.. #
34b0: 20 20 20 20 20 20 20 20 20 20 20 20 46 52 4f 4d FROM
34c0: 20 62 72 61 6e 63 68 20 42 58 0a 09 20 20 20 20 branch BX..
34d0: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
34e0: 20 20 20 20 57 48 45 52 45 20 42 58 2e 72 6f 6f WHERE BX.roo
34f0: 74 20 3d 20 52 2e 72 69 64 0a 09 20 20 20 20 23 t = R.rid.. #
3500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3510: 20 20 20 41 4e 44 20 20 20 42 58 2e 70 6f 73 20 AND BX.pos
3520: 3e 20 42 2e 70 6f 73 29 0a 0a 09 20 20 20 20 23 > B.pos)... #
3530: 20 4e 6f 74 65 3a 20 72 69 64 20 65 71 20 22 22 Note: rid eq ""
3540: 20 68 65 61 72 20 6d 65 61 6e 73 20 74 68 61 74 hear means that
3550: 20 74 68 69 73 20 69 73 20 61 20 66 72 65 65 2d this is a free-
3560: 66 6c 6f 61 74 69 6e 67 0a 09 20 20 20 20 23 20 floating.. #
3570: 62 72 61 6e 63 68 2c 20 77 68 6f 73 65 20 6f 72 branch, whose or
3580: 69 67 69 6e 61 6c 20 72 6f 6f 74 20 77 61 73 20 iginal root was
3590: 72 65 6d 6f 76 65 64 20 61 73 20 61 20 75 6e 6e removed as a unn
35a0: 65 63 65 73 73 61 72 79 0a 09 20 20 20 20 23 20 ecessary.. #
35b0: 64 65 61 64 20 72 65 76 69 73 69 6f 6e 20 28 53 dead revision (S
35c0: 65 65 20 27 66 69 6c 65 3a 3a 52 65 6d 6f 76 65 ee 'file::Remove
35d0: 49 72 72 65 6c 65 76 61 6e 74 44 65 6c 65 74 69 IrrelevantDeleti
35e0: 6f 6e 73 27 29 2e 0a 09 20 20 20 20 23 20 53 75 ons')... # Su
35f0: 63 68 20 61 20 62 72 61 6e 63 68 20 63 61 6e 20 ch a branch can
3600: 62 65 20 72 65 67 72 61 66 74 65 64 20 77 69 74 be regrafted wit
3610: 68 6f 75 74 20 74 72 6f 75 62 6c 65 20 61 6e 64 hout trouble and
3620: 20 74 68 65 72 65 0a 09 20 20 20 20 23 20 69 73 there.. # is
3630: 20 6e 6f 20 6e 65 65 64 20 74 6f 20 6c 6f 6f 6b no need to look
3640: 20 66 6f 72 20 74 68 65 20 6e 65 77 20 70 61 72 for the new par
3650: 65 6e 74 20 69 6e 20 69 74 73 0a 09 20 20 20 20 ent in its..
3660: 23 20 6e 6f 6e 2d 65 78 69 73 74 65 6e 74 20 72 # non-existent r
3670: 6f 6f 74 2e 0a 0a 09 20 20 20 20 69 66 20 7b 28 oot.... if {(
3680: 24 72 69 64 20 6e 65 20 22 22 29 20 26 26 20 21 $rid ne "") && !
3690: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 0a 09 09 53 [state one {...S
36a0: 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 0a 09 ELECT COUNT(*)..
36b0: 09 46 52 4f 4d 20 62 72 61 6e 63 68 20 42 0a 09 .FROM branch B..
36c0: 09 57 48 45 52 45 20 20 42 2e 73 69 64 20 20 3d .WHERE B.sid =
36d0: 20 24 70 69 64 0a 09 09 41 4e 44 20 20 20 20 42 $pid...AND B
36e0: 2e 72 6f 6f 74 20 3d 20 24 72 69 64 0a 09 09 41 .root = $rid...A
36f0: 4e 44 20 20 20 20 42 2e 70 6f 73 20 20 3e 20 24 ND B.pos > $
3700: 70 6f 73 0a 09 20 20 20 20 7d 5d 7d 20 7b 0a 09 pos.. }]} {..
3710: 09 69 6e 63 72 20 62 6d 61 78 20 2d 31 0a 09 09 .incr bmax -1...
3720: 73 65 74 20 20 6d 78 73 20 5b 66 6f 72 6d 61 74 set mxs [format
3730: 20 24 66 6d 74 20 24 62 6d 61 78 5d 0a 09 09 63 $fmt $bmax]...c
3740: 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 7d 0a 0a ontinue.. }..
3750: 09 20 20 20 20 23 0a 09 20 20 20 20 23 20 42 4f . #.. # BO
3760: 54 54 4c 45 2d 4e 45 43 4b 20 2e 2e 2e 0a 0a 09 TTLE-NECK ......
3770: 20 20 20 20 23 20 54 68 65 20 6e 61 6d 65 73 20 # The names
3780: 66 6f 72 20 75 73 65 20 69 6e 20 74 68 65 20 6c for use in the l
3790: 6f 67 20 6f 75 74 70 75 74 20 61 72 65 20 72 65 og output are re
37a0: 74 72 69 65 76 65 64 0a 09 20 20 20 20 23 20 73 trieved.. # s
37b0: 65 70 61 72 61 74 65 6c 79 2c 20 74 6f 20 6b 65 eparately, to ke
37c0: 65 70 20 74 68 65 20 6a 6f 69 6e 20 73 65 6c 65 ep the join sele
37d0: 63 74 69 6e 67 20 74 68 65 20 61 64 6a 75 73 74 cting the adjust
37e0: 61 62 6c 65 0a 09 20 20 20 20 23 20 74 61 67 73 able.. # tags
37f0: 20 73 6d 61 6c 6c 2c 20 6e 6f 74 20 62 75 72 64 small, not burd
3800: 65 6e 65 64 20 77 69 74 68 20 74 68 65 20 64 65 ened with the de
3810: 72 65 66 65 72 65 6e 63 69 6e 67 20 6f 66 20 6c referencing of l
3820: 69 6e 6b 73 0a 09 20 20 20 20 23 20 74 6f 20 6e inks.. # to n
3830: 61 6d 65 2e 0a 0a 09 20 20 20 20 73 65 74 20 62 ame.... set b
3840: 72 61 6e 61 6d 65 20 24 73 6e 28 24 69 64 29 0a raname $sn($id).
3850: 09 20 20 20 20 73 65 74 20 6f 6c 64 6e 61 6d 65 . set oldname
3860: 20 24 73 78 28 24 6c 6f 64 29 0a 09 20 20 20 20 $sx($lod)..
3870: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 struct::list ass
3880: 69 67 6e 20 24 66 70 6e 28 24 66 69 64 29 20 66 ign $fpn($fid) f
3890: 6e 61 6d 65 20 70 72 6e 61 6d 65 0a 0a 09 20 20 name prname...
38a0: 20 20 23 20 44 6f 20 74 68 65 20 67 72 61 66 74 # Do the graft
38b0: 69 6e 67 2e 0a 0a 09 20 20 20 20 6c 6f 67 20 77 ing.... log w
38c0: 72 69 74 65 20 34 20 66 69 6c 74 65 72 73 79 6d rite 4 filtersym
38d0: 20 7b 5c 5b 5b 66 6f 72 6d 61 74 20 24 66 6d 74 {\[[format $fmt
38e0: 20 24 6e 5d 2f 24 6d 78 73 5c 5d 20 24 70 72 6e $n]/$mxs\] $prn
38f0: 61 6d 65 20 3a 20 47 72 61 66 74 69 6e 67 20 62 ame : Grafting b
3900: 72 61 6e 63 68 20 27 24 62 72 61 6e 61 6d 65 27 ranch '$braname'
3910: 20 6f 6e 20 24 66 6e 61 6d 65 2f 24 72 65 76 6e on $fname/$revn
3920: 72 20 66 72 6f 6d 20 27 24 6f 6c 64 6e 61 6d 65 r from '$oldname
3930: 27 20 6f 6e 74 6f 20 27 24 70 72 65 66 65 72 65 ' onto '$prefere
3940: 64 6e 61 6d 65 27 7d 0a 09 20 20 20 20 73 74 61 dname'}.. sta
3950: 74 65 20 72 75 6e 20 7b 20 55 50 44 41 54 45 20 te run { UPDATE
3960: 62 72 61 6e 63 68 20 53 45 54 20 6c 6f 64 20 3d branch SET lod =
3970: 20 24 70 69 64 20 57 48 45 52 45 20 62 69 64 20 $pid WHERE bid
3980: 3d 20 24 69 64 20 7d 0a 09 20 20 20 20 69 6e 63 = $id }.. inc
3990: 72 20 6e 0a 09 7d 0a 0a 09 6c 6f 67 20 77 72 69 r n..}...log wri
39a0: 74 65 20 33 20 66 69 6c 74 65 72 73 79 6d 20 22 te 3 filtersym "
39b0: 52 65 70 61 72 65 6e 74 65 64 20 5b 6e 73 70 20 Reparented [nsp
39c0: 24 6e 20 62 72 61 6e 63 68 20 62 72 61 6e 63 68 $n branch branch
39d0: 65 73 5d 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 es]"..return.
39e0: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 52 65 66 }.. proc Ref
39f0: 69 6e 65 53 79 6d 62 6f 6c 73 20 7b 7d 20 7b 0a ineSymbols {} {.
3a00: 09 23 20 54 61 67 73 20 61 6e 64 20 62 72 61 6e .# Tags and bran
3a10: 63 68 65 73 20 61 72 65 20 6d 61 72 6b 65 64 20 ches are marked
3a20: 61 73 20 6e 6f 72 6d 61 6c 2f 6e 6f 6f 70 20 62 as normal/noop b
3a30: 61 73 65 64 20 6f 6e 20 74 68 65 20 6f 70 0a 09 ased on the op..
3a40: 23 20 6f 66 20 74 68 65 69 72 20 72 65 76 69 73 # of their revis
3a50: 69 6f 6e 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 ion....log write
3a60: 20 33 20 66 69 6c 74 65 72 73 79 6d 20 22 52 65 3 filtersym "Re
3a70: 66 69 6e 65 20 73 79 6d 62 6f 6c 73 20 28 6e 6f fine symbols (no
3a80: 2d 6f 70 20 6f 72 20 6e 6f 74 3f 29 22 0a 0a 09 -op or not?)"...
3a90: 6c 6f 67 20 77 72 69 74 65 20 34 20 66 69 6c 74 log write 4 filt
3aa0: 65 72 73 79 6d 20 22 20 20 20 20 52 65 67 75 6c ersym " Regul
3ab0: 61 72 20 74 61 67 73 22 0a 09 73 74 61 74 65 20 ar tags"..state
3ac0: 72 75 6e 20 7b 0a 09 20 20 20 20 49 4e 53 45 52 run {.. INSER
3ad0: 54 20 49 4e 54 4f 20 6e 6f 6f 70 0a 09 20 20 20 T INTO noop..
3ae0: 20 53 45 4c 45 43 54 20 54 2e 74 69 64 2c 20 30 SELECT T.tid, 0
3af0: 0a 09 20 20 20 20 46 52 4f 4d 20 74 61 67 20 54 .. FROM tag T
3b00: 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 , revision R..
3b10: 20 20 57 48 45 52 45 20 54 2e 72 65 76 20 20 3d WHERE T.rev =
3b20: 20 52 2e 72 69 64 0a 09 20 20 20 20 41 4e 44 20 R.rid.. AND
3b30: 20 20 52 2e 6f 70 20 20 21 3d 20 30 20 2d 2d 20 R.op != 0 --
3b40: 30 20 3d 3d 20 6e 6f 74 68 69 6e 67 0a 09 7d 0a 0 == nothing..}.
3b50: 0a 09 6c 6f 67 20 77 72 69 74 65 20 34 20 66 69 ..log write 4 fi
3b60: 6c 74 65 72 73 79 6d 20 22 20 20 20 20 4e 6f 2d ltersym " No-
3b70: 6f 70 20 74 61 67 73 22 0a 09 73 74 61 74 65 20 op tags"..state
3b80: 72 75 6e 20 7b 0a 09 20 20 20 20 49 4e 53 45 52 run {.. INSER
3b90: 54 20 49 4e 54 4f 20 6e 6f 6f 70 0a 09 20 20 20 T INTO noop..
3ba0: 20 53 45 4c 45 43 54 20 54 2e 74 69 64 2c 20 31 SELECT T.tid, 1
3bb0: 0a 09 20 20 20 20 46 52 4f 4d 20 74 61 67 20 54 .. FROM tag T
3bc0: 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 , revision R..
3bd0: 20 20 57 48 45 52 45 20 54 2e 72 65 76 20 20 3d WHERE T.rev =
3be0: 20 52 2e 72 69 64 0a 09 20 20 20 20 41 4e 44 20 R.rid.. AND
3bf0: 20 20 52 2e 6f 70 20 20 20 3d 20 30 20 2d 2d 20 R.op = 0 --
3c00: 6e 6f 74 68 69 6e 67 0a 09 7d 0a 0a 09 6c 6f 67 nothing..}...log
3c10: 20 77 72 69 74 65 20 34 20 66 69 6c 74 65 72 73 write 4 filters
3c20: 79 6d 20 22 20 20 20 20 52 65 67 75 6c 61 72 20 ym " Regular
3c30: 62 72 61 6e 63 68 65 73 22 0a 09 73 74 61 74 65 branches"..state
3c40: 20 72 75 6e 20 7b 0a 09 20 20 20 20 49 4e 53 45 run {.. INSE
3c50: 52 54 20 49 4e 54 4f 20 6e 6f 6f 70 0a 09 20 20 RT INTO noop..
3c60: 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 SELECT B.bid,
3c70: 30 0a 09 20 20 20 20 46 52 4f 4d 20 62 72 61 6e 0.. FROM bran
3c80: 63 68 20 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 ch B, revision R
3c90: 0a 09 20 20 20 20 57 48 45 52 45 20 42 2e 72 6f .. WHERE B.ro
3ca0: 6f 74 20 3d 20 52 2e 72 69 64 0a 09 20 20 20 20 ot = R.rid..
3cb0: 41 4e 44 20 20 20 52 2e 6f 70 20 20 21 3d 20 30 AND R.op != 0
3cc0: 20 2d 2d 20 6e 6f 74 68 69 6e 67 0a 09 7d 0a 0a -- nothing..}..
3cd0: 09 6c 6f 67 20 77 72 69 74 65 20 34 20 66 69 6c .log write 4 fil
3ce0: 74 65 72 73 79 6d 20 22 20 20 20 20 4e 6f 2d 6f tersym " No-o
3cf0: 70 20 62 72 61 6e 63 68 65 73 22 0a 09 73 74 61 p branches"..sta
3d00: 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 49 4e te run {.. IN
3d10: 53 45 52 54 20 49 4e 54 4f 20 6e 6f 6f 70 0a 09 SERT INTO noop..
3d20: 20 20 20 20 53 45 4c 45 43 54 20 42 2e 62 69 64 SELECT B.bid
3d30: 2c 20 31 0a 09 20 20 20 20 46 52 4f 4d 20 62 72 , 1.. FROM br
3d40: 61 6e 63 68 20 42 2c 20 72 65 76 69 73 69 6f 6e anch B, revision
3d50: 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 42 2e R.. WHERE B.
3d60: 72 6f 6f 74 20 3d 20 52 2e 72 69 64 0a 09 20 20 root = R.rid..
3d70: 20 20 41 4e 44 20 20 20 52 2e 6f 70 20 20 20 3d AND R.op =
3d80: 20 30 20 2d 2d 20 6e 6f 74 68 69 6e 67 0a 09 7d 0 -- nothing..}
3d90: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
3da0: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
3db0: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
3dc0: 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 ###########.
3dd0: 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e ## Configuration
3de0: 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 .. pragma -ha
3df0: 73 69 6e 73 74 61 6e 63 65 73 20 20 20 6e 6f 20 sinstances no
3e00: 3b 20 23 20 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 ; # singleton.
3e10: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 pragma -hastyp
3e20: 65 69 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 23 20 einfo no ; #
3e30: 6e 6f 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e no introspection
3e40: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 . pragma -has
3e50: 74 79 70 65 64 65 73 74 72 6f 79 20 6e 6f 20 3b typedestroy no ;
3e60: 20 23 20 69 6d 6d 6f 72 74 61 6c 0a 0a 20 20 20 # immortal..
3e70: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
3e80: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
3e90: 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 ########.}..name
3ea0: 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a space eval ::vc:
3eb0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
3ec0: 3a 63 76 73 3a 3a 70 61 73 73 20 7b 0a 20 20 20 :cvs::pass {.
3ed0: 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 namespace expor
3ee0: 74 20 66 69 6c 74 65 72 73 79 6d 0a 20 20 20 20 t filtersym.
3ef0: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 66 namespace eval f
3f00: 69 6c 74 65 72 73 79 6d 20 7b 0a 09 6e 61 6d 65 iltersym {..name
3f10: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
3f20: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
3f30: 74 3a 3a 63 76 73 3a 3a 72 65 70 6f 73 69 74 6f t::cvs::reposito
3f40: 72 79 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d ry..namespace im
3f50: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
3f60: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
3f70: 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 state..namespace
3f80: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
3f90: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
3fa0: 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 s::integrity..na
3fb0: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 70 72 6f mespace eval pro
3fc0: 6a 65 63 74 20 7b 0a 09 20 20 20 20 6e 61 6d 65 ject {.. name
3fd0: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
3fe0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
3ff0: 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a t::cvs::project:
4000: 3a 73 79 6d 0a 09 7d 0a 09 6e 61 6d 65 73 70 61 :sym..}..namespa
4010: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
4020: 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 6e 73 70 tools::misc::nsp
4030: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
4040: 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a rt ::vc::tools::
4050: 6c 6f 67 0a 09 6c 6f 67 20 72 65 67 69 73 74 65 log..log registe
4060: 72 20 66 69 6c 74 65 72 73 79 6d 0a 20 20 20 20 r filtersym.
4070: 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 20 }.}..# # ## ###
4080: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
4090: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
40a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
40b0: 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 61 63 ##.## Ready..pac
40c0: 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 3a kage provide vc:
40d0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
40e0: 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 66 69 6c 74 :cvs::pass::filt
40f0: 65 72 73 79 6d 20 31 2e 30 0a 72 65 74 75 72 6e ersym 1.0.return
4100: 0a .