28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# Compare two lines and rate how much they resemble each other.
# This has never worked well. Some day I'll sit down, think this through,
# and come up with a better algorithm.
proc CompareLines {line1 line2} {
set opts $::Pref(ignore)
if {$::Pref(nocase)} {lappend opts -nocase}
set res [eval DiffUtil::diffStrings $opts \$line1 \$line2]
# Collect identical pieces and different pieces
set sames {}
set diffs1 {}
set diffs2 {}
foreach {same1 same2 diff1 diff2} $res {
lappend sames $same1
|
|
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# Compare two lines and rate how much they resemble each other.
# This has never worked well. Some day I'll sit down, think this through,
# and come up with a better algorithm.
proc CompareLines {line1 line2} {
set opts $::Pref(ignore)
if {$::Pref(nocase)} {lappend opts -nocase}
set res [DiffUtil::diffStrings {*}$opts $line1 $line2]
# Collect identical pieces and different pieces
set sames {}
set diffs1 {}
set diffs2 {}
foreach {same1 same2 diff1 diff2} $res {
lappend sames $same1
|