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 52 65 76 ########..## Rev
0200: 69 73 69 6f 6e 73 20 70 65 72 20 66 69 6c 65 2e isions per file.
0210: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
0220: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
0230: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
0250: 23 23 20 52 65 71 75 69 72 65 6d 65 6e 74 73 0a ## Requirements.
0260: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0270: 20 54 63 6c 20 38 2e 34 20 20 20 20 20 20 20 20 Tcl 8.4
0280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0290: 20 20 20 20 20 3b 20 23 20 52 65 71 75 69 72 65 ; # Require
02a0: 64 20 72 75 6e 74 69 6d 65 2e 0a 70 61 63 6b 61 d runtime..packa
02b0: 67 65 20 72 65 71 75 69 72 65 20 73 6e 69 74 20 ge require snit
02c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ;
02e0: 20 23 20 4f 4f 20 73 79 73 74 65 6d 2e 0a 70 61 # OO system..pa
02f0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
0300: 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 20 20 ::tools::misc
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0320: 20 20 3b 20 23 20 54 65 78 74 20 66 6f 72 6d 61 ; # Text forma
0330: 74 74 69 6e 67 0a 70 61 63 6b 61 67 65 20 72 65 tting.package re
0340: 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c quire vc::fossil
0350: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 ::import::cvs::s
0360: 74 61 74 65 20 20 20 20 20 20 3b 20 23 20 53 74 tate ; # St
0370: 61 74 65 20 73 74 6f 72 61 67 65 2e 0a 0a 23 20 ate storage...#
0380: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
0390: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
03a0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
03b0: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 0a ###########.## .
03c0: 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 63 .snit::type ::vc
03d0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
03e0: 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 72 65 76 ::cvs::file::rev
03f0: 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 {. # # ## ##
0400: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
0410: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 #############.
0420: 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 ## Public API
0430: 0a 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f .. constructo
0440: 72 20 7b 72 65 76 6e 72 20 64 61 74 65 20 73 74 r {revnr date st
0450: 61 74 65 20 74 68 65 66 69 6c 65 7d 20 7b 0a 09 ate thefile} {..
0460: 73 65 74 20 6d 79 72 65 76 6e 72 20 20 20 20 24 set myrevnr $
0470: 72 65 76 6e 72 0a 09 73 65 74 20 6d 79 64 61 74 revnr..set mydat
0480: 65 20 20 20 20 20 24 64 61 74 65 0a 09 73 65 74 e $date..set
0490: 20 6d 79 6f 72 69 67 64 61 74 65 20 24 64 61 74 myorigdate $dat
04a0: 65 0a 09 73 65 74 20 6d 79 73 74 61 74 65 20 20 e..set mystate
04b0: 20 20 24 73 74 61 74 65 0a 09 73 65 74 20 6d 79 $state..set my
04c0: 66 69 6c 65 20 20 20 20 20 24 74 68 65 66 69 6c file $thefil
04d0: 65 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a e..return. }.
04e0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 65 66 69 . method defi
04f0: 64 20 7b 7d 20 7b 0a 09 73 65 74 20 6d 79 69 64 d {} {..set myid
0500: 20 5b 69 6e 63 72 20 6d 79 69 64 63 6f 75 6e 74 [incr myidcount
0510: 65 72 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 er]..return.
0520: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 64 }.. method id
0530: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 {} { return $my
0540: 69 64 20 7d 0a 0a 20 20 20 20 23 20 42 61 73 69 id }.. # Basi
0550: 63 20 70 69 65 63 65 73 20 5f 5f 5f 5f 5f 5f 5f c pieces _______
0560: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
0570: 5f 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 68 61 _.. method ha
0580: 73 6d 65 74 61 20 7b 7d 20 7b 20 72 65 74 75 72 smeta {} { retur
0590: 6e 20 5b 65 78 70 72 20 7b 24 6d 79 6d 65 74 61 n [expr {$mymeta
05a0: 69 64 20 6e 65 20 22 22 7d 5d 20 7d 0a 20 20 20 id ne ""}] }.
05b0: 20 6d 65 74 68 6f 64 20 68 61 73 74 65 78 74 20 method hastext
05c0: 7b 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c 69 {} {..struct::li
05d0: 73 74 20 61 73 73 69 67 6e 20 24 6d 79 74 65 78 st assign $mytex
05e0: 74 20 73 20 65 0a 09 72 65 74 75 72 6e 20 5b 65 t s e..return [e
05f0: 78 70 72 20 7b 24 73 20 3c 3d 20 24 65 7d 5d 0a xpr {$s <= $e}].
0600: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
0610: 64 20 73 65 74 6d 65 74 61 20 7b 6d 65 74 61 7d d setmeta {meta}
0620: 20 7b 20 73 65 74 20 6d 79 6d 65 74 61 69 64 20 { set mymetaid
0630: 24 6d 65 74 61 20 3b 20 72 65 74 75 72 6e 20 7d $meta ; return }
0640: 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 74 . method sett
0650: 65 78 74 20 7b 74 65 78 74 7d 20 7b 20 73 65 74 ext {text} { set
0660: 20 6d 79 74 65 78 74 20 20 20 24 74 65 78 74 20 mytext $text
0670: 3b 20 72 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d ; return }. m
0680: 65 74 68 6f 64 20 73 65 74 6c 6f 64 20 20 7b 6c ethod setlod {l
0690: 6f 64 7d 20 20 7b 20 73 65 74 20 6d 79 6c 6f 64 od} { set mylod
06a0: 20 20 20 20 24 6c 6f 64 20 20 3b 20 72 65 74 75 $lod ; retu
06b0: 72 6e 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 rn }.. method
06c0: 20 72 65 76 6e 72 20 7b 7d 20 7b 20 72 65 74 75 revnr {} { retu
06d0: 72 6e 20 24 6d 79 72 65 76 6e 72 20 7d 0a 20 20 rn $myrevnr }.
06e0: 20 20 6d 65 74 68 6f 64 20 73 74 61 74 65 20 7b method state {
06f0: 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 73 74 } { return $myst
0700: 61 74 65 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 ate }. method
0710: 20 6c 6f 64 20 20 20 7b 7d 20 7b 20 72 65 74 75 lod {} { retu
0720: 72 6e 20 24 6d 79 6c 6f 64 20 20 20 7d 0a 20 20 rn $mylod }.
0730: 20 20 6d 65 74 68 6f 64 20 64 61 74 65 20 20 7b method date {
0740: 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 64 61 } { return $myda
0750: 74 65 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f te }.. metho
0760: 64 20 69 73 6e 65 65 64 65 64 20 7b 7d 20 7b 0a d isneeded {} {.
0770: 09 69 66 20 7b 24 6d 79 6f 70 65 72 61 74 69 6f .if {$myoperatio
0780: 6e 20 6e 65 20 22 6e 6f 74 68 69 6e 67 22 7d 20 n ne "nothing"}
0790: 20 20 20 20 20 20 20 20 7b 72 65 74 75 72 6e 20 {return
07a0: 31 7d 0a 09 69 66 20 7b 24 6d 79 72 65 76 6e 72 1}..if {$myrevnr
07b0: 20 6e 65 20 22 31 2e 31 22 7d 20 20 20 20 20 20 ne "1.1"}
07c0: 20 20 20 20 20 20 20 20 20 20 20 7b 72 65 74 75 {retu
07d0: 72 6e 20 31 7d 0a 09 69 66 20 7b 21 5b 24 6d 79 rn 1}..if {![$my
07e0: 6c 6f 64 20 69 73 74 72 75 6e 6b 5d 7d 20 20 20 lod istrunk]}
07f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 72 {r
0800: 65 74 75 72 6e 20 31 7d 0a 09 69 66 20 7b 21 5b eturn 1}..if {![
0810: 6c 6c 65 6e 67 74 68 20 24 6d 79 62 72 61 6e 63 llength $mybranc
0820: 68 65 73 5d 7d 20 20 20 20 20 20 20 20 20 20 20 hes]}
0830: 20 7b 72 65 74 75 72 6e 20 31 7d 0a 09 73 65 74 {return 1}..set
0840: 20 66 69 72 73 74 62 72 61 6e 63 68 20 5b 6c 69 firstbranch [li
0850: 6e 64 65 78 20 24 6d 79 62 72 61 6e 63 68 65 73 ndex $mybranches
0860: 20 30 5d 0a 09 69 66 20 7b 21 5b 24 66 69 72 73 0]..if {![$firs
0870: 74 62 72 61 6e 63 68 20 68 61 73 63 68 69 6c 64 tbranch haschild
0880: 5d 7d 20 20 20 20 20 20 20 20 20 20 7b 72 65 74 ]} {ret
0890: 75 72 6e 20 31 7d 0a 09 69 66 20 7b 24 6d 79 69 urn 1}..if {$myi
08a0: 73 6f 6e 64 65 66 61 75 6c 74 62 72 61 6e 63 68 sondefaultbranch
08b0: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b } {
08c0: 72 65 74 75 72 6e 20 31 7d 0a 0a 09 23 20 46 49 return 1}...# FI
08d0: 58 3a 20 54 68 69 73 20 6d 65 73 73 61 67 65 20 X: This message
08e0: 77 69 6c 6c 20 6e 6f 74 20 6d 61 74 63 68 20 69 will not match i
08f0: 66 20 74 68 65 20 52 43 53 20 66 69 6c 65 20 77 f the RCS file w
0900: 61 73 20 72 65 6e 61 6d 65 64 0a 09 23 20 6d 61 as renamed..# ma
0910: 6e 75 61 6c 6c 79 20 61 66 74 65 72 20 69 74 20 nually after it
0920: 77 61 73 20 63 72 65 61 74 65 64 2e 0a 0a 09 73 was created....s
0930: 65 74 20 67 65 6e 20 22 66 69 6c 65 20 5b 66 69 et gen "file [fi
0940: 6c 65 20 74 61 69 6c 20 5b 24 6d 79 66 69 6c 65 le tail [$myfile
0950: 20 75 73 72 70 61 74 68 5d 5d 20 77 61 73 20 69 usrpath]] was i
0960: 6e 69 74 69 61 6c 6c 79 20 61 64 64 65 64 20 6f nitially added o
0970: 6e 20 62 72 61 6e 63 68 20 5b 24 66 69 72 73 74 n branch [$first
0980: 62 72 61 6e 63 68 20 6e 61 6d 65 5d 2e 22 0a 09 branch name]."..
0990: 73 65 74 20 6c 6f 67 20 5b 24 6d 79 66 69 6c 65 set log [$myfile
09a0: 20 63 6f 6d 6d 69 74 6d 65 73 73 61 67 65 6f 66 commitmessageof
09b0: 20 24 6d 79 6d 65 74 61 69 64 5d 0a 0a 09 72 65 $mymetaid]...re
09c0: 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 6c 6f 67 turn [expr {$log
09d0: 20 6e 65 20 24 67 65 6e 7d 5d 0a 20 20 20 20 7d ne $gen}]. }
09e0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 73 6e .. method isn
09f0: 65 65 64 65 64 62 72 61 6e 63 68 64 65 6c 20 7b eededbranchdel {
0a00: 7d 20 7b 0a 09 69 66 20 7b 24 6d 79 70 61 72 65 } {..if {$mypare
0a10: 6e 74 62 72 61 6e 63 68 20 65 71 20 22 22 7d 20 ntbranch eq ""}
0a20: 20 20 20 20 20 20 20 20 20 20 7b 72 65 74 75 72 {retur
0a30: 6e 20 31 7d 20 3b 20 23 20 6e 6f 74 20 66 69 72 n 1} ; # not fir
0a40: 73 74 20 6f 6e 20 61 20 62 72 61 6e 63 68 2c 20 st on a branch,
0a50: 6e 65 65 64 65 64 0a 09 73 65 74 20 62 61 73 65 needed..set base
0a60: 20 5b 24 6d 79 70 61 72 65 6e 74 62 72 61 6e 63 [$myparentbranc
0a70: 68 20 70 61 72 65 6e 74 5d 0a 09 69 66 20 7b 24 h parent]..if {$
0a80: 62 61 73 65 20 20 20 20 20 20 20 20 20 20 20 65 base e
0a90: 71 20 22 22 7d 20 20 20 20 20 20 20 20 20 20 20 q ""}
0aa0: 7b 72 65 74 75 72 6e 20 31 7d 20 3b 20 23 20 62 {return 1} ; # b
0ab0: 72 61 6e 63 68 20 68 61 73 20 70 61 72 65 6e 74 ranch has parent
0ac0: 20 6c 6f 64 2c 20 6e 65 65 64 65 64 0a 09 69 66 lod, needed..if
0ad0: 20 7b 5b 24 73 65 6c 66 20 4c 4f 44 4c 65 6e 67 {[$self LODLeng
0ae0: 74 68 5d 20 3c 20 32 7d 20 20 20 20 20 20 20 20 th] < 2}
0af0: 20 20 20 7b 72 65 74 75 72 6e 20 31 7d 20 3b 20 {return 1} ;
0b00: 23 20 6f 75 72 20 6c 6f 64 20 63 6f 6e 74 61 69 # our lod contai
0b10: 6e 73 20 6f 6e 6c 79 20 6f 75 72 73 65 6c 76 65 ns only ourselve
0b20: 73 2c 20 6e 65 65 64 65 64 2e 0a 09 69 66 20 7b s, needed...if {
0b30: 24 6d 79 6f 70 65 72 61 74 69 6f 6e 20 6e 65 20 $myoperation ne
0b40: 22 64 65 6c 65 74 65 22 7d 20 20 20 20 20 20 20 "delete"}
0b50: 20 7b 72 65 74 75 72 6e 20 31 7d 20 3b 20 23 20 {return 1} ; #
0b60: 4e 6f 74 20 61 20 64 65 6c 65 74 69 6f 6e 2c 20 Not a deletion,
0b70: 6e 65 65 64 65 64 0a 09 69 66 20 7b 5b 6c 6c 65 needed..if {[lle
0b80: 6e 67 74 68 20 24 6d 79 74 61 67 73 5d 7d 20 20 ngth $mytags]}
0b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 72 65 {re
0ba0: 74 75 72 6e 20 31 7d 20 3b 20 23 20 48 61 76 65 turn 1} ; # Have
0bb0: 20 74 61 67 73 2c 20 6e 65 65 64 65 64 0a 09 69 tags, needed..i
0bc0: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6d 79 62 f {[llength $myb
0bd0: 72 61 6e 63 68 65 73 5d 7d 20 20 20 20 20 20 20 ranches]}
0be0: 20 20 20 20 7b 72 65 74 75 72 6e 20 31 7d 20 3b {return 1} ;
0bf0: 20 23 20 48 61 76 65 20 6f 74 68 65 72 20 62 72 # Have other br
0c00: 61 6e 63 68 65 73 2c 20 6e 65 65 64 65 64 0a 09 anches, needed..
0c10: 69 66 20 7b 61 62 73 28 24 6d 79 64 61 74 65 20 if {abs($mydate
0c20: 2d 20 5b 24 62 61 73 65 20 64 61 74 65 5d 29 20 - [$base date])
0c30: 3e 20 32 7d 20 7b 72 65 74 75 72 6e 20 31 7d 20 > 2} {return 1}
0c40: 3b 20 23 20 4e 65 78 74 20 72 65 76 20 3e 20 32 ; # Next rev > 2
0c50: 20 73 65 63 6f 6e 64 73 20 61 70 61 72 74 2c 20 seconds apart,
0c60: 6e 65 65 64 65 64 0a 0a 20 20 20 20 20 20 20 20 needed..
0c70: 23 20 46 49 58 4d 45 3a 20 54 68 69 73 20 6d 65 # FIXME: This me
0c80: 73 73 61 67 65 20 77 69 6c 6c 20 6e 6f 74 20 6d ssage will not m
0c90: 61 74 63 68 20 69 66 20 74 68 65 20 52 43 53 20 atch if the RCS
0ca0: 66 69 6c 65 20 77 61 73 0a 20 20 20 20 20 20 20 file was.
0cb0: 20 23 20 72 65 6e 61 6d 65 64 20 6d 61 6e 75 61 # renamed manua
0cc0: 6c 6c 79 20 61 66 74 65 72 20 69 74 20 77 61 73 lly after it was
0cd0: 20 63 72 65 61 74 65 64 2e 0a 0a 09 73 65 74 20 created....set
0ce0: 71 66 69 6c 65 20 5b 73 74 72 69 6e 67 20 6d 61 qfile [string ma
0cf0: 70 20 7b 0a 09 20 20 20 20 2e 20 20 5c 5c 2e 20 p {.. . \\.
0d00: 20 3f 20 20 5c 5c 3f 20 20 2a 20 20 5c 5c 2a 20 ? \\? * \\*
0d10: 20 5c 5c 20 5c 5c 5c 5c 20 2b 20 20 5c 5c 2b 20 \\ \\\\ + \\+
0d20: 20 5e 20 5c 5c 5e 20 24 20 5c 5c 24 0a 09 20 20 ^ \\^ $ \\$..
0d30: 20 20 5c 5b 20 5c 5c 5c 5b 20 5c 5d 20 5c 5c 5c \[ \\\[ \] \\\
0d40: 5d 20 28 20 20 5c 5c 28 20 20 20 29 20 5c 5c 29 ] ( \\( ) \\)
0d50: 20 20 5c 7b 20 5c 5c 5c 7b 20 5c 7d 20 5c 5c 5c \{ \\\{ \} \\\
0d60: 7d 0a 09 7d 20 5b 66 69 6c 65 20 74 61 69 6c 20 }..} [file tail
0d70: 5b 24 6d 79 66 69 6c 65 20 75 73 72 70 61 74 68 [$myfile usrpath
0d80: 5d 5d 5d 0a 09 73 65 74 20 70 61 74 74 65 72 6e ]]]..set pattern
0d90: 20 22 66 69 6c 65 20 24 71 66 69 6c 65 20 77 61 "file $qfile wa
0da0: 73 20 61 64 64 65 64 20 6f 6e 20 62 72 61 6e 63 s added on branc
0db0: 68 20 2e 2a 20 6f 6e 20 5c 5c 64 7b 34 7d 2d 5c h .* on \\d{4}-\
0dc0: 5c 64 7b 32 7d 2d 5c 5c 64 7b 32 7d 20 5c 5c 64 \d{2}-\\d{2} \\d
0dd0: 7b 32 7d 3a 5c 5c 64 7b 32 7d 3a 5c 5c 64 7b 32 {2}:\\d{2}:\\d{2
0de0: 7d 28 20 5c 5b 2b 2d 5c 5d 5c 5c 64 7b 34 7d 29 }( \[+-\]\\d{4})
0df0: 3f 22 0a 09 73 65 74 20 6c 6f 67 20 20 20 20 20 ?"..set log
0e00: 5b 24 6d 79 66 69 6c 65 20 63 6f 6d 6d 69 74 6d [$myfile commitm
0e10: 65 73 73 61 67 65 6f 66 20 24 6d 79 6d 65 74 61 essageof $mymeta
0e20: 69 64 5d 0a 0a 09 23 20 4e 6f 74 20 74 68 65 20 id]...# Not the
0e30: 73 70 65 63 69 61 6c 20 6d 65 73 73 61 67 65 2c special message,
0e40: 20 6e 65 65 64 65 64 0a 09 69 66 20 7b 21 5b 72 needed..if {![r
0e50: 65 67 65 78 70 20 2d 2d 20 24 70 61 74 74 65 72 egexp -- $patter
0e60: 6e 20 24 6c 6f 67 5d 7d 20 7b 72 65 74 75 72 6e n $log]} {return
0e70: 20 31 7d 0a 0a 09 23 20 54 68 69 73 20 69 73 20 1}...# This is
0e80: 61 6e 20 75 6e 6e 65 65 64 65 64 20 69 6e 69 74 an unneeded init
0e90: 69 61 6c 20 62 72 61 6e 63 68 20 64 65 6c 65 74 ial branch delet
0ea0: 65 2e 0a 09 72 65 74 75 72 6e 20 30 0a 20 20 20 e...return 0.
0eb0: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 4c }.. method L
0ec0: 4f 44 4c 65 6e 67 74 68 20 7b 7d 20 7b 0a 09 73 ODLength {} {..s
0ed0: 65 74 20 6e 20 31 20 3b 20 23 20 63 6f 75 6e 74 et n 1 ; # count
0ee0: 20 73 65 6c 66 0a 09 73 65 74 20 72 65 76 20 24 self..set rev $
0ef0: 6d 79 63 68 69 6c 64 0a 09 77 68 69 6c 65 20 7b mychild..while {
0f00: 24 72 65 76 20 6e 65 20 22 22 7d 20 7b 0a 09 20 $rev ne ""} {..
0f10: 20 20 20 69 6e 63 72 20 6e 0a 09 20 20 20 20 73 incr n.. s
0f20: 65 74 20 72 65 76 20 5b 24 72 65 76 20 63 68 69 et rev [$rev chi
0f30: 6c 64 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 20 24 ld]..}..return $
0f40: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 42 n. }.. # B
0f50: 61 73 69 63 20 70 61 72 65 6e 74 2f 63 68 69 6c asic parent/chil
0f60: 64 20 6c 69 6e 6b 61 67 65 20 5f 5f 5f 5f 5f 5f d linkage ______
0f70: 5f 5f 5f 5f 0a 0a 20 20 20 20 6d 65 74 68 6f 64 ____.. method
0f80: 20 68 61 73 70 61 72 65 6e 74 20 7b 7d 20 7b 20 hasparent {} {
0f90: 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 6d return [expr {$m
0fa0: 79 70 61 72 65 6e 74 20 6e 65 20 22 22 7d 5d 20 yparent ne ""}]
0fb0: 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 68 61 73 }. method has
0fc0: 63 68 69 6c 64 20 20 7b 7d 20 7b 20 72 65 74 75 child {} { retu
0fd0: 72 6e 20 5b 65 78 70 72 20 7b 24 6d 79 63 68 69 rn [expr {$mychi
0fe0: 6c 64 20 20 6e 65 20 22 22 7d 5d 20 7d 0a 0a 20 ld ne ""}] }..
0ff0: 20 20 20 6d 65 74 68 6f 64 20 73 65 74 70 61 72 method setpar
1000: 65 6e 74 20 7b 70 61 72 65 6e 74 7d 20 7b 0a 09 ent {parent} {..
1010: 69 66 20 7b 24 6d 79 70 61 72 65 6e 74 20 6e 65 if {$myparent ne
1020: 20 22 22 7d 20 7b 20 74 72 6f 75 62 6c 65 20 69 ""} { trouble i
1030: 6e 74 65 72 6e 61 6c 20 22 50 61 72 65 6e 74 20 nternal "Parent
1040: 61 6c 72 65 61 64 79 20 64 65 66 69 6e 65 64 22 already defined"
1050: 20 7d 0a 09 73 65 74 20 6d 79 70 61 72 65 6e 74 }..set myparent
1060: 20 24 70 61 72 65 6e 74 0a 09 72 65 74 75 72 6e $parent..return
1070: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
1080: 6f 64 20 63 75 74 66 72 6f 6d 70 61 72 65 6e 74 od cutfromparent
1090: 20 7b 7d 20 7b 20 73 65 74 20 6d 79 70 61 72 65 {} { set mypare
10a0: 6e 74 20 22 22 20 3b 20 72 65 74 75 72 6e 20 7d nt "" ; return }
10b0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 75 74 66 . method cutf
10c0: 72 6f 6d 63 68 69 6c 64 20 20 7b 7d 20 7b 20 73 romchild {} { s
10d0: 65 74 20 6d 79 63 68 69 6c 64 20 20 22 22 20 3b et mychild "" ;
10e0: 20 72 65 74 75 72 6e 20 7d 0a 0a 20 20 20 20 6d return }.. m
10f0: 65 74 68 6f 64 20 73 65 74 63 68 69 6c 64 20 7b ethod setchild {
1100: 63 68 69 6c 64 7d 20 7b 0a 09 69 66 20 7b 24 6d child} {..if {$m
1110: 79 63 68 69 6c 64 20 6e 65 20 22 22 7d 20 7b 20 ychild ne ""} {
1120: 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c trouble internal
1130: 20 22 43 68 69 6c 64 20 61 6c 72 65 61 64 79 20 "Child already
1140: 64 65 66 69 6e 65 64 22 20 7d 0a 09 73 65 74 20 defined" }..set
1150: 6d 79 63 68 69 6c 64 20 24 63 68 69 6c 64 0a 09 mychild $child..
1160: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
1170: 20 20 6d 65 74 68 6f 64 20 63 68 61 6e 67 65 70 method changep
1180: 61 72 65 6e 74 20 7b 70 61 72 65 6e 74 7d 20 7b arent {parent} {
1190: 20 73 65 74 20 6d 79 70 61 72 65 6e 74 20 24 70 set myparent $p
11a0: 61 72 65 6e 74 20 3b 20 72 65 74 75 72 6e 20 7d arent ; return }
11b0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 68 61 6e . method chan
11c0: 67 65 63 68 69 6c 64 20 20 7b 63 68 69 6c 64 7d gechild {child}
11d0: 20 20 7b 20 73 65 74 20 6d 79 63 68 69 6c 64 20 { set mychild
11e0: 20 24 63 68 69 6c 64 20 20 3b 20 72 65 74 75 72 $child ; retur
11f0: 6e 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 n }.. method
1200: 70 61 72 65 6e 74 20 7b 7d 20 7b 20 72 65 74 75 parent {} { retu
1210: 72 6e 20 24 6d 79 70 61 72 65 6e 74 20 7d 0a 20 rn $myparent }.
1220: 20 20 20 6d 65 74 68 6f 64 20 63 68 69 6c 64 20 method child
1230: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 {} { return $my
1240: 63 68 69 6c 64 20 20 7d 0a 0a 20 20 20 20 23 20 child }.. #
1250: 42 72 61 6e 63 68 20 6c 69 6e 6b 61 67 65 20 5f Branch linkage _
1260: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
1270: 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 6d 65 74 68 6f _____.. metho
1280: 64 20 73 65 74 70 61 72 65 6e 74 62 72 61 6e 63 d setparentbranc
1290: 68 20 7b 62 72 61 6e 63 68 7d 20 7b 0a 09 69 66 h {branch} {..if
12a0: 20 7b 24 6d 79 70 61 72 65 6e 74 62 72 61 6e 63 {$myparentbranc
12b0: 68 20 6e 65 20 22 22 7d 20 7b 20 74 72 6f 75 62 h ne ""} { troub
12c0: 6c 65 20 69 6e 74 65 72 6e 61 6c 20 22 42 72 61 le internal "Bra
12d0: 6e 63 68 20 70 61 72 65 6e 74 20 61 6c 72 65 61 nch parent alrea
12e0: 64 79 20 64 65 66 69 6e 65 64 22 20 7d 0a 09 73 dy defined" }..s
12f0: 65 74 20 6d 79 70 61 72 65 6e 74 62 72 61 6e 63 et myparentbranc
1300: 68 20 24 62 72 61 6e 63 68 0a 09 72 65 74 75 72 h $branch..retur
1310: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 n. }.. met
1320: 68 6f 64 20 68 61 73 70 61 72 65 6e 74 62 72 61 hod hasparentbra
1330: 6e 63 68 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 nch {} { return
1340: 5b 65 78 70 72 20 7b 24 6d 79 70 61 72 65 6e 74 [expr {$myparent
1350: 62 72 61 6e 63 68 20 6e 65 20 22 22 7d 5d 20 7d branch ne ""}] }
1360: 0a 20 20 20 20 6d 65 74 68 6f 64 20 68 61 73 62 . method hasb
1370: 72 61 6e 63 68 65 73 20 20 20 20 20 7b 7d 20 7b ranches {} {
1380: 20 72 65 74 75 72 6e 20 5b 6c 6c 65 6e 67 74 68 return [llength
1390: 20 24 6d 79 62 72 61 6e 63 68 65 73 5d 20 7d 0a $mybranches] }.
13a0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 61 72 65 . method pare
13b0: 6e 74 62 72 61 6e 63 68 20 7b 7d 20 7b 20 72 65 ntbranch {} { re
13c0: 74 75 72 6e 20 24 6d 79 70 61 72 65 6e 74 62 72 turn $myparentbr
13d0: 61 6e 63 68 20 7d 0a 20 20 20 20 6d 65 74 68 6f anch }. metho
13e0: 64 20 62 72 61 6e 63 68 65 73 20 20 20 20 20 7b d branches {
13f0: 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 62 72 } { return $mybr
1400: 61 6e 63 68 65 73 20 7d 0a 0a 20 20 20 20 6d 65 anches }.. me
1410: 74 68 6f 64 20 61 64 64 62 72 61 6e 63 68 20 7b thod addbranch {
1420: 62 72 61 6e 63 68 7d 20 7b 0a 09 6c 61 70 70 65 branch} {..lappe
1430: 6e 64 20 6d 79 62 72 61 6e 63 68 65 73 20 24 62 nd mybranches $b
1440: 72 61 6e 63 68 0a 09 72 65 74 75 72 6e 0a 20 20 ranch..return.
1450: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
1460: 61 64 64 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 addchildonbranch
1470: 20 7b 63 68 69 6c 64 7d 20 7b 0a 09 6c 61 70 70 {child} {..lapp
1480: 65 6e 64 20 6d 79 62 72 61 6e 63 68 63 68 69 6c end mybranchchil
1490: 64 72 65 6e 20 24 63 68 69 6c 64 0a 09 72 65 74 dren $child..ret
14a0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
14b0: 65 74 68 6f 64 20 63 75 74 66 72 6f 6d 70 61 72 ethod cutfrompar
14c0: 65 6e 74 62 72 61 6e 63 68 20 7b 7d 20 7b 20 73 entbranch {} { s
14d0: 65 74 20 6d 79 70 61 72 65 6e 74 62 72 61 6e 63 et myparentbranc
14e0: 68 20 22 22 20 3b 20 72 65 74 75 72 6e 20 7d 0a h "" ; return }.
14f0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 72 65 6d 6f . method remo
1500: 76 65 62 72 61 6e 63 68 20 7b 62 72 61 6e 63 68 vebranch {branch
1510: 7d 20 7b 0a 09 6c 64 65 6c 65 74 65 20 6d 79 62 } {..ldelete myb
1520: 72 61 6e 63 68 65 73 20 24 62 72 61 6e 63 68 0a ranches $branch.
1530: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
1540: 20 20 20 6d 65 74 68 6f 64 20 72 65 6d 6f 76 65 method remove
1550: 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 20 7b 72 childonbranch {r
1560: 65 76 7d 20 7b 0a 09 6c 64 65 6c 65 74 65 20 6d ev} {..ldelete m
1570: 79 62 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 ybranchchildren
1580: 24 72 65 76 0a 09 72 65 74 75 72 6e 0a 20 20 20 $rev..return.
1590: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 }.. method s
15a0: 6f 72 74 62 72 61 6e 63 68 65 73 20 7b 7d 20 7b ortbranches {} {
15b0: 0a 09 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 ..if {![llength
15c0: 24 6d 79 62 72 61 6e 63 68 65 73 5d 7d 20 72 65 $mybranches]} re
15d0: 74 75 72 6e 0a 0a 09 23 20 53 6f 72 74 20 74 68 turn...# Sort th
15e0: 65 20 62 72 61 6e 63 68 65 73 20 73 70 61 77 6e e branches spawn
15f0: 65 64 20 62 79 20 74 68 69 73 20 72 65 76 69 73 ed by this revis
1600: 69 6f 6e 20 69 6e 20 63 72 65 61 74 69 6f 6e 0a ion in creation.
1610: 09 23 20 6f 72 64 65 72 2e 20 54 6f 20 68 65 6c .# order. To hel
1620: 70 20 69 6e 20 74 68 69 73 20 6f 75 72 20 66 69 p in this our fi
1630: 6c 65 20 67 61 76 65 20 61 6c 6c 20 62 72 61 6e le gave all bran
1640: 63 68 65 73 20 61 20 70 6f 73 69 74 69 6f 6e 0a ches a position.
1650: 09 23 20 69 64 2c 20 69 6e 20 6f 72 64 65 72 20 .# id, in order
1660: 6f 66 20 74 68 65 69 72 20 64 65 66 69 6e 69 74 of their definit
1670: 69 6f 6e 20 62 79 20 74 68 65 20 52 43 53 20 61 ion by the RCS a
1680: 72 63 68 69 76 65 2e 0a 09 23 0a 09 23 20 54 68 rchive...#..# Th
1690: 65 20 63 72 65 61 74 69 6f 6e 20 6f 72 64 65 72 e creation order
16a0: 20 69 73 20 28 61 70 70 61 72 65 6e 74 6c 79 29 is (apparently)
16b0: 20 74 68 65 20 72 65 76 65 72 73 65 20 6f 66 20 the reverse of
16c0: 74 68 65 0a 09 23 20 64 65 66 69 6e 69 74 69 6f the..# definitio
16d0: 6e 20 6f 72 64 65 72 2e 20 28 49 66 20 61 20 62 n order. (If a b
16e0: 72 61 6e 63 68 20 69 73 20 63 72 65 61 74 65 64 ranch is created
16f0: 20 74 68 65 6e 20 64 65 6c 65 74 65 64 2c 20 61 then deleted, a
1700: 0a 09 23 20 6c 61 74 65 72 20 62 72 61 6e 63 68 ..# later branch
1710: 20 63 61 6e 20 62 65 20 61 73 73 69 67 6e 65 64 can be assigned
1720: 20 74 68 65 20 72 65 63 79 63 6c 65 64 20 62 72 the recycled br
1730: 61 6e 63 68 20 6e 75 6d 62 65 72 3b 0a 09 23 20 anch number;..#
1740: 74 68 65 72 65 66 6f 72 65 20 62 72 61 6e 63 68 therefore branch
1750: 20 6e 75 6d 62 65 72 73 20 61 72 65 20 6e 6f 74 numbers are not
1760: 20 61 6e 20 69 6e 64 69 63 61 74 69 6f 6e 20 6f an indication o
1770: 66 20 63 72 65 61 74 69 6f 6e 0a 09 23 20 6f 72 f creation..# or
1780: 64 65 72 2e 29 0a 0a 09 73 65 74 20 74 6d 70 20 der.)...set tmp
1790: 7b 7d 0a 09 66 6f 72 65 61 63 68 20 62 72 61 6e {}..foreach bran
17a0: 63 68 20 24 6d 79 62 72 61 6e 63 68 65 73 20 7b ch $mybranches {
17b0: 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 74 6d .. lappend tm
17c0: 70 20 5b 6c 69 73 74 20 24 62 72 61 6e 63 68 20 p [list $branch
17d0: 5b 24 62 72 61 6e 63 68 20 70 6f 73 69 74 69 6f [$branch positio
17e0: 6e 5d 5d 0a 09 7d 0a 0a 09 73 65 74 20 6d 79 62 n]]..}...set myb
17f0: 72 61 6e 63 68 65 73 20 7b 7d 0a 09 66 6f 72 65 ranches {}..fore
1800: 61 63 68 20 69 74 65 6d 20 5b 6c 73 6f 72 74 20 ach item [lsort
1810: 2d 69 6e 64 65 78 20 31 20 2d 64 65 63 72 65 61 -index 1 -decrea
1820: 73 69 6e 67 20 24 74 6d 70 5d 20 7b 0a 09 20 20 sing $tmp] {..
1830: 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 struct::list a
1840: 73 73 69 67 6e 20 24 69 74 65 6d 20 62 72 61 6e ssign $item bran
1850: 63 68 20 70 6f 73 69 74 69 6f 6e 0a 09 20 20 20 ch position..
1860: 20 6c 61 70 70 65 6e 64 20 6d 79 62 72 61 6e 63 lappend mybranc
1870: 68 65 73 20 24 62 72 61 6e 63 68 0a 09 7d 0a 09 hes $branch..}..
1880: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
1890: 20 20 6d 65 74 68 6f 64 20 6d 6f 76 65 62 72 61 method movebra
18a0: 6e 63 68 65 73 74 6f 20 7b 72 65 76 7d 20 7b 0a nchesto {rev} {.
18b0: 09 73 65 74 20 72 65 76 6c 6f 64 20 5b 24 72 65 .set revlod [$re
18c0: 76 20 6c 6f 64 5d 0a 09 66 6f 72 65 61 63 68 20 v lod]..foreach
18d0: 62 72 61 6e 63 68 20 24 6d 79 62 72 61 6e 63 68 branch $mybranch
18e0: 65 73 20 7b 0a 09 20 20 20 20 24 72 65 76 20 61 es {.. $rev a
18f0: 64 64 62 72 61 6e 63 68 20 24 62 72 61 6e 63 68 ddbranch $branch
1900: 0a 09 20 20 20 20 24 62 72 61 6e 63 68 20 73 65 .. $branch se
1910: 74 70 61 72 65 6e 74 20 24 72 65 76 0a 09 20 20 tparent $rev..
1920: 20 20 24 62 72 61 6e 63 68 20 73 65 74 6c 6f 64 $branch setlod
1930: 20 24 72 65 76 6c 6f 64 0a 09 7d 0a 09 66 6f 72 $revlod..}..for
1940: 65 61 63 68 20 62 72 61 6e 63 68 72 65 76 20 24 each branchrev $
1950: 6d 79 62 72 61 6e 63 68 63 68 69 6c 64 72 65 6e mybranchchildren
1960: 20 7b 0a 09 20 20 20 20 24 72 65 76 20 61 64 64 {.. $rev add
1970: 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 20 24 62 childonbranch $b
1980: 72 61 6e 63 68 72 65 76 0a 09 20 20 20 20 24 62 ranchrev.. $b
1990: 72 61 6e 63 68 72 65 76 20 63 75 74 66 72 6f 6d ranchrev cutfrom
19a0: 70 61 72 65 6e 74 0a 09 20 20 20 20 24 62 72 61 parent.. $bra
19b0: 6e 63 68 72 65 76 20 73 65 74 70 61 72 65 6e 74 nchrev setparent
19c0: 20 24 72 65 76 0a 09 7d 0a 09 73 65 74 20 6d 79 $rev..}..set my
19d0: 62 72 61 6e 63 68 65 73 20 20 20 20 20 20 20 7b branches {
19e0: 7d 0a 09 73 65 74 20 6d 79 62 72 61 6e 63 68 63 }..set mybranchc
19f0: 68 69 6c 64 72 65 6e 20 7b 7d 0a 09 72 65 74 75 hildren {}..retu
1a00: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 rn. }.. me
1a10: 74 68 6f 64 20 72 65 6d 6f 76 65 61 6c 6c 62 72 thod removeallbr
1a20: 61 6e 63 68 65 73 20 7b 7d 20 7b 0a 09 73 65 74 anches {} {..set
1a30: 20 6d 79 62 72 61 6e 63 68 65 73 20 20 20 20 20 mybranches
1a40: 20 20 7b 7d 0a 09 73 65 74 20 6d 79 62 72 61 6e {}..set mybran
1a50: 63 68 63 68 69 6c 64 72 65 6e 20 7b 7d 0a 09 72 chchildren {}..r
1a60: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
1a70: 20 23 20 54 61 67 20 6c 69 6e 6b 61 67 65 20 5f # Tag linkage _
1a80: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
1a90: 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 6d 65 ________.. me
1aa0: 74 68 6f 64 20 61 64 64 74 61 67 20 7b 74 61 67 thod addtag {tag
1ab0: 7d 20 7b 0a 09 6c 61 70 70 65 6e 64 20 6d 79 74 } {..lappend myt
1ac0: 61 67 73 20 24 74 61 67 0a 09 72 65 74 75 72 6e ags $tag..return
1ad0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
1ae0: 6f 64 20 74 61 67 73 20 7b 7d 20 7b 20 72 65 74 od tags {} { ret
1af0: 75 72 6e 20 24 6d 79 74 61 67 73 20 7d 0a 0a 20 urn $mytags }..
1b00: 20 20 20 6d 65 74 68 6f 64 20 72 65 6d 6f 76 65 method remove
1b10: 61 6c 6c 74 61 67 73 20 7b 7d 20 7b 0a 09 73 65 alltags {} {..se
1b20: 74 20 6d 79 74 61 67 73 20 7b 7d 0a 09 72 65 74 t mytags {}..ret
1b30: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
1b40: 65 74 68 6f 64 20 6d 6f 76 65 74 61 67 73 74 6f ethod movetagsto
1b50: 20 7b 72 65 76 7d 20 7b 0a 09 73 65 74 20 72 65 {rev} {..set re
1b60: 76 6c 6f 64 20 5b 24 72 65 76 20 6c 6f 64 5d 0a vlod [$rev lod].
1b70: 09 66 6f 72 65 61 63 68 20 74 61 67 20 24 6d 79 .foreach tag $my
1b80: 74 61 67 73 20 7b 0a 09 20 20 20 20 24 72 65 76 tags {.. $rev
1b90: 20 61 64 64 74 61 67 20 24 74 61 67 0a 09 20 20 addtag $tag..
1ba0: 20 20 24 74 61 67 20 73 65 74 74 61 67 72 65 76 $tag settagrev
1bb0: 20 24 72 65 76 0a 09 20 20 20 20 24 74 61 67 20 $rev.. $tag
1bc0: 73 65 74 6c 6f 64 20 24 72 65 76 6c 6f 64 0a 09 setlod $revlod..
1bd0: 7d 0a 09 73 65 74 20 6d 79 74 61 67 73 20 7b 7d }..set mytags {}
1be0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
1bf0: 20 20 20 20 23 20 67 65 6e 65 72 61 6c 20 73 79 # general sy
1c00: 6d 62 6f 6c 20 6f 70 65 72 61 74 69 6f 6e 73 20 mbol operations
1c10: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 20 20 ___________..
1c20: 20 6d 65 74 68 6f 64 20 6d 6f 76 65 73 79 6d 62 method movesymb
1c30: 6f 6c 73 74 6f 20 7b 72 65 76 7d 20 7b 0a 09 23 olsto {rev} {..#
1c40: 20 4d 6f 76 65 20 74 68 65 20 74 61 67 73 20 61 Move the tags a
1c50: 6e 64 20 62 72 61 6e 63 68 65 73 20 61 74 74 61 nd branches atta
1c60: 63 68 65 64 20 74 6f 20 74 68 69 73 20 72 65 76 ched to this rev
1c70: 69 73 69 6f 6e 20 74 6f 20 74 68 65 0a 09 23 20 ision to the..#
1c80: 64 65 73 74 69 6e 61 74 69 6f 6e 20 61 6e 64 20 destination and
1c90: 66 69 78 20 61 6c 6c 20 70 6f 69 6e 74 65 72 73 fix all pointers
1ca0: 2e 0a 0a 09 24 73 65 6c 66 20 6d 6f 76 65 74 61 ....$self moveta
1cb0: 67 73 74 6f 20 20 20 20 20 24 72 65 76 0a 09 24 gsto $rev..$
1cc0: 73 65 6c 66 20 6d 6f 76 65 62 72 61 6e 63 68 65 self movebranche
1cd0: 73 74 6f 20 24 72 65 76 0a 09 72 65 74 75 72 6e sto $rev..return
1ce0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 44 65 . }.. # De
1cf0: 72 69 76 65 64 20 73 74 75 66 66 20 5f 5f 5f 5f rived stuff ____
1d00: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
1d10: 5f 5f 5f 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 ___.. method
1d20: 64 65 74 65 72 6d 69 6e 65 6f 70 65 72 61 74 69 determineoperati
1d30: 6f 6e 20 7b 7d 20 7b 0a 09 23 20 4c 6f 6f 6b 20 on {} {..# Look
1d40: 61 74 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 at the state of
1d50: 62 6f 74 68 20 74 68 69 73 20 72 65 76 69 73 69 both this revisi
1d60: 6f 6e 20 61 6e 64 20 69 74 73 20 70 61 72 65 6e on and its paren
1d70: 74 20 74 6f 0a 09 23 20 64 65 74 65 72 6d 69 6e t to..# determin
1d80: 65 20 74 68 65 20 74 79 70 65 20 6f 70 66 20 6f e the type opf o
1d90: 70 65 72 61 74 69 6f 6e 20 77 68 69 63 68 20 77 peration which w
1da0: 61 73 20 70 65 72 66 6f 72 6d 65 64 20 28 61 64 as performed (ad
1db0: 64 2c 0a 09 23 20 6d 6f 64 69 66 79 2c 20 64 65 d,..# modify, de
1dc0: 6c 65 74 65 2c 20 6e 6f 6e 65 29 2e 0a 09 23 0a lete, none)...#.
1dd0: 09 23 20 54 68 65 20 69 6d 70 6f 72 74 61 6e 74 .# The important
1de0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 information is
1df0: 64 65 61 64 20 76 73 20 6e 6f 74 2d 64 65 61 64 dead vs not-dead
1e00: 20 66 6f 72 20 62 6f 74 68 2c 0a 09 23 20 67 69 for both,..# gi
1e10: 76 69 6e 67 20 72 69 73 65 20 74 6f 20 66 6f 75 ving rise to fou
1e20: 72 20 70 6f 73 73 69 62 6c 65 20 74 79 70 65 73 r possible types
1e30: 2e 0a 0a 09 73 65 74 20 73 64 65 61 64 20 5b 65 ....set sdead [e
1e40: 78 70 72 20 7b 24 6d 79 73 74 61 74 65 20 65 71 xpr {$mystate eq
1e50: 20 22 64 65 61 64 22 7d 5d 0a 09 73 65 74 20 70 "dead"}]..set p
1e60: 64 65 61 64 20 5b 65 78 70 72 20 7b 24 6d 79 70 dead [expr {$myp
1e70: 61 72 65 6e 74 20 65 71 20 22 22 20 7c 7c 20 5b arent eq "" || [
1e80: 24 6d 79 70 61 72 65 6e 74 20 73 74 61 74 65 5d $myparent state]
1e90: 20 65 71 20 22 64 65 61 64 22 7d 5d 0a 0a 09 73 eq "dead"}]...s
1ea0: 65 74 20 6d 79 6f 70 65 72 61 74 69 6f 6e 20 24 et myoperation $
1eb0: 6d 79 6f 70 73 74 61 74 65 28 5b 6c 69 73 74 20 myopstate([list
1ec0: 24 70 64 65 61 64 20 24 73 64 65 61 64 5d 29 0a $pdead $sdead]).
1ed0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
1ee0: 20 20 20 6d 65 74 68 6f 64 20 6f 70 65 72 61 74 method operat
1ef0: 69 6f 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 ion {} { return
1f00: 24 6d 79 6f 70 65 72 61 74 69 6f 6e 20 7d 0a 20 $myoperation }.
1f10: 20 20 20 6d 65 74 68 6f 64 20 72 65 74 79 70 65 method retype
1f20: 20 7b 78 7d 20 7b 20 73 65 74 20 6d 79 6f 70 65 {x} { set myope
1f30: 72 61 74 69 6f 6e 20 24 78 20 3b 20 72 65 74 75 ration $x ; retu
1f40: 72 6e 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 rn }.. method
1f50: 20 69 73 6f 6e 64 65 66 61 75 6c 74 62 72 61 6e isondefaultbran
1f60: 63 68 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 ch {} { retur
1f70: 6e 20 24 6d 79 69 73 6f 6e 64 65 66 61 75 6c 74 n $myisondefault
1f80: 62 72 61 6e 63 68 20 7d 0a 0a 20 20 20 20 6d 65 branch }.. me
1f90: 74 68 6f 64 20 73 65 74 6f 6e 64 65 66 61 75 6c thod setondefaul
1fa0: 74 62 72 61 6e 63 68 20 20 20 7b 78 7d 20 7b 20 tbranch {x} {
1fb0: 73 65 74 20 6d 79 69 73 6f 6e 64 65 66 61 75 6c set myisondefaul
1fc0: 74 62 72 61 6e 63 68 20 24 78 20 3b 20 72 65 74 tbranch $x ; ret
1fd0: 75 72 6e 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f urn }.. metho
1fe0: 64 20 73 65 74 64 65 66 61 75 6c 74 62 72 61 6e d setdefaultbran
1ff0: 63 68 63 68 69 6c 64 20 20 7b 72 65 76 7d 20 7b chchild {rev} {
2000: 20 73 65 74 20 6d 79 64 62 63 68 69 6c 64 20 24 set mydbchild $
2010: 72 65 76 20 3b 20 72 65 74 75 72 6e 20 7d 0a 20 rev ; return }.
2020: 20 20 20 6d 65 74 68 6f 64 20 73 65 74 64 65 66 method setdef
2030: 61 75 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 aultbranchparent
2040: 20 7b 72 65 76 7d 20 7b 0a 09 73 65 74 20 6d 79 {rev} {..set my
2050: 64 62 70 61 72 65 6e 74 20 24 72 65 76 0a 0a 09 dbparent $rev...
2060: 23 20 52 65 74 79 70 65 20 74 68 65 20 72 65 76 # Retype the rev
2070: 69 73 69 6f 6e 20 28 6d 61 79 20 63 68 61 6e 67 ision (may chang
2080: 65 20 66 72 6f 6d 20 27 61 64 64 27 20 74 6f 20 e from 'add' to
2090: 27 63 68 61 6e 67 65 27 29 2e 0a 0a 09 73 65 74 'change')....set
20a0: 20 73 64 65 61 64 20 5b 65 78 70 72 20 7b 24 6d sdead [expr {$m
20b0: 79 6f 70 65 72 61 74 69 6f 6e 20 20 20 20 20 6e yoperation n
20c0: 65 20 22 63 68 61 6e 67 65 22 7d 5d 0a 09 73 65 e "change"}]..se
20d0: 74 20 70 64 65 61 64 20 5b 65 78 70 72 20 7b 5b t pdead [expr {[
20e0: 24 72 65 76 20 6f 70 65 72 61 74 69 6f 6e 5d 20 $rev operation]
20f0: 6e 65 20 22 63 68 61 6e 67 65 22 7d 5d 0a 09 73 ne "change"}]..s
2100: 65 74 20 6d 79 6f 70 65 72 61 74 69 6f 6e 20 24 et myoperation $
2110: 6d 79 6f 70 73 74 61 74 65 28 5b 6c 69 73 74 20 myopstate([list
2120: 24 70 64 65 61 64 20 24 73 64 65 61 64 5d 29 0a $pdead $sdead]).
2130: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
2140: 20 20 20 6d 65 74 68 6f 64 20 63 75 74 64 65 66 method cutdef
2150: 61 75 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 aultbranchparent
2160: 20 7b 7d 20 7b 20 73 65 74 20 6d 79 64 62 70 61 {} { set mydbpa
2170: 72 65 6e 74 20 22 22 20 3b 20 72 65 74 75 72 6e rent "" ; return
2180: 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 75 }. method cu
2190: 74 64 65 66 61 75 6c 74 62 72 61 6e 63 68 63 68 tdefaultbranchch
21a0: 69 6c 64 20 20 7b 7d 20 7b 20 73 65 74 20 6d 79 ild {} { set my
21b0: 64 62 63 68 69 6c 64 20 20 22 22 20 3b 20 72 65 dbchild "" ; re
21c0: 74 75 72 6e 20 7d 0a 0a 20 20 20 20 6d 65 74 68 turn }.. meth
21d0: 6f 64 20 64 65 66 61 75 6c 74 62 72 61 6e 63 68 od defaultbranch
21e0: 63 68 69 6c 64 20 20 7b 7d 20 7b 20 72 65 74 75 child {} { retu
21f0: 72 6e 20 24 6d 79 64 62 63 68 69 6c 64 20 7d 0a rn $mydbchild }.
2200: 20 20 20 20 6d 65 74 68 6f 64 20 64 65 66 61 75 method defau
2210: 6c 74 62 72 61 6e 63 68 70 61 72 65 6e 74 20 7b ltbranchparent {
2220: 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 64 62 } { return $mydb
2230: 70 61 72 65 6e 74 20 7d 0a 0a 20 20 20 20 6d 65 parent }.. me
2240: 74 68 6f 64 20 68 61 73 64 65 66 61 75 6c 74 62 thod hasdefaultb
2250: 72 61 6e 63 68 63 68 69 6c 64 20 20 7b 7d 20 7b ranchchild {} {
2260: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 return [expr {$
2270: 6d 79 64 62 63 68 69 6c 64 20 20 6e 65 20 22 22 mydbchild ne ""
2280: 7d 5d 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 }] }. method
2290: 68 61 73 64 65 66 61 75 6c 74 62 72 61 6e 63 68 hasdefaultbranch
22a0: 70 61 72 65 6e 74 20 7b 7d 20 7b 20 72 65 74 75 parent {} { retu
22b0: 72 6e 20 5b 65 78 70 72 20 7b 24 6d 79 64 62 70 rn [expr {$mydbp
22c0: 61 72 65 6e 74 20 6e 65 20 22 22 7d 5d 20 7d 0a arent ne ""}] }.
22d0: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
22e0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
22f0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
2300: 20 23 23 20 54 79 70 65 20 41 50 49 0a 0a 20 20 ## Type API..
2310: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 typemethod ist
2320: 72 75 6e 6b 72 65 76 6e 72 20 7b 72 65 76 6e 72 runkrevnr {revnr
2330: 7d 20 7b 0a 09 72 65 74 75 72 6e 20 5b 65 78 70 } {..return [exp
2340: 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 73 70 6c r {[llength [spl
2350: 69 74 20 24 72 65 76 6e 72 20 2e 5d 5d 20 3d 3d it $revnr .]] ==
2360: 20 32 7d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2}]. }..
2370: 74 79 70 65 6d 65 74 68 6f 64 20 69 73 62 72 61 typemethod isbra
2380: 6e 63 68 72 65 76 6e 72 20 7b 72 65 76 6e 72 20 nchrevnr {revnr
2390: 5f 20 62 76 7d 20 7b 0a 09 69 66 20 7b 5b 72 65 _ bv} {..if {[re
23a0: 67 65 78 70 20 24 6d 79 62 72 61 6e 63 68 70 61 gexp $mybranchpa
23b0: 74 74 65 72 6e 20 24 72 65 76 6e 72 20 2d 3e 20 ttern $revnr ->
23c0: 68 65 61 64 20 74 61 69 6c 5d 7d 20 7b 0a 09 20 head tail]} {..
23d0: 20 20 20 75 70 76 61 72 20 31 20 24 62 76 20 62 upvar 1 $bv b
23e0: 72 61 6e 63 68 6e 72 0a 09 20 20 20 20 73 65 74 ranchnr.. set
23f0: 20 62 72 61 6e 63 68 6e 72 20 24 7b 68 65 61 64 branchnr ${head
2400: 7d 24 74 61 69 6c 0a 09 20 20 20 20 72 65 74 75 }$tail.. retu
2410: 72 6e 20 31 0a 09 7d 0a 09 72 65 74 75 72 6e 20 rn 1..}..return
2420: 30 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 0. }.. typ
2430: 65 6d 65 74 68 6f 64 20 32 62 72 61 6e 63 68 6e emethod 2branchn
2440: 72 20 7b 72 65 76 6e 72 7d 20 7b 0a 09 23 20 49 r {revnr} {..# I
2450: 6e 70 75 74 20 69 73 20 61 20 62 72 61 6e 63 68 nput is a branch
2460: 20 72 65 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 revision number
2470: 2c 20 69 2e 65 2e 20 61 20 72 65 76 69 73 69 6f , i.e. a revisio
2480: 6e 20 6e 75 6d 62 65 72 0a 09 23 20 77 69 74 68 n number..# with
2490: 20 61 6e 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 an even number
24a0: 6f 66 20 63 6f 6d 70 6f 6e 65 6e 74 73 3b 20 66 of components; f
24b0: 6f 72 20 65 78 61 6d 70 6c 65 20 27 32 2e 39 2e or example '2.9.
24c0: 32 2e 31 27 0a 09 23 20 28 6e 65 76 65 72 20 27 2.1'..# (never '
24d0: 32 2e 39 2e 32 27 20 6e 6f 72 20 27 32 2e 39 2e 2.9.2' nor '2.9.
24e0: 30 2e 32 27 29 2e 20 20 54 68 65 20 72 65 74 75 0.2'). The retu
24f0: 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 0a rn value is the.
2500: 09 23 20 62 72 61 6e 63 68 20 6e 75 6d 62 65 72 .# branch number
2510: 20 28 66 6f 72 20 65 78 61 6d 70 6c 65 2c 20 27 (for example, '
2520: 32 2e 39 2e 32 27 29 2e 20 20 46 6f 72 20 74 72 2.9.2'). For tr
2530: 75 6e 6b 20 72 65 76 69 73 69 6f 6e 73 2c 0a 09 unk revisions,..
2540: 23 20 6c 69 6b 65 20 27 33 2e 34 27 2c 20 77 65 # like '3.4', we
2550: 20 72 65 74 75 72 6e 20 74 68 65 20 65 6d 70 74 return the empt
2560: 79 20 73 74 72 69 6e 67 2e 0a 0a 09 69 66 20 7b y string....if {
2570: 5b 24 74 79 70 65 20 69 73 74 72 75 6e 6b 72 65 [$type istrunkre
2580: 76 6e 72 20 24 72 65 76 6e 72 5d 7d 20 7b 0a 09 vnr $revnr]} {..
2590: 20 20 20 20 72 65 74 75 72 6e 20 22 22 0a 09 7d return ""..}
25a0: 0a 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 5b ..return [join [
25b0: 6c 72 61 6e 67 65 20 5b 73 70 6c 69 74 20 24 72 lrange [split $r
25c0: 65 76 6e 72 20 2e 5d 20 30 20 65 6e 64 2d 31 5d evnr .] 0 end-1]
25d0: 20 2e 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 .]. }.. t
25e0: 79 70 65 6d 65 74 68 6f 64 20 32 62 72 61 6e 63 ypemethod 2branc
25f0: 68 70 61 72 65 6e 74 72 65 76 6e 72 20 7b 62 72 hparentrevnr {br
2600: 61 6e 63 68 6e 72 7d 20 7b 0a 09 23 20 43 68 6f anchnr} {..# Cho
2610: 70 20 74 68 65 20 6c 61 73 74 20 73 65 67 6d 65 p the last segme
2620: 6e 74 20 6f 66 66 0a 09 72 65 74 75 72 6e 20 5b nt off..return [
2630: 6a 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 5b 73 70 join [lrange [sp
2640: 6c 69 74 20 24 62 72 61 6e 63 68 6e 72 20 2e 5d lit $branchnr .]
2650: 20 30 20 65 6e 64 2d 31 5d 20 2e 5d 0a 20 20 20 0 end-1] .].
2660: 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 }.. # # ## #
2670: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
2680: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a # #############.
2690: 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 65 72 73 . method pers
26a0: 69 73 74 20 7b 7d 20 7b 0a 09 73 65 74 20 66 69 ist {} {..set fi
26b0: 64 20 5b 24 6d 79 66 69 6c 65 20 69 64 5d 0a 09 d [$myfile id]..
26c0: 73 65 74 20 6f 70 20 20 24 6d 79 6f 70 63 6f 64 set op $myopcod
26d0: 65 28 24 6d 79 6f 70 65 72 61 74 69 6f 6e 29 0a e($myoperation).
26e0: 09 73 65 74 20 69 64 62 20 24 6d 79 69 73 6f 6e .set idb $myison
26f0: 64 65 66 61 75 6c 74 62 72 61 6e 63 68 0a 0a 09 defaultbranch...
2700: 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 struct::list ass
2710: 69 67 6e 20 24 6d 79 74 65 78 74 20 63 73 20 63 ign $mytext cs c
2720: 6c 0a 09 73 65 74 20 63 6c 20 5b 65 78 70 72 20 l..set cl [expr
2730: 7b 24 63 6c 20 2d 20 24 63 73 7d 5d 0a 0a 09 6c {$cl - $cs}]...l
2740: 61 70 70 65 6e 64 20 6d 61 70 20 40 4c 40 20 5b append map @L@ [
2750: 65 78 70 72 20 7b 20 5b 24 6d 79 6c 6f 64 20 69 expr { [$mylod i
2760: 73 74 72 75 6e 6b 5d 20 20 20 20 20 20 20 20 3f strunk] ?
2770: 20 22 4e 55 4c 4c 22 20 3a 20 5b 24 6d 79 6c 6f "NULL" : [$mylo
2780: 64 20 20 20 20 20 20 20 20 20 20 69 64 5d 20 7d d id] }
2790: 5d 0a 09 6c 61 70 70 65 6e 64 20 6d 61 70 20 40 ]..lappend map @
27a0: 50 40 20 5b 65 78 70 72 20 7b 20 28 24 6d 79 70 P@ [expr { ($myp
27b0: 61 72 65 6e 74 20 20 20 20 20 20 20 65 71 20 22 arent eq "
27c0: 22 29 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 5b 24 ") ? "NULL" : [$
27d0: 6d 79 70 61 72 65 6e 74 20 20 20 20 20 20 20 69 myparent i
27e0: 64 5d 20 7d 5d 0a 09 6c 61 70 70 65 6e 64 20 6d d] }]..lappend m
27f0: 61 70 20 40 43 40 20 5b 65 78 70 72 20 7b 20 28 ap @C@ [expr { (
2800: 24 6d 79 63 68 69 6c 64 20 20 20 20 20 20 20 20 $mychild
2810: 65 71 20 22 22 29 20 3f 20 22 4e 55 4c 4c 22 20 eq "") ? "NULL"
2820: 3a 20 5b 24 6d 79 63 68 69 6c 64 20 20 20 20 20 : [$mychild
2830: 20 20 20 69 64 5d 20 7d 5d 0a 09 6c 61 70 70 65 id] }]..lappe
2840: 6e 64 20 6d 61 70 20 40 44 50 20 5b 65 78 70 72 nd map @DP [expr
2850: 20 7b 20 28 24 6d 79 64 62 70 61 72 65 6e 74 20 { ($mydbparent
2860: 20 20 20 20 65 71 20 22 22 29 20 3f 20 22 4e 55 eq "") ? "NU
2870: 4c 4c 22 20 3a 20 5b 24 6d 79 64 62 70 61 72 65 LL" : [$mydbpare
2880: 6e 74 20 20 20 20 20 69 64 5d 20 7d 5d 0a 09 6c nt id] }]..l
2890: 61 70 70 65 6e 64 20 6d 61 70 20 40 44 43 20 5b append map @DC [
28a0: 65 78 70 72 20 7b 20 28 24 6d 79 64 62 63 68 69 expr { ($mydbchi
28b0: 6c 64 20 20 20 20 20 20 65 71 20 22 22 29 20 3f ld eq "") ?
28c0: 20 22 4e 55 4c 4c 22 20 3a 20 5b 24 6d 79 64 62 "NULL" : [$mydb
28d0: 63 68 69 6c 64 20 20 20 20 20 20 69 64 5d 20 7d child id] }
28e0: 5d 0a 09 6c 61 70 70 65 6e 64 20 6d 61 70 20 40 ]..lappend map @
28f0: 42 50 20 5b 65 78 70 72 20 7b 20 28 24 6d 79 70 BP [expr { ($myp
2900: 61 72 65 6e 74 62 72 61 6e 63 68 20 65 71 20 22 arentbranch eq "
2910: 22 29 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 5b 24 ") ? "NULL" : [$
2920: 6d 79 70 61 72 65 6e 74 62 72 61 6e 63 68 20 69 myparentbranch i
2930: 64 5d 20 7d 5d 0a 0a 09 73 65 74 20 63 6d 64 20 d] }]...set cmd
2940: 7b 0a 09 20 20 20 20 49 4e 53 45 52 54 20 49 4e {.. INSERT IN
2950: 54 4f 20 72 65 76 69 73 69 6f 6e 20 28 20 72 69 TO revision ( ri
2960: 64 2c 20 20 20 66 69 64 2c 20 6c 6f 64 2c 20 20 d, fid, lod,
2970: 72 65 76 2c 20 20 20 20 20 20 64 61 74 65 2c 20 rev, date,
2980: 20 20 20 73 74 61 74 65 2c 20 20 20 20 6d 69 64 state, mid
2990: 2c 20 20 20 20 20 20 20 63 73 2c 20 20 63 6c 2c , cs, cl,
29a0: 20 6f 70 2c 20 20 20 69 73 64 65 66 61 75 6c 74 op, isdefault
29b0: 2c 20 70 61 72 65 6e 74 2c 20 63 68 69 6c 64 2c , parent, child,
29c0: 20 64 62 70 61 72 65 6e 74 2c 20 64 62 63 68 69 dbparent, dbchi
29d0: 6c 64 2c 20 62 70 61 72 65 6e 74 29 0a 09 20 20 ld, bparent)..
29e0: 20 20 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 VALUES
29f0: 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c 20 24 ($myid, $
2a00: 66 69 64 2c 20 40 4c 40 2c 20 24 6d 79 72 65 76 fid, @L@, $myrev
2a10: 6e 72 2c 20 24 6d 79 64 61 74 65 2c 20 24 6d 79 nr, $mydate, $my
2a20: 73 74 61 74 65 2c 20 24 6d 79 6d 65 74 61 69 64 state, $mymetaid
2a30: 2c 20 24 63 73 2c 20 24 63 6c 2c 20 24 6f 70 2c , $cs, $cl, $op,
2a40: 20 24 69 64 62 2c 20 20 20 20 20 20 20 40 50 40 $idb, @P@
2a50: 2c 20 20 20 20 40 43 40 2c 20 20 20 40 44 50 2c , @C@, @DP,
2a60: 20 20 20 20 20 20 40 44 43 2c 20 20 20 20 20 40 @DC, @
2a70: 42 50 29 3b 0a 09 7d 0a 0a 09 73 74 61 74 65 20 BP);..}...state
2a80: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 20 transaction {..
2a90: 20 20 20 73 74 61 74 65 20 72 75 6e 20 5b 73 74 state run [st
2aa0: 72 69 6e 67 20 6d 61 70 20 24 6d 61 70 20 24 63 ring map $map $c
2ab0: 6d 64 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 md]..}..return.
2ac0: 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 }.. # # ##
2ad0: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
2ae0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
2af0: 23 0a 20 20 20 20 23 23 20 53 74 61 74 65 0a 0a #. ## State..
2b00: 20 20 20 20 23 20 50 65 72 73 69 73 74 65 6e 74 # Persistent
2b10: 3a 20 6d 79 69 64 20 20 20 20 20 20 20 20 20 20 : myid
2b20: 20 20 20 20 20 20 2d 20 72 65 76 69 73 69 6f 6e - revision
2b30: 2e 72 69 64 0a 20 20 20 20 23 20 20 20 20 20 20 .rid. #
2b40: 20 20 20 20 20 20 20 6d 79 66 69 6c 65 20 20 20 myfile
2b50: 20 20 20 20 20 20 20 20 20 20 20 2d 20 72 65 76 - rev
2b60: 69 73 69 6f 6e 2e 66 69 64 0a 20 20 20 20 23 20 ision.fid. #
2b70: 20 20 20 20 20 20 20 20 20 20 20 20 6d 79 6c 6f mylo
2b80: 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d
2b90: 2d 20 72 65 76 69 73 69 6f 6e 2e 6c 6f 64 0a 20 - revision.lod.
2ba0: 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 #
2bb0: 20 6d 79 72 65 76 6e 72 20 20 20 20 20 20 20 20 myrevnr
2bc0: 20 20 20 20 20 2d 20 72 65 76 69 73 69 6f 6e 2e - revision.
2bd0: 72 65 76 0a 20 20 20 20 23 20 20 20 20 20 20 20 rev. #
2be0: 20 20 20 20 20 20 6d 79 64 61 74 65 20 20 20 20 mydate
2bf0: 20 20 20 20 20 20 20 20 20 20 2d 20 72 65 76 69 - revi
2c00: 73 69 6f 6e 2e 64 61 74 65 0a 20 20 20 20 23 20 sion.date. #
2c10: 20 20 20 20 20 20 20 20 20 20 20 20 6d 79 73 74 myst
2c20: 61 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ate
2c30: 2d 20 72 65 76 69 73 69 6f 6e 2e 73 74 61 74 65 - revision.state
2c40: 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 . #
2c50: 20 20 20 6d 79 6d 65 74 61 69 64 20 20 20 20 20 mymetaid
2c60: 20 20 20 20 20 20 20 2d 20 72 65 76 69 73 69 6f - revisio
2c70: 6e 2e 6d 69 64 0a 20 20 20 20 23 20 20 20 20 20 n.mid. #
2c80: 20 20 20 20 20 20 20 20 6d 79 74 65 78 74 20 20 mytext
2c90: 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 72 65 - re
2ca0: 76 69 73 69 6f 6e 2e 7b 63 73 2c 63 6c 7d 0a 20 vision.{cs,cl}.
2cb0: 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 #
2cc0: 20 6d 79 70 61 72 65 6e 74 20 20 20 20 20 20 20 myparent
2cd0: 20 20 20 20 20 2d 20 72 65 76 69 73 69 6f 6e 2e - revision.
2ce0: 70 61 72 65 6e 74 0a 20 20 20 20 23 20 20 20 20 parent. #
2cf0: 20 20 20 20 20 20 20 20 20 6d 79 63 68 69 6c 64 mychild
2d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 72 - r
2d10: 65 76 69 73 69 6f 6e 2e 63 68 69 6c 64 0a 20 20 evision.child.
2d20: 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 #
2d30: 6d 79 70 61 72 65 6e 74 62 72 61 6e 63 68 20 20 myparentbranch
2d40: 20 20 20 20 2d 20 72 65 76 69 73 69 6f 6e 2e 62 - revision.b
2d50: 70 61 72 65 6e 74 0a 20 20 20 20 23 20 20 20 20 parent. #
2d60: 20 20 20 20 20 20 20 20 20 6d 79 6f 70 65 72 61 myopera
2d70: 74 69 6f 6e 20 20 20 20 20 20 20 20 20 2d 20 72 tion - r
2d80: 65 76 69 73 69 6f 6e 2e 6f 70 0a 20 20 20 20 23 evision.op. #
2d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 79 69 myi
2da0: 73 6f 6e 64 65 66 61 75 6c 74 62 72 61 6e 63 68 sondefaultbranch
2db0: 20 2d 20 72 65 76 69 73 69 6f 6e 2e 69 73 64 65 - revision.isde
2dc0: 66 61 75 6c 74 0a 20 20 20 20 23 20 20 20 20 20 fault. #
2dd0: 20 20 20 20 20 20 20 20 6d 79 64 62 70 61 72 65 mydbpare
2de0: 6e 74 20 20 20 20 20 20 20 20 20 20 2d 20 72 65 nt - re
2df0: 76 69 73 69 6f 6e 2e 64 62 70 61 72 65 6e 74 0a vision.dbparent.
2e00: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 #
2e10: 20 20 6d 79 64 62 63 68 69 6c 64 20 20 20 20 20 mydbchild
2e20: 20 20 20 20 20 20 2d 20 72 65 76 69 73 69 6f 6e - revision
2e30: 2e 64 62 63 68 69 6c 64 0a 20 0a 0a 20 20 20 20 .dbchild. ..
2e40: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 62 typevariable myb
2e50: 72 61 6e 63 68 70 61 74 74 65 72 6e 20 7b 5e 28 ranchpattern {^(
2e60: 28 3f 3a 5c 64 2b 5c 2e 5c 64 2b 5c 2e 29 2b 29 (?:\d+\.\d+\.)+)
2e70: 28 3f 3a 30 5c 2e 29 3f 28 5c 64 2b 29 24 7d 0a (?:0\.)?(\d+)$}.
2e80: 20 20 20 20 23 20 46 69 72 73 74 20 61 20 6e 6f # First a no
2e90: 6e 7a 65 72 6f 20 65 76 65 6e 20 6e 75 6d 62 65 nzero even numbe
2ea0: 72 20 6f 66 20 64 69 67 69 74 20 67 72 6f 75 70 r of digit group
2eb0: 73 20 77 69 74 68 20 74 72 61 69 6c 69 6e 67 20 s with trailing
2ec0: 64 6f 74 0a 20 20 20 20 23 20 43 56 53 20 74 68 dot. # CVS th
2ed0: 65 6e 20 73 74 69 63 6b 73 20 61 6e 20 65 78 74 en sticks an ext
2ee0: 72 61 20 30 20 69 6e 20 68 65 72 65 3b 20 52 43 ra 0 in here; RC
2ef0: 53 20 64 6f 65 73 20 6e 6f 74 2e 0a 20 20 20 20 S does not..
2f00: 23 20 41 6e 64 20 74 68 65 20 6c 61 73 74 20 64 # And the last d
2f10: 69 67 69 74 20 67 72 6f 75 70 2e 0a 0a 20 20 20 igit group...
2f20: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
2f30: 69 64 63 6f 75 6e 74 65 72 20 30 20 3b 20 23 20 idcounter 0 ; #
2f40: 43 6f 75 6e 74 65 72 20 66 6f 72 20 72 65 76 69 Counter for revi
2f50: 73 69 6f 6e 20 69 64 73 2e 0a 20 20 20 20 76 61 sion ids.. va
2f60: 72 69 61 62 6c 65 20 6d 79 69 64 20 20 20 20 20 riable myid
2f70: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 76 {} ; # Rev
2f80: 69 73 69 6f 6e 20 69 64 2e 0a 0a 20 20 20 20 76 ision id... v
2f90: 61 72 69 61 62 6c 65 20 6d 79 72 65 76 6e 72 20 ariable myrevnr
2fa0: 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 76 69 73 {} ; # Revis
2fb0: 69 6f 6e 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 ion number of th
2fc0: 65 20 72 65 76 69 73 69 6f 6e 2e 0a 20 20 20 20 e revision..
2fd0: 76 61 72 69 61 62 6c 65 20 6d 79 64 61 74 65 20 variable mydate
2fe0: 20 20 20 20 20 7b 7d 20 3b 20 23 20 54 69 6d 65 {} ; # Time
2ff0: 73 74 61 6d 70 20 6f 66 20 74 68 65 20 72 65 76 stamp of the rev
3000: 69 73 69 6f 6e 2c 20 73 65 63 6f 6e 64 73 20 73 ision, seconds s
3010: 69 6e 63 65 20 65 70 6f 63 68 0a 20 20 20 20 76 ince epoch. v
3020: 61 72 69 61 62 6c 65 20 6d 79 6f 72 69 67 64 61 ariable myorigda
3030: 74 65 20 20 7b 7d 20 3b 20 23 20 4f 72 69 67 69 te {} ; # Origi
3040: 6e 61 6c 20 75 6e 6d 6f 64 69 66 69 65 64 20 74 nal unmodified t
3050: 69 6d 65 73 74 61 6d 70 2e 0a 20 20 20 20 76 61 imestamp.. va
3060: 72 69 61 62 6c 65 20 6d 79 73 74 61 74 65 20 20 riable mystate
3070: 20 20 20 7b 7d 20 3b 20 23 20 53 74 61 74 65 20 {} ; # State
3080: 6f 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e 2e of the revision.
3090: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
30a0: 66 69 6c 65 20 20 20 20 20 20 7b 7d 20 3b 20 23 file {} ; #
30b0: 20 52 65 66 20 74 6f 20 74 68 65 20 66 69 6c 65 Ref to the file
30c0: 20 6f 62 6a 65 63 74 20 74 68 65 20 72 65 76 69 object the revi
30d0: 73 69 6f 6e 20 62 65 6c 6f 6e 67 73 20 74 6f 2e sion belongs to.
30e0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
30f0: 74 65 78 74 20 20 20 20 20 20 7b 7d 20 3b 20 23 text {} ; #
3100: 20 52 61 6e 67 65 20 6f 66 20 74 68 65 20 28 64 Range of the (d
3110: 65 6c 74 61 29 20 74 65 78 74 20 66 6f 72 20 74 elta) text for t
3120: 68 69 73 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 his revision in
3130: 74 68 65 20 66 69 6c 65 2e 0a 20 20 20 20 76 61 the file.. va
3140: 72 69 61 62 6c 65 20 6d 79 6d 65 74 61 69 64 20 riable mymetaid
3150: 20 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f 66 20 {} ; # Id of
3160: 74 68 65 20 6d 65 74 61 20 64 61 74 61 20 67 72 the meta data gr
3170: 6f 75 70 20 74 68 65 20 72 65 76 69 73 69 6f 6e oup the revision
3180: 0a 09 09 09 20 20 20 20 20 20 23 20 62 65 6c 6f .... # belo
3190: 6e 67 73 20 74 6f 2e 20 54 68 69 73 20 69 73 20 ngs to. This is
31a0: 6c 61 74 65 72 20 75 73 65 64 20 74 6f 20 70 75 later used to pu
31b0: 74 0a 09 09 09 20 20 20 20 20 20 23 20 74 68 65 t.... # the
31c0: 20 66 69 6c 65 20 72 65 76 69 73 69 6f 6e 73 20 file revisions
31d0: 69 6e 74 6f 20 70 72 65 6c 69 6d 69 6e 61 72 79 into preliminary
31e0: 0a 09 09 09 20 20 20 20 20 20 23 20 63 68 61 6e .... # chan
31f0: 67 65 73 65 74 73 20 28 61 6b 61 20 70 72 6f 6a gesets (aka proj
3200: 65 63 74 20 72 65 76 69 73 69 6f 6e 73 29 2e 0a ect revisions)..
3210: 09 09 09 20 20 20 20 20 20 23 20 54 68 69 73 20 ... # This
3220: 69 64 20 65 6e 63 6f 64 65 73 20 34 20 70 69 65 id encodes 4 pie
3230: 63 65 73 20 6f 66 20 64 61 74 61 2c 0a 09 09 09 ces of data,....
3240: 20 20 20 20 20 20 23 20 6e 61 6d 65 6c 79 3a 20 # namely:
3250: 74 68 65 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 the project and
3260: 62 72 61 6e 63 68 20 74 68 65 0a 09 09 09 20 20 branch the....
3270: 20 20 20 20 23 20 72 65 76 69 73 69 6f 6e 20 77 # revision w
3280: 61 73 20 63 6f 6d 6d 69 74 74 65 64 20 74 6f 2c as committed to,
3290: 20 74 68 65 20 61 75 74 68 6f 72 0a 09 09 09 20 the author....
32a0: 20 20 20 20 20 23 20 77 68 6f 20 64 69 64 20 74 # who did t
32b0: 68 65 20 63 6f 6d 6d 69 74 2c 20 61 6e 64 20 74 he commit, and t
32c0: 68 65 20 6d 65 73 73 61 67 65 0a 09 09 09 20 20 he message....
32d0: 20 20 20 20 23 20 75 73 65 64 2e 0a 20 20 20 20 # used..
32e0: 76 61 72 69 61 62 6c 65 20 6d 79 6c 6f 64 20 20 variable mylod
32f0: 20 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 {} ; # Refe
3300: 72 65 6e 63 65 20 74 6f 20 74 68 65 20 6c 69 6e rence to the lin
3310: 65 2d 6f 66 2d 64 65 76 65 6c 6f 70 6d 65 6e 74 e-of-development
3320: 0a 09 09 09 20 20 20 20 20 20 23 20 6f 62 6a 65 .... # obje
3330: 63 74 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 ct the revision
3340: 62 65 6c 6f 6e 67 73 20 74 6f 2e 20 41 6e 0a 09 belongs to. An..
3350: 09 09 20 20 20 20 20 20 23 20 61 6c 74 65 72 6e .. # altern
3360: 61 74 69 76 65 20 69 64 69 6f 6d 20 77 6f 75 6c ative idiom woul
3370: 64 20 62 65 20 74 6f 20 63 61 6c 6c 20 69 74 0a d be to call it.
3380: 09 09 09 20 20 20 20 20 20 23 20 74 68 65 20 62 ... # the b
3390: 72 61 6e 63 68 20 74 68 65 20 72 65 76 69 73 69 ranch the revisi
33a0: 6f 6e 20 69 73 20 6f 6e 2e 20 54 68 69 73 0a 09 on is on. This..
33b0: 09 09 20 20 20 20 20 20 23 20 72 65 66 65 72 65 .. # refere
33c0: 6e 63 65 20 69 73 20 74 6f 20 61 20 70 72 6f 6a nce is to a proj
33d0: 65 63 74 2d 6c 65 76 65 6c 20 6f 62 6a 65 63 74 ect-level object
33e0: 0a 09 09 09 20 20 20 20 20 20 23 20 28 73 79 6d .... # (sym
33f0: 62 6f 6c 20 6f 72 20 74 72 75 6e 6b 29 2e 0a 0a bol or trunk)...
3400: 20 20 20 20 23 20 42 61 73 69 63 20 70 61 72 65 # Basic pare
3410: 6e 74 2f 63 68 69 6c 64 20 6c 69 6e 6b 61 67 65 nt/child linkage
3420: 20 28 6c 69 6e 65 73 20 6f 66 20 64 65 76 65 6c (lines of devel
3430: 6f 70 6d 65 6e 74 29 0a 0a 20 20 20 20 76 61 72 opment).. var
3440: 69 61 62 6c 65 20 6d 79 70 61 72 65 6e 74 20 7b iable myparent {
3450: 7d 20 3b 20 23 20 52 65 66 20 74 6f 20 70 61 72 } ; # Ref to par
3460: 65 6e 74 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a ent revision obj
3470: 65 63 74 2e 20 4c 69 6e 6b 20 72 65 71 75 69 72 ect. Link requir
3480: 65 64 20 62 65 63 61 75 73 65 20 6f 66 0a 20 20 ed because of.
3490: 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 #
34a0: 20 20 20 20 20 20 20 3b 20 23 20 27 63 76 73 61 ; # 'cvsa
34b0: 64 6d 69 6e 20 2d 6f 27 2c 20 77 68 69 63 68 20 dmin -o', which
34c0: 63 61 6e 20 63 72 65 61 74 65 20 61 72 62 69 74 can create arbit
34d0: 72 61 72 79 20 67 61 70 73 20 69 6e 20 74 68 65 rary gaps in the
34e0: 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 . #
34f0: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 6e 75 ; # nu
3500: 6d 62 65 72 69 6e 67 20 73 65 71 75 65 6e 63 65 mbering sequence
3510: 2e 20 54 68 69 73 20 69 73 20 69 6e 20 74 68 65 . This is in the
3520: 20 73 61 6d 65 20 6c 69 6e 65 20 6f 66 20 64 65 same line of de
3530: 76 65 6c 6f 70 6d 65 6e 74 0a 20 20 20 20 23 20 velopment. #
3540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3550: 20 20 20 3b 20 23 20 4e 6f 74 65 3a 20 46 6f 72 ; # Note: For
3560: 20 74 68 65 20 66 69 72 73 74 20 72 65 76 69 73 the first revis
3570: 69 6f 6e 20 6f 6e 20 61 20 62 72 61 6e 63 68 20 ion on a branch
3580: 74 68 65 20 72 65 76 69 73 69 6f 6e 0a 20 20 20 the revision.
3590: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
35a0: 20 20 20 20 20 20 3b 20 23 20 69 74 20 77 61 73 ; # it was
35b0: 20 73 70 61 77 6e 65 64 20 66 72 6f 6d 20 69 73 spawned from is
35c0: 20 74 68 65 20 70 61 72 65 6e 74 2e 20 4f 6e 6c the parent. Onl
35d0: 79 20 74 68 65 20 72 6f 6f 74 20 72 65 76 69 73 y the root revis
35e0: 69 6f 6e 0a 20 20 20 20 23 20 20 20 20 20 20 20 ion. #
35f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
3600: 20 6f 66 20 6d 79 66 69 6c 65 27 73 20 72 65 76 of myfile's rev
3610: 69 73 69 6f 6e 20 74 72 65 65 20 68 61 73 20 6e ision tree has n
3620: 6f 74 68 69 6e 67 20 73 65 74 20 68 65 72 65 2e othing set here.
3630: 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 . #
3640: 20 20 20 20 20 20 20 20 20 20 3b 20 23 0a 0a 20 ; #..
3650: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 63 68 variable mych
3660: 69 6c 64 20 20 7b 7d 20 3b 20 23 20 52 65 66 20 ild {} ; # Ref
3670: 74 6f 20 74 68 65 20 70 72 69 6d 61 72 79 20 63 to the primary c
3680: 68 69 6c 64 20 72 65 76 69 73 69 6f 6e 20 6f 62 hild revision ob
3690: 6a 65 63 74 2c 20 69 2e 65 2e 20 74 68 65 20 6e ject, i.e. the n
36a0: 65 78 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 ext. #
36b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
36c0: 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 74 68 65 revision in the
36d0: 20 73 61 6d 65 20 6c 69 6e 65 20 6f 66 20 64 65 same line of de
36e0: 76 65 6c 6f 70 6d 65 6e 74 2e 0a 0a 20 20 20 20 velopment...
36f0: 23 20 42 72 61 6e 63 68 20 6c 69 6e 6b 61 67 65 # Branch linkage
3700: 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f _______________
3710: 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 76 61 72 69 61 _____.. varia
3720: 62 6c 65 20 6d 79 62 72 61 6e 63 68 65 73 20 20 ble mybranches
3730: 20 20 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f {} ; # List o
3740: 66 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 28 f the branches (
3750: 6f 62 6a 73 29 20 73 70 61 77 6e 65 64 20 62 79 objs) spawned by
3760: 20 74 68 69 73 20 72 65 76 69 73 69 6f 6e 2e 0a this revision..
3770: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 variable myp
3780: 61 72 65 6e 74 62 72 61 6e 63 68 20 7b 7d 20 3b arentbranch {} ;
3790: 20 23 20 46 6f 72 20 74 68 65 20 66 69 72 73 74 # For the first
37a0: 20 72 65 76 69 73 69 6f 6e 20 6f 6e 20 61 20 62 revision on a b
37b0: 72 61 6e 63 68 20 74 68 65 20 72 65 6c 65 76 61 ranch the releva
37c0: 6e 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 nt. #
37d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
37e0: 20 20 3b 20 23 20 62 72 61 6e 63 68 20 6f 62 6a ; # branch obj
37f0: 65 63 74 2e 20 54 68 69 73 20 61 6c 73 6f 20 61 ect. This also a
3800: 6c 6c 6f 77 73 20 75 73 20 74 6f 20 64 65 74 65 llows us to dete
3810: 72 6d 69 6e 65 20 69 66 0a 20 20 20 20 23 20 20 rmine if. #
3820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3830: 20 20 20 20 20 20 20 20 3b 20 23 20 6d 79 70 61 ; # mypa
3840: 72 65 6e 74 20 69 73 20 69 6e 20 74 68 65 20 73 rent is in the s
3850: 61 6d 65 20 4c 4f 44 2c 20 6f 72 20 74 68 65 20 ame LOD, or the
3860: 72 65 76 69 73 69 6f 6e 20 74 68 65 0a 20 20 20 revision the.
3870: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
3880: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
3890: 62 72 61 6e 63 68 20 73 70 61 77 6e 65 64 20 66 branch spawned f
38a0: 72 6f 6d 2e 0a 0a 20 20 20 20 23 20 4c 69 73 74 rom... # List
38b0: 20 6f 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e of the revision
38c0: 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 68 65 20 objects of the
38d0: 66 69 72 73 74 20 63 6f 6d 6d 69 74 73 20 6f 6e first commits on
38e0: 20 61 6e 79 0a 20 20 20 20 23 20 62 72 61 6e 63 any. # branc
38f0: 68 65 73 20 73 70 61 77 6e 65 64 20 62 79 20 74 hes spawned by t
3900: 68 69 73 20 72 65 76 69 73 69 6f 6e 20 6f 6e 20 his revision on
3910: 77 68 69 63 68 20 63 6f 6d 6d 69 74 73 20 6f 63 which commits oc
3920: 63 75 72 72 65 64 2e 0a 20 20 20 20 23 20 54 68 curred.. # Th
3930: 69 73 20 64 65 70 65 6e 64 65 6e 63 79 20 69 73 is dependency is
3940: 20 6b 65 70 74 20 65 78 70 6c 69 63 69 74 6c 79 kept explicitly
3950: 20 62 65 63 61 75 73 65 20 6f 74 68 65 72 77 69 because otherwi
3960: 73 65 20 61 0a 20 20 20 20 23 20 72 65 76 69 73 se a. # revis
3970: 69 6f 6e 2d 6f 6e 6c 79 20 74 6f 70 6f 6c 6f 67 ion-only topolog
3980: 69 63 61 6c 20 73 6f 72 74 20 77 6f 75 6c 64 20 ical sort would
3990: 6d 69 73 73 20 74 68 65 20 64 65 70 65 6e 64 65 miss the depende
39a0: 6e 63 79 20 74 68 61 74 0a 20 20 20 20 23 20 65 ncy that. # e
39b0: 78 69 73 74 73 20 76 69 61 20 2d 3e 20 6d 79 62 xists via -> myb
39c0: 72 61 6e 63 68 65 73 2e 0a 0a 20 20 20 20 76 61 ranches... va
39d0: 72 69 61 62 6c 65 20 6d 79 62 72 61 6e 63 68 63 riable mybranchc
39e0: 68 69 6c 64 72 65 6e 20 7b 7d 20 3b 20 23 20 4c hildren {} ; # L
39f0: 69 73 74 20 6f 66 20 74 68 65 20 72 65 76 69 73 ist of the revis
3a00: 69 6f 6e 73 20 28 6f 62 6a 73 29 20 77 68 69 63 ions (objs) whic
3a10: 68 20 61 72 65 20 74 68 65 20 66 69 72 73 74 0a h are the first.
3a20: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 #
3a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a40: 20 3b 20 23 20 63 6f 6d 6d 69 74 73 20 6f 6e 20 ; # commits on
3a50: 61 6e 79 20 6f 66 20 74 68 65 20 62 72 61 6e 63 any of the branc
3a60: 68 65 73 20 73 70 61 77 6e 65 64 20 66 72 6f 6d hes spawned from
3a70: 20 74 68 69 73 0a 20 20 20 20 23 20 20 20 20 20 this. #
3a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a90: 20 20 20 20 20 20 20 3b 20 23 20 72 65 76 69 73 ; # revis
3aa0: 69 6f 6e 2e 20 54 68 65 20 64 65 70 65 6e 64 65 ion. The depende
3ab0: 6e 63 79 20 69 73 20 6b 65 70 74 20 65 78 70 6c ncy is kept expl
3ac0: 69 63 69 74 6c 79 20 74 6f 0a 20 20 20 20 23 20 icitly to. #
3ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ae0: 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 65 ; # e
3af0: 6e 73 75 72 65 20 74 68 61 74 20 61 20 72 65 76 nsure that a rev
3b00: 69 73 69 6f 6e 2d 6f 6e 6c 79 20 74 6f 70 6f 6c ision-only topol
3b10: 6f 67 69 63 61 6c 20 73 6f 72 74 20 77 69 6c 6c ogical sort will
3b20: 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 . #
3b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3b40: 20 20 3b 20 23 20 6e 6f 74 20 6d 69 73 73 20 69 ; # not miss i
3b50: 74 2c 20 61 73 20 69 74 20 6f 74 68 65 72 77 69 t, as it otherwi
3b60: 73 65 20 65 78 69 73 74 73 20 6f 6e 6c 79 20 76 se exists only v
3b70: 69 61 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 ia. #
3b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3b90: 20 20 20 20 3b 20 23 20 6d 79 62 72 61 6e 63 68 ; # mybranch
3ba0: 65 73 2e 0a 0a 20 20 20 20 23 20 54 61 67 20 6c es... # Tag l
3bb0: 69 6e 6b 61 67 65 20 5f 5f 5f 5f 5f 5f 5f 5f 5f inkage _________
3bc0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a _______________.
3bd0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 . variable my
3be0: 74 61 67 73 20 7b 7d 20 3b 20 23 20 4c 69 73 74 tags {} ; # List
3bf0: 20 6f 66 20 74 61 67 73 20 28 6f 62 6a 73 29 20 of tags (objs)
3c00: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 associated with
3c10: 74 68 69 73 20 72 65 76 69 73 69 6f 6e 2e 0a 0a this revision...
3c20: 20 20 20 20 23 20 4d 6f 72 65 20 64 65 72 69 76 # More deriv
3c30: 65 64 20 64 61 74 61 0a 0a 20 20 20 20 76 61 72 ed data.. var
3c40: 69 61 62 6c 65 20 6d 79 6f 70 65 72 61 74 69 6f iable myoperatio
3c50: 6e 20 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 n {} ; #
3c60: 4f 6e 65 20 6f 66 20 27 61 64 64 27 2c 20 27 63 One of 'add', 'c
3c70: 68 61 6e 67 65 27 2c 20 27 64 65 6c 65 74 65 27 hange', 'delete'
3c80: 2c 20 6f 72 0a 09 09 09 20 20 20 20 20 20 20 20 , or....
3c90: 20 20 20 20 20 23 20 27 6e 6f 74 68 69 6e 67 27 # 'nothing'
3ca0: 2e 20 44 65 72 69 76 65 64 20 66 72 6f 6d 20 6f . Derived from o
3cb0: 75 72 20 61 6e 64 0a 09 09 09 20 20 20 20 20 20 ur and....
3cc0: 20 20 20 20 20 20 20 23 20 69 74 73 20 70 61 72 # its par
3cd0: 65 6e 74 27 73 20 73 74 61 74 65 2e 0a 20 20 20 ent's state..
3ce0: 20 76 61 72 69 61 62 6c 65 20 6d 79 69 73 6f 6e variable myison
3cf0: 64 65 66 61 75 6c 74 62 72 61 6e 63 68 20 30 20 defaultbranch 0
3d00: 3b 20 23 20 42 6f 6f 6c 65 61 6e 20 66 6c 61 67 ; # Boolean flag
3d10: 2c 20 73 65 74 20 69 66 20 74 68 65 0a 09 09 09 , set if the....
3d20: 09 20 20 20 20 20 23 20 72 65 76 69 73 69 6f 6e . # revision
3d30: 20 69 73 20 6f 6e 20 74 68 65 20 6e 6f 6e 2d 74 is on the non-t
3d40: 72 75 6e 6b 0a 09 09 09 09 20 20 20 20 20 23 20 runk..... #
3d50: 64 65 66 61 75 6c 74 20 62 72 61 6e 63 68 2c 20 default branch,
3d60: 61 6b 61 20 76 65 6e 64 6f 72 0a 09 09 09 09 20 aka vendor.....
3d70: 20 20 20 20 23 20 62 72 61 6e 63 68 2e 0a 20 20 # branch..
3d80: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 64 62 70 variable mydbp
3d90: 61 72 65 6e 74 20 20 20 20 20 20 20 20 20 7b 7d arent {}
3da0: 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 20 74 ; # Reference t
3db0: 6f 20 74 68 65 20 6c 61 73 74 20 72 65 76 69 73 o the last revis
3dc0: 69 6f 6e 0a 09 09 09 09 20 20 20 20 20 23 20 6f ion..... # o
3dd0: 6e 20 74 68 65 20 76 65 6e 64 6f 72 20 62 72 61 n the vendor bra
3de0: 6e 63 68 20 69 66 20 74 68 69 73 20 69 73 0a 09 nch if this is..
3df0: 09 09 09 20 20 20 20 20 23 20 74 68 65 20 70 72 ... # the pr
3e00: 69 6d 61 72 79 20 63 68 69 6c 64 20 6f 66 20 74 imary child of t
3e10: 68 65 0a 09 09 09 09 20 20 20 20 20 23 20 72 65 he..... # re
3e20: 67 75 6c 61 72 20 72 6f 6f 74 2e 0a 20 20 20 20 gular root..
3e30: 76 61 72 69 61 62 6c 65 20 6d 79 64 62 63 68 69 variable mydbchi
3e40: 6c 64 20 20 20 20 20 20 20 20 20 20 7b 7d 20 3b ld {} ;
3e50: 20 23 20 52 65 66 65 72 65 6e 63 65 20 74 6f 20 # Reference to
3e60: 74 68 65 20 70 72 69 6d 61 72 79 20 63 68 69 6c the primary chil
3e70: 64 0a 09 09 09 09 20 20 20 20 20 23 20 6f 66 20 d..... # of
3e80: 74 68 65 20 72 65 67 75 6c 61 72 20 72 6f 6f 74 the regular root
3e90: 20 69 66 20 74 68 69 73 20 69 73 0a 09 09 09 09 if this is.....
3ea0: 20 20 20 20 20 23 20 74 68 65 20 6c 61 73 74 20 # the last
3eb0: 72 65 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 20 revision on the
3ec0: 76 65 6e 64 6f 72 0a 09 09 09 09 20 20 20 20 20 vendor.....
3ed0: 23 20 62 72 61 6e 63 68 2e 0a 0a 20 20 20 20 23 # branch... #
3ee0: 20 64 65 61 64 28 73 65 6c 66 29 20 78 20 64 65 dead(self) x de
3ef0: 61 64 28 70 61 72 65 6e 74 29 20 2d 3e 20 6f 70 ad(parent) -> op
3f00: 65 72 61 74 69 6f 6e 0a 20 20 20 20 74 79 70 65 eration. type
3f10: 76 61 72 69 61 62 6c 65 20 6d 79 6f 70 73 74 61 variable myopsta
3f20: 74 65 20 2d 61 72 72 61 79 20 7b 0a 09 7b 30 20 te -array {..{0
3f30: 30 7d 20 63 68 61 6e 67 65 0a 09 7b 30 20 31 7d 0} change..{0 1}
3f40: 20 64 65 6c 65 74 65 0a 09 7b 31 20 30 7d 20 61 delete..{1 0} a
3f50: 64 64 0a 09 7b 31 20 31 7d 20 6e 6f 74 68 69 6e dd..{1 1} nothin
3f60: 67 0a 20 20 20 20 7d 0a 20 20 20 20 74 79 70 65 g. }. type
3f70: 76 61 72 69 61 62 6c 65 20 6d 79 6f 70 63 6f 64 variable myopcod
3f80: 65 20 2d 61 72 72 61 79 20 7b 0a 09 63 68 61 6e e -array {..chan
3f90: 67 65 20 20 20 32 0a 09 64 65 6c 65 74 65 20 20 ge 2..delete
3fa0: 2d 31 0a 09 61 64 64 20 20 20 20 20 20 31 0a 09 -1..add 1..
3fb0: 6e 6f 74 68 69 6e 67 20 20 30 0a 20 20 20 20 7d nothing 0. }
3fc0: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
3fd0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
3fe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
3ff0: 20 20 23 23 20 49 6e 74 65 72 6e 61 6c 20 6d 65 ## Internal me
4000: 74 68 6f 64 73 0a 0a 20 20 20 20 23 20 23 20 23 thods.. # # #
4010: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
4020: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
4030: 23 23 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 67 ##. ## Config
4040: 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 61 uration.. pra
4050: 67 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 6f gma -hastypeinfo
4060: 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 74 no ; # no t
4070: 79 70 65 20 69 6e 74 72 6f 73 70 65 63 74 69 6f ype introspectio
4080: 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 n. pragma -ha
4090: 73 69 6e 66 6f 20 20 20 20 20 20 20 20 6e 6f 20 sinfo no
40a0: 20 3b 20 23 20 6e 6f 20 6f 62 6a 65 63 74 20 69 ; # no object i
40b0: 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 ntrospection.
40c0: 20 70 72 61 67 6d 61 20 2d 73 69 6d 70 6c 65 64 pragma -simpled
40d0: 69 73 70 61 74 63 68 20 79 65 73 20 3b 20 23 20 ispatch yes ; #
40e0: 73 69 6d 70 6c 65 20 66 61 73 74 20 64 69 73 70 simple fast disp
40f0: 61 74 63 68 0a 0a 20 20 20 20 23 20 23 20 23 23 atch.. # # ##
4100: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
4110: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
4120: 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 #.}..namespace e
4130: 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c val ::vc::fossil
4140: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 ::import::cvs::f
4150: 69 6c 65 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 ile {. namesp
4160: 61 63 65 20 65 78 70 6f 72 74 20 72 65 76 0a 20 ace export rev.
4170: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 namespace eva
4180: 6c 20 72 65 76 20 7b 0a 09 6e 61 6d 65 73 70 61 l rev {..namespa
4190: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
41a0: 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a 09 tools::misc::*..
41b0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
41c0: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
41d0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
41e0: 65 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 e. }.}..# # #
41f0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
4200: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
4210: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
4220: 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 64 ########.## Read
4230: 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 y..package provi
4240: 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 de vc::fossil::i
4250: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 mport::cvs::file
4260: 3a 3a 72 65 76 20 31 2e 30 0a 72 65 74 75 72 6e ::rev 1.0.return
4270: 0a .