Artifact 139ee190b530b01a248101b5b7259190566e24f3:
File
tools/cvs2fossil/lib/c2f_fsym.tcl
part of check-in
[d3aa33884b]
- Allow for detached branches when checking lod consistency. Fixed formatting nit. Added debug helper method.
by
aku on
2008-01-27 20:42:01.
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 23 20 49 67 6e 6f arents....# Igno
09a0: 72 65 20 74 68 69 73 20 69 66 20 74 68 65 20 62 re this if the b
09b0: 72 61 6e 63 68 20 73 79 6d 62 6f 6c 20 69 73 20 ranch symbol is
09c0: 64 65 74 61 63 68 65 64 2e 0a 09 69 66 20 7b 24 detached...if {$
09d0: 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 20 65 mybranchparent e
09e0: 71 20 22 22 7d 20 72 65 74 75 72 6e 0a 0a 09 24 q ""} return...$
09f0: 6d 79 73 79 6d 62 6f 6c 20 70 6f 73 73 69 62 6c mysymbol possibl
0a00: 65 70 61 72 65 6e 74 20 5b 5b 24 6d 79 62 72 61 eparent [[$mybra
0a10: 6e 63 68 70 61 72 65 6e 74 20 6c 6f 64 5d 20 73 nchparent lod] s
0a20: 79 6d 62 6f 6c 5d 0a 0a 09 66 6f 72 65 61 63 68 ymbol]...foreach
0a30: 20 62 72 61 6e 63 68 20 5b 24 6d 79 62 72 61 6e branch [$mybran
0a40: 63 68 70 61 72 65 6e 74 20 62 72 61 6e 63 68 65 chparent branche
0a50: 73 5d 20 7b 0a 09 20 20 20 20 23 20 41 20 62 72 s] {.. # A br
0a60: 61 6e 63 68 20 63 61 6e 6e 6f 74 20 62 65 20 69 anch cannot be i
0a70: 74 73 20 6f 77 6e 20 70 61 72 65 6e 74 2e 20 4e ts own parent. N
0a80: 6f 72 20 63 61 6e 20 61 20 62 72 61 6e 63 68 0a or can a branch.
0a90: 09 20 20 20 20 23 20 63 72 65 61 74 65 64 20 61 . # created a
0aa0: 66 74 65 72 20 74 68 69 73 20 6f 6e 65 20 62 65 fter this one be
0ab0: 20 69 74 73 20 70 61 72 65 6e 74 2e 20 54 68 69 its parent. Thi
0ac0: 73 20 6d 65 61 6e 73 20 74 68 61 74 20 77 65 0a s means that we.
0ad0: 09 20 20 20 20 23 20 63 61 6e 20 61 62 6f 72 74 . # can abort
0ae0: 20 74 68 65 20 6c 6f 6f 70 20 77 68 65 6e 20 77 the loop when w
0af0: 65 20 68 61 76 65 20 72 65 61 63 68 65 64 20 6f e have reached o
0b00: 75 72 73 65 6c 76 65 73 20 69 6e 20 74 68 65 0a urselves in the.
0b10: 09 20 20 20 20 23 20 6c 69 73 74 20 6f 66 20 62 . # list of b
0b20: 72 61 6e 63 68 65 73 2e 20 48 65 72 65 20 74 68 ranches. Here th
0b30: 65 20 6f 72 64 65 72 20 6f 66 20 66 69 6c 65 3a e order of file:
0b40: 3a 72 65 76 2e 6d 79 62 72 61 6e 63 68 65 73 0a :rev.mybranches.
0b50: 09 20 20 20 20 23 20 63 6f 6d 65 73 20 69 6e 74 . # comes int
0b60: 6f 20 70 6c 61 79 2c 20 61 73 20 63 72 65 61 74 o play, as creat
0b70: 65 64 20 62 79 20 66 69 6c 65 3a 3a 72 65 76 3a ed by file::rev:
0b80: 3a 73 6f 72 74 62 72 61 6e 63 68 65 73 2e 0a 0a :sortbranches...
0b90: 09 20 20 20 20 69 66 20 7b 24 62 72 61 6e 63 68 . if {$branch
0ba0: 20 65 71 20 24 73 65 6c 66 7d 20 62 72 65 61 6b eq $self} break
0bb0: 0a 09 20 20 20 20 24 6d 79 73 79 6d 62 6f 6c 20 .. $mysymbol
0bc0: 70 6f 73 73 69 62 6c 65 70 61 72 65 6e 74 20 5b possibleparent [
0bd0: 24 62 72 61 6e 63 68 20 73 79 6d 62 6f 6c 5d 0a $branch symbol].
0be0: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
0bf0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 54 61 67 .. method Tag
0c00: 50 61 72 65 6e 74 73 20 7b 7d 20 7b 0a 09 23 20 Parents {} {..#
0c10: 54 68 65 20 22 6f 62 76 69 6f 75 73 22 20 70 61 The "obvious" pa
0c20: 72 65 6e 74 20 6f 66 20 61 20 74 61 67 20 69 73 rent of a tag is
0c30: 20 74 68 65 20 62 72 61 6e 63 68 20 68 6f 6c 64 the branch hold
0c40: 69 6e 67 20 74 68 65 0a 09 23 20 72 65 76 69 73 ing the..# revis
0c50: 69 6f 6e 20 73 70 61 77 6e 69 6e 67 20 74 68 65 ion spawning the
0c60: 20 74 61 67 2e 20 42 72 61 6e 63 68 65 73 20 74 tag. Branches t
0c70: 68 61 74 20 61 72 65 20 73 70 61 77 6e 65 64 20 hat are spawned
0c80: 62 79 20 74 68 65 0a 09 23 20 73 61 6d 65 20 72 by the..# same r
0c90: 65 76 69 73 69 6f 6e 20 61 72 65 20 61 6c 73 6f evision are also
0ca0: 20 70 6f 73 73 69 62 6c 65 20 70 61 72 65 6e 74 possible parent
0cb0: 73 2e 0a 0a 09 24 6d 79 73 79 6d 62 6f 6c 20 70 s....$mysymbol p
0cc0: 6f 73 73 69 62 6c 65 70 61 72 65 6e 74 20 5b 5b ossibleparent [[
0cd0: 24 6d 79 74 61 67 72 65 76 20 6c 6f 64 5d 20 73 $mytagrev lod] s
0ce0: 79 6d 62 6f 6c 5d 0a 0a 09 66 6f 72 65 61 63 68 ymbol]...foreach
0cf0: 20 62 72 61 6e 63 68 20 5b 24 6d 79 74 61 67 72 branch [$mytagr
0d00: 65 76 20 62 72 61 6e 63 68 65 73 5d 20 7b 0a 09 ev branches] {..
0d10: 20 20 20 20 24 6d 79 73 79 6d 62 6f 6c 20 70 6f $mysymbol po
0d20: 73 73 69 62 6c 65 70 61 72 65 6e 74 20 5b 24 62 ssibleparent [$b
0d30: 72 61 6e 63 68 20 73 79 6d 62 6f 6c 5d 0a 09 7d ranch symbol]..}
0d40: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
0d50: 20 20 20 20 23 0a 0a 20 20 20 20 6d 65 74 68 6f #.. metho
0d60: 64 20 69 73 74 72 75 6e 6b 20 7b 7d 20 7b 20 72 d istrunk {} { r
0d70: 65 74 75 72 6e 20 30 20 7d 0a 0a 20 20 20 20 23 eturn 0 }.. #
0d80: 20 42 72 61 6e 63 68 20 61 63 65 73 73 6f 72 20 Branch acessor
0d90: 6d 65 74 68 6f 64 73 2e 0a 0a 20 20 20 20 6d 65 methods... me
0da0: 74 68 6f 64 20 73 65 74 63 68 69 6c 64 72 65 76 thod setchildrev
0db0: 6e 72 20 20 7b 72 65 76 6e 72 7d 20 7b 0a 09 69 nr {revnr} {..i
0dc0: 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 ntegrity assert
0dd0: 7b 24 6d 79 62 72 61 6e 63 68 63 68 69 6c 64 72 {$mybranchchildr
0de0: 65 76 6e 72 20 65 71 20 22 22 7d 20 7b 43 68 69 evnr eq ""} {Chi
0df0: 6c 64 20 61 6c 72 65 61 64 79 20 64 65 66 69 6e ld already defin
0e00: 65 64 7d 0a 09 73 65 74 20 6d 79 62 72 61 6e 63 ed}..set mybranc
0e10: 68 63 68 69 6c 64 72 65 76 6e 72 20 24 72 65 76 hchildrevnr $rev
0e20: 6e 72 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d nr..return. }
0e30: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 .. method set
0e40: 70 6f 73 69 74 69 6f 6e 20 20 7b 6e 7d 20 20 20 position {n}
0e50: 7b 20 73 65 74 20 6d 79 62 72 61 6e 63 68 70 6f { set mybranchpo
0e60: 73 69 74 69 6f 6e 20 24 6e 20 3b 20 72 65 74 75 sition $n ; retu
0e70: 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 rn }. method
0e80: 73 65 74 70 61 72 65 6e 74 20 20 20 20 7b 72 65 setparent {re
0e90: 76 7d 20 7b 20 73 65 74 20 6d 79 62 72 61 6e 63 v} { set mybranc
0ea0: 68 70 61 72 65 6e 74 20 24 72 65 76 20 3b 20 72 hparent $rev ; r
0eb0: 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 eturn }. meth
0ec0: 6f 64 20 73 65 74 63 68 69 6c 64 20 20 20 20 20 od setchild
0ed0: 7b 72 65 76 7d 20 7b 20 73 65 74 20 6d 79 62 72 {rev} { set mybr
0ee0: 61 6e 63 68 63 68 69 6c 64 20 20 24 72 65 76 20 anchchild $rev
0ef0: 3b 20 72 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d ; return }. m
0f00: 65 74 68 6f 64 20 63 75 74 63 68 69 6c 64 20 20 ethod cutchild
0f10: 20 20 20 7b 7d 20 20 20 20 7b 20 73 65 74 20 6d {} { set m
0f20: 79 62 72 61 6e 63 68 63 68 69 6c 64 20 20 22 22 ybranchchild ""
0f30: 20 20 20 3b 20 72 65 74 75 72 6e 20 7d 0a 20 20 ; return }.
0f40: 20 20 6d 65 74 68 6f 64 20 63 75 74 62 72 61 6e method cutbran
0f50: 63 68 70 61 72 65 6e 74 20 7b 7d 20 7b 20 73 65 chparent {} { se
0f60: 74 20 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 t mybranchparent
0f70: 20 22 22 20 20 20 3b 20 72 65 74 75 72 6e 20 7d "" ; return }
0f80: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 62 72 61 .. method bra
0f90: 6e 63 68 6e 72 20 20 20 20 7b 7d 20 7b 20 72 65 nchnr {} { re
0fa0: 74 75 72 6e 20 24 6d 79 6e 72 20 7d 0a 20 20 20 turn $mynr }.
0fb0: 20 6d 65 74 68 6f 64 20 70 61 72 65 6e 74 72 65 method parentre
0fc0: 76 6e 72 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 vnr {} { return
0fd0: 24 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 72 $mybranchparentr
0fe0: 65 76 6e 72 20 7d 0a 20 20 20 20 6d 65 74 68 6f evnr }. metho
0ff0: 64 20 63 68 69 6c 64 72 65 76 6e 72 20 20 7b 7d d childrevnr {}
1000: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 62 72 61 { return $mybra
1010: 6e 63 68 63 68 69 6c 64 72 65 76 6e 72 20 7d 0a nchchildrevnr }.
1020: 20 20 20 20 6d 65 74 68 6f 64 20 68 61 73 63 68 method hasch
1030: 69 6c 64 72 65 76 20 7b 7d 20 7b 20 72 65 74 75 ildrev {} { retu
1040: 72 6e 20 5b 65 78 70 72 20 7b 24 6d 79 62 72 61 rn [expr {$mybra
1050: 6e 63 68 63 68 69 6c 64 72 65 76 6e 72 20 6e 65 nchchildrevnr ne
1060: 20 22 22 7d 5d 20 7d 0a 20 20 20 20 6d 65 74 68 ""}] }. meth
1070: 6f 64 20 68 61 73 63 68 69 6c 64 20 20 20 20 7b od haschild {
1080: 7d 20 7b 20 72 65 74 75 72 6e 20 5b 65 78 70 72 } { return [expr
1090: 20 7b 24 6d 79 62 72 61 6e 63 68 63 68 69 6c 64 {$mybranchchild
10a0: 20 6e 65 20 22 22 7d 5d 20 7d 0a 20 20 20 20 6d ne ""}] }. m
10b0: 65 74 68 6f 64 20 70 61 72 65 6e 74 20 20 20 20 ethod parent
10c0: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d {} { return $m
10d0: 79 62 72 61 6e 63 68 70 61 72 65 6e 74 20 7d 0a ybranchparent }.
10e0: 20 20 20 20 6d 65 74 68 6f 64 20 63 68 69 6c 64 method child
10f0: 20 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 {} { retu
1100: 72 6e 20 24 6d 79 62 72 61 6e 63 68 63 68 69 6c rn $mybranchchil
1110: 64 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 d }. method p
1120: 6f 73 69 74 69 6f 6e 20 20 20 20 7b 7d 20 7b 20 osition {} {
1130: 72 65 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 return $mybranch
1140: 70 6f 73 69 74 69 6f 6e 20 7d 0a 0a 20 20 20 20 position }..
1150: 23 20 54 61 67 20 61 63 65 73 73 6f 72 20 6d 65 # Tag acessor me
1160: 74 68 6f 64 73 2e 0a 0a 20 20 20 20 6d 65 74 68 thods... meth
1170: 6f 64 20 74 61 67 72 65 76 6e 72 20 20 7b 7d 20 od tagrevnr {}
1180: 20 20 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 6e { return $myn
1190: 72 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 r }. method s
11a0: 65 74 74 61 67 72 65 76 20 7b 72 65 76 7d 20 7b ettagrev {rev} {
11b0: 20 73 65 74 20 6d 79 74 61 67 72 65 76 20 24 72 set mytagrev $r
11c0: 65 76 20 3b 20 72 65 74 75 72 6e 20 7d 0a 0a 20 ev ; return }..
11d0: 20 20 20 23 20 44 65 72 69 76 65 64 20 69 6e 66 # Derived inf
11e0: 6f 72 6d 61 74 69 6f 6e 0a 0a 20 20 20 20 6d 65 ormation.. me
11f0: 74 68 6f 64 20 6c 6f 64 20 7b 7d 20 7b 20 72 65 thod lod {} { re
1200: 74 75 72 6e 20 24 6d 79 6c 6f 64 20 7d 0a 0a 20 turn $mylod }..
1210: 20 20 20 6d 65 74 68 6f 64 20 73 65 74 6c 6f 64 method setlod
1220: 20 7b 6c 6f 64 7d 20 7b 0a 09 73 65 74 20 6d 79 {lod} {..set my
1230: 6c 6f 64 20 24 6c 6f 64 0a 09 24 73 65 6c 66 20 lod $lod..$self
1240: 63 68 65 63 6b 6c 6f 64 0a 09 72 65 74 75 72 6e checklod..return
1250: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
1260: 6f 64 20 63 68 65 63 6b 6c 6f 64 20 7b 7d 20 7b od checklod {} {
1270: 0a 09 23 20 43 6f 6e 73 69 73 74 65 6e 63 79 20 ..# Consistency
1280: 63 68 65 63 6b 2e 20 54 68 65 20 73 79 6d 62 6f check. The symbo
1290: 6c 27 73 20 6c 69 6e 65 2d 6f 66 2d 64 65 76 65 l's line-of-deve
12a0: 6c 6f 70 6d 65 6e 74 20 68 61 73 20 74 6f 0a 09 lopment has to..
12b0: 23 20 62 65 20 73 61 6d 65 20 61 73 20 74 68 65 # be same as the
12c0: 20 6c 69 6e 65 2d 6f 66 2d 64 65 76 65 6c 6f 70 line-of-develop
12d0: 6d 65 6e 74 20 6f 66 20 69 74 73 20 73 6f 75 72 ment of its sour
12e0: 63 65 20 28 70 61 72 65 6e 74 0a 09 23 20 72 65 ce (parent..# re
12f0: 76 69 73 69 6f 6e 20 6f 66 20 61 20 62 72 61 6e vision of a bran
1300: 63 68 2c 20 72 65 76 69 73 69 6f 6e 20 6f 66 20 ch, revision of
1310: 61 20 74 61 67 20 69 74 73 65 6c 66 29 2e 0a 0a a tag itself)...
1320: 09 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d .switch -exact -
1330: 2d 20 24 6d 79 74 79 70 65 20 7b 0a 09 20 20 20 - $mytype {..
1340: 20 62 72 61 6e 63 68 20 20 7b 0a 09 09 23 20 48 branch {...# H
1350: 6f 77 65 76 65 72 2c 20 69 67 6e 6f 72 65 20 74 owever, ignore t
1360: 68 69 73 20 69 66 20 74 68 65 20 62 72 61 6e 63 his if the branc
1370: 68 20 73 79 6d 62 6f 6c 20 69 73 0a 09 09 23 20 h symbol is...#
1380: 64 65 74 61 63 68 65 64 2e 0a 09 09 69 66 20 7b detached....if {
1390: 24 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 20 $mybranchparent
13a0: 65 71 20 22 22 7d 20 72 65 74 75 72 6e 0a 0a 09 eq ""} return...
13b0: 09 73 65 74 20 73 6c 6f 64 20 5b 24 6d 79 62 72 .set slod [$mybr
13c0: 61 6e 63 68 70 61 72 65 6e 74 20 6c 6f 64 5d 0a anchparent lod].
13d0: 09 20 20 20 20 7d 0a 09 20 20 20 20 74 61 67 20 . }.. tag
13e0: 20 20 20 20 7b 20 73 65 74 20 73 6c 6f 64 20 5b { set slod [
13f0: 24 6d 79 74 61 67 72 65 76 20 20 20 20 20 20 20 $mytagrev
1400: 6c 6f 64 5d 20 7d 0a 09 7d 0a 0a 09 69 66 20 7b lod] }..}...if {
1410: 24 6d 79 6c 6f 64 20 6e 65 20 24 73 6c 6f 64 7d $mylod ne $slod}
1420: 20 7b 0a 09 20 20 20 20 74 72 6f 75 62 6c 65 20 {.. trouble
1430: 66 61 74 61 6c 20 22 46 6f 72 20 24 6d 79 74 79 fatal "For $myty
1440: 70 65 20 5b 24 6d 79 73 79 6d 62 6f 6c 20 6e 61 pe [$mysymbol na
1450: 6d 65 5d 3a 20 4c 4f 44 20 63 6f 6e 66 6c 69 63 me]: LOD conflic
1460: 74 20 77 69 74 68 20 73 6f 75 72 63 65 2c 20 27 t with source, '
1470: 5b 24 6d 79 6c 6f 64 20 6e 61 6d 65 5d 27 20 76 [$mylod name]' v
1480: 73 2e 20 27 5b 24 73 6c 6f 64 20 6e 61 6d 65 5d s. '[$slod name]
1490: 27 22 0a 09 20 20 20 20 72 65 74 75 72 6e 0a 09 '".. return..
14a0: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
14b0: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
14c0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
14d0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 ############..
14e0: 20 20 6d 65 74 68 6f 64 20 70 65 72 73 69 73 74 method persist
14f0: 20 7b 7d 20 7b 0a 09 23 20 53 61 76 65 20 74 68 {} {..# Save th
1500: 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 65 e information we
1510: 20 6e 65 65 64 20 61 66 74 65 72 20 74 68 65 20 need after the
1520: 63 6f 6c 6c 65 63 74 69 6f 6e 20 70 61 73 73 2e collection pass.
1530: 0a 0a 09 73 65 74 20 66 69 64 20 5b 24 6d 79 66 ...set fid [$myf
1540: 69 6c 65 20 20 20 69 64 5d 0a 09 73 65 74 20 73 ile id]..set s
1550: 69 64 20 5b 24 6d 79 73 79 6d 62 6f 6c 20 69 64 id [$mysymbol id
1560: 5d 0a 09 73 65 74 20 6c 6f 64 20 5b 24 6d 79 6c ]..set lod [$myl
1570: 6f 64 20 20 20 20 69 64 5d 0a 0a 09 73 77 69 74 od id]...swit
1580: 63 68 20 2d 65 78 61 63 74 20 2d 2d 20 24 6d 79 ch -exact -- $my
1590: 74 79 70 65 20 7b 0a 09 20 20 20 20 74 61 67 20 type {.. tag
15a0: 7b 0a 09 09 73 65 74 20 72 69 64 20 5b 24 6d 79 {...set rid [$my
15b0: 74 61 67 72 65 76 20 69 64 5d 0a 09 09 73 74 61 tagrev id]...sta
15c0: 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b te transaction {
15d0: 0a 09 09 20 20 20 20 73 74 61 74 65 20 72 75 6e ... state run
15e0: 20 7b 0a 09 09 09 49 4e 53 45 52 54 20 49 4e 54 {....INSERT INT
15f0: 4f 20 74 61 67 20 28 20 74 69 64 2c 20 20 20 66 O tag ( tid, f
1600: 69 64 2c 20 20 6c 6f 64 2c 20 20 73 69 64 2c 20 id, lod, sid,
1610: 20 72 65 76 29 0a 09 09 09 56 41 4c 55 45 53 20 rev)....VALUES
1620: 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c ($myid,
1630: 20 24 66 69 64 2c 20 24 6c 6f 64 2c 20 24 73 69 $fid, $lod, $si
1640: 64 2c 20 24 72 69 64 29 3b 0a 09 09 20 20 20 20 d, $rid);...
1650: 7d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 }...}.. }..
1660: 20 20 62 72 61 6e 63 68 20 7b 0a 09 09 6c 61 70 branch {...lap
1670: 70 65 6e 64 20 6d 61 70 20 40 46 40 20 5b 65 78 pend map @F@ [ex
1680: 70 72 20 7b 20 28 24 6d 79 62 72 61 6e 63 68 63 pr { ($mybranchc
1690: 68 69 6c 64 20 20 65 71 20 22 22 29 20 3f 20 22 hild eq "") ? "
16a0: 4e 55 4c 4c 22 20 3a 20 5b 24 6d 79 62 72 61 6e NULL" : [$mybran
16b0: 63 68 63 68 69 6c 64 20 20 69 64 5d 20 7d 5d 0a chchild id] }].
16c0: 09 09 6c 61 70 70 65 6e 64 20 6d 61 70 20 40 50 ..lappend map @P
16d0: 40 20 5b 65 78 70 72 20 7b 20 28 24 6d 79 62 72 @ [expr { ($mybr
16e0: 61 6e 63 68 70 61 72 65 6e 74 20 65 71 20 22 22 anchparent eq ""
16f0: 29 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 5b 24 6d ) ? "NULL" : [$m
1700: 79 62 72 61 6e 63 68 70 61 72 65 6e 74 20 69 64 ybranchparent id
1710: 5d 20 7d 5d 0a 0a 09 09 73 65 74 20 63 6d 64 20 ] }]....set cmd
1720: 7b 0a 09 09 20 20 20 20 49 4e 53 45 52 54 20 49 {... INSERT I
1730: 4e 54 4f 20 62 72 61 6e 63 68 20 28 20 62 69 64 NTO branch ( bid
1740: 2c 20 20 20 66 69 64 2c 20 20 6c 6f 64 2c 20 20 , fid, lod,
1750: 73 69 64 2c 20 20 72 6f 6f 74 2c 20 66 69 72 73 sid, root, firs
1760: 74 2c 20 62 72 61 2c 20 20 70 6f 73 20 20 20 20 t, bra, pos
1770: 20 20 20 20 20 20 20 20 20 20 29 0a 09 09 20 20 )...
1780: 20 20 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 VALUES
1790: 20 20 20 20 20 28 24 6d 79 69 64 2c 20 24 66 69 ($myid, $fi
17a0: 64 2c 20 24 6c 6f 64 2c 20 24 73 69 64 2c 20 20 d, $lod, $sid,
17b0: 40 50 40 2c 20 20 40 46 40 2c 20 20 24 6d 79 6e @P@, @F@, $myn
17c0: 72 2c 20 24 6d 79 62 72 61 6e 63 68 70 6f 73 69 r, $mybranchposi
17d0: 74 69 6f 6e 29 3b 0a 09 09 7d 0a 09 09 73 74 61 tion);...}...sta
17e0: 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b te transaction {
17f0: 0a 09 09 20 20 20 20 73 74 61 74 65 20 72 75 6e ... state run
1800: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 24 6d 61 [string map $ma
1810: 70 20 24 63 6d 64 5d 0a 09 09 7d 0a 09 20 20 20 p $cmd]...}..
1820: 20 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 0a 20 }..}...return.
1830: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
1840: 20 44 55 4d 50 20 7b 6c 61 62 65 6c 7d 20 7b 0a DUMP {label} {.
1850: 09 70 75 74 73 20 22 24 6c 61 62 65 6c 20 3d 20 .puts "$label =
1860: 24 73 65 6c 66 20 24 6d 79 74 79 70 65 20 5b 24 $self $mytype [$
1870: 73 65 6c 66 20 6e 61 6d 65 5d 20 5c 7b 22 0a 09 self name] \{"..
1880: 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d 2d switch -exact --
1890: 20 24 6d 79 74 79 70 65 20 7b 0a 09 20 20 20 20 $mytype {..
18a0: 74 61 67 20 7b 0a 09 09 70 75 74 73 20 22 5c 74 tag {...puts "\t
18b0: 52 5c 74 24 6d 79 74 61 67 72 65 76 22 0a 09 20 R\t$mytagrev"..
18c0: 20 20 20 7d 0a 09 20 20 20 20 62 72 61 6e 63 68 }.. branch
18d0: 20 7b 0a 09 09 70 75 74 73 20 22 5c 74 50 5c 74 {...puts "\tP\t
18e0: 24 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 22 $mybranchparent"
18f0: 0a 09 09 70 75 74 73 20 22 5c 74 43 5c 74 24 6d ...puts "\tC\t$m
1900: 79 62 72 61 6e 63 68 63 68 69 6c 64 22 0a 09 09 ybranchchild"...
1910: 70 75 74 73 20 22 5c 74 5c 74 3c 24 6d 79 6e 72 puts "\t\t<$mynr
1920: 3e 22 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 70 75 >".. }..}..pu
1930: 74 73 20 22 5c 7d 22 0a 09 72 65 74 75 72 6e 0a ts "\}"..return.
1940: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 }.. # # #
1950: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
1960: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
1970: 23 23 0a 20 20 20 20 23 23 20 53 74 61 74 65 0a ##. ## State.
1980: 0a 20 20 20 20 23 20 50 65 72 73 69 73 74 65 6e . # Persisten
1990: 74 3a 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 t:. #
19a0: 54 61 67 3a 20 6d 79 69 64 20 20 20 20 20 20 20 Tag: myid
19b0: 20 20 20 20 2d 20 74 61 67 2e 74 69 64 0a 20 20 - tag.tid.
19c0: 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 #
19d0: 6d 79 66 69 6c 65 20 20 20 20 20 20 20 20 20 2d myfile -
19e0: 20 74 61 67 2e 66 69 64 0a 20 20 20 20 23 20 20 tag.fid. #
19f0: 20 20 20 20 20 20 20 20 20 20 20 6d 79 6c 6f 64 mylod
1a00: 20 20 20 20 20 20 20 20 20 20 2d 20 74 61 67 2e - tag.
1a10: 6c 6f 64 0a 20 20 20 20 23 20 20 20 20 20 20 20 lod. #
1a20: 20 20 20 20 20 20 6d 79 73 79 6d 62 6f 6c 20 20 mysymbol
1a30: 20 20 20 20 20 2d 20 74 61 67 2e 73 69 64 0a 20 - tag.sid.
1a40: 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 #
1a50: 20 6d 79 74 61 67 72 65 76 20 20 20 20 20 20 20 mytagrev
1a60: 2d 20 74 61 67 2e 72 65 76 0a 20 20 20 20 23 0a - tag.rev. #.
1a70: 20 20 20 20 23 20 20 20 20 20 42 72 61 6e 63 68 # Branch
1a80: 3a 20 6d 79 69 64 20 20 20 20 20 20 20 20 20 20 : myid
1a90: 20 2d 20 62 72 61 6e 63 68 2e 62 69 64 0a 20 20 - branch.bid.
1aa0: 20 20 23 09 09 20 20 6d 79 66 69 6c 65 20 20 20 #.. myfile
1ab0: 20 20 20 20 20 20 2d 20 62 72 61 6e 63 68 2e 66 - branch.f
1ac0: 69 64 0a 20 20 20 20 23 09 09 20 20 6d 79 6c 6f id. #.. mylo
1ad0: 64 20 20 20 20 20 20 20 20 20 20 2d 20 62 72 61 d - bra
1ae0: 6e 63 68 2e 6c 6f 64 0a 20 20 20 20 23 20 20 20 nch.lod. #
1af0: 20 20 20 20 20 20 20 20 20 20 6d 79 73 79 6d 62 mysymb
1b00: 6f 6c 20 20 20 20 20 20 20 2d 20 62 72 61 6e 63 ol - branc
1b10: 68 2e 73 69 64 0a 20 20 20 20 23 20 20 20 20 20 h.sid. #
1b20: 20 20 20 20 20 20 20 20 6d 79 62 72 61 6e 63 68 mybranch
1b30: 70 61 72 65 6e 74 20 2d 20 62 72 61 6e 63 68 2e parent - branch.
1b40: 72 6f 6f 74 0a 20 20 20 20 23 20 20 20 20 20 20 root. #
1b50: 20 20 20 20 20 20 20 6d 79 62 72 61 6e 63 68 63 mybranchc
1b60: 68 69 6c 64 20 20 2d 20 62 72 61 6e 63 68 2e 66 hild - branch.f
1b70: 69 72 73 74 0a 20 20 20 20 23 20 20 20 20 20 20 irst. #
1b80: 20 20 20 20 20 20 20 6d 79 6e 72 20 20 20 20 20 mynr
1b90: 20 20 20 20 20 20 2d 20 62 72 61 6e 63 68 2e 62 - branch.b
1ba0: 72 61 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 ra.. typevari
1bb0: 61 62 6c 65 20 6d 79 69 64 63 6f 75 6e 74 65 72 able myidcounter
1bc0: 20 30 20 3b 20 23 20 43 6f 75 6e 74 65 72 20 66 0 ; # Counter f
1bd0: 6f 72 20 73 79 6d 62 6f 6c 20 69 64 73 2e 0a 20 or symbol ids..
1be0: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 69 64 variable myid
1bf0: 20 20 20 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 {} ;
1c00: 23 20 53 79 6d 62 6f 6c 20 69 64 2e 0a 0a 20 20 # Symbol id...
1c10: 20 20 23 23 20 42 61 73 69 63 2c 20 61 6c 6c 20 ## Basic, all
1c20: 73 79 6d 62 6f 6c 73 20 5f 5f 5f 5f 5f 5f 5f 5f symbols ________
1c30: 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 76 _________.. v
1c40: 61 72 69 61 62 6c 65 20 6d 79 66 69 6c 65 20 20 ariable myfile
1c50: 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 {} ; # Referenc
1c60: 65 20 74 6f 20 74 68 65 20 66 69 6c 65 20 74 68 e to the file th
1c70: 65 20 73 79 6d 62 6f 6c 20 69 73 20 69 6e 2e 0a e symbol is in..
1c80: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 74 variable myt
1c90: 79 70 65 20 20 20 7b 7d 20 3b 20 23 20 53 79 6d ype {} ; # Sym
1ca0: 62 6f 6c 20 74 79 70 65 2c 20 27 74 61 67 27 2c bol type, 'tag',
1cb0: 20 6f 72 20 27 62 72 61 6e 63 68 27 2e 0a 20 20 or 'branch'..
1cc0: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 6e 72 20 variable mynr
1cd0: 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 76 69 73 {} ; # Revis
1ce0: 69 6f 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61 20 ion number of a
1cf0: 27 74 61 67 27 2c 20 62 72 61 6e 63 68 20 6e 75 'tag', branch nu
1d00: 6d 62 65 72 0a 09 09 09 20 20 20 23 20 6f 66 20 mber.... # of
1d10: 61 20 27 62 72 61 6e 63 68 27 2e 0a 20 20 20 20 a 'branch'..
1d20: 76 61 72 69 61 62 6c 65 20 6d 79 73 79 6d 62 6f variable mysymbo
1d30: 6c 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e l {} ; # Referen
1d40: 63 65 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c ce to the symbol
1d50: 20 6f 62 6a 65 63 74 20 6f 66 20 74 68 69 73 0a object of this.
1d60: 09 09 09 20 20 20 23 20 73 79 6d 62 6f 6c 20 61 ... # symbol a
1d70: 74 20 74 68 65 20 70 72 6f 6a 65 63 74 20 6c 65 t the project le
1d80: 76 65 6c 2e 0a 20 20 20 20 76 61 72 69 61 62 6c vel.. variabl
1d90: 65 20 6d 79 6c 6f 64 20 20 20 20 7b 7d 20 3b 20 e mylod {} ;
1da0: 23 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 74 # Reference to t
1db0: 68 65 20 6c 69 6e 65 2d 6f 66 2d 64 65 76 65 6c he line-of-devel
1dc0: 6f 70 6d 65 6e 74 0a 09 09 09 20 20 20 23 20 6f opment.... # o
1dd0: 62 6a 65 63 74 20 74 68 65 20 73 79 6d 62 6f 6c bject the symbol
1de0: 20 62 65 6c 6f 6e 67 73 20 74 6f 2e 20 41 6e 0a belongs to. An.
1df0: 09 09 09 20 20 20 23 20 61 6c 74 65 72 6e 61 74 ... # alternat
1e00: 69 76 65 20 69 64 69 6f 6d 20 77 6f 75 6c 64 20 ive idiom would
1e10: 62 65 20 74 6f 20 63 61 6c 6c 20 69 74 20 74 68 be to call it th
1e20: 65 0a 09 09 09 20 20 20 23 20 62 72 61 6e 63 68 e.... # branch
1e30: 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 6f the symbol is o
1e40: 6e 2e 20 54 68 69 73 20 72 65 66 65 72 65 6e 63 n. This referenc
1e50: 65 0a 09 09 09 20 20 20 23 20 69 73 20 74 6f 20 e.... # is to
1e60: 61 20 70 72 6f 6a 65 63 74 2d 6c 65 76 65 6c 20 a project-level
1e70: 6f 62 6a 65 63 74 20 28 73 79 6d 62 6f 6c 20 6f object (symbol o
1e80: 72 0a 09 09 09 20 20 20 23 20 74 72 75 6e 6b 29 r.... # trunk)
1e90: 2e 0a 0a 20 20 20 20 23 23 20 42 72 61 6e 63 68 ... ## Branch
1ea0: 20 73 79 6d 62 6f 6c 73 20 5f 5f 5f 5f 5f 5f 5f symbols _______
1eb0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a ______________..
1ec0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 62 variable myb
1ed0: 72 61 6e 63 68 70 61 72 65 6e 74 72 65 76 6e 72 ranchparentrevnr
1ee0: 20 7b 7d 20 3b 20 23 20 54 68 65 20 6e 75 6d 62 {} ; # The numb
1ef0: 65 72 20 6f 66 20 74 68 65 20 70 61 72 65 6e 74 er of the parent
1f00: 0a 09 09 09 09 20 20 20 20 20 20 23 20 72 65 76 ..... # rev
1f10: 69 73 69 6f 6e 2c 20 64 65 72 69 76 65 64 20 66 ision, derived f
1f20: 72 6f 6d 20 6f 75 72 0a 09 09 09 09 20 20 20 20 rom our.....
1f30: 20 20 23 20 62 72 61 6e 63 68 20 6e 75 6d 62 65 # branch numbe
1f40: 72 20 28 6d 79 6e 72 29 2e 0a 20 20 20 20 76 61 r (mynr).. va
1f50: 72 69 61 62 6c 65 20 6d 79 62 72 61 6e 63 68 70 riable mybranchp
1f60: 61 72 65 6e 74 20 20 20 20 20 20 7b 7d 20 3b 20 arent {} ;
1f70: 23 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 74 # Reference to t
1f80: 68 65 20 72 65 76 69 73 69 6f 6e 0a 09 09 09 09 he revision.....
1f90: 20 20 20 20 20 20 23 20 28 6f 62 6a 65 63 74 29 # (object)
1fa0: 20 77 68 69 63 68 20 73 70 61 77 6e 73 20 74 68 which spawns th
1fb0: 65 0a 09 09 09 09 20 20 20 20 20 20 23 20 62 72 e..... # br
1fc0: 61 6e 63 68 2e 0a 20 20 20 20 76 61 72 69 61 62 anch.. variab
1fd0: 6c 65 20 6d 79 62 72 61 6e 63 68 63 68 69 6c 64 le mybranchchild
1fe0: 72 65 76 6e 72 20 20 7b 7d 20 3b 20 23 20 4e 75 revnr {} ; # Nu
1ff0: 6d 62 65 72 20 6f 66 20 74 68 65 20 66 69 72 73 mber of the firs
2000: 74 20 72 65 76 69 73 69 6f 6e 0a 09 09 09 09 20 t revision.....
2010: 20 20 20 20 20 23 20 63 6f 6d 6d 69 74 74 65 64 # committed
2020: 20 6f 6e 20 74 68 69 73 20 62 72 61 6e 63 68 2e on this branch.
2030: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
2040: 62 72 61 6e 63 68 63 68 69 6c 64 20 20 20 20 20 branchchild
2050: 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 65 6e {} ; # Referen
2060: 63 65 20 74 6f 20 74 68 65 20 72 65 76 69 73 69 ce to the revisi
2070: 6f 6e 0a 09 09 09 09 20 20 20 20 20 20 23 20 28 on..... # (
2080: 6f 62 6a 65 63 74 29 20 66 69 72 73 74 20 63 6f object) first co
2090: 6d 6d 69 74 74 65 64 20 6f 6e 0a 09 09 09 09 20 mmitted on.....
20a0: 20 20 20 20 20 23 20 74 68 69 73 20 62 72 61 6e # this bran
20b0: 63 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ch.. variable
20c0: 20 6d 79 62 72 61 6e 63 68 70 6f 73 69 74 69 6f mybranchpositio
20d0: 6e 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 6c 61 n {} ; # Rela
20e0: 74 69 76 65 20 69 64 20 6f 66 20 74 68 65 20 62 tive id of the b
20f0: 72 61 6e 63 68 20 69 6e 0a 09 09 09 09 20 20 20 ranch in.....
2100: 20 20 20 23 20 74 68 65 20 66 69 6c 65 2c 20 74 # the file, t
2110: 6f 20 73 6f 72 74 20 69 6e 74 6f 0a 09 09 09 09 o sort into.....
2120: 20 20 20 20 20 20 23 20 63 72 65 61 74 69 6f 6e # creation
2130: 20 6f 72 64 65 72 2e 0a 0a 20 20 20 20 23 23 20 order... ##
2140: 54 61 67 20 73 79 6d 62 6f 6c 73 20 5f 5f 5f 5f Tag symbols ____
2150: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
2160: 5f 5f 5f 5f 0a 0a 20 20 20 20 76 61 72 69 61 62 ____.. variab
2170: 6c 65 20 6d 79 74 61 67 72 65 76 20 7b 7d 20 3b le mytagrev {} ;
2180: 20 23 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 # Reference to
2190: 74 68 65 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a the revision obj
21a0: 65 63 74 20 74 68 65 20 74 61 67 0a 09 09 09 20 ect the tag....
21b0: 20 20 23 20 69 73 20 6f 6e 2c 20 69 64 65 6e 74 # is on, ident
21c0: 69 66 69 65 64 20 62 79 20 27 6d 79 6e 72 27 2e ified by 'mynr'.
21d0: 0a 0a 20 20 20 20 23 20 2e 2e 2e 20 6e 6f 74 68 .. # ... noth
21e0: 69 6e 67 20 73 70 65 63 69 61 6c 20 2e 2e 2e 20 ing special ...
21f0: 28 6f 6e 6c 79 20 6d 79 6e 72 2c 20 73 65 65 20 (only mynr, see
2200: 62 61 73 69 63 29 0a 0a 20 20 20 20 23 20 23 20 basic).. # #
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 20 20 20 20 23 23 20 49 6e 74 65 72 ###. ## Inter
2240: 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 nal methods..
2250: 20 70 72 6f 63 20 53 65 74 75 70 42 72 61 6e 63 proc SetupBranc
2260: 68 20 7b 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 h {} {..upvar 1
2270: 6d 79 62 72 61 6e 63 68 70 61 72 65 6e 74 72 65 mybranchparentre
2280: 76 6e 72 20 6d 79 62 72 61 6e 63 68 70 61 72 65 vnr mybranchpare
2290: 6e 74 72 65 76 6e 72 20 6d 79 6e 72 20 6d 79 6e ntrevnr mynr myn
22a0: 72 0a 09 73 65 74 20 6d 79 62 72 61 6e 63 68 70 r..set mybranchp
22b0: 61 72 65 6e 74 72 65 76 6e 72 20 5b 72 65 76 20 arentrevnr [rev
22c0: 32 62 72 61 6e 63 68 70 61 72 65 6e 74 72 65 76 2branchparentrev
22d0: 6e 72 20 20 24 6d 79 6e 72 5d 0a 09 72 65 74 75 nr $mynr]..retu
22e0: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 rn. }.. #
22f0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
2300: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
2310: 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 6f 6e #####. ## Con
2320: 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 figuration..
2330: 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 pragma -hastypei
2340: 6e 66 6f 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e nfo no ; # n
2350: 6f 20 74 79 70 65 20 69 6e 74 72 6f 73 70 65 63 o type introspec
2360: 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 tion. pragma
2370: 2d 68 61 73 69 6e 66 6f 20 20 20 20 20 20 20 20 -hasinfo
2380: 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f 62 6a 65 63 no ; # no objec
2390: 74 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a t introspection.
23a0: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 pragma -hast
23b0: 79 70 65 6d 65 74 68 6f 64 73 20 6e 6f 20 20 3b ypemethods no ;
23c0: 20 23 20 74 79 70 65 20 69 73 20 6e 6f 74 20 72 # type is not r
23d0: 65 6c 65 76 61 6e 74 2e 0a 0a 20 20 20 20 23 20 elevant... #
23e0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
23f0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
2400: 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 #####.}..namespa
2410: 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f ce eval ::vc::fo
2420: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
2430: 73 3a 3a 66 69 6c 65 20 7b 0a 20 20 20 20 6e 61 s::file {. na
2440: 6d 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 73 mespace export s
2450: 79 6d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 ym. namespace
2460: 20 65 76 61 6c 20 73 79 6d 20 7b 0a 09 6e 61 6d eval sym {..nam
2470: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
2480: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
2490: 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 72 rt::cvs::file::r
24a0: 65 76 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d ev..namespace im
24b0: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
24c0: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
24d0: 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 63 65 state..namespace
24e0: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
24f0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
2500: 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 6e 61 s::integrity..na
2510: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
2520: 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 :vc::tools::trou
2530: 62 6c 65 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 ble. }.}..# #
2540: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
2550: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
2560: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
2570: 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 ##########.## Re
2580: 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f ady..package pro
2590: 76 69 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a vide vc::fossil:
25a0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 :import::cvs::fi
25b0: 6c 65 3a 3a 73 79 6d 20 31 2e 30 0a 72 65 74 75 le::sym 1.0.retu
25c0: 72 6e 0a rn.