SHA1 Hash:	b81901adcb9d1a51828d311dd58ab219c3650c3f
Date:	2007-12-06 03:58:01
User:	aku
Comment:	Extended traversal core to allow custom labeling of the log output immediately before the traversal starts.
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_file.tcl from [7bea1e82e6] to [59c3833ae1].

@@ -352,11 +352,11 @@
 	gtcore datacmd   [mymethod ExpandData]
 	gtcore formatcmd [mymethod ExpandFormat]
 	gtcore sortcmd   [mymethod ExpandSort]
 	gtcore savecmd   [mymethod Expand1 $ac $dir $max]
 
-	gtcore traverse $ex
+	gtcore traverse $ex {Expanding revisions...}
 	close $ac
 
 	# Now traverse the import graph, this builds the instruction
 	# map for the fossil deltas.
 
@@ -364,11 +364,11 @@
 	gtcore formatcmd [mymethod ExpandFormat]
 	gtcore sortcmd   [mymethod ExpandSort]
 	gtcore savecmd   [mymethod Expand2]
 
 	set myimport {}
-	gtcore traverse $zp
+	gtcore traverse $zp {Generating revision order for import...}
 	set filemap $myimport
 	unset myimport
 
 	# And back to import control
 

Modified tools/cvs2fossil/lib/c2f_gtcore.tcl from [f5a1fffb8f] to [6d55331588].

@@ -37,14 +37,14 @@
     typemethod datacmd   {cmd} { ::variable mydatacmd   $cmd ; return }
     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]]
 
 	while {1} {