Fossil SCM
Added progress output to the breaking of backward branches.
Commit
a437da486daf3e17604928a8d566f2cca9359aa6
Parent
fd93aa26a6abff8…
1 file changed
+3
| --- tools/cvs2fossil/lib/c2f_pbreakacycle.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl | ||
| @@ -122,11 +122,14 @@ | ||
| 122 | 122 | # at least one incoming revision changeset which is committed |
| 123 | 123 | # after at least one of the outgoing revision changesets, per |
| 124 | 124 | # the order computed in pass 6. In "cvs2svn" this is called |
| 125 | 125 | # "retrograde". |
| 126 | 126 | |
| 127 | + set n 0 | |
| 128 | + set max [llength [$graph nodes]] | |
| 127 | 129 | foreach cset [$graph nodes] { |
| 130 | + log progress 2 breakacycle $n $max ; incr n | |
| 128 | 131 | if {![$cset isbranch]} continue |
| 129 | 132 | CheckAndBreakBackward $graph $cset |
| 130 | 133 | } |
| 131 | 134 | return |
| 132 | 135 | } |
| 133 | 136 |
| --- tools/cvs2fossil/lib/c2f_pbreakacycle.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl | |
| @@ -122,11 +122,14 @@ | |
| 122 | # at least one incoming revision changeset which is committed |
| 123 | # after at least one of the outgoing revision changesets, per |
| 124 | # the order computed in pass 6. In "cvs2svn" this is called |
| 125 | # "retrograde". |
| 126 | |
| 127 | foreach cset [$graph nodes] { |
| 128 | if {![$cset isbranch]} continue |
| 129 | CheckAndBreakBackward $graph $cset |
| 130 | } |
| 131 | return |
| 132 | } |
| 133 |
| --- tools/cvs2fossil/lib/c2f_pbreakacycle.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pbreakacycle.tcl | |
| @@ -122,11 +122,14 @@ | |
| 122 | # at least one incoming revision changeset which is committed |
| 123 | # after at least one of the outgoing revision changesets, per |
| 124 | # the order computed in pass 6. In "cvs2svn" this is called |
| 125 | # "retrograde". |
| 126 | |
| 127 | set n 0 |
| 128 | set max [llength [$graph nodes]] |
| 129 | foreach cset [$graph nodes] { |
| 130 | log progress 2 breakacycle $n $max ; incr n |
| 131 | if {![$cset isbranch]} continue |
| 132 | CheckAndBreakBackward $graph $cset |
| 133 | } |
| 134 | return |
| 135 | } |
| 136 |