18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
proc maxAbs {a b} {
return [expr {abs($a) > abs($b) ? $a : $b}]
}
# 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)
|
|
|
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
proc maxAbs {v1 v2} {
return [expr {abs($v1) > abs($v2) ? $v1 : $v2}]
}
# 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)
|