/usr/lib/ruby/vendor_ruby/text/soundex.rb is in ruby-text 1.3.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | #
# Ruby implementation of the Soundex algorithm,
# as described by Knuth in volume 3 of The Art of Computer Programming.
#
# Author: Michael Neumann (neumann@s-direktnet.de)
#
module Text # :nodoc:
module Soundex
def soundex(str_or_arr)
case str_or_arr
when String
soundex_str(str_or_arr)
when Array
str_or_arr.collect{|ele| soundex_str(ele)}
else
nil
end
end
module_function :soundex
private
#
# returns nil if the value couldn't be calculated (empty-string, wrong-character)
# do not change the parameter "str"
#
def soundex_str(str)
str = str.upcase.gsub(/[^A-Z]/, "")
return nil if str.empty?
last_code = get_code(str[0,1])
soundex_code = str[0,1]
for index in 1...(str.size) do
return soundex_code if soundex_code.size == 4
code = get_code(str[index,1])
if code == "0" then
last_code = nil
elsif code != last_code then
soundex_code += code
last_code = code
end
end # for
return soundex_code.ljust(4, "0")
end
module_function :soundex_str
def get_code(char)
char.tr! "AEIOUYWHBPFVCSKGJQXZDTLMNR", "00000000111122222222334556"
end
module_function :get_code
end # module Soundex
end # module Text
|