diff2.tcl

Go to the documentation of this file.

/*  MAIN PROGRAM*/
/* */
/*  Usage:*/
/*        diff2.tcl file1 file2*/
/* */
/*  Output:*/
/*        Puts out a list of lines describing the changes from file1 to file2*/
/*  in a format similar to 'patch'. It not the same as patch, but could*/
/*  be modified to be exactly the same.*/

lappend auto_path \
    [file join \
    [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] \
    modules struct]
package require struct

/*  Open the files and read the lines into memory*/

                      f1 =  [open [lindex $argv 0] r]
 lines1 =  [split [read $f1] \n]
close                   $f1

                      f2 =  [open [lindex $argv 1] r]
 lines2 =  [split [read $f2] \n]
close                   $f2

 i =  0
 j =  0

::struct::list assign [::struct::list longestCommonSubsequence $lines1 $lines2] x1 x2

 chunks =  0
foreach chunk [::struct::list lcsInvert2 $x1 $x2 [llength $lines1] [llength $lines2]] {
     chunks =  1
    puts ===========================================
    puts $chunk
    puts -------------------------------------------

    ::struct::list assign [lindex $chunk 1] b1 e1
    ::struct::list assign [lindex $chunk 2] b2 e2

    switch -exact -- [lindex $chunk 0] {
    changed {
        puts "< [join [lrange $lines1 $b1 $e1] "\n< "]"
        puts "---"
        puts "> [join [lrange $lines2 $b2 $e2] "\n> "]"
    }
    added   {
        puts "> [join [lrange $lines2 $b2 $e2] "\n> "]"
    }
    deleted {
        puts "< [join [lrange $lines1 $b1 $e1] "\n< "]"
    }
    }
}
if {$chunks} {
    puts ===========================================
}

exit