Fossil SCM
Extended traversal core to allow custom labeling of the log output immediately before the traversal starts.
Commit
b81901adcb9d1a51828d311dd58ab219c3650c3f
Parent
b59cdc7f8a605c0…
2 files changed
+2
-2
+2
-2
| --- tools/cvs2fossil/lib/c2f_file.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_file.tcl | ||
| @@ -352,11 +352,11 @@ | ||
| 352 | 352 | gtcore datacmd [mymethod ExpandData] |
| 353 | 353 | gtcore formatcmd [mymethod ExpandFormat] |
| 354 | 354 | gtcore sortcmd [mymethod ExpandSort] |
| 355 | 355 | gtcore savecmd [mymethod Expand1 $ac $dir $max] |
| 356 | 356 | |
| 357 | - gtcore traverse $ex | |
| 357 | + gtcore traverse $ex {Expanding revisions...} | |
| 358 | 358 | close $ac |
| 359 | 359 | |
| 360 | 360 | # Now traverse the import graph, this builds the instruction |
| 361 | 361 | # map for the fossil deltas. |
| 362 | 362 | |
| @@ -364,11 +364,11 @@ | ||
| 364 | 364 | gtcore formatcmd [mymethod ExpandFormat] |
| 365 | 365 | gtcore sortcmd [mymethod ExpandSort] |
| 366 | 366 | gtcore savecmd [mymethod Expand2] |
| 367 | 367 | |
| 368 | 368 | set myimport {} |
| 369 | - gtcore traverse $zp | |
| 369 | + gtcore traverse $zp {Generating revision order for import...} | |
| 370 | 370 | set filemap $myimport |
| 371 | 371 | unset myimport |
| 372 | 372 | |
| 373 | 373 | # And back to import control |
| 374 | 374 | |
| 375 | 375 |
| --- tools/cvs2fossil/lib/c2f_file.tcl | |
| +++ tools/cvs2fossil/lib/c2f_file.tcl | |
| @@ -352,11 +352,11 @@ | |
| 352 | gtcore datacmd [mymethod ExpandData] |
| 353 | gtcore formatcmd [mymethod ExpandFormat] |
| 354 | gtcore sortcmd [mymethod ExpandSort] |
| 355 | gtcore savecmd [mymethod Expand1 $ac $dir $max] |
| 356 | |
| 357 | gtcore traverse $ex |
| 358 | close $ac |
| 359 | |
| 360 | # Now traverse the import graph, this builds the instruction |
| 361 | # map for the fossil deltas. |
| 362 | |
| @@ -364,11 +364,11 @@ | |
| 364 | gtcore formatcmd [mymethod ExpandFormat] |
| 365 | gtcore sortcmd [mymethod ExpandSort] |
| 366 | gtcore savecmd [mymethod Expand2] |
| 367 | |
| 368 | set myimport {} |
| 369 | gtcore traverse $zp |
| 370 | set filemap $myimport |
| 371 | unset myimport |
| 372 | |
| 373 | # And back to import control |
| 374 | |
| 375 |
| --- tools/cvs2fossil/lib/c2f_file.tcl | |
| +++ tools/cvs2fossil/lib/c2f_file.tcl | |
| @@ -352,11 +352,11 @@ | |
| 352 | gtcore datacmd [mymethod ExpandData] |
| 353 | gtcore formatcmd [mymethod ExpandFormat] |
| 354 | gtcore sortcmd [mymethod ExpandSort] |
| 355 | gtcore savecmd [mymethod Expand1 $ac $dir $max] |
| 356 | |
| 357 | gtcore traverse $ex {Expanding revisions...} |
| 358 | close $ac |
| 359 | |
| 360 | # Now traverse the import graph, this builds the instruction |
| 361 | # map for the fossil deltas. |
| 362 | |
| @@ -364,11 +364,11 @@ | |
| 364 | gtcore formatcmd [mymethod ExpandFormat] |
| 365 | gtcore sortcmd [mymethod ExpandSort] |
| 366 | gtcore savecmd [mymethod Expand2] |
| 367 | |
| 368 | set myimport {} |
| 369 | gtcore traverse $zp {Generating revision order for import...} |
| 370 | set filemap $myimport |
| 371 | unset myimport |
| 372 | |
| 373 | # And back to import control |
| 374 | |
| 375 |
| --- tools/cvs2fossil/lib/c2f_gtcore.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_gtcore.tcl | ||
| @@ -37,14 +37,14 @@ | ||
| 37 | 37 | typemethod datacmd {cmd} { ::variable mydatacmd $cmd ; return } |
| 38 | 38 | typemethod formatcmd {cmd} { ::variable myformatcmd $cmd ; return } |
| 39 | 39 | |
| 40 | 40 | # # ## ### ##### ######## ############# |
| 41 | 41 | |
| 42 | - typemethod traverse {graph} { | |
| 42 | + typemethod traverse {graph {label Traverse}} { | |
| 43 | 43 | InitializeCandidates $graph |
| 44 | 44 | |
| 45 | - log write 3 gtcore {Traverse} | |
| 45 | + log write 3 gtcore {$label} | |
| 46 | 46 | |
| 47 | 47 | set k 0 |
| 48 | 48 | set max [llength [$graph nodes]] |
| 49 | 49 | |
| 50 | 50 | while {1} { |
| 51 | 51 |
| --- tools/cvs2fossil/lib/c2f_gtcore.tcl | |
| +++ tools/cvs2fossil/lib/c2f_gtcore.tcl | |
| @@ -37,14 +37,14 @@ | |
| 37 | typemethod datacmd {cmd} { ::variable mydatacmd $cmd ; return } |
| 38 | typemethod formatcmd {cmd} { ::variable myformatcmd $cmd ; return } |
| 39 | |
| 40 | # # ## ### ##### ######## ############# |
| 41 | |
| 42 | typemethod traverse {graph} { |
| 43 | InitializeCandidates $graph |
| 44 | |
| 45 | log write 3 gtcore {Traverse} |
| 46 | |
| 47 | set k 0 |
| 48 | set max [llength [$graph nodes]] |
| 49 | |
| 50 | while {1} { |
| 51 |
| --- tools/cvs2fossil/lib/c2f_gtcore.tcl | |
| +++ tools/cvs2fossil/lib/c2f_gtcore.tcl | |
| @@ -37,14 +37,14 @@ | |
| 37 | typemethod datacmd {cmd} { ::variable mydatacmd $cmd ; return } |
| 38 | typemethod formatcmd {cmd} { ::variable myformatcmd $cmd ; return } |
| 39 | |
| 40 | # # ## ### ##### ######## ############# |
| 41 | |
| 42 | typemethod traverse {graph {label Traverse}} { |
| 43 | InitializeCandidates $graph |
| 44 | |
| 45 | log write 3 gtcore {$label} |
| 46 | |
| 47 | set k 0 |
| 48 | set max [llength [$graph nodes]] |
| 49 | |
| 50 | while {1} { |
| 51 |