Fossil

Check-in [a99d5798]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added missing node attributes in the Replace command.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:a99d5798f66d3d6afee447d97fed18536760a8d1
User & Date: aku 2007-11-24 03:59:55
Context
2007-11-24
04:15
Added a number of assertions and must-not-happens with associated log output. Plus some small tweaks, and notes. check-in: eabaea87 user: aku tags: trunk
03:59
Added missing node attributes in the Replace command. check-in: a99d5798 user: aku tags: trunk
03:56
Updated passes 6 and 8 for to the changtes in the cycle breaker API (changed signature of save callback). check-in: 7ed2f29d user: aku tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tools/cvs2fossil/lib/c2f_cyclebreaker.tcl.

   152    152   
   153    153   	set dg [struct::graph dg]
   154    154   
   155    155   	foreach cset $changesets {
   156    156   	    $dg node insert $cset
   157    157   	    $dg node set    $cset timerange [$cset timerange]
   158    158   	    $dg node set    $cset label     [ID $cset]
   159         -	    $dg node set    $cset __id__ [$cset id]
          159  +	    $dg node set    $cset __id__    [$cset id]
   160    160   	}
   161    161   
   162    162   	# 2. Find for all relevant changeset their revisions and their
   163    163   	#    dependencies. Map the latter back to changesets and
   164    164   	#    construct the corresponding arcs.
   165    165   
   166    166   	if {$log} {
................................................................................
   361    361   	set pre [$dg nodes -in $n]
   362    362   
   363    363           $dg node delete $n
   364    364   
   365    365   	foreach cset $replacements {
   366    366   	    $dg node insert $cset
   367    367   	    $dg node set    $cset timerange [$cset timerange]
          368  +	    $dg node set    $cset label     [ID $cset]
          369  +	    $dg node set    $cset __id__    [$cset id]
   368    370   	}
   369    371   
   370    372   	foreach cset $replacements {
   371    373   	    foreach succ [$cset successors] {
   372    374   		# The new changesets may have dependencies outside of
   373    375   		# the chosen set. These are ignored
   374    376   		if {![$dg node exists $succ]} continue