Artifact 6b46b59edbfa02370976c02e8e128db8eebdb3ae:
File
tools/cvs2fossil/lib/c2f_fsym.tcl
part of check-in
[79c227a9c0]
- Bugfix. Handle free-floating branches (their root revision was removed as unnecessary).
by
aku on
2007-12-01 18:36:26.
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 53 79 6d ########..## Sym
0200: 62 6f 6c 73 20 28 54 61 67 73 2c 20 42 72 61 6e bols (Tags, Bran
0210: 63 68 65 73 29 20 70 65 72 20 66 69 6c 65 2e 0a ches) per file..
0220: 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 .# # ## ### ####
0230: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
0240: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 ##############.#
0260: 23 20 52 65 71 75 69 72 65 6d 65 6e 74 73 0a 0a # Requirements..
0270: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0280: 54 63 6c 20 38 2e 34 20 20 20 20 20 20 20 20 20 Tcl 8.4
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02a0: 20 20 20 20 3b 20 23 20 52 65 71 75 69 72 65 64 ; # Required
02b0: 20 72 75 6e 74 69 6d 65 2e 0a 70 61 63 6b 61 67 runtime..packag
02c0: 65 20 72 65 71 75 69 72 65 20 73 6e 69 74 20 20 e require snit
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
02f0: 23 20 4f 4f 20 73 79 73 74 65 6d 2e 0a 70 61 63 # OO system..pac
0300: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
0310: 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 :tools::trouble
0320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0330: 20 3b 20 23 20 45 72 72 6f 72 20 72 65 70 6f 72 ; # Error repor
0340: 74 69 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 ting..package re
0350: 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c quire vc::fossil
0360: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 ::import::cvs::f
0370: 69 6c 65 3a 3a 72 65 76 20 20 3b 20 23 20 43 56 ile::rev ; # CV
0380: 53 20 70 65 72 20 66 69 6c 65 20 72 65 76 69 73 S per file revis
0390: 69 6f 6e 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 ions..package re
03a0: 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c quire vc::fossil
03b0: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 ::import::cvs::s
03c0: 74 61 74 65 20 20 20 20 20 20 3b 20 23 20 53 74 tate ; # St
03d0: 61 74 65 20 73 74 6f 72 61 67 65 2e 0a 70 61 63 ate storage..pac
03e0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
03f0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
0400: 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 20 :cvs::integrity
0410: 20 3b 20 23 20 53 74 61 74 65 20 69 6e 74 65 67 ; # State integ
0420: 72 69 74 79 20 63 68 65 63 6b 73 2e 0a 0a 23 20 rity checks...#
0430: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
0440: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
0450: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
0460: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 0a 0a ###########.##..
0470: 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a snit::type ::vc:
0480: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
0490: 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 73 79 6d 20 :cvs::file::sym
04a0: 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 {. # # ## ###
04b0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
04c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
04d0: 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 0a ## Public API.
04e0: 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f 72 . constructor
04f0: 20 7b 73 79 6d 74 79 70 65 20 6e 72 20 73 79 6d {symtype nr sym
0500: 62 6f 6c 20 66 69 6c 65 7d 20 7b 0a 09 73 65 74 bol file} {..set
0510: 20 6d 79 66 69 6c 65 20 20 20 24 66 69 6c 65 0a myfile $file.
0520: 09 73 65 74 20 6d 79 74 79 70 65 20 20 20 24 73 .set mytype $s
0530: 79 6d 74 79 70 65 0a 09 73 65 74 20 6d 79 6e 72 ymtype..set mynr
0540: 20 20 20 20 20 24 6e 72 0a 09 73 65 74 20 6d 79 $nr..set my
0550: 73 79 6d 62 6f 6c 20 24 73 79 6d 62 6f 6c 0a 0a symbol $symbol..
0560: 09 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d .switch -exact -
0570: 2d 20 24 6d 79 74 79 70 65 20 7b 0a 09 20 20 20 - $mytype {..
0580: 20 62 72 61 6e 63 68 20 20 7b 20 53 65 74 75 70 branch { Setup
0590: 42 72 61 6e 63 68 20 3b 20 72 65 74 75 72 6e 20 Branch ; return
05a0: 7d 0a 09 20 20 20 20 74 61 67 20 20 20 20 20 7b }.. tag {
05b0: 20 72 65 74 75 72 6e 20 7d 0a 09 7d 0a 09 69 6e return }..}..in
05c0: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 30 tegrity assert 0
05d0: 20 7b 42 61 64 20 73 79 6d 62 6f 6c 20 74 79 70 {Bad symbol typ
05e0: 65 20 27 24 6d 79 74 79 70 65 27 7d 0a 09 72 65 e '$mytype'}..re
05f0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
0600: 6d 65 74 68 6f 64 20 64 65 66 69 64 20 7b 7d 20 method defid {}
0610: 7b 0a 09 73 65 74 20 6d 79 69 64 20 5b 69 6e 63 {..set myid [inc
0620: 72 20 6d 79 69 64 63 6f 75 6e 74 65 72 5d 0a 09 r myidcounter]..
0630: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
0640: 20 20 6d 65 74 68 6f 64 20 66 69 64 20 20 20 20 method fid
0650: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 69 {} { return $myi
0660: 64 20 20 20 20 20 7d 0a 20 20 20 20 6d 65 74 68 d }. meth
0670: 6f 64 20 73 79 6d 62 6f 6c 20 7b 7d 20 7b 20 72 od symbol {} { r
0680: 65 74 75 72 6e 20 24 6d 79 73 79 6d 62 6f 6c 20 eturn $mysymbol
0690: 7d 0a 0a 20 20 20 20 23 20 53 79 6d 62 6f 6c 20 }.. # Symbol
06a0: 61 63 65 73 73 6f 72 20 6d 65 74 68 6f 64 73 2e acessor methods.
06b0: 0a 0a 20 20 20 20 64 65 6c 65 67 61 74 65 20 6d .. delegate m
06c0: 65 74 68 6f 64 20 6e 61 6d 65 20 74 6f 20 6d 79 ethod name to my
06d0: 73 79 6d 62 6f 6c 0a 20 20 20 20 64 65 6c 65 67 symbol. deleg
06e0: 61 74 65 20 6d 65 74 68 6f 64 20 69 64 20 20 20 ate method id
06f0: 74 6f 20 6d 79 73 79 6d 62 6f 6c 0a 0a 20 20 20 to mysymbol..
0700: 20 23 20 53 79 6d 62 6f 6c 20 61 67 67 72 65 67 # Symbol aggreg
0710: 61 74 69 6f 6e 20 6d 65 74 68 6f 64 73 0a 0a 20 ation methods..
0720: 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74 68 delegate meth
0730: 6f 64 20 63 6f 75 6e 74 61 73 62 72 61 6e 63 68 od countasbranch
0740: 20 74 6f 20 6d 79 73 79 6d 62 6f 6c 0a 20 20 20 to mysymbol.
0750: 20 64 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 delegate method
0760: 20 63 6f 75 6e 74 61 73 74 61 67 20 20 20 20 74 countastag t
0770: 6f 20 6d 79 73 79 6d 62 6f 6c 0a 20 20 20 20 64 o mysymbol. d
0780: 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 63 elegate method c
0790: 6f 75 6e 74 61 63 6f 6d 6d 69 74 20 20 74 6f 20 ountacommit to
07a0: 6d 79 73 79 6d 62 6f 6c 0a 0a 20 20 20 20 6d 65 mysymbol.. me
07b0: 74 68 6f 64 20 62 6c 6f 63 6b 65 64 62 79 20 7b thod blockedby {
07c0: 66 73 79 6d 62 6f 6c 7d 20 7b 0a 09 24 6d 79 73 fsymbol} {..$mys
07d0: 79 6d 62 6f 6c 20 62 6c 6f 63 6b 65 64 62 79 20 ymbol blockedby
07e0: 5b 24 66 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c [$fsymbol symbol
07f0: 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ]..return. }.
0800: 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 6f 73 73 . method poss
0810: 69 62 6c 65 70 61 72 65 6e 74 73 20 7b 7d 20 7b ibleparents {} {
0820: 0a 09 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 ..switch -exact
0830: 2d 2d 20 24 6d 79 74 79 70 65 20 7b 0a 09 20 20 -- $mytype {..
0840: 20 20 62 72 61 6e 63 68 20 7b 20 24 73 65 6c 66 branch { $self
0850: 20 42 72 61 6e 63 68 50 61 72 65 6e 74 73 20 7d BranchParents }
0860: 0a 09 20 20 20 20 74 61 67 20 20 20 20 7b 20 24 .. tag { $
0870: 73 65 6c 66 20 54 61 67 50 61 72 65 6e 74 73 20 self TagParents
0880: 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a }..}..return.
0890: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
08a0: 64 20 42 72 61 6e 63 68 50 61 72 65 6e 74 73 20 d BranchParents
08b0: 7b 7d 20 7b 0a 09 23 20 54 68 65 20 22 6f 62 76 {} {..# The "obv
08c0: 69 6f 75 73 22 20 70 61 72 65 6e 74 20 6f 66 20 ious" parent of
08d0: 61 20 62 72 61 6e 63 68 20 69 73 20 74 68 65 20 a branch is the
08e0: 62 72 61 6e 63 68 20 68 6f 6c 64 69 6e 67 20 74 branch holding t
08f0: 68 65 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 73 he..# revision s
0900: 70 61 77 6e 69 6e 67 20 74 68 65 20 62 72 61 6e pawning the bran
0910: 63 68 2e 20 41 6e 79 20 6f 74 68 65 72 20 62 72 ch. Any other br
0920: 61 6e 63 68 65 73 20 74 68 61 74 20 61 72 65 0a anches that are.
0930: 09 23 20 72 6f 6f 74 65 64 20 61 74 20 74 68 65 .# rooted at the
0940: 20 73 61 6d 65 20 72 65 76 69 73 69 6f 6e 20 61 same revision a
0950: 6e 64 20 77 65 72 65 20 63 6f 6d 6d 69 74 74 65 nd were committe
0960: 64 20 65 61 72 6c 69 65 72 20 74 68 61 6e 0a 09 d earlier than..
0970: 23 20 74 68 65 20 62 72 61 6e 63 68 20 61 72 65 # the branch are
0980: 20 61 6c 73 6f 20 70 6f 73 73 69 62 6c 65 20 70 also possible p
0990: 61 72 65 6e 74 73 2e 0a 0a 09 24 6d 79 73 79 6d arents....$mysym
09a0: 62 6f 6c 20 70 6f 73 73 69 62 6c 65 70 61 72 65 bol possiblepare
09b0: 6e 74 20 5b 5b 24 6d 79 62 72 61 6e 63 68 70 61 nt [[$mybranchpa
09c0: 72 65 6e 74 20 6c 6f 64 5d 20 73 79 6d 62 6f 6c rent lod] symbol
09d0: 5d 0a 0a 09 66 6f 72 65 61 63 68 20 62 72 61 6e ]...foreach bran
09e0: 63 68 20 5b 24 6d 79 62 72 61 6e 63 68 70 61 72 ch [$mybranchpar
09f0: 65 6e 74 20 62 72 61 6e 63 68 65 73 5d 20 7b 0a ent branches] {.
0a00: 09 20 20 20 20 23 20 41 20 62 72 61 6e 63 68 20 . # A branch
0a10: 63 61 6e 6e 6f 74 20 62 65 20 69 74 73 20 6f 77 cannot be its ow
0a20: 6e 20 70 61 72 65 6e 74 2e 20 4e 6f 72 20 63 61 n parent. Nor ca
0a30: 6e 20 61 20 62 72 61 6e 63 68 0a 09 20 20 20 20 n a branch..
0a40: 23 20 63 72 65 61 74 65 64 20 61 66 74 65 72 20 # created after
0a50: 74 68 69 73 20 6f 6e 65 20 62 65 20 69 74 73 20 this one be its
0a60: 70 61 72 65 6e 74 2e 20 54 68 69 73 20 6d 65 61 parent. This mea
0a70: 6e 73 20 74 68 61 74 20 77 65 0a 09 20 20 20 20 ns that we..
0a80: 23 20 63 61 6e 20 61 62 6f 72 74 20 74 68 65 20 # can abort the
0a90: 6c 6f 6f 70 20 77 68 65 6e 20 77 65 20 68 61 76 loop when we hav
0aa0: 65 20 72 65 61 63 68 65 64 20 6f 75 72 73 65 6c e reached oursel
0ab0: 76 65 73 20 69 6e 20 74 68 65 0a 09 20 20 20 20 ves in the..
0ac0: 23 20 6c 69 73 74 20 6f 66 20 62 72 61 6e 63 68 # list of branch
0ad0: 65 73 2e 20 48 65 72 65 20 74 68 65 20 6f 72 64 es. Here the ord
0ae0: 65 72 20 6f 66 20 66 69 6c 65 3a 3a 72 65 76 2e er of file::rev.
0af0: 6d 79 62 72 61 6e 63 68 65 73 0a 09 20 20 20 20 mybranches..
0b00: 23 20 63 6f 6d 65 73 20 69 6e 74 6f 20 70 6c 61 # comes into pla
0b10: 79 2c 20 61 73 20 63 72 65 61 74 65 64 20 62 79 y, as created by
0b20: 20 66 69 6c 65 3a 3a 72 65 76 3a 3a 73 6f 72 74 file::rev::sort
0b30: 62 72 61 6e 63 68 65 73 2e 0a 0a 09 20 20 20 20 branches....
0b40: 69 66 20 7b 24 62 72 61 6e 63 68 20 65 71 20 24 if {$branch eq $
0b50: 73 65 6c 66 7d 20 62 72 65 61 6b 0a 09 20 20 20 self} break..
0b60: 20 24 6d 79 73 79 6d 62 6f 6c 20 70 6f 73 73 69 $mysymbol possi
0b70: 62 6c 65 70 61 72 65 6e 74 20 5b 24 62 72 61 6e bleparent [$bran
0b80: 63 68 20 73 79 6d 62 6f 6c 5d 0a 09 7d 0a 09 72 ch symbol]..}..r
0b90: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
0ba0: 20 6d 65 74 68 6f 64 20 54 61 67 50 61 72 65 6e method TagParen
0bb0: 74 73 20 7b 7d 20 7b 0a 09 23 20 54 68 65 20 22 ts {} {..# The "
0bc0: 6f 62 76 69 6f 75 73 22 20 70 61 72 65 6e 74 20 obvious" parent
0bd0: 6f 66 20 61 20 74 61 67 20 69 73 20 74 68 65 20 of a tag is the
0be0: 62 72 61 6e 63 68 20 68 6f 6c 64 69 6e 67 20 74 branch holding t
0bf0: 68 65 0a 09 23 20 72 65 76 69 73 69 6f 6e 20 73 he..# revision s
0c00: 70 61 77 6e 69 6e 67 20 74 68 65 20 74 61 67 2e pawning the tag.
0c10: 20 42 72 61 6e 63 68 65 73 20 74 68 61 74 20 61 Branches that a
0c20: 72 65 20 73 70 61 77 6e 65 64 20 62 79 20 74 68 re spawned by th
0c30: 65 0a 09 23 20 73 61 6d 65 20 72 65 76 69 73 69 e..# same revisi
0c40: 6f 6e 20 61 72 65 20 61 6c 73 6f 20 70 6f 73 73 on are also poss
0c50: 69 62 6c 65 20 70 61 72 65 6e 74 73 2e 0a 0a 09 ible parents....
0c60: 24 6d 79 73 79 6d 62 6f 6c 20 70 6f 73 73 69 62 $mysymbol possib
0c70: 6c 65 70 61 72 65 6e 74 20 5b 5b 24 6d 79 74 61 leparent [[$myta
0c80: 67 72 65 76 20 6c 6f 64 5d 20 73 79 6d 62 6f 6c grev lod] symbol
0c90: 5d 0a 0a 09 66 6f 72 65 61 63 68 20 62 72 61 6e ]...foreach bran
0ca0: 63 68 20 5b 24 6d 79 74 61 67 72 65 76 20 62 72 ch [$mytagrev br
0cb0: 61 6e 63 68 65 73 5d 20 7b 0a 09 20 20 20 20 24 anches] {.. $
0cc0: 6d 79 73 79 6d 62 6f 6c 20 70 6f 73 73 69 62 6c mysymbol possibl
0cd0: 65 70 61 72 65 6e 74 20 5b 24 62 72 61 6e 63 68 eparent [$branch
0ce0: 20 73 79 6d 62 6f 6c 5d 0a 09 7d 0a 09 72 65 74 symbol]..}..ret
0cf0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
0d00: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 73 74 .. method ist
0d10: 72 75 6e 6b 20 7b 7d 20 7b 20 72 65 74 75 72 6e runk {} { return
0d20: 20 30 20 7d 0a 0a 20 20 20 20 23 20 42 72 61 6e 0 }.. # Bran
0d30: 63 68 20 61 63 65 73 73 6f 72 20 6d 65 74 68 6f ch acessor metho
0d40: 64 73 2e 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 ds... method
0d50: 73 65 74 63 68 69 6c 64 72 65 76 6e 72 20 20 7b setchildrevnr {
0d60: 72 65 76 6e 72 7d 20 7b 0a 09 69 6e 74 65 67 72 revnr} {..integr
0d70: 69 74 79 20 61 73 73 65 72 74 20 7b 24 6d 79 62 ity assert {$myb
0d80: 72 61 6e 63 68 63 68 69 6c 64 72 65 76 6e 72 20 ranchchildrevnr
0d90: 65 71 20 22 22 7d 20 7b 43 68 69 6c 64 20 61 6c eq ""} {Child al
0da0: 72 65 61 64 79 20 64 65 66 69 6e 65 64 7d 0a 09 ready defined}..
0db0: 73 65 74 20 6d 79 62 72 61 6e 63 68 63 68 69 6c set mybranchchil
0dc0: 64 72 65 76 6e 72 20 24 72 65 76 6e 72 0a 09 72 drevnr $revnr..r
0dd0: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
0de0: 20 6d 65 74 68 6f 64 20 73 65 74 70 6f 73 69 74 method setposit
0df0: 69 6f 6e 20 20 7b 6e 7d 20 20 20 7b 20 73 65 74 ion {n} { set
0e00: 20 6d 79 62 72 61 6e 63 68 70 6f 73 69 74 69 6f mybranchpositio
0e10: 6e 20 24 6e 20 3b 20 72 65 74 75 72 6e 20 7d 0a n $n ; return }.
0e20: 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 70 61 method setpa
0e30: 72 65 6e 74 20 20 20 20 7b 72 65 76 7d 20 7b 20 rent {rev} {
0e40: 73 65 74 20 6d 79 62 72 61 6e 63 68 70 61 72 65 set mybranchpare
0e50: 6e 74 20 24 72 65 76 20 3b 20 72 65 74 75 72 6e nt $rev ; return
0e60: 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 65 }. method se
0e70: 74 63 68 69 6c 64 20 20 20 20 20 7b 72 65 76 7d tchild {rev}
0e80: 20 7b 20 73 65 74 20 6d 79 62 72 61 6e 63 68 63 { set mybranchc
0e90: 68 69 6c 64 20 20 24 72 65 76 20 3b 20 72 65 74 hild $rev ; ret
0ea0: 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 urn }. method
0eb0: 20 63 75 74 63 68 69 6c 64 20 20 20 20 20 7b 7d cutchild {}
0ec0: 20 20 20 20 7b 20 73 65 74 20 6d 79 62 72 61 6e { set mybran
0ed0: 63 68 63 68 69 6c 64 20 20 22 22 20 20 20 3b 20 chchild "" ;
0ee0: 72 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 return }. met
0ef0: 68 6f 64 20 63 75 74 62 72 61 6e 63 68 70 61 72 hod cutbranchpar
0f00: 65 6e 74 20 7b 7d 20 7b 20 73 65 74 20 6d 79 62 ent {} { set myb
0f10: 72 61 6e 63 68 70 61 72 65 6e 74 20 22 22 20 20 ranchparent ""
0f20: 20 3b 20 72 65 74 75 72 6e 20 7d 0a 0a 20 20 20 ; return }..
0f30: 20 6d 65 74 68 6f 64 20 62 72 61 6e 63 68 6e 72 method branchnr
0f40: 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 {} { return
0f50: 24 6d 79 6e 72 20 7d 0a 20 20 20 20 6d 65 74 68 $mynr }. meth
0f60: 6f 64 20 70 61 72 65 6e 74 72 65 76 6e 72 20 7b od parentrevnr {
0f70: 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 62 72 } { return $mybr
0f80: 61 6e 63 68 70 61 72 65 6e 74 72 65 76 6e 72 20 anchparentrevnr
0f90: 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 68 69 }. method chi
0fa0: 6c 64 72 65 76 6e 72 20 20 7b 7d 20 7b 20 72 65 ldrevnr {} { re
0fb0: 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 63 68 turn $mybranchch
0fc0: 69 6c 64 72 65 76 6e 72 20 7d 0a 20 20 20 20 6d ildrevnr }. m
0fd0: 65 74 68 6f 64 20 68 61 73 63 68 69 6c 64 72 65 ethod haschildre
0fe0: 76 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 5b 65 v {} { return [e
0ff0: 78 70 72 20 7b 24 6d 79 62 72 61 6e 63 68 63 68 xpr {$mybranchch
1000: 69 6c 64 72 65 76 6e 72 20 6e 65 20 22 22 7d 5d ildrevnr ne ""}]
1010: 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 68 61 }. method ha
1020: 73 63 68 69 6c 64 20 20 20 20 7b 7d 20 7b 20 72 schild {} { r
1030: 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 6d 79 eturn [expr {$my
1040: 62 72 61 6e 63 68 63 68 69 6c 64 20 6e 65 20 22 branchchild ne "
1050: 22 7d 5d 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 "}] }. method
1060: 20 70 61 72 65 6e 74 20 20 20 20 20 20 7b 7d 20 parent {}
1070: 7b 20 72 65 74 75 72 6e 20 24 6d 79 62 72 61 6e { return $mybran
1080: 63 68 70 61 72 65 6e 74 20 7d 0a 20 20 20 20 6d chparent }. m
1090: 65 74 68 6f 64 20 63 68 69 6c 64 20 20 20 20 20 ethod child
10a0: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d {} { return $m
10b0: 79 62 72 61 6e 63 68 63 68 69 6c 64 20 7d 0a 20 ybranchchild }.
10c0: 20 20 20 6d 65 74 68 6f 64 20 70 6f 73 69 74 69 method positi
10d0: 6f 6e 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 on {} { retur
10e0: 6e 20 24 6d 79 62 72 61 6e 63 68 70 6f 73 69 74 n $mybranchposit
10f0: 69 6f 6e 20 7d 0a 0a 20 20 20 20 23 20 54 61 67 ion }.. # Tag
1100: 20 61 63 65 73 73 6f 72 20 6d 65 74 68 6f 64 73 acessor methods
1110: 2e 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 74 61 ... method ta
1120: 67 72 65 76 6e 72 20 20 7b 7d 20 20 20 20 7b 20 grevnr {} {
1130: 72 65 74 75 72 6e 20 24 6d 79 6e 72 20 7d 0a 20 return $mynr }.
1140: 20 20 20 6d 65 74 68 6f 64 20 73 65 74 74 61 67 method settag
1150: 72 65 76 20 7b 72 65 76 7d 20 7b 73 65 74 20 6d rev {rev} {set m
1160: 79 74 61 67 72 65 76 20 24 72 65 76 20 3b 20 72 ytagrev $rev ; r
1170: 65 74 75 72 6e 20 7d 0a 0a 20 20 20 20 23 20 44 eturn }.. # D
1180: 65 72 69 76 65 64 20 69 6e 66 6f 72 6d 61 74 69 erived informati
1190: 6f 6e 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 6c on.. method l
11a0: 6f 64 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 od {} { return $
11b0: 6d 79 6c 6f 64 20 7d 0a 0a 20 20 20 20 6d 65 74 mylod }.. met
11c0: 68 6f 64 20 73 65 74 6c 6f 64 20 7b 6c 6f 64 7d hod setlod {lod}
11d0: 20 7b 0a 09 73 65 74 20 6d 79 6c 6f 64 20 24 6c {..set mylod $l
11e0: 6f 64 0a 09 24 73 65 6c 66 20 63 68 65 63 6b 6c od..$self checkl
11f0: 6f 64 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d od..return. }
1200: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 68 65 .. method che
1210: 63 6b 6c 6f 64 20 7b 7d 20 7b 0a 09 23 20 43 6f cklod {} {..# Co
1220: 6e 73 69 73 74 65 6e 63 79 20 63 68 65 63 6b 2e nsistency check.
1230: 20 54 68 65 20 73 79 6d 62 6f 6c 27 73 20 6c 69 The symbol's li
1240: 6e 65 2d 6f 66 2d 64 65 76 65 6c 6f 70 6d 65 6e ne-of-developmen
1250: 74 20 68 61 73 20 74 6f 0a 09 23 20 62 65 20 73 t has to..# be s
1260: 61 6d 65 20 61 73 20 74 68 65 20 6c 69 6e 65 2d ame as the line-
1270: 6f 66 2d 64 65 76 65 6c 6f 70 6d 65 6e 74 20 6f of-development o
1280: 66 20 69 74 73 20 73 6f 75 72 63 65 20 28 70 61 f its source (pa
1290: 72 65 6e 74 0a 09 23 20 72 65 76 69 73 69 6f 6e rent..# revision
12a0: 20 6f 66 20 61 20 62 72 61 6e 63 68 2c 20 72 65 of a branch, re
12b0: 76 69 73 69 6f 6e 20 6f 66 20 61 20 74 61 67 20 vision of a tag
12c0: 69 74 73 65 6c 66 29 2e 0a 0a 09 73 77 69 74 63 itself)....switc
12d0: 68 20 2d 65 78 61 63 74 20 2d 2d 20 24 6d 79 74 h -exact -- $myt
12e0: 79 70 65 20 7b 0a 09 20 20 20 20 62 72 61 6e 63 ype {.. branc
12f0: 68 20 20 7b 20 73 65 74 20 73 6c 6f 64 20 5b 24 h { set slod [$
1300: 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 20 6c mybranchparent l
1310: 6f 64 5d 20 7d 0a 09 20 20 20 20 74 61 67 20 20 od] }.. tag
1320: 20 20 20 7b 20 73 65 74 20 73 6c 6f 64 20 5b 24 { set slod [$
1330: 6d 79 74 61 67 72 65 76 20 20 20 20 20 20 20 6c mytagrev l
1340: 6f 64 5d 20 7d 0a 09 7d 0a 0a 09 69 66 20 7b 24 od] }..}...if {$
1350: 6d 79 6c 6f 64 20 6e 65 20 24 73 6c 6f 64 7d 20 mylod ne $slod}
1360: 7b 0a 09 20 20 20 20 74 72 6f 75 62 6c 65 20 66 {.. trouble f
1370: 61 74 61 6c 20 22 46 6f 72 20 24 6d 79 74 79 70 atal "For $mytyp
1380: 65 20 5b 24 6d 79 73 79 6d 62 6f 6c 20 6e 61 6d e [$mysymbol nam
1390: 65 5d 3a 20 4c 4f 44 20 63 6f 6e 66 6c 69 63 74 e]: LOD conflict
13a0: 20 77 69 74 68 20 73 6f 75 72 63 65 2c 20 27 5b with source, '[
13b0: 24 6d 79 6c 6f 64 20 6e 61 6d 65 5d 27 20 76 73 $mylod name]' vs
13c0: 2e 20 27 5b 24 73 6c 6f 64 20 6e 61 6d 65 5d 27 . '[$slod name]'
13d0: 22 0a 09 20 20 20 20 72 65 74 75 72 6e 0a 09 7d ".. return..}
13e0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
13f0: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
1400: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
1410: 23 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 ###########..
1420: 20 6d 65 74 68 6f 64 20 70 65 72 73 69 73 74 20 method persist
1430: 7b 7d 20 7b 0a 09 23 20 53 61 76 65 20 74 68 65 {} {..# Save the
1440: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 65 20 information we
1450: 6e 65 65 64 20 61 66 74 65 72 20 74 68 65 20 63 need after the c
1460: 6f 6c 6c 65 63 74 69 6f 6e 20 70 61 73 73 2e 0a ollection pass..
1470: 0a 09 73 65 74 20 66 69 64 20 5b 24 6d 79 66 69 ..set fid [$myfi
1480: 6c 65 20 20 20 69 64 5d 0a 09 73 65 74 20 73 69 le id]..set si
1490: 64 20 5b 24 6d 79 73 79 6d 62 6f 6c 20 69 64 5d d [$mysymbol id]
14a0: 0a 09 73 65 74 20 6c 6f 64 20 5b 24 6d 79 6c 6f ..set lod [$mylo
14b0: 64 20 20 20 20 69 64 5d 0a 0a 09 73 77 69 74 63 d id]...switc
14c0: 68 20 2d 65 78 61 63 74 20 2d 2d 20 24 6d 79 74 h -exact -- $myt
14d0: 79 70 65 20 7b 0a 09 20 20 20 20 74 61 67 20 7b ype {.. tag {
14e0: 0a 09 09 73 65 74 20 72 69 64 20 5b 24 6d 79 74 ...set rid [$myt
14f0: 61 67 72 65 76 20 69 64 5d 0a 09 09 73 74 61 74 agrev id]...stat
1500: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a e transaction {.
1510: 09 09 20 20 20 20 73 74 61 74 65 20 72 75 6e 20 .. state run
1520: 7b 0a 09 09 09 49 4e 53 45 52 54 20 49 4e 54 4f {....INSERT INTO
1530: 20 74 61 67 20 28 20 74 69 64 2c 20 20 20 66 69 tag ( tid, fi
1540: 64 2c 20 20 6c 6f 64 2c 20 20 73 69 64 2c 20 20 d, lod, sid,
1550: 72 65 76 29 0a 09 09 09 56 41 4c 55 45 53 20 20 rev)....VALUES
1560: 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c 20 ($myid,
1570: 24 66 69 64 2c 20 24 6c 6f 64 2c 20 24 73 69 64 $fid, $lod, $sid
1580: 2c 20 24 72 69 64 29 3b 0a 09 09 20 20 20 20 7d , $rid);... }
1590: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 ...}.. }..
15a0: 20 62 72 61 6e 63 68 20 7b 0a 09 09 6c 61 70 70 branch {...lapp
15b0: 65 6e 64 20 6d 61 70 20 40 46 40 20 5b 65 78 70 end map @F@ [exp
15c0: 72 20 7b 20 28 24 6d 79 62 72 61 6e 63 68 63 68 r { ($mybranchch
15d0: 69 6c 64 20 20 65 71 20 22 22 29 20 3f 20 22 4e ild eq "") ? "N
15e0: 55 4c 4c 22 20 3a 20 5b 24 6d 79 62 72 61 6e 63 ULL" : [$mybranc
15f0: 68 63 68 69 6c 64 20 20 69 64 5d 20 7d 5d 0a 09 hchild id] }]..
1600: 09 6c 61 70 70 65 6e 64 20 6d 61 70 20 40 50 40 .lappend map @P@
1610: 20 5b 65 78 70 72 20 7b 20 28 24 6d 79 62 72 61 [expr { ($mybra
1620: 6e 63 68 70 61 72 65 6e 74 20 65 71 20 22 22 29 nchparent eq "")
1630: 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 5b 24 6d 79 ? "NULL" : [$my
1640: 62 72 61 6e 63 68 70 61 72 65 6e 74 20 69 64 5d branchparent id]
1650: 20 7d 5d 0a 0a 09 09 73 65 74 20 63 6d 64 20 7b }]....set cmd {
1660: 0a 09 09 20 20 20 20 49 4e 53 45 52 54 20 49 4e ... INSERT IN
1670: 54 4f 20 62 72 61 6e 63 68 20 28 20 62 69 64 2c TO branch ( bid,
1680: 20 20 20 66 69 64 2c 20 20 6c 6f 64 2c 20 20 73 fid, lod, s
1690: 69 64 2c 20 20 72 6f 6f 74 2c 20 66 69 72 73 74 id, root, first
16a0: 2c 20 62 72 61 2c 20 20 70 6f 73 20 20 20 20 20 , bra, pos
16b0: 20 20 20 20 20 20 20 20 20 29 0a 09 09 20 20 20 )...
16c0: 20 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 20 VALUES
16d0: 20 20 20 20 28 24 6d 79 69 64 2c 20 24 66 69 64 ($myid, $fid
16e0: 2c 20 24 6c 6f 64 2c 20 24 73 69 64 2c 20 20 40 , $lod, $sid, @
16f0: 50 40 2c 20 20 40 46 40 2c 20 20 24 6d 79 6e 72 P@, @F@, $mynr
1700: 2c 20 24 6d 79 62 72 61 6e 63 68 70 6f 73 69 74 , $mybranchposit
1710: 69 6f 6e 29 3b 0a 09 09 7d 0a 09 09 73 74 61 74 ion);...}...stat
1720: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a e transaction {.
1730: 09 09 20 20 20 20 73 74 61 74 65 20 72 75 6e 20 .. state run
1740: 5b 73 74 72 69 6e 67 20 6d 61 70 20 24 6d 61 70 [string map $map
1750: 20 24 63 6d 64 5d 0a 09 09 7d 0a 09 20 20 20 20 $cmd]...}..
1760: 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 20 }..}...return.
1770: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 }.. # # ##
1780: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
1790: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
17a0: 0a 20 20 20 20 23 23 20 53 74 61 74 65 0a 0a 20 . ## State..
17b0: 20 20 20 23 20 50 65 72 73 69 73 74 65 6e 74 3a # Persistent:
17c0: 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 54 61 . # Ta
17d0: 67 3a 20 6d 79 69 64 20 20 20 20 20 20 20 20 20 g: myid
17e0: 20 20 2d 20 74 61 67 2e 74 69 64 0a 20 20 20 20 - tag.tid.
17f0: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 79 # my
1800: 66 69 6c 65 20 20 20 20 20 20 20 20 20 2d 20 74 file - t
1810: 61 67 2e 66 69 64 0a 20 20 20 20 23 20 20 20 20 ag.fid. #
1820: 20 20 20 20 20 20 20 20 20 6d 79 6c 6f 64 20 20 mylod
1830: 20 20 20 20 20 20 20 20 2d 20 74 61 67 2e 6c 6f - tag.lo
1840: 64 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 d. #
1850: 20 20 20 20 6d 79 73 79 6d 62 6f 6c 20 20 20 20 mysymbol
1860: 20 20 20 2d 20 74 61 67 2e 73 69 64 0a 20 20 20 - tag.sid.
1870: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 6d # m
1880: 79 74 61 67 72 65 76 20 20 20 20 20 20 20 2d 20 ytagrev -
1890: 74 61 67 2e 72 65 76 0a 20 20 20 20 23 0a 20 20 tag.rev. #.
18a0: 20 20 23 20 20 20 20 20 42 72 61 6e 63 68 3a 20 # Branch:
18b0: 6d 79 69 64 20 20 20 20 20 20 20 20 20 20 20 2d myid -
18c0: 20 62 72 61 6e 63 68 2e 62 69 64 0a 20 20 20 20 branch.bid.
18d0: 23 09 09 20 20 6d 79 66 69 6c 65 20 20 20 20 20 #.. myfile
18e0: 20 20 20 20 2d 20 62 72 61 6e 63 68 2e 66 69 64 - branch.fid
18f0: 0a 20 20 20 20 23 09 09 20 20 6d 79 6c 6f 64 20 . #.. mylod
1900: 20 20 20 20 20 20 20 20 20 2d 20 62 72 61 6e 63 - branc
1910: 68 2e 6c 6f 64 0a 20 20 20 20 23 20 20 20 20 20 h.lod. #
1920: 20 20 20 20 20 20 20 20 6d 79 73 79 6d 62 6f 6c mysymbol
1930: 20 20 20 20 20 20 20 2d 20 62 72 61 6e 63 68 2e - branch.
1940: 73 69 64 0a 20 20 20 20 23 20 20 20 20 20 20 20 sid. #
1950: 20 20 20 20 20 20 6d 79 62 72 61 6e 63 68 70 61 mybranchpa
1960: 72 65 6e 74 20 2d 20 62 72 61 6e 63 68 2e 72 6f rent - branch.ro
1970: 6f 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 ot. #
1980: 20 20 20 20 20 6d 79 62 72 61 6e 63 68 63 68 69 mybranchchi
1990: 6c 64 20 20 2d 20 62 72 61 6e 63 68 2e 66 69 72 ld - branch.fir
19a0: 73 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 st. #
19b0: 20 20 20 20 20 6d 79 6e 72 20 20 20 20 20 20 20 mynr
19c0: 20 20 20 20 2d 20 62 72 61 6e 63 68 2e 62 72 61 - branch.bra
19d0: 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 .. typevariab
19e0: 6c 65 20 6d 79 69 64 63 6f 75 6e 74 65 72 20 30 le myidcounter 0
19f0: 20 3b 20 23 20 43 6f 75 6e 74 65 72 20 66 6f 72 ; # Counter for
1a00: 20 73 79 6d 62 6f 6c 20 69 64 73 2e 0a 20 20 20 symbol ids..
1a10: 20 76 61 72 69 61 62 6c 65 20 6d 79 69 64 20 20 variable myid
1a20: 20 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 {} ; #
1a30: 53 79 6d 62 6f 6c 20 69 64 2e 0a 0a 20 20 20 20 Symbol id...
1a40: 23 23 20 42 61 73 69 63 2c 20 61 6c 6c 20 73 79 ## Basic, all sy
1a50: 6d 62 6f 6c 73 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f mbols __________
1a60: 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 76 61 72 _______.. var
1a70: 69 61 62 6c 65 20 6d 79 66 69 6c 65 20 20 20 7b iable myfile {
1a80: 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 20 } ; # Reference
1a90: 74 6f 20 74 68 65 20 66 69 6c 65 20 74 68 65 20 to the file the
1aa0: 73 79 6d 62 6f 6c 20 69 73 20 69 6e 2e 0a 20 20 symbol is in..
1ab0: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 74 79 70 variable mytyp
1ac0: 65 20 20 20 7b 7d 20 3b 20 23 20 53 79 6d 62 6f e {} ; # Symbo
1ad0: 6c 20 74 79 70 65 2c 20 27 74 61 67 27 2c 20 6f l type, 'tag', o
1ae0: 72 20 27 62 72 61 6e 63 68 27 2e 0a 20 20 20 20 r 'branch'..
1af0: 76 61 72 69 61 62 6c 65 20 6d 79 6e 72 20 20 20 variable mynr
1b00: 20 20 7b 7d 20 3b 20 23 20 52 65 76 69 73 69 6f {} ; # Revisio
1b10: 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61 20 27 74 n number of a 't
1b20: 61 67 27 2c 20 62 72 61 6e 63 68 20 6e 75 6d 62 ag', branch numb
1b30: 65 72 0a 09 09 09 20 20 20 23 20 6f 66 20 61 20 er.... # of a
1b40: 27 62 72 61 6e 63 68 27 2e 0a 20 20 20 20 76 61 'branch'.. va
1b50: 72 69 61 62 6c 65 20 6d 79 73 79 6d 62 6f 6c 20 riable mysymbol
1b60: 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 {} ; # Reference
1b70: 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 20 6f to the symbol o
1b80: 62 6a 65 63 74 20 6f 66 20 74 68 69 73 0a 09 09 bject of this...
1b90: 09 20 20 20 23 20 73 79 6d 62 6f 6c 20 61 74 20 . # symbol at
1ba0: 74 68 65 20 70 72 6f 6a 65 63 74 20 6c 65 76 65 the project leve
1bb0: 6c 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 l.. variable
1bc0: 6d 79 6c 6f 64 20 20 20 20 7b 7d 20 3b 20 23 20 mylod {} ; #
1bd0: 52 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 Reference to the
1be0: 20 6c 69 6e 65 2d 6f 66 2d 64 65 76 65 6c 6f 70 line-of-develop
1bf0: 6d 65 6e 74 0a 09 09 09 20 20 20 23 20 6f 62 6a ment.... # obj
1c00: 65 63 74 20 74 68 65 20 73 79 6d 62 6f 6c 20 62 ect the symbol b
1c10: 65 6c 6f 6e 67 73 20 74 6f 2e 20 41 6e 0a 09 09 elongs to. An...
1c20: 09 20 20 20 23 20 61 6c 74 65 72 6e 61 74 69 76 . # alternativ
1c30: 65 20 69 64 69 6f 6d 20 77 6f 75 6c 64 20 62 65 e idiom would be
1c40: 20 74 6f 20 63 61 6c 6c 20 69 74 20 74 68 65 0a to call it the.
1c50: 09 09 09 20 20 20 23 20 62 72 61 6e 63 68 20 74 ... # branch t
1c60: 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 6f 6e 2e he symbol is on.
1c70: 20 54 68 69 73 20 72 65 66 65 72 65 6e 63 65 0a This reference.
1c80: 09 09 09 20 20 20 23 20 69 73 20 74 6f 20 61 20 ... # is to a
1c90: 70 72 6f 6a 65 63 74 2d 6c 65 76 65 6c 20 6f 62 project-level ob
1ca0: 6a 65 63 74 20 28 73 79 6d 62 6f 6c 20 6f 72 0a ject (symbol or.
1cb0: 09 09 09 20 20 20 23 20 74 72 75 6e 6b 29 2e 0a ... # trunk)..
1cc0: 0a 20 20 20 20 23 23 20 42 72 61 6e 63 68 20 73 . ## Branch s
1cd0: 79 6d 62 6f 6c 73 20 5f 5f 5f 5f 5f 5f 5f 5f 5f ymbols _________
1ce0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 20 ____________..
1cf0: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 62 72 61 variable mybra
1d00: 6e 63 68 70 61 72 65 6e 74 72 65 76 6e 72 20 7b nchparentrevnr {
1d10: 7d 20 3b 20 23 20 54 68 65 20 6e 75 6d 62 65 72 } ; # The number
1d20: 20 6f 66 20 74 68 65 20 70 61 72 65 6e 74 0a 09 of the parent..
1d30: 09 09 09 20 20 20 20 20 20 23 20 72 65 76 69 73 ... # revis
1d40: 69 6f 6e 2c 20 64 65 72 69 76 65 64 20 66 72 6f ion, derived fro
1d50: 6d 20 6f 75 72 0a 09 09 09 09 20 20 20 20 20 20 m our.....
1d60: 23 20 62 72 61 6e 63 68 20 6e 75 6d 62 65 72 20 # branch number
1d70: 28 6d 79 6e 72 29 2e 0a 20 20 20 20 76 61 72 69 (mynr).. vari
1d80: 61 62 6c 65 20 6d 79 62 72 61 6e 63 68 70 61 72 able mybranchpar
1d90: 65 6e 74 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 ent {} ; #
1da0: 52 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 65 Reference to the
1db0: 20 72 65 76 69 73 69 6f 6e 0a 09 09 09 09 20 20 revision.....
1dc0: 20 20 20 20 23 20 28 6f 62 6a 65 63 74 29 20 77 # (object) w
1dd0: 68 69 63 68 20 73 70 61 77 6e 73 20 74 68 65 0a hich spawns the.
1de0: 09 09 09 09 20 20 20 20 20 20 23 20 62 72 61 6e .... # bran
1df0: 63 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ch.. variable
1e00: 20 6d 79 62 72 61 6e 63 68 63 68 69 6c 64 72 65 mybranchchildre
1e10: 76 6e 72 20 20 7b 7d 20 3b 20 23 20 4e 75 6d 62 vnr {} ; # Numb
1e20: 65 72 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 er of the first
1e30: 72 65 76 69 73 69 6f 6e 0a 09 09 09 09 20 20 20 revision.....
1e40: 20 20 20 23 20 63 6f 6d 6d 69 74 74 65 64 20 6f # committed o
1e50: 6e 20 74 68 69 73 20 62 72 61 6e 63 68 2e 0a 20 n this branch..
1e60: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 62 72 variable mybr
1e70: 61 6e 63 68 63 68 69 6c 64 20 20 20 20 20 20 20 anchchild
1e80: 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 {} ; # Reference
1e90: 20 74 6f 20 74 68 65 20 72 65 76 69 73 69 6f 6e to the revision
1ea0: 0a 09 09 09 09 20 20 20 20 20 20 23 20 28 6f 62 ..... # (ob
1eb0: 6a 65 63 74 29 20 66 69 72 73 74 20 63 6f 6d 6d ject) first comm
1ec0: 69 74 74 65 64 20 6f 6e 0a 09 09 09 09 20 20 20 itted on.....
1ed0: 20 20 20 23 20 74 68 69 73 20 62 72 61 6e 63 68 # this branch
1ee0: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
1ef0: 79 62 72 61 6e 63 68 70 6f 73 69 74 69 6f 6e 20 ybranchposition
1f00: 20 20 20 7b 7d 20 3b 20 23 20 52 65 6c 61 74 69 {} ; # Relati
1f10: 76 65 20 69 64 20 6f 66 20 74 68 65 20 62 72 61 ve id of the bra
1f20: 6e 63 68 20 69 6e 0a 09 09 09 09 20 20 20 20 20 nch in.....
1f30: 20 23 20 74 68 65 20 66 69 6c 65 2c 20 74 6f 20 # the file, to
1f40: 73 6f 72 74 20 69 6e 74 6f 0a 09 09 09 09 20 20 sort into.....
1f50: 20 20 20 20 23 20 63 72 65 61 74 69 6f 6e 20 6f # creation o
1f60: 72 64 65 72 2e 0a 0a 20 20 20 20 23 23 20 54 61 rder... ## Ta
1f70: 67 20 73 79 6d 62 6f 6c 73 20 5f 5f 5f 5f 5f 5f g symbols ______
1f80: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
1f90: 5f 5f 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 __.. variable
1fa0: 20 6d 79 74 61 67 72 65 76 20 7b 7d 20 3b 20 23 mytagrev {} ; #
1fb0: 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 74 68 Reference to th
1fc0: 65 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a 65 63 e revision objec
1fd0: 74 20 74 68 65 20 74 61 67 0a 09 09 09 20 20 20 t the tag....
1fe0: 23 20 69 73 20 6f 6e 2c 20 69 64 65 6e 74 69 66 # is on, identif
1ff0: 69 65 64 20 62 79 20 27 6d 79 6e 72 27 2e 0a 0a ied by 'mynr'...
2000: 20 20 20 20 23 20 2e 2e 2e 20 6e 6f 74 68 69 6e # ... nothin
2010: 67 20 73 70 65 63 69 61 6c 20 2e 2e 2e 20 28 6f g special ... (o
2020: 6e 6c 79 20 6d 79 6e 72 2c 20 73 65 65 20 62 61 nly mynr, see ba
2030: 73 69 63 29 0a 0a 20 20 20 20 23 20 23 20 23 23 sic).. # # ##
2040: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
2050: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
2060: 23 0a 20 20 20 20 23 23 20 49 6e 74 65 72 6e 61 #. ## Interna
2070: 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 70 l methods.. p
2080: 72 6f 63 20 53 65 74 75 70 42 72 61 6e 63 68 20 roc SetupBranch
2090: 7b 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 6d 79 {} {..upvar 1 my
20a0: 62 72 61 6e 63 68 70 61 72 65 6e 74 72 65 76 6e branchparentrevn
20b0: 72 20 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 r mybranchparent
20c0: 72 65 76 6e 72 20 6d 79 6e 72 20 6d 79 6e 72 0a revnr mynr mynr.
20d0: 09 73 65 74 20 6d 79 62 72 61 6e 63 68 70 61 72 .set mybranchpar
20e0: 65 6e 74 72 65 76 6e 72 20 5b 72 65 76 20 32 62 entrevnr [rev 2b
20f0: 72 61 6e 63 68 70 61 72 65 6e 74 72 65 76 6e 72 ranchparentrevnr
2100: 20 20 24 6d 79 6e 72 5d 0a 09 72 65 74 75 72 6e $mynr]..return
2110: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
2120: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
2130: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
2140: 23 23 23 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 ###. ## Confi
2150: 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 guration.. pr
2160: 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 agma -hastypeinf
2170: 6f 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 o no ; # no
2180: 74 79 70 65 20 69 6e 74 72 6f 73 70 65 63 74 69 type introspecti
2190: 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 on. pragma -h
21a0: 61 73 69 6e 66 6f 20 20 20 20 20 20 20 20 6e 6f asinfo no
21b0: 20 20 3b 20 23 20 6e 6f 20 6f 62 6a 65 63 74 20 ; # no object
21c0: 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 introspection.
21d0: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 pragma -hastyp
21e0: 65 6d 65 74 68 6f 64 73 20 6e 6f 20 20 3b 20 23 emethods no ; #
21f0: 20 74 79 70 65 20 69 73 20 6e 6f 74 20 72 65 6c type is not rel
2200: 65 76 61 6e 74 2e 0a 0a 20 20 20 20 23 20 23 20 evant... # #
2210: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
2220: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
2230: 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 65 ###.}..namespace
2240: 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 73 eval ::vc::foss
2250: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
2260: 3a 66 69 6c 65 20 7b 0a 20 20 20 20 6e 61 6d 65 :file {. name
2270: 73 70 61 63 65 20 65 78 70 6f 72 74 20 73 79 6d space export sym
2280: 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 . namespace e
2290: 76 61 6c 20 73 79 6d 20 7b 0a 09 6e 61 6d 65 73 val sym {..names
22a0: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
22b0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
22c0: 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 72 65 76 ::cvs::file::rev
22d0: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
22e0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
22f0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 :import::cvs::st
2300: 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 ate..namespace i
2310: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 mport ::vc::foss
2320: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
2330: 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 6d 65 :integrity..name
2340: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
2350: 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c c::tools::troubl
2360: 65 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 e. }.}..# # #
2370: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
2380: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
2390: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
23a0: 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 64 ########.## Read
23b0: 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 y..package provi
23c0: 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 de vc::fossil::i
23d0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 mport::cvs::file
23e0: 3a 3a 73 79 6d 20 31 2e 30 0a 72 65 74 75 72 6e ::sym 1.0.return
23f0: 0a .