Differences From:

File tools/cvs2fossil/lib/c2f_prev.tcl part of check-in [184c56327e] - Bugfix in changeset class. Documented and fixed the SQL statements pulling the successor and predecessor information out of the state. It mishandled the Trunk <-> NTDB transitions. by aku on 2007-11-24 04:40:11. [view]

To:

File tools/cvs2fossil/lib/c2f_prev.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]

@@ -51,8 +51,10 @@
 	foreach r $revisions { lappend myrevmap($r) $self }
 	return
     }
 
+    method str {} { return "<${myid}>" }
+
     method id        {} { return $myid }
     method revisions {} { return $myrevisions }
     method data      {} { return [list $myproject $mytype $mysrcid] }
 
@@ -156,9 +158,9 @@
 	array set dependencies {}
 	PullInternalSuccessorRevisions dependencies $myrevisions
 	if {![array size dependencies]} {return 0} ; # Nothing to break.
 
-	log write 6 csets ...<$myid>.......................................................
+	log write 6 csets ...[$self str].......................................................
 
 	# We have internal dependencies to break. We now iterate over
 	# all positions in the list (which is chronological, at least
 	# as far as the timestamps are correct and unique) and
@@ -262,9 +264,9 @@
 	    }
 
 	    set new [$type %AUTO% $myproject $mytype $mysrcid [lrange $myrevisions $s $e]]
 
-            log write 4 csets "Breaking <$myid> @ $laste, new <[$new id]>, cutting $breaks($laste)"
+            log write 4 csets "Breaking [$self str ] @ $laste, new [$new str], cutting $breaks($laste)"
 
 	    set laste $e
 	}
 
@@ -357,8 +359,14 @@
 
 	foreach c $newcsets { $c persist }
 	return $newcsets
     }
+
+    typemethod strlist {changesets} {
+	return [join [struct::list map $changesets [myproc ID]]]
+    }
+
+    proc ID {cset} { $cset str }
 
     # # ## ### ##### ######## #############
     ## State