Differences From:

File tools/cvs2fossil/lib/c2f_file.tcl part of check-in [7208c7ac4d] - Changes to cvs2fossil to import tcllib CVS into fossil on Win32

* using ::file instead of file in snit methods to get the core file command * taking care of files that only differ in case in the Attic and the repo on case insensitive FS * passing platform specific

by mjanssen on 2008-01-28 23:57:27. [view]

To:

File tools/cvs2fossil/lib/c2f_file.tcl part of check-in [e5ae612c8d] - Added high-verbosity (level 11) logging to trace the application of rcs patches. by aku on 2008-01-31 07:14:20. [view]

@@ -447,15 +447,27 @@
 
 	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