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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/env ruby
# Copyright (C) 2003, NAGY Bence <huhyphn@tipogral.hu>
# This program can be distributed under the terms of the
# GNU General Public License version 2.
$programname='Testhyphenation'
$programversion='v20031102'
class Testhyphenation
def initialize
print "Mintk betltse...\n"
@patterns=[]
patterns=0
IO.foreach("huhyphn.tex"){|aline|
unless aline=~/[\\%{}]/
aline=aline.gsub('','').gsub('','')
letter=false
key,value='',''
aline.chop.length.times{|i|
if aline[i,1]=~/\d/
value<<aline[i,1]
letter=false
else
value<<'0' if letter
key<<aline[i,1]
letter=true
end
}
value<<'0' if letter
@patterns[key.length]={} unless @patterns[key.length]
@patterns[key.length][key]=value
patterns+=1
else
puts $1 if aline=~/\\message\{(.*)\}/
end
} if File.exist?("huhyphn.tex")
@patterns.length.times{|i|
@patterns[i]={} unless @patterns[i]
}
print patterns," minta betltve.\n\n"
end
def getpattern(key,value)
pattern=''
pattern=value.slice!(0,1) if value.length>key.length
key.length.times{|i|
pattern<<key[i]
pattern<<value[i] if value[i]
}
pattern.delete('0')
end
def hyphenword(word)
if word.length>1
key='.'+word+'.'
value='0'*key.length
key.tr!('A-Z','a-z')
pattern=''
1.upto(key.length){|i|
0.upto(key.length-i){|j|
if @patterns[i] and pattern=@patterns[i][key[j,i]]
print "\t",getpattern(key[j,i].dup,pattern.dup),"\n"
pattern.length.times{|k|
value[j+i-pattern.length+k]=pattern[k] if value[j+i-pattern.length+k]<pattern[k]
}
end
}
}
hyphenated=''
0.upto(word.length-2){|i|
hyphenated<<word[i,1]
hyphenated<<'-' if value[i+1,1]=~/[13579]/
}
hyphenated<<word[-1,1]
else
hyphenated=word
end
print "#{word} -> #{hyphenated}\n\n"
hyphenated
end
end
print "#{$programname} #{$programversion}\n"
testhyphenation=Testhyphenation.new
while gets
break if $_=="\n"
testhyphenation.hyphenword($_.strip)
end
|
