Differences From:

File tools/cvs2fossil/lib/c2f_pbreakacycle.tcl part of check-in [6d63634309] - Tweaked log output a bit. Bugfixes: Forgot to propagate the border information into SplitRevisions, and a varname typo. by aku on 2007-11-24 04:19:15. [view]

To:

File tools/cvs2fossil/lib/c2f_pbreakacycle.tcl part of check-in [87cf609021] - Created convenience methods to create the human readable repesentation of a changeset and lists of such, and made liberal use of them. by aku on 2007-11-24 05:31:30. [view]

@@ -134,9 +134,9 @@
     }
 
     proc CheckAndBreakBackwardBranch {graph cset} {
 	while {[IsABackwardBranch $graph $cset]} {
-	    log write 5 breakacycle "Breaking backward branch changeset <[$cset id]>"
+	    log write 5 breakacycle "Breaking backward branch changeset [$cset str]"
 
 	    # Knowing that the branch is backward we now look at the
 	    # individual revisions in the changeset and determine
 	    # which of them are responsible for the overlap. This
@@ -303,9 +303,18 @@
 
 
     # # ## ### ##### ######## #############
 
-    proc SaveOrder {graph cset pos} {
+    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
     }
 
     # # ## ### ##### ######## #############