Differences From:

File tools/cvs2fossil/lib/c2f_prevlink.tcl part of check-in [38b967dcf5] - Merge aku's CVS import changes into the main line. Fix a small bug in diff.c. by drh on 2007-11-17 00:29:42. Also file tools/cvs2fossil/lib/c2f_prevlink.tcl part of check-in [94c39d6375] - Completed pass 6, wrote the code performing the breaking of cycles. Done by analysing each triple of changesets in the cycle at the file dependency level to see which revisions can be sorted apart. Added some additional utility routines. Extended the changeset class with the accessors required by the cycle breaker. by aku on 2007-11-14 05:11:56. [view]

To:

File tools/cvs2fossil/lib/c2f_prevlink.tcl part of check-in [59207428e2] - Moved the functionality for splitting a changeset based on the sets of revisions for the fragments to be into a separate command, and into the changeset class, for use outside of changeset links. by aku on 2007-11-22 02:58:09. [view]

@@ -149,24 +149,12 @@
 	    set mycategory(next) [concat $mycategory(next) $mycategory(none) \
 				      $mycategory(pass)]
 	}
 
-	# We now have the split in the mycategory(prev|next)
-	# elements. As part of the creation of the new changesets the
-	# old one is dropped from all databases, in and out of memory,
-	# and then destroyed.
-
-	struct::list assign [$mycset data] project cstype cssrc
-	$mycset drop
-	$mycset destroy
-
-	set newcsets {}
-	lappend newcsets [project::rev %AUTO% $project $cstype $cssrc $mycategory(prev)]
-	lappend newcsets [project::rev %AUTO% $project $cstype $cssrc $mycategory(next)]
-
-	foreach c $newcsets { $c persist }
-
-	return $newcsets
+	# We now have the revisions for the two fragments to be in the
+	# (prev|next) elements of mycategory.
+
+	return [project::rev split $mycset $mycategory(prev) $mycategory(next)]
     }
 
     # # ## ### ##### ######## #############
     ## State