summaryrefslogtreecommitdiff
path: root/Master/texmf/doc/generic/huhyphen/testhyphenation.rb
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/doc/generic/huhyphen/testhyphenation.rb')
-rw-r--r--Master/texmf/doc/generic/huhyphen/testhyphenation.rb86
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