Differences From:

File tools/cvs2fossil/lib/c2f_gtcore.tcl part of check-in [b59cdc7f8a] - Removed the automatic destruction of the traversed graph from the traversal core and put it into the caller (import only, currently). by aku on 2007-12-06 03:56:07. [view]

To:

File tools/cvs2fossil/lib/c2f_gtcore.tcl part of check-in [b81901adcb] - Extended traversal core to allow custom labeling of the log output immediately before the traversal starts. by aku on 2007-12-06 03:58:01. [view]

@@ -38,12 +38,12 @@
     typemethod formatcmd {cmd} { ::variable myformatcmd $cmd ; return }
 
     # # ## ### ##### ######## #############
 
-    typemethod traverse {graph} {
+    typemethod traverse {graph {label Traverse}} {
 	InitializeCandidates $graph
 
-	log write 3 gtcore {Traverse}
+	log write 3 gtcore {$label}
 
 	set k   0
 	set max [llength [$graph nodes]]