diff options
Diffstat (limited to 'Master/texmf/doc/generic/huhyphen/testhyphenation.rb')
-rw-r--r-- | Master/texmf/doc/generic/huhyphen/testhyphenation.rb | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/Master/texmf/doc/generic/huhyphen/testhyphenation.rb b/Master/texmf/doc/generic/huhyphen/testhyphenation.rb deleted file mode 100644 index 287484fe4c6..00000000000 --- a/Master/texmf/doc/generic/huhyphen/testhyphenation.rb +++ /dev/null @@ -1,86 +0,0 @@ -#!/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 |