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 2d 32 30 30 38 20 41 6e 64 72 65 61 73 20 07-2008 Andreas
0070: 4b 75 70 72 69 65 73 2e 0a 23 0a 23 20 54 68 69 Kupries..#.# Thi
0080: 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 6c 69 s software is li
0090: 63 65 6e 73 65 64 20 61 73 20 64 65 73 63 72 69 censed as descri
00a0: 62 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20 bed in the file
00b0: 4c 49 43 45 4e 53 45 2c 20 77 68 69 63 68 0a 23 LICENSE, which.#
00c0: 20 79 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 you should have
00d0: 20 72 65 63 65 69 76 65 64 20 61 73 20 70 61 72 received as par
00e0: 74 20 6f 66 20 74 68 69 73 20 64 69 73 74 72 69 t of this distri
00f0: 62 75 74 69 6f 6e 2e 0a 23 0a 23 20 54 68 69 73 bution..#.# This
0100: 20 73 6f 66 74 77 61 72 65 20 63 6f 6e 73 69 73 software consis
0110: 74 73 20 6f 66 20 76 6f 6c 75 6e 74 61 72 79 20 ts of voluntary
0120: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 6d 61 contributions ma
0130: 64 65 20 62 79 20 6d 61 6e 79 0a 23 20 69 6e 64 de by many.# ind
0140: 69 76 69 64 75 61 6c 73 2e 20 20 46 6f 72 20 65 ividuals. For e
0150: 78 61 63 74 20 63 6f 6e 74 72 69 62 75 74 69 6f xact contributio
0160: 6e 20 68 69 73 74 6f 72 79 2c 20 73 65 65 20 74 n history, see t
0170: 68 65 20 72 65 76 69 73 69 6f 6e 0a 23 20 68 69 he revision.# hi
0180: 73 74 6f 72 79 20 61 6e 64 20 6c 6f 67 73 2c 20 story and logs,
0190: 61 76 61 69 6c 61 62 6c 65 20 61 74 20 68 74 74 available at htt
01a0: 70 3a 2f 2f 66 6f 73 73 69 6c 2d 73 63 6d 2e 68 p://fossil-scm.h
01b0: 77 61 63 69 2e 63 6f 6d 2f 66 6f 73 73 69 6c 0a waci.com/fossil.
01c0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
01d0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
01e0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
01f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 23 #############..#
0200: 23 20 52 65 76 69 73 69 6f 6e 73 20 70 65 72 20 # Revisions per
0210: 70 72 6f 6a 65 63 74 2c 20 61 6b 61 20 43 68 61 project, aka Cha
0220: 6e 67 65 73 65 74 73 2e 20 54 68 65 73 65 20 6f ngesets. These o
0230: 62 6a 65 63 74 73 20 61 72 65 20 66 69 72 73 74 bjects are first
0240: 20 75 73 65 64 0a 23 23 20 69 6e 20 70 61 73 73 used.## in pass
0250: 20 35 2c 20 77 68 69 63 68 20 63 72 65 61 74 65 5, which create
0260: 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 73 65 s the initial se
0270: 74 20 63 6f 76 65 72 69 6e 67 20 74 68 65 20 72 t covering the r
0280: 65 70 6f 73 69 74 6f 72 79 2e 0a 0a 23 20 23 20 epository...# #
0290: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
02a0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
02b0: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
02c0: 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 71 #########.## Req
02d0: 75 69 72 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61 uirements..packa
02e0: 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 ge require Tcl 8
02f0: 2e 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .4
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0310: 20 3b 20 23 20 52 65 71 75 69 72 65 64 20 72 75 ; # Required ru
0320: 6e 74 69 6d 65 2e 0a 70 61 63 6b 61 67 65 20 72 ntime..package r
0330: 65 71 75 69 72 65 20 73 6e 69 74 20 20 20 20 20 equire snit
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0350: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
0360: 20 4f 4f 20 73 79 73 74 65 6d 2e 0a 70 61 63 6b OO system..pack
0370: 61 67 65 20 72 65 71 75 69 72 65 20 73 74 72 75 age require stru
0380: 63 74 3a 3a 73 65 74 20 20 20 20 20 20 20 20 20 ct::set
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03a0: 20 20 3b 20 23 20 53 65 74 20 6f 70 65 72 61 74 ; # Set operat
03b0: 69 6f 6e 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 ions..package re
03c0: 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a quire vc::tools:
03d0: 3a 6d 69 73 63 20 20 20 20 20 20 20 20 20 20 20 :misc
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
03f0: 54 65 78 74 20 66 6f 72 6d 61 74 74 69 6e 67 0a Text formatting.
0400: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0410: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 vc::tools::troub
0420: 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 le
0430: 20 20 20 20 20 20 3b 20 23 20 45 72 72 6f 72 20 ; # Error
0440: 72 65 70 6f 72 74 69 6e 67 2e 0a 70 61 63 6b 61 reporting..packa
0450: 67 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 74 ge require vc::t
0460: 6f 6f 6c 73 3a 3a 6c 6f 67 20 20 20 20 20 20 20 ools::log
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0480: 20 3b 20 23 20 55 73 65 72 20 66 65 65 64 62 61 ; # User feedba
0490: 63 6b 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ck..package requ
04a0: 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ire vc::fossil::
04b0: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 import::cvs::sta
04c0: 74 65 20 20 20 20 20 20 20 20 3b 20 23 20 53 74 te ; # St
04d0: 61 74 65 20 73 74 6f 72 61 67 65 2e 0a 70 61 63 ate storage..pac
04e0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
04f0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
0500: 3a 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 20 :cvs::integrity
0510: 20 20 20 3b 20 23 20 53 74 61 74 65 20 69 6e 74 ; # State int
0520: 65 67 72 69 74 79 20 63 68 65 63 6b 73 2e 0a 0a egrity checks...
0530: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
0540: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
0550: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
0560: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 #############.##
0570: 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a 76 ..snit::type ::v
0580: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0590: 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a t::cvs::project:
05a0: 3a 72 65 76 20 7b 0a 20 20 20 20 23 20 23 20 23 :rev {. # # #
05b0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
05c0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
05d0: 23 23 0a 20 20 20 20 23 23 20 50 75 62 6c 69 63 ##. ## Public
05e0: 20 41 50 49 0a 0a 20 20 20 20 63 6f 6e 73 74 72 API.. constr
05f0: 75 63 74 6f 72 20 7b 70 72 6f 6a 65 63 74 20 63 uctor {project c
0600: 73 74 79 70 65 20 73 72 63 69 64 20 69 74 65 6d stype srcid item
0610: 73 20 7b 74 68 65 69 64 20 7b 7d 7d 7d 20 7b 0a s {theid {}}} {.
0620: 09 69 66 20 7b 24 74 68 65 69 64 20 6e 65 20 22 .if {$theid ne "
0630: 22 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 6d 79 "} {.. set my
0640: 69 64 20 24 74 68 65 69 64 0a 09 7d 20 65 6c 73 id $theid..} els
0650: 65 20 7b 0a 09 20 20 20 20 73 65 74 20 6d 79 69 e {.. set myi
0660: 64 20 5b 69 6e 63 72 20 6d 79 63 6f 75 6e 74 65 d [incr mycounte
0670: 72 5d 0a 09 7d 0a 0a 09 69 6e 74 65 67 72 69 74 r]..}...integrit
0680: 79 20 61 73 73 65 72 74 20 7b 0a 09 20 20 20 20 y assert {..
0690: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 63 [info exists myc
06a0: 73 74 79 70 65 28 24 63 73 74 79 70 65 29 5d 0a stype($cstype)].
06b0: 09 7d 20 7b 42 61 64 20 63 68 61 6e 67 65 73 65 .} {Bad changese
06c0: 74 20 74 79 70 65 20 27 24 63 73 74 79 70 65 27 t type '$cstype'
06d0: 2e 7d 0a 0a 09 73 65 74 20 6d 79 70 72 6f 6a 65 .}...set myproje
06e0: 63 74 20 20 20 24 70 72 6f 6a 65 63 74 0a 09 73 ct $project..s
06f0: 65 74 20 6d 79 74 79 70 65 20 20 20 20 20 20 24 et mytype $
0700: 63 73 74 79 70 65 0a 09 73 65 74 20 6d 79 74 79 cstype..set myty
0710: 70 65 6f 62 6a 20 20 20 3a 3a 76 63 3a 3a 66 6f peobj ::vc::fo
0720: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0730: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a s::project::rev:
0740: 3a 24 7b 63 73 74 79 70 65 7d 0a 09 73 65 74 20 :${cstype}..set
0750: 6d 79 73 72 63 69 64 09 24 73 72 63 69 64 0a 09 mysrcid.$srcid..
0760: 73 65 74 20 6d 79 69 74 65 6d 73 20 20 20 20 20 set myitems
0770: 24 69 74 65 6d 73 0a 09 73 65 74 20 6d 79 70 6f $items..set mypo
0780: 73 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 43 s {} ; # C
0790: 6f 6d 6d 69 74 20 6c 6f 63 61 74 69 6f 6e 20 69 ommit location i
07a0: 73 20 6e 6f 74 20 6b 6e 6f 77 6e 20 79 65 74 2e s not known yet.
07b0: 0a 0a 09 66 6f 72 65 61 63 68 20 69 69 64 20 24 ...foreach iid $
07c0: 69 74 65 6d 73 20 7b 20 6c 61 70 70 65 6e 64 20 items { lappend
07d0: 6d 79 74 69 74 65 6d 73 20 5b 6c 69 73 74 20 24 mytitems [list $
07e0: 63 73 74 79 70 65 20 24 69 69 64 5d 20 7d 0a 0a cstype $iid] }..
07f0: 09 23 20 4b 65 65 70 20 74 72 61 63 6b 20 6f 66 .# Keep track of
0800: 20 74 68 65 20 67 65 6e 65 72 61 74 65 64 20 63 the generated c
0810: 68 61 6e 67 65 73 65 74 73 20 61 6e 64 20 6f 66 hangesets and of
0820: 20 74 68 65 20 69 6e 76 65 72 73 65 0a 09 23 20 the inverse..#
0830: 6d 61 70 70 69 6e 67 20 66 72 6f 6d 20 69 74 65 mapping from ite
0840: 6d 73 20 74 6f 20 74 68 65 6d 2e 0a 09 6c 61 70 ms to them...lap
0850: 70 65 6e 64 20 6d 79 63 68 61 6e 67 65 73 65 74 pend mychangeset
0860: 73 20 20 20 24 73 65 6c 66 0a 09 6c 61 70 70 65 s $self..lappe
0870: 6e 64 20 6d 79 74 63 68 61 6e 67 65 73 65 74 73 nd mytchangesets
0880: 28 24 63 73 74 79 70 65 29 20 24 73 65 6c 66 0a ($cstype) $self.
0890: 09 73 65 74 20 20 20 20 20 6d 79 69 64 6d 61 70 .set myidmap
08a0: 28 24 6d 79 69 64 29 20 24 73 65 6c 66 0a 0a 09 ($myid) $self...
08b0: 4d 61 70 49 74 65 6d 73 20 24 63 73 74 79 70 65 MapItems $cstype
08c0: 20 24 69 74 65 6d 73 0a 09 72 65 74 75 72 6e 0a $items..return.
08d0: 20 20 20 20 7d 0a 0a 20 20 20 20 64 65 73 74 72 }.. destr
08e0: 75 63 74 6f 72 20 7b 0a 09 23 20 57 65 20 6d 61 uctor {..# We ma
08f0: 79 20 62 65 20 61 62 6c 65 20 74 6f 20 67 65 74 y be able to get
0900: 20 72 69 64 20 6f 66 20 74 68 69 73 20 65 6e 74 rid of this ent
0910: 69 72 65 6c 79 2c 20 61 74 20 6c 65 61 73 74 20 irely, at least
0920: 66 6f 72 0a 09 23 20 28 64 65 29 63 6f 6e 73 74 for..# (de)const
0930: 72 75 63 74 69 6f 6e 20 61 6e 64 20 70 61 73 73 ruction and pass
0940: 20 49 6e 69 74 43 53 65 74 73 2e 0a 0a 09 55 6e InitCSets....Un
0950: 6d 61 70 49 74 65 6d 73 20 24 6d 79 74 79 70 65 mapItems $mytype
0960: 20 24 6d 79 69 74 65 6d 73 0a 09 75 6e 73 65 74 $myitems..unset
0970: 20 6d 79 69 64 6d 61 70 28 24 6d 79 69 64 29 0a myidmap($myid).
0980: 0a 09 73 65 74 20 70 6f 73 20 20 20 20 20 20 20 ..set pos
0990: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c 73 [ls
09a0: 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 6d 79 earch -exact $my
09b0: 63 68 61 6e 67 65 73 65 74 73 20 24 73 65 6c 66 changesets $self
09c0: 5d 0a 09 73 65 74 20 6d 79 63 68 61 6e 67 65 73 ]..set mychanges
09d0: 65 74 73 20 20 20 20 20 20 20 20 20 20 20 5b 6c ets [l
09e0: 72 65 70 6c 61 63 65 20 20 20 20 20 20 20 24 6d replace $m
09f0: 79 63 68 61 6e 67 65 73 65 74 73 20 24 70 6f 73 ychangesets $pos
0a00: 20 24 70 6f 73 5d 0a 09 73 65 74 20 70 6f 73 20 $pos]..set pos
0a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a20: 20 20 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 [lsearch -exa
0a30: 63 74 20 24 6d 79 74 63 68 61 6e 67 65 73 65 74 ct $mytchangeset
0a40: 73 28 24 6d 79 74 79 70 65 29 20 24 73 65 6c 66 s($mytype) $self
0a50: 5d 0a 09 73 65 74 20 6d 79 74 63 68 61 6e 67 65 ]..set mytchange
0a60: 73 65 74 73 28 24 6d 79 74 79 70 65 29 20 5b 6c sets($mytype) [l
0a70: 72 65 70 6c 61 63 65 20 20 20 20 20 20 20 24 6d replace $m
0a80: 79 74 63 68 61 6e 67 65 73 65 74 73 28 24 6d 79 ytchangesets($my
0a90: 74 79 70 65 29 20 24 70 6f 73 20 24 70 6f 73 5d type) $pos $pos]
0aa0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
0ab0: 20 20 20 20 6d 65 74 68 6f 64 20 73 74 72 20 7b method str {
0ac0: 7d 20 7b 0a 09 73 65 74 20 73 74 72 20 20 20 20 } {..set str
0ad0: 22 3c 22 0a 09 73 65 74 20 64 65 74 61 69 6c 20 "<"..set detail
0ae0: 22 22 0a 09 69 66 20 7b 5b 24 6d 79 74 79 70 65 ""..if {[$mytype
0af0: 6f 62 6a 20 62 79 73 79 6d 62 6f 6c 5d 7d 20 7b obj bysymbol]} {
0b00: 0a 09 20 20 20 20 73 65 74 20 64 65 74 61 69 6c .. set detail
0b10: 20 22 20 27 5b 73 74 61 74 65 20 6f 6e 65 20 7b " '[state one {
0b20: 0a 09 09 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 ...SELECT S.name
0b30: 0a 09 09 46 52 4f 4d 20 20 20 73 79 6d 62 6f 6c ...FROM symbol
0b40: 20 53 0a 09 09 57 48 45 52 45 20 20 53 2e 73 69 S...WHERE S.si
0b50: 64 20 3d 20 24 6d 79 73 72 63 69 64 0a 09 20 20 d = $mysrcid..
0b60: 20 20 7d 5d 27 22 0a 09 7d 0a 09 61 70 70 65 6e }]'"..}..appen
0b70: 64 20 73 74 72 20 22 24 6d 79 74 79 70 65 20 24 d str "$mytype $
0b80: 7b 6d 79 69 64 7d 24 7b 64 65 74 61 69 6c 7d 3e {myid}${detail}>
0b90: 22 0a 09 72 65 74 75 72 6e 20 24 73 74 72 0a 20 "..return $str.
0ba0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
0bb0: 20 6c 6f 64 20 7b 7d 20 7b 0a 09 72 65 74 75 72 lod {} {..retur
0bc0: 6e 20 5b 24 6d 79 74 79 70 65 6f 62 6a 20 63 73 n [$mytypeobj cs
0bd0: 5f 6c 6f 64 20 24 6d 79 69 74 65 6d 73 5d 0a 20 _lod $myitems].
0be0: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
0bf0: 20 69 64 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 id {} { retu
0c00: 72 6e 20 24 6d 79 69 64 20 7d 0a 20 20 20 20 6d rn $myid }. m
0c10: 65 74 68 6f 64 20 69 74 65 6d 73 20 7b 7d 20 7b ethod items {} {
0c20: 20 72 65 74 75 72 6e 20 24 6d 79 74 69 74 65 6d return $mytitem
0c30: 73 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 s }. method d
0c40: 61 74 61 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e ata {} { return
0c50: 20 5b 6c 69 73 74 20 24 6d 79 70 72 6f 6a 65 63 [list $myprojec
0c60: 74 20 24 6d 79 74 79 70 65 20 24 6d 79 73 72 63 t $mytype $mysrc
0c70: 69 64 5d 20 7d 0a 0a 20 20 20 20 64 65 6c 65 67 id] }.. deleg
0c80: 61 74 65 20 6d 65 74 68 6f 64 20 62 79 73 79 6d ate method bysym
0c90: 62 6f 6c 20 20 20 74 6f 20 6d 79 74 79 70 65 6f bol to mytypeo
0ca0: 62 6a 0a 20 20 20 20 64 65 6c 65 67 61 74 65 20 bj. delegate
0cb0: 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f method byrevisio
0cc0: 6e 20 74 6f 20 6d 79 74 79 70 65 6f 62 6a 0a 20 n to mytypeobj.
0cd0: 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74 68 delegate meth
0ce0: 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 74 6f od isbranch to
0cf0: 20 6d 79 74 79 70 65 6f 62 6a 0a 20 20 20 20 64 mytypeobj. d
0d00: 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20 69 elegate method i
0d10: 73 74 61 67 20 20 20 20 20 20 74 6f 20 6d 79 74 stag to myt
0d20: 79 70 65 6f 62 6a 0a 0a 20 20 20 20 6d 65 74 68 ypeobj.. meth
0d30: 6f 64 20 73 65 74 70 6f 73 20 7b 70 7d 20 7b 20 od setpos {p} {
0d40: 73 65 74 20 6d 79 70 6f 73 20 24 70 20 3b 20 72 set mypos $p ; r
0d50: 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 eturn }. meth
0d60: 6f 64 20 70 6f 73 20 20 20 20 7b 7d 20 20 7b 20 od pos {} {
0d70: 72 65 74 75 72 6e 20 24 6d 79 70 6f 73 20 7d 0a return $mypos }.
0d80: 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 65 74 65 . method dete
0d90: 72 6d 69 6e 65 73 75 63 63 65 73 73 6f 72 73 20 rminesuccessors
0da0: 7b 7d 20 7b 0a 09 23 20 50 61 73 73 20 36 20 6f {} {..# Pass 6 o
0db0: 70 65 72 61 74 69 6f 6e 2e 20 43 6f 6d 70 75 74 peration. Comput
0dc0: 65 20 70 72 6f 6a 65 63 74 2d 6c 65 76 65 6c 20 e project-level
0dd0: 64 65 70 65 6e 64 65 6e 63 69 65 73 20 66 72 6f dependencies fro
0de0: 6d 0a 09 23 20 74 68 65 20 66 69 6c 65 2d 6c 65 m..# the file-le
0df0: 76 65 6c 20 64 61 74 61 20 61 6e 64 20 73 61 76 vel data and sav
0e00: 65 20 69 74 20 62 61 63 6b 20 74 6f 20 74 68 65 e it back to the
0e10: 20 73 74 61 74 65 2e 20 54 68 69 73 20 6d 61 79 state. This may
0e20: 0a 09 23 20 62 65 20 63 61 6c 6c 65 64 20 64 75 ..# be called du
0e30: 72 69 6e 67 20 74 68 65 20 63 79 63 6c 65 20 62 ring the cycle b
0e40: 72 65 61 6b 65 72 20 70 61 73 73 65 73 20 61 73 reaker passes as
0e50: 20 77 65 6c 6c 2c 20 74 6f 20 61 64 6a 75 73 74 well, to adjust
0e60: 0a 09 23 20 74 68 65 20 73 75 63 63 65 73 73 6f ..# the successo
0e70: 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 r information of
0e80: 20 63 68 61 6e 67 65 73 65 74 73 20 77 68 69 63 changesets whic
0e90: 68 20 61 72 65 20 74 68 65 0a 09 23 20 70 72 65 h are the..# pre
0ea0: 64 65 63 65 73 73 6f 72 73 20 6f 66 20 64 72 6f decessors of dro
0eb0: 70 70 65 64 20 63 68 61 6e 67 65 73 65 74 73 2e pped changesets.
0ec0: 20 46 6f 72 20 74 68 65 6d 20 77 65 20 68 61 76 For them we hav
0ed0: 65 20 74 6f 0a 09 23 20 72 65 6d 6f 76 65 20 74 e to..# remove t
0ee0: 68 65 69 72 20 65 78 69 73 74 69 6e 67 20 69 6e heir existing in
0ef0: 66 6f 72 6d 61 74 69 6f 6e 20 66 69 72 73 74 20 formation first
0f00: 62 65 66 6f 72 65 20 69 6e 73 65 72 74 69 6e 67 before inserting
0f10: 20 74 68 65 0a 09 23 20 6e 65 77 20 64 61 74 61 the..# new data
0f20: 2e 0a 09 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 ...state run {..
0f30: 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 DELETE FROM
0f40: 63 73 73 75 63 63 65 73 73 6f 72 20 57 48 45 52 cssuccessor WHER
0f50: 45 20 63 69 64 20 3d 20 24 6d 79 69 64 3b 0a 09 E cid = $myid;..
0f60: 7d 0a 09 73 65 74 20 6c 6f 6f 70 20 30 0a 09 23 }..set loop 0..#
0f70: 20 54 4f 44 4f 3a 20 43 68 65 63 6b 20 6f 74 68 TODO: Check oth
0f80: 65 72 20 75 73 65 73 20 6f 66 20 63 73 5f 73 75 er uses of cs_su
0f90: 63 65 73 73 6f 72 73 2e 0a 09 23 20 54 4f 44 4f cessors...# TODO
0fa0: 3a 20 43 6f 6e 73 69 64 65 72 20 6d 65 72 67 69 : Consider mergi
0fb0: 6e 67 20 63 73 5f 73 75 63 65 73 73 6f 72 27 73 ng cs_sucessor's
0fc0: 20 53 45 4c 45 43 54 20 77 69 74 68 20 74 68 65 SELECT with the
0fd0: 20 49 4e 53 45 52 54 20 68 65 72 65 2e 0a 09 66 INSERT here...f
0fe0: 6f 72 65 61 63 68 20 6e 69 64 20 5b 24 6d 79 74 oreach nid [$myt
0ff0: 79 70 65 6f 62 6a 20 63 73 5f 73 75 63 63 65 73 ypeobj cs_succes
1000: 73 6f 72 73 20 24 6d 79 69 74 65 6d 73 5d 20 7b sors $myitems] {
1010: 0a 09 20 20 20 20 73 74 61 74 65 20 72 75 6e 20 .. state run
1020: 7b 0a 09 09 49 4e 53 45 52 54 20 49 4e 54 4f 20 {...INSERT INTO
1030: 63 73 73 75 63 63 65 73 73 6f 72 20 28 63 69 64 cssuccessor (cid
1040: 2c 20 20 6e 69 64 29 0a 09 09 56 41 4c 55 45 53 , nid)...VALUES
1050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1060: 20 20 28 24 6d 79 69 64 2c 24 6e 69 64 29 0a 09 ($myid,$nid)..
1070: 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 7b 24 }.. if {$
1080: 6e 69 64 20 3d 3d 20 24 6d 79 69 64 7d 20 7b 20 nid == $myid} {
1090: 73 65 74 20 6c 6f 6f 70 20 31 20 7d 0a 09 7d 0a set loop 1 }..}.
10a0: 09 23 20 52 65 70 6f 72 74 20 61 66 74 65 72 20 .# Report after
10b0: 74 68 65 20 63 6f 6d 70 6c 65 74 65 20 73 74 72 the complete str
10c0: 75 63 74 75 72 65 20 68 61 73 20 62 65 65 6e 20 ucture has been
10d0: 73 61 76 65 64 2e 0a 09 69 66 20 7b 24 6c 6f 6f saved...if {$loo
10e0: 70 7d 20 7b 20 24 73 65 6c 66 20 72 65 70 6f 72 p} { $self repor
10f0: 74 6c 6f 6f 70 20 7d 0a 09 72 65 74 75 72 6e 0a tloop }..return.
1100: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 }.. # res
1110: 75 6c 74 20 3d 20 6c 69 73 74 20 28 63 68 61 6e ult = list (chan
1120: 67 65 73 65 74 29 0a 20 20 20 20 6d 65 74 68 6f geset). metho
1130: 64 20 73 75 63 63 65 73 73 6f 72 73 20 7b 7d 20 d successors {}
1140: 7b 0a 09 23 20 55 73 65 20 74 68 65 20 64 61 74 {..# Use the dat
1150: 61 20 73 61 76 65 64 20 62 79 20 70 61 73 73 20 a saved by pass
1160: 36 2e 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 6...return [stru
1170: 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 5b 73 74 ct::list map [st
1180: 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 ate run {.. S
1190: 45 4c 45 43 54 20 53 2e 6e 69 64 0a 09 20 20 20 ELECT S.nid..
11a0: 20 46 52 4f 4d 20 20 20 63 73 73 75 63 63 65 73 FROM cssucces
11b0: 73 6f 72 20 53 0a 09 20 20 20 20 57 48 45 52 45 sor S.. WHERE
11c0: 20 20 53 2e 63 69 64 20 3d 20 24 6d 79 69 64 0a S.cid = $myid.
11d0: 09 7d 5d 20 5b 6d 79 74 79 70 65 6d 65 74 68 6f .}] [mytypemetho
11e0: 64 20 6f 66 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 d of]]. }..
11f0: 20 20 23 20 69 74 65 6d 20 2d 3e 20 6c 69 73 74 # item -> list
1200: 20 28 69 74 65 6d 29 0a 20 20 20 20 6d 65 74 68 (item). meth
1210: 6f 64 20 6e 65 78 74 6d 61 70 20 7b 7d 20 7b 0a od nextmap {} {.
1220: 09 24 6d 79 74 79 70 65 6f 62 6a 20 73 75 63 63 .$mytypeobj succ
1230: 65 73 73 6f 72 73 20 74 6d 70 20 24 6d 79 69 74 essors tmp $myit
1240: 65 6d 73 0a 09 72 65 74 75 72 6e 20 5b 61 72 72 ems..return [arr
1250: 61 79 20 67 65 74 20 74 6d 70 5d 0a 20 20 20 20 ay get tmp].
1260: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 62 72 }.. method br
1270: 65 61 6b 69 6e 74 65 72 6e 61 6c 64 65 70 65 6e eakinternaldepen
1280: 64 65 6e 63 69 65 73 20 7b 63 76 7d 20 7b 0a 09 dencies {cv} {..
1290: 75 70 76 61 72 20 31 20 24 63 76 20 63 6f 75 6e upvar 1 $cv coun
12a0: 74 65 72 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 ter..log write 1
12b0: 34 20 63 73 65 74 73 20 7b 5b 24 73 65 6c 66 20 4 csets {[$self
12c0: 73 74 72 5d 20 42 49 44 7d 0a 09 76 63 3a 3a 74 str] BID}..vc::t
12d0: 6f 6f 6c 73 3a 3a 6d 65 6d 3a 3a 6d 61 72 6b 0a ools::mem::mark.
12e0: 0a 09 23 20 54 68 69 73 20 6d 65 74 68 6f 64 20 ..# This method
12f0: 69 6e 73 70 65 63 74 73 20 74 68 65 20 63 68 61 inspects the cha
1300: 6e 67 65 73 65 74 2c 20 6c 6f 6f 6b 69 6e 67 20 ngeset, looking
1310: 66 6f 72 20 69 6e 74 65 72 6e 61 6c 0a 09 23 20 for internal..#
1320: 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 20 4e 6f dependencies. No
1330: 74 68 69 6e 67 20 69 73 20 64 6f 6e 65 20 69 66 thing is done if
1340: 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20 73 75 there are no su
1350: 63 68 2e 0a 0a 09 23 20 4f 74 68 65 72 77 69 73 ch....# Otherwis
1360: 65 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 e the changeset
1370: 69 73 20 73 70 6c 69 74 20 69 6e 74 6f 20 61 20 is split into a
1380: 73 65 74 20 6f 66 20 66 72 61 67 6d 65 6e 74 73 set of fragments
1390: 0a 09 23 20 77 68 69 63 68 20 68 61 76 65 20 6e ..# which have n
13a0: 6f 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e o internal depen
13b0: 64 65 6e 63 69 65 73 2c 20 74 72 61 6e 73 66 6f dencies, transfo
13c0: 72 6d 69 6e 67 20 74 68 65 0a 09 23 20 69 6e 74 rming the..# int
13d0: 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 ernal dependenci
13e0: 65 73 20 69 6e 74 6f 20 65 78 74 65 72 6e 61 6c es into external
13f0: 20 6f 6e 65 73 2e 20 54 68 65 20 6e 65 77 20 63 ones. The new c
1400: 68 61 6e 67 65 73 65 74 73 0a 09 23 20 67 65 6e hangesets..# gen
1410: 65 72 61 74 65 64 20 66 72 6f 6d 20 74 68 65 20 erated from the
1420: 66 72 61 67 6d 65 6e 74 20 69 6e 66 6f 72 6d 61 fragment informa
1430: 74 69 6f 6e 20 61 72 65 20 61 64 64 65 64 20 74 tion are added t
1440: 6f 20 74 68 65 0a 09 23 20 6c 69 73 74 20 6f 66 o the..# list of
1450: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 20 all changesets
1460: 28 62 79 20 74 68 65 20 63 61 6c 6c 65 72 29 2e (by the caller).
1470: 0a 0a 09 23 20 54 68 65 20 63 6f 64 65 20 63 68 ...# The code ch
1480: 65 63 6b 73 20 6f 6e 6c 79 20 73 75 63 63 65 73 ecks only succes
1490: 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 69 65 73 sor dependencies
14a0: 2c 20 61 73 20 74 68 69 73 20 61 75 74 6f 2d 0a , as this auto-.
14b0: 09 23 20 6d 61 74 69 63 61 6c 6c 79 20 63 6f 76 .# matically cov
14c0: 65 72 73 20 74 68 65 20 70 72 65 64 65 63 65 73 ers the predeces
14d0: 73 6f 72 20 64 65 70 65 6e 64 65 6e 63 69 65 73 sor dependencies
14e0: 20 61 73 20 77 65 6c 6c 20 28 41 6e 79 0a 09 23 as well (Any..#
14f0: 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 65 6e successor depen
1500: 64 65 6e 63 79 20 61 20 2d 3e 20 62 20 69 73 20 dency a -> b is
1510: 61 6c 73 6f 20 61 20 70 72 65 64 65 63 65 73 73 also a predecess
1520: 6f 72 20 64 65 70 65 6e 64 65 6e 63 79 0a 09 23 or dependency..#
1530: 20 62 20 2d 3e 20 61 29 2e 0a 0a 09 61 72 72 61 b -> a)....arra
1540: 79 20 73 65 74 20 62 72 65 61 6b 73 20 7b 7d 0a y set breaks {}.
1550: 0a 09 73 65 74 20 66 72 61 67 6d 65 6e 74 73 20 ..set fragments
1560: 5b 42 72 65 61 6b 44 69 72 65 63 74 44 65 70 65 [BreakDirectDepe
1570: 6e 64 65 6e 63 69 65 73 20 24 6d 79 69 74 65 6d ndencies $myitem
1580: 73 20 62 72 65 61 6b 73 5d 0a 0a 09 69 66 20 7b s breaks]...if {
1590: 21 5b 6c 6c 65 6e 67 74 68 20 24 66 72 61 67 6d ![llength $fragm
15a0: 65 6e 74 73 5d 7d 20 7b 20 72 65 74 75 72 6e 20 ents]} { return
15b0: 7b 7d 20 7d 0a 0a 09 72 65 74 75 72 6e 20 5b 24 {} }...return [$
15c0: 73 65 6c 66 20 43 72 65 61 74 65 46 72 6f 6d 46 self CreateFromF
15d0: 72 61 67 6d 65 6e 74 73 20 24 66 72 61 67 6d 65 ragments $fragme
15e0: 6e 74 73 20 63 6f 75 6e 74 65 72 20 62 72 65 61 nts counter brea
15f0: 6b 73 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d ks]. }.. m
1600: 65 74 68 6f 64 20 70 65 72 73 69 73 74 20 7b 7d ethod persist {}
1610: 20 7b 0a 09 73 65 74 20 74 69 64 20 24 6d 79 63 {..set tid $myc
1620: 73 74 79 70 65 28 24 6d 79 74 79 70 65 29 0a 09 stype($mytype)..
1630: 73 65 74 20 70 69 64 20 5b 24 6d 79 70 72 6f 6a set pid [$myproj
1640: 65 63 74 20 69 64 5d 0a 09 73 65 74 20 70 6f 73 ect id]..set pos
1650: 20 30 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 0...state trans
1660: 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 action {.. st
1670: 61 74 65 20 72 75 6e 20 7b 0a 09 09 49 4e 53 45 ate run {...INSE
1680: 52 54 20 49 4e 54 4f 20 63 68 61 6e 67 65 73 65 RT INTO changese
1690: 74 20 28 63 69 64 2c 20 20 20 70 69 64 2c 20 20 t (cid, pid,
16a0: 74 79 70 65 2c 20 73 72 63 29 0a 09 09 56 41 4c type, src)...VAL
16b0: 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 UES
16c0: 20 20 20 28 24 6d 79 69 64 2c 20 24 70 69 64 2c ($myid, $pid,
16d0: 20 24 74 69 64 2c 20 24 6d 79 73 72 63 69 64 29 $tid, $mysrcid)
16e0: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 66 ;.. }... f
16f0: 6f 72 65 61 63 68 20 69 69 64 20 24 6d 79 69 74 oreach iid $myit
1700: 65 6d 73 20 7b 0a 09 09 73 74 61 74 65 20 72 75 ems {...state ru
1710: 6e 20 7b 0a 09 09 20 20 20 20 49 4e 53 45 52 54 n {... INSERT
1720: 20 49 4e 54 4f 20 63 73 69 74 65 6d 20 28 63 69 INTO csitem (ci
1730: 64 2c 20 20 20 70 6f 73 2c 20 20 69 69 64 29 0a d, pos, iid).
1740: 09 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 20 .. VALUES
1750: 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c ($myid,
1760: 20 24 70 6f 73 2c 20 24 69 69 64 29 3b 0a 09 09 $pos, $iid);...
1770: 7d 0a 09 09 69 6e 63 72 20 70 6f 73 0a 09 20 20 }...incr pos..
1780: 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 }..}..return.
1790: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
17a0: 20 74 69 6d 65 72 61 6e 67 65 20 7b 7d 20 7b 20 timerange {} {
17b0: 72 65 74 75 72 6e 20 5b 24 6d 79 74 79 70 65 6f return [$mytypeo
17c0: 62 6a 20 74 69 6d 65 72 61 6e 67 65 20 24 6d 79 bj timerange $my
17d0: 69 74 65 6d 73 5d 20 7d 0a 0a 20 20 20 20 6d 65 items] }.. me
17e0: 74 68 6f 64 20 6c 69 6d 69 74 73 20 7b 7d 20 7b thod limits {} {
17f0: 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 ..struct::list a
1800: 73 73 69 67 6e 20 5b 24 6d 79 74 79 70 65 6f 62 ssign [$mytypeob
1810: 6a 20 6c 69 6d 69 74 73 20 24 6d 79 69 74 65 6d j limits $myitem
1820: 73 5d 20 6d 61 78 70 20 6d 69 6e 73 0a 09 72 65 s] maxp mins..re
1830: 74 75 72 6e 20 5b 6c 69 73 74 20 5b 54 61 67 49 turn [list [TagI
1840: 74 65 6d 44 69 63 74 20 24 6d 61 78 70 20 24 6d temDict $maxp $m
1850: 79 74 79 70 65 5d 20 5b 54 61 67 49 74 65 6d 44 ytype] [TagItemD
1860: 69 63 74 20 24 6d 69 6e 73 20 24 6d 79 74 79 70 ict $mins $mytyp
1870: 65 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d e]]. }.. m
1880: 65 74 68 6f 64 20 64 72 6f 70 20 7b 7d 20 7b 0a ethod drop {} {.
1890: 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 .log write 8 cse
18a0: 74 73 20 7b 44 72 6f 70 70 69 6e 67 20 24 73 65 ts {Dropping $se
18b0: 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 74 72 5d lf = [$self str]
18c0: 7d 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 61 }...state transa
18d0: 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 61 ction {.. sta
18e0: 74 65 20 72 75 6e 20 7b 0a 09 09 44 45 4c 45 54 te run {...DELET
18f0: 45 20 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 E FROM changeset
1900: 20 20 20 57 48 45 52 45 20 63 69 64 20 3d 20 24 WHERE cid = $
1910: 6d 79 69 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 myid;...DELETE F
1920: 52 4f 4d 20 63 73 69 74 65 6d 20 20 20 20 20 20 ROM csitem
1930: 57 48 45 52 45 20 63 69 64 20 3d 20 24 6d 79 69 WHERE cid = $myi
1940: 64 3b 0a 09 09 44 45 4c 45 54 45 20 46 52 4f 4d d;...DELETE FROM
1950: 20 63 73 73 75 63 63 65 73 73 6f 72 20 57 48 45 cssuccessor WHE
1960: 52 45 20 63 69 64 20 3d 20 24 6d 79 69 64 3b 0a RE cid = $myid;.
1970: 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 55 6e 6d 61 . }..}...Unma
1980: 70 49 74 65 6d 73 20 24 6d 79 74 79 70 65 20 24 pItems $mytype $
1990: 6d 79 69 74 65 6d 73 0a 09 75 6e 73 65 74 20 6d myitems..unset m
19a0: 79 69 64 6d 61 70 28 24 6d 79 69 64 29 0a 0a 09 yidmap($myid)...
19b0: 73 65 74 20 70 6f 73 20 20 20 20 20 20 20 20 20 set pos
19c0: 20 20 20 20 20 20 20 20 20 20 20 5b 6c 73 65 61 [lsea
19d0: 72 63 68 20 2d 65 78 61 63 74 20 24 6d 79 63 68 rch -exact $mych
19e0: 61 6e 67 65 73 65 74 73 20 24 73 65 6c 66 5d 0a angesets $self].
19f0: 09 73 65 74 20 6d 79 63 68 61 6e 67 65 73 65 74 .set mychangeset
1a00: 73 20 20 20 20 20 20 20 20 20 20 20 5b 6c 72 65 s [lre
1a10: 70 6c 61 63 65 20 20 20 20 20 20 20 24 6d 79 63 place $myc
1a20: 68 61 6e 67 65 73 65 74 73 20 24 70 6f 73 20 24 hangesets $pos $
1a30: 70 6f 73 5d 0a 09 73 65 74 20 70 6f 73 20 20 20 pos]..set pos
1a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a50: 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 [lsearch -exact
1a60: 20 24 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 $mytchangesets(
1a70: 24 6d 79 74 79 70 65 29 20 24 73 65 6c 66 5d 0a $mytype) $self].
1a80: 09 73 65 74 20 6d 79 74 63 68 61 6e 67 65 73 65 .set mytchangese
1a90: 74 73 28 24 6d 79 74 79 70 65 29 20 5b 6c 72 65 ts($mytype) [lre
1aa0: 70 6c 61 63 65 20 20 20 20 20 20 20 24 6d 79 74 place $myt
1ab0: 63 68 61 6e 67 65 73 65 74 73 28 24 6d 79 74 79 changesets($myty
1ac0: 70 65 29 20 24 70 6f 73 20 24 70 6f 73 5d 0a 0a pe) $pos $pos]..
1ad0: 09 23 20 52 65 74 75 72 6e 20 74 68 65 20 6c 69 .# Return the li
1ae0: 73 74 20 6f 66 20 70 72 65 64 65 63 65 73 73 6f st of predecesso
1af0: 72 73 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 rs so that they
1b00: 63 61 6e 20 62 65 20 61 64 6a 75 73 74 65 64 2e can be adjusted.
1b10: 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 74 ..return [struct
1b20: 3a 3a 6c 69 73 74 20 6d 61 70 20 5b 73 74 61 74 ::list map [stat
1b30: 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c e run {.. SEL
1b40: 45 43 54 20 63 69 64 0a 09 20 20 20 20 46 52 4f ECT cid.. FRO
1b50: 4d 20 20 20 63 73 73 75 63 63 65 73 73 6f 72 0a M cssuccessor.
1b60: 09 20 20 20 20 57 48 45 52 45 20 20 6e 69 64 20 . WHERE nid
1b70: 3d 20 24 6d 79 69 64 0a 09 7d 5d 20 5b 6d 79 74 = $myid..}] [myt
1b80: 79 70 65 6d 65 74 68 6f 64 20 6f 66 5d 5d 0a 20 ypemethod of]].
1b90: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
1ba0: 20 72 65 70 6f 72 74 6c 6f 6f 70 20 7b 7b 6b 69 reportloop {{ki
1bb0: 6c 6c 20 31 7d 7d 20 7b 0a 09 23 20 57 65 20 70 ll 1}} {..# We p
1bc0: 72 69 6e 74 20 74 68 65 20 69 74 65 6d 73 20 77 rint the items w
1bd0: 68 69 63 68 20 61 72 65 20 70 72 6f 64 75 63 69 hich are produci
1be0: 6e 67 20 74 68 65 20 6c 6f 6f 70 2c 20 61 6e 64 ng the loop, and
1bf0: 20 68 6f 77 2e 0a 0a 09 73 65 74 20 68 64 72 20 how....set hdr
1c00: 22 53 65 6c 66 2d 72 65 66 65 72 65 6e 74 69 61 "Self-referentia
1c10: 6c 20 63 68 61 6e 67 65 73 65 74 20 5b 24 73 65 l changeset [$se
1c20: 6c 66 20 73 74 72 5d 20 5f 5f 5f 5f 5f 5f 5f 5f lf str] ________
1c30: 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 0a 09 73 65 74 __________"..set
1c40: 20 66 74 72 20 5b 72 65 67 73 75 62 20 2d 61 6c ftr [regsub -al
1c50: 6c 20 7b 5b 5e 20 09 5d 7d 20 24 68 64 72 20 7b l {[^ .]} $hdr {
1c60: 5f 7d 5d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 _}]...log write
1c70: 30 20 63 73 65 74 73 20 24 68 64 72 0a 09 66 6f 0 csets $hdr..fo
1c80: 72 65 61 63 68 20 7b 69 74 65 6d 20 6e 65 78 74 reach {item next
1c90: 69 74 65 6d 7d 20 5b 24 6d 79 74 79 70 65 6f 62 item} [$mytypeob
1ca0: 6a 20 6c 6f 6f 70 73 20 24 6d 79 69 74 65 6d 73 j loops $myitems
1cb0: 5d 20 7b 0a 09 20 20 20 20 23 20 43 72 65 61 74 ] {.. # Creat
1cc0: 65 20 74 61 67 67 65 64 20 69 74 65 6d 73 20 66 e tagged items f
1cd0: 72 6f 6d 20 74 68 65 20 69 64 20 61 6e 64 20 6f rom the id and o
1ce0: 75 72 20 74 79 70 65 2e 0a 09 20 20 20 20 73 65 ur type... se
1cf0: 74 20 69 74 65 6d 20 20 20 20 20 5b 6c 69 73 74 t item [list
1d00: 20 24 6d 79 74 79 70 65 20 20 24 69 74 65 6d 5d $mytype $item]
1d10: 0a 09 20 20 20 20 73 65 74 20 6e 65 78 74 69 74 .. set nextit
1d20: 65 6d 20 5b 6c 69 73 74 20 24 6d 79 74 79 70 65 em [list $mytype
1d30: 20 24 6e 65 78 74 69 74 65 6d 5d 0a 09 20 20 20 $nextitem]..
1d40: 20 23 20 50 72 69 6e 74 61 62 6c 65 20 6c 61 62 # Printable lab
1d50: 65 6c 73 2e 0a 09 20 20 20 20 73 65 74 20 69 20 els... set i
1d60: 20 22 3c 5b 24 74 79 70 65 20 69 74 65 6d 73 74 "<[$type itemst
1d70: 72 20 24 69 74 65 6d 5d 3e 22 0a 09 20 20 20 20 r $item]>"..
1d80: 73 65 74 20 6e 20 20 22 3c 5b 24 74 79 70 65 20 set n "<[$type
1d90: 69 74 65 6d 73 74 72 20 24 6e 65 78 74 69 74 65 itemstr $nextite
1da0: 6d 5d 3e 22 0a 09 20 20 20 20 73 65 74 20 6e 63 m]>".. set nc
1db0: 73 20 24 6d 79 69 74 65 6d 6d 61 70 28 24 6e 65 s $myitemmap($ne
1dc0: 78 74 69 74 65 6d 29 0a 09 20 20 20 20 23 20 50 xtitem).. # P
1dd0: 72 69 6e 74 0a 09 20 20 20 20 6c 6f 67 20 77 72 rint.. log wr
1de0: 69 74 65 20 30 20 63 73 65 74 73 20 7b 2a 20 24 ite 0 csets {* $
1df0: 69 20 2d 2d 3e 20 24 6e 20 2d 2d 3e 20 63 73 20 i --> $n --> cs
1e00: 5b 24 6e 63 73 20 73 74 72 5d 7d 0a 09 7d 0a 09 [$ncs str]}..}..
1e10: 6c 6f 67 20 77 72 69 74 65 20 30 20 63 73 65 74 log write 0 cset
1e20: 73 20 24 66 74 72 0a 0a 09 69 66 20 7b 21 24 6b s $ftr...if {!$k
1e30: 69 6c 6c 7d 20 72 65 74 75 72 6e 0a 09 74 72 6f ill} return..tro
1e40: 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c 20 22 5b uble internal "[
1e50: 24 73 65 6c 66 20 73 74 72 5d 20 64 65 70 65 6e $self str] depen
1e60: 64 73 20 6f 6e 20 69 74 73 65 6c 66 22 0a 09 72 ds on itself"..r
1e70: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
1e80: 20 6d 65 74 68 6f 64 20 70 75 73 68 74 6f 20 7b method pushto {
1e90: 72 65 70 6f 73 69 74 6f 72 79 20 64 61 74 65 20 repository date
1ea0: 72 73 74 61 74 65 7d 20 7b 0a 09 23 20 47 65 6e rstate} {..# Gen
1eb0: 65 72 61 74 65 20 61 6e 64 20 69 6d 70 6f 72 74 erate and import
1ec0: 20 74 68 65 20 6d 61 6e 69 66 65 73 74 20 66 6f the manifest fo
1ed0: 72 20 74 68 69 73 20 63 68 61 6e 67 65 73 65 74 r this changeset
1ee0: 2e 0a 09 23 0a 09 23 20 44 61 74 61 20 6e 65 65 ...#..# Data nee
1ef0: 64 65 64 3a 0a 09 23 20 2d 20 43 6f 6d 6d 69 74 ded:..# - Commit
1f00: 20 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 20 message
1f10: 20 20 20 20 20 20 20 28 2d 2d 20 6d 79 73 72 63 (-- mysrc
1f20: 69 64 20 2d 3e 20 72 65 70 6f 73 69 74 6f 72 79 id -> repository
1f30: 20 6d 65 74 61 29 0a 09 23 20 2d 20 55 73 65 72 meta)..# - User
1f40: 20 64 6f 69 6e 67 20 74 68 65 20 63 6f 6d 6d 69 doing the commi
1f50: 74 20 20 20 20 20 20 20 20 28 73 2e 61 2e 29 0a t (s.a.).
1f60: 09 23 0a 09 23 20 2d 20 54 69 6d 65 73 74 61 6d .#..# - Timestam
1f70: 70 20 6f 66 20 77 68 65 6e 20 63 6f 6d 6d 69 74 p of when commit
1f80: 74 65 64 20 20 28 63 6f 6d 6d 61 6e 64 20 61 72 ted (command ar
1f90: 67 75 6d 65 6e 74 29 0a 09 23 0a 09 23 20 2d 20 gument)..#..# -
1fa0: 54 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 67 The parent chang
1fb0: 65 73 65 74 2c 20 69 66 20 61 6e 79 2e 20 49 66 eset, if any. If
1fc0: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 70 61 72 there is no par
1fd0: 65 6e 74 20 66 6f 73 73 69 6c 0a 09 23 20 20 20 ent fossil..#
1fe0: 77 69 6c 6c 20 75 73 65 20 74 68 65 20 65 6d 70 will use the emp
1ff0: 74 79 20 62 61 73 65 20 72 65 76 69 73 69 6f 6e ty base revision
2000: 20 61 73 20 70 61 72 65 6e 74 2e 0a 09 23 0a 09 as parent...#..
2010: 23 20 2d 20 4c 69 73 74 20 6f 66 20 74 68 65 20 # - List of the
2020: 66 69 6c 65 20 72 65 76 69 73 69 6f 6e 73 20 69 file revisions i
2030: 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e n the changeset.
2040: 0a 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 ...struct::list
2050: 61 73 73 69 67 6e 20 5b 24 6d 79 70 72 6f 6a 65 assign [$myproje
2060: 63 74 20 67 65 74 6d 65 74 61 20 24 6d 79 73 72 ct getmeta $mysr
2070: 63 69 64 5d 20 5f 5f 20 5f 5f 20 75 73 65 72 20 cid] __ __ user
2080: 6d 65 73 73 61 67 65 0a 0a 09 23 20 57 65 20 64 message...# We d
2090: 65 72 69 76 65 20 74 68 65 20 6c 6f 64 20 69 6e erive the lod in
20a0: 66 6f 72 6d 61 74 69 6f 6e 20 64 69 72 65 63 74 formation direct
20b0: 6c 79 20 66 72 6f 6d 20 74 68 65 20 72 65 76 69 ly from the revi
20c0: 73 69 6f 6e 73 20 6f 66 0a 09 23 20 74 68 65 20 sions of..# the
20d0: 63 68 61 6e 67 65 73 65 74 2c 20 61 73 20 74 68 changeset, as th
20e0: 65 20 62 72 61 6e 63 68 20 70 61 72 74 20 6f 66 e branch part of
20f0: 20 74 68 65 20 6d 65 74 61 20 64 61 74 61 20 28 the meta data (
2100: 73 2e 61 2e 29 20 69 73 0a 09 23 20 6f 75 74 64 s.a.) is..# outd
2110: 61 74 65 64 20 73 69 6e 63 65 20 70 61 73 73 20 ated since pass
2120: 46 69 6c 74 65 72 53 79 6d 62 6f 6c 73 2e 0a 0a FilterSymbols...
2130: 09 73 65 74 20 6c 6f 64 6e 61 6d 65 20 5b 24 73 .set lodname [$s
2140: 65 6c 66 20 6c 6f 64 5d 0a 0a 09 6c 6f 67 20 77 elf lod]...log w
2150: 72 69 74 65 20 32 20 63 73 65 74 73 20 7b 49 6d rite 2 csets {Im
2160: 70 6f 72 74 69 6e 67 20 72 65 76 69 73 69 6f 6e porting revision
2170: 20 5b 24 73 65 6c 66 20 73 74 72 5d 20 6f 6e 20 [$self str] on
2180: 24 6c 6f 64 6e 61 6d 65 7d 0a 0a 09 23 20 50 65 $lodname}...# Pe
2190: 72 66 6f 72 6d 20 74 68 65 20 69 6d 70 6f 72 74 rform the import
21a0: 2e 20 41 73 20 70 61 72 74 20 6f 66 20 74 68 61 . As part of tha
21b0: 74 20 77 65 20 64 65 74 65 72 6d 69 6e 65 20 74 t we determine t
21c0: 68 65 20 70 61 72 65 6e 74 0a 09 23 20 77 65 20 he parent..# we
21d0: 6e 65 65 64 2c 20 61 6e 64 20 63 6f 6e 76 65 72 need, and conver
21e0: 74 20 74 68 65 20 6c 69 73 74 20 6f 66 20 69 74 t the list of it
21f0: 65 6d 73 20 69 6e 20 74 68 65 20 63 68 61 6e 67 ems in the chang
2200: 65 73 65 74 20 69 6e 74 6f 0a 09 23 20 75 75 69 eset into..# uui
2210: 64 73 20 61 6e 64 20 70 72 69 6e 74 61 62 6c 65 ds and printable
2220: 20 64 61 74 61 2e 0a 0a 09 73 74 72 75 63 74 3a data....struct:
2230: 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b 47 65 :list assign [Ge
2240: 74 69 73 64 65 66 61 75 6c 74 20 24 6d 79 69 74 tisdefault $myit
2250: 65 6d 73 5d 20 69 73 64 65 66 61 75 6c 74 20 6c ems] isdefault l
2260: 61 73 74 64 65 66 61 75 6c 74 6f 6e 74 72 75 6e astdefaultontrun
2270: 6b 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 38 20 k...log write 8
2280: 63 73 65 74 73 20 7b 4c 4f 44 20 20 20 20 27 24 csets {LOD '$
2290: 6c 6f 64 6e 61 6d 65 27 7d 0a 09 6c 6f 67 20 77 lodname'}..log w
22a0: 72 69 74 65 20 38 20 63 73 65 74 73 20 7b 20 64 rite 8 csets { d
22b0: 65 66 3f 20 20 24 69 73 64 65 66 61 75 6c 74 7d ef? $isdefault}
22c0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 ..log write 8 cs
22d0: 65 74 73 20 7b 20 6c 61 73 74 3f 20 24 6c 61 73 ets { last? $las
22e0: 74 64 65 66 61 75 6c 74 6f 6e 74 72 75 6e 6b 7d tdefaultontrunk}
22f0: 0a 0a 09 73 65 74 20 6c 77 73 20 20 5b 47 65 74 ...set lws [Get
2300: 77 6f 72 6b 73 70 61 63 65 20 20 20 20 24 72 73 workspace $rs
2310: 74 61 74 65 20 24 6c 6f 64 6e 61 6d 65 20 24 6d tate $lodname $m
2320: 79 70 72 6f 6a 65 63 74 20 24 69 73 64 65 66 61 yproject $isdefa
2330: 75 6c 74 5d 0a 09 24 6c 77 73 20 61 64 64 20 5b ult]..$lws add [
2340: 47 65 74 72 65 76 69 73 69 6f 6e 69 6e 66 6f 20 Getrevisioninfo
2350: 24 6d 79 69 74 65 6d 73 5d 0a 0a 09 73 65 74 20 $myitems]...set
2360: 75 75 69 64 20 5b 24 72 65 70 6f 73 69 74 6f 72 uuid [$repositor
2370: 79 20 69 6d 70 6f 72 74 72 65 76 69 73 69 6f 6e y importrevision
2380: 20 5b 24 73 65 6c 66 20 73 74 72 5d 20 5c 0a 09 [$self str] \..
2390: 09 20 20 20 20 20 20 24 75 73 65 72 20 24 6d 65 . $user $me
23a0: 73 73 61 67 65 20 24 64 61 74 65 20 5c 0a 09 09 ssage $date \...
23b0: 20 20 20 20 20 20 5b 24 6c 77 73 20 67 65 74 69 [$lws geti
23c0: 64 5d 20 5b 24 6c 77 73 20 67 65 74 5d 5d 0a 0a d] [$lws get]]..
23d0: 09 23 20 52 65 6d 65 6d 62 65 72 20 74 68 65 20 .# Remember the
23e0: 69 6d 70 6f 72 74 65 64 20 63 68 61 6e 67 65 73 imported changes
23f0: 65 74 20 69 6e 20 74 68 65 20 73 74 61 74 65 2c et in the state,
2400: 20 75 6e 64 65 72 20 6f 75 72 0a 09 23 20 4c 4f under our..# LO
2410: 44 2e 20 41 6e 64 20 69 66 20 69 74 20 69 73 20 D. And if it is
2420: 74 68 65 20 6c 61 73 74 20 74 72 75 6e 6b 20 63 the last trunk c
2430: 68 61 6e 67 65 73 65 74 20 6f 6e 20 74 68 65 20 hangeset on the
2440: 76 65 6e 64 6f 72 0a 09 23 20 62 72 61 6e 63 68 vendor..# branch
2450: 20 74 68 65 6e 20 74 68 65 20 72 65 76 69 73 69 then the revisi
2460: 6f 6e 20 69 73 20 61 6c 73 6f 20 74 68 65 20 61 on is also the a
2470: 63 74 75 61 6c 20 72 6f 6f 74 20 6f 66 20 74 68 ctual root of th
2480: 65 0a 09 23 20 3a 74 72 75 6e 6b 3a 2c 20 73 6f e..# :trunk:, so
2490: 20 77 65 20 72 65 6d 65 6d 62 65 72 20 69 74 20 we remember it
24a0: 61 73 20 73 75 63 68 20 69 6e 20 74 68 65 20 73 as such in the s
24b0: 74 61 74 65 2e 20 48 6f 77 65 76 65 72 20 69 66 tate. However if
24c0: 0a 09 23 20 74 68 65 20 74 72 75 6e 6b 20 61 6c ..# the trunk al
24d0: 72 65 61 64 79 20 65 78 69 73 74 73 20 74 68 65 ready exists the
24e0: 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 n the changeset
24f0: 63 61 6e 6e 6f 74 20 62 65 20 6f 6e 20 69 74 0a cannot be on it.
2500: 09 23 20 61 6e 79 20 6d 6f 72 65 2e 20 54 68 69 .# any more. Thi
2510: 73 20 69 6e 64 69 63 61 74 65 73 20 77 65 69 72 s indicates weir
2520: 64 6e 65 73 73 20 69 6e 20 74 68 65 20 73 65 74 dness in the set
2530: 75 70 20 6f 66 20 74 68 65 0a 09 23 20 76 65 6e up of the..# ven
2540: 64 6f 72 20 62 72 61 6e 63 68 2c 20 62 75 74 20 dor branch, but
2550: 6f 6e 65 20 77 65 20 63 61 6e 20 77 6f 72 6b 20 one we can work
2560: 61 72 6f 75 6e 64 2e 0a 0a 09 24 6c 77 73 20 64 around....$lws d
2570: 65 66 69 64 20 24 75 75 69 64 0a 09 69 66 20 7b efid $uuid..if {
2580: 24 6c 61 73 74 64 65 66 61 75 6c 74 6f 6e 74 72 $lastdefaultontr
2590: 75 6e 6b 7d 20 7b 0a 09 20 20 20 20 69 66 20 7b unk} {.. if {
25a0: 5b 24 72 73 74 61 74 65 20 68 61 73 20 3a 74 72 [$rstate has :tr
25b0: 75 6e 6b 3a 5d 7d 20 7b 0a 09 09 6c 6f 67 20 77 unk:]} {...log w
25c0: 72 69 74 65 20 32 20 63 73 65 74 73 20 7b 4d 75 rite 2 csets {Mu
25d0: 6c 74 69 70 6c 65 20 63 68 61 6e 67 65 73 65 74 ltiple changeset
25e0: 73 20 64 65 63 6c 61 72 65 64 20 74 6f 20 62 65 s declared to be
25f0: 20 74 68 65 20 6c 61 73 74 20 74 72 75 6e 6b 20 the last trunk
2600: 63 68 61 6e 67 65 73 65 74 20 6f 6e 20 74 68 65 changeset on the
2610: 20 76 65 6e 64 6f 72 2d 62 72 61 6e 63 68 7d 0a vendor-branch}.
2620: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
2630: 24 72 73 74 61 74 65 20 6e 65 77 20 3a 74 72 75 $rstate new :tru
2640: 6e 6b 3a 20 5b 24 6c 77 73 20 6e 61 6d 65 5d 0a nk: [$lws name].
2650: 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 23 20 52 65 . }..}...# Re
2660: 6d 65 6d 62 65 72 20 74 68 65 20 77 68 6f 6c 65 member the whole
2670: 20 63 68 61 6e 67 65 73 65 74 20 2f 20 75 75 69 changeset / uui
2680: 64 20 6d 61 70 70 69 6e 67 2c 20 66 6f 72 20 74 d mapping, for t
2690: 68 65 20 74 61 67 73 2e 0a 0a 09 73 74 61 74 65 he tags....state
26a0: 20 72 75 6e 20 7b 0a 09 20 20 20 20 49 4e 53 45 run {.. INSE
26b0: 52 54 20 49 4e 54 4f 20 63 73 75 75 69 64 20 28 RT INTO csuuid (
26c0: 63 69 64 2c 20 20 20 75 75 69 64 29 0a 09 20 20 cid, uuid)..
26d0: 20 20 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 VALUES
26e0: 20 20 20 20 20 28 24 6d 79 69 64 2c 20 24 75 75 ($myid, $uu
26f0: 69 64 29 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 id)..}..return.
2700: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 47 }.. proc G
2710: 65 74 72 65 76 69 73 69 6f 6e 69 6e 66 6f 20 7b etrevisioninfo {
2720: 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 73 65 revisions} {..se
2730: 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e t theset ('[join
2740: 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 $revisions {','
2750: 7d 5d 27 29 0a 09 73 65 74 20 72 65 76 69 73 69 }]')..set revisi
2760: 6f 6e 73 20 7b 7d 0a 09 23 66 6f 72 65 61 63 68 ons {}..#foreach
2770: 72 6f 77 0a 09 66 6f 72 65 61 63 68 20 7b 66 72 row..foreach {fr
2780: 69 64 20 70 61 74 68 20 66 6e 61 6d 65 20 72 65 id path fname re
2790: 76 6e 72 20 72 6f 70 7d 20 5b 73 74 61 74 65 20 vnr rop} [state
27a0: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
27b0: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
27c0: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c ashes {.. SEL
27d0: 45 43 54 20 55 2e 75 75 69 64 2c 20 46 2e 76 69 ECT U.uuid, F.vi
27e0: 73 69 62 6c 65 2c 20 46 2e 6e 61 6d 65 2c 20 52 sible, F.name, R
27f0: 2e 72 65 76 2c 20 52 2e 6f 70 0a 09 20 20 20 20 .rev, R.op..
2800: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
2810: 52 2c 20 72 65 76 75 75 69 64 20 55 2c 20 66 69 R, revuuid U, fi
2820: 6c 65 20 46 0a 09 20 20 20 20 57 48 45 52 45 20 le F.. WHERE
2830: 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 65 R.rid IN $these
2840: 74 20 20 2d 2d 20 41 6c 6c 20 73 70 65 63 69 66 t -- All specif
2850: 69 65 64 20 72 65 76 69 73 69 6f 6e 73 0a 09 20 ied revisions..
2860: 20 20 20 41 4e 44 20 20 20 20 55 2e 72 69 64 20 AND U.rid
2870: 3d 20 52 2e 72 69 64 20 20 20 20 20 2d 2d 20 67 = R.rid -- g
2880: 65 74 20 66 6f 73 73 69 6c 20 75 75 69 64 20 6f et fossil uuid o
2890: 66 20 72 65 76 69 73 69 6f 6e 0a 09 20 20 20 20 f revision..
28a0: 41 4e 44 20 20 20 20 46 2e 66 69 64 20 3d 20 52 AND F.fid = R
28b0: 2e 66 69 64 20 20 20 20 20 2d 2d 20 67 65 74 20 .fid -- get
28c0: 66 69 6c 65 20 6f 66 20 72 65 76 69 73 69 6f 6e file of revision
28d0: 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 70 ..}]] {.. lap
28e0: 70 65 6e 64 20 72 65 76 69 73 69 6f 6e 73 20 24 pend revisions $
28f0: 66 72 69 64 20 24 70 61 74 68 20 24 66 6e 61 6d frid $path $fnam
2900: 65 2f 24 72 65 76 6e 72 20 24 72 6f 70 0a 09 7d e/$revnr $rop..}
2910: 0a 09 72 65 74 75 72 6e 20 24 72 65 76 69 73 69 ..return $revisi
2920: 6f 6e 73 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 ons. }.. p
2930: 72 6f 63 20 47 65 74 77 6f 72 6b 73 70 61 63 65 roc Getworkspace
2940: 20 7b 72 73 74 61 74 65 20 6c 6f 64 6e 61 6d 65 {rstate lodname
2950: 20 70 72 6f 6a 65 63 74 20 69 73 64 65 66 61 75 project isdefau
2960: 6c 74 7d 20 7b 0a 0a 09 23 20 54 68 65 20 73 74 lt} {...# The st
2970: 61 74 65 20 6f 62 6a 65 63 74 20 68 6f 6c 64 73 ate object holds
2980: 20 74 68 65 20 77 6f 72 6b 73 70 61 63 65 20 73 the workspace s
2990: 74 61 74 65 20 6f 66 20 65 61 63 68 20 6b 6e 6f tate of each kno
29a0: 77 6e 0a 09 23 20 6c 69 6e 65 2d 6f 66 2d 64 65 wn..# line-of-de
29b0: 76 65 6c 6f 70 6d 65 6e 74 20 28 4c 4f 44 29 2c velopment (LOD),
29c0: 20 75 70 20 74 6f 20 74 68 65 20 6c 61 73 74 20 up to the last
29d0: 63 6f 6d 6d 69 74 74 65 64 0a 09 23 20 63 68 61 committed..# cha
29e0: 6e 67 65 73 65 74 20 62 65 6c 6f 6e 67 69 6e 67 ngeset belonging
29f0: 20 74 6f 20 74 68 61 74 20 4c 4f 44 2e 0a 0a 09 to that LOD....
2a00: 23 20 28 2a 29 20 53 74 61 6e 64 61 72 64 20 68 # (*) Standard h
2a10: 61 6e 64 6c 69 6e 67 20 69 66 20 69 6e 2d 4c 4f andling if in-LO
2a20: 44 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 66 D changesets. If
2a30: 20 74 68 65 20 4c 4f 44 20 6f 66 0a 09 23 20 20 the LOD of..#
2a40: 20 20 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 the current c
2a50: 68 61 6e 67 65 73 65 74 20 65 78 69 73 74 73 20 hangeset exists
2a60: 69 6e 20 74 68 65 20 73 74 61 74 65 20 28 3d 20 in the state (=
2a70: 68 61 73 20 62 65 65 6e 0a 09 23 20 20 20 20 20 has been..#
2a80: 63 6f 6d 6d 69 74 74 65 64 20 74 6f 29 20 74 68 committed to) th
2a90: 65 6e 20 74 68 69 73 20 69 74 20 68 61 73 20 74 en this it has t
2aa0: 68 65 20 77 6f 72 6b 73 70 61 63 65 20 77 65 20 he workspace we
2ab0: 61 72 65 0a 09 23 20 20 20 20 20 6c 6f 6f 6b 69 are..# looki
2ac0: 6e 67 20 66 6f 72 2e 0a 0a 09 69 66 20 7b 5b 24 ng for....if {[$
2ad0: 72 73 74 61 74 65 20 68 61 73 20 24 6c 6f 64 6e rstate has $lodn
2ae0: 61 6d 65 5d 7d 20 7b 0a 09 20 20 20 20 72 65 74 ame]} {.. ret
2af0: 75 72 6e 20 5b 24 72 73 74 61 74 65 20 67 65 74 urn [$rstate get
2b00: 20 24 6c 6f 64 6e 61 6d 65 5d 0a 09 7d 0a 0a 09 $lodname]..}...
2b10: 23 20 49 66 20 74 68 65 20 4c 4f 44 20 69 73 20 # If the LOD is
2b20: 68 6f 77 65 76 65 72 20 6e 6f 74 20 79 65 74 20 however not yet
2b30: 6b 6e 6f 77 6e 2c 20 74 68 65 6e 20 74 68 65 20 known, then the
2b40: 63 75 72 72 65 6e 74 0a 09 23 20 63 68 61 6e 67 current..# chang
2b50: 65 73 65 74 20 63 61 6e 20 62 65 20 65 69 74 68 eset can be eith
2b60: 65 72 20 6f 66 0a 09 23 20 28 61 29 20 72 6f 6f er of..# (a) roo
2b70: 74 20 6f 66 20 61 20 76 65 6e 64 6f 72 20 62 72 t of a vendor br
2b80: 61 6e 63 68 2c 0a 09 23 20 28 62 29 20 72 6f 6f anch,..# (b) roo
2b90: 74 20 6f 66 20 74 68 65 20 74 72 75 6e 6b 20 4c t of the trunk L
2ba0: 4f 44 2c 20 6f 72 0a 09 23 20 28 63 29 20 74 68 OD, or..# (c) th
2bb0: 65 20 66 69 72 73 74 20 63 68 61 6e 67 65 73 65 e first changese
2bc0: 74 20 69 6e 20 61 20 6e 65 77 20 4c 4f 44 20 77 t in a new LOD w
2bd0: 68 69 63 68 20 77 61 73 20 73 70 61 77 6e 65 64 hich was spawned
2be0: 20 66 72 6f 6d 0a 09 23 20 20 20 20 20 61 6e 20 from..# an
2bf0: 65 78 69 73 74 69 6e 67 20 4c 4f 44 2e 0a 0a 09 existing LOD....
2c00: 23 20 46 6f 72 20 62 6f 74 68 20 28 61 29 20 61 # For both (a) a
2c10: 6e 64 20 28 62 29 20 77 65 20 68 61 76 65 20 74 nd (b) we have t
2c20: 6f 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 77 o create a new w
2c30: 6f 72 6b 73 70 61 63 65 20 66 6f 72 0a 09 23 20 orkspace for..#
2c40: 74 68 65 20 6c 6f 64 2c 20 61 6e 64 20 69 74 20 the lod, and it
2c50: 64 6f 65 73 6e 27 74 20 69 6e 68 65 72 69 74 20 doesn't inherit
2c60: 66 72 6f 6d 20 61 6e 79 74 68 69 6e 67 2e 0a 0a from anything...
2c70: 09 23 20 4f 6e 65 20 65 78 63 65 70 74 69 6f 6e .# One exception
2c80: 20 66 6f 72 20 28 61 29 2e 20 49 66 20 77 65 20 for (a). If we
2c90: 61 6c 72 65 61 64 79 20 68 61 76 65 20 61 20 3a already have a :
2ca0: 76 65 6e 64 6f 72 3a 20 62 72 61 6e 63 68 0a 09 vendor: branch..
2cb0: 23 20 74 68 65 6e 20 6d 75 6c 74 69 70 6c 65 20 # then multiple
2cc0: 73 79 6d 62 6f 6c 73 20 77 65 72 65 20 75 73 65 symbols were use
2cd0: 64 20 66 6f 72 20 74 68 65 20 76 65 6e 64 6f 72 d for the vendor
2ce0: 20 62 72 61 6e 63 68 20 62 79 0a 09 23 20 64 69 branch by..# di
2cf0: 66 66 65 72 65 6e 74 20 66 69 6c 65 73 2e 20 49 fferent files. I
2d00: 6e 20 74 68 61 74 20 63 61 73 65 20 74 68 65 20 n that case the
2d10: 27 6e 65 77 27 20 62 72 61 6e 63 68 20 69 73 20 'new' branch is
2d20: 6d 61 64 65 20 61 6e 0a 09 23 20 61 6c 69 61 73 made an..# alias
2d30: 20 6f 66 20 74 68 65 20 3a 76 65 6e 64 6f 72 3a of the :vendor:
2d40: 2c 20 65 66 66 65 63 74 69 76 65 6c 79 20 6d 65 , effectively me
2d50: 72 67 69 6e 67 20 74 68 65 20 73 79 6d 62 6f 6c rging the symbol
2d60: 73 0a 09 23 20 74 6f 67 65 74 68 65 72 2e 0a 0a s..# together...
2d70: 09 23 20 4e 6f 74 65 20 74 68 61 74 20 63 61 73 .# Note that cas
2d80: 65 20 28 62 29 20 6d 61 79 20 6e 65 76 65 72 20 e (b) may never
2d90: 6f 63 63 75 72 2e 20 53 65 65 20 74 68 65 20 76 occur. See the v
2da0: 61 72 69 61 62 6c 65 0a 09 23 20 27 6c 61 73 74 ariable..# 'last
2db0: 64 65 66 61 75 6c 74 6f 6e 74 72 75 6e 6b 27 20 defaultontrunk'
2dc0: 69 6e 20 74 68 65 20 63 61 6c 6c 65 72 20 28 6d in the caller (m
2dd0: 65 74 68 6f 64 20 70 75 73 68 74 6f 29 2e 20 54 ethod pushto). T
2de0: 68 69 73 0a 09 23 20 66 6c 61 67 20 63 61 6e 20 his..# flag can
2df0: 74 68 65 20 67 65 6e 65 72 61 74 69 6f 6e 20 6f the generation o
2e00: 66 20 74 68 65 20 77 6f 72 6b 73 70 61 63 65 20 f the workspace
2e10: 66 6f 72 20 74 68 65 20 3a 74 72 75 6e 6b 3a 20 for the :trunk:
2e20: 4c 4f 44 0a 09 23 20 61 73 20 77 65 6c 6c 2c 20 LOD..# as well,
2e30: 6d 61 6b 69 6e 67 20 69 74 20 69 6e 68 65 72 69 making it inheri
2e40: 74 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 t the state of t
2e50: 68 65 20 6c 61 73 74 0a 09 23 20 74 72 75 6e 6b he last..# trunk
2e60: 2d 63 68 61 6e 67 65 73 65 74 20 6f 6e 20 74 68 -changeset on th
2e70: 65 20 76 65 6e 64 6f 72 2d 62 72 61 6e 63 68 2e e vendor-branch.
2e80: 0a 0a 09 69 66 20 7b 24 69 73 64 65 66 61 75 6c ...if {$isdefaul
2e90: 74 7d 20 7b 0a 09 20 20 20 20 69 66 20 7b 21 5b t} {.. if {![
2ea0: 24 72 73 74 61 74 65 20 68 61 73 20 22 3a 76 65 $rstate has ":ve
2eb0: 6e 64 6f 72 3a 22 5d 7d 20 7b 0a 09 09 23 20 43 ndor:"]} {...# C
2ec0: 72 65 61 74 65 20 74 68 65 20 76 65 6e 64 6f 72 reate the vendor
2ed0: 20 62 72 61 6e 63 68 20 69 66 20 6e 6f 74 20 70 branch if not p
2ee0: 72 65 73 65 6e 74 20 61 6c 72 65 61 64 79 2e 0a resent already..
2ef0: 09 09 24 72 73 74 61 74 65 20 6e 65 77 20 3a 76 ..$rstate new :v
2f00: 65 6e 64 6f 72 3a 0a 09 20 20 20 20 7d 0a 09 20 endor:.. }..
2f10: 20 20 20 23 20 4d 65 72 67 65 20 74 68 65 20 6e # Merge the n
2f20: 65 77 20 73 79 6d 62 6f 6c 20 74 6f 20 74 68 65 ew symbol to the
2f30: 20 76 65 6e 64 6f 72 20 62 72 61 6e 63 68 0a 09 vendor branch..
2f40: 20 20 20 20 24 72 73 74 61 74 65 20 64 75 70 20 $rstate dup
2f50: 24 6c 6f 64 6e 61 6d 65 20 3c 2d 2d 20 3a 76 65 $lodname <-- :ve
2f60: 6e 64 6f 72 3a 0a 09 20 20 20 20 72 65 74 75 72 ndor:.. retur
2f70: 6e 20 5b 24 72 73 74 61 74 65 20 67 65 74 20 24 n [$rstate get $
2f80: 6c 6f 64 6e 61 6d 65 5d 0a 09 7d 0a 0a 09 69 66 lodname]..}...if
2f90: 20 7b 24 6c 6f 64 6e 61 6d 65 20 65 71 20 22 3a {$lodname eq ":
2fa0: 74 72 75 6e 6b 3a 22 7d 20 7b 0a 09 20 20 20 20 trunk:"} {..
2fb0: 72 65 74 75 72 6e 20 5b 24 72 73 74 61 74 65 20 return [$rstate
2fc0: 6e 65 77 20 24 6c 6f 64 6e 61 6d 65 5d 0a 09 7d new $lodname]..}
2fd0: 0a 0a 09 23 20 43 61 73 65 20 28 63 29 2e 20 57 ...# Case (c). W
2fe0: 65 20 66 69 6e 64 20 74 68 65 20 70 61 72 65 6e e find the paren
2ff0: 74 20 4c 4f 44 20 6f 66 20 6f 75 72 20 4c 4f 44 t LOD of our LOD
3000: 20 61 6e 64 20 6c 65 74 20 74 68 65 20 6e 65 77 and let the new
3010: 0a 09 23 20 77 6f 72 6b 73 70 61 63 65 20 69 6e ..# workspace in
3020: 68 65 72 69 74 20 66 72 6f 6d 20 74 68 65 20 70 herit from the p
3030: 61 72 65 6e 74 27 73 20 77 6f 72 6b 73 70 61 63 arent's workspac
3040: 65 2e 0a 0a 09 73 65 74 20 70 6c 6f 64 6e 61 6d e....set plodnam
3050: 65 20 5b 5b 5b 24 70 72 6f 6a 65 63 74 20 67 65 e [[[$project ge
3060: 74 73 79 6d 62 6f 6c 20 24 6c 6f 64 6e 61 6d 65 tsymbol $lodname
3070: 5d 20 70 61 72 65 6e 74 5d 20 6e 61 6d 65 5d 0a ] parent] name].
3080: 0a 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 73 ..log write 8 cs
3090: 65 74 73 20 7b 70 4c 4f 44 20 20 20 27 24 70 6c ets {pLOD '$pl
30a0: 6f 64 6e 61 6d 65 27 7d 0a 0a 09 69 66 20 7b 5b odname'}...if {[
30b0: 24 72 73 74 61 74 65 20 68 61 73 20 24 70 6c 6f $rstate has $plo
30c0: 64 6e 61 6d 65 5d 7d 20 7b 0a 09 20 20 20 20 72 dname]} {.. r
30d0: 65 74 75 72 6e 20 5b 24 72 73 74 61 74 65 20 6e eturn [$rstate n
30e0: 65 77 20 24 6c 6f 64 6e 61 6d 65 20 24 70 6c 6f ew $lodname $plo
30f0: 64 6e 61 6d 65 5d 0a 09 7d 0a 0a 09 66 6f 72 65 dname]..}...fore
3100: 61 63 68 20 6b 20 5b 6c 73 6f 72 74 20 5b 24 72 ach k [lsort [$r
3110: 73 74 61 74 65 20 6e 61 6d 65 73 5d 5d 20 7b 0a state names]] {.
3120: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 . log write 8
3130: 20 63 73 65 74 73 20 7b 20 20 20 20 24 6b 20 3d csets { $k =
3140: 20 5b 5b 24 72 73 74 61 74 65 20 67 65 74 20 24 [[$rstate get $
3150: 6b 5d 20 67 65 74 69 64 5d 7d 0a 09 7d 0a 0a 09 k] getid]}..}...
3160: 74 72 6f 75 62 6c 65 20 69 6e 74 65 72 6e 61 6c trouble internal
3170: 20 7b 55 6e 61 62 6c 65 20 74 6f 20 64 65 74 65 {Unable to dete
3180: 72 6d 69 6e 65 20 63 68 61 6e 67 65 73 65 74 20 rmine changeset
3190: 70 61 72 65 6e 74 7d 0a 09 72 65 74 75 72 6e 0a parent}..return.
31a0: 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 }.. proc
31b0: 47 65 74 69 73 64 65 66 61 75 6c 74 20 7b 72 65 Getisdefault {re
31c0: 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 73 65 74 20 visions} {..set
31d0: 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 theset ('[join $
31e0: 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d revisions {','}]
31f0: 27 29 0a 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 ')...struct::lis
3200: 74 20 61 73 73 69 67 6e 20 5b 73 74 61 74 65 20 t assign [state
3210: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
3220: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
3230: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c ashes {.. SEL
3240: 45 43 54 20 52 2e 69 73 64 65 66 61 75 6c 74 2c ECT R.isdefault,
3250: 20 52 2e 64 62 63 68 69 6c 64 0a 09 20 20 20 20 R.dbchild..
3260: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
3270: 52 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e R.. WHERE R.
3280: 72 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 rid IN $theset
3290: 2d 2d 20 41 6c 6c 20 73 70 65 63 69 66 69 65 64 -- All specified
32a0: 20 72 65 76 69 73 69 6f 6e 73 0a 09 20 20 20 20 revisions..
32b0: 4c 49 4d 49 54 20 31 0a 09 7d 5d 5d 20 64 65 66 LIMIT 1..}]] def
32c0: 20 6c 61 73 74 0a 0a 09 23 20 54 4f 44 4f 2f 43 last...# TODO/C
32d0: 48 45 43 4b 3a 20 6c 6f 6f 6b 20 66 6f 72 20 63 HECK: look for c
32e0: 68 61 6e 67 65 73 65 74 73 20 77 68 65 72 65 20 hangesets where
32f0: 69 73 64 65 66 61 75 6c 74 2f 64 62 63 68 69 6c isdefault/dbchil
3300: 64 20 69 73 0a 09 23 20 61 6d 62 69 67 6f 75 73 d is..# ambigous
3310: 2e 0a 0a 09 72 65 74 75 72 6e 20 5b 6c 69 73 74 ....return [list
3320: 20 24 64 65 66 20 5b 65 78 70 72 20 7b 24 6c 61 $def [expr {$la
3330: 73 74 20 6e 65 20 22 22 7d 5d 5d 0a 20 20 20 20 st ne ""}]].
3340: 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }.. typemetho
3350: 64 20 73 70 6c 69 74 20 7b 63 73 65 74 20 61 72 d split {cset ar
3360: 67 73 7d 20 7b 0a 09 23 20 41 73 20 70 61 72 74 gs} {..# As part
3370: 20 6f 66 20 74 68 65 20 63 72 65 61 74 69 6f 6e of the creation
3380: 20 6f 66 20 74 68 65 20 6e 65 77 20 63 68 61 6e of the new chan
3390: 67 65 73 65 74 73 20 73 70 65 63 69 66 69 65 64 gesets specified
33a0: 20 69 6e 0a 09 23 20 41 52 47 53 20 61 73 20 73 in..# ARGS as s
33b0: 65 74 73 20 6f 66 20 69 74 65 6d 73 2c 20 61 6c ets of items, al
33c0: 6c 20 73 75 62 73 65 74 73 20 6f 66 20 43 53 45 l subsets of CSE
33d0: 54 27 73 20 69 74 65 6d 20 73 65 74 2c 20 43 53 T's item set, CS
33e0: 45 54 0a 09 23 20 77 69 6c 6c 20 62 65 20 64 72 ET..# will be dr
33f0: 6f 70 70 65 64 20 66 72 6f 6d 20 61 6c 6c 20 64 opped from all d
3400: 61 74 61 62 61 73 65 73 2c 20 69 6e 20 61 6e 64 atabases, in and
3410: 20 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 2c 0a out of memory,.
3420: 09 23 20 61 6e 64 20 74 68 65 6e 20 64 65 73 74 .# and then dest
3430: 72 6f 79 65 64 2e 0a 09 23 0a 09 23 20 4e 6f 74 royed...#..# Not
3440: 65 3a 20 54 68 65 20 69 74 65 6d 20 6c 69 73 74 e: The item list
3450: 73 20 66 6f 75 6e 64 20 69 6e 20 61 72 67 73 20 s found in args
3460: 61 72 65 20 74 61 67 67 65 64 20 69 74 65 6d 73 are tagged items
3470: 2e 20 54 68 65 79 0a 09 23 20 68 61 76 65 20 74 . They..# have t
3480: 6f 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 o have the same
3490: 74 79 70 65 20 61 73 20 74 68 65 20 63 68 61 6e type as the chan
34a0: 67 65 73 65 74 2c 20 62 65 69 6e 67 20 73 75 62 geset, being sub
34b0: 73 65 74 73 0a 09 23 20 6f 66 20 69 74 73 20 69 sets..# of its i
34c0: 74 65 6d 73 2e 20 54 68 69 73 20 69 73 20 63 68 tems. This is ch
34d0: 65 63 6b 65 64 20 69 6e 20 55 6e 74 61 67 31 2e ecked in Untag1.
34e0: 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 38 20 63 ...log write 8 c
34f0: 73 65 74 73 20 7b 4f 4c 44 3a 20 5b 6c 73 6f 72 sets {OLD: [lsor
3500: 74 20 5b 24 63 73 65 74 20 69 74 65 6d 73 5d 5d t [$cset items]]
3510: 7d 0a 09 56 61 6c 69 64 61 74 65 46 72 61 67 6d }..ValidateFragm
3520: 65 6e 74 73 20 24 63 73 65 74 20 24 61 72 67 73 ents $cset $args
3530: 0a 0a 09 23 20 41 6c 6c 20 63 68 65 63 6b 73 20 ...# All checks
3540: 70 61 73 73 2c 20 61 63 74 75 61 6c 6c 79 20 70 pass, actually p
3550: 65 72 66 6f 72 6d 20 74 68 65 20 73 70 6c 69 74 erform the split
3560: 2e 0a 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 ....struct::list
3570: 20 61 73 73 69 67 6e 20 5b 24 63 73 65 74 20 64 assign [$cset d
3580: 61 74 61 5d 20 70 72 6f 6a 65 63 74 20 63 73 74 ata] project cst
3590: 79 70 65 20 63 73 73 72 63 0a 0a 09 73 65 74 20 ype cssrc...set
35a0: 70 72 65 64 65 63 65 73 73 6f 72 73 20 5b 24 63 predecessors [$c
35b0: 73 65 74 20 64 72 6f 70 5d 0a 09 24 63 73 65 74 set drop]..$cset
35c0: 20 64 65 73 74 72 6f 79 0a 0a 09 73 65 74 20 6e destroy...set n
35d0: 65 77 63 73 65 74 73 20 7b 7d 0a 09 66 6f 72 65 ewcsets {}..fore
35e0: 61 63 68 20 66 72 61 67 6d 65 6e 74 69 74 65 6d ach fragmentitem
35f0: 73 20 24 61 72 67 73 20 7b 0a 09 20 20 20 20 6c s $args {.. l
3600: 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 74 73 og write 8 csets
3610: 20 7b 4d 41 4b 45 3a 20 5b 6c 73 6f 72 74 20 24 {MAKE: [lsort $
3620: 66 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d 7d 0a fragmentitems]}.
3630: 0a 09 20 20 20 20 73 65 74 20 66 72 61 67 6d 65 .. set fragme
3640: 6e 74 20 5b 24 74 79 70 65 20 25 41 55 54 4f 25 nt [$type %AUTO%
3650: 20 24 70 72 6f 6a 65 63 74 20 24 63 73 74 79 70 $project $cstyp
3660: 65 20 24 63 73 73 72 63 20 5c 0a 09 09 09 20 20 e $cssrc \....
3670: 20 20 20 20 5b 55 6e 74 61 67 20 24 66 72 61 67 [Untag $frag
3680: 6d 65 6e 74 69 74 65 6d 73 20 24 63 73 74 79 70 mentitems $cstyp
3690: 65 5d 5d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 e]].. lappend
36a0: 20 6e 65 77 63 73 65 74 73 20 24 66 72 61 67 6d newcsets $fragm
36b0: 65 6e 74 0a 0a 09 20 20 20 20 24 66 72 61 67 6d ent... $fragm
36c0: 65 6e 74 20 70 65 72 73 69 73 74 0a 09 20 20 20 ent persist..
36d0: 20 24 66 72 61 67 6d 65 6e 74 20 64 65 74 65 72 $fragment deter
36e0: 6d 69 6e 65 73 75 63 63 65 73 73 6f 72 73 0a 09 minesuccessors..
36f0: 7d 0a 0a 09 23 20 54 68 65 20 70 72 65 64 65 63 }...# The predec
3700: 65 73 73 6f 72 73 20 68 61 76 65 20 74 6f 20 72 essors have to r
3710: 65 63 6f 6d 70 75 74 65 20 74 68 65 69 72 20 73 ecompute their s
3720: 75 63 63 65 73 73 6f 72 73 2c 20 69 2e 65 2e 0a uccessors, i.e..
3730: 09 23 20 72 65 6d 6f 76 65 20 74 68 65 20 64 72 .# remove the dr
3740: 6f 70 70 65 64 20 63 68 61 6e 67 65 73 65 74 20 opped changeset
3750: 61 6e 64 20 70 75 74 20 6f 6e 65 20 6f 66 20 74 and put one of t
3760: 68 65 20 66 72 61 67 6d 65 6e 74 73 0a 09 23 20 he fragments..#
3770: 69 6e 74 6f 20 69 74 73 20 70 6c 61 63 65 2e 0a into its place..
3780: 09 66 6f 72 65 61 63 68 20 70 20 24 70 72 65 64 .foreach p $pred
3790: 65 63 65 73 73 6f 72 73 20 7b 0a 09 20 20 20 20 ecessors {..
37a0: 24 70 20 64 65 74 65 72 6d 69 6e 65 73 75 63 63 $p determinesucc
37b0: 65 73 73 6f 72 73 0a 09 7d 0a 0a 09 72 65 74 75 essors..}...retu
37c0: 72 6e 20 24 6e 65 77 63 73 65 74 73 0a 20 20 20 rn $newcsets.
37d0: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
37e0: 6f 64 20 69 74 65 6d 73 74 72 20 7b 69 74 65 6d od itemstr {item
37f0: 7d 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 } {..struct::lis
3800: 74 20 61 73 73 69 67 6e 20 24 69 74 65 6d 20 69 t assign $item i
3810: 74 79 70 65 20 69 69 64 0a 09 72 65 74 75 72 6e type iid..return
3820: 20 5b 24 69 74 79 70 65 20 73 74 72 20 24 69 69 [$itype str $ii
3830: 64 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 d]. }.. ty
3840: 70 65 6d 65 74 68 6f 64 20 73 74 72 6c 69 73 74 pemethod strlist
3850: 20 7b 63 68 61 6e 67 65 73 65 74 73 7d 20 7b 0a {changesets} {.
3860: 09 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 5b 73 .return [join [s
3870: 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 truct::list map
3880: 24 63 68 61 6e 67 65 73 65 74 73 20 5b 6d 79 70 $changesets [myp
3890: 72 6f 63 20 49 44 5d 5d 5d 0a 20 20 20 20 7d 0a roc ID]]]. }.
38a0: 0a 20 20 20 20 70 72 6f 63 20 49 44 20 7b 63 73 . proc ID {cs
38b0: 65 74 7d 20 7b 20 24 63 73 65 74 20 73 74 72 20 et} { $cset str
38c0: 7d 0a 0a 20 20 20 20 70 72 6f 63 20 55 6e 74 61 }.. proc Unta
38d0: 67 20 7b 74 61 67 67 65 64 69 74 65 6d 73 20 63 g {taggeditems c
38e0: 73 74 79 70 65 7d 20 7b 0a 09 72 65 74 75 72 6e stype} {..return
38f0: 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d [struct::list m
3900: 61 70 20 24 74 61 67 67 65 64 69 74 65 6d 73 20 ap $taggeditems
3910: 5b 6d 79 70 72 6f 63 20 55 6e 74 61 67 31 20 24 [myproc Untag1 $
3920: 63 73 74 79 70 65 5d 5d 0a 20 20 20 20 7d 0a 0a cstype]]. }..
3930: 20 20 20 20 70 72 6f 63 20 55 6e 74 61 67 31 20 proc Untag1
3940: 7b 63 73 74 79 70 65 20 74 68 65 69 74 65 6d 7d {cstype theitem}
3950: 20 7b 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 {..struct::list
3960: 20 61 73 73 69 67 6e 20 24 74 68 65 69 74 65 6d assign $theitem
3970: 20 74 20 69 0a 09 69 6e 74 65 67 72 69 74 79 20 t i..integrity
3980: 61 73 73 65 72 74 20 7b 24 63 73 74 79 70 65 20 assert {$cstype
3990: 65 71 20 24 74 7d 20 7b 49 74 65 6d 20 24 69 27 eq $t} {Item $i'
39a0: 73 20 74 79 70 65 20 69 73 20 27 24 74 27 2c 20 s type is '$t',
39b0: 65 78 70 65 63 74 65 64 20 27 24 63 73 74 79 70 expected '$cstyp
39c0: 65 27 7d 0a 09 72 65 74 75 72 6e 20 24 69 0a 20 e'}..return $i.
39d0: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 54 }.. proc T
39e0: 61 67 49 74 65 6d 44 69 63 74 20 7b 69 74 65 6d agItemDict {item
39f0: 64 69 63 74 20 63 73 74 79 70 65 7d 20 7b 0a 09 dict cstype} {..
3a00: 73 65 74 20 72 65 73 20 7b 7d 0a 09 66 6f 72 65 set res {}..fore
3a10: 61 63 68 20 7b 69 20 76 7d 20 24 69 74 65 6d 64 ach {i v} $itemd
3a20: 69 63 74 20 7b 20 6c 61 70 70 65 6e 64 20 72 65 ict { lappend re
3a30: 73 20 5b 6c 69 73 74 20 24 63 73 74 79 70 65 20 s [list $cstype
3a40: 24 69 5d 20 24 76 20 7d 0a 09 72 65 74 75 72 6e $i] $v }..return
3a50: 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 20 20 $res. }..
3a60: 20 70 72 6f 63 20 56 61 6c 69 64 61 74 65 46 72 proc ValidateFr
3a70: 61 67 6d 65 6e 74 73 20 7b 63 73 65 74 20 66 72 agments {cset fr
3a80: 61 67 6d 65 6e 74 73 7d 20 7b 0a 09 23 20 43 68 agments} {..# Ch
3a90: 65 63 6b 20 74 68 65 20 76 61 72 69 6f 75 73 20 eck the various
3aa0: 69 6e 74 65 67 72 69 74 79 20 63 6f 6e 73 74 72 integrity constr
3ab0: 61 69 6e 74 73 20 66 6f 72 20 74 68 65 20 66 72 aints for the fr
3ac0: 61 67 6d 65 6e 74 73 0a 09 23 20 73 70 65 63 69 agments..# speci
3ad0: 66 79 69 6e 67 20 68 6f 77 20 74 6f 20 73 70 6c fying how to spl
3ae0: 69 74 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 it the changeset
3af0: 3a 0a 09 23 0a 09 23 20 2a 20 57 65 20 6d 75 73 :..#..# * We mus
3b00: 74 20 68 61 76 65 20 74 77 6f 20 6f 72 20 6d 6f t have two or mo
3b10: 72 65 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 73 re fragments, as
3b20: 20 73 70 6c 69 74 74 69 6e 67 20 61 0a 09 23 20 splitting a..#
3b30: 20 20 63 68 61 6e 67 65 73 65 74 20 69 6e 74 6f changeset into
3b40: 20 6f 6e 65 20 6d 61 6b 65 73 20 6e 6f 20 73 65 one makes no se
3b50: 6e 73 65 2e 0a 09 23 20 2a 20 4e 6f 20 66 72 61 nse...# * No fra
3b60: 67 6d 65 6e 74 20 6d 61 79 20 62 65 20 65 6d 70 gment may be emp
3b70: 74 79 2e 0a 09 23 20 2a 20 41 6c 6c 20 66 72 61 ty...# * All fra
3b80: 67 6d 65 6e 74 73 20 68 61 76 65 20 74 6f 20 62 gments have to b
3b90: 65 20 74 72 75 65 20 73 75 62 73 65 74 73 20 6f e true subsets o
3ba0: 66 20 74 68 65 20 69 74 65 6d 73 20 69 6e 20 74 f the items in t
3bb0: 68 65 0a 09 23 20 20 20 63 68 61 6e 67 65 73 65 he..# changese
3bc0: 74 20 74 6f 20 73 70 6c 69 74 2e 20 54 68 65 20 t to split. The
3bd0: 27 74 72 75 65 27 20 69 73 20 69 6d 70 6c 69 65 'true' is implie
3be0: 64 20 62 65 63 61 75 73 65 20 6e 6f 6e 65 20 61 d because none a
3bf0: 72 65 0a 09 23 20 20 20 61 6c 6c 6f 77 65 64 20 re..# allowed
3c00: 74 6f 20 62 65 20 65 6d 70 74 79 2c 20 73 6f 20 to be empty, so
3c10: 65 61 63 68 20 68 61 73 20 74 6f 20 62 65 20 73 each has to be s
3c20: 6d 61 6c 6c 65 72 20 74 68 61 6e 20 74 68 65 0a maller than the.
3c30: 09 23 20 20 20 74 6f 74 61 6c 2e 0a 09 23 20 2a .# total...# *
3c40: 20 54 68 65 20 75 6e 69 6f 6e 20 6f 66 20 74 68 The union of th
3c50: 65 20 66 72 61 67 6d 65 6e 74 73 20 68 61 73 20 e fragments has
3c60: 74 6f 20 62 65 20 74 68 65 20 69 74 65 6d 20 73 to be the item s
3c70: 65 74 20 6f 66 20 74 68 65 0a 09 23 20 20 20 63 et of the..# c
3c80: 68 61 6e 67 65 73 65 74 2e 0a 09 23 20 2a 20 54 hangeset...# * T
3c90: 68 65 20 66 72 61 67 6d 65 6e 74 20 6d 75 73 74 he fragment must
3ca0: 20 6e 6f 74 20 6f 76 65 72 6c 61 70 2c 20 69 2e not overlap, i.
3cb0: 65 2e 20 74 68 65 69 72 20 70 61 69 72 77 69 73 e. their pairwis
3cc0: 65 0a 09 23 20 20 20 69 6e 74 65 72 73 65 63 74 e..# intersect
3cd0: 69 6f 6e 73 20 68 61 76 65 20 74 6f 20 62 65 20 ions have to be
3ce0: 65 6d 70 74 79 2e 0a 0a 09 73 65 74 20 63 6f 76 empty....set cov
3cf0: 65 72 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 66 er {}..foreach f
3d00: 72 61 67 6d 65 6e 74 69 74 65 6d 73 20 24 66 72 ragmentitems $fr
3d10: 61 67 6d 65 6e 74 73 20 7b 0a 09 20 20 20 20 6c agments {.. l
3d20: 6f 67 20 77 72 69 74 65 20 38 20 63 73 65 74 73 og write 8 csets
3d30: 20 7b 4e 45 57 3a 20 5b 6c 73 6f 72 74 20 24 66 {NEW: [lsort $f
3d40: 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d 7d 0a 0a ragmentitems]}..
3d50: 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 20 61 . integrity a
3d60: 73 73 65 72 74 20 7b 0a 09 09 21 5b 73 74 72 75 ssert {...![stru
3d70: 63 74 3a 3a 73 65 74 20 65 6d 70 74 79 20 24 66 ct::set empty $f
3d80: 72 61 67 6d 65 6e 74 69 74 65 6d 73 5d 0a 09 20 ragmentitems]..
3d90: 20 20 20 7d 20 7b 63 68 61 6e 67 65 73 65 74 20 } {changeset
3da0: 66 72 61 67 6d 65 6e 74 20 69 73 20 65 6d 70 74 fragment is empt
3db0: 79 7d 0a 0a 09 20 20 20 20 69 6e 74 65 67 72 69 y}... integri
3dc0: 74 79 20 61 73 73 65 72 74 20 7b 0a 09 09 5b 73 ty assert {...[s
3dd0: 74 72 75 63 74 3a 3a 73 65 74 20 73 75 62 73 65 truct::set subse
3de0: 74 6f 66 20 24 66 72 61 67 6d 65 6e 74 69 74 65 tof $fragmentite
3df0: 6d 73 20 5b 24 63 73 65 74 20 69 74 65 6d 73 5d ms [$cset items]
3e00: 5d 0a 09 20 20 20 20 7d 20 7b 63 68 61 6e 67 65 ].. } {change
3e10: 73 65 74 20 66 72 61 67 6d 65 6e 74 20 69 73 20 set fragment is
3e20: 6e 6f 74 20 61 20 73 75 62 73 65 74 7d 0a 09 20 not a subset}..
3e30: 20 20 20 73 74 72 75 63 74 3a 3a 73 65 74 20 61 struct::set a
3e40: 64 64 20 63 6f 76 65 72 20 24 66 72 61 67 6d 65 dd cover $fragme
3e50: 6e 74 69 74 65 6d 73 0a 09 7d 0a 0a 09 69 6e 74 ntitems..}...int
3e60: 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b 0a egrity assert {.
3e70: 09 20 20 20 20 5b 73 74 72 75 63 74 3a 3a 73 65 . [struct::se
3e80: 74 20 65 71 75 61 6c 20 24 63 6f 76 65 72 20 5b t equal $cover [
3e90: 24 63 73 65 74 20 69 74 65 6d 73 5d 5d 0a 09 20 $cset items]]..
3ea0: 7d 20 7b 54 68 65 20 66 72 61 67 6d 65 6e 74 73 } {The fragments
3eb0: 20 64 6f 20 6e 6f 74 20 63 6f 76 65 72 20 74 68 do not cover th
3ec0: 65 20 6f 72 69 67 69 6e 61 6c 20 63 68 61 6e 67 e original chang
3ed0: 65 73 65 74 7d 0a 0a 09 73 65 74 20 69 20 31 0a eset}...set i 1.
3ee0: 09 66 6f 72 65 61 63 68 20 66 69 61 20 24 66 72 .foreach fia $fr
3ef0: 61 67 6d 65 6e 74 73 20 7b 0a 09 20 20 20 20 66 agments {.. f
3f00: 6f 72 65 61 63 68 20 66 69 62 20 5b 6c 72 61 6e oreach fib [lran
3f10: 67 65 20 24 66 72 61 67 6d 65 6e 74 73 20 24 69 ge $fragments $i
3f20: 20 65 6e 64 5d 20 7b 0a 09 09 69 6e 74 65 67 72 end] {...integr
3f30: 69 74 79 20 61 73 73 65 72 74 20 7b 0a 09 09 20 ity assert {...
3f40: 20 20 20 5b 73 74 72 75 63 74 3a 3a 73 65 74 20 [struct::set
3f50: 65 6d 70 74 79 20 5b 73 74 72 75 63 74 3a 3a 73 empty [struct::s
3f60: 65 74 20 69 6e 74 65 72 73 65 63 74 20 24 66 69 et intersect $fi
3f70: 61 20 24 66 69 62 5d 5d 0a 09 09 7d 20 7b 54 68 a $fib]]...} {Th
3f80: 65 20 66 72 61 67 6d 65 6e 74 73 20 3c 24 66 69 e fragments <$fi
3f90: 61 3e 20 61 6e 64 20 3c 24 66 69 62 3e 20 6f 76 a> and <$fib> ov
3fa0: 65 72 6c 61 70 7d 0a 09 20 20 20 20 7d 0a 09 20 erlap}.. }..
3fb0: 20 20 20 69 6e 63 72 20 69 0a 09 7d 0a 0a 09 72 incr i..}...r
3fc0: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
3fd0: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
3fe0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
3ff0: 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 ########. ##
4000: 53 74 61 74 65 0a 0a 20 20 20 20 76 61 72 69 61 State.. varia
4010: 62 6c 65 20 6d 79 69 64 20 20 20 20 20 20 20 20 ble myid
4020: 7b 7d 20 3b 20 23 20 49 64 20 6f 66 20 74 68 65 {} ; # Id of the
4030: 20 63 73 65 74 20 66 6f 72 20 74 68 65 20 70 65 cset for the pe
4040: 72 73 69 73 74 65 6e 74 0a 09 09 09 20 20 20 20 rsistent....
4050: 20 20 23 20 73 74 61 74 65 2e 0a 20 20 20 20 76 # state.. v
4060: 61 72 69 61 62 6c 65 20 6d 79 70 72 6f 6a 65 63 ariable myprojec
4070: 74 20 20 20 7b 7d 20 3b 20 23 20 52 65 66 65 72 t {} ; # Refer
4080: 65 6e 63 65 20 6f 66 20 74 68 65 20 70 72 6f 6a ence of the proj
4090: 65 63 74 20 6f 62 6a 65 63 74 20 74 68 65 0a 09 ect object the..
40a0: 09 09 20 20 20 20 20 20 23 20 63 68 61 6e 67 65 .. # change
40b0: 73 65 74 20 62 65 6c 6f 6e 67 73 20 74 6f 2e 0a set belongs to..
40c0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 74 variable myt
40d0: 79 70 65 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 ype {} ; #
40e0: 57 68 61 74 20 74 68 65 20 63 68 61 6e 67 65 73 What the changes
40f0: 65 74 20 69 73 20 62 61 73 65 64 20 6f 6e 0a 09 et is based on..
4100: 09 09 20 20 20 20 20 20 23 20 28 72 65 76 69 73 .. # (revis
4110: 69 6f 6e 73 2c 20 74 61 67 73 2c 20 6f 72 20 62 ions, tags, or b
4120: 72 61 6e 63 68 65 73 29 2e 0a 09 09 09 20 20 20 ranches).....
4130: 20 20 20 23 20 56 61 6c 75 65 73 3a 20 53 65 65 # Values: See
4140: 20 6d 79 63 73 74 79 70 65 2e 20 4e 6f 74 65 20 mycstype. Note
4150: 74 68 61 74 20 77 65 0a 09 09 09 20 20 20 20 20 that we....
4160: 20 23 20 68 61 76 65 20 74 6f 20 6b 65 65 70 20 # have to keep
4170: 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 the names of the
4180: 20 68 65 6c 70 65 72 0a 09 09 09 20 20 20 20 20 helper....
4190: 20 23 20 73 69 6e 67 6c 65 74 6f 6e 73 20 69 6e # singletons in
41a0: 20 73 79 6e 63 20 77 69 74 68 20 74 68 65 20 63 sync with the c
41b0: 6f 6e 74 65 6e 74 73 0a 09 09 09 20 20 20 20 20 ontents....
41c0: 20 23 20 6f 66 20 73 74 61 74 65 20 74 61 62 6c # of state tabl
41d0: 65 20 27 63 73 74 79 70 65 27 2c 20 61 6e 64 20 e 'cstype', and
41e0: 76 61 72 69 6f 75 73 0a 09 09 09 20 20 20 20 20 various....
41f0: 20 23 20 6f 74 68 65 72 20 70 6c 61 63 65 73 20 # other places
4200: 75 73 69 6e 67 20 74 68 65 6d 20 68 61 72 64 77 using them hardw
4210: 69 72 65 64 2e 0a 20 20 20 20 76 61 72 69 61 62 ired.. variab
4220: 6c 65 20 6d 79 74 79 70 65 6f 62 6a 20 20 20 7b le mytypeobj {
4230: 7d 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 20 } ; # Reference
4240: 74 6f 20 74 68 65 20 63 6f 6e 74 61 69 6e 65 72 to the container
4250: 20 66 6f 72 20 74 68 65 0a 09 09 09 20 20 20 20 for the....
4260: 20 20 23 20 74 79 70 65 20 64 65 70 65 6e 64 65 # type depende
4270: 6e 74 20 63 6f 64 65 2e 20 44 65 72 69 76 65 64 nt code. Derived
4280: 20 66 72 6f 6d 0a 09 09 09 20 20 20 20 20 20 23 from.... #
4290: 20 6d 79 74 79 70 65 2e 0a 20 20 20 20 76 61 72 mytype.. var
42a0: 69 61 62 6c 65 20 6d 79 73 72 63 69 64 20 20 20 iable mysrcid
42b0: 20 20 7b 7d 20 3b 20 23 20 49 64 20 6f 66 20 74 {} ; # Id of t
42c0: 68 65 20 6d 65 74 61 64 61 74 61 20 6f 72 20 73 he metadata or s
42d0: 79 6d 62 6f 6c 20 74 68 65 20 63 73 65 74 0a 09 ymbol the cset..
42e0: 09 09 20 20 20 20 20 20 23 20 69 73 20 62 61 73 .. # is bas
42f0: 65 64 20 6f 6e 2e 0a 20 20 20 20 76 61 72 69 61 ed on.. varia
4300: 62 6c 65 20 6d 79 69 74 65 6d 73 20 20 20 20 20 ble myitems
4310: 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 74 {} ; # List of t
4320: 68 65 20 66 69 6c 65 20 6c 65 76 65 6c 20 72 65 he file level re
4330: 76 69 73 69 6f 6e 73 2c 0a 09 09 09 20 20 20 20 visions,....
4340: 20 20 23 20 74 61 67 73 2c 20 6f 72 20 62 72 61 # tags, or bra
4350: 6e 63 68 65 73 20 69 6e 20 74 68 65 20 63 73 65 nches in the cse
4360: 74 2c 20 61 73 0a 09 09 09 20 20 20 20 20 20 23 t, as.... #
4370: 20 69 64 73 2e 20 4e 6f 74 20 74 61 67 67 65 64 ids. Not tagged
4380: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
4390: 79 74 69 74 65 6d 73 20 20 20 20 7b 7d 20 3b 20 ytitems {} ;
43a0: 23 20 41 73 20 6d 79 69 74 65 6d 73 2c 20 74 68 # As myitems, th
43b0: 65 20 74 61 67 67 65 64 20 66 6f 72 6d 2e 0a 20 e tagged form..
43c0: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 6f variable mypo
43d0: 73 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 43 s {} ; # C
43e0: 6f 6d 6d 69 74 20 70 6f 73 69 74 69 6f 6e 20 6f ommit position o
43f0: 66 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 2c f the changeset,
4400: 20 69 66 0a 09 09 09 20 20 20 20 20 20 23 20 6b if.... # k
4410: 6e 6f 77 6e 2e 0a 0a 20 20 20 20 23 20 23 20 23 nown... # # #
4420: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
4430: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
4440: 23 23 0a 20 20 20 20 23 23 20 49 6e 74 65 72 6e ##. ## Intern
4450: 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 al methods..
4460: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 63 typevariable myc
4470: 6f 75 6e 74 65 72 20 20 20 20 20 20 20 20 30 20 ounter 0
4480: 3b 20 23 20 49 64 20 63 6f 75 6e 74 65 72 20 66 ; # Id counter f
4490: 6f 72 20 63 73 65 74 73 2e 20 4c 61 73 74 20 69 or csets. Last i
44a0: 64 0a 09 09 09 09 20 20 20 20 20 20 23 20 75 73 d..... # us
44b0: 65 64 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 ed.. typevari
44c0: 61 62 6c 65 20 6d 79 63 73 74 79 70 65 20 2d 61 able mycstype -a
44d0: 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 20 rray {} ; # Map
44e0: 63 73 74 79 70 65 73 20 28 6e 61 6d 65 73 29 20 cstypes (names)
44f0: 74 6f 20 70 65 72 73 69 73 74 65 6e 74 0a 09 09 to persistent...
4500: 09 09 20 20 20 20 20 20 23 20 69 64 73 2e 20 4e .. # ids. N
4510: 6f 74 65 20 74 68 61 74 20 77 65 20 68 61 76 65 ote that we have
4520: 20 74 6f 20 6b 65 65 70 0a 09 09 09 09 20 20 20 to keep.....
4530: 20 20 20 23 20 74 68 65 20 6e 61 6d 65 73 20 69 # the names i
4540: 6e 20 74 68 65 20 74 61 62 6c 65 20 27 63 73 74 n the table 'cst
4550: 79 70 65 27 0a 09 09 09 09 20 20 20 20 20 20 23 ype'..... #
4560: 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 74 68 in sync with th
4570: 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 0a 09 e names of the..
4580: 09 09 09 20 20 20 20 20 20 23 20 68 65 6c 70 65 ... # helpe
4590: 72 20 73 69 6e 67 6c 65 74 6f 6e 73 2e 0a 0a 20 r singletons...
45a0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 69 6e typemethod in
45b0: 6f 72 64 65 72 20 7b 70 72 6f 6a 65 63 74 69 64 order {projectid
45c0: 7d 20 7b 0a 09 23 20 52 65 74 75 72 6e 20 61 6c } {..# Return al
45d0: 6c 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 l revision chang
45e0: 65 73 65 74 73 20 66 6f 72 20 74 68 65 20 73 70 esets for the sp
45f0: 65 63 69 66 69 65 64 20 70 72 6f 6a 65 63 74 2c ecified project,
4600: 20 69 6e 0a 09 23 20 74 68 65 20 6f 72 64 65 72 in..# the order
4610: 20 67 69 76 65 6e 20 74 6f 20 74 68 65 6d 20 62 given to them b
4620: 79 20 74 68 65 20 73 6f 72 74 20 70 61 73 73 65 y the sort passe
4630: 73 2e 20 42 6f 74 68 20 74 68 65 0a 09 23 20 66 s. Both the..# f
4640: 69 6c 74 65 72 69 6e 67 20 62 79 20 70 72 6f 6a iltering by proj
4650: 65 63 74 20 61 6e 64 20 73 6f 72 74 69 6e 67 20 ect and sorting
4660: 6d 61 6b 65 20 75 73 65 20 6f 66 20 27 70 72 6f make use of 'pro
4670: 6a 65 63 74 3a 3a 72 65 76 0a 09 23 20 72 65 76 ject::rev..# rev
4680: 27 20 69 6d 70 6f 73 73 69 62 6c 65 2e 0a 0a 09 ' impossible....
4690: 73 65 74 20 72 65 73 20 7b 7d 0a 09 23 66 6f 72 set res {}..#for
46a0: 65 61 63 68 72 6f 77 0a 09 66 6f 72 65 61 63 68 eachrow..foreach
46b0: 20 7b 63 69 64 20 63 64 61 74 65 7d 20 5b 73 74 {cid cdate} [st
46c0: 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 ate run {.. S
46d0: 45 4c 45 43 54 20 43 2e 63 69 64 2c 20 54 2e 64 ELECT C.cid, T.d
46e0: 61 74 65 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 ate.. FROM
46f0: 63 68 61 6e 67 65 73 65 74 20 43 2c 20 63 73 74 changeset C, cst
4700: 69 6d 65 73 74 61 6d 70 20 54 0a 09 20 20 20 20 imestamp T..
4710: 57 48 45 52 45 20 20 43 2e 74 79 70 65 20 3d 20 WHERE C.type =
4720: 30 20 20 20 20 20 20 20 20 20 20 2d 2d 20 6c 69 0 -- li
4730: 6d 69 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 20 mit to revision
4740: 63 68 61 6e 67 65 73 65 74 73 0a 09 20 20 20 20 changesets..
4750: 41 4e 44 20 20 20 20 43 2e 70 69 64 20 20 3d 20 AND C.pid =
4760: 24 70 72 6f 6a 65 63 74 69 64 20 2d 2d 20 6c 69 $projectid -- li
4770: 6d 69 74 20 74 6f 20 63 68 61 6e 67 65 73 65 74 mit to changeset
4780: 73 20 69 6e 20 70 72 6f 6a 65 63 74 0a 09 20 20 s in project..
4790: 20 20 41 4e 44 20 20 20 20 54 2e 63 69 64 20 20 AND T.cid
47a0: 3d 20 43 2e 63 69 64 20 20 20 20 20 20 2d 2d 20 = C.cid --
47b0: 67 65 74 20 6f 72 64 65 72 69 6e 67 20 69 6e 66 get ordering inf
47c0: 6f 72 6d 61 74 69 6f 6e 0a 09 20 20 20 20 4f 52 ormation.. OR
47d0: 44 45 52 20 42 59 20 54 2e 64 61 74 65 20 20 20 DER BY T.date
47e0: 20 20 20 20 20 20 20 20 20 2d 2d 20 73 6f 72 74 -- sort
47f0: 20 69 6e 74 6f 20 63 6f 6d 6d 69 74 20 6f 72 64 into commit ord
4800: 65 72 0a 09 7d 5d 20 7b 0a 09 20 20 20 20 6c 61 er..}] {.. la
4810: 70 70 65 6e 64 20 72 65 73 20 24 6d 79 69 64 6d ppend res $myidm
4820: 61 70 28 24 63 69 64 29 20 24 63 64 61 74 65 0a ap($cid) $cdate.
4830: 09 7d 0a 09 72 65 74 75 72 6e 20 24 72 65 73 0a .}..return $res.
4840: 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d }.. typem
4850: 65 74 68 6f 64 20 67 65 74 63 73 74 79 70 65 73 ethod getcstypes
4860: 20 7b 7d 20 7b 0a 09 73 74 61 74 65 20 66 6f 72 {} {..state for
4870: 65 61 63 68 72 6f 77 20 7b 0a 09 20 20 20 20 53 eachrow {.. S
4880: 45 4c 45 43 54 20 74 69 64 2c 20 6e 61 6d 65 20 ELECT tid, name
4890: 46 52 4f 4d 20 63 73 74 79 70 65 3b 0a 09 7d 20 FROM cstype;..}
48a0: 7b 20 73 65 74 20 6d 79 63 73 74 79 70 65 28 24 { set mycstype($
48b0: 6e 61 6d 65 29 20 24 74 69 64 20 7d 0a 09 72 65 name) $tid }..re
48c0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
48d0: 74 79 70 65 6d 65 74 68 6f 64 20 6c 6f 61 64 20 typemethod load
48e0: 7b 72 65 70 6f 73 69 74 6f 72 79 7d 20 7b 0a 09 {repository} {..
48f0: 73 65 74 20 6e 20 30 0a 09 6c 6f 67 20 77 72 69 set n 0..log wri
4900: 74 65 20 32 20 63 73 65 74 73 20 7b 4c 6f 61 64 te 2 csets {Load
4910: 69 6e 67 20 74 68 65 20 63 68 61 6e 67 65 73 65 ing the changese
4920: 74 73 7d 0a 09 73 74 61 74 65 20 66 6f 72 65 61 ts}..state forea
4930: 63 68 72 6f 77 20 7b 0a 09 20 20 20 20 53 45 4c chrow {.. SEL
4940: 45 43 54 20 43 2e 63 69 64 20 20 20 41 53 20 69 ECT C.cid AS i
4950: 64 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 43 d,.. C
4960: 2e 70 69 64 20 20 20 41 53 20 78 70 69 64 2c 0a .pid AS xpid,.
4970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4980: 20 20 20 43 53 2e 6e 61 6d 65 20 41 53 20 63 73 CS.name AS cs
4990: 74 79 70 65 2c 0a 09 20 20 20 20 20 20 20 20 20 type,..
49a0: 20 20 43 2e 73 72 63 20 20 20 41 53 20 73 72 63 C.src AS src
49b0: 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 63 id.. FROM c
49c0: 68 61 6e 67 65 73 65 74 20 43 2c 20 63 73 74 79 hangeset C, csty
49d0: 70 65 20 43 53 0a 09 20 20 20 20 57 48 45 52 45 pe CS.. WHERE
49e0: 20 20 43 2e 74 79 70 65 20 3d 20 43 53 2e 74 69 C.type = CS.ti
49f0: 64 0a 09 20 20 20 20 4f 52 44 45 52 20 42 59 20 d.. ORDER BY
4a00: 43 2e 63 69 64 0a 09 7d 20 7b 0a 09 20 20 20 20 C.cid..} {..
4a10: 6c 6f 67 20 70 72 6f 67 72 65 73 73 20 32 20 63 log progress 2 c
4a20: 73 65 74 73 20 24 6e 20 7b 7d 0a 09 20 20 20 20 sets $n {}..
4a30: 73 65 74 20 72 20 5b 24 74 79 70 65 20 25 41 55 set r [$type %AU
4a40: 54 4f 25 20 5b 24 72 65 70 6f 73 69 74 6f 72 79 TO% [$repository
4a50: 20 70 72 6f 6a 65 63 74 6f 66 20 24 78 70 69 64 projectof $xpid
4a60: 5d 20 24 63 73 74 79 70 65 20 24 73 72 63 69 64 ] $cstype $srcid
4a70: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 [state run {...
4a80: 53 45 4c 45 43 54 20 43 2e 69 69 64 0a 09 09 46 SELECT C.iid...F
4a90: 52 4f 4d 20 20 20 63 73 69 74 65 6d 20 43 0a 09 ROM csitem C..
4aa0: 09 57 48 45 52 45 20 20 43 2e 63 69 64 20 3d 20 .WHERE C.cid =
4ab0: 24 69 64 0a 09 09 4f 52 44 45 52 20 42 59 20 43 $id...ORDER BY C
4ac0: 2e 70 6f 73 0a 09 20 20 20 20 7d 5d 20 24 69 64 .pos.. }] $id
4ad0: 5d 0a 09 20 20 20 20 69 6e 63 72 20 6e 0a 09 7d ].. incr n..}
4ae0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
4af0: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6c typemethod l
4b00: 6f 61 64 63 6f 75 6e 74 65 72 20 7b 7d 20 7b 0a oadcounter {} {.
4b10: 09 23 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 .# Initialize th
4b20: 65 20 63 6f 75 6e 74 65 72 20 66 72 6f 6d 20 74 e counter from t
4b30: 68 65 20 73 74 61 74 65 0a 09 6c 6f 67 20 77 72 he state..log wr
4b40: 69 74 65 20 32 20 63 73 65 74 73 20 7b 4c 6f 61 ite 2 csets {Loa
4b50: 64 69 6e 67 20 63 68 61 6e 67 65 73 65 74 20 63 ding changeset c
4b60: 6f 75 6e 74 65 72 7d 0a 09 73 65 74 20 6d 79 63 ounter}..set myc
4b70: 6f 75 6e 74 65 72 20 5b 73 74 61 74 65 20 6f 6e ounter [state on
4b80: 65 20 7b 20 53 45 4c 45 43 54 20 4d 41 58 28 63 e { SELECT MAX(c
4b90: 69 64 29 20 46 52 4f 4d 20 63 68 61 6e 67 65 73 id) FROM changes
4ba0: 65 74 20 7d 5d 0a 09 72 65 74 75 72 6e 0a 20 20 et }]..return.
4bb0: 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 }.. typemet
4bc0: 68 6f 64 20 6e 75 6d 20 7b 7d 20 7b 20 72 65 74 hod num {} { ret
4bd0: 75 72 6e 20 24 6d 79 63 6f 75 6e 74 65 72 20 7d urn $mycounter }
4be0: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
4bf0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
4c00: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 20 #############..
4c10: 20 20 20 6d 65 74 68 6f 64 20 43 72 65 61 74 65 method Create
4c20: 46 72 6f 6d 46 72 61 67 6d 65 6e 74 73 20 7b 66 FromFragments {f
4c30: 72 61 67 6d 65 6e 74 73 20 63 76 20 62 76 7d 20 ragments cv bv}
4c40: 7b 0a 09 75 70 76 61 72 20 31 20 24 63 76 20 63 {..upvar 1 $cv c
4c50: 6f 75 6e 74 65 72 20 24 62 76 20 62 72 65 61 6b ounter $bv break
4c60: 73 0a 09 55 6e 6d 61 70 49 74 65 6d 73 20 24 6d s..UnmapItems $m
4c70: 79 74 79 70 65 20 24 6d 79 69 74 65 6d 73 0a 0a ytype $myitems..
4c80: 09 23 20 43 72 65 61 74 65 20 63 68 61 6e 67 65 .# Create change
4c90: 73 65 74 73 20 66 6f 72 20 74 68 65 20 66 72 61 sets for the fra
4ca0: 67 6d 65 6e 74 73 2c 20 72 65 75 73 69 6e 67 20 gments, reusing
4cb0: 74 68 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 0a the current one.
4cc0: 09 23 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 .# for the first
4cd0: 20 66 72 61 67 6d 65 6e 74 2e 20 57 65 20 73 6f fragment. We so
4ce0: 72 74 20 74 68 65 6d 20 69 6e 20 6f 72 64 65 72 rt them in order
4cf0: 20 74 6f 20 61 6c 6c 6f 77 0a 09 23 20 63 68 65 to allow..# che
4d00: 63 6b 69 6e 67 20 66 6f 72 20 67 61 70 73 20 61 cking for gaps a
4d10: 6e 64 20 6e 69 63 65 20 6d 65 73 73 61 67 65 73 nd nice messages
4d20: 2e 0a 0a 09 73 65 74 20 6e 65 77 63 73 65 74 73 ....set newcsets
4d30: 20 20 7b 7d 0a 09 73 65 74 20 66 72 61 67 6d 65 {}..set fragme
4d40: 6e 74 73 20 5b 6c 73 6f 72 74 20 2d 69 6e 64 65 nts [lsort -inde
4d50: 78 20 30 20 2d 69 6e 74 65 67 65 72 20 24 66 72 x 0 -integer $fr
4d60: 61 67 6d 65 6e 74 73 5d 0a 0a 09 23 70 75 74 73 agments]...#puts
4d70: 20 5c 74 2e 5b 6a 6f 69 6e 20 5b 50 52 73 20 24 \t.[join [PRs $
4d80: 66 72 61 67 6d 65 6e 74 73 5d 20 2e 5c 6e 5c 74 fragments] .\n\t
4d90: 2e 5d 2e 0a 0a 09 42 6f 72 64 65 72 20 5b 6c 69 .]....Border [li
4da0: 6e 64 65 78 20 24 66 72 61 67 6d 65 6e 74 73 20 ndex $fragments
4db0: 30 5d 20 66 69 72 73 74 73 20 66 69 72 73 74 65 0] firsts firste
4dc0: 0a 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 73 ...integrity ass
4dd0: 65 72 74 20 7b 0a 09 20 20 20 20 24 66 69 72 73 ert {.. $firs
4de0: 74 73 20 3d 3d 20 30 0a 09 7d 20 7b 42 61 64 20 ts == 0..} {Bad
4df0: 66 72 61 67 6d 65 6e 74 20 73 74 61 72 74 20 40 fragment start @
4e00: 20 24 66 69 72 73 74 73 2c 20 67 61 70 2c 20 6f $firsts, gap, o
4e10: 72 20 62 65 66 6f 72 65 20 62 65 67 69 6e 6e 69 r before beginni
4e20: 6e 67 20 6f 66 20 74 68 65 20 72 61 6e 67 65 7d ng of the range}
4e30: 0a 0a 09 73 65 74 20 6c 61 73 74 65 20 24 66 69 ...set laste $fi
4e40: 72 73 74 65 0a 09 66 6f 72 65 61 63 68 20 66 72 rste..foreach fr
4e50: 61 67 6d 65 6e 74 20 5b 6c 72 61 6e 67 65 20 24 agment [lrange $
4e60: 66 72 61 67 6d 65 6e 74 73 20 31 20 65 6e 64 5d fragments 1 end]
4e70: 20 7b 0a 09 20 20 20 20 42 6f 72 64 65 72 20 24 {.. Border $
4e80: 66 72 61 67 6d 65 6e 74 20 73 20 65 0a 09 20 20 fragment s e..
4e90: 20 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 integrity asse
4ea0: 72 74 20 7b 0a 09 09 24 6c 61 73 74 65 20 3d 3d rt {...$laste ==
4eb0: 20 28 24 73 20 2d 20 31 29 0a 09 20 20 20 20 7d ($s - 1).. }
4ec0: 20 7b 42 61 64 20 66 72 61 67 6d 65 6e 74 20 62 {Bad fragment b
4ed0: 6f 72 64 65 72 20 3c 24 6c 61 73 74 65 20 7c 20 order <$laste |
4ee0: 24 73 3e 2c 20 67 61 70 20 6f 72 20 6f 76 65 72 $s>, gap or over
4ef0: 6c 61 70 7d 0a 0a 09 20 20 20 20 73 65 74 20 6e lap}... set n
4f00: 65 77 20 5b 24 74 79 70 65 20 25 41 55 54 4f 25 ew [$type %AUTO%
4f10: 20 24 6d 79 70 72 6f 6a 65 63 74 20 24 6d 79 74 $myproject $myt
4f20: 79 70 65 20 24 6d 79 73 72 63 69 64 20 5b 6c 72 ype $mysrcid [lr
4f30: 61 6e 67 65 20 24 6d 79 69 74 65 6d 73 20 24 73 ange $myitems $s
4f40: 20 24 65 5d 5d 0a 09 20 20 20 20 6c 61 70 70 65 $e]].. lappe
4f50: 6e 64 20 6e 65 77 63 73 65 74 73 20 24 6e 65 77 nd newcsets $new
4f60: 0a 09 20 20 20 20 69 6e 63 72 20 63 6f 75 6e 74 .. incr count
4f70: 65 72 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 er..
4f80: 6c 6f 67 20 77 72 69 74 65 20 34 20 63 73 65 74 log write 4 cset
4f90: 73 20 7b 42 72 65 61 6b 69 6e 67 20 5b 24 73 65 s {Breaking [$se
4fa0: 6c 66 20 73 74 72 20 5d 20 40 20 24 6c 61 73 74 lf str ] @ $last
4fb0: 65 2c 20 6e 65 77 20 5b 24 6e 65 77 20 73 74 72 e, new [$new str
4fc0: 5d 2c 20 63 75 74 74 69 6e 67 20 24 62 72 65 61 ], cutting $brea
4fd0: 6b 73 28 24 6c 61 73 74 65 29 7d 0a 0a 09 20 20 ks($laste)}...
4fe0: 20 20 73 65 74 20 6c 61 73 74 65 20 24 65 0a 09 set laste $e..
4ff0: 7d 0a 0a 09 69 6e 74 65 67 72 69 74 79 20 61 73 }...integrity as
5000: 73 65 72 74 20 7b 0a 09 20 20 20 20 24 6c 61 73 sert {.. $las
5010: 74 65 20 3d 3d 20 28 5b 6c 6c 65 6e 67 74 68 20 te == ([llength
5020: 24 6d 79 69 74 65 6d 73 5d 2d 31 29 0a 09 7d 20 $myitems]-1)..}
5030: 7b 42 61 64 20 66 72 61 67 6d 65 6e 74 20 65 6e {Bad fragment en
5040: 64 20 40 20 24 6c 61 73 74 65 2c 20 67 61 70 2c d @ $laste, gap,
5050: 20 6f 72 20 62 65 79 6f 6e 64 20 65 6e 64 20 6f or beyond end o
5060: 66 20 74 68 65 20 72 61 6e 67 65 7d 0a 0a 09 23 f the range}...#
5070: 20 50 75 74 20 74 68 65 20 66 69 72 73 74 20 66 Put the first f
5080: 72 61 67 6d 65 6e 74 20 69 6e 74 6f 20 74 68 65 ragment into the
5090: 20 63 75 72 72 65 6e 74 20 63 68 61 6e 67 65 73 current changes
50a0: 65 74 2c 20 61 6e 64 0a 09 23 20 75 70 64 61 74 et, and..# updat
50b0: 65 20 74 68 65 20 69 6e 2d 6d 65 6d 6f 72 79 20 e the in-memory
50c0: 69 6e 64 65 78 2e 20 57 65 20 63 61 6e 20 73 69 index. We can si
50d0: 6d 70 6c 79 20 28 72 65 29 61 64 64 20 74 68 65 mply (re)add the
50e0: 20 69 74 65 6d 73 0a 09 23 20 62 65 63 61 75 73 items..# becaus
50f0: 65 20 77 65 20 63 6c 65 61 72 65 64 20 74 68 65 e we cleared the
5100: 20 70 72 65 76 69 6f 75 73 6c 79 20 65 78 69 73 previously exis
5110: 74 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ting information
5120: 2c 20 73 65 65 0a 09 23 20 27 55 6e 6d 61 70 49 , see..# 'UnmapI
5130: 74 65 6d 73 27 20 61 62 6f 76 65 2e 20 50 65 72 tems' above. Per
5140: 73 69 73 74 65 6e 63 65 20 64 6f 65 73 20 6e 6f sistence does no
5150: 74 20 6d 61 74 74 65 72 20 68 65 72 65 2c 20 6e t matter here, n
5160: 6f 6e 65 0a 09 23 20 6f 66 20 74 68 65 20 63 68 one..# of the ch
5170: 61 6e 67 65 73 65 74 73 20 68 61 73 20 62 65 65 angesets has bee
5180: 6e 20 73 61 76 65 64 20 74 6f 20 74 68 65 20 70 n saved to the p
5190: 65 72 73 69 73 74 65 6e 74 20 73 74 61 74 65 0a ersistent state.
51a0: 09 23 20 79 65 74 2e 0a 0a 09 73 65 74 20 6d 79 .# yet....set my
51b0: 69 74 65 6d 73 20 20 5b 6c 72 61 6e 67 65 20 24 items [lrange $
51c0: 6d 79 69 74 65 6d 73 20 20 30 20 24 66 69 72 73 myitems 0 $firs
51d0: 74 65 5d 0a 09 73 65 74 20 6d 79 74 69 74 65 6d te]..set mytitem
51e0: 73 20 5b 6c 72 61 6e 67 65 20 24 6d 79 74 69 74 s [lrange $mytit
51f0: 65 6d 73 20 30 20 24 66 69 72 73 74 65 5d 0a 09 ems 0 $firste]..
5200: 4d 61 70 49 74 65 6d 73 20 24 6d 79 74 79 70 65 MapItems $mytype
5210: 20 24 6d 79 69 74 65 6d 73 0a 09 72 65 74 75 72 $myitems..retur
5220: 6e 20 24 6e 65 77 63 73 65 74 73 0a 20 20 20 20 n $newcsets.
5230: 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 }.. # # ## ##
5240: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
5250: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a #############..
5260: 20 20 20 20 70 72 6f 63 20 42 72 65 61 6b 44 69 proc BreakDi
5270: 72 65 63 74 44 65 70 65 6e 64 65 6e 63 69 65 73 rectDependencies
5280: 20 7b 74 68 65 69 74 65 6d 73 20 62 76 7d 20 7b {theitems bv} {
5290: 0a 09 75 70 76 61 72 20 31 20 6d 79 74 79 70 65 ..upvar 1 mytype
52a0: 6f 62 6a 20 6d 79 74 79 70 65 6f 62 6a 20 73 65 obj mytypeobj se
52b0: 6c 66 20 73 65 6c 66 20 24 62 76 20 62 72 65 61 lf self $bv brea
52c0: 6b 73 0a 0a 09 23 20 41 72 72 61 79 20 6f 66 20 ks...# Array of
52d0: 64 65 70 65 6e 64 65 6e 63 69 65 73 20 28 70 61 dependencies (pa
52e0: 72 65 6e 74 20 2d 3e 20 63 68 69 6c 64 29 2e 20 rent -> child).
52f0: 54 68 69 73 20 69 73 20 70 75 6c 6c 65 64 20 66 This is pulled f
5300: 72 6f 6d 0a 09 23 20 74 68 65 20 73 74 61 74 65 rom..# the state
5310: 2c 20 61 6e 64 20 6c 69 6d 69 74 65 64 20 74 6f , and limited to
5320: 20 73 75 63 63 65 73 73 6f 72 73 20 77 69 74 68 successors with
5330: 69 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 in the changeset
5340: 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 64 65 ....array set de
5350: 70 65 6e 64 65 6e 63 69 65 73 20 7b 7d 0a 0a 09 pendencies {}...
5360: 24 6d 79 74 79 70 65 6f 62 6a 20 69 6e 74 65 72 $mytypeobj inter
5370: 6e 61 6c 73 75 63 63 65 73 73 6f 72 73 20 64 65 nalsuccessors de
5380: 70 65 6e 64 65 6e 63 69 65 73 20 24 74 68 65 69 pendencies $thei
5390: 74 65 6d 73 0a 09 69 66 20 7b 21 5b 61 72 72 61 tems..if {![arra
53a0: 79 20 73 69 7a 65 20 64 65 70 65 6e 64 65 6e 63 y size dependenc
53b0: 69 65 73 5d 7d 20 7b 0a 09 20 20 20 20 72 65 74 ies]} {.. ret
53c0: 75 72 6e 20 7b 7d 0a 09 7d 20 3b 20 23 20 4e 6f urn {}..} ; # No
53d0: 74 68 69 6e 67 20 74 6f 20 62 72 65 61 6b 2e 0a thing to break..
53e0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 35 20 63 73 ..log write 5 cs
53f0: 65 74 73 20 2e 2e 2e 5b 24 73 65 6c 66 20 73 74 ets ...[$self st
5400: 72 5d 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e r]..............
5410: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
5420: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ................
5430: 2e 2e 2e 2e 2e 2e 2e 2e 2e 0a 09 76 63 3a 3a 74 ...........vc::t
5440: 6f 6f 6c 73 3a 3a 6d 65 6d 3a 3a 6d 61 72 6b 0a ools::mem::mark.
5450: 0a 09 72 65 74 75 72 6e 20 5b 42 72 65 61 6b 65 ..return [Breake
5460: 72 43 6f 72 65 20 24 74 68 65 69 74 65 6d 73 20 rCore $theitems
5470: 64 65 70 65 6e 64 65 6e 63 69 65 73 20 62 72 65 dependencies bre
5480: 61 6b 73 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 aks]. }..
5490: 70 72 6f 63 20 42 72 65 61 6b 65 72 43 6f 72 65 proc BreakerCore
54a0: 20 7b 74 68 65 69 74 65 6d 73 20 64 76 20 62 76 {theitems dv bv
54b0: 7d 20 7b 0a 09 23 20 42 72 65 61 6b 20 61 20 73 } {..# Break a s
54c0: 65 74 20 6f 66 20 72 65 76 69 73 69 6f 6e 73 20 et of revisions
54d0: 69 6e 74 6f 20 66 72 61 67 6d 65 6e 74 73 20 77 into fragments w
54e0: 68 69 63 68 20 68 61 76 65 20 6e 6f 0a 09 23 20 hich have no..#
54f0: 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 internal depende
5500: 6e 63 69 65 73 2e 0a 0a 09 23 20 57 65 20 70 65 ncies....# We pe
5510: 72 66 6f 72 6d 20 61 6c 6c 20 6e 65 63 65 73 73 rform all necess
5520: 61 72 79 20 73 70 6c 69 74 73 20 69 6e 20 6f 6e ary splits in on
5530: 65 20 67 6f 2c 20 69 6e 73 74 65 61 64 20 6f 66 e go, instead of
5540: 20 6f 6e 6c 79 0a 09 23 20 6f 6e 65 2e 20 54 68 only..# one. Th
5550: 65 20 70 72 65 76 69 6f 75 73 20 61 6c 67 6f 72 e previous algor
5560: 69 74 68 6d 2c 20 61 64 61 70 74 65 64 20 66 72 ithm, adapted fr
5570: 6f 6d 20 63 76 73 32 73 76 6e 2c 20 63 6f 6d 70 om cvs2svn, comp
5580: 75 74 65 64 0a 09 23 20 61 20 6c 6f 74 20 6f 66 uted..# a lot of
5590: 20 73 74 61 74 65 20 77 68 69 63 68 20 77 61 73 state which was
55a0: 20 74 68 72 6f 77 6e 20 61 77 61 79 20 61 6e 64 thrown away and
55b0: 20 74 68 65 6e 20 63 6f 6d 70 75 74 65 64 20 61 then computed a
55c0: 67 61 69 6e 0a 09 23 20 66 6f 72 20 65 61 63 68 gain..# for each
55d0: 20 6f 66 20 74 68 65 20 66 72 61 67 6d 65 6e 74 of the fragment
55e0: 73 2e 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 s. It should be
55f0: 65 61 73 69 65 72 20 74 6f 20 75 70 64 61 74 65 easier to update
5600: 20 61 6e 64 0a 09 23 20 72 65 75 73 65 20 74 68 and..# reuse th
5610: 61 74 20 73 74 61 74 65 2e 0a 0a 09 75 70 76 61 at state....upva
5620: 72 20 31 20 24 64 76 20 64 65 70 65 6e 64 65 6e r 1 $dv dependen
5630: 63 69 65 73 20 24 62 76 20 62 72 65 61 6b 73 0a cies $bv breaks.
5640: 0a 09 23 20 57 65 20 68 61 76 65 20 69 6e 74 65 ..# We have inte
5650: 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 rnal dependencie
5660: 73 20 74 6f 20 62 72 65 61 6b 2e 20 57 65 20 6e s to break. We n
5670: 6f 77 20 69 74 65 72 61 74 65 20 6f 76 65 72 0a ow iterate over.
5680: 09 23 20 61 6c 6c 20 70 6f 73 69 74 69 6f 6e 73 .# all positions
5690: 20 69 6e 20 74 68 65 20 6c 69 73 74 20 28 77 68 in the list (wh
56a0: 69 63 68 20 69 73 20 63 68 72 6f 6e 6f 6c 6f 67 ich is chronolog
56b0: 69 63 61 6c 2c 20 61 74 20 6c 65 61 73 74 0a 09 ical, at least..
56c0: 23 20 61 73 20 66 61 72 20 61 73 20 74 68 65 20 # as far as the
56d0: 74 69 6d 65 73 74 61 6d 70 73 20 61 72 65 20 63 timestamps are c
56e0: 6f 72 72 65 63 74 20 61 6e 64 20 75 6e 69 71 75 orrect and uniqu
56f0: 65 29 20 61 6e 64 0a 09 23 20 64 65 74 65 72 6d e) and..# determ
5700: 69 6e 65 20 74 68 65 20 62 65 73 74 20 70 6f 73 ine the best pos
5710: 69 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 62 72 ition for the br
5720: 65 61 6b 2c 20 62 79 20 74 72 79 69 6e 67 20 74 eak, by trying t
5730: 6f 0a 09 23 20 62 72 65 61 6b 20 61 73 20 6d 61 o..# break as ma
5740: 6e 79 20 64 65 70 65 6e 64 65 6e 63 69 65 73 20 ny dependencies
5750: 61 73 20 70 6f 73 73 69 62 6c 65 20 69 6e 20 6f as possible in o
5760: 6e 65 20 67 6f 2e 20 57 68 65 6e 20 61 0a 09 23 ne go. When a..#
5770: 20 62 72 65 61 6b 20 77 61 73 20 66 6f 75 6e 64 break was found
5780: 20 74 68 69 73 20 69 73 20 72 65 64 6f 6e 65 20 this is redone
5790: 66 6f 72 20 74 68 65 20 66 72 61 67 6d 65 6e 74 for the fragment
57a0: 73 20 63 6f 6d 69 6e 67 20 61 6e 64 0a 09 23 20 s coming and..#
57b0: 61 66 74 65 72 2c 20 61 66 74 65 72 20 75 70 64 after, after upd
57c0: 69 6e 67 20 74 68 65 20 63 72 6f 73 73 69 6e 67 ing the crossing
57d0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 09 information....
57e0: 23 20 44 61 74 61 20 73 74 72 75 63 74 75 72 65 # Data structure
57f0: 73 3a 0a 09 23 20 4d 61 70 3a 20 20 50 4f 53 20 s:..# Map: POS
5800: 20 20 72 65 76 69 73 69 6f 6e 20 69 64 20 20 20 revision id
5810: 20 20 20 2d 3e 20 70 6f 73 69 74 69 6f 6e 20 69 -> position i
5820: 6e 20 6c 69 73 74 2e 0a 09 23 20 20 20 20 20 20 n list...#
5830: 20 43 52 4f 53 53 20 70 6f 73 69 74 69 6f 6e 20 CROSS position
5840: 69 6e 20 6c 69 73 74 20 2d 3e 20 6e 75 6d 62 65 in list -> numbe
5850: 72 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 65 r of dependencie
5860: 73 20 63 72 6f 73 73 69 6e 67 20 69 74 0a 09 23 s crossing it..#
5870: 20 20 20 20 20 20 20 44 45 50 43 20 20 64 65 70 DEPC dep
5880: 65 6e 64 65 6e 63 79 20 20 20 20 20 20 20 2d 3e endency ->
5890: 20 70 6f 73 69 74 69 6f 6e 73 20 69 74 20 63 72 positions it cr
58a0: 6f 73 73 65 73 0a 09 23 20 4c 69 73 74 3a 20 52 osses..# List: R
58b0: 41 4e 47 45 20 4f 66 20 74 68 65 20 70 6f 73 69 ANGE Of the posi
58c0: 74 69 6f 6e 73 20 69 74 73 65 6c 66 2e 0a 09 23 tions itself...#
58d0: 20 4d 61 70 3a 20 20 44 45 4c 54 41 20 70 6f 73 Map: DELTA pos
58e0: 69 74 69 6f 6e 20 69 6e 20 6c 69 73 74 20 2d 3e ition in list ->
58f0: 20 74 69 6d 65 20 64 65 6c 74 61 20 62 65 74 77 time delta betw
5900: 65 65 6e 20 69 74 73 20 72 65 76 69 73 69 6f 6e een its revision
5910: 0a 09 23 20 20 20 20 20 20 20 20 20 20 20 20 20 ..#
5920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5930: 20 20 20 20 61 6e 64 20 74 68 65 20 6e 65 78 74 and the next
5940: 2c 20 69 66 20 61 6e 79 2e 0a 09 23 20 41 20 64 , if any...# A d
5950: 65 70 65 6e 64 65 6e 63 79 20 69 73 20 61 20 73 ependency is a s
5960: 69 6e 67 6c 65 2d 65 6c 65 6d 65 6e 74 20 6d 61 ingle-element ma
5970: 70 20 70 61 72 65 6e 74 20 2d 3e 20 63 68 69 6c p parent -> chil
5980: 64 0a 0a 09 23 20 49 6e 69 74 69 61 6c 69 7a 65 d...# Initialize
5990: 42 72 65 61 6b 53 74 61 74 65 20 69 6e 69 74 69 BreakState initi
59a0: 61 6c 69 7a 65 73 20 74 68 65 69 72 20 63 6f 6e alizes their con
59b0: 74 65 6e 74 73 20 61 66 74 65 72 0a 09 23 20 75 tents after..# u
59c0: 70 76 61 72 27 69 6e 67 20 74 68 65 6d 20 66 72 pvar'ing them fr
59d0: 6f 6d 20 74 68 69 73 20 73 63 6f 70 65 2e 20 49 om this scope. I
59e0: 74 20 75 73 65 73 20 74 68 65 20 69 6e 66 6f 72 t uses the infor
59f0: 6d 61 74 69 6f 6e 20 69 6e 0a 09 23 20 44 45 50 mation in..# DEP
5a00: 45 4e 44 45 4e 43 49 45 53 20 74 6f 20 64 6f 20 ENDENCIES to do
5a10: 73 6f 2e 0a 0a 09 49 6e 69 74 69 61 6c 69 7a 65 so....Initialize
5a20: 42 72 65 61 6b 53 74 61 74 65 20 24 74 68 65 69 BreakState $thei
5a30: 74 65 6d 73 0a 0a 09 73 65 74 20 66 72 61 67 6d tems...set fragm
5a40: 65 6e 74 73 20 7b 7d 0a 09 73 65 74 20 6e 65 77 ents {}..set new
5a50: 20 20 20 20 20 20 20 5b 6c 69 73 74 20 24 72 61 [list $ra
5a60: 6e 67 65 5d 0a 0a 09 23 20 49 6e 73 74 65 61 64 nge]...# Instead
5a70: 20 6f 66 20 6f 6e 65 20 6c 69 73 74 20 68 6f 6c of one list hol
5a80: 64 69 6e 67 20 62 6f 74 68 20 70 72 6f 63 65 73 ding both proces
5a90: 73 65 64 20 61 6e 64 20 70 65 6e 64 69 6e 67 0a sed and pending.
5aa0: 09 23 20 66 72 61 67 6d 65 6e 74 73 20 77 65 20 .# fragments we
5ab0: 75 73 65 20 74 77 6f 2c 20 6f 6e 65 20 66 6f 72 use two, one for
5ac0: 20 74 68 65 20 66 72 61 6d 65 6e 74 73 20 74 6f the framents to
5ad0: 20 70 72 6f 63 65 73 73 2c 20 6f 6e 65 0a 09 23 process, one..#
5ae0: 20 74 6f 20 68 6f 6c 64 20 74 68 65 20 6e 65 77 to hold the new
5af0: 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 6e 64 20 fragments, and
5b00: 74 68 65 20 6c 61 74 74 65 72 20 69 73 20 63 6f the latter is co
5b10: 70 69 65 64 20 74 6f 20 74 68 65 0a 09 23 20 66 pied to the..# f
5b20: 6f 72 6d 65 72 20 77 68 65 6e 20 74 68 65 79 20 ormer when they
5b30: 72 75 6e 20 6f 75 74 2e 20 54 68 69 73 20 6b 65 run out. This ke
5b40: 65 70 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 eps the list of
5b50: 70 65 6e 64 69 6e 67 0a 09 23 20 66 72 61 67 6d pending..# fragm
5b60: 65 6e 74 73 20 73 68 6f 72 74 20 77 69 74 68 6f ents short witho
5b70: 75 74 20 73 61 63 72 69 66 69 63 69 6e 67 20 73 ut sacrificing s
5b80: 70 65 65 64 20 62 79 20 73 68 69 66 74 69 6e 67 peed by shifting
5b90: 20 73 74 75 66 66 0a 09 23 20 64 6f 77 6e 2e 20 stuff..# down.
5ba0: 57 65 20 65 73 70 65 63 69 61 6c 6c 79 20 64 72 We especially dr
5bb0: 6f 70 20 74 68 65 20 6d 65 6d 6f 72 79 20 6f 66 op the memory of
5bc0: 20 66 72 61 67 6d 65 6e 74 73 20 62 72 6f 6b 65 fragments broke
5bd0: 6e 0a 09 23 20 64 75 72 69 6e 67 20 70 72 6f 63 n..# during proc
5be0: 65 73 73 69 6e 67 20 61 66 74 65 72 20 61 20 73 essing after a s
5bf0: 68 6f 72 74 20 74 69 6d 65 2c 20 69 6e 73 74 65 hort time, inste
5c00: 61 64 20 6f 66 20 6c 65 74 74 69 6e 67 20 69 74 ad of letting it
5c10: 0a 09 23 20 63 6f 6e 73 75 6d 65 20 6d 65 6d 6f ..# consume memo
5c20: 72 79 2e 0a 0a 09 77 68 69 6c 65 20 7b 5b 6c 6c ry....while {[ll
5c30: 65 6e 67 74 68 20 24 6e 65 77 5d 7d 20 7b 0a 0a ength $new]} {..
5c40: 09 20 20 20 20 73 65 74 20 70 65 6e 64 69 6e 67 . set pending
5c50: 20 24 6e 65 77 0a 09 20 20 20 20 73 65 74 20 6e $new.. set n
5c60: 65 77 20 20 20 20 20 7b 7d 0a 09 20 20 20 20 73 ew {}.. s
5c70: 65 74 20 61 74 20 20 20 20 20 20 30 0a 0a 09 20 et at 0...
5c80: 20 20 20 77 68 69 6c 65 20 7b 24 61 74 20 3c 20 while {$at <
5c90: 5b 6c 6c 65 6e 67 74 68 20 24 70 65 6e 64 69 6e [llength $pendin
5ca0: 67 5d 7d 20 7b 0a 09 09 73 65 74 20 63 75 72 72 g]} {...set curr
5cb0: 65 6e 74 20 5b 6c 69 6e 64 65 78 20 24 70 65 6e ent [lindex $pen
5cc0: 64 69 6e 67 20 24 61 74 5d 0a 0a 09 09 6c 6f 67 ding $at]....log
5cd0: 20 77 72 69 74 65 20 36 20 63 73 65 74 73 20 7b write 6 csets {
5ce0: 2e 20 2e 20 2e 2e 20 2e 2e 2e 20 2e 2e 2e 2e 2e . . .. ... .....
5cf0: 20 2e 2e 2e 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e ........ ......
5d00: 2e 2e 2e 2e 2e 2e 2e 7d 0a 09 09 6c 6f 67 20 77 .......}...log w
5d10: 72 69 74 65 20 36 20 63 73 65 74 73 20 7b 53 63 rite 6 csets {Sc
5d20: 68 65 64 75 6c 65 64 20 20 20 5b 6a 6f 69 6e 20 heduled [join
5d30: 5b 50 52 73 20 5b 6c 72 61 6e 67 65 20 24 70 65 [PRs [lrange $pe
5d40: 6e 64 69 6e 67 20 24 61 74 20 65 6e 64 5d 5d 20 nding $at end]]
5d50: 7b 20 7d 5d 7d 0a 09 09 6c 6f 67 20 77 72 69 74 { }]}...log writ
5d60: 65 20 36 20 63 73 65 74 73 20 7b 43 6f 6e 73 69 e 6 csets {Consi
5d70: 64 65 72 69 6e 67 20 5b 50 52 20 24 63 75 72 72 dering [PR $curr
5d80: 65 6e 74 5d 20 5c 5b 24 61 74 2f 5b 6c 6c 65 6e ent] \[$at/[llen
5d90: 67 74 68 20 24 70 65 6e 64 69 6e 67 5d 5c 5d 7d gth $pending]\]}
5da0: 0a 0a 09 09 73 65 74 20 62 65 73 74 20 5b 46 69 ....set best [Fi
5db0: 6e 64 42 65 73 74 42 72 65 61 6b 20 24 63 75 72 ndBestBreak $cur
5dc0: 72 65 6e 74 5d 0a 0a 09 09 69 66 20 7b 24 62 65 rent]....if {$be
5dd0: 73 74 20 3c 20 30 7d 20 7b 0a 09 09 20 20 20 20 st < 0} {...
5de0: 23 20 54 68 65 20 69 6e 73 70 65 63 74 65 64 20 # The inspected
5df0: 72 61 6e 67 65 20 68 61 73 20 6e 6f 20 69 6e 74 range has no int
5e00: 65 72 6e 61 6c 0a 09 09 20 20 20 20 23 20 64 65 ernal... # de
5e10: 70 65 6e 64 65 6e 63 69 65 73 2e 20 54 68 69 73 pendencies. This
5e20: 20 69 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 66 is a complete f
5e30: 72 61 67 6d 65 6e 74 2e 0a 09 09 20 20 20 20 6c ragment.... l
5e40: 61 70 70 65 6e 64 20 66 72 61 67 6d 65 6e 74 73 append fragments
5e50: 20 24 63 75 72 72 65 6e 74 0a 0a 09 09 20 20 20 $current....
5e60: 20 6c 6f 67 20 77 72 69 74 65 20 36 20 63 73 65 log write 6 cse
5e70: 74 73 20 22 4e 6f 20 62 72 65 61 6b 73 2c 20 66 ts "No breaks, f
5e80: 69 6e 61 6c 22 0a 09 09 7d 20 65 6c 73 65 20 7b inal"...} else {
5e90: 0a 09 09 20 20 20 20 23 20 53 70 6c 69 74 20 74 ... # Split t
5ea0: 68 65 20 72 61 6e 67 65 20 61 6e 64 20 73 63 68 he range and sch
5eb0: 65 64 75 6c 65 20 74 68 65 20 72 65 73 75 6c 74 edule the result
5ec0: 69 6e 67 0a 09 09 20 20 20 20 23 20 66 72 61 67 ing... # frag
5ed0: 6d 65 6e 74 73 20 66 6f 72 20 66 75 72 74 68 65 ments for furthe
5ee0: 72 20 69 6e 73 70 65 63 74 69 6f 6e 2e 20 52 65 r inspection. Re
5ef0: 6d 65 6d 62 65 72 20 74 68 65 0a 09 09 20 20 20 member the...
5f00: 20 23 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 70 # number of dep
5f10: 65 6e 64 65 6e 63 69 65 73 20 63 75 74 20 62 65 endencies cut be
5f20: 66 6f 72 65 20 77 65 20 72 65 6d 6f 76 65 20 74 fore we remove t
5f30: 68 65 6d 0a 09 09 20 20 20 20 23 20 66 72 6f 6d hem... # from
5f40: 20 63 6f 6e 73 69 64 65 72 61 74 69 6f 6e 2c 20 consideration,
5f50: 66 6f 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f for documentatio
5f60: 6e 20 6c 61 74 65 72 2e 0a 0a 09 09 20 20 20 20 n later.....
5f70: 73 65 74 20 62 72 65 61 6b 73 28 24 62 65 73 74 set breaks($best
5f80: 29 20 24 63 72 6f 73 73 28 24 62 65 73 74 29 0a ) $cross($best).
5f90: 0a 09 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 ... log write
5fa0: 20 36 20 63 73 65 74 73 20 22 42 65 73 74 20 62 6 csets "Best b
5fb0: 72 65 61 6b 20 40 20 24 62 65 73 74 2c 20 63 75 reak @ $best, cu
5fc0: 74 74 69 6e 67 20 5b 6e 73 70 20 24 63 72 6f 73 tting [nsp $cros
5fd0: 73 28 24 62 65 73 74 29 20 64 65 70 65 6e 64 65 s($best) depende
5fe0: 6e 63 79 20 64 65 70 65 6e 64 65 6e 63 69 65 73 ncy dependencies
5ff0: 5d 22 0a 0a 09 09 20 20 20 20 23 20 4e 6f 74 65 ]".... # Note
6000: 3a 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 62 : The value of b
6010: 65 73 74 20 69 73 20 61 6e 20 61 62 6f 6c 75 74 est is an abolut
6020: 65 20 6c 6f 63 61 74 69 6f 6e 0a 09 09 20 20 20 e location...
6030: 20 23 20 69 6e 20 6d 79 69 74 65 6d 73 2e 20 55 # in myitems. U
6040: 73 65 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 se the start of
6050: 63 75 72 72 65 6e 74 20 74 6f 20 6d 61 6b 65 20 current to make
6060: 69 74 0a 09 09 20 20 20 20 23 20 61 6e 20 69 6e it... # an in
6070: 64 65 78 20 61 62 73 6f 6c 75 74 65 20 74 6f 20 dex absolute to
6080: 63 75 72 72 65 6e 74 2e 0a 0a 09 09 20 20 20 20 current.....
6090: 73 65 74 20 62 72 65 6c 20 5b 65 78 70 72 20 7b set brel [expr {
60a0: 24 62 65 73 74 20 2d 20 5b 6c 69 6e 64 65 78 20 $best - [lindex
60b0: 24 63 75 72 72 65 6e 74 20 30 5d 7d 5d 0a 09 09 $current 0]}]...
60c0: 20 20 20 20 73 65 74 20 62 6e 65 78 74 20 24 62 set bnext $b
60d0: 72 65 6c 20 3b 20 69 6e 63 72 20 62 6e 65 78 74 rel ; incr bnext
60e0: 0a 09 09 20 20 20 20 73 65 74 20 66 72 61 67 62 ... set fragb
60f0: 65 66 6f 72 65 20 5b 6c 72 61 6e 67 65 20 24 63 efore [lrange $c
6100: 75 72 72 65 6e 74 20 30 20 24 62 72 65 6c 5d 0a urrent 0 $brel].
6110: 09 09 20 20 20 20 73 65 74 20 66 72 61 67 61 66 .. set fragaf
6120: 74 65 72 20 20 5b 6c 72 61 6e 67 65 20 24 63 75 ter [lrange $cu
6130: 72 72 65 6e 74 20 24 62 6e 65 78 74 20 65 6e 64 rrent $bnext end
6140: 5d 0a 0a 09 09 20 20 20 20 6c 6f 67 20 77 72 69 ].... log wri
6150: 74 65 20 36 20 63 73 65 74 73 20 22 4e 65 77 20 te 6 csets "New
6160: 70 69 65 63 65 73 20 20 5b 50 52 20 24 66 72 61 pieces [PR $fra
6170: 67 62 65 66 6f 72 65 5d 20 5b 50 52 20 24 66 72 gbefore] [PR $fr
6180: 61 67 61 66 74 65 72 5d 22 0a 0a 09 09 20 20 20 agafter]"....
6190: 20 69 6e 74 65 67 72 69 74 79 20 61 73 73 65 72 integrity asser
61a0: 74 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 66 72 61 t {[llength $fra
61b0: 67 62 65 66 6f 72 65 5d 7d 20 7b 46 6f 75 6e 64 gbefore]} {Found
61c0: 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 66 72 61 zero-length fra
61d0: 67 6d 65 6e 74 20 61 74 20 74 68 65 20 62 65 67 gment at the beg
61e0: 69 6e 6e 69 6e 67 7d 0a 09 09 20 20 20 20 69 6e inning}... in
61f0: 74 65 67 72 69 74 79 20 61 73 73 65 72 74 20 7b tegrity assert {
6200: 5b 6c 6c 65 6e 67 74 68 20 24 66 72 61 67 61 66 [llength $fragaf
6210: 74 65 72 5d 7d 20 20 7b 46 6f 75 6e 64 20 7a 65 ter]} {Found ze
6220: 72 6f 2d 6c 65 6e 67 74 68 20 66 72 61 67 6d 65 ro-length fragme
6230: 6e 74 20 61 74 20 74 68 65 20 65 6e 64 7d 0a 0a nt at the end}..
6240: 09 09 20 20 20 20 6c 61 70 70 65 6e 64 20 6e 65 .. lappend ne
6250: 77 20 24 66 72 61 67 62 65 66 6f 72 65 20 24 66 w $fragbefore $f
6260: 72 61 67 61 66 74 65 72 0a 09 09 20 20 20 20 43 ragafter... C
6270: 75 74 41 74 20 24 62 65 73 74 0a 09 09 7d 0a 0a utAt $best...}..
6280: 09 09 69 6e 63 72 20 61 74 0a 09 20 20 20 20 7d ..incr at.. }
6290: 0a 09 7d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 ..}...log write
62a0: 36 20 63 73 65 74 73 20 22 2e 20 2e 20 2e 2e 20 6 csets ". . ..
62b0: 2e 2e 2e 20 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e ... ..... ......
62c0: 2e 2e 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e .. .............
62d0: 22 0a 0a 09 72 65 74 75 72 6e 20 24 66 72 61 67 "...return $frag
62e0: 6d 65 6e 74 73 0a 20 20 20 20 7d 0a 0a 20 20 20 ments. }..
62f0: 20 70 72 6f 63 20 49 6e 69 74 69 61 6c 69 7a 65 proc Initialize
6300: 42 72 65 61 6b 53 74 61 74 65 20 7b 72 65 76 69 BreakState {revi
6310: 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 sions} {..upvar
6320: 31 20 70 6f 73 20 70 6f 73 20 63 72 6f 73 73 20 1 pos pos cross
6330: 63 72 6f 73 73 20 72 61 6e 67 65 20 72 61 6e 67 cross range rang
6340: 65 20 64 65 70 63 20 64 65 70 63 20 64 65 6c 74 e depc depc delt
6350: 61 20 64 65 6c 74 61 20 5c 0a 09 20 20 20 20 64 a delta \.. d
6360: 65 70 65 6e 64 65 6e 63 69 65 73 20 64 65 70 65 ependencies depe
6370: 6e 64 65 6e 63 69 65 73 0a 0a 09 23 20 46 69 72 ndencies...# Fir
6380: 73 74 20 77 65 20 63 72 65 61 74 65 20 61 20 6d st we create a m
6390: 61 70 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 20 ap of positions
63a0: 74 6f 20 6d 61 6b 65 20 69 74 20 65 61 73 69 65 to make it easie
63b0: 72 20 74 6f 0a 09 23 20 64 65 74 65 72 6d 69 6e r to..# determin
63c0: 65 20 77 68 65 74 68 65 72 20 61 20 64 65 70 65 e whether a depe
63d0: 6e 64 65 6e 63 79 20 63 72 6f 73 73 65 73 20 61 ndency crosses a
63e0: 20 70 61 72 74 69 63 75 6c 61 72 20 69 6e 64 65 particular inde
63f0: 78 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 x....log write 1
6400: 34 20 63 73 65 74 73 20 7b 49 42 53 3a 20 23 72 4 csets {IBS: #r
6410: 65 76 20 5b 6c 6c 65 6e 67 74 68 20 24 72 65 76 ev [llength $rev
6420: 69 73 69 6f 6e 73 5d 7d 0a 09 6c 6f 67 20 77 72 isions]}..log wr
6430: 69 74 65 20 31 34 20 63 73 65 74 73 20 7b 49 42 ite 14 csets {IB
6440: 53 3a 20 70 6f 73 20 6d 61 70 2c 20 63 72 6f 73 S: pos map, cros
6450: 73 20 63 6f 75 6e 74 65 72 7d 0a 0a 09 61 72 72 s counter}...arr
6460: 61 79 20 73 65 74 20 70 6f 73 20 20 20 7b 7d 0a ay set pos {}.
6470: 09 61 72 72 61 79 20 73 65 74 20 63 72 6f 73 73 .array set cross
6480: 20 7b 7d 0a 09 61 72 72 61 79 20 73 65 74 20 64 {}..array set d
6490: 65 70 63 20 20 7b 7d 0a 09 73 65 74 20 72 61 6e epc {}..set ran
64a0: 67 65 20 20 20 20 20 20 20 7b 7d 0a 09 73 65 74 ge {}..set
64b0: 20 6e 20 30 0a 09 66 6f 72 65 61 63 68 20 72 65 n 0..foreach re
64c0: 76 20 24 72 65 76 69 73 69 6f 6e 73 20 7b 0a 09 v $revisions {..
64d0: 20 20 20 20 6c 61 70 70 65 6e 64 20 72 61 6e 67 lappend rang
64e0: 65 20 24 6e 0a 09 20 20 20 20 73 65 74 20 70 6f e $n.. set po
64f0: 73 28 24 72 65 76 29 20 24 6e 0a 09 20 20 20 20 s($rev) $n..
6500: 73 65 74 20 63 72 6f 73 73 28 24 6e 29 20 30 0a set cross($n) 0.
6510: 09 20 20 20 20 69 6e 63 72 20 6e 0a 09 7d 0a 0a . incr n..}..
6520: 09 6c 6f 67 20 77 72 69 74 65 20 31 34 20 63 73 .log write 14 cs
6530: 65 74 73 20 7b 49 42 53 3a 20 70 6f 73 2f 5b 61 ets {IBS: pos/[a
6540: 72 72 61 79 20 73 69 7a 65 20 70 6f 73 5d 2c 20 rray size pos],
6550: 63 72 6f 73 73 2f 5b 61 72 72 61 79 20 73 69 7a cross/[array siz
6560: 65 20 63 72 6f 73 73 5d 7d 0a 0a 09 23 20 53 65 e cross]}...# Se
6570: 63 6f 6e 64 6c 79 20 77 65 20 63 6f 75 6e 74 20 condly we count
6580: 74 68 65 20 63 72 6f 73 73 69 6e 67 73 20 70 65 the crossings pe
6590: 72 20 70 6f 73 69 74 69 6f 6e 2c 20 62 79 20 69 r position, by i
65a0: 74 65 72 61 74 69 6e 67 0a 09 23 20 6f 76 65 72 terating..# over
65b0: 20 74 68 65 20 72 65 63 6f 72 64 65 64 20 69 6e the recorded in
65c0: 74 65 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 ternal dependenc
65d0: 69 65 73 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 ies....# Note: I
65e0: 66 20 74 68 65 20 74 69 6d 65 73 74 61 6d 70 73 f the timestamps
65f0: 20 61 72 65 20 62 61 64 6c 79 20 6f 75 74 20 6f are badly out o
6600: 66 20 6f 72 64 65 72 20 69 74 20 69 73 0a 09 23 f order it is..#
6610: 20 20 20 20 20 20 20 70 6f 73 73 69 62 6c 65 20 possible
6620: 74 6f 20 68 61 76 65 20 61 20 62 61 63 6b 77 61 to have a backwa
6630: 72 64 20 73 75 63 63 65 73 73 6f 72 20 64 65 70 rd successor dep
6640: 65 6e 64 65 6e 63 79 2c 0a 09 23 20 20 20 20 20 endency,..#
6650: 20 20 69 2e 65 2e 20 77 69 74 68 20 73 74 61 72 i.e. with star
6660: 74 20 3e 20 65 6e 64 2e 20 57 65 20 6d 61 79 20 t > end. We may
6670: 68 61 76 65 20 74 6f 20 73 77 61 70 20 74 68 65 have to swap the
6680: 20 69 6e 64 69 63 65 73 0a 09 23 20 20 20 20 20 indices..#
6690: 20 20 74 6f 20 65 6e 73 75 72 65 20 74 68 61 74 to ensure that
66a0: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c the following l
66b0: 6f 6f 70 20 72 75 6e 73 20 63 6f 72 72 65 63 74 oop runs correct
66c0: 6c 79 2e 0a 09 23 0a 09 23 20 4e 6f 74 65 20 32 ly...#..# Note 2
66d0: 3a 20 73 74 61 72 74 20 3d 3d 20 65 6e 64 20 69 : start == end i
66e0: 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 2e 20 s not possible.
66f0: 49 74 20 69 6e 64 69 63 61 74 65 73 20 61 0a 09 It indicates a..
6700: 23 20 20 20 20 20 20 20 20 20 73 65 6c 66 2d 64 # self-d
6710: 65 70 65 6e 64 65 6e 63 79 20 64 75 65 20 74 6f ependency due to
6720: 20 74 68 65 20 75 6e 69 71 75 65 6e 65 73 73 20 the uniqueness
6730: 6f 66 20 70 6f 73 69 74 69 6f 6e 73 2c 0a 09 23 of positions,..#
6740: 20 20 20 20 20 20 20 20 20 61 6e 64 20 74 68 61 and tha
6750: 74 20 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 77 t is something w
6760: 65 20 68 61 76 65 20 72 75 6c 65 64 20 6f 75 74 e have ruled out
6770: 20 61 6c 72 65 61 64 79 2c 20 73 65 65 0a 09 23 already, see..#
6780: 20 20 20 20 20 20 20 20 20 27 72 65 76 20 69 6e 'rev in
6790: 74 65 72 6e 61 6c 73 75 63 63 65 73 73 6f 72 73 ternalsuccessors
67a0: 27 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 '....log write 1
67b0: 34 20 63 73 65 74 73 20 7b 49 42 53 3a 20 63 72 4 csets {IBS: cr
67c0: 6f 73 73 20 63 6f 75 6e 74 65 72 20 66 69 6c 6c oss counter fill
67d0: 69 6e 67 2c 20 70 6f 73 2f 63 72 6f 73 73 20 6d ing, pos/cross m
67e0: 61 70 7d 0a 0a 09 66 6f 72 65 61 63 68 20 7b 72 ap}...foreach {r
67f0: 69 64 20 63 68 69 6c 64 72 65 6e 7d 20 5b 61 72 id children} [ar
6800: 72 61 79 20 67 65 74 20 64 65 70 65 6e 64 65 6e ray get dependen
6810: 63 69 65 73 5d 20 7b 0a 09 20 20 20 20 66 6f 72 cies] {.. for
6820: 65 61 63 68 20 63 68 69 6c 64 20 24 63 68 69 6c each child $chil
6830: 64 72 65 6e 20 7b 0a 09 09 73 65 74 20 64 6b 65 dren {...set dke
6840: 79 20 20 20 20 5b 6c 69 73 74 20 24 72 69 64 20 y [list $rid
6850: 24 63 68 69 6c 64 5d 0a 09 09 73 65 74 20 73 74 $child]...set st
6860: 61 72 74 20 20 20 24 70 6f 73 28 24 72 69 64 29 art $pos($rid)
6870: 0a 09 09 73 65 74 20 65 6e 64 20 20 20 20 20 24 ...set end $
6880: 70 6f 73 28 24 63 68 69 6c 64 29 0a 0a 09 09 69 pos($child)....i
6890: 66 20 7b 24 73 74 61 72 74 20 3e 20 24 65 6e 64 f {$start > $end
68a0: 7d 20 7b 0a 09 09 20 20 20 20 73 65 74 20 63 72 } {... set cr
68b0: 6f 73 73 65 73 20 5b 6c 69 73 74 20 24 65 6e 64 osses [list $end
68c0: 20 5b 65 78 70 72 20 7b 24 73 74 61 72 74 2d 31 [expr {$start-1
68d0: 7d 5d 5d 0a 09 09 20 20 20 20 77 68 69 6c 65 20 }]]... while
68e0: 7b 24 65 6e 64 20 3c 20 24 73 74 61 72 74 7d 20 {$end < $start}
68f0: 7b 0a 09 09 09 69 6e 63 72 20 63 72 6f 73 73 28 {....incr cross(
6900: 24 65 6e 64 29 0a 09 09 09 69 6e 63 72 20 65 6e $end)....incr en
6910: 64 0a 09 09 20 20 20 20 7d 0a 09 09 7d 20 65 6c d... }...} el
6920: 73 65 20 7b 0a 09 09 20 20 20 20 73 65 74 20 63 se {... set c
6930: 72 6f 73 73 65 73 20 5b 6c 69 73 74 20 24 73 74 rosses [list $st
6940: 61 72 74 20 5b 65 78 70 72 20 7b 24 65 6e 64 2d art [expr {$end-
6950: 31 7d 5d 5d 0a 09 09 20 20 20 20 77 68 69 6c 65 1}]]... while
6960: 20 7b 24 73 74 61 72 74 20 3c 20 24 65 6e 64 7d {$start < $end}
6970: 20 7b 0a 09 09 09 69 6e 63 72 20 63 72 6f 73 73 {....incr cross
6980: 28 24 73 74 61 72 74 29 0a 09 09 09 69 6e 63 72 ($start)....incr
6990: 20 73 74 61 72 74 0a 09 09 20 20 20 20 7d 0a 09 start... }..
69a0: 09 7d 0a 09 09 73 65 74 20 64 65 70 63 28 24 64 .}...set depc($d
69b0: 6b 65 79 29 20 24 63 72 6f 73 73 65 73 0a 09 20 key) $crosses..
69c0: 20 20 20 7d 0a 09 7d 0a 0a 09 6c 6f 67 20 77 72 }..}...log wr
69d0: 69 74 65 20 31 34 20 63 73 65 74 73 20 7b 49 42 ite 14 csets {IB
69e0: 53 3a 20 70 6f 73 2f 5b 61 72 72 61 79 20 73 69 S: pos/[array si
69f0: 7a 65 20 70 6f 73 5d 2c 20 63 72 6f 73 73 2f 5b ze pos], cross/[
6a00: 61 72 72 61 79 20 73 69 7a 65 20 63 72 6f 73 73 array size cross
6a10: 5d 2c 20 64 65 70 63 2f 5b 61 72 72 61 79 20 73 ], depc/[array s
6a20: 69 7a 65 20 64 65 70 63 5d 20 28 66 6f 72 20 5b ize depc] (for [
6a30: 6c 6c 65 6e 67 74 68 20 24 72 65 76 69 73 69 6f llength $revisio
6a40: 6e 73 5d 29 7d 0a 09 6c 6f 67 20 77 72 69 74 65 ns])}..log write
6a50: 20 31 34 20 63 73 65 74 73 20 7b 49 42 53 3a 20 14 csets {IBS:
6a60: 74 69 6d 65 73 74 61 6d 70 73 2c 20 64 65 6c 74 timestamps, delt
6a70: 61 73 7d 0a 0a 09 49 6e 69 74 69 61 6c 69 7a 65 as}...Initialize
6a80: 44 65 6c 74 61 73 20 24 72 65 76 69 73 69 6f 6e Deltas $revision
6a90: 73 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 34 s...log write 14
6aa0: 20 63 73 65 74 73 20 7b 49 42 53 3a 20 64 65 6c csets {IBS: del
6ab0: 74 61 20 5b 61 72 72 61 79 20 73 69 7a 65 20 64 ta [array size d
6ac0: 65 6c 74 61 5d 7d 0a 09 72 65 74 75 72 6e 0a 20 elta]}..return.
6ad0: 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 }.. proc I
6ae0: 6e 69 74 69 61 6c 69 7a 65 44 65 6c 74 61 73 20 nitializeDeltas
6af0: 7b 72 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 75 {revisions} {..u
6b00: 70 76 61 72 20 31 20 64 65 6c 74 61 20 64 65 6c pvar 1 delta del
6b10: 74 61 0a 0a 09 23 20 50 75 6c 6c 20 74 68 65 20 ta...# Pull the
6b20: 74 69 6d 65 73 74 61 6d 70 73 20 66 6f 72 20 61 timestamps for a
6b30: 6c 6c 20 72 65 76 69 73 69 6f 6e 73 20 69 6e 20 ll revisions in
6b40: 74 68 65 20 63 68 61 6e 67 65 73 65 74 73 20 61 the changesets a
6b50: 6e 64 0a 09 23 20 63 6f 6d 70 75 74 65 20 74 68 nd..# compute th
6b60: 65 69 72 20 64 65 6c 74 61 73 20 66 6f 72 20 75 eir deltas for u
6b70: 73 65 20 62 79 20 74 68 65 20 62 72 65 61 6b 20 se by the break
6b80: 66 69 6e 64 65 72 2e 0a 0a 09 61 72 72 61 79 20 finder....array
6b90: 73 65 74 20 64 65 6c 74 61 20 7b 7d 0a 09 61 72 set delta {}..ar
6ba0: 72 61 79 20 73 65 74 20 73 74 61 6d 70 20 7b 7d ray set stamp {}
6bb0: 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 ...set theset ('
6bc0: 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 [join $revisions
6bd0: 20 7b 27 2c 27 7d 5d 27 29 0a 09 23 66 6f 72 65 {','}]')..#fore
6be0: 61 63 68 72 6f 77 0a 09 66 6f 72 65 61 63 68 20 achrow..foreach
6bf0: 7b 72 69 64 20 74 69 6d 65 7d 20 5b 73 74 61 74 {rid time} [stat
6c00: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
6c10: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
6c20: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 slashes {.. S
6c30: 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 2e 64 ELECT R.rid, R.d
6c40: 61 74 65 0a 09 20 20 20 20 46 52 4f 4d 20 72 65 ate.. FROM re
6c50: 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 48 vision R.. WH
6c60: 45 52 45 20 52 2e 72 69 64 20 49 4e 20 24 74 68 ERE R.rid IN $th
6c70: 65 73 65 74 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 eset..}]] {..
6c80: 20 73 65 74 20 73 74 61 6d 70 28 24 72 69 64 29 set stamp($rid)
6c90: 20 24 74 69 6d 65 0a 09 7d 0a 0a 09 6c 6f 67 20 $time..}...log
6ca0: 77 72 69 74 65 20 31 34 20 63 73 65 74 73 20 7b write 14 csets {
6cb0: 49 42 53 3a 20 73 74 61 6d 70 20 5b 61 72 72 61 IBS: stamp [arra
6cc0: 79 20 73 69 7a 65 20 73 74 61 6d 70 5d 7d 0a 0a y size stamp]}..
6cd0: 09 73 65 74 20 6e 20 30 0a 09 66 6f 72 65 61 63 .set n 0..foreac
6ce0: 68 20 72 69 64 20 5b 6c 72 61 6e 67 65 20 24 72 h rid [lrange $r
6cf0: 65 76 69 73 69 6f 6e 73 20 30 20 65 6e 64 2d 31 evisions 0 end-1
6d00: 5d 20 72 6e 65 78 74 20 5b 6c 72 61 6e 67 65 20 ] rnext [lrange
6d10: 24 72 65 76 69 73 69 6f 6e 73 20 31 20 65 6e 64 $revisions 1 end
6d20: 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 64 65 6c ] {.. set del
6d30: 74 61 28 24 6e 29 20 5b 65 78 70 72 20 7b 24 73 ta($n) [expr {$s
6d40: 74 61 6d 70 28 24 72 6e 65 78 74 29 20 2d 20 24 tamp($rnext) - $
6d50: 73 74 61 6d 70 28 24 72 69 64 29 7d 5d 0a 09 20 stamp($rid)}]..
6d60: 20 20 20 69 6e 63 72 20 6e 0a 09 7d 0a 09 72 65 incr n..}..re
6d70: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
6d80: 70 72 6f 63 20 46 69 6e 64 42 65 73 74 42 72 65 proc FindBestBre
6d90: 61 6b 20 7b 72 61 6e 67 65 7d 20 7b 0a 09 75 70 ak {range} {..up
6da0: 76 61 72 20 31 20 63 72 6f 73 73 20 63 72 6f 73 var 1 cross cros
6db0: 73 20 64 65 6c 74 61 20 64 65 6c 74 61 0a 0a 09 s delta delta...
6dc0: 23 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 # Determine the
6dd0: 62 65 73 74 20 62 72 65 61 6b 20 6c 6f 63 61 74 best break locat
6de0: 69 6f 6e 20 69 6e 20 74 68 65 20 67 69 76 65 6e ion in the given
6df0: 20 72 61 6e 67 65 20 6f 66 0a 09 23 20 70 6f 73 range of..# pos
6e00: 69 74 69 6f 6e 73 2e 20 46 69 72 73 74 20 77 65 itions. First we
6e10: 20 6c 6f 6f 6b 20 66 6f 72 20 74 68 65 20 6c 6f look for the lo
6e20: 63 61 74 69 6f 6e 73 20 77 69 74 68 20 74 68 65 cations with the
6e30: 20 6d 61 78 69 6d 61 6c 0a 09 23 20 6e 75 6d 62 maximal..# numb
6e40: 65 72 20 6f 66 20 63 72 6f 73 73 69 6e 67 73 2e er of crossings.
6e50: 20 49 66 20 74 68 65 72 65 20 61 72 65 20 73 65 If there are se
6e60: 76 65 72 61 6c 20 77 65 20 6c 6f 6f 6b 20 66 6f veral we look fo
6e70: 72 20 74 68 65 0a 09 23 20 73 68 6f 72 74 65 73 r the..# shortes
6e80: 74 20 74 69 6d 65 20 69 6e 74 65 72 76 61 6c 20 t time interval
6e90: 61 6d 6f 6e 67 20 74 68 65 6d 2e 20 49 66 20 77 among them. If w
6ea0: 65 20 73 74 69 6c 6c 20 68 61 76 65 20 6d 75 6c e still have mul
6eb0: 74 69 70 6c 65 0a 09 23 20 70 6f 73 73 69 62 69 tiple..# possibi
6ec0: 6c 69 74 69 65 73 20 61 66 74 65 72 20 74 68 61 lities after tha
6ed0: 74 20 77 65 20 73 65 6c 65 63 74 20 74 68 65 20 t we select the
6ee0: 65 61 72 6c 69 65 73 74 20 6c 6f 63 61 74 69 6f earliest locatio
6ef0: 6e 0a 09 23 20 61 6d 6f 6e 67 20 74 68 65 73 65 n..# among these
6f00: 2e 0a 0a 09 23 20 4e 6f 74 65 3a 20 49 66 20 74 ....# Note: If t
6f10: 68 65 20 6d 61 78 69 6d 61 6c 20 6e 75 6d 62 65 he maximal numbe
6f20: 72 20 6f 66 20 63 72 6f 73 73 69 6e 67 73 20 69 r of crossings i
6f30: 73 20 30 20 74 68 65 6e 20 74 68 65 20 72 61 6e s 0 then the ran
6f40: 67 65 0a 09 23 20 20 20 20 20 20 20 68 61 73 20 ge..# has
6f50: 6e 6f 20 69 6e 74 65 72 6e 61 6c 20 64 65 70 65 no internal depe
6f60: 6e 64 65 6e 63 69 65 73 2c 20 61 6e 64 20 6e 6f ndencies, and no
6f70: 20 62 72 65 61 6b 20 6c 6f 63 61 74 69 6f 6e 20 break location
6f80: 61 74 0a 09 23 20 20 20 20 20 20 20 61 6c 6c 2e at..# all.
6f90: 20 54 68 69 73 20 70 6f 73 73 69 62 69 6c 69 74 This possibilit
6fa0: 79 20 69 73 20 73 69 67 6e 61 6c 65 64 20 76 69 y is signaled vi
6fb0: 61 20 72 65 73 75 6c 74 20 2d 31 2e 0a 0a 09 23 a result -1....#
6fc0: 20 4e 6f 74 65 3a 20 41 20 72 61 6e 67 65 20 6f Note: A range o
6fd0: 66 20 6c 65 6e 67 74 68 20 31 20 6f 72 20 6c 65 f length 1 or le
6fe0: 73 73 20 63 61 6e 6e 6f 74 20 68 61 76 65 20 69 ss cannot have i
6ff0: 6e 74 65 72 6e 61 6c 0a 09 23 20 20 20 20 20 20 nternal..#
7000: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 dependencies, a
7010: 73 20 74 68 61 74 20 6e 65 65 64 73 20 61 74 20 s that needs at
7020: 6c 65 61 73 74 20 74 77 6f 20 72 65 76 69 73 69 least two revisi
7030: 6f 6e 73 20 69 6e 0a 09 23 20 20 20 20 20 20 20 ons in..#
7040: 74 68 65 20 72 61 6e 67 65 2e 0a 0a 09 69 66 20 the range....if
7050: 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 61 6e 67 65 {[llength $range
7060: 5d 20 3c 20 32 7d 20 7b 20 72 65 74 75 72 6e 20 ] < 2} { return
7070: 2d 31 20 7d 0a 0a 09 73 65 74 20 6d 61 78 20 2d -1 }...set max -
7080: 31 0a 09 73 65 74 20 62 65 73 74 20 7b 7d 0a 0a 1..set best {}..
7090: 09 66 6f 72 65 61 63 68 20 6c 6f 63 61 74 69 6f .foreach locatio
70a0: 6e 20 24 72 61 6e 67 65 20 7b 0a 09 20 20 20 20 n $range {..
70b0: 73 65 74 20 63 72 6f 73 73 69 6e 67 73 20 24 63 set crossings $c
70c0: 72 6f 73 73 28 24 6c 6f 63 61 74 69 6f 6e 29 0a ross($location).
70d0: 09 20 20 20 20 69 66 20 7b 24 63 72 6f 73 73 69 . if {$crossi
70e0: 6e 67 73 20 3e 20 24 6d 61 78 7d 20 7b 0a 09 09 ngs > $max} {...
70f0: 73 65 74 20 6d 61 78 20 20 24 63 72 6f 73 73 69 set max $crossi
7100: 6e 67 73 0a 09 09 73 65 74 20 62 65 73 74 20 5b ngs...set best [
7110: 6c 69 73 74 20 24 6c 6f 63 61 74 69 6f 6e 5d 0a list $location].
7120: 09 09 63 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 ..continue..
7130: 7d 20 65 6c 73 65 69 66 20 7b 24 63 72 6f 73 73 } elseif {$cross
7140: 69 6e 67 73 20 3d 3d 20 24 6d 61 78 7d 20 7b 0a ings == $max} {.
7150: 09 09 6c 61 70 70 65 6e 64 20 62 65 73 74 20 24 ..lappend best $
7160: 6c 6f 63 61 74 69 6f 6e 0a 09 20 20 20 20 7d 0a location.. }.
7170: 09 7d 0a 0a 09 69 66 20 7b 24 6d 61 78 20 3d 3d .}...if {$max ==
7180: 20 30 7d 20 20 20 20 20 20 20 20 20 20 20 20 7b 0} {
7190: 20 72 65 74 75 72 6e 20 2d 31 20 7d 0a 09 69 66 return -1 }..if
71a0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 62 65 73 74 {[llength $best
71b0: 5d 20 3d 3d 20 31 7d 20 7b 20 72 65 74 75 72 6e ] == 1} { return
71c0: 20 5b 6c 69 6e 64 65 78 20 24 62 65 73 74 20 30 [lindex $best 0
71d0: 5d 20 7d 0a 0a 09 73 65 74 20 6c 6f 63 61 74 69 ] }...set locati
71e0: 6f 6e 73 20 24 62 65 73 74 0a 09 73 65 74 20 62 ons $best..set b
71f0: 65 73 74 20 7b 7d 0a 09 73 65 74 20 6d 69 6e 20 est {}..set min
7200: 2d 31 0a 0a 09 66 6f 72 65 61 63 68 20 6c 6f 63 -1...foreach loc
7210: 61 74 69 6f 6e 20 24 6c 6f 63 61 74 69 6f 6e 73 ation $locations
7220: 20 7b 0a 09 20 20 20 20 73 65 74 20 69 6e 74 65 {.. set inte
7230: 72 76 61 6c 20 24 64 65 6c 74 61 28 24 6c 6f 63 rval $delta($loc
7240: 61 74 69 6f 6e 29 0a 09 20 20 20 20 69 66 20 7b ation).. if {
7250: 28 24 6d 69 6e 20 3c 20 30 29 20 7c 7c 20 28 24 ($min < 0) || ($
7260: 69 6e 74 65 72 76 61 6c 20 3c 20 24 6d 69 6e 29 interval < $min)
7270: 7d 20 7b 0a 09 09 73 65 74 20 6d 69 6e 20 20 24 } {...set min $
7280: 69 6e 74 65 72 76 61 6c 0a 09 09 73 65 74 20 62 interval...set b
7290: 65 73 74 20 5b 6c 69 73 74 20 24 6c 6f 63 61 74 est [list $locat
72a0: 69 6f 6e 5d 0a 09 20 20 20 20 7d 20 65 6c 73 65 ion].. } else
72b0: 69 66 20 7b 24 69 6e 74 65 72 76 61 6c 20 3d 3d if {$interval ==
72c0: 20 24 6d 69 6e 7d 20 7b 0a 09 09 6c 61 70 70 65 $min} {...lappe
72d0: 6e 64 20 62 65 73 74 20 24 6c 6f 63 61 74 69 6f nd best $locatio
72e0: 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 69 66 n.. }..}...if
72f0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 62 65 73 74 {[llength $best
7300: 5d 20 3d 3d 20 31 7d 20 7b 20 72 65 74 75 72 6e ] == 1} { return
7310: 20 5b 6c 69 6e 64 65 78 20 24 62 65 73 74 20 30 [lindex $best 0
7320: 5d 20 7d 0a 0a 09 72 65 74 75 72 6e 20 5b 6c 69 ] }...return [li
7330: 6e 64 65 78 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 ndex [lsort -int
7340: 65 67 65 72 20 2d 69 6e 63 72 65 61 73 69 6e 67 eger -increasing
7350: 20 24 62 65 73 74 5d 20 30 5d 0a 20 20 20 20 7d $best] 0]. }
7360: 0a 0a 20 20 20 20 70 72 6f 63 20 43 75 74 41 74 .. proc CutAt
7370: 20 7b 6c 6f 63 61 74 69 6f 6e 7d 20 7b 0a 09 75 {location} {..u
7380: 70 76 61 72 20 31 20 63 72 6f 73 73 20 63 72 6f pvar 1 cross cro
7390: 73 73 20 64 65 70 63 20 64 65 70 63 0a 0a 09 23 ss depc depc...#
73a0: 20 49 74 20 77 61 73 20 64 65 63 69 64 65 64 20 It was decided
73b0: 74 6f 20 73 70 6c 69 74 20 74 68 65 20 63 68 61 to split the cha
73c0: 6e 67 65 73 65 74 20 61 74 20 74 68 65 20 67 69 ngeset at the gi
73d0: 76 65 6e 0a 09 23 20 6c 6f 63 61 74 69 6f 6e 2e ven..# location.
73e0: 20 54 68 69 73 20 63 75 74 73 20 61 20 6e 75 6d This cuts a num
73f0: 62 65 72 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 ber of dependenc
7400: 69 65 73 2e 20 48 65 72 65 20 77 65 20 75 70 64 ies. Here we upd
7410: 61 74 65 0a 09 23 20 74 68 65 20 63 72 6f 73 73 ate..# the cross
7420: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 6f 20 information so
7430: 74 68 61 74 20 74 68 65 20 62 72 65 61 6b 20 66 that the break f
7440: 69 6e 64 65 72 20 68 61 73 20 61 63 63 75 72 61 inder has accura
7450: 74 65 0a 09 23 20 64 61 74 61 20 77 68 65 6e 20 te..# data when
7460: 77 65 20 6c 6f 6f 6b 20 61 74 20 74 68 65 20 67 we look at the g
7470: 65 6e 65 72 61 74 65 64 20 66 72 61 67 6d 65 6e enerated fragmen
7480: 74 73 2e 0a 0a 09 73 65 74 20 73 69 78 20 5b 6c ts....set six [l
7490: 6f 67 20 76 69 73 69 62 6c 65 3f 20 36 5d 0a 0a og visible? 6]..
74a0: 09 23 20 4e 6f 74 65 3a 20 54 68 65 20 6c 6f 6f .# Note: The loo
74b0: 70 20 62 65 6c 6f 77 20 63 6f 75 6c 64 20 62 65 p below could be
74c0: 20 6d 61 64 65 20 66 61 73 74 65 72 20 62 79 20 made faster by
74d0: 6b 65 65 70 69 6e 67 20 61 20 6d 61 70 0a 09 23 keeping a map..#
74e0: 20 66 72 6f 6d 20 70 6f 73 69 74 69 6f 6e 73 20 from positions
74f0: 74 6f 20 74 68 65 20 64 65 70 65 6e 64 65 6e 63 to the dependenc
7500: 69 65 73 20 63 72 6f 73 73 69 6e 67 2e 20 41 6e ies crossing. An
7510: 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 0a 09 23 extension of..#
7520: 20 43 52 4f 53 53 2c 20 69 2e 65 2e 20 6c 69 73 CROSS, i.e. lis
7530: 74 20 6f 66 20 64 65 70 65 6e 64 65 6e 63 69 65 t of dependencie
7540: 73 2c 20 63 6f 75 6e 74 65 72 20 69 73 20 69 6d s, counter is im
7550: 70 6c 69 65 64 2e 20 54 61 6b 65 73 0a 09 23 20 plied. Takes..#
7560: 61 20 6c 6f 74 20 6d 6f 72 65 20 6d 65 6d 6f 72 a lot more memor
7570: 79 20 68 6f 77 65 76 65 72 2c 20 61 6e 64 20 74 y however, and t
7580: 61 6b 65 73 20 74 69 6d 65 20 74 6f 20 75 70 64 akes time to upd
7590: 61 74 65 20 68 65 72 65 0a 09 23 20 28 54 68 65 ate here..# (The
75a0: 20 69 6e 6e 65 72 20 6c 6f 6f 70 20 69 73 20 6e inner loop is n
75b0: 6f 74 20 69 6e 63 72 20 2d 31 2c 20 62 75 74 20 ot incr -1, but
75c0: 6c 64 65 6c 65 74 65 29 2e 0a 0a 09 66 6f 72 65 ldelete)....fore
75d0: 61 63 68 20 64 65 70 20 5b 61 72 72 61 79 20 6e ach dep [array n
75e0: 61 6d 65 73 20 64 65 70 63 5d 20 7b 0a 09 20 20 ames depc] {..
75f0: 20 20 73 65 74 20 72 61 6e 67 65 20 24 64 65 70 set range $dep
7600: 63 28 24 64 65 70 29 0a 09 20 20 20 20 23 20 43 c($dep).. # C
7610: 68 65 63 6b 20 61 6c 6c 20 64 65 70 65 6e 64 65 heck all depende
7620: 6e 63 69 65 73 20 73 74 69 6c 6c 20 6b 6e 6f 77 ncies still know
7630: 6e 2c 20 74 61 6b 65 20 74 68 65 69 72 20 72 61 n, take their ra
7640: 6e 67 65 20 61 6e 64 0a 09 20 20 20 20 23 20 73 nge and.. # s
7650: 65 65 20 69 66 20 74 68 65 20 62 72 65 61 6b 20 ee if the break
7660: 6c 6f 63 61 74 69 6f 6e 20 66 61 6c 6c 73 20 77 location falls w
7670: 69 74 68 69 6e 2e 0a 0a 09 20 20 20 20 42 6f 72 ithin.... Bor
7680: 64 65 72 20 24 72 61 6e 67 65 20 73 20 65 0a 09 der $range s e..
7690: 20 20 20 20 69 66 20 7b 24 6c 6f 63 61 74 69 6f if {$locatio
76a0: 6e 20 3c 20 24 73 7d 20 63 6f 6e 74 69 6e 75 65 n < $s} continue
76b0: 20 3b 20 23 20 62 72 65 61 6b 20 62 65 66 6f 72 ; # break befor
76c0: 65 20 72 61 6e 67 65 2c 20 69 67 6e 6f 72 65 0a e range, ignore.
76d0: 09 20 20 20 20 69 66 20 7b 24 6c 6f 63 61 74 69 . if {$locati
76e0: 6f 6e 20 3e 20 24 65 7d 20 63 6f 6e 74 69 6e 75 on > $e} continu
76f0: 65 20 3b 20 23 20 62 72 65 61 6b 20 61 66 74 65 e ; # break afte
7700: 72 20 72 61 6e 67 65 2c 20 69 67 6e 6f 72 65 2e r range, ignore.
7710: 0a 0a 09 20 20 20 20 23 20 54 68 69 73 20 64 65 ... # This de
7720: 70 65 6e 64 65 6e 63 79 20 63 72 6f 73 73 65 73 pendency crosses
7730: 20 74 68 65 20 62 72 65 61 6b 20 6c 6f 63 61 74 the break locat
7740: 69 6f 6e 2e 20 57 65 20 72 65 6d 6f 76 65 20 69 ion. We remove i
7750: 74 0a 09 20 20 20 20 23 20 66 72 6f 6d 20 74 68 t.. # from th
7760: 65 20 63 72 6f 73 73 69 6e 67 73 20 63 6f 75 6e e crossings coun
7770: 74 65 72 73 2c 20 61 6e 64 20 74 68 65 6e 20 61 ters, and then a
7780: 6c 73 6f 20 66 72 6f 6d 20 74 68 65 20 73 65 74 lso from the set
7790: 0a 09 20 20 20 20 23 20 6f 66 20 6b 6e 6f 77 6e .. # of known
77a0: 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 61 dependencies, a
77b0: 73 20 77 65 20 61 72 65 20 64 6f 6e 65 20 77 69 s we are done wi
77c0: 74 68 20 69 74 2e 0a 0a 09 20 20 20 20 42 6f 72 th it.... Bor
77d0: 64 65 72 20 24 64 65 70 63 28 24 64 65 70 29 20 der $depc($dep)
77e0: 64 73 20 64 65 0a 09 20 20 20 20 66 6f 72 20 7b ds de.. for {
77f0: 73 65 74 20 6c 6f 63 20 24 64 73 7d 20 7b 24 6c set loc $ds} {$l
7800: 6f 63 20 3c 3d 20 24 64 65 7d 20 7b 69 6e 63 72 oc <= $de} {incr
7810: 20 6c 6f 63 7d 20 7b 0a 09 09 69 6e 63 72 20 63 loc} {...incr c
7820: 72 6f 73 73 28 24 6c 6f 63 29 20 2d 31 0a 09 20 ross($loc) -1..
7830: 20 20 20 7d 0a 09 20 20 20 20 75 6e 73 65 74 20 }.. unset
7840: 64 65 70 63 28 24 64 65 70 29 0a 0a 09 20 20 20 depc($dep)...
7850: 20 69 66 20 7b 21 24 73 69 78 7d 20 63 6f 6e 74 if {!$six} cont
7860: 69 6e 75 65 0a 0a 09 20 20 20 20 73 74 72 75 63 inue... struc
7870: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 24 t::list assign $
7880: 64 65 70 20 70 61 72 65 6e 74 20 63 68 69 6c 64 dep parent child
7890: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
78a0: 35 20 63 73 65 74 73 20 22 42 72 6f 6b 65 20 64 5 csets "Broke d
78b0: 65 70 65 6e 64 65 6e 63 79 20 5b 50 44 20 24 70 ependency [PD $p
78c0: 61 72 65 6e 74 5d 20 2d 2d 3e 20 5b 50 44 20 24 arent] --> [PD $
78d0: 63 68 69 6c 64 5d 22 0a 09 7d 0a 0a 09 72 65 74 child]"..}...ret
78e0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
78f0: 20 50 72 69 6e 74 20 69 64 65 6e 74 69 66 79 69 Print identifyi
7900: 6e 67 20 64 61 74 61 20 66 6f 72 20 61 20 72 65 ng data for a re
7910: 76 69 73 69 6f 6e 20 28 70 72 6f 6a 65 63 74 2c vision (project,
7920: 20 66 69 6c 65 2c 20 64 6f 74 74 65 64 20 72 65 file, dotted re
7930: 76 0a 20 20 20 20 23 20 6e 75 6d 62 65 72 29 2c v. # number),
7940: 20 66 6f 72 20 68 69 67 68 20 76 65 72 62 6f 73 for high verbos
7950: 69 74 79 20 6c 6f 67 20 6f 75 74 70 75 74 2e 0a ity log output..
7960: 20 20 20 20 23 20 54 4f 44 4f 3a 20 52 65 70 6c # TODO: Repl
7970: 61 63 65 20 77 69 74 68 20 63 61 6c 6c 20 74 6f ace with call to
7980: 20 69 74 65 6d 73 74 72 20 28 6c 69 73 74 20 72 itemstr (list r
7990: 65 76 20 24 69 64 29 0a 0a 20 20 20 20 70 72 6f ev $id).. pro
79a0: 63 20 50 44 20 7b 69 64 7d 20 7b 0a 09 66 6f 72 c PD {id} {..for
79b0: 65 61 63 68 20 7b 70 20 66 20 72 7d 20 5b 73 74 each {p f r} [st
79c0: 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c 45 ate run {...SELE
79d0: 43 54 20 50 2e 6e 61 6d 65 20 2c 20 46 2e 6e 61 CT P.name , F.na
79e0: 6d 65 2c 20 52 2e 72 65 76 0a 09 09 46 52 4f 4d me, R.rev...FROM
79f0: 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 66 69 6c revision R, fil
7a00: 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 e F, project P..
7a10: 09 57 48 45 52 45 20 52 2e 72 69 64 20 3d 20 24 .WHERE R.rid = $
7a20: 69 64 20 20 20 20 2d 2d 20 46 69 6e 64 20 73 70 id -- Find sp
7a30: 65 63 69 66 69 65 64 20 66 69 6c 65 20 72 65 76 ecified file rev
7a40: 69 73 69 6f 6e 0a 09 09 41 4e 44 20 20 20 46 2e ision...AND F.
7a50: 66 69 64 20 3d 20 52 2e 66 69 64 20 20 2d 2d 20 fid = R.fid --
7a60: 47 65 74 20 66 69 6c 65 20 6f 66 20 74 68 65 20 Get file of the
7a70: 72 65 76 69 73 69 6f 6e 0a 09 09 41 4e 44 20 20 revision...AND
7a80: 20 50 2e 70 69 64 20 3d 20 46 2e 70 69 64 20 20 P.pid = F.pid
7a90: 2d 2d 20 47 65 74 20 70 72 6f 6a 65 63 74 20 6f -- Get project o
7aa0: 66 20 74 68 65 20 66 69 6c 65 2e 0a 09 7d 5d 20 f the file...}]
7ab0: 62 72 65 61 6b 0a 09 72 65 74 75 72 6e 20 22 27 break..return "'
7ac0: 24 70 20 3a 20 24 66 2f 24 72 27 22 0a 20 20 20 $p : $f/$r'".
7ad0: 20 7d 0a 0a 20 20 20 20 23 20 50 72 69 6e 74 69 }.. # Printi
7ae0: 6e 67 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 72 ng one or more r
7af0: 61 6e 67 65 73 2c 20 66 6f 72 6d 61 74 74 65 64 anges, formatted
7b00: 2c 20 61 6e 64 20 6f 6e 6c 79 20 74 68 65 69 72 , and only their
7b10: 20 62 6f 72 64 65 72 20 74 6f 0a 20 20 20 20 23 border to. #
7b20: 20 6b 65 65 70 20 74 68 65 20 73 74 72 69 6e 67 keep the string
7b30: 73 20 73 68 6f 72 74 2e 0a 0a 20 20 20 20 70 72 s short... pr
7b40: 6f 63 20 50 52 73 20 7b 72 61 6e 67 65 73 7d 20 oc PRs {ranges}
7b50: 7b 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 75 63 {..return [struc
7b60: 74 3a 3a 6c 69 73 74 20 6d 61 70 20 24 72 61 6e t::list map $ran
7b70: 67 65 73 20 5b 6d 79 70 72 6f 63 20 50 52 5d 5d ges [myproc PR]]
7b80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
7b90: 20 50 52 20 7b 72 61 6e 67 65 7d 20 7b 0a 09 42 PR {range} {..B
7ba0: 6f 72 64 65 72 20 24 72 61 6e 67 65 20 73 20 65 order $range s e
7bb0: 0a 09 72 65 74 75 72 6e 20 3c 24 7b 73 7d 2e 2e ..return <${s}..
7bc0: 2e 24 7b 65 7d 3e 0a 20 20 20 20 7d 0a 0a 20 20 .${e}>. }..
7bd0: 20 20 70 72 6f 63 20 42 6f 72 64 65 72 20 7b 72 proc Border {r
7be0: 61 6e 67 65 20 73 76 20 65 76 7d 20 7b 0a 09 75 ange sv ev} {..u
7bf0: 70 76 61 72 20 31 20 24 73 76 20 73 20 24 65 76 pvar 1 $sv s $ev
7c00: 20 65 0a 09 73 65 74 20 73 20 5b 6c 69 6e 64 65 e..set s [linde
7c10: 78 20 24 72 61 6e 67 65 20 30 5d 0a 09 73 65 74 x $range 0]..set
7c20: 20 65 20 5b 6c 69 6e 64 65 78 20 24 72 61 6e 67 e [lindex $rang
7c30: 65 20 65 6e 64 5d 0a 09 72 65 74 75 72 6e 0a 20 e end]..return.
7c40: 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 }.. # # ##
7c50: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
7c60: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
7c70: 23 0a 0a 20 20 20 20 70 72 6f 63 20 55 6e 6d 61 #.. proc Unma
7c80: 70 49 74 65 6d 73 20 7b 74 68 65 74 79 70 65 20 pItems {thetype
7c90: 74 68 65 69 74 65 6d 73 7d 20 7b 0a 09 23 20 28 theitems} {..# (
7ca0: 2a 29 20 57 65 20 63 6c 65 61 72 20 6f 75 74 20 *) We clear out
7cb0: 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 70 the associated p
7cc0: 61 72 74 20 6f 66 20 74 68 65 20 6d 79 69 74 65 art of the myite
7cd0: 6d 6d 61 70 0a 09 23 20 69 6e 2d 6d 65 6d 6f 72 mmap..# in-memor
7ce0: 79 20 69 6e 64 65 78 20 69 6e 20 70 72 65 70 61 y index in prepa
7cf0: 72 61 74 69 6f 6e 20 66 6f 72 20 6e 65 77 20 64 ration for new d
7d00: 61 74 61 2c 20 6f 72 20 61 73 20 70 61 72 74 20 ata, or as part
7d10: 6f 66 0a 09 23 20 6f 62 6a 65 63 74 20 64 65 73 of..# object des
7d20: 74 72 75 63 74 69 6f 6e 2e 20 41 20 73 69 6d 70 truction. A simp
7d30: 6c 65 20 75 6e 73 65 74 20 69 73 20 65 6e 6f 75 le unset is enou
7d40: 67 68 2c 20 77 65 20 68 61 76 65 20 6e 6f 0a 09 gh, we have no..
7d50: 23 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 # symbol changes
7d60: 65 74 73 20 61 74 20 74 68 69 73 20 74 69 6d 65 ets at this time
7d70: 2c 20 61 6e 64 20 74 68 75 73 20 6e 65 76 65 72 , and thus never
7d80: 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 0a 09 more than one..
7d90: 23 20 72 65 66 65 72 65 6e 63 65 20 69 6e 20 74 # reference in t
7da0: 68 65 20 6c 69 73 74 2e 0a 0a 09 75 70 76 61 72 he list....upvar
7db0: 20 31 20 6d 79 69 74 65 6d 6d 61 70 20 6d 79 69 1 myitemmap myi
7dc0: 74 65 6d 6d 61 70 20 73 65 6c 66 20 73 65 6c 66 temmap self self
7dd0: 0a 09 66 6f 72 65 61 63 68 20 69 69 64 20 24 74 ..foreach iid $t
7de0: 68 65 69 74 65 6d 73 20 7b 0a 09 20 20 20 20 73 heitems {.. s
7df0: 65 74 20 6b 65 79 20 5b 6c 69 73 74 20 24 74 68 et key [list $th
7e00: 65 74 79 70 65 20 24 69 69 64 5d 0a 09 20 20 20 etype $iid]..
7e10: 20 75 6e 73 65 74 20 6d 79 69 74 65 6d 6d 61 70 unset myitemmap
7e20: 28 24 6b 65 79 29 0a 09 20 20 20 20 6c 6f 67 20 ($key).. log
7e30: 77 72 69 74 65 20 38 20 63 73 65 74 73 20 7b 4d write 8 csets {M
7e40: 41 50 2d 20 69 74 65 6d 20 3c 24 6b 65 79 3e 20 AP- item <$key>
7e50: 24 73 65 6c 66 20 3d 20 5b 24 73 65 6c 66 20 73 $self = [$self s
7e60: 74 72 5d 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a tr]}..}..return.
7e70: 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 }.. proc
7e80: 4d 61 70 49 74 65 6d 73 20 7b 74 68 65 74 79 70 MapItems {thetyp
7e90: 65 20 74 68 65 69 74 65 6d 73 7d 20 7b 0a 09 75 e theitems} {..u
7ea0: 70 76 61 72 20 31 20 6d 79 69 74 65 6d 6d 61 70 pvar 1 myitemmap
7eb0: 20 6d 79 69 74 65 6d 6d 61 70 20 73 65 6c 66 20 myitemmap self
7ec0: 73 65 6c 66 0a 0a 09 66 6f 72 65 61 63 68 20 69 self...foreach i
7ed0: 69 64 20 24 74 68 65 69 74 65 6d 73 20 7b 0a 09 id $theitems {..
7ee0: 20 20 20 20 73 65 74 20 6b 65 79 20 5b 6c 69 73 set key [lis
7ef0: 74 20 24 74 68 65 74 79 70 65 20 24 69 69 64 5d t $thetype $iid]
7f00: 0a 09 20 20 20 20 73 65 74 20 6d 79 69 74 65 6d .. set myitem
7f10: 6d 61 70 28 24 6b 65 79 29 20 24 73 65 6c 66 0a map($key) $self.
7f20: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 38 . log write 8
7f30: 20 63 73 65 74 73 20 7b 4d 41 50 2b 20 69 74 65 csets {MAP+ ite
7f40: 6d 20 3c 24 6b 65 79 3e 20 24 73 65 6c 66 20 3d m <$key> $self =
7f50: 20 5b 24 73 65 6c 66 20 73 74 72 5d 7d 0a 09 7d [$self str]}..}
7f60: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
7f70: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
7f80: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
7f90: 23 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 ###########..
7fa0: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
7fb0: 63 68 61 6e 67 65 73 65 74 73 20 20 20 20 20 20 changesets
7fc0: 20 20 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f {} ; # List o
7fd0: 66 20 61 6c 6c 20 6b 6e 6f 77 6e 0a 09 09 09 09 f all known.....
7fe0: 09 20 20 20 23 20 63 68 61 6e 67 65 73 65 74 73 . # changesets
7ff0: 2e 0a 0a 20 20 20 20 23 20 4c 69 73 74 20 6f 66 ... # List of
8000: 20 61 6c 6c 20 6b 6e 6f 77 6e 20 63 68 61 6e 67 all known chang
8010: 65 73 65 74 73 20 6f 66 20 61 20 74 79 70 65 2e esets of a type.
8020: 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c . typevariabl
8030: 65 20 6d 79 74 63 68 61 6e 67 65 73 65 74 73 20 e mytchangesets
8040: 2d 61 72 72 61 79 20 7b 0a 09 73 79 6d 3a 3a 62 -array {..sym::b
8050: 72 61 6e 63 68 20 7b 7d 0a 09 73 79 6d 3a 3a 74 ranch {}..sym::t
8060: 61 67 20 20 20 20 7b 7d 0a 09 72 65 76 20 20 20 ag {}..rev
8070: 20 20 20 20 20 20 7b 7d 0a 20 20 20 20 7d 0a 09 {}. }..
8080: 09 09 09 09 0a 20 20 20 20 74 79 70 65 76 61 72 ..... typevar
8090: 69 61 62 6c 65 20 6d 79 69 74 65 6d 6d 61 70 20 iable myitemmap
80a0: 20 20 20 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 -array {} ;
80b0: 23 20 4d 61 70 20 66 72 6f 6d 20 69 74 65 6d 73 # Map from items
80c0: 20 28 74 61 67 67 65 64 29 0a 09 09 09 09 09 20 (tagged)......
80d0: 20 20 23 20 74 6f 20 74 68 65 20 6c 69 73 74 20 # to the list
80e0: 6f 66 20 63 68 61 6e 67 65 73 65 74 73 0a 09 09 of changesets...
80f0: 09 09 09 20 20 20 23 20 63 6f 6e 74 61 69 6e 69 ... # containi
8100: 6e 67 20 69 74 2e 20 45 61 63 68 20 69 74 65 6d ng it. Each item
8110: 0a 09 09 09 09 09 20 20 20 23 20 63 61 6e 20 62 ...... # can b
8120: 65 20 75 73 65 64 20 62 79 20 6f 6e 6c 79 20 6f e used by only o
8130: 6e 65 0a 09 09 09 09 09 20 20 20 23 20 63 68 61 ne...... # cha
8140: 6e 67 65 73 65 74 2e 0a 20 20 20 20 74 79 70 65 ngeset.. type
8150: 76 61 72 69 61 62 6c 65 20 6d 79 69 64 6d 61 70 variable myidmap
8160: 20 20 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 -array {} ; #
8170: 20 4d 61 70 20 66 72 6f 6d 20 63 68 61 6e 67 65 Map from change
8180: 73 65 74 20 69 64 20 74 6f 0a 09 09 09 09 20 20 set id to.....
8190: 20 20 20 20 20 23 20 63 68 61 6e 67 65 73 65 74 # changeset
81a0: 2e 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f ... typemetho
81b0: 64 20 61 6c 6c 20 20 20 20 7b 7d 20 20 20 20 7b d all {} {
81c0: 20 72 65 74 75 72 6e 20 24 6d 79 63 68 61 6e 67 return $mychang
81d0: 65 73 65 74 73 20 7d 0a 20 20 20 20 74 79 70 65 esets }. type
81e0: 6d 65 74 68 6f 64 20 6f 66 20 20 20 20 20 7b 63 method of {c
81f0: 69 64 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 id} { return $my
8200: 69 64 6d 61 70 28 24 63 69 64 29 20 7d 0a 20 20 idmap($cid) }.
8210: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 6f 66 69 typemethod ofi
8220: 74 65 6d 20 7b 69 69 64 7d 20 7b 20 72 65 74 75 tem {iid} { retu
8230: 72 6e 20 24 6d 79 69 74 65 6d 6d 61 70 28 24 69 rn $myitemmap($i
8240: 69 64 29 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d id) }.. typem
8250: 65 74 68 6f 64 20 72 65 76 20 20 20 20 7b 7d 20 ethod rev {}
8260: 20 20 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 74 { return $myt
8270: 63 68 61 6e 67 65 73 65 74 73 28 72 65 76 29 20 changesets(rev)
8280: 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 }. typemethod
8290: 20 73 79 6d 20 20 20 20 7b 7d 20 20 20 20 7b 20 sym {} {
82a0: 72 65 74 75 72 6e 20 5b 63 6f 6e 63 61 74 20 5c return [concat \
82b0: 0a 09 09 09 09 09 20 20 24 7b 6d 79 74 63 68 61 ...... ${mytcha
82c0: 6e 67 65 73 65 74 73 28 73 79 6d 3a 3a 62 72 61 ngesets(sym::bra
82d0: 6e 63 68 29 7d 20 5c 0a 09 09 09 09 09 20 20 24 nch)} \...... $
82e0: 7b 6d 79 74 63 68 61 6e 67 65 73 65 74 73 28 73 {mytchangesets(s
82f0: 79 6d 3a 3a 74 61 67 29 7d 5d 20 7d 0a 0a 20 20 ym::tag)}] }..
8300: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
8310: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
8320: 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 #########. ##
8330: 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a Configuration..
8340: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 pragma -hast
8350: 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 20 3b ypeinfo no ;
8360: 20 23 20 6e 6f 20 74 79 70 65 20 69 6e 74 72 6f # no type intro
8370: 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 spection. pra
8380: 67 6d 61 20 2d 68 61 73 69 6e 66 6f 20 20 20 20 gma -hasinfo
8390: 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f no ; # no o
83a0: 62 6a 65 63 74 20 69 6e 74 72 6f 73 70 65 63 74 bject introspect
83b0: 69 6f 6e 0a 0a 20 20 20 20 23 20 23 20 23 23 20 ion.. # # ##
83c0: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
83d0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
83e0: 0a 7d 0a 0a 23 23 0a 23 23 20 4e 4f 54 45 3a 20 .}..##.## NOTE:
83f0: 54 68 65 20 73 75 63 63 65 73 73 6f 72 20 61 6e The successor an
8400: 64 20 70 72 65 64 65 63 65 73 73 6f 72 20 6d 65 d predecessor me
8410: 74 68 6f 64 73 20 64 65 66 69 6e 65 64 20 62 79 thods defined by
8420: 20 74 68 65 20 63 6c 61 73 73 65 73 0a 23 23 20 the classes.##
8430: 20 20 20 20 20 20 62 65 6c 6f 77 20 61 72 65 20 below are
8440: 2d 2d 20 62 6f 74 74 6c 65 20 6e 65 63 6b 73 20 -- bottle necks
8450: 2d 2d 2e 20 4c 6f 6f 6b 20 66 6f 72 20 77 61 79 --. Look for way
8460: 73 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 53 51 s to make the SQ
8470: 4c 0a 23 23 20 20 20 20 20 20 20 66 61 73 74 65 L.## faste
8480: 72 2e 0a 23 23 0a 0a 23 20 23 20 23 23 20 23 23 r..##..# # ## ##
8490: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
84a0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
84b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
84c0: 23 23 23 23 0a 23 23 20 48 65 6c 70 65 72 20 73 ####.## Helper s
84d0: 69 6e 67 6c 65 74 6f 6e 2e 20 43 6f 6d 6d 61 6e ingleton. Comman
84e0: 64 73 20 66 6f 72 20 72 65 76 69 73 69 6f 6e 20 ds for revision
84f0: 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 73 6e 69 changesets...sni
8500: 74 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f t::type ::vc::fo
8510: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
8520: 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a s::project::rev:
8530: 3a 72 65 76 20 7b 0a 20 20 20 20 74 79 70 65 6d :rev {. typem
8540: 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 6f 6e ethod byrevision
8550: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 31 20 7d {} { return 1 }
8560: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
8570: 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b 20 bysymbol {} {
8580: 72 65 74 75 72 6e 20 30 20 7d 0a 20 20 20 20 74 return 0 }. t
8590: 79 70 65 6d 65 74 68 6f 64 20 69 73 74 61 67 20 ypemethod istag
85a0: 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e {} { return
85b0: 20 30 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 0 }. typemet
85c0: 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 20 7b hod isbranch {
85d0: 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 0a } { return 0 }..
85e0: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 typemethod s
85f0: 74 72 20 7b 72 65 76 69 73 69 6f 6e 7d 20 7b 0a tr {revision} {.
8600: 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 .struct::list as
8610: 73 69 67 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 sign [state run
8620: 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e {.. SELECT R.
8630: 72 65 76 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e 6e rev, F.name, P.n
8640: 61 6d 65 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 ame.. FROM
8650: 72 65 76 69 73 69 6f 6e 20 52 2c 20 66 69 6c 65 revision R, file
8660: 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 0a 09 20 F, project P..
8670: 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 20 WHERE R.rid
8680: 3d 20 24 72 65 76 69 73 69 6f 6e 20 2d 2d 20 46 = $revision -- F
8690: 69 6e 64 20 73 70 65 63 69 66 69 65 64 20 66 69 ind specified fi
86a0: 6c 65 20 72 65 76 69 73 69 6f 6e 0a 09 20 20 20 le revision..
86b0: 20 41 4e 44 20 20 20 20 46 2e 66 69 64 20 3d 20 AND F.fid =
86c0: 52 2e 66 69 64 20 20 20 20 20 2d 2d 20 47 65 74 R.fid -- Get
86d0: 20 66 69 6c 65 20 6f 66 20 74 68 65 20 72 65 76 file of the rev
86e0: 69 73 69 6f 6e 0a 09 20 20 20 20 41 4e 44 20 20 ision.. AND
86f0: 20 20 50 2e 70 69 64 20 3d 20 46 2e 70 69 64 20 P.pid = F.pid
8700: 20 20 20 20 2d 2d 20 47 65 74 20 70 72 6f 6a 65 -- Get proje
8710: 63 74 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a ct of the file..
8720: 09 7d 5d 20 72 65 76 6e 72 20 66 6e 61 6d 65 20 .}] revnr fname
8730: 70 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 22 24 pname..return "$
8740: 70 6e 61 6d 65 2f 24 7b 72 65 76 6e 72 7d 3a 3a pname/${revnr}::
8750: 24 66 6e 61 6d 65 22 0a 20 20 20 20 7d 0a 0a 20 $fname". }..
8760: 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 # result = li
8770: 73 74 20 28 6d 69 6e 74 69 6d 65 2c 20 6d 61 78 st (mintime, max
8780: 74 69 6d 65 29 0a 20 20 20 20 74 79 70 65 6d 65 time). typeme
8790: 74 68 6f 64 20 74 69 6d 65 72 61 6e 67 65 20 7b thod timerange {
87a0: 69 74 65 6d 73 7d 20 7b 0a 09 73 65 74 20 74 68 items} {..set th
87b0: 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 69 74 eset ('[join $it
87c0: 65 6d 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 ems {','}]')..re
87d0: 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 turn [state run
87e0: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
87f0: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
8800: 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 s {.. SELECT
8810: 4d 49 4e 28 52 2e 64 61 74 65 29 2c 20 4d 41 58 MIN(R.date), MAX
8820: 28 52 2e 64 61 74 65 29 0a 09 20 20 20 20 46 52 (R.date).. FR
8830: 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 OM revision R..
8840: 20 20 20 57 48 45 52 45 20 52 2e 72 69 64 20 49 WHERE R.rid I
8850: 4e 20 24 74 68 65 73 65 74 20 2d 2d 20 52 65 73 N $theset -- Res
8860: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
8870: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
8880: 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 }]]. }.. #
8890: 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 var(dv) = dict
88a0: 28 72 65 76 69 73 69 6f 6e 20 2d 3e 20 6c 69 73 (revision -> lis
88b0: 74 20 28 72 65 76 69 73 69 6f 6e 29 29 0a 20 20 t (revision)).
88c0: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 69 6e 74 typemethod int
88d0: 65 72 6e 61 6c 73 75 63 63 65 73 73 6f 72 73 20 ernalsuccessors
88e0: 7b 64 76 20 72 65 76 69 73 69 6f 6e 73 7d 20 7b {dv revisions} {
88f0: 0a 09 75 70 76 61 72 20 31 20 24 64 76 20 64 65 ..upvar 1 $dv de
8900: 70 65 6e 64 65 6e 63 69 65 73 0a 09 73 65 74 20 pendencies..set
8910: 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 theset ('[join $
8920: 72 65 76 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d revisions {','}]
8930: 27 29 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 ')...log write 1
8940: 34 20 63 73 65 74 73 20 69 6e 74 65 72 6e 61 6c 4 csets internal
8950: 73 75 63 63 65 73 73 6f 72 73 0a 0a 09 23 20 53 successors...# S
8960: 65 65 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 ee 'successors'
8970: 62 65 6c 6f 77 20 66 6f 72 20 74 68 65 20 6d 61 below for the ma
8980: 69 6e 20 65 78 70 6c 61 6e 61 74 69 6f 6e 20 6f in explanation o
8990: 66 0a 09 23 20 74 68 65 20 76 61 72 69 6f 75 73 f..# the various
89a0: 20 63 61 73 65 73 2e 20 54 68 69 73 20 70 69 65 cases. This pie
89b0: 63 65 20 69 73 20 73 70 65 63 69 61 6c 20 69 6e ce is special in
89c0: 20 74 68 61 74 20 69 74 0a 09 23 20 72 65 73 74 that it..# rest
89d0: 72 69 63 74 73 20 74 68 65 20 73 75 63 63 65 73 ricts the succes
89e0: 73 6f 72 73 20 77 65 20 6c 6f 6f 6b 20 66 6f 72 sors we look for
89f0: 20 74 6f 20 74 68 65 20 73 61 6d 65 20 73 65 74 to the same set
8a00: 20 6f 66 0a 09 23 20 72 65 76 69 73 69 6f 6e 73 of..# revisions
8a10: 20 77 65 20 73 74 61 72 74 20 66 72 6f 6d 2e 20 we start from.
8a20: 53 65 6e 73 69 62 6c 65 20 61 73 20 77 65 20 61 Sensible as we a
8a30: 72 65 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 0a 09 re looking for..
8a40: 23 20 63 68 61 6e 67 65 73 65 74 20 69 6e 74 65 # changeset inte
8a50: 72 6e 61 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 rnal dependencie
8a60: 73 2e 0a 0a 09 61 72 72 61 79 20 73 65 74 20 64 s....array set d
8a70: 65 70 20 7b 7d 0a 0a 09 73 74 61 74 65 20 66 6f ep {}...state fo
8a80: 72 65 61 63 68 72 6f 77 20 5b 73 75 62 73 74 20 reachrow [subst
8a90: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
8aa0: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 20 20 20 ackslashes {.
8ab0: 20 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 79 20 -- (1) Primary
8ac0: 63 68 69 6c 64 0a 09 20 20 20 20 53 45 4c 45 43 child.. SELEC
8ad0: 54 20 52 2e 72 69 64 20 41 53 20 78 72 69 64 2c T R.rid AS xrid,
8ae0: 20 52 2e 63 68 69 6c 64 20 41 53 20 78 63 68 69 R.child AS xchi
8af0: 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 ld.. FROM r
8b00: 65 76 69 73 69 6f 6e 20 52 0a 09 20 20 20 20 57 evision R.. W
8b10: 48 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e HERE R.rid IN
8b20: 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 $theset --
8b30: 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 Restrict to revi
8b40: 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 sions of interes
8b50: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e t.. AND R.
8b60: 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c child IS NOT NUL
8b70: 4c 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d L -- Has prim
8b80: 61 72 79 20 63 68 69 6c 64 0a 09 20 20 20 20 41 ary child.. A
8b90: 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 20 49 4e ND R.child IN
8ba0: 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 $theset --
8bb0: 57 68 69 63 68 20 69 73 20 61 6c 73 6f 20 6f 66 Which is also of
8bc0: 20 69 6e 74 65 72 65 73 74 0a 20 20 20 20 55 4e interest. UN
8bd0: 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 32 29 20 53 ION. -- (2) S
8be0: 65 63 6f 6e 64 61 72 79 20 28 62 72 61 6e 63 68 econdary (branch
8bf0: 29 20 63 68 69 6c 64 72 65 6e 0a 09 20 20 20 20 ) children..
8c00: 53 45 4c 45 43 54 20 52 2e 72 69 64 20 41 53 20 SELECT R.rid AS
8c10: 78 72 69 64 2c 20 42 2e 62 72 69 64 20 41 53 20 xrid, B.brid AS
8c20: 78 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d xchild.. FROM
8c30: 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 revision R, r
8c40: 65 76 69 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 evisionbranchchi
8c50: 6c 64 72 65 6e 20 42 0a 09 20 20 20 20 57 48 45 ldren B.. WHE
8c60: 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 RE R.rid IN $
8c70: 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 theset -- Re
8c80: 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 strict to revisi
8c90: 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a ons of interest.
8ca0: 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 72 69 . AND R.ri
8cb0: 64 20 3d 20 42 2e 72 69 64 20 20 20 20 20 20 20 d = B.rid
8cc0: 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 73 75 62 -- Select sub
8cd0: 73 65 74 20 6f 66 20 62 72 61 6e 63 68 20 63 68 set of branch ch
8ce0: 69 6c 64 72 65 6e 0a 09 20 20 20 20 41 4e 44 20 ildren.. AND
8cf0: 20 20 20 42 2e 62 72 69 64 20 49 4e 20 24 74 68 B.brid IN $th
8d00: 65 73 65 74 20 20 20 20 20 20 2d 2d 20 57 68 69 eset -- Whi
8d10: 63 68 20 69 73 20 61 6c 73 6f 20 6f 66 20 69 6e ch is also of in
8d20: 74 65 72 65 73 74 0a 20 20 20 20 55 4e 49 4f 4e terest. UNION
8d30: 0a 20 20 20 20 2d 2d 20 28 34 29 20 43 68 69 6c . -- (4) Chil
8d40: 64 20 6f 66 20 74 72 75 6e 6b 20 72 6f 6f 74 20 d of trunk root
8d50: 73 75 63 63 65 73 73 6f 72 20 6f 66 20 6c 61 73 successor of las
8d60: 74 20 4e 54 44 42 20 6f 6e 20 74 72 75 6e 6b 2e t NTDB on trunk.
8d70: 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 .. SELECT R.r
8d80: 69 64 20 41 53 20 78 72 69 64 2c 20 52 41 2e 63 id AS xrid, RA.c
8d90: 68 69 6c 64 20 41 53 20 78 63 68 69 6c 64 0a 09 hild AS xchild..
8da0: 20 20 20 20 46 52 4f 4d 20 72 65 76 69 73 69 6f FROM revisio
8db0: 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 n R, revision RA
8dc0: 0a 09 20 20 20 20 57 48 45 52 45 20 52 2e 72 69 .. WHERE R.ri
8dd0: 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 d IN $theset
8de0: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
8df0: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
8e00: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
8e10: 44 20 20 20 52 2e 69 73 64 65 66 61 75 6c 74 20 D R.isdefault
8e20: 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 52 -- R
8e30: 65 73 74 72 69 63 74 20 74 6f 20 4e 54 44 42 0a estrict to NTDB.
8e40: 09 20 20 20 20 41 4e 44 20 20 20 52 2e 64 62 63 . AND R.dbc
8e50: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
8e60: 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 74 20 4e -- and last N
8e70: 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f TDB belonging to
8e80: 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 4e 44 20 trunk.. AND
8e90: 20 20 52 41 2e 72 69 64 20 3d 20 52 2e 64 62 63 RA.rid = R.dbc
8ea0: 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 47 6f 20 hild -- Go
8eb0: 64 69 72 65 63 74 6c 79 20 74 6f 20 74 72 75 6e directly to trun
8ec0: 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 4e 44 20 k root.. AND
8ed0: 20 20 52 41 2e 63 68 69 6c 64 20 49 53 20 4e 4f RA.child IS NO
8ee0: 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 61 73 T NULL -- Has
8ef0: 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 2e 0a primary child..
8f00: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
8f10: 20 20 52 41 2e 63 68 69 6c 64 20 49 4e 20 24 74 RA.child IN $t
8f20: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 57 68 69 heset -- Whi
8f30: 63 68 20 69 73 20 61 6c 73 6f 20 6f 66 20 69 6e ch is also of in
8f40: 74 65 72 65 73 74 0a 09 7d 5d 20 7b 0a 09 20 20 terest..}] {..
8f50: 20 20 23 20 43 6f 6e 73 69 64 65 72 20 6d 6f 76 # Consider mov
8f60: 69 6e 67 20 74 68 69 73 20 74 6f 20 74 68 65 20 ing this to the
8f70: 69 6e 74 65 67 72 69 74 79 20 6d 6f 64 75 6c 65 integrity module
8f80: 2e 0a 09 20 20 20 20 69 6e 74 65 67 72 69 74 79 ... integrity
8f90: 20 61 73 73 65 72 74 20 7b 24 78 72 69 64 20 21 assert {$xrid !
8fa0: 3d 20 24 78 63 68 69 6c 64 7d 20 7b 52 65 76 69 = $xchild} {Revi
8fb0: 73 69 6f 6e 20 24 78 72 69 64 20 64 65 70 65 6e sion $xrid depen
8fc0: 64 73 20 6f 6e 20 69 74 73 65 6c 66 2e 7d 0a 09 ds on itself.}..
8fd0: 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 lappend depe
8fe0: 6e 64 65 6e 63 69 65 73 28 24 78 72 69 64 29 20 ndencies($xrid)
8ff0: 24 78 63 68 69 6c 64 0a 09 20 20 20 20 73 65 74 $xchild.. set
9000: 20 64 65 70 28 24 78 72 69 64 2c 24 78 63 68 69 dep($xrid,$xchi
9010: 6c 64 29 20 2e 0a 09 7d 0a 0a 09 23 20 54 68 65 ld) ...}...# The
9020: 20 73 71 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 sql statements
9030: 61 62 6f 76 65 20 6c 6f 6f 6b 73 20 6f 6e 6c 79 above looks only
9040: 20 66 6f 72 20 64 69 72 65 63 74 20 64 65 70 65 for direct depe
9050: 6e 64 65 6e 63 69 65 73 0a 09 23 20 62 65 74 77 ndencies..# betw
9060: 65 65 6e 20 72 65 76 69 73 69 6f 6e 20 69 6e 20 een revision in
9070: 74 68 65 20 63 68 61 6e 67 65 73 65 74 2e 20 48 the changeset. H
9080: 6f 77 65 76 65 72 20 64 75 65 20 74 6f 20 74 68 owever due to th
9090: 65 0a 09 23 20 76 61 67 61 72 69 65 73 20 6f 66 e..# vagaries of
90a0: 20 6d 65 74 61 20 64 61 74 61 20 69 74 20 69 73 meta data it is
90b0: 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 77 possible for tw
90c0: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 0a 09 o revisions of..
90d0: 23 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 # the same file
90e0: 74 6f 20 65 6e 64 20 75 70 20 69 6e 20 74 68 65 to end up in the
90f0: 20 73 61 6d 65 20 63 68 61 6e 67 65 73 65 74 2c same changeset,
9100: 20 77 69 74 68 6f 75 74 20 61 0a 09 23 20 64 69 without a..# di
9110: 72 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 20 rect dependency
9120: 62 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 48 6f between them. Ho
9130: 77 65 76 65 72 20 77 65 20 6b 6e 6f 77 20 74 68 wever we know th
9140: 61 74 20 74 68 65 72 65 0a 09 23 20 68 61 73 20 at there..# has
9150: 74 6f 20 62 65 20 61 20 61 6e 20 69 6e 64 69 72 to be a an indir
9160: 65 63 74 20 64 65 70 65 6e 64 65 6e 63 79 2c 20 ect dependency,
9170: 62 65 20 69 74 20 74 68 72 6f 75 67 68 20 70 72 be it through pr
9180: 69 6d 61 72 79 0a 09 23 20 63 68 69 6c 64 72 65 imary..# childre
9190: 6e 2c 20 62 72 61 6e 63 68 20 63 68 69 6c 64 72 n, branch childr
91a0: 65 6e 2c 20 6f 72 20 61 20 63 6f 6d 62 69 6e 61 en, or a combina
91b0: 74 69 6f 6e 20 74 68 65 72 65 6f 66 2e 0a 0a 09 tion thereof....
91c0: 23 20 57 65 20 6e 6f 77 20 66 69 6c 6c 20 69 6e # We now fill in
91d0: 20 74 68 65 73 65 20 70 73 65 75 64 6f 2d 64 65 these pseudo-de
91e0: 70 65 6e 64 65 6e 63 69 65 73 2c 20 69 66 20 6e pendencies, if n
91f0: 6f 20 73 75 63 68 0a 09 23 20 64 65 70 65 6e 64 o such..# depend
9200: 65 6e 63 79 20 65 78 69 73 74 73 20 61 6c 72 65 ency exists alre
9210: 61 64 79 2e 20 54 68 65 20 64 69 72 65 63 74 69 ady. The directi
9220: 6f 6e 20 6f 66 20 74 68 65 20 64 65 70 65 6e 64 on of the depend
9230: 65 6e 63 79 0a 09 23 20 69 73 20 61 63 74 75 61 ency..# is actua
9240: 6c 6c 79 20 69 72 72 65 6c 65 76 61 6e 74 20 66 lly irrelevant f
9250: 6f 72 20 74 68 69 73 2e 0a 0a 09 23 20 4e 4f 54 or this....# NOT
9260: 45 3a 20 54 68 69 73 20 69 73 20 64 69 66 66 65 E: This is diffe
9270: 72 65 6e 74 20 66 72 6f 6d 20 63 76 73 32 73 76 rent from cvs2sv
9280: 6e 2e 20 4f 75 72 20 73 70 69 72 69 74 75 61 6c n. Our spiritual
9290: 20 61 6e 63 65 73 74 6f 72 0a 09 23 20 64 6f 65 ancestor..# doe
92a0: 73 20 6e 6f 74 20 75 73 65 20 73 75 63 68 20 70 s not use such p
92b0: 73 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 seudo-dependenci
92c0: 65 73 2c 20 68 6f 77 65 76 65 72 20 69 74 20 75 es, however it u
92d0: 73 65 73 20 61 0a 09 23 20 43 4f 4d 4d 49 54 5f ses a..# COMMIT_
92e0: 54 48 52 45 53 48 4f 4c 44 2c 20 61 20 74 69 6d THRESHOLD, a tim
92f0: 65 20 69 6e 74 65 72 76 61 6c 20 63 6f 6d 6d 69 e interval commi
9300: 74 73 20 73 68 6f 75 6c 64 20 66 61 6c 6c 2e 20 ts should fall.
9310: 54 68 69 73 0a 09 23 20 77 69 6c 6c 20 67 72 65 This..# will gre
9320: 61 74 6c 79 20 72 65 64 75 63 65 73 20 74 68 65 atly reduces the
9330: 20 72 69 73 6b 20 6f 66 20 67 65 74 74 69 6e 67 risk of getting
9340: 20 66 61 72 20 73 65 70 61 72 61 74 65 64 0a 09 far separated..
9350: 23 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 74 # revisions of t
9360: 68 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e 74 he same file int
9370: 6f 20 6f 6e 65 20 63 68 61 6e 67 65 73 65 74 2e o one changeset.
9380: 0a 0a 09 23 20 57 65 20 61 6c 6c 6f 77 20 72 65 ...# We allow re
9390: 76 69 73 69 6f 6e 73 20 74 6f 20 62 65 20 66 61 visions to be fa
93a0: 72 20 61 70 61 72 74 20 69 6e 20 74 69 6d 65 20 r apart in time
93b0: 69 6e 20 74 68 65 20 73 61 6d 65 0a 09 23 20 63 in the same..# c
93c0: 68 61 6e 67 65 73 65 74 2c 20 62 75 74 20 69 6e hangeset, but in
93d0: 20 74 75 72 6e 20 6e 65 65 64 20 74 68 65 20 70 turn need the p
93e0: 73 65 75 64 6f 2d 64 65 70 65 6e 64 65 6e 63 69 seudo-dependenci
93f0: 65 73 20 74 6f 0a 09 23 20 68 61 6e 64 6c 65 20 es to..# handle
9400: 74 68 69 73 2e 0a 0a 09 6c 6f 67 20 77 72 69 74 this....log writ
9410: 65 20 31 34 20 63 73 65 74 73 20 7b 69 6e 74 65 e 14 csets {inte
9420: 72 6e 61 6c 20 20 5b 61 72 72 61 79 20 73 69 7a rnal [array siz
9430: 65 20 64 65 70 5d 7d 0a 09 6c 6f 67 20 77 72 69 e dep]}..log wri
9440: 74 65 20 31 34 20 63 73 65 74 73 20 7b 63 6f 6c te 14 csets {col
9450: 6c 65 63 74 65 64 20 5b 61 72 72 61 79 20 73 69 lected [array si
9460: 7a 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 5d ze dependencies]
9470: 7d 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 34 20 }..log write 14
9480: 63 73 65 74 73 20 70 73 65 75 64 6f 2d 69 6e 74 csets pseudo-int
9490: 65 72 6e 61 6c 73 75 63 63 65 73 73 6f 72 73 0a ernalsuccessors.
94a0: 0a 09 61 72 72 61 79 20 73 65 74 20 66 69 64 73 ..array set fids
94b0: 20 7b 7d 0a 09 73 74 61 74 65 20 66 6f 72 65 61 {}..state forea
94c0: 63 68 72 6f 77 20 5b 73 75 62 73 74 20 2d 6e 6f chrow [subst -no
94d0: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
94e0: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 slashes {.. S
94f0: 45 4c 45 43 54 20 52 2e 72 69 64 20 41 53 20 78 ELECT R.rid AS x
9500: 72 69 64 2c 20 52 2e 66 69 64 20 41 53 20 78 66 rid, R.fid AS xf
9510: 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 46 id. F
9520: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
9530: 0a 20 20 20 20 20 20 20 20 20 20 20 20 57 48 45 . WHE
9540: 52 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 RE R.rid IN $th
9550: 65 73 65 74 0a 09 7d 5d 20 7b 20 6c 61 70 70 65 eset..}] { lappe
9560: 6e 64 20 66 69 64 73 28 24 78 66 69 64 29 20 24 nd fids($xfid) $
9570: 78 72 69 64 20 7d 0a 0a 09 73 65 74 20 67 72 6f xrid }...set gro
9580: 75 70 73 20 7b 7d 0a 09 66 6f 72 65 61 63 68 20 ups {}..foreach
9590: 7b 66 69 64 20 72 69 64 73 7d 20 5b 61 72 72 61 {fid rids} [arra
95a0: 79 20 67 65 74 20 66 69 64 73 5d 20 7b 0a 09 20 y get fids] {..
95b0: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 if {[llength
95c0: 24 72 69 64 73 5d 20 3c 20 32 7d 20 63 6f 6e 74 $rids] < 2} cont
95d0: 69 6e 75 65 0a 09 20 20 20 20 66 6f 72 65 61 63 inue.. foreac
95e0: 68 20 61 20 24 72 69 64 73 20 7b 0a 09 09 66 6f h a $rids {...fo
95f0: 72 65 61 63 68 20 62 20 24 72 69 64 73 20 7b 0a reach b $rids {.
9600: 09 09 20 20 20 20 69 66 20 7b 24 61 20 3d 3d 20 .. if {$a ==
9610: 24 62 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 $b} continue...
9620: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
9630: 73 74 73 20 64 65 70 28 24 61 2c 24 62 29 5d 7d sts dep($a,$b)]}
9640: 20 63 6f 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 continue...
9650: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
9660: 20 64 65 70 28 24 62 2c 24 61 29 5d 7d 20 63 6f dep($b,$a)]} co
9670: 6e 74 69 6e 75 65 0a 09 09 20 20 20 20 6c 61 70 ntinue... lap
9680: 70 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 pend dependencie
9690: 73 28 24 61 29 20 24 62 0a 09 09 20 20 20 20 73 s($a) $b... s
96a0: 65 74 20 64 65 70 28 24 61 2c 24 62 29 20 2e 0a et dep($a,$b) ..
96b0: 09 09 20 20 20 20 73 65 74 20 64 65 70 28 24 62 .. set dep($b
96c0: 2c 24 61 29 20 2e 0a 09 09 7d 0a 09 20 20 20 20 ,$a) ....}..
96d0: 7d 0a 09 20 20 20 20 73 65 74 20 6e 20 5b 6c 6c }.. set n [ll
96e0: 65 6e 67 74 68 20 24 72 69 64 73 5d 0a 09 20 20 ength $rids]..
96f0: 20 20 6c 61 70 70 65 6e 64 20 67 72 6f 75 70 73 lappend groups
9700: 20 5b 6c 69 73 74 20 24 6e 20 5b 65 78 70 72 20 [list $n [expr
9710: 7b 28 24 6e 2a 24 6e 2d 24 6e 29 2f 32 7d 5d 5d {($n*$n-$n)/2}]]
9720: 0a 09 7d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 ..}...log write
9730: 31 34 20 63 73 65 74 73 20 7b 70 73 65 75 64 6f 14 csets {pseudo
9740: 20 20 20 20 5b 61 72 72 61 79 20 73 69 7a 65 20 [array size
9750: 66 69 64 73 5d 20 28 5b 6c 73 6f 72 74 20 2d 69 fids] ([lsort -i
9760: 6e 64 65 78 20 30 20 2d 64 65 63 72 65 61 73 69 ndex 0 -decreasi
9770: 6e 67 20 2d 69 6e 74 65 67 65 72 20 24 67 72 6f ng -integer $gro
9780: 75 70 73 5d 29 7d 0a 09 6c 6f 67 20 77 72 69 74 ups])}..log writ
9790: 65 20 31 34 20 63 73 65 74 73 20 7b 69 6e 74 65 e 14 csets {inte
97a0: 72 6e 61 6c 20 20 5b 61 72 72 61 79 20 73 69 7a rnal [array siz
97b0: 65 20 64 65 70 5d 7d 0a 09 6c 6f 67 20 77 72 69 e dep]}..log wri
97c0: 74 65 20 31 34 20 63 73 65 74 73 20 7b 63 6f 6c te 14 csets {col
97d0: 6c 65 63 74 65 64 20 5b 61 72 72 61 79 20 73 69 lected [array si
97e0: 7a 65 20 64 65 70 65 6e 64 65 6e 63 69 65 73 5d ze dependencies]
97f0: 7d 0a 09 6c 6f 67 20 77 72 69 74 65 20 31 34 20 }..log write 14
9800: 63 73 65 74 73 20 63 6f 6d 70 6c 65 74 65 0a 09 csets complete..
9810: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
9820: 20 20 23 20 72 65 73 75 6c 74 20 3d 20 34 2d 6c # result = 4-l
9830: 69 73 74 20 28 69 74 65 6d 74 79 70 65 20 69 74 ist (itemtype it
9840: 65 6d 69 64 20 6e 65 78 74 69 74 65 6d 74 79 70 emid nextitemtyp
9850: 65 20 6e 65 78 74 69 74 65 6d 69 64 20 2e 2e 2e e nextitemid ...
9860: 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 ). typemethod
9870: 20 6c 6f 6f 70 73 20 7b 72 65 76 69 73 69 6f 6e loops {revision
9880: 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 3a 20 54 61 s} {..# Note: Ta
9890: 67 73 20 61 6e 64 20 62 72 61 6e 63 68 65 73 20 gs and branches
98a0: 63 61 6e 6e 6f 74 20 63 61 75 73 65 20 74 68 65 cannot cause the
98b0: 20 6c 6f 6f 70 2e 20 54 68 65 69 72 20 69 64 27 loop. Their id'
98c0: 73 2c 0a 09 23 20 62 65 69 6e 67 20 6f 66 20 61 s,..# being of a
98d0: 20 66 75 6e 64 61 6d 65 6e 74 61 6c 6c 79 20 64 fundamentally d
98e0: 69 66 66 65 72 65 6e 74 20 74 79 70 65 20 74 68 ifferent type th
98f0: 61 6e 20 74 68 65 20 72 65 76 69 73 69 6f 6e 73 an the revisions
9900: 0a 09 23 20 63 6f 6d 69 6e 67 20 69 6e 20 63 61 ..# coming in ca
9910: 6e 6e 6f 74 20 62 65 20 69 6e 20 74 68 65 20 73 nnot be in the s
9920: 65 74 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 et....set theset
9930: 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 ('[join $revisi
9940: 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a 09 72 65 ons {','}]')..re
9950: 74 75 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 turn [state run
9960: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
9970: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
9980: 73 20 7b 0a 09 20 20 20 20 2d 2d 20 28 31 29 20 s {.. -- (1)
9990: 50 72 69 6d 61 72 79 20 63 68 69 6c 64 0a 09 20 Primary child..
99a0: 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c SELECT R.rid,
99b0: 20 52 2e 63 68 69 6c 64 0a 09 20 20 20 20 46 52 R.child.. FR
99c0: 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 0a OM revision R.
99d0: 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 . WHERE R.ri
99e0: 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 d IN $theset
99f0: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
9a00: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 o revisions of i
9a10: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
9a20: 20 20 20 20 52 2e 63 68 69 6c 64 20 49 53 20 4e R.child IS N
9a30: 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 48 61 OT NULL -- Ha
9a40: 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c 64 0a s primary child.
9a50: 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 68 . AND R.ch
9a60: 69 6c 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 ild IN $theset
9a70: 20 20 20 2d 2d 20 4c 6f 6f 70 0a 09 20 20 20 20 -- Loop..
9a80: 2d 2d 0a 09 20 20 20 20 55 4e 49 4f 4e 0a 09 20 --.. UNION..
9a90: 20 20 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 -- (2) Second
9aa0: 61 72 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 ary (branch) chi
9ab0: 6c 64 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 ldren.. SELEC
9ac0: 54 20 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a T R.rid, B.brid.
9ad0: 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 . FROM revi
9ae0: 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e sion R, revision
9af0: 62 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 branchchildren B
9b00: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
9b10: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
9b20: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
9b30: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
9b40: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
9b50: 44 20 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 D R.rid = B.r
9b60: 69 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 id -- S
9b70: 65 6c 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 elect subset of
9b80: 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a branch children.
9b90: 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e 72 69 . AND B.ri
9ba0: 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 d IN $theset
9bb0: 20 20 20 2d 2d 20 4c 6f 6f 70 0a 09 20 20 20 20 -- Loop..
9bc0: 2d 2d 0a 09 20 20 20 20 55 4e 49 4f 4e 0a 09 20 --.. UNION..
9bd0: 20 20 20 2d 2d 20 28 34 29 20 43 68 69 6c 64 20 -- (4) Child
9be0: 6f 66 20 74 72 75 6e 6b 20 72 6f 6f 74 20 73 75 of trunk root su
9bf0: 63 63 65 73 73 6f 72 20 6f 66 20 6c 61 73 74 20 ccessor of last
9c00: 4e 54 44 42 20 6f 6e 20 74 72 75 6e 6b 2e 0a 09 NTDB on trunk...
9c10: 20 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 SELECT R.rid
9c20: 2c 20 52 41 2e 63 68 69 6c 64 0a 09 20 20 20 20 , RA.child..
9c30: 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 FROM revision
9c40: 52 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 0a 09 R, revision RA..
9c50: 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 WHERE R.rid
9c60: 20 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 20 IN $theset
9c70: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
9c80: 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 o revisions of i
9c90: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
9ca0: 20 20 20 20 52 2e 69 73 64 65 66 61 75 6c 74 20 R.isdefault
9cb0: 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 52 -- R
9cc0: 65 73 74 72 69 63 74 20 74 6f 20 4e 54 44 42 0a estrict to NTDB.
9cd0: 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 64 62 . AND R.db
9ce0: 63 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c child IS NOT NUL
9cf0: 4c 20 20 20 2d 2d 20 61 6e 64 20 6c 61 73 74 20 L -- and last
9d00: 4e 54 44 42 20 62 65 6c 6f 6e 67 69 6e 67 20 74 NTDB belonging t
9d10: 6f 20 74 72 75 6e 6b 0a 09 20 20 20 20 41 4e 44 o trunk.. AND
9d20: 20 20 20 20 52 41 2e 72 69 64 20 3d 20 52 2e 64 RA.rid = R.d
9d30: 62 63 68 69 6c 64 20 20 20 20 20 20 2d 2d 20 47 bchild -- G
9d40: 6f 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 72 o directly to tr
9d50: 75 6e 6b 20 72 6f 6f 74 0a 09 20 20 20 20 41 4e unk root.. AN
9d60: 44 20 20 20 20 52 41 2e 63 68 69 6c 64 20 49 53 D RA.child IS
9d70: 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 2d 2d 20 NOT NULL --
9d80: 48 61 73 20 70 72 69 6d 61 72 79 20 63 68 69 6c Has primary chil
9d90: 64 2e 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 d... AND R
9da0: 41 2e 63 68 69 6c 64 20 49 4e 20 24 74 68 65 73 A.child IN $thes
9db0: 65 74 20 20 20 20 20 2d 2d 20 4c 6f 6f 70 0a 09 et -- Loop..
9dc0: 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 }]]. }.. #
9dd0: 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 20 var(dv) = dict
9de0: 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 69 (item -> list (i
9df0: 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 6c tem)), item = l
9e00: 69 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 20 ist (type id).
9e10: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 63 typemethod suc
9e20: 63 65 73 73 6f 72 73 20 7b 64 76 20 72 65 76 69 cessors {dv revi
9e30: 73 69 6f 6e 73 7d 20 7b 0a 09 75 70 76 61 72 20 sions} {..upvar
9e40: 31 20 24 64 76 20 64 65 70 65 6e 64 65 6e 63 69 1 $dv dependenci
9e50: 65 73 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 es..set theset (
9e60: 27 5b 6a 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e '[join $revision
9e70: 73 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 23 20 54 s {','}]')...# T
9e80: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 73 he following cas
9e90: 65 73 20 73 70 65 63 69 66 79 20 77 68 65 6e 20 es specify when
9ea0: 61 20 72 65 76 69 73 69 6f 6e 20 53 20 69 73 20 a revision S is
9eb0: 61 20 73 75 63 63 65 73 73 6f 72 0a 09 23 20 6f a successor..# o
9ec0: 66 20 61 20 72 65 76 69 73 69 6f 6e 20 52 2e 20 f a revision R.
9ed0: 45 61 63 68 20 6f 66 20 74 68 65 20 63 61 73 65 Each of the case
9ee0: 73 20 74 72 61 6e 73 6c 61 74 65 73 20 69 6e 74 s translates int
9ef0: 6f 20 6f 6e 65 20 6f 66 0a 09 23 20 74 68 65 20 o one of..# the
9f00: 62 72 61 6e 63 68 65 73 20 6f 66 20 74 68 65 20 branches of the
9f10: 53 51 4c 20 55 4e 49 4f 4e 20 63 6f 6d 69 6e 67 SQL UNION coming
9f20: 20 62 65 6c 6f 77 2e 0a 09 23 0a 09 23 20 28 31 below...#..# (1
9f30: 29 20 53 20 63 61 6e 20 62 65 20 61 20 70 72 69 ) S can be a pri
9f40: 6d 61 72 79 20 63 68 69 6c 64 20 6f 66 20 52 2c mary child of R,
9f50: 20 69 2e 65 2e 20 69 6e 20 74 68 65 20 73 61 6d i.e. in the sam
9f60: 65 20 4c 4f 44 2e 20 52 0a 09 23 20 20 20 20 20 e LOD. R..#
9f70: 72 65 66 65 72 65 6e 63 65 73 20 53 20 64 69 72 references S dir
9f80: 65 63 74 6c 79 2e 20 52 2e 63 68 69 6c 64 20 3d ectly. R.child =
9f90: 20 53 28 2e 72 69 64 29 2c 20 69 66 20 69 74 20 S(.rid), if it
9fa0: 65 78 69 73 74 73 2e 0a 09 23 0a 09 23 20 28 32 exists...#..# (2
9fb0: 29 20 53 20 63 61 6e 20 62 65 20 61 20 73 65 63 ) S can be a sec
9fc0: 6f 6e 64 61 72 79 2c 20 69 2e 65 2e 20 62 72 61 ondary, i.e. bra
9fd0: 6e 63 68 2c 20 63 68 69 6c 64 20 6f 66 20 52 2e nch, child of R.
9fe0: 20 48 65 72 65 20 74 68 65 0a 09 23 20 20 20 20 Here the..#
9ff0: 20 6c 69 6e 6b 20 69 73 20 6d 61 64 65 20 74 68 link is made th
a000: 72 6f 75 67 68 20 74 68 65 20 68 65 6c 70 65 72 rough the helper
a010: 20 74 61 62 6c 65 0a 09 23 20 20 20 20 20 52 45 table..# RE
a020: 56 49 53 49 4f 4e 42 52 41 4e 43 48 43 48 49 4c VISIONBRANCHCHIL
a030: 44 52 45 4e 2e 20 52 2e 72 69 64 20 2d 3e 20 52 DREN. R.rid -> R
a040: 42 43 2e 72 69 64 2c 20 52 42 43 2e 62 72 69 64 BC.rid, RBC.brid
a050: 20 3d 0a 09 23 20 20 20 20 20 53 28 2e 72 69 64 =..# S(.rid
a060: 29 0a 09 23 0a 09 23 20 28 33 29 20 4f 72 69 67 )..#..# (3) Orig
a070: 69 6e 61 6c 6c 79 20 74 68 69 73 20 75 73 65 20 inally this use
a080: 63 61 73 65 20 64 65 66 69 6e 65 64 20 74 68 65 case defined the
a090: 20 72 6f 6f 74 20 6f 66 20 61 20 64 65 74 61 63 root of a detac
a0a0: 68 65 64 0a 09 23 20 20 20 20 20 4e 54 44 42 20 hed..# NTDB
a0b0: 61 73 20 74 68 65 20 73 75 63 63 65 73 73 6f 72 as the successor
a0c0: 20 6f 66 20 74 68 65 20 74 72 75 6e 6b 20 72 6f of the trunk ro
a0d0: 6f 74 2e 20 54 68 69 73 20 6c 65 61 64 73 20 74 ot. This leads t
a0e0: 6f 20 61 0a 09 23 20 20 20 20 20 62 61 64 20 74 o a..# bad t
a0f0: 61 6e 67 6c 65 20 6c 61 74 65 72 20 6f 6e 2e 20 angle later on.
a100: 57 69 74 68 20 61 20 64 65 74 61 63 68 65 64 20 With a detached
a110: 4e 54 44 42 20 74 68 65 20 6f 72 69 67 69 6e 61 NTDB the origina
a120: 6c 0a 09 23 20 20 20 20 20 74 72 75 6e 6b 20 72 l..# trunk r
a130: 6f 6f 74 20 72 65 76 69 73 69 6f 6e 20 77 61 73 oot revision was
a140: 20 72 65 6d 6f 76 65 64 20 61 73 20 69 72 72 65 removed as irre
a150: 6c 65 76 61 6e 74 2c 20 61 6c 6c 6f 77 69 6e 67 levant, allowing
a160: 0a 09 23 20 20 20 20 20 74 68 65 20 6e 6f 6d 69 ..# the nomi
a170: 6e 61 6c 20 72 6f 6f 74 20 74 6f 20 62 65 20 6c nal root to be l
a180: 61 74 65 72 20 69 6e 20 74 69 6d 65 20 74 68 61 ater in time tha
a190: 6e 20 74 68 65 20 4e 54 44 42 0a 09 23 20 20 20 n the NTDB..#
a1a0: 20 20 72 6f 6f 74 2e 20 4e 6f 77 20 73 65 74 74 root. Now sett
a1b0: 69 6e 67 20 74 68 69 73 20 64 65 70 65 6e 64 65 ing this depende
a1c0: 6e 63 79 20 77 69 6c 6c 20 62 65 20 62 61 63 6b ncy will be back
a1d0: 77 61 72 64 20 69 6e 0a 09 23 20 20 20 20 20 74 ward in..# t
a1e0: 69 6d 65 2e 20 52 45 4d 4f 56 45 44 2e 0a 09 23 ime. REMOVED...#
a1f0: 0a 09 23 20 28 34 29 20 49 66 20 52 20 69 73 20 ..# (4) If R is
a200: 74 68 65 20 6c 61 73 74 20 6f 66 20 74 68 65 20 the last of the
a210: 4e 54 44 42 20 72 65 76 69 73 69 6f 6e 73 20 77 NTDB revisions w
a220: 68 69 63 68 20 62 65 6c 6f 6e 67 20 74 6f 0a 09 hich belong to..
a230: 23 20 20 20 20 20 74 68 65 20 74 72 75 6e 6b 2c # the trunk,
a240: 20 74 68 65 6e 20 74 68 65 20 70 72 69 6d 61 72 then the primar
a250: 79 20 63 68 69 6c 64 20 6f 66 20 74 68 65 20 74 y child of the t
a260: 72 75 6e 6b 20 72 6f 6f 74 20 28 74 68 65 0a 09 runk root (the..
a270: 23 20 20 20 20 20 27 31 2e 32 27 20 72 65 76 69 # '1.2' revi
a280: 73 69 6f 6e 29 20 69 73 20 61 20 73 75 63 63 65 sion) is a succe
a290: 73 73 6f 72 2c 20 69 66 20 69 74 20 65 78 69 73 ssor, if it exis
a2a0: 74 73 2e 0a 0a 09 23 20 4e 6f 74 65 20 74 68 61 ts....# Note tha
a2b0: 74 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 73 t the branches s
a2c0: 70 61 77 6e 65 64 20 66 72 6f 6d 20 74 68 65 20 pawned from the
a2d0: 72 65 76 69 73 69 6f 6e 73 2c 20 61 6e 64 20 74 revisions, and t
a2e0: 68 65 0a 09 23 20 74 61 67 73 20 61 73 73 6f 63 he..# tags assoc
a2f0: 69 61 74 65 64 20 77 69 74 68 20 74 68 65 6d 20 iated with them
a300: 61 72 65 20 73 75 63 63 65 73 73 6f 72 73 20 61 are successors a
a310: 73 20 77 65 6c 6c 2e 0a 0a 09 23 66 6f 72 65 61 s well....#forea
a320: 63 68 72 6f 77 0a 09 66 6f 72 65 61 63 68 20 7b chrow..foreach {
a330: 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 rid child} [stat
a340: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
a350: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
a360: 73 6c 61 73 68 65 73 20 7b 0a 20 20 20 20 2d 2d slashes {. --
a370: 20 28 31 29 20 50 72 69 6d 61 72 79 20 63 68 69 (1) Primary chi
a380: 6c 64 0a 09 20 20 20 20 53 45 4c 45 43 54 20 52 ld.. SELECT R
a390: 2e 72 69 64 2c 20 52 2e 63 68 69 6c 64 0a 09 20 .rid, R.child..
a3a0: 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 FROM revisi
a3b0: 6f 6e 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 on R.. WHERE
a3c0: 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 65 R.rid IN $the
a3d0: 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 set -- Restr
a3e0: 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 ict to revisions
a3f0: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 of interest..
a400: 20 20 41 4e 44 20 20 20 20 52 2e 63 68 69 6c 64 AND R.child
a410: 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 20 IS NOT NULL
a420: 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 63 -- Has primary c
a430: 68 69 6c 64 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 hild. UNION.
a440: 20 20 20 2d 2d 20 28 32 29 20 53 65 63 6f 6e 64 -- (2) Second
a450: 61 72 79 20 28 62 72 61 6e 63 68 29 20 63 68 69 ary (branch) chi
a460: 6c 64 72 65 6e 0a 09 20 20 20 20 53 45 4c 45 43 ldren.. SELEC
a470: 54 20 52 2e 72 69 64 2c 20 42 2e 62 72 69 64 0a T R.rid, B.brid.
a480: 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 76 69 . FROM revi
a490: 73 69 6f 6e 20 52 2c 20 72 65 76 69 73 69 6f 6e sion R, revision
a4a0: 62 72 61 6e 63 68 63 68 69 6c 64 72 65 6e 20 42 branchchildren B
a4b0: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
a4c0: 69 64 20 20 20 49 4e 20 24 74 68 65 73 65 74 20 id IN $theset
a4d0: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
a4e0: 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 20 to revisions of
a4f0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
a500: 44 20 20 20 20 52 2e 72 69 64 20 3d 20 42 2e 72 D R.rid = B.r
a510: 69 64 20 20 20 20 20 20 20 20 20 20 2d 2d 20 53 id -- S
a520: 65 6c 65 63 74 20 73 75 62 73 65 74 20 6f 66 20 elect subset of
a530: 62 72 61 6e 63 68 20 63 68 69 6c 64 72 65 6e 0a branch children.
a540: 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d UNION. --
a550: 20 28 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 (4) Child of tr
a560: 75 6e 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 unk root success
a570: 6f 72 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 or of last NTDB
a580: 6f 6e 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 on trunk... S
a590: 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 52 41 2e ELECT R.rid, RA.
a5a0: 63 68 69 6c 64 0a 09 20 20 20 20 46 52 4f 4d 20 child.. FROM
a5b0: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
a5c0: 73 69 6f 6e 20 52 41 0a 09 20 20 20 20 57 48 45 sion RA.. WHE
a5d0: 52 45 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 RE R.rid IN $t
a5e0: 68 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 heset -- Re
a5f0: 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 strict to revisi
a600: 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a ons of interest.
a610: 09 20 20 20 20 41 4e 44 20 20 20 52 2e 69 73 64 . AND R.isd
a620: 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 efault
a630: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
a640: 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 o NTDB.. AND
a650: 20 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 4e R.dbchild IS N
a660: 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e 64 OT NULL -- and
a670: 20 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f 6e last NTDB belon
a680: 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 20 ging to trunk..
a690: 20 20 20 41 4e 44 20 20 20 52 41 2e 72 69 64 20 AND RA.rid
a6a0: 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 20 20 20 = R.dbchild
a6b0: 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c 79 20 -- Go directly
a6c0: 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a 09 20 to trunk root..
a6d0: 20 20 20 41 4e 44 20 20 20 52 41 2e 63 68 69 6c AND RA.chil
a6e0: 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c 20 20 20 d IS NOT NULL
a6f0: 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 72 79 20 -- Has primary
a700: 63 68 69 6c 64 2e 0a 09 7d 5d 5d 20 7b 0a 09 20 child...}]] {..
a710: 20 20 20 23 20 43 6f 6e 73 69 64 65 72 20 6d 6f # Consider mo
a720: 76 69 6e 67 20 74 68 69 73 20 74 6f 20 74 68 65 ving this to the
a730: 20 69 6e 74 65 67 72 69 74 79 20 6d 6f 64 75 6c integrity modul
a740: 65 2e 0a 09 20 20 20 20 69 6e 74 65 67 72 69 74 e... integrit
a750: 79 20 61 73 73 65 72 74 20 7b 24 72 69 64 20 21 y assert {$rid !
a760: 3d 20 24 63 68 69 6c 64 7d 20 7b 52 65 76 69 73 = $child} {Revis
a770: 69 6f 6e 20 24 72 69 64 20 64 65 70 65 6e 64 73 ion $rid depends
a780: 20 6f 6e 20 69 74 73 65 6c 66 2e 7d 0a 09 20 20 on itself.}..
a790: 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 lappend depend
a7a0: 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 72 65 76 encies([list rev
a7b0: 20 24 72 69 64 5d 29 20 5b 6c 69 73 74 20 72 65 $rid]) [list re
a7c0: 76 20 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 23 66 v $child]..}..#f
a7d0: 6f 72 65 61 63 68 72 6f 77 0a 09 66 6f 72 65 61 oreachrow..forea
a7e0: 63 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b ch {rid child} [
a7f0: 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 state run [subst
a800: 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f -nocommands -no
a810: 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 backslashes {..
a820: 20 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c SELECT R.rid,
a830: 20 54 2e 74 69 64 0a 09 20 20 20 20 46 52 4f 4d T.tid.. FROM
a840: 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 74 revision R, t
a850: 61 67 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 ag T.. WHERE
a860: 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 73 65 R.rid IN $these
a870: 74 20 20 20 20 20 20 20 2d 2d 20 52 65 73 74 72 t -- Restr
a880: 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 ict to revisions
a890: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 of interest..
a8a0: 20 20 41 4e 44 20 20 20 20 54 2e 72 65 76 20 3d AND T.rev =
a8b0: 20 52 2e 72 69 64 20 20 20 20 20 20 20 20 20 20 R.rid
a8c0: 2d 2d 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 -- Select tags a
a8d0: 74 74 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a ttached to them.
a8e0: 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 .}]] {.. lapp
a8f0: 65 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 end dependencies
a900: 28 5b 6c 69 73 74 20 72 65 76 20 24 72 69 64 5d ([list rev $rid]
a910: 29 20 5b 6c 69 73 74 20 73 79 6d 3a 3a 74 61 67 ) [list sym::tag
a920: 20 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 23 66 6f $child]..}..#fo
a930: 72 65 61 63 68 72 6f 77 0a 09 66 6f 72 65 61 63 reachrow..foreac
a940: 68 20 7b 72 69 64 20 63 68 69 6c 64 7d 20 5b 73 h {rid child} [s
a950: 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 tate run [subst
a960: 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 -nocommands -nob
a970: 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 ackslashes {..
a980: 20 20 53 45 4c 45 43 54 20 52 2e 72 69 64 2c 20 SELECT R.rid,
a990: 42 2e 62 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 B.bid.. FROM
a9a0: 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 62 72 revision R, br
a9b0: 61 6e 63 68 20 42 0a 09 20 20 20 20 57 48 45 52 anch B.. WHER
a9c0: 45 20 20 52 2e 72 69 64 20 49 4e 20 24 74 68 65 E R.rid IN $the
a9d0: 73 65 74 20 20 20 20 20 20 20 2d 2d 20 52 65 73 set -- Res
a9e0: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
a9f0: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
aa00: 20 20 20 20 41 4e 44 20 20 20 20 42 2e 72 6f 6f AND B.roo
aa10: 74 20 3d 20 52 2e 72 69 64 20 20 20 20 20 20 20 t = R.rid
aa20: 20 20 2d 2d 20 53 65 6c 65 63 74 20 62 72 61 6e -- Select bran
aa30: 63 68 65 73 20 61 74 74 61 63 68 65 64 20 74 6f ches attached to
aa40: 20 74 68 65 6d 0a 09 7d 5d 5d 20 7b 0a 09 20 20 them..}]] {..
aa50: 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 lappend depend
aa60: 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 72 65 76 encies([list rev
aa70: 20 24 72 69 64 5d 29 20 5b 6c 69 73 74 20 73 79 $rid]) [list sy
aa80: 6d 3a 3a 62 72 61 6e 63 68 20 24 63 68 69 6c 64 m::branch $child
aa90: 5d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 ]..}..return.
aaa0: 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 }.. # result
aab0: 20 3d 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 = list (changes
aac0: 65 74 2d 69 64 29 0a 20 20 20 20 74 79 70 65 6d et-id). typem
aad0: 65 74 68 6f 64 20 63 73 5f 73 75 63 63 65 73 73 ethod cs_success
aae0: 6f 72 73 20 7b 72 65 76 69 73 69 6f 6e 73 7d 20 ors {revisions}
aaf0: 7b 0a 20 20 20 20 20 20 20 20 23 20 54 68 69 73 {. # This
ab00: 20 69 73 20 61 20 76 61 72 69 61 6e 74 20 6f 66 is a variant of
ab10: 20 27 73 75 63 63 65 73 73 6f 72 73 27 20 77 68 'successors' wh
ab20: 69 63 68 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 ich maps the low
ab30: 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 23 -level. #
ab40: 20 64 61 74 61 20 64 69 72 65 63 74 6c 79 20 74 data directly t
ab50: 6f 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 o the associated
ab60: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 changesets. I.e
ab70: 2e 20 69 6e 73 74 65 61 64 0a 20 20 20 20 20 20 . instead.
ab80: 20 20 23 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 # millions of
ab90: 64 65 70 65 6e 64 65 6e 63 79 20 70 61 69 72 73 dependency pairs
aba0: 20 28 69 6e 20 65 78 74 72 65 6d 65 20 63 61 73 (in extreme cas
abb0: 65 73 20 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c es (Example: Tcl
abc0: 0a 20 20 20 20 20 20 20 20 23 20 43 56 53 29 29 . # CVS))
abd0: 20 77 65 20 72 65 74 75 72 6e 20 61 20 76 65 72 we return a ver
abe0: 79 20 73 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 y short and much
abf0: 20 6d 6f 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 more manageable
ac00: 20 6c 69 73 74 0a 20 20 20 20 20 20 20 20 23 20 list. #
ac10: 6f 66 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a of changesets...
ac20: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
ac30: 6f 69 6e 20 24 72 65 76 69 73 69 6f 6e 73 20 7b oin $revisions {
ac40: 27 2c 27 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 ','}]')..return
ac50: 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 [state run [subs
ac60: 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e t -nocommands -n
ac70: 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 20 obackslashes {.
ac80: 20 20 20 2d 2d 20 28 31 29 20 50 72 69 6d 61 72 -- (1) Primar
ac90: 79 20 63 68 69 6c 64 0a 09 20 20 20 20 53 45 4c y child.. SEL
aca0: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
acb0: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
acc0: 2c 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 , csitem CI, cha
acd0: 6e 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 ngeset C.. WH
ace0: 45 52 45 20 20 52 2e 72 69 64 20 20 20 49 4e 20 ERE R.rid IN
acf0: 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 $theset -- R
ad00: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
ad10: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
ad20: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 52 2e 63 .. AND R.c
ad30: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
ad40: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
ad50: 72 79 20 63 68 69 6c 64 0a 20 20 20 20 20 20 20 ry child.
ad60: 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 2e 69 AND CI.i
ad70: 69 64 20 3d 20 52 2e 63 68 69 6c 64 20 20 20 20 id = R.child
ad80: 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 6c 6c -- Select all
ad90: 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 changesets.
ada0: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
adb0: 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 20 20 20 .cid = CI.cid
adc0: 20 20 20 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e -- contain
add0: 69 6e 67 20 74 68 65 20 70 72 69 6d 61 72 79 20 ing the primary
ade0: 63 68 69 6c 64 0a 20 20 20 20 20 20 20 20 20 20 child.
adf0: 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 AND C.type
ae00: 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 = 0
ae10: 2d 2d 20 77 68 69 63 68 20 61 72 65 20 72 65 76 -- which are rev
ae20: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 ision changesets
ae30: 0a 20 20 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d . UNION. -
ae40: 2d 20 28 32 29 20 53 65 63 6f 6e 64 61 72 79 20 - (2) Secondary
ae50: 28 62 72 61 6e 63 68 29 20 63 68 69 6c 64 72 65 (branch) childre
ae60: 6e 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e n.. SELECT C.
ae70: 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 cid.. FROM
ae80: 72 65 76 69 73 69 6f 6e 20 52 2c 20 72 65 76 69 revision R, revi
ae90: 73 69 6f 6e 62 72 61 6e 63 68 63 68 69 6c 64 72 sionbranchchildr
aea0: 65 6e 20 42 2c 20 63 73 69 74 65 6d 20 43 49 2c en B, csitem CI,
aeb0: 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 20 20 changeset C..
aec0: 20 20 57 48 45 52 45 20 20 52 2e 72 69 64 20 20 WHERE R.rid
aed0: 20 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 IN $theset
aee0: 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 72 -- Restrict to r
aef0: 65 76 69 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 evisions of inte
af00: 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 rest.. AND
af10: 20 52 2e 72 69 64 20 3d 20 42 2e 72 69 64 20 20 R.rid = B.rid
af20: 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 -- Selec
af30: 74 20 73 75 62 73 65 74 20 6f 66 20 62 72 61 6e t subset of bran
af40: 63 68 20 63 68 69 6c 64 72 65 6e 0a 20 20 20 20 ch children.
af50: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
af60: 49 2e 69 69 64 20 3d 20 42 2e 62 72 69 64 20 20 I.iid = B.brid
af70: 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 -- Select
af80: 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 all changesets.
af90: 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 AND
afa0: 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 C.cid = CI.cid
afb0: 09 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 . -- containing
afc0: 20 74 68 65 20 62 72 61 6e 63 68 0a 20 20 20 20 the branch.
afd0: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
afe0: 2e 74 79 70 65 20 3d 20 30 09 09 20 20 2d 2d 20 .type = 0.. --
aff0: 77 68 69 63 68 20 61 72 65 20 72 65 76 69 73 69 which are revisi
b000: 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 on changesets.
b010: 20 20 55 4e 49 4f 4e 0a 20 20 20 20 2d 2d 20 28 UNION. -- (
b020: 34 29 20 43 68 69 6c 64 20 6f 66 20 74 72 75 6e 4) Child of trun
b030: 6b 20 72 6f 6f 74 20 73 75 63 63 65 73 73 6f 72 k root successor
b040: 20 6f 66 20 6c 61 73 74 20 4e 54 44 42 20 6f 6e of last NTDB on
b050: 20 74 72 75 6e 6b 2e 0a 09 20 20 20 20 53 45 4c trunk... SEL
b060: 45 43 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 ECT C.cid.. F
b070: 52 4f 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 ROM revision R
b080: 2c 20 72 65 76 69 73 69 6f 6e 20 52 41 2c 20 63 , revision RA, c
b090: 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 sitem CI, change
b0a0: 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 45 set C.. WHERE
b0b0: 20 20 52 2e 72 69 64 20 20 20 49 4e 20 24 74 68 R.rid IN $th
b0c0: 65 73 65 74 20 20 20 20 20 20 2d 2d 20 52 65 73 eset -- Res
b0d0: 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 69 6f trict to revisio
b0e0: 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 ns of interest..
b0f0: 20 20 20 20 41 4e 44 20 20 20 20 52 2e 69 73 64 AND R.isd
b100: 65 66 61 75 6c 74 20 20 20 20 20 20 20 20 20 20 efault
b110: 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 -- Restrict t
b120: 6f 20 4e 54 44 42 0a 09 20 20 20 20 41 4e 44 20 o NTDB.. AND
b130: 20 20 20 52 2e 64 62 63 68 69 6c 64 20 49 53 20 R.dbchild IS
b140: 4e 4f 54 20 4e 55 4c 4c 20 20 20 2d 2d 20 61 6e NOT NULL -- an
b150: 64 20 6c 61 73 74 20 4e 54 44 42 20 62 65 6c 6f d last NTDB belo
b160: 6e 67 69 6e 67 20 74 6f 20 74 72 75 6e 6b 0a 09 nging to trunk..
b170: 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e 72 69 AND RA.ri
b180: 64 20 3d 20 52 2e 64 62 63 68 69 6c 64 20 20 20 d = R.dbchild
b190: 20 20 20 2d 2d 20 47 6f 20 64 69 72 65 63 74 6c -- Go directl
b1a0: 79 20 74 6f 20 74 72 75 6e 6b 20 72 6f 6f 74 0a y to trunk root.
b1b0: 09 20 20 20 20 41 4e 44 20 20 20 20 52 41 2e 63 . AND RA.c
b1c0: 68 69 6c 64 20 49 53 20 4e 4f 54 20 4e 55 4c 4c hild IS NOT NULL
b1d0: 20 20 20 20 2d 2d 20 48 61 73 20 70 72 69 6d 61 -- Has prima
b1e0: 72 79 20 63 68 69 6c 64 2e 0a 20 20 20 20 20 20 ry child..
b1f0: 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 2e AND CI.
b200: 69 69 64 20 3d 20 52 41 2e 63 68 69 6c 64 20 20 iid = RA.child
b210: 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 -- Select a
b220: 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 ll changesets.
b230: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
b240: 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 64 09 C.cid = CI.cid.
b250: 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 6e 67 -- containing
b260: 20 74 68 65 20 70 72 69 6d 61 72 79 20 63 68 69 the primary chi
b270: 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 ld. A
b280: 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 30 ND C.type = 0
b290: 09 09 20 20 20 2d 2d 20 77 68 69 63 68 20 61 72 .. -- which ar
b2a0: 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 e revision chang
b2b0: 65 73 65 74 73 0a 20 20 20 20 55 4e 49 4f 4e 0a esets. UNION.
b2c0: 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e 63 69 . SELECT C.ci
b2d0: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 72 65 d.. FROM re
b2e0: 76 69 73 69 6f 6e 20 52 2c 20 74 61 67 20 54 2c vision R, tag T,
b2f0: 20 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e csitem CI, chan
b300: 67 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 geset C.. WHE
b310: 52 45 20 20 52 2e 72 69 64 20 69 6e 20 24 74 68 RE R.rid in $th
b320: 65 73 65 74 20 20 20 20 20 20 20 20 2d 2d 20 52 eset -- R
b330: 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 73 estrict to revis
b340: 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 74 ions of interest
b350: 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 2e 72 .. AND T.r
b360: 65 76 20 3d 20 52 2e 72 69 64 09 20 20 20 2d 2d ev = R.rid. --
b370: 20 53 65 6c 65 63 74 20 74 61 67 73 20 61 74 74 Select tags att
b380: 61 63 68 65 64 20 74 6f 20 74 68 65 6d 0a 20 20 ached to them.
b390: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
b3a0: 20 43 49 2e 69 69 64 20 3d 20 54 2e 74 69 64 20 CI.iid = T.tid
b3b0: 20 20 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 -- Sele
b3c0: 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 ct all changeset
b3d0: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
b3e0: 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e D C.cid = CI.
b3f0: 63 69 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 cid. -- contai
b400: 6e 69 6e 67 20 74 68 65 20 74 61 67 73 0a 20 20 ning the tags.
b410: 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 AND
b420: 20 43 2e 74 79 70 65 20 3d 20 31 09 09 20 20 20 C.type = 1..
b430: 2d 2d 20 77 68 69 63 68 20 61 72 65 20 74 61 67 -- which are tag
b440: 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 changesets.
b450: 55 4e 49 4f 4e 0a 09 20 20 20 20 53 45 4c 45 43 UNION.. SELEC
b460: 54 20 43 2e 63 69 64 0a 09 20 20 20 20 46 52 4f T C.cid.. FRO
b470: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 M revision R,
b480: 62 72 61 6e 63 68 20 42 2c 20 63 73 69 74 65 6d branch B, csitem
b490: 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 CI, changeset C
b4a0: 0a 09 20 20 20 20 57 48 45 52 45 20 20 52 2e 72 .. WHERE R.r
b4b0: 69 64 20 69 6e 20 24 74 68 65 73 65 74 20 20 20 id in $theset
b4c0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
b4d0: 20 74 6f 20 72 65 76 69 73 69 6f 6e 73 20 6f 66 to revisions of
b4e0: 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 interest.. A
b4f0: 4e 44 20 20 20 20 42 2e 72 6f 6f 74 20 3d 20 52 ND B.root = R
b500: 2e 72 69 64 09 20 20 20 2d 2d 20 53 65 6c 65 63 .rid. -- Selec
b510: 74 20 62 72 61 6e 63 68 65 73 20 61 74 74 61 63 t branches attac
b520: 68 65 64 20 74 6f 20 74 68 65 6d 0a 20 20 20 20 hed to them.
b530: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 AND C
b540: 49 2e 69 69 64 20 3d 20 42 2e 62 69 64 20 20 20 I.iid = B.bid
b550: 20 20 20 20 20 20 20 2d 2d 20 53 65 6c 65 63 74 -- Select
b560: 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 74 73 0a all changesets.
b570: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
b580: 20 20 20 43 2e 63 69 64 20 3d 20 43 49 2e 63 69 C.cid = CI.ci
b590: 64 09 20 20 20 2d 2d 20 63 6f 6e 74 61 69 6e 69 d. -- containi
b5a0: 6e 67 20 74 68 65 20 62 72 61 6e 63 68 65 73 0a ng the branches.
b5b0: 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 AND
b5c0: 20 20 20 43 2e 74 79 70 65 20 3d 20 32 09 09 20 C.type = 2..
b5d0: 20 20 2d 2d 20 77 68 69 63 68 20 61 72 65 20 62 -- which are b
b5e0: 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 74 73 ranch changesets
b5f0: 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 ..}]]. }..
b600: 20 23 20 72 65 73 75 6c 74 20 3d 20 73 79 6d 62 # result = symb
b610: 6f 6c 20 6e 61 6d 65 0a 20 20 20 20 74 79 70 65 ol name. type
b620: 6d 65 74 68 6f 64 20 63 73 5f 6c 6f 64 20 7b 72 method cs_lod {r
b630: 65 76 69 73 69 6f 6e 73 7d 20 7b 0a 09 23 20 44 evisions} {..# D
b640: 65 74 65 72 6d 69 6e 65 73 20 74 68 65 20 6e 61 etermines the na
b650: 6d 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c me of the symbol
b660: 20 77 68 69 63 68 20 69 73 20 74 68 65 20 6c 69 which is the li
b670: 6e 65 20 6f 66 0a 09 23 20 64 65 76 65 6c 6f 70 ne of..# develop
b680: 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 72 65 76 ment for the rev
b690: 69 73 69 6f 6e 73 20 69 6e 20 61 20 63 68 61 6e isions in a chan
b6a0: 67 65 73 65 74 2e 0a 0a 09 73 65 74 20 74 68 65 geset....set the
b6b0: 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 72 65 76 set ('[join $rev
b6c0: 69 73 69 6f 6e 73 20 7b 27 2c 27 7d 5d 27 29 0a isions {','}]').
b6d0: 09 72 65 74 75 72 6e 20 5b 73 74 61 74 65 20 72 .return [state r
b6e0: 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d un [subst -nocom
b6f0: 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 mands -nobacksla
b700: 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 shes {.. SELE
b710: 43 54 0a 09 20 20 20 20 44 49 53 54 49 4e 43 54 CT.. DISTINCT
b720: 20 4c 2e 6e 61 6d 65 0a 09 20 20 20 20 46 52 4f L.name.. FRO
b730: 4d 20 20 20 72 65 76 69 73 69 6f 6e 20 52 2c 20 M revision R,
b740: 73 79 6d 62 6f 6c 20 4c 0a 09 20 20 20 20 57 48 symbol L.. WH
b750: 45 52 45 20 20 52 2e 72 69 64 20 69 6e 20 24 74 ERE R.rid in $t
b760: 68 65 73 65 74 20 20 20 20 20 20 20 20 2d 2d 20 heset --
b770: 52 65 73 74 72 69 63 74 20 74 6f 20 72 65 76 69 Restrict to revi
b780: 73 69 6f 6e 73 20 6f 66 20 69 6e 74 65 72 65 73 sions of interes
b790: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 4c 2e t.. AND L.
b7a0: 73 69 64 20 3d 20 52 2e 6c 6f 64 20 20 20 20 20 sid = R.lod
b7b0: 20 20 20 20 20 20 2d 2d 20 47 65 74 20 6c 6f 64 -- Get lod
b7c0: 20 73 79 6d 62 6f 6c 20 6f 66 20 72 65 76 69 73 symbol of revis
b7d0: 69 6f 6e 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 7d ion..}]]. }.}
b7e0: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
b7f0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
b800: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
b810: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
b820: 23 23 20 48 65 6c 70 65 72 20 73 69 6e 67 6c 65 ## Helper single
b830: 74 6f 6e 2e 20 43 6f 6d 6d 61 6e 64 73 20 66 6f ton. Commands fo
b840: 72 20 74 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 r tag symbol cha
b850: 6e 67 65 73 65 74 73 2e 0a 0a 73 6e 69 74 3a 3a ngesets...snit::
b860: 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 type ::vc::fossi
b870: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
b880: 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a 73 79 project::rev::sy
b890: 6d 3a 3a 74 61 67 20 7b 0a 20 20 20 20 74 79 70 m::tag {. typ
b8a0: 65 6d 65 74 68 6f 64 20 62 79 72 65 76 69 73 69 emethod byrevisi
b8b0: 6f 6e 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 on {} { return 0
b8c0: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
b8d0: 64 20 62 79 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 d bysymbol {}
b8e0: 7b 20 72 65 74 75 72 6e 20 31 20 7d 0a 20 20 20 { return 1 }.
b8f0: 20 74 79 70 65 6d 65 74 68 6f 64 20 69 73 74 61 typemethod ista
b900: 67 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 g {} { retu
b910: 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 65 6d rn 1 }. typem
b920: 65 74 68 6f 64 20 69 73 62 72 61 6e 63 68 20 20 ethod isbranch
b930: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d {} { return 0 }
b940: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
b950: 20 73 74 72 20 7b 74 61 67 7d 20 7b 0a 09 73 74 str {tag} {..st
b960: 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 ruct::list assig
b970: 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 n [state run {..
b980: 20 20 20 20 53 45 4c 45 43 54 20 53 2e 6e 61 6d SELECT S.nam
b990: 65 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d e, F.name, P.nam
b9a0: 65 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 74 61 e.. FROM ta
b9b0: 67 20 54 2c 20 73 79 6d 62 6f 6c 20 53 2c 20 66 g T, symbol S, f
b9c0: 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 20 50 ile F, project P
b9d0: 0a 09 20 20 20 20 57 48 45 52 45 20 20 54 2e 74 .. WHERE T.t
b9e0: 69 64 20 3d 20 24 74 61 67 20 20 20 2d 2d 20 46 id = $tag -- F
b9f0: 69 6e 64 20 73 70 65 63 69 66 69 65 64 20 74 61 ind specified ta
ba00: 67 0a 09 20 20 20 20 41 4e 44 20 20 20 20 46 2e g.. AND F.
ba10: 66 69 64 20 3d 20 54 2e 66 69 64 20 20 2d 2d 20 fid = T.fid --
ba20: 47 65 74 20 66 69 6c 65 20 6f 66 20 74 61 67 0a Get file of tag.
ba30: 09 20 20 20 20 41 4e 44 20 20 20 20 50 2e 70 69 . AND P.pi
ba40: 64 20 3d 20 46 2e 70 69 64 20 20 2d 2d 20 47 65 d = F.pid -- Ge
ba50: 74 20 70 72 6f 6a 65 63 74 20 6f 66 20 66 69 6c t project of fil
ba60: 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 53 2e e.. AND S.
ba70: 73 69 64 20 3d 20 54 2e 73 69 64 20 20 2d 2d 20 sid = T.sid --
ba80: 47 65 74 20 73 79 6d 62 6f 6c 20 6f 66 20 74 61 Get symbol of ta
ba90: 67 0a 09 7d 5d 20 73 6e 61 6d 65 20 66 6e 61 6d g..}] sname fnam
baa0: 65 20 70 6e 61 6d 65 0a 09 72 65 74 75 72 6e 20 e pname..return
bab0: 22 24 70 6e 61 6d 65 2f 54 27 24 7b 73 6e 61 6d "$pname/T'${snam
bac0: 65 7d 27 3a 3a 24 66 6e 61 6d 65 22 0a 20 20 20 e}'::$fname".
bad0: 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 }.. # result
bae0: 20 3d 20 6c 69 73 74 20 28 6d 69 6e 74 69 6d 65 = list (mintime
baf0: 2c 20 6d 61 78 74 69 6d 65 29 0a 20 20 20 20 74 , maxtime). t
bb00: 79 70 65 6d 65 74 68 6f 64 20 74 69 6d 65 72 61 ypemethod timera
bb10: 6e 67 65 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 nge {tags} {..#
bb20: 54 68 65 20 72 61 6e 67 65 20 69 73 20 64 65 66 The range is def
bb30: 69 6e 65 64 20 61 73 20 74 68 65 20 72 61 6e 67 ined as the rang
bb40: 65 20 6f 66 20 74 68 65 20 72 65 76 69 73 69 6f e of the revisio
bb50: 6e 73 20 74 68 65 20 74 61 67 73 0a 09 23 20 61 ns the tags..# a
bb60: 72 65 20 61 74 74 61 63 68 65 64 20 74 6f 2e 0a re attached to..
bb70: 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b ..set theset ('[
bb80: 6a 6f 69 6e 20 24 74 61 67 73 20 7b 27 2c 27 7d join $tags {','}
bb90: 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 ]')..return [sta
bba0: 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e te run [subst -n
bbb0: 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 ocommands -nobac
bbc0: 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 kslashes {..
bbd0: 53 45 4c 45 43 54 20 4d 49 4e 28 52 2e 64 61 74 SELECT MIN(R.dat
bbe0: 65 29 2c 20 4d 41 58 28 52 2e 64 61 74 65 29 0a e), MAX(R.date).
bbf0: 09 20 20 20 20 46 52 4f 4d 20 20 20 74 61 67 20 . FROM tag
bc00: 54 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 T, revision R..
bc10: 20 20 20 57 48 45 52 45 20 20 54 2e 74 69 64 20 WHERE T.tid
bc20: 49 4e 20 24 74 68 65 73 65 74 20 20 2d 2d 20 52 IN $theset -- R
bc30: 65 73 74 72 69 63 74 20 74 6f 20 74 61 67 73 20 estrict to tags
bc40: 6f 66 20 69 6e 74 65 72 65 73 74 0a 20 20 20 20 of interest.
bc50: 20 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 52 AND R
bc60: 2e 72 69 64 20 3d 20 54 2e 72 65 76 20 20 20 20 .rid = T.rev
bc70: 20 2d 2d 20 53 65 6c 65 63 74 20 74 61 67 20 70 -- Select tag p
bc80: 61 72 65 6e 74 20 72 65 76 69 73 69 6f 6e 73 0a arent revisions.
bc90: 09 7d 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 .}]]. }..
bca0: 23 20 76 61 72 28 64 76 29 20 3d 20 64 69 63 74 # var(dv) = dict
bcb0: 20 28 69 74 65 6d 20 2d 3e 20 6c 69 73 74 20 28 (item -> list (
bcc0: 69 74 65 6d 29 29 2c 20 69 74 65 6d 20 20 3d 20 item)), item =
bcd0: 6c 69 73 74 20 28 74 79 70 65 20 69 64 29 0a 20 list (type id).
bce0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 75 typemethod su
bcf0: 63 63 65 73 73 6f 72 73 20 7b 64 76 20 74 61 67 ccessors {dv tag
bd00: 73 7d 20 7b 0a 09 23 20 54 61 67 73 20 68 61 76 s} {..# Tags hav
bd10: 65 20 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 2e e no successors.
bd20: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
bd30: 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 34 # result = 4
bd40: 2d 6c 69 73 74 20 28 69 74 65 6d 74 79 70 65 20 -list (itemtype
bd50: 69 74 65 6d 69 64 20 6e 65 78 74 69 74 65 6d 74 itemid nextitemt
bd60: 79 70 65 20 6e 65 78 74 69 74 65 6d 69 64 20 2e ype nextitemid .
bd70: 2e 2e 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 ..). typemeth
bd80: 6f 64 20 6c 6f 6f 70 73 20 7b 74 61 67 73 7d 20 od loops {tags}
bd90: 7b 0a 09 23 20 54 61 67 73 20 68 61 76 65 20 6e {..# Tags have n
bda0: 6f 20 73 75 63 63 65 73 73 6f 72 73 2c 20 74 68 o successors, th
bdb0: 65 72 65 66 6f 72 65 20 63 61 6e 6e 6f 74 20 63 erefore cannot c
bdc0: 61 75 73 65 20 6c 6f 6f 70 73 0a 09 72 65 74 75 ause loops..retu
bdd0: 72 6e 20 7b 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 rn {}. }..
bde0: 20 23 20 72 65 73 75 6c 74 20 3d 20 6c 69 73 74 # result = list
bdf0: 20 28 63 68 61 6e 67 65 73 65 74 2d 69 64 29 0a (changeset-id).
be00: 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 63 typemethod c
be10: 73 5f 73 75 63 63 65 73 73 6f 72 73 20 7b 74 61 s_successors {ta
be20: 67 73 7d 20 7b 0a 09 23 20 54 61 67 73 20 68 61 gs} {..# Tags ha
be30: 76 65 20 6e 6f 20 73 75 63 63 65 73 73 6f 72 73 ve no successors
be40: 2e 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ...return. }.
be50: 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d 20 . # result =
be60: 73 79 6d 62 6f 6c 20 6e 61 6d 65 0a 20 20 20 20 symbol name.
be70: 74 79 70 65 6d 65 74 68 6f 64 20 63 73 5f 6c 6f typemethod cs_lo
be80: 64 20 7b 74 61 67 73 7d 20 7b 0a 09 23 20 44 65 d {tags} {..# De
be90: 74 65 72 6d 69 6e 65 73 20 74 68 65 20 6e 61 6d termines the nam
bea0: 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 e of the symbol
beb0: 77 68 69 63 68 20 69 73 20 74 68 65 20 6c 69 6e which is the lin
bec0: 65 20 6f 66 0a 09 23 20 64 65 76 65 6c 6f 70 6d e of..# developm
bed0: 65 6e 74 20 66 6f 72 20 74 68 65 20 74 61 67 73 ent for the tags
bee0: 20 69 6e 20 61 20 63 68 61 6e 67 65 73 65 74 2e in a changeset.
bef0: 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 27 ...set theset ('
bf00: 5b 6a 6f 69 6e 20 24 74 61 67 73 20 7b 27 2c 27 [join $tags {','
bf10: 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 }]')..return [st
bf20: 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d ate run [subst -
bf30: 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 nocommands -noba
bf40: 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 ckslashes {..
bf50: 20 53 45 4c 45 43 54 0a 09 20 20 20 20 44 49 53 SELECT.. DIS
bf60: 54 49 4e 43 54 20 4c 2e 6e 61 6d 65 0a 09 20 20 TINCT L.name..
bf70: 20 20 46 52 4f 4d 20 20 20 74 61 67 20 54 2c 20 FROM tag T,
bf80: 73 79 6d 62 6f 6c 20 4c 0a 09 20 20 20 20 57 48 symbol L.. WH
bf90: 45 52 45 20 20 54 2e 74 69 64 20 69 6e 20 24 74 ERE T.tid in $t
bfa0: 68 65 73 65 74 20 20 20 20 20 20 20 20 2d 2d 20 heset --
bfb0: 52 65 73 74 72 69 63 74 20 74 6f 20 74 61 67 73 Restrict to tags
bfc0: 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 of interest..
bfd0: 20 20 41 4e 44 20 20 20 20 4c 2e 73 69 64 20 3d AND L.sid =
bfe0: 20 54 2e 6c 6f 64 20 20 20 20 20 20 20 20 20 20 T.lod
bff0: 20 2d 2d 20 47 65 74 20 6c 6f 64 20 73 79 6d 62 -- Get lod symb
c000: 6f 6c 20 6f 66 20 74 61 67 0a 09 7d 5d 5d 0a 20 ol of tag..}]].
c010: 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 }.}..# # ## #
c020: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
c030: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 # #############
c040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
c050: 23 23 23 23 23 0a 23 23 20 48 65 6c 70 65 72 20 #####.## Helper
c060: 73 69 6e 67 6c 65 74 6f 6e 2e 20 43 6f 6d 6d 61 singleton. Comma
c070: 6e 64 73 20 66 6f 72 20 62 72 61 6e 63 68 20 73 nds for branch s
c080: 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 73 ymbol changesets
c090: 2e 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a ...snit::type ::
c0a0: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
c0b0: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 rt::cvs::project
c0c0: 3a 3a 72 65 76 3a 3a 73 79 6d 3a 3a 62 72 61 6e ::rev::sym::bran
c0d0: 63 68 20 7b 0a 20 20 20 20 74 79 70 65 6d 65 74 ch {. typemet
c0e0: 68 6f 64 20 62 79 72 65 76 69 73 69 6f 6e 20 7b hod byrevision {
c0f0: 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 20 } { return 0 }.
c100: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 62 79 typemethod by
c110: 73 79 6d 62 6f 6c 20 20 20 7b 7d 20 7b 20 72 65 symbol {} { re
c120: 74 75 72 6e 20 31 20 7d 0a 20 20 20 20 74 79 70 turn 1 }. typ
c130: 65 6d 65 74 68 6f 64 20 69 73 74 61 67 20 20 20 emethod istag
c140: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 {} { return 0
c150: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
c160: 64 20 69 73 62 72 61 6e 63 68 20 20 20 7b 7d 20 d isbranch {}
c170: 7b 20 72 65 74 75 72 6e 20 31 20 7d 0a 0a 20 20 { return 1 }..
c180: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 73 74 72 typemethod str
c190: 20 7b 62 72 61 6e 63 68 7d 20 7b 0a 09 73 74 72 {branch} {..str
c1a0: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e uct::list assign
c1b0: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
c1c0: 20 20 20 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 SELECT S.name
c1d0: 2c 20 46 2e 6e 61 6d 65 2c 20 50 2e 6e 61 6d 65 , F.name, P.name
c1e0: 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 .. FROM bra
c1f0: 6e 63 68 20 42 2c 20 73 79 6d 62 6f 6c 20 53 2c nch B, symbol S,
c200: 20 66 69 6c 65 20 46 2c 20 70 72 6f 6a 65 63 74 file F, project
c210: 20 50 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 P.. WHERE B
c220: 2e 62 69 64 20 3d 20 24 62 72 61 6e 63 68 20 20 .bid = $branch
c230: 2d 2d 20 46 69 6e 64 20 73 70 65 63 69 66 69 65 -- Find specifie
c240: 64 20 62 72 61 6e 63 68 0a 09 20 20 20 20 41 4e d branch.. AN
c250: 44 20 20 20 20 46 2e 66 69 64 20 3d 20 42 2e 66 D F.fid = B.f
c260: 69 64 20 20 20 20 2d 2d 20 47 65 74 20 66 69 6c id -- Get fil
c270: 65 20 6f 66 20 62 72 61 6e 63 68 0a 09 20 20 20 e of branch..
c280: 20 41 4e 44 20 20 20 20 50 2e 70 69 64 20 3d 20 AND P.pid =
c290: 46 2e 70 69 64 20 20 20 20 2d 2d 20 47 65 74 20 F.pid -- Get
c2a0: 70 72 6f 6a 65 63 74 20 6f 66 20 66 69 6c 65 0a project of file.
c2b0: 09 20 20 20 20 41 4e 44 20 20 20 20 53 2e 73 69 . AND S.si
c2c0: 64 20 3d 20 42 2e 73 69 64 20 20 20 20 2d 2d 20 d = B.sid --
c2d0: 47 65 74 20 73 79 6d 62 6f 6c 20 6f 66 20 62 72 Get symbol of br
c2e0: 61 6e 63 68 0a 09 7d 5d 20 73 6e 61 6d 65 20 66 anch..}] sname f
c2f0: 6e 61 6d 65 20 70 6e 61 6d 65 0a 09 72 65 74 75 name pname..retu
c300: 72 6e 20 22 24 70 6e 61 6d 65 2f 42 27 24 7b 73 rn "$pname/B'${s
c310: 6e 61 6d 65 7d 27 3a 3a 24 66 6e 61 6d 65 22 0a name}'::$fname".
c320: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 }.. # res
c330: 75 6c 74 20 3d 20 6c 69 73 74 20 28 6d 69 6e 74 ult = list (mint
c340: 69 6d 65 2c 20 6d 61 78 74 69 6d 65 29 0a 20 20 ime, maxtime).
c350: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 74 69 6d typemethod tim
c360: 65 72 61 6e 67 65 20 7b 62 72 61 6e 63 68 65 73 erange {branches
c370: 7d 20 7b 0a 09 23 20 54 68 65 20 72 61 6e 67 65 } {..# The range
c380: 20 6f 66 20 61 20 62 72 61 6e 63 68 20 69 73 20 of a branch is
c390: 64 65 66 69 6e 65 64 20 61 73 20 74 68 65 20 72 defined as the r
c3a0: 61 6e 67 65 20 6f 66 20 74 68 65 0a 09 23 20 72 ange of the..# r
c3b0: 65 76 69 73 69 6f 6e 73 20 74 68 65 20 62 72 61 evisions the bra
c3c0: 6e 63 68 65 73 20 61 72 65 20 73 70 61 77 6e 65 nches are spawne
c3d0: 64 20 62 79 2e 20 4e 4f 54 45 20 68 6f 77 65 76 d by. NOTE howev
c3e0: 65 72 20 74 68 61 74 20 74 68 65 0a 09 23 20 62 er that the..# b
c3f0: 72 61 6e 63 68 65 73 20 61 73 73 6f 63 69 61 74 ranches associat
c400: 65 64 20 77 69 74 68 20 61 20 64 65 74 61 63 68 ed with a detach
c410: 65 64 20 4e 54 44 42 20 77 69 6c 6c 20 68 61 76 ed NTDB will hav
c420: 65 20 6e 6f 20 72 6f 6f 74 0a 09 23 20 73 70 61 e no root..# spa
c430: 77 6e 69 6e 67 20 74 68 65 6d 2c 20 68 65 6e 63 wning them, henc
c440: 65 20 74 68 65 79 20 68 61 76 65 20 6e 6f 20 72 e they have no r
c450: 65 61 6c 20 74 69 6d 65 72 61 6e 67 65 20 61 6e eal timerange an
c460: 79 0a 09 23 20 6c 6f 6e 67 65 72 2e 20 42 79 20 y..# longer. By
c470: 75 73 69 6e 67 20 30 20 77 65 20 70 75 74 20 74 using 0 we put t
c480: 68 65 6d 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 hem in front of
c490: 65 76 65 72 79 74 68 69 6e 67 20 65 6c 73 65 2c everything else,
c4a0: 0a 09 23 20 61 73 20 74 68 65 79 20 6c 6f 67 69 ..# as they logi
c4b0: 63 61 6c 6c 79 20 61 72 65 2e 0a 0a 09 73 65 74 cally are....set
c4c0: 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 theset ('[join
c4d0: 24 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d $branches {','}]
c4e0: 27 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 ')..return [stat
c4f0: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
c500: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
c510: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 slashes {.. S
c520: 45 4c 45 43 54 20 49 46 4e 55 4c 4c 28 4d 49 4e ELECT IFNULL(MIN
c530: 28 52 2e 64 61 74 65 29 2c 30 29 2c 20 49 46 4e (R.date),0), IFN
c540: 55 4c 4c 28 4d 41 58 28 52 2e 64 61 74 65 29 2c ULL(MAX(R.date),
c550: 30 29 0a 09 20 20 20 20 46 52 4f 4d 20 20 62 72 0).. FROM br
c560: 61 6e 63 68 20 42 2c 20 72 65 76 69 73 69 6f 6e anch B, revision
c570: 20 52 0a 09 20 20 20 20 57 48 45 52 45 20 42 2e R.. WHERE B.
c580: 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 20 bid IN $theset
c590: 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 -- Restrict to
c5a0: 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 branches of inte
c5b0: 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 rest.
c5c0: 20 41 4e 44 20 20 20 52 2e 72 69 64 20 3d 20 42 AND R.rid = B
c5d0: 2e 72 6f 6f 74 20 20 20 20 20 2d 2d 20 53 65 6c .root -- Sel
c5e0: 65 63 74 20 62 72 61 6e 63 68 20 70 61 72 65 6e ect branch paren
c5f0: 74 20 72 65 76 69 73 69 6f 6e 73 0a 09 7d 5d 5d t revisions..}]]
c600: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 . }.. # re
c610: 73 75 6c 74 20 3d 20 34 2d 6c 69 73 74 20 28 69 sult = 4-list (i
c620: 74 65 6d 74 79 70 65 20 69 74 65 6d 69 64 20 6e temtype itemid n
c630: 65 78 74 69 74 65 6d 74 79 70 65 20 6e 65 78 74 extitemtype next
c640: 69 74 65 6d 69 64 20 2e 2e 2e 29 0a 20 20 20 20 itemid ...).
c650: 74 79 70 65 6d 65 74 68 6f 64 20 6c 6f 6f 70 73 typemethod loops
c660: 20 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 23 {branches} {..#
c670: 20 4e 6f 74 65 3a 20 52 65 76 69 73 69 6f 6e 73 Note: Revisions
c680: 20 61 6e 64 20 74 61 67 73 20 63 61 6e 6e 6f 74 and tags cannot
c690: 20 63 61 75 73 65 20 74 68 65 20 6c 6f 6f 70 2e cause the loop.
c6a0: 20 42 65 69 6e 67 20 6f 66 20 61 0a 09 23 20 66 Being of a..# f
c6b0: 75 6e 64 61 6d 65 6e 74 61 6c 6c 79 20 64 69 66 undamentally dif
c6c0: 66 65 72 65 6e 74 20 74 79 70 65 20 74 68 65 79 ferent type they
c6d0: 20 63 61 6e 6e 6f 74 20 62 65 20 69 6e 20 74 68 cannot be in th
c6e0: 65 20 69 6e 63 6f 6d 69 6e 67 0a 09 23 20 73 65 e incoming..# se
c6f0: 74 20 6f 66 20 69 64 73 2e 0a 0a 09 73 65 74 20 t of ids....set
c700: 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 24 theset ('[join $
c710: 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d 27 branches {','}]'
c720: 29 0a 09 72 65 74 75 72 6e 20 5b 73 74 61 74 65 )..return [state
c730: 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 run [subst -noc
c740: 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 ommands -nobacks
c750: 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 lashes {.. SE
c760: 4c 45 43 54 20 42 2e 62 69 64 2c 20 42 58 2e 62 LECT B.bid, BX.b
c770: 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 id.. FROM b
c780: 72 61 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 ranch B, prefere
c790: 64 70 61 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 dparent P, branc
c7a0: 68 20 42 58 0a 09 20 20 20 20 57 48 45 52 45 20 h BX.. WHERE
c7b0: 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 B.bid IN $these
c7c0: 74 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 t -- Restrict
c7d0: 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 to branches of i
c7e0: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
c7f0: 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 69 B.sid = P.pi
c800: 64 20 20 20 20 20 20 2d 2d 20 47 65 74 20 74 68 d -- Get th
c810: 65 20 70 72 65 66 65 72 65 64 20 62 72 61 6e 63 e prefered branc
c820: 68 65 73 20 76 69 61 0a 09 20 20 20 20 41 4e 44 hes via.. AND
c830: 20 20 20 20 42 58 2e 73 69 64 20 3d 20 50 2e 73 BX.sid = P.s
c840: 69 64 20 20 20 20 20 2d 2d 20 74 68 65 20 62 72 id -- the br
c850: 61 6e 63 68 20 73 79 6d 62 6f 6c 73 0a 09 20 20 anch symbols..
c860: 20 20 41 4e 44 20 20 20 20 42 58 2e 62 69 64 20 AND BX.bid
c870: 49 4e 20 24 74 68 65 73 65 74 20 20 2d 2d 20 4c IN $theset -- L
c880: 6f 6f 70 0a 09 7d 5d 5d 0a 20 20 20 20 7d 0a 0a oop..}]]. }..
c890: 20 20 20 20 23 20 76 61 72 28 64 76 29 20 3d 20 # var(dv) =
c8a0: 64 69 63 74 20 28 69 74 65 6d 20 2d 3e 20 6c 69 dict (item -> li
c8b0: 73 74 20 28 69 74 65 6d 29 29 2c 20 69 74 65 6d st (item)), item
c8c0: 20 20 3d 20 6c 69 73 74 20 28 74 79 70 65 20 69 = list (type i
c8d0: 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f d). typemetho
c8e0: 64 20 73 75 63 63 65 73 73 6f 72 73 20 7b 64 76 d successors {dv
c8f0: 20 62 72 61 6e 63 68 65 73 7d 20 7b 0a 09 75 70 branches} {..up
c900: 76 61 72 20 31 20 24 64 76 20 64 65 70 65 6e 64 var 1 $dv depend
c910: 65 6e 63 69 65 73 0a 09 23 20 54 68 65 20 66 69 encies..# The fi
c920: 72 73 74 20 72 65 76 69 73 69 6f 6e 20 63 6f 6d rst revision com
c930: 6d 69 74 74 65 64 20 6f 6e 20 61 20 62 72 61 6e mitted on a bran
c940: 63 68 2c 20 61 6e 64 20 61 6c 6c 20 62 72 61 6e ch, and all bran
c950: 63 68 65 73 0a 09 23 20 61 6e 64 20 74 61 67 73 ches..# and tags
c960: 20 77 68 69 63 68 20 68 61 76 65 20 69 74 20 61 which have it a
c970: 73 20 74 68 65 69 72 20 70 72 65 66 65 72 65 64 s their prefered
c980: 20 70 61 72 65 6e 74 20 61 72 65 20 74 68 65 0a parent are the.
c990: 09 23 20 73 75 63 63 65 73 73 6f 72 73 20 6f 66 .# successors of
c9a0: 20 61 20 62 72 61 6e 63 68 2e 0a 0a 09 73 65 74 a branch....set
c9b0: 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e 20 theset ('[join
c9c0: 24 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d 5d $branches {','}]
c9d0: 27 29 0a 09 23 66 6f 72 65 61 63 68 72 6f 77 0a ')..#foreachrow.
c9e0: 09 66 6f 72 65 61 63 68 20 7b 62 69 64 20 63 68 .foreach {bid ch
c9f0: 69 6c 64 7d 20 5b 73 74 61 74 65 20 72 75 6e 20 ild} [state run
ca00: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
ca10: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
ca20: 73 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 s {.. SELECT
ca30: 42 2e 62 69 64 2c 20 52 2e 72 69 64 0a 09 20 20 B.bid, R.rid..
ca40: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
ca50: 42 2c 20 72 65 76 69 73 69 6f 6e 20 52 0a 09 20 B, revision R..
ca60: 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 WHERE B.bid
ca70: 49 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d IN $theset -
ca80: 2d 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 72 - Restrict to br
ca90: 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 65 anches of intere
caa0: 73 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 st.. AND B
cab0: 2e 66 69 72 73 74 20 3d 20 52 2e 72 69 64 20 20 .first = R.rid
cac0: 20 20 20 20 2d 2d 20 47 65 74 20 66 69 72 73 74 -- Get first
cad0: 20 72 65 76 69 73 69 6f 6e 20 6f 6e 20 74 68 65 revision on the
cae0: 20 62 72 61 6e 63 68 0a 09 7d 5d 5d 20 7b 0a 09 branch..}]] {..
caf0: 20 20 20 20 6c 61 70 70 65 6e 64 20 64 65 70 65 lappend depe
cb00: 6e 64 65 6e 63 69 65 73 28 5b 6c 69 73 74 20 73 ndencies([list s
cb10: 79 6d 3a 3a 62 72 61 6e 63 68 20 24 62 69 64 5d ym::branch $bid]
cb20: 29 20 5b 6c 69 73 74 20 72 65 76 20 24 63 68 69 ) [list rev $chi
cb30: 6c 64 5d 0a 09 7d 0a 09 23 66 6f 72 65 61 63 68 ld]..}..#foreach
cb40: 72 6f 77 0a 09 66 6f 72 65 61 63 68 20 7b 62 69 row..foreach {bi
cb50: 64 20 63 68 69 6c 64 7d 20 5b 73 74 61 74 65 20 d child} [state
cb60: 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f run [subst -noco
cb70: 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b 73 6c mmands -nobacksl
cb80: 61 73 68 65 73 20 7b 0a 09 20 20 20 20 53 45 4c ashes {.. SEL
cb90: 45 43 54 20 42 2e 62 69 64 2c 20 42 58 2e 62 69 ECT B.bid, BX.bi
cba0: 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 62 72 d.. FROM br
cbb0: 61 6e 63 68 20 42 2c 20 70 72 65 66 65 72 65 64 anch B, prefered
cbc0: 70 61 72 65 6e 74 20 50 2c 20 62 72 61 6e 63 68 parent P, branch
cbd0: 20 42 58 0a 09 20 20 20 20 57 48 45 52 45 20 20 BX.. WHERE
cbe0: 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 B.bid IN $theset
cbf0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
cc00: 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 to branches of
cc10: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
cc20: 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 D B.sid = P.p
cc30: 69 64 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 id -- Get
cc40: 20 73 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 subordinate bra
cc50: 6e 63 68 65 73 20 76 69 61 20 74 68 65 0a 09 20 nches via the..
cc60: 20 20 20 41 4e 44 20 20 20 20 42 58 2e 73 69 64 AND BX.sid
cc70: 20 3d 20 50 2e 73 69 64 20 20 20 20 20 20 20 2d = P.sid -
cc80: 2d 20 70 72 65 66 65 72 65 64 20 70 61 72 65 6e - prefered paren
cc90: 74 73 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 ts of their symb
cca0: 6f 6c 73 0a 09 7d 5d 5d 20 7b 0a 09 20 20 20 20 ols..}]] {..
ccb0: 6c 61 70 70 65 6e 64 20 64 65 70 65 6e 64 65 6e lappend dependen
ccc0: 63 69 65 73 28 5b 6c 69 73 74 20 73 79 6d 3a 3a cies([list sym::
ccd0: 62 72 61 6e 63 68 20 24 62 69 64 5d 29 20 5b 6c branch $bid]) [l
cce0: 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e 63 68 20 ist sym::branch
ccf0: 24 63 68 69 6c 64 5d 0a 09 7d 0a 09 23 66 6f 72 $child]..}..#for
cd00: 65 61 63 68 72 6f 77 0a 09 66 6f 72 65 61 63 68 eachrow..foreach
cd10: 20 7b 62 69 64 20 63 68 69 6c 64 7d 20 5b 73 74 {bid child} [st
cd20: 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d ate run [subst -
cd30: 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 nocommands -noba
cd40: 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 ckslashes {..
cd50: 20 53 45 4c 45 43 54 20 42 2e 62 69 64 2c 20 54 SELECT B.bid, T
cd60: 2e 74 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 .tid.. FROM
cd70: 20 62 72 61 6e 63 68 20 42 2c 20 70 72 65 66 65 branch B, prefe
cd80: 72 65 64 70 61 72 65 6e 74 20 50 2c 20 74 61 67 redparent P, tag
cd90: 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 20 42 T.. WHERE B
cda0: 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 20 .bid IN $theset
cdb0: 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 -- Restrict
cdc0: 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 to branches of i
cdd0: 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 nterest.. AND
cde0: 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 69 B.sid = P.pi
cdf0: 64 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 20 d -- Get
ce00: 73 75 62 6f 72 64 69 6e 61 74 65 20 74 61 67 73 subordinate tags
ce10: 20 76 69 61 20 74 68 65 0a 09 20 20 20 20 41 4e via the.. AN
ce20: 44 20 20 20 20 54 2e 73 69 64 20 3d 20 50 2e 73 D T.sid = P.s
ce30: 69 64 20 20 20 20 20 20 20 20 2d 2d 20 70 72 65 id -- pre
ce40: 66 65 72 65 64 20 70 61 72 65 6e 74 73 20 6f 66 fered parents of
ce50: 20 74 68 65 69 72 20 73 79 6d 62 6f 6c 73 0a 09 their symbols..
ce60: 7d 5d 5d 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 }]] {.. lappe
ce70: 6e 64 20 64 65 70 65 6e 64 65 6e 63 69 65 73 28 nd dependencies(
ce80: 5b 6c 69 73 74 20 73 79 6d 3a 3a 62 72 61 6e 63 [list sym::branc
ce90: 68 20 24 62 69 64 5d 29 20 5b 6c 69 73 74 20 73 h $bid]) [list s
cea0: 79 6d 3a 3a 74 61 67 20 24 63 68 69 6c 64 5d 0a ym::tag $child].
ceb0: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
cec0: 0a 0a 20 20 20 20 23 20 72 65 73 75 6c 74 20 3d .. # result =
ced0: 20 6c 69 73 74 20 28 63 68 61 6e 67 65 73 65 74 list (changeset
cee0: 2d 69 64 29 0a 20 20 20 20 74 79 70 65 6d 65 74 -id). typemet
cef0: 68 6f 64 20 63 73 5f 73 75 63 63 65 73 73 6f 72 hod cs_successor
cf00: 73 20 7b 62 72 61 6e 63 68 65 73 7d 20 7b 0a 20 s {branches} {.
cf10: 20 20 20 20 20 20 20 23 20 54 68 69 73 20 69 73 # This is
cf20: 20 61 20 76 61 72 69 61 6e 74 20 6f 66 20 27 73 a variant of 's
cf30: 75 63 63 65 73 73 6f 72 73 27 20 77 68 69 63 68 uccessors' which
cf40: 20 6d 61 70 73 20 74 68 65 20 6c 6f 77 2d 6c 65 maps the low-le
cf50: 76 65 6c 0a 20 20 20 20 20 20 20 20 23 20 64 61 vel. # da
cf60: 74 61 20 64 69 72 65 63 74 6c 79 20 74 6f 20 74 ta directly to t
cf70: 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 63 68 he associated ch
cf80: 61 6e 67 65 73 65 74 73 2e 20 49 2e 65 2e 20 69 angesets. I.e. i
cf90: 6e 73 74 65 61 64 0a 20 20 20 20 20 20 20 20 23 nstead. #
cfa0: 20 6d 69 6c 6c 69 6f 6e 73 20 6f 66 20 64 65 70 millions of dep
cfb0: 65 6e 64 65 6e 63 79 20 70 61 69 72 73 20 28 69 endency pairs (i
cfc0: 6e 20 65 78 74 72 65 6d 65 20 63 61 73 65 73 20 n extreme cases
cfd0: 28 45 78 61 6d 70 6c 65 3a 20 54 63 6c 0a 20 20 (Example: Tcl.
cfe0: 20 20 20 20 20 20 23 20 43 56 53 29 29 20 77 65 # CVS)) we
cff0: 20 72 65 74 75 72 6e 20 61 20 76 65 72 79 20 73 return a very s
d000: 68 6f 72 74 20 61 6e 64 20 6d 75 63 68 20 6d 6f hort and much mo
d010: 72 65 20 6d 61 6e 61 67 65 61 62 6c 65 20 6c 69 re manageable li
d020: 73 74 0a 20 20 20 20 20 20 20 20 23 20 6f 66 20 st. # of
d030: 63 68 61 6e 67 65 73 65 74 73 2e 0a 0a 09 73 65 changesets....se
d040: 74 20 74 68 65 73 65 74 20 28 27 5b 6a 6f 69 6e t theset ('[join
d050: 20 24 62 72 61 6e 63 68 65 73 20 7b 27 2c 27 7d $branches {','}
d060: 5d 27 29 0a 20 20 20 20 20 20 20 20 72 65 74 75 ]'). retu
d070: 72 6e 20 5b 73 74 61 74 65 20 72 75 6e 20 5b 73 rn [state run [s
d080: 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 ubst -nocommands
d090: 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 73 20 -nobackslashes
d0a0: 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 20 43 2e {.. SELECT C.
d0b0: 63 69 64 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 cid.. FROM
d0c0: 62 72 61 6e 63 68 20 42 2c 20 72 65 76 69 73 69 branch B, revisi
d0d0: 6f 6e 20 52 2c 20 63 73 69 74 65 6d 20 43 49 2c on R, csitem CI,
d0e0: 20 63 68 61 6e 67 65 73 65 74 20 43 0a 09 20 20 changeset C..
d0f0: 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 WHERE B.bid I
d100: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
d110: 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 Restrict to bra
d120: 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 nches of interes
d130: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e t.. AND B.
d140: 66 69 72 73 74 20 3d 20 52 2e 72 69 64 09 2d 2d first = R.rid.--
d150: 20 47 65 74 20 66 69 72 73 74 20 72 65 76 69 73 Get first revis
d160: 69 6f 6e 20 6f 6e 20 74 68 65 20 62 72 61 6e 63 ion on the branc
d170: 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e h. AN
d180: 44 20 20 20 20 43 49 2e 69 69 64 20 3d 20 52 2e D CI.iid = R.
d190: 72 69 64 20 20 20 20 20 20 20 2d 2d 20 53 65 6c rid -- Sel
d1a0: 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 ect all changese
d1b0: 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 ts. A
d1c0: 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 ND C.cid = CI
d1d0: 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 69 6e 69 .cid.-- containi
d1e0: 6e 67 20 74 68 69 73 20 72 65 76 69 73 69 6f 6e ng this revision
d1f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 . AND
d200: 20 20 20 20 43 2e 74 79 70 65 20 3d 20 30 09 09 C.type = 0..
d210: 2d 2d 20 77 68 69 63 68 20 61 72 65 20 72 65 76 -- which are rev
d220: 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 73 ision changesets
d230: 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 20 20 . UNION..
d240: 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 20 SELECT C.cid..
d250: 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 20 FROM branch
d260: 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 6e B, preferedparen
d270: 74 20 50 2c 20 62 72 61 6e 63 68 20 42 58 2c 20 t P, branch BX,
d280: 63 73 69 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 csitem CI, chang
d290: 65 73 65 74 20 43 0a 09 20 20 20 20 57 48 45 52 eset C.. WHER
d2a0: 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 68 65 E B.bid IN $the
d2b0: 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 74 72 set -- Restr
d2c0: 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 73 20 ict to branches
d2d0: 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 20 20 of interest..
d2e0: 20 41 4e 44 20 20 20 20 42 2e 73 69 64 20 3d 20 AND B.sid =
d2f0: 50 2e 70 69 64 09 2d 2d 20 47 65 74 20 73 75 62 P.pid.-- Get sub
d300: 6f 72 64 69 6e 61 74 65 20 62 72 61 6e 63 68 65 ordinate branche
d310: 73 20 76 69 61 20 74 68 65 0a 09 20 20 20 20 41 s via the.. A
d320: 4e 44 20 20 20 20 42 58 2e 73 69 64 20 3d 20 50 ND BX.sid = P
d330: 2e 73 69 64 09 2d 2d 20 70 72 65 66 65 72 65 64 .sid.-- prefered
d340: 20 70 61 72 65 6e 74 73 20 6f 66 20 74 68 65 69 parents of thei
d350: 72 20 73 79 6d 62 6f 6c 73 0a 20 20 20 20 20 20 r symbols.
d360: 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 49 2e AND CI.
d370: 69 69 64 20 3d 20 42 58 2e 62 69 64 20 20 20 20 iid = BX.bid
d380: 20 20 2d 2d 20 53 65 6c 65 63 74 20 61 6c 6c 20 -- Select all
d390: 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 20 changesets.
d3a0: 20 20 20 20 20 20 20 41 4e 44 20 20 20 20 43 2e AND C.
d3b0: 63 69 64 20 3d 20 43 49 2e 63 69 64 09 2d 2d 20 cid = CI.cid.--
d3c0: 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 73 containing the s
d3d0: 75 62 6f 72 64 69 6e 61 74 65 20 62 72 61 6e 63 ubordinate branc
d3e0: 68 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 hes.
d3f0: 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 AND C.type =
d400: 32 09 09 2d 2d 20 77 68 69 63 68 20 61 72 65 20 2..-- which are
d410: 62 72 61 6e 63 68 20 63 68 61 6e 67 65 73 65 74 branch changeset
d420: 73 0a 20 20 20 20 55 4e 49 4f 4e 0a 09 20 20 20 s. UNION..
d430: 20 53 45 4c 45 43 54 20 43 2e 63 69 64 0a 09 20 SELECT C.cid..
d440: 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 68 FROM branch
d450: 20 42 2c 20 70 72 65 66 65 72 65 64 70 61 72 65 B, preferedpare
d460: 6e 74 20 50 2c 20 74 61 67 20 54 2c 20 63 73 69 nt P, tag T, csi
d470: 74 65 6d 20 43 49 2c 20 63 68 61 6e 67 65 73 65 tem CI, changese
d480: 74 20 43 0a 09 20 20 20 20 57 48 45 52 45 20 20 t C.. WHERE
d490: 42 2e 62 69 64 20 49 4e 20 24 74 68 65 73 65 74 B.bid IN $theset
d4a0: 20 20 20 20 20 2d 2d 20 52 65 73 74 72 69 63 74 -- Restrict
d4b0: 20 74 6f 20 62 72 61 6e 63 68 65 73 20 6f 66 20 to branches of
d4c0: 69 6e 74 65 72 65 73 74 0a 09 20 20 20 20 41 4e interest.. AN
d4d0: 44 20 20 20 20 42 2e 73 69 64 20 3d 20 50 2e 70 D B.sid = P.p
d4e0: 69 64 09 2d 2d 20 47 65 74 20 73 75 62 6f 72 64 id.-- Get subord
d4f0: 69 6e 61 74 65 20 74 61 67 73 20 76 69 61 20 74 inate tags via t
d500: 68 65 0a 09 20 20 20 20 41 4e 44 20 20 20 20 54 he.. AND T
d510: 2e 73 69 64 20 3d 20 50 2e 73 69 64 09 2d 2d 20 .sid = P.sid.--
d520: 70 72 65 66 65 72 65 64 20 70 61 72 65 6e 74 73 prefered parents
d530: 20 6f 66 20 74 68 65 69 72 20 73 79 6d 62 6f 6c of their symbol
d540: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 4e s. AN
d550: 44 20 20 20 20 43 49 2e 69 69 64 20 3d 20 54 2e D CI.iid = T.
d560: 74 69 64 20 20 20 20 20 20 20 2d 2d 20 53 65 6c tid -- Sel
d570: 65 63 74 20 61 6c 6c 20 63 68 61 6e 67 65 73 65 ect all changese
d580: 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 41 ts. A
d590: 4e 44 20 20 20 20 43 2e 63 69 64 20 3d 20 43 49 ND C.cid = CI
d5a0: 2e 63 69 64 09 2d 2d 20 63 6f 6e 74 61 69 6e 69 .cid.-- containi
d5b0: 6e 67 20 74 68 65 20 73 75 62 6f 72 64 69 6e 61 ng the subordina
d5c0: 74 65 20 74 61 67 73 0a 20 20 20 20 20 20 20 20 te tags.
d5d0: 20 20 20 20 41 4e 44 20 20 20 20 43 2e 74 79 70 AND C.typ
d5e0: 65 20 3d 20 31 09 09 2d 2d 20 77 68 69 63 68 20 e = 1..-- which
d5f0: 61 72 65 20 74 61 67 20 63 68 61 6e 67 65 73 65 are tag changese
d600: 74 73 0a 09 7d 5d 5d 0a 09 72 65 74 75 72 6e 0a ts..}]]..return.
d610: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 72 65 73 }.. # res
d620: 75 6c 74 20 3d 20 73 79 6d 62 6f 6c 20 6e 61 6d ult = symbol nam
d630: 65 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 e. typemethod
d640: 20 63 73 5f 6c 6f 64 20 7b 62 72 61 6e 63 68 65 cs_lod {branche
d650: 73 7d 20 7b 0a 09 23 20 44 65 74 65 72 6d 69 6e s} {..# Determin
d660: 65 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 es the name of t
d670: 68 65 20 73 79 6d 62 6f 6c 20 77 68 69 63 68 20 he symbol which
d680: 69 73 20 74 68 65 20 6c 69 6e 65 20 6f 66 0a 09 is the line of..
d690: 23 20 64 65 76 65 6c 6f 70 6d 65 6e 74 20 66 6f # development fo
d6a0: 72 20 74 68 65 20 62 72 61 6e 63 68 65 73 20 69 r the branches i
d6b0: 6e 20 61 20 63 68 61 6e 67 65 73 65 74 2e 0a 0a n a changeset...
d6c0: 09 73 65 74 20 74 68 65 73 65 74 20 28 27 5b 6a .set theset ('[j
d6d0: 6f 69 6e 20 24 62 72 61 6e 63 68 65 73 20 7b 27 oin $branches {'
d6e0: 2c 27 7d 5d 27 29 0a 09 72 65 74 75 72 6e 20 5b ,'}]')..return [
d6f0: 73 74 61 74 65 20 72 75 6e 20 5b 73 75 62 73 74 state run [subst
d700: 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f -nocommands -no
d710: 62 61 63 6b 73 6c 61 73 68 65 73 20 7b 0a 09 20 backslashes {..
d720: 20 20 20 53 45 4c 45 43 54 0a 09 20 20 20 20 44 SELECT.. D
d730: 49 53 54 49 4e 43 54 20 4c 2e 6e 61 6d 65 0a 09 ISTINCT L.name..
d740: 20 20 20 20 46 52 4f 4d 20 20 20 62 72 61 6e 63 FROM branc
d750: 68 20 42 2c 20 73 79 6d 62 6f 6c 20 4c 0a 09 20 h B, symbol L..
d760: 20 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 WHERE B.bid
d770: 69 6e 20 24 74 68 65 73 65 74 20 20 20 20 20 20 in $theset
d780: 20 20 2d 2d 20 52 65 73 74 72 69 63 74 20 74 6f -- Restrict to
d790: 20 62 72 61 6e 63 68 65 73 20 6f 66 20 69 6e 74 branches of int
d7a0: 65 72 65 73 74 0a 09 20 20 20 20 41 4e 44 20 20 erest.. AND
d7b0: 20 20 4c 2e 73 69 64 20 3d 20 42 2e 6c 6f 64 20 L.sid = B.lod
d7c0: 20 20 20 20 20 20 20 20 20 20 2d 2d 20 47 65 74 -- Get
d7d0: 20 6c 6f 64 20 73 79 6d 62 6f 6c 20 6f 66 20 62 lod symbol of b
d7e0: 72 61 6e 63 68 0a 09 7d 5d 5d 0a 20 20 20 20 7d ranch..}]]. }
d7f0: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
d800: 20 6c 69 6d 69 74 73 20 7b 62 72 61 6e 63 68 65 limits {branche
d810: 73 7d 20 7b 0a 09 23 20 4e 6f 74 65 73 2e 20 54 s} {..# Notes. T
d820: 68 69 73 20 6d 65 74 68 6f 64 20 65 78 69 73 74 his method exist
d830: 73 20 6f 6e 6c 79 20 66 6f 72 20 62 72 61 6e 63 s only for branc
d840: 68 65 73 2e 20 49 74 20 69 73 20 6e 65 65 64 65 hes. It is neede
d850: 64 20 74 6f 0a 09 23 20 67 65 74 20 64 65 74 61 d to..# get deta
d860: 69 6c 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e iled information
d870: 20 61 62 6f 75 74 20 61 20 62 61 63 6b 77 61 72 about a backwar
d880: 64 20 62 72 61 6e 63 68 2e 20 49 74 20 64 6f 65 d branch. It doe
d890: 73 0a 09 23 20 6e 6f 74 20 61 70 70 6c 79 20 74 s..# not apply t
d8a0: 6f 20 74 61 67 73 2c 20 6e 6f 72 20 72 65 76 69 o tags, nor revi
d8b0: 73 69 6f 6e 73 2e 20 54 68 65 20 71 75 65 72 69 sions. The queri
d8c0: 65 73 20 63 61 6e 20 61 6c 73 6f 0a 09 23 20 72 es can also..# r
d8d0: 65 73 74 72 69 63 74 20 74 68 65 6d 73 65 6c 76 estrict themselv
d8e0: 65 73 20 74 6f 20 74 68 65 20 72 65 76 69 73 69 es to the revisi
d8f0: 6f 6e 20 73 75 63 65 73 73 6f 72 73 2f 70 72 65 on sucessors/pre
d900: 64 65 63 65 73 73 6f 72 73 0a 09 23 20 6f 66 20 decessors..# of
d910: 62 72 61 6e 63 68 65 73 2c 20 61 73 20 6f 6e 6c branches, as onl
d920: 79 20 74 68 65 79 20 68 61 76 65 20 6f 72 64 65 y they have orde
d930: 72 69 6e 67 20 64 61 74 61 20 61 6e 64 20 74 68 ring data and th
d940: 75 73 20 63 61 6e 0a 09 23 20 63 61 75 73 65 20 us can..# cause
d950: 74 68 65 20 62 61 63 6b 77 61 72 64 6e 65 73 73 the backwardness
d960: 2e 0a 0a 09 73 65 74 20 74 68 65 73 65 74 20 28 ....set theset (
d970: 27 5b 6a 6f 69 6e 20 24 62 72 61 6e 63 68 65 73 '[join $branches
d980: 20 7b 27 2c 27 7d 5d 27 29 0a 0a 09 73 65 74 20 {','}]')...set
d990: 6d 61 78 70 20 5b 73 74 61 74 65 20 72 75 6e 20 maxp [state run
d9a0: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
d9b0: 64 73 20 2d 6e 6f 62 61 63 6b 73 6c 61 73 68 65 ds -nobackslashe
d9c0: 73 20 7b 0a 09 20 20 20 20 2d 2d 20 6d 61 78 69 s {.. -- maxi
d9d0: 6d 61 6c 20 70 72 65 64 65 63 65 73 73 6f 72 20 mal predecessor
d9e0: 70 6f 73 69 74 69 6f 6e 20 70 65 72 20 62 72 61 position per bra
d9f0: 6e 63 68 0a 09 20 20 20 20 53 45 4c 45 43 54 20 nch.. SELECT
da00: 42 2e 62 69 64 2c 20 4d 41 58 20 28 43 4f 2e 70 B.bid, MAX (CO.p
da10: 6f 73 29 0a 09 20 20 20 20 46 52 4f 4d 20 20 20 os).. FROM
da20: 62 72 61 6e 63 68 20 42 2c 20 72 65 76 69 73 69 branch B, revisi
da30: 6f 6e 20 52 2c 20 63 73 69 74 65 6d 20 43 49 2c on R, csitem CI,
da40: 20 63 68 61 6e 67 65 73 65 74 20 43 2c 20 63 73 changeset C, cs
da50: 6f 72 64 65 72 20 43 4f 0a 09 20 20 20 20 57 48 order CO.. WH
da60: 45 52 45 20 20 42 2e 62 69 64 20 49 4e 20 24 74 ERE B.bid IN $t
da70: 68 65 73 65 74 20 20 20 20 20 2d 2d 20 52 65 73 heset -- Res
da80: 74 72 69 63 74 20 74 6f 20 62 72 61 6e 63 68 65 trict to branche
da90: 73 20 6f 66 20 69 6e 74 65 72 65 73 74 0a 09 20 s of interest..
daa0: 20 20 20 41 4e 44 20 20 20 20 42 2e 72 6f 6f 74 AND B.root
dab0: 20 3d 20 52 2e 72 69 64 20 20 20 20 20 20 20 2d = R.rid -
dac0: 2d 20 47 65 74 20 62 72 61 6e 63 68 20 72 6f 6f - Get branch roo
dad0: 74 20 72 65 76 69 73 69 6f 6e 73 0a 09 20 20 20 t revisions..
dae0: 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 20 3d AND CI.iid =
daf0: 20 52 2e 72 69 64 20 20 20 20 20 20 20 2d 2d 20 R.rid --
db00: 47 65 74 20 63 68 61 6e 67 65 73 65 74 73 20 63 Get changesets c
db10: 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 0a 09 20 ontaining the..
db20: 20 20 20 41 4e 44 20 20 20 20 43 2e 63 69 64 20 AND C.cid
db30: 3d 20 43 49 2e 63 69 64 20 20 20 20 20 20 20 2d = CI.cid -
db40: 2d 20 72 6f 6f 74 20 72 65 76 69 73 69 6f 6e 73 - root revisions
db50: 2c 20 77 68 69 63 68 20 61 72 65 0a 09 20 20 20 , which are..
db60: 20 41 4e 44 20 20 20 20 43 2e 74 79 70 65 20 3d AND C.type =
db70: 20 30 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 0 --
db80: 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 65 73 revision changes
db90: 65 74 73 0a 09 20 20 20 20 41 4e 44 20 20 20 20 ets.. AND
dba0: 43 4f 2e 63 69 64 20 3d 20 43 2e 63 69 64 20 20 CO.cid = C.cid
dbb0: 20 20 20 20 20 2d 2d 20 47 65 74 20 74 68 65 69 -- Get thei
dbc0: 72 20 74 6f 70 6f 6c 6f 67 69 63 61 6c 20 6f 72 r topological or
dbd0: 64 65 72 69 6e 67 0a 09 20 20 20 20 47 52 4f 55 dering.. GROU
dbe0: 50 20 42 59 20 42 2e 62 69 64 0a 09 7d 5d 5d 0a P BY B.bid..}]].
dbf0: 0a 09 73 65 74 20 6d 69 6e 73 20 5b 73 74 61 74 ..set mins [stat
dc00: 65 20 72 75 6e 20 5b 73 75 62 73 74 20 2d 6e 6f e run [subst -no
dc10: 63 6f 6d 6d 61 6e 64 73 20 2d 6e 6f 62 61 63 6b commands -noback
dc20: 73 6c 61 73 68 65 73 20 7b 0a 09 20 20 20 20 2d slashes {.. -
dc30: 2d 20 6d 69 6e 69 6d 61 6c 20 73 75 63 63 65 73 - minimal succes
dc40: 73 6f 72 20 70 6f 73 69 74 69 6f 6e 20 70 65 72 sor position per
dc50: 20 62 72 61 6e 63 68 0a 09 20 20 20 20 53 45 4c branch.. SEL
dc60: 45 43 54 20 42 2e 62 69 64 2c 20 4d 49 4e 20 28 ECT B.bid, MIN (
dc70: 43 4f 2e 70 6f 73 29 0a 09 20 20 20 20 46 52 4f CO.pos).. FRO
dc80: 4d 20 20 20 62 72 61 6e 63 68 20 42 2c 20 72 65 M branch B, re
dc90: 76 69 73 69 6f 6e 20 52 2c 20 63 73 69 74 65 6d vision R, csitem
dca0: 20 43 49 2c 20 63 68 61 6e 67 65 73 65 74 20 43 CI, changeset C
dcb0: 2c 20 63 73 6f 72 64 65 72 20 43 4f 0a 09 20 20 , csorder CO..
dcc0: 20 20 57 48 45 52 45 20 20 42 2e 62 69 64 20 49 WHERE B.bid I
dcd0: 4e 20 24 74 68 65 73 65 74 20 20 20 20 20 2d 2d N $theset --
dce0: 20 52 65 73 74 72 69 63 74 20 74 6f 20 62 72 61 Restrict to bra
dcf0: 6e 63 68 65 73 20 6f 66 20 69 6e 74 65 72 65 73 nches of interes
dd00: 74 0a 09 20 20 20 20 41 4e 44 20 20 20 20 42 2e t.. AND B.
dd10: 66 69 72 73 74 20 3d 20 52 2e 72 69 64 20 20 20 first = R.rid
dd20: 20 20 20 2d 2d 20 47 65 74 20 74 68 65 20 66 69 -- Get the fi
dd30: 72 73 74 20 72 65 76 69 73 69 6f 6e 73 20 6f 6e rst revisions on
dd40: 20 74 68 65 20 62 72 61 6e 63 68 65 73 0a 09 20 the branches..
dd50: 20 20 20 41 4e 44 20 20 20 20 43 49 2e 69 69 64 AND CI.iid
dd60: 20 3d 20 52 2e 72 69 64 20 20 20 20 20 20 20 2d = R.rid -
dd70: 2d 20 47 65 74 20 63 68 61 6e 67 65 73 65 74 73 - Get changesets
dd80: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 0a containing the.
dd90: 09 20 20 20 20 41 4e 44 20 20 20 20 43 2e 63 69 . AND C.ci
dda0: 64 20 3d 20 43 49 2e 63 69 64 09 2d 2d 20 66 69 d = CI.cid.-- fi
ddb0: 72 73 74 20 72 65 76 69 73 69 6f 6e 73 2c 20 77 rst revisions, w
ddc0: 68 69 63 68 20 61 72 65 0a 09 20 20 20 20 41 4e hich are.. AN
ddd0: 44 20 20 20 20 43 2e 74 79 70 65 20 3d 20 30 09 D C.type = 0.
dde0: 09 2d 2d 20 72 65 76 69 73 69 6f 6e 20 63 68 61 .-- revision cha
ddf0: 6e 67 65 73 65 74 73 0a 09 20 20 20 20 41 4e 44 ngesets.. AND
de00: 20 20 20 20 43 4f 2e 63 69 64 20 3d 20 43 2e 63 CO.cid = C.c
de10: 69 64 09 2d 2d 20 47 65 74 20 74 68 65 69 72 20 id.-- Get their
de20: 74 6f 70 6f 6c 6f 67 69 63 61 6c 20 6f 72 64 65 topological orde
de30: 72 69 6e 67 0a 09 20 20 20 20 47 52 4f 55 50 20 ring.. GROUP
de40: 42 59 20 42 2e 62 69 64 0a 09 7d 5d 5d 0a 0a 20 BY B.bid..}]]..
de50: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c return [l
de60: 69 73 74 20 24 6d 61 78 70 20 24 6d 69 6e 73 5d ist $maxp $mins]
de70: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
de80: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
de90: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
dea0: 23 23 23 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 ###. ## Confi
deb0: 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 guration.. pr
dec0: 61 67 6d 61 20 2d 68 61 73 69 6e 73 74 61 6e 63 agma -hasinstanc
ded0: 65 73 20 20 20 6e 6f 20 3b 20 23 20 73 69 6e 67 es no ; # sing
dee0: 6c 65 74 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 leton. pragma
def0: 20 2d 68 61 73 74 79 70 65 69 6e 66 6f 20 20 20 -hastypeinfo
df00: 20 6e 6f 20 3b 20 23 20 6e 6f 20 69 6e 74 72 6f no ; # no intro
df10: 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 spection. pra
df20: 67 6d 61 20 2d 68 61 73 74 79 70 65 64 65 73 74 gma -hastypedest
df30: 72 6f 79 20 6e 6f 20 3b 20 23 20 69 6d 6d 6f 72 roy no ; # immor
df40: 74 61 6c 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 tal.}..# # ## ##
df50: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
df60: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
df70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
df80: 23 23 23 23 0a 23 23 0a 0a 6e 61 6d 65 73 70 61 ####.##..namespa
df90: 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f ce eval ::vc::fo
dfa0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
dfb0: 73 3a 3a 70 72 6f 6a 65 63 74 20 7b 0a 20 20 20 s::project {.
dfc0: 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 namespace expor
dfd0: 74 20 72 65 76 0a 20 20 20 20 6e 61 6d 65 73 70 t rev. namesp
dfe0: 61 63 65 20 65 76 61 6c 20 72 65 76 20 7b 0a 09 ace eval rev {..
dff0: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
e000: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
e010: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
e020: 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 e..namespace imp
e030: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c ort ::vc::fossil
e040: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 ::import::cvs::i
e050: 6e 74 65 67 72 69 74 79 0a 09 6e 61 6d 65 73 70 ntegrity..namesp
e060: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
e070: 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a :tools::misc::*.
e080: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
e090: 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 t ::vc::tools::t
e0a0: 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 73 70 61 63 rouble..namespac
e0b0: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 e import ::vc::t
e0c0: 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 ools::log..log r
e0d0: 65 67 69 73 74 65 72 20 63 73 65 74 73 0a 0a 09 egister csets...
e0e0: 23 20 53 65 74 20 75 70 20 74 68 65 20 68 65 6c # Set up the hel
e0f0: 70 65 72 20 73 69 6e 67 6c 65 74 6f 6e 73 0a 09 per singletons..
e100: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 72 namespace eval r
e110: 65 76 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 70 ev {.. namesp
e120: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
e130: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
e140: 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 20 :cvs::state..
e150: 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 namespace impor
e160: 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a t ::vc::fossil::
e170: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 import::cvs::int
e180: 65 67 72 69 74 79 0a 09 20 20 20 20 6e 61 6d 65 egrity.. name
e190: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
e1a0: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 7d c::tools::log..}
e1b0: 0a 09 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c ..namespace eval
e1c0: 20 73 79 6d 3a 3a 74 61 67 20 7b 0a 09 20 20 20 sym::tag {..
e1d0: 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 namespace impor
e1e0: 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a t ::vc::fossil::
e1f0: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 import::cvs::sta
e200: 74 65 0a 09 20 20 20 20 6e 61 6d 65 73 70 61 63 te.. namespac
e210: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 e import ::vc::f
e220: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
e230: 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 20 vs::integrity..
e240: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 namespace imp
e250: 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a ort ::vc::tools:
e260: 3a 6c 6f 67 0a 09 7d 0a 09 6e 61 6d 65 73 70 61 :log..}..namespa
e270: 63 65 20 65 76 61 6c 20 73 79 6d 3a 3a 62 72 61 ce eval sym::bra
e280: 6e 63 68 20 7b 0a 09 20 20 20 20 6e 61 6d 65 73 nch {.. names
e290: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
e2a0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
e2b0: 3a 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 20 20 ::cvs::state..
e2c0: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f namespace impo
e2d0: 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a rt ::vc::fossil:
e2e0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e :import::cvs::in
e2f0: 74 65 67 72 69 74 79 0a 09 20 20 20 20 6e 61 6d tegrity.. nam
e300: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
e310: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 vc::tools::log..
e320: 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 }. }.}..# # #
e330: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
e340: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
e350: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
e360: 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 61 64 ########.## Read
e370: 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 y..package provi
e380: 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 de vc::fossil::i
e390: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a mport::cvs::proj
e3a0: 65 63 74 3a 3a 72 65 76 20 31 2e 30 0a 72 65 74 ect::rev 1.0.ret
e3b0: 75 72 6e 0a urn.