Overview
| SHA1 Hash: | e5ae612c8d41412b54e58c523c75df0d50275e8b |
|---|---|
| Date: | 2008-01-31 07:14:20 |
| User: | aku |
| Comment: | Added high-verbosity (level 11) logging to trace the application of rcs patches. |
| Timelines: | ancestors | descendants | both | trunk |
| Other Links: | files | ZIP archive | manifest |
Tags And Properties
- branch=trunk inherited from [a28c83647d]
- sym-trunk inherited from [a28c83647d]
Changes
[hide diffs]Modified tools/cvs2fossil/lib/c2f_file.tcl from [ce592fc078] to [8326ac9a4b].
@@ -446,17 +446,29 @@
set res ""
set lines [split $delta \n]
set nlines [llength $lines]
+ log write 11 file {Base lines = $blen}
+ log write 11 file {Delta lines = $nlines}
+
for {set i 0} {$i < $nlines} {} {
+ log write 11 file { @ $i = [lindex $lines $i]}
+ log write 11 file { ooff $ooff}
+
if {![regexp {^([ad])(\d+)\s(\d+)$} [lindex $lines $i] -> cmd sl cn]} {
trouble internal "Bad ed command '[lindex $lines $i]'"
}
+ log write 11 file { cmd $cmd}
+ log write 11 file { sl $sl}
+ log write 11 file { cn $cn}
+
incr i
set el [expr {$sl + $cn}]
+
+ log write 11 file { el $el}
switch -exact -- $cmd {
d {
incr sl -1
incr el -1