43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# Compensate for any change in length
if {[string length $f1] < [string length $f2]} {
append f1 [read $ch1 [expr {[string length $f2] - [string length $f1]}]]
}
if {[string length $f2] < [string length $f1]} {
append f2 [read $ch2 [expr {[string length $f1] - [string length $f2]}]]
}
if {![string equal $f1 $f2]} {
# Returning 0 signals "not equal"
return 0
}
# Return 1 means "equal"
# Return 2 means "equal this far", and lets normal compare take over
return 2
}
|
|
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# Compensate for any change in length
if {[string length $f1] < [string length $f2]} {
append f1 [read $ch1 [expr {[string length $f2] - [string length $f1]}]]
}
if {[string length $f2] < [string length $f1]} {
append f2 [read $ch2 [expr {[string length $f1] - [string length $f2]}]]
}
if { ! [string equal $f1 $f2]} {
# Returning 0 signals "not equal"
return 0
}
# Return 1 means "equal"
# Return 2 means "equal this far", and lets normal compare take over
return 2
}
|