mkCTM (2926) | mkCTM (2948) |
---|---|
1#!/usr/local/bin/tclsh 2 3set CTMignoreCVS 0 4set CTMapply 1 5 6source $argv 7 8set tmp $CTMtmp --- 68 unchanged lines hidden (view full) --- 77 } 78 if {"x$h1" == "x$h2" && $s1 == $s2} { 79 return 80 puts stderr "M $b1$b2 $t1$t2 $n1" 81 puts $fo_files "CTMFA $n2 $u2 $g2 $m2 $h2" 82 incr changes 83 return 84 } | 1#!/usr/local/bin/tclsh 2 3set CTMignoreCVS 0 4set CTMapply 1 5 6source $argv 7 8set tmp $CTMtmp --- 68 unchanged lines hidden (view full) --- 77 } 78 if {"x$h1" == "x$h2" && $s1 == $s2} { 79 return 80 puts stderr "M $b1$b2 $t1$t2 $n1" 81 puts $fo_files "CTMFA $n2 $u2 $g2 $m2 $h2" 82 incr changes 83 return 84 } |
85 if {$b1 == "0" || $b2 == "0"} { | 85 if {$b1 == "0" && $b2 == "0"} { |
86 puts stderr "E $b1$b2 $t1$t2 $n1" 87 set i [catch "exec diff -e $d1/$n1 $d2/$n2 > tmp" j] 88 set s [file size tmp] 89 if {$s < $s2} { 90 puts $fo_files "CTMFE $n1 $u2 $g2 $m2 $h1 $h2 $s" 91 flush $fo_files 92 exec cat tmp >@ $fo_files 93 puts $fo_files "" --- 67 unchanged lines hidden --- | 86 puts stderr "E $b1$b2 $t1$t2 $n1" 87 set i [catch "exec diff -e $d1/$n1 $d2/$n2 > tmp" j] 88 set s [file size tmp] 89 if {$s < $s2} { 90 puts $fo_files "CTMFE $n1 $u2 $g2 $m2 $h1 $h2 $s" 91 flush $fo_files 92 exec cat tmp >@ $fo_files 93 puts $fo_files "" --- 67 unchanged lines hidden --- |