Fossil SCM
Tweaked log output of filtering pass a bit.
Commit
b41127b9d811b2ae6ab4102bb8c2697f60cc1af1
Parent
0868adf92a81435…
1 file changed
+5
-2
| --- tools/cvs2fossil/lib/c2f_pfiltersym.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_pfiltersym.tcl | ||
| @@ -243,12 +243,15 @@ | ||
| 243 | 243 | FROM branch B, symbol S |
| 244 | 244 | WHERE B.sid = S.sid |
| 245 | 245 | AND S.type = $tag |
| 246 | 246 | }] |
| 247 | 247 | |
| 248 | - log write 4 filtersym "Changing [nsp [expr {[llength $tagstomutate]/5}] tag] into branches" | |
| 249 | - log write 4 filtersym "Changing [nsp [expr {[llength $branchestomutate]/7}] branch branches] into tags" | |
| 248 | + set nt [expr {[llength $tagstomutate]/5}] | |
| 249 | + set nb [expr {[llength $branchestomutate]/7}] | |
| 250 | + | |
| 251 | + log write 4 filtersym "Changing [nsp $nt tag] into [nsp $nt branch branches]" | |
| 252 | + log write 4 filtersym "Changing [nsp $nb branch branches] into [nsp $nb tag]" | |
| 250 | 253 | |
| 251 | 254 | # # ## ### ##### ######## ############# |
| 252 | 255 | |
| 253 | 256 | log write 3 filtersym "Mutate tags to branches" |
| 254 | 257 | |
| 255 | 258 |
| --- tools/cvs2fossil/lib/c2f_pfiltersym.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pfiltersym.tcl | |
| @@ -243,12 +243,15 @@ | |
| 243 | FROM branch B, symbol S |
| 244 | WHERE B.sid = S.sid |
| 245 | AND S.type = $tag |
| 246 | }] |
| 247 | |
| 248 | log write 4 filtersym "Changing [nsp [expr {[llength $tagstomutate]/5}] tag] into branches" |
| 249 | log write 4 filtersym "Changing [nsp [expr {[llength $branchestomutate]/7}] branch branches] into tags" |
| 250 | |
| 251 | # # ## ### ##### ######## ############# |
| 252 | |
| 253 | log write 3 filtersym "Mutate tags to branches" |
| 254 | |
| 255 |
| --- tools/cvs2fossil/lib/c2f_pfiltersym.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pfiltersym.tcl | |
| @@ -243,12 +243,15 @@ | |
| 243 | FROM branch B, symbol S |
| 244 | WHERE B.sid = S.sid |
| 245 | AND S.type = $tag |
| 246 | }] |
| 247 | |
| 248 | set nt [expr {[llength $tagstomutate]/5}] |
| 249 | set nb [expr {[llength $branchestomutate]/7}] |
| 250 | |
| 251 | log write 4 filtersym "Changing [nsp $nt tag] into [nsp $nt branch branches]" |
| 252 | log write 4 filtersym "Changing [nsp $nb branch branches] into [nsp $nb tag]" |
| 253 | |
| 254 | # # ## ### ##### ######## ############# |
| 255 | |
| 256 | log write 3 filtersym "Mutate tags to branches" |
| 257 | |
| 258 |