summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb
diff options
context:
space:
mode:
authorMojca Miklavec <mojca.miklavec@gmail.com>2013-05-07 23:38:30 +0000
committerMojca Miklavec <mojca.miklavec@gmail.com>2013-05-07 23:38:30 +0000
commit1a8e9572db5e1902de28cf84b45f8ed8b45de5c0 (patch)
treecb220baa38f0f8b44f52e0f5340ed4c4c011ca13 /Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb
parenta51a5c6021b880f32efe163726f67cc673551c68 (diff)
hyph-utf8 (2012.05.08)
- add Georgian hyphenation patterns (by Levan Shoshiashvili) - add Thai hyphenation patterns (by Theppitak Karoonboonyanan) [not yet added as a package] - cleanup luatex-hyphen module - fix adding a dialect of a synonym in LuaTeX git-svn-id: svn://tug.org/texlive/trunk@30326 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb')
-rwxr-xr-xMaster/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb34
1 files changed, 14 insertions, 20 deletions
diff --git a/Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb b/Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb
index 48befd6f011..b4f2a3c82da 100755
--- a/Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb
+++ b/Master/texmf-dist/source/generic/hyph-utf8/generate-ptex-patterns.rb
@@ -15,7 +15,7 @@ $path_root=File.expand_path("../../..")
$path_ptex="#{$path_root}/tex/generic/hyph-utf8/patterns/ptex"
# load encodings
-encodings_list = ["ascii", "ec", "qx", "t2a", "lmc", "il2", "il3", "l7x"]
+encodings_list = ["ascii", "ec", "qx", "t2a", "lmc", "il2", "il3", "l7x", "t8m", "lth"]
encodings = Hash.new
encodings_list.each do |encoding_name|
encodings[encoding_name] = Encoding.new(encoding_name)
@@ -30,14 +30,6 @@ language_codes = Hash.new
languages.each do |language|
language_codes[language.code] = language.code
end
-# language_codes['mn-cyrl-x-lmc'] = nil
-# language_codes['sh-latn'] = 'sr-latn'
-# language_codes['sh-cyrl'] = nil
-
-# e = Encoding.new("ec")
-# puts e.convert_string_to_escaped_characters("moja čaša")
-#
-# return
languages.sort{|x,y| x.code <=> y.code }.each do |language|
encoding = nil
@@ -70,6 +62,8 @@ languages.sort{|x,y| x.code <=> y.code }.each do |language|
patterns = $l['no'].get_patterns
end
+ characters = patterns.join('').gsub(/[.0-9]/,'').unpack('U*').sort.uniq
+
if language.encoding != 'ascii' then
patterns = encoding.convert_to_escaped_characters(patterns)
exceptions = encoding.convert_to_escaped_characters(exceptions)
@@ -85,24 +79,24 @@ languages.sort{|x,y| x.code <=> y.code }.each do |language|
file_ptex.puts("% See the original file for details about author, licence etc.")
file_ptex.puts("%")
+ file_ptex.puts("\\bgroup")
+ # setting lccodes for letters
+ characters.each do |c|
+ if c >= 128 then
+ code = encoding.unicode_characters[c].code_enc
+ file_ptex.puts sprintf("\\lccode\"%02X=\"%02X", code, code)
+ end
+ end
+ # patterns
if patterns.length > 0 then
- # file_ptex.puts("\\patterns{\n#{encoding.convert_to_escaped_characters(patterns.join("\n"))}\n}")
file_ptex.puts("\\patterns{\n#{patterns.join("\n")}\n}")
end
+ # exceptions
if exceptions.length > 0 then
- # file_ptex.puts("\\hyphenation{\n#{encoding.convert_to_escaped_characters(exceptions.join("\n"))}\n}")
file_ptex.puts("\\hyphenation{\n#{exceptions.join("\n")}\n}")
end
+ file_ptex.puts("\\egroup")
-
- # # patterns
- # patterns.each do |pattern|
- # $file_pat.puts pattern.gsub(/'/,"’")
- # end
- # # exceptions
- # if exceptions != ""
- # $file_hyp.puts exceptions
- # end
file_ptex.close
end
end