Fossil SCM
Added high-verbosity (level 11) logging to trace the application of rcs patches.
Commit
e5ae612c8d41412b54e58c523c75df0d50275e8b
Parent
7c43583de113828…
1 file changed
+12
| --- tools/cvs2fossil/lib/c2f_file.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_file.tcl | ||
| @@ -446,17 +446,29 @@ | ||
| 446 | 446 | set res "" |
| 447 | 447 | |
| 448 | 448 | set lines [split $delta \n] |
| 449 | 449 | set nlines [llength $lines] |
| 450 | 450 | |
| 451 | + log write 11 file {Base lines = $blen} | |
| 452 | + log write 11 file {Delta lines = $nlines} | |
| 453 | + | |
| 451 | 454 | for {set i 0} {$i < $nlines} {} { |
| 455 | + log write 11 file { @ $i = [lindex $lines $i]} | |
| 456 | + log write 11 file { ooff $ooff} | |
| 457 | + | |
| 452 | 458 | if {![regexp {^([ad])(\d+)\s(\d+)$} [lindex $lines $i] -> cmd sl cn]} { |
| 453 | 459 | trouble internal "Bad ed command '[lindex $lines $i]'" |
| 454 | 460 | } |
| 455 | 461 | |
| 462 | + log write 11 file { cmd $cmd} | |
| 463 | + log write 11 file { sl $sl} | |
| 464 | + log write 11 file { cn $cn} | |
| 465 | + | |
| 456 | 466 | incr i |
| 457 | 467 | set el [expr {$sl + $cn}] |
| 468 | + | |
| 469 | + log write 11 file { el $el} | |
| 458 | 470 | |
| 459 | 471 | switch -exact -- $cmd { |
| 460 | 472 | d { |
| 461 | 473 | incr sl -1 |
| 462 | 474 | incr el -1 |
| 463 | 475 |
| --- tools/cvs2fossil/lib/c2f_file.tcl | |
| +++ tools/cvs2fossil/lib/c2f_file.tcl | |
| @@ -446,17 +446,29 @@ | |
| 446 | set res "" |
| 447 | |
| 448 | set lines [split $delta \n] |
| 449 | set nlines [llength $lines] |
| 450 | |
| 451 | for {set i 0} {$i < $nlines} {} { |
| 452 | if {![regexp {^([ad])(\d+)\s(\d+)$} [lindex $lines $i] -> cmd sl cn]} { |
| 453 | trouble internal "Bad ed command '[lindex $lines $i]'" |
| 454 | } |
| 455 | |
| 456 | incr i |
| 457 | set el [expr {$sl + $cn}] |
| 458 | |
| 459 | switch -exact -- $cmd { |
| 460 | d { |
| 461 | incr sl -1 |
| 462 | incr el -1 |
| 463 |
| --- tools/cvs2fossil/lib/c2f_file.tcl | |
| +++ tools/cvs2fossil/lib/c2f_file.tcl | |
| @@ -446,17 +446,29 @@ | |
| 446 | set res "" |
| 447 | |
| 448 | set lines [split $delta \n] |
| 449 | set nlines [llength $lines] |
| 450 | |
| 451 | log write 11 file {Base lines = $blen} |
| 452 | log write 11 file {Delta lines = $nlines} |
| 453 | |
| 454 | for {set i 0} {$i < $nlines} {} { |
| 455 | log write 11 file { @ $i = [lindex $lines $i]} |
| 456 | log write 11 file { ooff $ooff} |
| 457 | |
| 458 | if {![regexp {^([ad])(\d+)\s(\d+)$} [lindex $lines $i] -> cmd sl cn]} { |
| 459 | trouble internal "Bad ed command '[lindex $lines $i]'" |
| 460 | } |
| 461 | |
| 462 | log write 11 file { cmd $cmd} |
| 463 | log write 11 file { sl $sl} |
| 464 | log write 11 file { cn $cn} |
| 465 | |
| 466 | incr i |
| 467 | set el [expr {$sl + $cn}] |
| 468 | |
| 469 | log write 11 file { el $el} |
| 470 | |
| 471 | switch -exact -- $cmd { |
| 472 | d { |
| 473 | incr sl -1 |
| 474 | incr el -1 |
| 475 |