Fossil

Check-in [04d76a9e]
Login

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

Overview
Comment:Renamed changeset method to describe modified results, and updated the one invoker. Modified the sorting of time ranges. Now by max, min as tiebreaker, and object name as last tiebreaker.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:04d76a9e797fbefe8dc872b58c91093443594aa7
User & Date: aku 2007-11-29 07:55:01
Context
2007-11-29
07:58
Renamed changeset method to describe modified results, and updated the one invoker check-in: 61829b07 user: aku tags: trunk
07:55
Renamed changeset method to describe modified results, and updated the one invoker. Modified the sorting of time ranges. Now by max, min as tiebreaker, and object name as last tiebreaker. check-in: 04d76a9e user: aku tags: trunk
07:50
Added missing state declarations. check-in: 2c9c2681 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
...
286
287
288
289
290
291
292


293
294
295
296
297
298
299
300
		if {$succ eq $cset} {
		    trouble fatal "Self-referencing changeset [$cset str]"
		    log write 2 cyclebreaker "LOOP changeset [$cset str] __________________"
		    array set nmap [$cset nextmap]
		    foreach r [lsort -dict [array names nmap]] {
			foreach succrev $nmap($r) {
			    log write 2 cyclebreaker \
				"LOOP * rev <$r> --> rev <$succrev> --> cs [project::rev strlist [project::rev ofrev $succrev]]"
			}
		    }
		}
	    }
	}

	if {$log} {
................................................................................
	# procedure to save the dependencies as well (encoded in the
	# arcs).
	return 1
    }

    proc ScheduleCandidates {} {
	::variable mybottom


	set mybottom [lsort -index 1 -integer [lsort -index 2 -integer [lsort -index 0 -dict $mybottom]]]
	return
    }

    proc ShowPendingNodes {} {
	if {[log verbosity?] < 10} return
	::variable mybottom
	log write 10 cyclebreaker "Pending..............................."







|







 







>
>
|







212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
...
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
		if {$succ eq $cset} {
		    trouble fatal "Self-referencing changeset [$cset str]"
		    log write 2 cyclebreaker "LOOP changeset [$cset str] __________________"
		    array set nmap [$cset nextmap]
		    foreach r [lsort -dict [array names nmap]] {
			foreach succrev $nmap($r) {
			    log write 2 cyclebreaker \
				"LOOP * rev <$r> --> rev <$succrev> --> cs [project::rev str [project::rev ofitem $succrev]]"
			}
		    }
		}
	    }
	}

	if {$log} {
................................................................................
	# procedure to save the dependencies as well (encoded in the
	# arcs).
	return 1
    }

    proc ScheduleCandidates {} {
	::variable mybottom
	# Sort by cset object name, lower border of timerange, at last
	# by the upper border.
	set mybottom [lsort -index 2 -integer [lsort -index 1 -integer [lsort -index 0 -dict $mybottom]]]
	return
    }

    proc ShowPendingNodes {} {
	if {[log verbosity?] < 10} return
	::variable mybottom
	log write 10 cyclebreaker "Pending..............................."

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

650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
				       # the list of changesets
				       # containing it. Each item can
				       # be used by only one
				       # changeset.
    typevariable myidmap   -array {} ; # Map from changeset id to
				       # changeset.

    typemethod all   {}    { return $mychangesets }
    typemethod of    {cid} { return $myidmap($cid) }
    typemethod ofrev {iid} { return $myitemmap($iid) }

    # # ## ### ##### ######## #############
    ## Configuration

    pragma -hastypeinfo    no  ; # no type introspection
    pragma -hasinfo        no  ; # no object introspection








|
|
|







650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
				       # the list of changesets
				       # containing it. Each item can
				       # be used by only one
				       # changeset.
    typevariable myidmap   -array {} ; # Map from changeset id to
				       # changeset.

    typemethod all    {}    { return $mychangesets }
    typemethod of     {cid} { return $myidmap($cid) }
    typemethod ofitem {iid} { return $myitemmap($iid) }

    # # ## ### ##### ######## #############
    ## Configuration

    pragma -hastypeinfo    no  ; # no type introspection
    pragma -hasinfo        no  ; # no object introspection