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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a99d5798f66d3d6afee447d97fed18536760a8d1
User & Date: aku 2007-11-24 03:59:55.000
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
Unified Diff Ignore Whitespace Patch
Changes to tools/cvs2fossil/lib/c2f_cyclebreaker.tcl.
︙︙
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166


	set dg [struct::graph dg]

	foreach cset $changesets {
	    $dg node insert $cset
	    $dg node set    $cset timerange [$cset timerange]
	    $dg node set    $cset label     [ID $cset]
	    $dg node set    $cset __id__ [$cset id]
	}

	# 2. Find for all relevant changeset their revisions and their
	#    dependencies. Map the latter back to changesets and
	#    construct the corresponding arcs.

	if {$log} {








|








152
153
154
155
156
157
158
159
160
161
162
163
164
165
166


	set dg [struct::graph dg]

	foreach cset $changesets {
	    $dg node insert $cset
	    $dg node set    $cset timerange [$cset timerange]
	    $dg node set    $cset label     [ID $cset]
	    $dg node set    $cset __id__    [$cset id]
	}

	# 2. Find for all relevant changeset their revisions and their
	#    dependencies. Map the latter back to changesets and
	#    construct the corresponding arcs.

	if {$log} {
︙︙
361
362
363
364
365
366
367


368
369
370
371
372
373
374

	set pre [$dg nodes -in $n]

        $dg node delete $n

	foreach cset $replacements {
	    $dg node insert $cset
	    $dg node set    $cset timerange [$cset timerange]


	}

	foreach cset $replacements {
	    foreach succ [$cset successors] {
		# The new changesets may have dependencies outside of
		# the chosen set. These are ignored
		if {![$dg node exists $succ]} continue








>
>








361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376

	set pre [$dg nodes -in $n]

        $dg node delete $n

	foreach cset $replacements {
	    $dg node insert $cset
	    $dg node set    $cset timerange [$cset timerange]
	    $dg node set    $cset label     [ID $cset]
	    $dg node set    $cset __id__    [$cset id]
	}

	foreach cset $replacements {
	    foreach succ [$cset successors] {
		# The new changesets may have dependencies outside of
		# the chosen set. These are ignored
		if {![$dg node exists $succ]} continue
︙︙