Homec4science
Diffusion fabrepos2 (master) Browse

R232/generic2/huhyphen/testhyphenation.rb
9e9178097526master

Last Change
Raw File

testhyphenation.rb
View Options

This document is not UTF8. It was detected as ISO-8859-1 (Latin 1) and converted to UTF8 for display.
#!/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 "Minták betöltése...\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 betöltve.\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
c4science · Help