SHA1 Hash:	d743f04bd2e2cf7903b18f73689a162d7f9af14f
Date:	2007-11-25 03:05:21
User:	aku
Comment:	Moved more parts taken over by the top. sort passes out the breaker passes, and renumbered them.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_pbreakacycle.tcl from [c41eb33de6] to [456c81fca5].

@@ -8,15 +8,15 @@
 # This software consists of voluntary contributions made by many
 # individuals.  For exact contribution history, see the revision
 # history and logs, available at http://fossil-scm.hwaci.com/fossil
 # # ## ### ##### ######## ############# #####################
 
-## Pass VIII. This is the final pass for breaking changeset dependency
-## cycles. The two previous passes broke cycles covering revision and
-## symbol changesets, respectively. This pass now breaks any remaining
-## cycles each of which has to contain at least one revision and at
-## least one symbol changeset.
+## Pass IX. This is the final pass for breaking changeset dependency
+## cycles. The previous breaker passes (6 and 8) broke cycles covering
+## revision and symbol changesets, respectively. This pass now breaks
+## any remaining cycles, each of which has to contain at least one
+## revision and at least one symbol changeset.
 
 # # ## ### ##### ######## ############# #####################
 ## Requirements
 
 package require Tcl 8.4                                   ; # Required runtime.
@@ -63,11 +63,10 @@
     typemethod run {} {
 	# Pass manager interface. Executed to perform the
 	# functionality of the pass.
 
 	cyclebreaker precmd   [myproc BreakBackwardBranches]
-	cyclebreaker savecmd  [myproc SaveOrder]
 	cyclebreaker breakcmd [myproc BreakCycle]
 
 	state transaction {
 	    LoadCommitOrder
 	    cyclebreaker run break-all [myproc Changesets]
@@ -299,24 +298,10 @@
 	if {![llength $normalrevisions]}   { trouble internal "Set of normal revisions is empty" }
 	if {![llength $backwardrevisions]} { trouble internal "Set of backward revisions is empty" }
 	return
     }
 
-
-    # # ## ### ##### ######## #############
-
-    proc SaveOrder {graph at cset} {
-	set cid [$cset id]
-
-	log write 4 breakacycle "Comitting @ $at: [$cset str]"
-	state run {
-	    INSERT INTO csorder (cid,  pos)
-	    VALUES              ($cid, $at)
-	}
-	# MAYBE TODO: Write the project level changeset dependencies as well.
-	return
-    }
 
     # # ## ### ##### ######## #############
 
     proc BreakCycle {graph} {
 	cyclebreaker break $graph