Artifact 00508f634d94131829c53eff7f8987833e07e853:
File
tools/cvs2fossil/lib/c2f_frev.tcl
part of check-in
[e5441b908d]
- Continued work on pass II, starting to post-process tags, branches, and revisions, cleaning up cvs quirks, determining higher-level aggregates ...
by
aku on
2007-10-15 00:03:30.
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 0a 23 # OO system...#
02f0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
0300: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0310: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
0320: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 ############.##
0330: 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 ..snit::type ::v
0340: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0350: 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 72 65 t::cvs::file::re
0360: 76 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 v {. # # ## #
0370: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
0380: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a # #############.
0390: 20 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 ## Public AP
03a0: 49 0a 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 I.. construct
03b0: 6f 72 20 7b 72 65 76 6e 72 20 64 61 74 65 20 73 or {revnr date s
03c0: 74 61 74 65 20 74 68 65 66 69 6c 65 7d 20 7b 0a tate thefile} {.
03d0: 09 73 65 74 20 6d 79 72 65 76 6e 72 20 20 20 20 .set myrevnr
03e0: 24 72 65 76 6e 72 0a 09 73 65 74 20 6d 79 64 61 $revnr..set myda
03f0: 74 65 20 20 20 20 20 24 64 61 74 65 0a 09 73 65 te $date..se
0400: 74 20 6d 79 6f 72 69 67 64 61 74 65 20 24 64 61 t myorigdate $da
0410: 74 65 0a 09 73 65 74 20 6d 79 73 74 61 74 65 20 te..set mystate
0420: 20 20 20 24 73 74 61 74 65 0a 09 73 65 74 20 6d $state..set m
0430: 79 66 69 6c 65 20 20 20 20 20 24 74 68 65 66 69 yfile $thefi
0440: 6c 65 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d le..return. }
0450: 0a 0a 20 20 20 20 23 20 42 61 73 69 63 20 70 69 .. # Basic pi
0460: 65 63 65 73 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f eces ___________
0470: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 _____________..
0480: 20 20 20 6d 65 74 68 6f 64 20 68 61 73 6d 65 74 method hasmet
0490: 61 20 7b 7d 20 20 20 20 20 7b 20 72 65 74 75 72 a {} { retur
04a0: 6e 20 5b 65 78 70 72 20 7b 24 6d 79 6d 65 74 61 n [expr {$mymeta
04b0: 69 64 20 6e 65 20 22 22 7d 5d 20 7d 0a 20 20 20 id ne ""}] }.
04c0: 20 6d 65 74 68 6f 64 20 73 65 74 6d 65 74 61 20 method setmeta
04d0: 7b 6d 65 74 61 7d 20 7b 20 73 65 74 20 6d 79 6d {meta} { set mym
04e0: 65 74 61 69 64 20 24 6d 65 74 61 20 3b 20 72 65 etaid $meta ; re
04f0: 74 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f turn }. metho
0500: 64 20 73 65 74 74 65 78 74 20 7b 74 65 78 74 7d d settext {text}
0510: 20 7b 20 73 65 74 20 6d 79 74 65 78 74 20 20 20 { set mytext
0520: 24 74 65 78 74 20 3b 20 72 65 74 75 72 6e 20 7d $text ; return }
0530: 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 65 74 6c . method setl
0540: 6f 64 20 20 7b 6c 6f 64 7d 20 20 7b 20 73 65 74 od {lod} { set
0550: 20 6d 79 6c 6f 64 20 20 20 20 24 6c 6f 64 20 20 mylod $lod
0560: 3b 20 72 65 74 75 72 6e 20 7d 0a 0a 20 20 20 20 ; return }..
0570: 6d 65 74 68 6f 64 20 72 65 76 6e 72 20 7b 7d 20 method revnr {}
0580: 7b 20 72 65 74 75 72 6e 20 24 6d 79 72 65 76 6e { return $myrevn
0590: 72 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 r }. method s
05a0: 74 61 74 65 20 7b 7d 20 7b 20 72 65 74 75 72 6e tate {} { return
05b0: 20 24 6d 79 73 74 61 74 65 20 7d 0a 20 20 20 20 $mystate }.
05c0: 6d 65 74 68 6f 64 20 6c 6f 64 20 20 20 7b 7d 20 method lod {}
05d0: 7b 20 72 65 74 75 72 6e 20 24 6d 79 6c 6f 64 20 { return $mylod
05e0: 20 20 7d 0a 0a 20 20 20 20 23 20 42 61 73 69 63 }.. # Basic
05f0: 20 70 61 72 65 6e 74 2f 63 68 69 6c 64 20 6c 69 parent/child li
0600: 6e 6b 61 67 65 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f nkage __________
0610: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 68 61 73 .. method has
0620: 70 61 72 65 6e 74 20 7b 7d 20 7b 20 72 65 74 75 parent {} { retu
0630: 72 6e 20 5b 65 78 70 72 20 7b 24 6d 79 70 61 72 rn [expr {$mypar
0640: 65 6e 74 20 6e 65 20 22 22 7d 5d 20 7d 0a 20 20 ent ne ""}] }.
0650: 20 20 6d 65 74 68 6f 64 20 68 61 73 63 68 69 6c method haschil
0660: 64 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 5b d {} { return [
0670: 65 78 70 72 20 7b 24 6d 79 63 68 69 6c 64 20 20 expr {$mychild
0680: 6e 65 20 22 22 7d 5d 20 7d 0a 0a 20 20 20 20 6d ne ""}] }.. m
0690: 65 74 68 6f 64 20 73 65 74 70 61 72 65 6e 74 20 ethod setparent
06a0: 7b 70 61 72 65 6e 74 7d 20 7b 0a 09 69 66 20 7b {parent} {..if {
06b0: 24 6d 79 70 61 72 65 6e 74 20 6e 65 20 22 22 7d $myparent ne ""}
06c0: 20 7b 20 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 { trouble inter
06d0: 6e 61 6c 20 22 50 61 72 65 6e 74 20 61 6c 72 65 nal "Parent alre
06e0: 61 64 79 20 64 65 66 69 6e 65 64 22 20 7d 0a 09 ady defined" }..
06f0: 73 65 74 20 6d 79 70 61 72 65 6e 74 20 24 70 61 set myparent $pa
0700: 72 65 6e 74 0a 09 72 65 74 75 72 6e 0a 20 20 20 rent..return.
0710: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 73 }.. method s
0720: 65 74 63 68 69 6c 64 20 7b 63 68 69 6c 64 7d 20 etchild {child}
0730: 7b 0a 09 69 66 20 7b 24 6d 79 63 68 69 6c 64 20 {..if {$mychild
0740: 6e 65 20 22 22 7d 20 7b 20 74 72 6f 75 62 6c 65 ne ""} { trouble
0750: 20 69 6e 74 65 72 6e 61 6c 20 22 43 68 69 6c 64 internal "Child
0760: 20 61 6c 72 65 61 64 79 20 64 65 66 69 6e 65 64 already defined
0770: 22 20 7d 0a 09 73 65 74 20 6d 79 63 68 69 6c 64 " }..set mychild
0780: 20 24 63 68 69 6c 64 0a 09 72 65 74 75 72 6e 0a $child..return.
0790: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
07a0: 64 20 70 61 72 65 6e 74 20 7b 7d 20 7b 20 72 65 d parent {} { re
07b0: 74 75 72 6e 20 24 6d 79 70 61 72 65 6e 74 20 7d turn $myparent }
07c0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 68 69 6c . method chil
07d0: 64 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 d {} { return $
07e0: 6d 79 63 68 69 6c 64 20 20 7d 0a 0a 20 20 20 20 mychild }..
07f0: 23 20 42 72 61 6e 63 68 20 6c 69 6e 6b 61 67 65 # Branch linkage
0800: 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f _______________
0810: 5f 5f 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 6d 65 74 _______.. met
0820: 68 6f 64 20 73 65 74 70 61 72 65 6e 74 62 72 61 hod setparentbra
0830: 6e 63 68 20 7b 62 72 61 6e 63 68 7d 20 7b 0a 09 nch {branch} {..
0840: 69 66 20 7b 24 6d 79 70 61 72 65 6e 74 62 72 61 if {$myparentbra
0850: 6e 63 68 20 6e 65 20 22 22 7d 20 7b 20 74 72 6f nch ne ""} { tro
0860: 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 22 42 uble internal "B
0870: 72 61 6e 63 68 20 70 61 72 65 6e 74 20 61 6c 72 ranch parent alr
0880: 65 61 64 79 20 64 65 66 69 6e 65 64 22 20 7d 0a eady defined" }.
0890: 09 73 65 74 20 6d 79 70 61 72 65 6e 74 62 72 61 .set myparentbra
08a0: 6e 63 68 20 24 62 72 61 6e 63 68 0a 09 72 65 74 nch $branch..ret
08b0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d urn. }.. m
08c0: 65 74 68 6f 64 20 61 64 64 62 72 61 6e 63 68 20 ethod addbranch
08d0: 7b 62 72 61 6e 63 68 7d 20 7b 0a 09 6c 61 70 70 {branch} {..lapp
08e0: 65 6e 64 20 6d 79 62 72 61 6e 63 68 65 73 20 24 end mybranches $
08f0: 62 72 61 6e 63 68 0a 09 23 73 6f 72 74 65 64 20 branch..#sorted
0900: 69 6e 20 61 73 63 65 6e 64 69 6e 67 20 6f 72 64 in ascending ord
0910: 65 72 20 62 79 20 62 72 61 6e 63 68 20 6e 75 6d er by branch num
0920: 62 65 72 3f 0a 09 72 65 74 75 72 6e 0a 20 20 20 ber?..return.
0930: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 61 }.. method a
0940: 64 64 63 68 69 6c 64 6f 6e 62 72 61 6e 63 68 20 ddchildonbranch
0950: 7b 63 68 69 6c 64 7d 20 7b 0a 09 6c 61 70 70 65 {child} {..lappe
0960: 6e 64 20 6d 79 62 72 61 6e 63 68 63 68 69 6c 64 nd mybranchchild
0970: 72 65 6e 20 24 63 68 69 6c 64 0a 09 72 65 74 75 ren $child..retu
0980: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 rn. }.. #
0990: 54 61 67 20 6c 69 6e 6b 61 67 65 20 5f 5f 5f 5f Tag linkage ____
09a0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
09b0: 5f 5f 5f 5f 5f 0a 0a 20 20 20 20 6d 65 74 68 6f _____.. metho
09c0: 64 20 61 64 64 74 61 67 20 7b 74 61 67 7d 20 7b d addtag {tag} {
09d0: 0a 09 6c 61 70 70 65 6e 64 20 6d 79 74 61 67 73 ..lappend mytags
09e0: 20 24 74 61 67 0a 09 72 65 74 75 72 6e 0a 20 20 $tag..return.
09f0: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
0a00: 73 6f 72 74 62 72 61 6e 63 68 65 73 20 7b 7d 20 sortbranches {}
0a10: 7b 0a 09 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 {..if {![llength
0a20: 20 24 6d 79 62 72 61 6e 63 68 65 73 5d 7d 20 72 $mybranches]} r
0a30: 65 74 75 72 6e 0a 0a 09 23 20 53 6f 72 74 20 74 eturn...# Sort t
0a40: 68 65 20 62 72 61 6e 63 68 65 73 20 73 70 61 77 he branches spaw
0a50: 6e 65 64 20 62 79 20 74 68 69 73 20 72 65 76 69 ned by this revi
0a60: 73 69 6f 6e 20 69 6e 20 63 72 65 61 74 69 6f 6e sion in creation
0a70: 0a 09 23 20 6f 72 64 65 72 2e 20 54 6f 20 68 65 ..# order. To he
0a80: 6c 70 20 69 6e 20 74 68 69 73 20 6f 75 72 20 66 lp in this our f
0a90: 69 6c 65 20 67 61 76 65 20 61 6c 6c 20 62 72 61 ile gave all bra
0aa0: 6e 63 68 65 73 20 61 20 70 6f 73 69 74 69 6f 6e nches a position
0ab0: 0a 09 23 20 69 64 2c 20 69 6e 20 6f 72 64 65 72 ..# id, in order
0ac0: 20 6f 66 20 74 68 65 69 72 20 64 65 66 69 6e 69 of their defini
0ad0: 74 69 6f 6e 20 62 79 20 74 68 65 20 52 43 53 20 tion by the RCS
0ae0: 61 72 63 68 69 76 65 2e 0a 09 23 0a 09 23 20 54 archive...#..# T
0af0: 68 65 20 63 72 65 61 74 69 6f 6e 20 6f 72 64 65 he creation orde
0b00: 72 20 69 73 20 28 61 70 70 61 72 65 6e 74 6c 79 r is (apparently
0b10: 29 20 74 68 65 20 72 65 76 65 72 73 65 20 6f 66 ) the reverse of
0b20: 20 74 68 65 0a 09 23 20 64 65 66 69 6e 69 74 69 the..# definiti
0b30: 6f 6e 20 6f 72 64 65 72 2e 20 28 49 66 20 61 20 on order. (If a
0b40: 62 72 61 6e 63 68 20 69 73 20 63 72 65 61 74 65 branch is create
0b50: 64 20 74 68 65 6e 20 64 65 6c 65 74 65 64 2c 20 d then deleted,
0b60: 61 0a 09 23 20 6c 61 74 65 72 20 62 72 61 6e 63 a..# later branc
0b70: 68 20 63 61 6e 20 62 65 20 61 73 73 69 67 6e 65 h can be assigne
0b80: 64 20 74 68 65 20 72 65 63 79 63 6c 65 64 20 62 d the recycled b
0b90: 72 61 6e 63 68 20 6e 75 6d 62 65 72 3b 0a 09 23 ranch number;..#
0ba0: 20 74 68 65 72 65 66 6f 72 65 20 62 72 61 6e 63 therefore branc
0bb0: 68 20 6e 75 6d 62 65 72 73 20 61 72 65 20 6e 6f h numbers are no
0bc0: 74 20 61 6e 20 69 6e 64 69 63 61 74 69 6f 6e 20 t an indication
0bd0: 6f 66 20 63 72 65 61 74 69 6f 6e 0a 09 23 20 6f of creation..# o
0be0: 72 64 65 72 2e 29 0a 0a 09 73 65 74 20 74 6d 70 rder.)...set tmp
0bf0: 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 62 72 61 {}..foreach bra
0c00: 6e 63 68 20 24 6d 79 62 72 61 6e 63 68 65 73 20 nch $mybranches
0c10: 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 74 {.. lappend t
0c20: 6d 70 20 5b 6c 69 73 74 20 24 62 72 61 6e 63 68 mp [list $branch
0c30: 20 5b 24 62 72 61 6e 63 68 20 70 6f 73 69 74 69 [$branch positi
0c40: 6f 6e 5d 5d 0a 09 7d 0a 0a 09 73 65 74 20 6d 79 on]]..}...set my
0c50: 62 72 61 6e 63 68 65 73 20 7b 7d 0a 09 66 6f 72 branches {}..for
0c60: 65 61 63 68 20 69 74 65 6d 20 5b 6c 73 6f 72 74 each item [lsort
0c70: 20 2d 69 6e 64 65 78 20 31 20 2d 64 65 63 72 65 -index 1 -decre
0c80: 61 73 69 6e 67 20 24 74 6d 70 5d 20 7b 0a 09 20 asing $tmp] {..
0c90: 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 struct::list
0ca0: 61 73 73 69 67 6e 20 24 69 74 65 6d 20 2d 3e 20 assign $item ->
0cb0: 62 72 61 6e 63 68 20 70 6f 73 69 74 69 6f 6e 0a branch position.
0cc0: 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 79 62 . lappend myb
0cd0: 72 61 6e 63 68 65 73 20 24 62 72 61 6e 63 68 0a ranches $branch.
0ce0: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
0cf0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 65 74 .. method det
0d00: 65 72 6d 69 6e 65 6f 70 65 72 61 74 69 6f 6e 20 ermineoperation
0d10: 7b 7d 20 7b 0a 09 23 20 4c 6f 6f 6b 20 61 74 20 {} {..# Look at
0d20: 74 68 65 20 73 74 61 74 65 20 6f 66 20 62 6f 74 the state of bot
0d30: 68 20 74 68 69 73 20 72 65 76 69 73 69 6f 6e 20 h this revision
0d40: 61 6e 64 20 69 74 73 20 70 61 72 65 6e 74 20 74 and its parent t
0d50: 6f 0a 09 23 20 64 65 74 65 72 6d 69 6e 65 20 74 o..# determine t
0d60: 68 65 20 74 79 70 65 20 6f 70 66 20 6f 70 65 72 he type opf oper
0d70: 61 74 69 6f 6e 20 77 68 69 63 68 20 77 61 73 20 ation which was
0d80: 70 65 72 66 6f 72 6d 65 64 20 28 61 64 64 2c 0a performed (add,.
0d90: 09 23 20 6d 6f 64 69 66 79 2c 20 64 65 6c 65 74 .# modify, delet
0da0: 65 2c 20 6e 6f 6e 65 29 2e 0a 09 23 0a 09 23 20 e, none)...#..#
0db0: 54 68 65 20 69 6d 70 6f 72 74 61 6e 74 20 69 6e The important in
0dc0: 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 64 65 61 formation is dea
0dd0: 64 20 76 73 20 6e 6f 74 2d 64 65 61 64 20 66 6f d vs not-dead fo
0de0: 72 20 62 6f 74 68 2c 0a 09 23 20 67 69 76 69 6e r both,..# givin
0df0: 67 20 72 69 73 65 20 74 6f 20 66 6f 75 72 20 70 g rise to four p
0e00: 6f 73 73 69 62 6c 65 20 74 79 70 65 73 2e 0a 0a ossible types...
0e10: 09 73 65 74 20 73 64 65 61 64 20 5b 65 78 70 72 .set sdead [expr
0e20: 20 7b 24 6d 79 73 74 61 74 65 20 65 71 20 22 64 {$mystate eq "d
0e30: 65 61 64 22 7d 5d 0a 09 73 65 74 20 70 64 65 61 ead"}]..set pdea
0e40: 64 20 5b 65 78 70 72 20 7b 24 6d 79 70 61 72 65 d [expr {$mypare
0e50: 6e 74 20 65 71 20 22 22 20 7c 7c 20 5b 24 6d 79 nt eq "" || [$my
0e60: 70 61 72 65 6e 74 20 73 74 61 74 65 5d 20 65 71 parent state] eq
0e70: 20 22 64 65 61 64 22 7d 5d 0a 0a 09 73 65 74 20 "dead"}]...set
0e80: 6d 79 6f 70 65 72 61 74 69 6f 6e 20 24 6d 79 6f myoperation $myo
0e90: 70 73 74 61 74 65 28 5b 6c 69 73 74 20 24 70 64 pstate([list $pd
0ea0: 65 61 64 20 24 73 64 65 61 64 5d 29 0a 09 72 65 ead $sdead])..re
0eb0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
0ec0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
0ed0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
0ee0: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 54 #######. ## T
0ef0: 79 70 65 20 41 50 49 0a 0a 20 20 20 20 74 79 70 ype API.. typ
0f00: 65 6d 65 74 68 6f 64 20 69 73 74 72 75 6e 6b 72 emethod istrunkr
0f10: 65 76 6e 72 20 7b 72 65 76 6e 72 7d 20 7b 0a 09 evnr {revnr} {..
0f20: 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b 6c return [expr {[l
0f30: 6c 65 6e 67 74 68 20 5b 73 70 6c 69 74 20 24 72 length [split $r
0f40: 65 76 6e 72 20 2e 5d 5d 20 3d 3d 20 32 7d 5d 0a evnr .]] == 2}].
0f50: 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d }.. typem
0f60: 65 74 68 6f 64 20 69 73 62 72 61 6e 63 68 72 65 ethod isbranchre
0f70: 76 6e 72 20 7b 72 65 76 6e 72 20 5f 20 62 76 7d vnr {revnr _ bv}
0f80: 20 7b 0a 09 69 66 20 7b 5b 72 65 67 65 78 70 20 {..if {[regexp
0f90: 24 6d 79 62 72 61 6e 63 68 70 61 74 74 65 72 6e $mybranchpattern
0fa0: 20 24 72 65 76 6e 72 20 2d 3e 20 68 65 61 64 20 $revnr -> head
0fb0: 74 61 69 6c 5d 7d 20 7b 0a 09 20 20 20 20 75 70 tail]} {.. up
0fc0: 76 61 72 20 31 20 24 62 76 20 62 72 61 6e 63 68 var 1 $bv branch
0fd0: 6e 72 0a 09 20 20 20 20 73 65 74 20 62 72 61 6e nr.. set bran
0fe0: 63 68 6e 72 20 24 7b 68 65 61 64 7d 24 74 61 69 chnr ${head}$tai
0ff0: 6c 0a 09 20 20 20 20 72 65 74 75 72 6e 20 31 0a l.. return 1.
1000: 09 7d 0a 09 72 65 74 75 72 6e 20 30 0a 20 20 20 .}..return 0.
1010: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
1020: 6f 64 20 32 62 72 61 6e 63 68 6e 72 20 7b 72 65 od 2branchnr {re
1030: 76 6e 72 7d 20 7b 0a 09 23 20 49 6e 70 75 74 20 vnr} {..# Input
1040: 69 73 20 61 20 62 72 61 6e 63 68 20 72 65 76 69 is a branch revi
1050: 73 69 6f 6e 20 6e 75 6d 62 65 72 2c 20 69 2e 65 sion number, i.e
1060: 2e 20 61 20 72 65 76 69 73 69 6f 6e 20 6e 75 6d . a revision num
1070: 62 65 72 0a 09 23 20 77 69 74 68 20 61 6e 20 65 ber..# with an e
1080: 76 65 6e 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f ven number of co
1090: 6d 70 6f 6e 65 6e 74 73 3b 20 66 6f 72 20 65 78 mponents; for ex
10a0: 61 6d 70 6c 65 20 27 32 2e 39 2e 32 2e 31 27 0a ample '2.9.2.1'.
10b0: 09 23 20 28 6e 65 76 65 72 20 27 32 2e 39 2e 32 .# (never '2.9.2
10c0: 27 20 6e 6f 72 20 27 32 2e 39 2e 30 2e 32 27 29 ' nor '2.9.0.2')
10d0: 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 . The return va
10e0: 6c 75 65 20 69 73 20 74 68 65 0a 09 23 20 62 72 lue is the..# br
10f0: 61 6e 63 68 20 6e 75 6d 62 65 72 20 28 66 6f 72 anch number (for
1100: 20 65 78 61 6d 70 6c 65 2c 20 27 32 2e 39 2e 32 example, '2.9.2
1110: 27 29 2e 20 20 46 6f 72 20 74 72 75 6e 6b 20 72 '). For trunk r
1120: 65 76 69 73 69 6f 6e 73 2c 0a 09 23 20 6c 69 6b evisions,..# lik
1130: 65 20 27 33 2e 34 27 2c 20 77 65 20 72 65 74 75 e '3.4', we retu
1140: 72 6e 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 rn the empty str
1150: 69 6e 67 2e 0a 0a 09 69 66 20 7b 5b 24 74 79 70 ing....if {[$typ
1160: 65 20 69 73 74 72 75 6e 6b 72 65 76 6e 72 20 24 e istrunkrevnr $
1170: 72 65 76 6e 72 5d 7d 20 7b 0a 09 20 20 20 20 72 revnr]} {.. r
1180: 65 74 75 72 6e 20 22 22 0a 09 7d 0a 09 72 65 74 eturn ""..}..ret
1190: 75 72 6e 20 5b 6a 6f 69 6e 20 5b 6c 72 61 6e 67 urn [join [lrang
11a0: 65 20 5b 73 70 6c 69 74 20 24 72 65 76 6e 72 20 e [split $revnr
11b0: 2e 5d 20 30 20 65 6e 64 2d 31 5d 20 2e 5d 0a 20 .] 0 end-1] .].
11c0: 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 }.. typeme
11d0: 74 68 6f 64 20 32 62 72 61 6e 63 68 70 61 72 65 thod 2branchpare
11e0: 6e 74 72 65 76 6e 72 20 7b 62 72 61 6e 63 68 6e ntrevnr {branchn
11f0: 72 7d 20 7b 0a 09 23 20 43 68 6f 70 20 74 68 65 r} {..# Chop the
1200: 20 6c 61 73 74 20 73 65 67 6d 65 6e 74 20 6f 66 last segment of
1210: 66 0a 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 f..return [join
1220: 5b 6c 72 61 6e 67 65 20 5b 73 70 6c 69 74 20 24 [lrange [split $
1230: 62 72 61 6e 63 68 6e 72 20 2e 5d 20 30 20 65 6e branchnr .] 0 en
1240: 64 2d 31 5d 20 2e 5d 0a 20 20 20 20 7d 0a 0a 20 d-1] .]. }..
1250: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
1260: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
1270: 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 ##########. #
1280: 23 20 53 74 61 74 65 0a 0a 20 20 20 20 74 79 70 # State.. typ
1290: 65 76 61 72 69 61 62 6c 65 20 6d 79 62 72 61 6e evariable mybran
12a0: 63 68 70 61 74 74 65 72 6e 20 7b 5e 28 28 3f 3a chpattern {^((?:
12b0: 5c 64 2b 5c 2e 5c 64 2b 5c 2e 29 2b 29 28 3f 3a \d+\.\d+\.)+)(?:
12c0: 30 5c 2e 29 3f 28 5c 64 2b 29 24 7d 0a 20 20 20 0\.)?(\d+)$}.
12d0: 20 23 20 46 69 72 73 74 20 61 20 6e 6f 6e 7a 65 # First a nonze
12e0: 72 6f 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f ro even number o
12f0: 66 20 64 69 67 69 74 20 67 72 6f 75 70 73 20 77 f digit groups w
1300: 69 74 68 20 74 72 61 69 6c 69 6e 67 20 64 6f 74 ith trailing dot
1310: 0a 20 20 20 20 23 20 43 56 53 20 74 68 65 6e 20 . # CVS then
1320: 73 74 69 63 6b 73 20 61 6e 20 65 78 74 72 61 20 sticks an extra
1330: 30 20 69 6e 20 68 65 72 65 3b 20 52 43 53 20 64 0 in here; RCS d
1340: 6f 65 73 20 6e 6f 74 2e 0a 20 20 20 20 23 20 41 oes not.. # A
1350: 6e 64 20 74 68 65 20 6c 61 73 74 20 64 69 67 69 nd the last digi
1360: 74 20 67 72 6f 75 70 2e 0a 0a 20 20 20 20 76 61 t group... va
1370: 72 69 61 62 6c 65 20 6d 79 72 65 76 6e 72 20 20 riable myrevnr
1380: 20 20 20 7b 7d 20 3b 20 23 20 52 65 76 69 73 69 {} ; # Revisi
1390: 6f 6e 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 on number of the
13a0: 20 72 65 76 69 73 69 6f 6e 2e 0a 20 20 20 20 76 revision.. v
13b0: 61 72 69 61 62 6c 65 20 6d 79 64 61 74 65 20 20 ariable mydate
13c0: 20 20 20 20 7b 7d 20 3b 20 23 20 54 69 6d 65 73 {} ; # Times
13d0: 74 61 6d 70 20 6f 66 20 74 68 65 20 72 65 76 69 tamp of the revi
13e0: 73 69 6f 6e 2c 20 73 65 63 6f 6e 64 73 20 73 69 sion, seconds si
13f0: 6e 63 65 20 65 70 6f 63 68 0a 20 20 20 20 76 61 nce epoch. va
1400: 72 69 61 62 6c 65 20 6d 79 6f 72 69 67 64 61 74 riable myorigdat
1410: 65 20 20 7b 7d 20 3b 20 23 20 4f 72 69 67 69 6e e {} ; # Origin
1420: 61 6c 20 75 6e 6d 6f 64 69 66 69 65 64 20 74 69 al unmodified ti
1430: 6d 65 73 74 61 6d 70 2e 0a 20 20 20 20 76 61 72 mestamp.. var
1440: 69 61 62 6c 65 20 6d 79 73 74 61 74 65 20 20 20 iable mystate
1450: 20 20 7b 7d 20 3b 20 23 20 53 74 61 74 65 20 6f {} ; # State o
1460: 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e 2e 0a f the revision..
1470: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 66 variable myf
1480: 69 6c 65 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 ile {} ; #
1490: 52 65 66 20 74 6f 20 74 68 65 20 66 69 6c 65 20 Ref to the file
14a0: 6f 62 6a 65 63 74 20 74 68 65 20 72 65 76 69 73 object the revis
14b0: 69 6f 6e 20 62 65 6c 6f 6e 67 73 20 74 6f 2e 0a ion belongs to..
14c0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 74 variable myt
14d0: 65 78 74 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 ext {} ; #
14e0: 52 61 6e 67 65 20 6f 66 20 74 68 65 20 28 64 65 Range of the (de
14f0: 6c 74 61 29 20 74 65 78 74 20 66 6f 72 20 74 68 lta) text for th
1500: 69 73 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 74 is revision in t
1510: 68 65 20 66 69 6c 65 2e 0a 20 20 20 20 76 61 72 he file.. var
1520: 69 61 62 6c 65 20 6d 79 6d 65 74 61 69 64 20 20 iable mymetaid
1530: 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f 66 20 74 {} ; # Id of t
1540: 68 65 20 6d 65 74 61 20 64 61 74 61 20 67 72 6f he meta data gro
1550: 75 70 20 74 68 65 20 72 65 76 69 73 69 6f 6e 0a up the revision.
1560: 09 09 09 20 20 20 20 20 20 23 20 62 65 6c 6f 6e ... # belon
1570: 67 73 20 74 6f 2e 20 54 68 69 73 20 69 73 20 6c gs to. This is l
1580: 61 74 65 72 20 75 73 65 64 20 74 6f 20 70 75 74 ater used to put
1590: 0a 09 09 09 20 20 20 20 20 20 23 20 74 68 65 20 .... # the
15a0: 66 69 6c 65 20 72 65 76 69 73 69 6f 6e 73 20 69 file revisions i
15b0: 6e 74 6f 20 70 72 65 6c 69 6d 69 6e 61 72 79 0a nto preliminary.
15c0: 09 09 09 20 20 20 20 20 20 23 20 63 68 61 6e 67 ... # chang
15d0: 65 73 65 74 73 20 28 61 6b 61 20 70 72 6f 6a 65 esets (aka proje
15e0: 63 74 20 72 65 76 69 73 69 6f 6e 73 29 2e 0a 09 ct revisions)...
15f0: 09 09 20 20 20 20 20 20 23 20 54 68 69 73 20 69 .. # This i
1600: 64 20 65 6e 63 6f 64 65 73 20 34 20 70 69 65 63 d encodes 4 piec
1610: 65 73 20 6f 66 20 64 61 74 61 2c 0a 09 09 09 20 es of data,....
1620: 20 20 20 20 20 23 20 6e 61 6d 65 6c 79 3a 20 74 # namely: t
1630: 68 65 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 62 he project and b
1640: 72 61 6e 63 68 20 74 68 65 0a 09 09 09 20 20 20 ranch the....
1650: 20 20 20 23 20 72 65 76 69 73 69 6f 6e 20 77 61 # revision wa
1660: 73 20 63 6f 6d 6d 69 74 74 65 64 20 74 6f 2c 20 s committed to,
1670: 74 68 65 20 61 75 74 68 6f 72 0a 09 09 09 20 20 the author....
1680: 20 20 20 20 23 20 77 68 6f 20 64 69 64 20 74 68 # who did th
1690: 65 20 63 6f 6d 6d 69 74 2c 20 61 6e 64 20 74 68 e commit, and th
16a0: 65 20 6d 65 73 73 61 67 65 0a 09 09 09 20 20 20 e message....
16b0: 20 20 20 23 20 75 73 65 64 2e 0a 20 20 20 20 76 # used.. v
16c0: 61 72 69 61 62 6c 65 20 6d 79 6c 6f 64 20 20 20 ariable mylod
16d0: 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 {} ; # Refer
16e0: 65 6e 63 65 20 74 6f 20 74 68 65 20 6c 69 6e 65 ence to the line
16f0: 2d 6f 66 2d 64 65 76 65 6c 6f 70 6d 65 6e 74 0a -of-development.
1700: 09 09 09 20 20 20 20 20 20 23 20 6f 62 6a 65 63 ... # objec
1710: 74 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 62 t the revision b
1720: 65 6c 6f 6e 67 73 20 74 6f 2e 20 41 6e 0a 09 09 elongs to. An...
1730: 09 20 20 20 20 20 20 23 20 61 6c 74 65 72 6e 61 . # alterna
1740: 74 69 76 65 20 69 64 69 6f 6d 20 77 6f 75 6c 64 tive idiom would
1750: 20 62 65 20 74 6f 20 63 61 6c 6c 20 69 74 0a 09 be to call it..
1760: 09 09 20 20 20 20 20 20 23 20 74 68 65 20 62 72 .. # the br
1770: 61 6e 63 68 20 74 68 65 20 72 65 76 69 73 69 6f anch the revisio
1780: 6e 20 69 73 20 6f 6e 2e 20 54 68 69 73 0a 09 09 n is on. This...
1790: 09 20 20 20 20 20 20 23 20 72 65 66 65 72 65 6e . # referen
17a0: 63 65 20 69 73 20 74 6f 20 61 20 70 72 6f 6a 65 ce is to a proje
17b0: 63 74 2d 6c 65 76 65 6c 20 6f 62 6a 65 63 74 0a ct-level object.
17c0: 09 09 09 20 20 20 20 20 20 23 20 28 73 79 6d 62 ... # (symb
17d0: 6f 6c 20 6f 72 20 74 72 75 6e 6b 29 2e 0a 0a 20 ol or trunk)...
17e0: 20 20 20 23 20 42 61 73 69 63 20 70 61 72 65 6e # Basic paren
17f0: 74 2f 63 68 69 6c 64 20 6c 69 6e 6b 61 67 65 20 t/child linkage
1800: 28 6c 69 6e 65 73 20 6f 66 20 64 65 76 65 6c 6f (lines of develo
1810: 70 6d 65 6e 74 29 0a 0a 20 20 20 20 76 61 72 69 pment).. vari
1820: 61 62 6c 65 20 6d 79 70 61 72 65 6e 74 20 7b 7d able myparent {}
1830: 20 3b 20 23 20 52 65 66 20 74 6f 20 70 61 72 65 ; # Ref to pare
1840: 6e 74 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a 65 nt revision obje
1850: 63 74 2e 20 4c 69 6e 6b 20 72 65 71 75 69 72 65 ct. Link require
1860: 64 20 62 65 63 61 75 73 65 20 6f 66 0a 20 20 20 d because of.
1870: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
1880: 20 20 20 20 20 20 3b 20 23 20 27 63 76 73 61 64 ; # 'cvsad
1890: 6d 69 6e 20 2d 6f 27 2c 20 77 68 69 63 68 20 63 min -o', which c
18a0: 61 6e 20 63 72 65 61 74 65 20 61 72 62 69 74 72 an create arbitr
18b0: 61 72 79 20 67 61 70 73 20 69 6e 20 74 68 65 0a ary gaps in the.
18c0: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 #
18d0: 20 20 20 20 20 20 20 20 20 3b 20 23 20 6e 75 6d ; # num
18e0: 62 65 72 69 6e 67 20 73 65 71 75 65 6e 63 65 2e bering sequence.
18f0: 20 54 68 69 73 20 69 73 20 69 6e 20 74 68 65 20 This is in the
1900: 73 61 6d 65 20 6c 69 6e 65 20 6f 66 20 64 65 76 same line of dev
1910: 65 6c 6f 70 6d 65 6e 74 0a 20 20 20 20 23 20 20 elopment. #
1920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1930: 20 20 3b 20 23 20 4e 6f 74 65 3a 20 46 6f 72 20 ; # Note: For
1940: 74 68 65 20 66 69 72 73 74 20 72 65 76 69 73 69 the first revisi
1950: 6f 6e 20 6f 6e 20 61 20 62 72 61 6e 63 68 20 74 on on a branch t
1960: 68 65 20 72 65 76 69 73 69 6f 6e 0a 20 20 20 20 he revision.
1970: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
1980: 20 20 20 20 20 3b 20 23 20 69 74 20 77 61 73 20 ; # it was
1990: 73 70 61 77 6e 65 64 20 66 72 6f 6d 20 69 73 20 spawned from is
19a0: 74 68 65 20 70 61 72 65 6e 74 2e 20 4f 6e 6c 79 the parent. Only
19b0: 20 74 68 65 20 72 6f 6f 74 20 72 65 76 69 73 69 the root revisi
19c0: 6f 6e 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 on. #
19d0: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
19e0: 6f 66 20 6d 79 66 69 6c 65 27 73 20 72 65 76 69 of myfile's revi
19f0: 73 69 6f 6e 20 74 72 65 65 20 68 61 73 20 6e 6f sion tree has no
1a00: 74 68 69 6e 67 20 73 65 74 20 68 65 72 65 2e 0a thing set here..
1a10: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 #
1a20: 20 20 20 20 20 20 20 20 20 3b 20 23 0a 0a 20 20 ; #..
1a30: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 63 68 69 variable mychi
1a40: 6c 64 20 20 7b 7d 20 3b 20 23 20 52 65 66 20 74 ld {} ; # Ref t
1a50: 6f 20 74 68 65 20 70 72 69 6d 61 72 79 20 63 68 o the primary ch
1a60: 69 6c 64 20 72 65 76 69 73 69 6f 6e 20 6f 62 6a ild revision obj
1a70: 65 63 74 2c 20 69 2e 65 2e 20 74 68 65 20 6e 65 ect, i.e. the ne
1a80: 78 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 xt. #
1a90: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
1aa0: 72 65 76 69 73 69 6f 6e 20 69 6e 20 74 68 65 20 revision in the
1ab0: 73 61 6d 65 20 6c 69 6e 65 20 6f 66 20 64 65 76 same line of dev
1ac0: 65 6c 6f 70 6d 65 6e 74 2e 0a 0a 20 20 20 20 23 elopment... #
1ad0: 20 42 72 61 6e 63 68 20 6c 69 6e 6b 61 67 65 20 Branch linkage
1ae0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ________________
1af0: 5f 5f 5f 5f 0a 0a 20 20 20 20 76 61 72 69 61 62 ____.. variab
1b00: 6c 65 20 6d 79 62 72 61 6e 63 68 65 73 20 20 20 le mybranches
1b10: 20 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f 66 {} ; # List of
1b20: 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 28 6f the branches (o
1b30: 62 6a 73 29 20 73 70 61 77 6e 65 64 20 62 79 20 bjs) spawned by
1b40: 74 68 69 73 20 72 65 76 69 73 69 6f 6e 2e 0a 20 this revision..
1b50: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 61 variable mypa
1b60: 72 65 6e 74 62 72 61 6e 63 68 20 7b 7d 20 3b 20 rentbranch {} ;
1b70: 23 20 46 6f 72 20 74 68 65 20 66 69 72 73 74 20 # For the first
1b80: 72 65 76 69 73 69 6f 6e 20 6f 6e 20 61 20 62 72 revision on a br
1b90: 61 6e 63 68 20 74 68 65 20 72 65 6c 65 76 61 6e anch the relevan
1ba0: 74 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 t. #
1bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1bc0: 20 3b 20 23 20 62 72 61 6e 63 68 20 6f 62 6a 65 ; # branch obje
1bd0: 63 74 2e 20 54 68 69 73 20 61 6c 73 6f 20 61 6c ct. This also al
1be0: 6c 6f 77 73 20 75 73 20 74 6f 20 64 65 74 65 72 lows us to deter
1bf0: 6d 69 6e 65 20 69 66 0a 20 20 20 20 23 20 20 20 mine if. #
1c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1c10: 20 20 20 20 20 20 20 3b 20 23 20 6d 79 70 61 72 ; # mypar
1c20: 65 6e 74 20 69 73 20 69 6e 20 74 68 65 20 73 61 ent is in the sa
1c30: 6d 65 20 4c 4f 44 2c 20 6f 72 20 74 68 65 20 72 me LOD, or the r
1c40: 65 76 69 73 69 6f 6e 20 74 68 65 0a 20 20 20 20 evision the.
1c50: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #
1c60: 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 62 ; # b
1c70: 72 61 6e 63 68 20 73 70 61 77 6e 65 64 20 66 72 ranch spawned fr
1c80: 6f 6d 2e 0a 0a 20 20 20 20 23 20 4c 69 73 74 20 om... # List
1c90: 6f 66 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 of the revision
1ca0: 6f 62 6a 65 63 74 73 20 6f 66 20 74 68 65 20 66 objects of the f
1cb0: 69 72 73 74 20 63 6f 6d 6d 69 74 73 20 6f 6e 20 irst commits on
1cc0: 61 6e 79 0a 20 20 20 20 23 20 62 72 61 6e 63 68 any. # branch
1cd0: 65 73 20 73 70 61 77 6e 65 64 20 62 79 20 74 68 es spawned by th
1ce0: 69 73 20 72 65 76 69 73 69 6f 6e 20 6f 6e 20 77 is revision on w
1cf0: 68 69 63 68 20 63 6f 6d 6d 69 74 73 20 6f 63 63 hich commits occ
1d00: 75 72 72 65 64 2e 0a 20 20 20 20 23 20 54 68 69 urred.. # Thi
1d10: 73 20 64 65 70 65 6e 64 65 6e 63 79 20 69 73 20 s dependency is
1d20: 6b 65 70 74 20 65 78 70 6c 69 63 69 74 6c 79 20 kept explicitly
1d30: 62 65 63 61 75 73 65 20 6f 74 68 65 72 77 69 73 because otherwis
1d40: 65 20 61 0a 20 20 20 20 23 20 72 65 76 69 73 69 e a. # revisi
1d50: 6f 6e 2d 6f 6e 6c 79 20 74 6f 70 6f 6c 6f 67 69 on-only topologi
1d60: 63 61 6c 20 73 6f 72 74 20 77 6f 75 6c 64 20 6d cal sort would m
1d70: 69 73 73 20 74 68 65 20 64 65 70 65 6e 64 65 6e iss the dependen
1d80: 63 79 20 74 68 61 74 0a 20 20 20 20 23 20 65 78 cy that. # ex
1d90: 69 73 74 73 20 76 69 61 20 2d 3e 20 6d 79 62 72 ists via -> mybr
1da0: 61 6e 63 68 65 73 2e 0a 0a 20 20 20 20 76 61 72 anches... var
1db0: 69 61 62 6c 65 20 6d 79 62 72 61 6e 63 68 63 68 iable mybranchch
1dc0: 69 6c 64 72 65 6e 20 7b 7d 20 3b 20 23 20 4c 69 ildren {} ; # Li
1dd0: 73 74 20 6f 66 20 74 68 65 20 72 65 76 69 73 69 st of the revisi
1de0: 6f 6e 73 20 28 6f 62 6a 73 29 20 77 68 69 63 68 ons (objs) which
1df0: 20 61 72 65 20 74 68 65 20 66 69 72 73 74 0a 20 are the first.
1e00: 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 #
1e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1e20: 3b 20 23 20 63 6f 6d 6d 69 74 73 20 6f 6e 20 61 ; # commits on a
1e30: 6e 79 20 6f 66 20 74 68 65 20 62 72 61 6e 63 68 ny of the branch
1e40: 65 73 20 73 70 61 77 6e 65 64 20 66 72 6f 6d 20 es spawned from
1e50: 74 68 69 73 0a 20 20 20 20 23 20 20 20 20 20 20 this. #
1e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1e70: 20 20 20 20 20 20 3b 20 23 20 72 65 76 69 73 69 ; # revisi
1e80: 6f 6e 2e 20 54 68 65 20 64 65 70 65 6e 64 65 6e on. The dependen
1e90: 63 79 20 69 73 20 6b 65 70 74 20 65 78 70 6c 69 cy is kept expli
1ea0: 63 69 74 6c 79 20 74 6f 0a 20 20 20 20 23 20 20 citly to. #
1eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ec0: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 65 6e ; # en
1ed0: 73 75 72 65 20 74 68 61 74 20 61 20 72 65 76 69 sure that a revi
1ee0: 73 69 6f 6e 2d 6f 6e 6c 79 20 74 6f 70 6f 6c 6f sion-only topolo
1ef0: 67 69 63 61 6c 20 73 6f 72 74 20 77 69 6c 6c 0a gical sort will.
1f00: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 20 #
1f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f20: 20 3b 20 23 20 6e 6f 74 20 6d 69 73 73 20 69 74 ; # not miss it
1f30: 2c 20 61 73 20 69 74 20 6f 74 68 65 72 77 69 73 , as it otherwis
1f40: 65 20 65 78 69 73 74 73 20 6f 6e 6c 79 20 76 69 e exists only vi
1f50: 61 0a 20 20 20 20 23 20 20 20 20 20 20 20 20 20 a. #
1f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f70: 20 20 20 3b 20 23 20 6d 79 62 72 61 6e 63 68 65 ; # mybranche
1f80: 73 2e 0a 0a 20 20 20 20 23 20 54 61 67 20 6c 69 s... # Tag li
1f90: 6e 6b 61 67 65 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f nkage __________
1fa0: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 0a ______________..
1fb0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 74 variable myt
1fc0: 61 67 73 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 ags {} ; # List
1fd0: 6f 66 20 74 61 67 73 20 28 6f 62 6a 73 29 20 61 of tags (objs) a
1fe0: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 ssociated with t
1ff0: 68 69 73 20 72 65 76 69 73 69 6f 6e 2e 0a 0a 20 his revision...
2000: 20 20 20 23 20 4d 6f 72 65 20 64 65 72 69 76 65 # More derive
2010: 64 20 64 61 74 61 0a 0a 20 20 20 20 76 61 72 69 d data.. vari
2020: 61 62 6c 65 20 6d 79 6f 70 65 72 61 74 69 6f 6e able myoperation
2030: 20 7b 7d 20 3b 20 23 20 4f 6e 65 20 6f 66 20 27 {} ; # One of '
2040: 61 64 64 27 2c 20 27 63 68 61 6e 67 65 27 2c 20 add', 'change',
2050: 27 64 65 6c 65 74 65 27 2c 20 6f 72 0a 09 09 09 'delete', or....
2060: 20 20 20 20 20 20 23 20 27 6e 6f 74 68 69 6e 67 # 'nothing
2070: 27 2e 20 44 65 72 69 76 65 64 20 66 72 6f 6d 20 '. Derived from
2080: 6f 75 72 20 61 6e 64 20 69 74 73 0a 09 09 09 20 our and its....
2090: 20 20 20 20 20 23 20 70 61 72 65 6e 74 27 73 20 # parent's
20a0: 73 74 61 74 65 2e 0a 0a 20 20 20 20 23 20 64 65 state... # de
20b0: 61 64 28 73 65 6c 66 29 20 78 20 64 65 61 64 28 ad(self) x dead(
20c0: 70 61 72 65 6e 74 29 20 2d 3e 20 6f 70 65 72 61 parent) -> opera
20d0: 74 69 6f 6e 0a 20 20 20 20 74 79 70 65 76 61 72 tion. typevar
20e0: 69 61 62 6c 65 20 6d 79 6f 70 73 74 61 74 65 20 iable myopstate
20f0: 2d 61 72 72 61 79 20 7b 0a 09 7b 30 20 30 7d 20 -array {..{0 0}
2100: 63 68 61 6e 67 65 0a 09 7b 30 20 31 7d 20 64 65 change..{0 1} de
2110: 6c 65 74 65 0a 09 7b 31 20 30 7d 20 61 64 64 0a lete..{1 0} add.
2120: 09 7b 31 20 31 7d 20 6e 6f 74 68 69 6e 67 0a 20 .{1 1} nothing.
2130: 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 }.. # # ##
2140: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
2150: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
2160: 23 0a 20 20 20 20 23 23 20 49 6e 74 65 72 6e 61 #. ## Interna
2170: 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 23 l methods.. #
2180: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
2190: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
21a0: 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 6f ######. ## Co
21b0: 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 nfiguration..
21c0: 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 pragma -hastype
21d0: 69 6e 66 6f 20 20 20 20 6e 6f 20 20 3b 20 23 20 info no ; #
21e0: 6e 6f 20 74 79 70 65 20 69 6e 74 72 6f 73 70 65 no type introspe
21f0: 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 ction. pragma
2200: 20 2d 68 61 73 69 6e 66 6f 20 20 20 20 20 20 20 -hasinfo
2210: 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f 62 6a 65 no ; # no obje
2220: 63 74 20 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e ct introspection
2230: 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 73 69 6d . pragma -sim
2240: 70 6c 65 64 69 73 70 61 74 63 68 20 79 65 73 20 pledispatch yes
2250: 3b 20 23 20 73 69 6d 70 6c 65 20 66 61 73 74 20 ; # simple fast
2260: 64 69 73 70 61 74 63 68 0a 0a 20 20 20 20 23 20 dispatch.. #
2270: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
2280: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
2290: 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 #####.}..namespa
22a0: 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f ce eval ::vc::fo
22b0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
22c0: 73 3a 3a 66 69 6c 65 20 7b 0a 20 20 20 20 6e 61 s::file {. na
22d0: 6d 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 72 mespace export r
22e0: 65 76 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 ev.}..# # ## ###
22f0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
2300: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 ############# ##
2310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2320: 23 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 61 ###.## Ready..pa
2330: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 ckage provide vc
2340: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
2350: 3a 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 72 65 76 ::cvs::file::rev
2360: 20 31 2e 30 0a 72 65 74 75 72 6e 0a 1.0.return.