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
|
#!/usr/bin/env ruby
#
# This script generates TeX hyphenation patterns for Armenian
#
# Rules written by Sahak Petrosyan <sahak at mit.edu> (author)
#
# These are just primitive rules that says that if there is a
# combination like <vowel><consonant><vowel>, then it should hyphenate
# like this: <vowel> - <consonant><vowel>.
#
# There are more rules to implement
#
# Script written by Mojca Miklavec <mojca.miklavec.lists at gmail.com>
# (who is not the author of patterns)
#
$file = File.new("../../../../../tex/generic/hyph-utf8/patterns/tex/hyph-hy.tex", "w")
# write comments into the file
def add_comment(str)
$file.puts "% " + str.gsub(/\n/, "\n% ").gsub(/% \n/, "%\n")
end
vowels=%w{ա ե է ը ի ո օ}
consonants=%w{բ գ դ զ թ ժ լ խ ծ կ հ ձ ղ ճ մ յ ն շ չ պ ջ ռ ս վ տ ր ց փ ք}
add_comment(
"Hyphenation patterns for Armenian.
Written by Sahak Petrosyan <sahak at mit.edu>
for Hyphenator.js (http://code.google.com/p/hyphenator/)
and later adapted for TeX
Licence: LGPL
Version: May 2010
These are just primitive rules that hyphenate combinations like
<vowel> - <consonant><vowel>.
File auto-generated by a script (see source/generic/hyph-utf8/languages/hy)
Vowels: #{vowels.join(" ")}
Consonants: #{consonants.join(" ")}
Some of the patterns below represent combinations that never
appear in Armenian, but they would be hyphenated according to the rules.
")
$file.puts '\patterns{'
add_comment(
"և-<vowel>")
vowels.each do |vowel|
$file.puts "և1#{vowel}"
end
add_comment(
"<vowel>-<consonant><vowel>")
vowels.each do |v1|
consonants.each do |c|
patterns = []
vowels.each do |v2|
patterns.push "#{v1}1#{c}#{v2}"
end
$file.puts patterns.join(" ")
end
$file.puts "%"
end
$file.puts "}"
|
