summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy/xindy-2.5.1/make-rules/alphabets/greek/polytonic-utf8.pl.in
blob: 2d012ec2c3dd59c3e8992f4956a44e1ef8e293e0 (plain)
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
#!/usr/bin/perl
$language = "Greek";
$variant = "polytonic";
$prefix = "el";
$script = "greek";

$alphabet = [
['Α', ['α','Α'],['ᾰ','Ᾰ'],['ᾱ','Ᾱ'],['ὰ','Ὰ'],['ά','Ά'],['ἀ','Ἀ'],
      ['ἁ','Ἁ'],['ἂ','Ἂ'],['ἃ','Ἃ'],['ἄ','Ἄ'],['ἅ','Ἅ'],['ἆ','Ἆ'],
      ['ἇ','Ἇ'],['ᾳ','ᾼ'],['ᾲ'],['ᾴ'],['ᾶ'],['ᾷ'],['ᾀ','ᾈ'], 
      ['ᾁ','ᾉ'],['ᾂ','ᾊ'],['ᾃ','ᾋ'],['ᾄ','ᾌ'],['ᾅ','ᾍ'],
      ['ᾆ','ᾎ'],['ᾇ','ᾏ'],['ᾲ'],['ᾴ']],
['Β', ['β','Β'],['ϐ']],
['Γ', ['γ','Γ']],
['Δ', ['δ','Δ']],
['Ε', ['ε','Ε'],['ὲ','Ὲ'],['έ','Έ'],['ἐ','Ἐ'],['ἑ','Ἑ'],
      ['έ','Έ'],['ἒ','Ἒ'],['ἓ','Ἓ'],['ἔ','Ἔ'],['ἕ','Ἕ']],
['Ζ', ['ζ','Ζ']],
['Ϝ', ['ϝ','Ϝ']],
['Η', ['η','Η'],['ὴ','Ὴ'],['ή','Ή'],['ἠ','Ἠ'],['ἡ','Ἡ'],
      ['ἢ','Ἢ'],['ἣ','Ἣ'],['ἤ','Ἤ'],['ἥ','Ἥ'],['ἦ','Ἦ'],
      ['ἧ','Ἧ'],['ᾐ','ᾘ'],['ᾑ','ᾙ'],['ᾒ','ᾚ'],['ᾓ','ᾛ'],
      ['ᾔ','ᾜ'],['ᾕ','ᾝ'],['ᾖ','ᾞ'],['ᾗ','ᾟ'],['ῃ','ῌ'],
      ['ῂ'],['ῄ'],['ῆ'],['ῇ']],
['Θ', ['θ','Θ'],['ϑ']],
['Ι', ['ι','Ι'],['ί','Ί'],['ϊ','Ϊ'],['ἰ','Ἰ'],['ἱ','Ἱ'],
      ['ἲ','Ἲ'],['ἳ','Ἳ'],['ἴ','Ἴ'],['ἵ','Ἵ'],['ἶ','Ἶ'],
      ['ἷ','Ἷ'],['ὶ','Ὶ'],['ῐ','Ῐ'],['ῑ','Ῑ'],
      ['ῗ'],['ῖ'],['ΐ'],['ῒ'],['ΐ']],
['ϳ',  ['ϳ']],
['Κ', ['κ','Κ']],
['Λ', ['λ','Λ']],
['Μ', ['μ','Μ']],
['Ν', ['ν','Ν']],
['Ξ', ['ξ','Ξ']],
['Ο', ['ο','Ο'],['ό','Ό'],['ὄ','Ὄ'],['ὀ','Ὀ'],['ὁ','Ὁ'],
      ['ὂ','Ὂ'],['ὃ','Ὃ'],['ὅ','Ὅ'],['ὸ','Ὸ'],['ό','Ό']],
['Π', ['π','Π']],
      [],
['Ρ', ['ρ','Ρ'],['ῥ','Ῥ'],['ῤ']],
['Σ', ['σ','Σ'], ['ς']],
['Τ', ['τ','Τ']],
['Υ', ['υ','Υ'],['ύ','Ύ'],['ϋ','Ϋ'],['ὑ','Ὑ'],['ὓ','Ὓ'],
      ['ὕ','Ὕ'],['ὗ','Ὗ'],['ὺ','Ὺ'],['ύ','Ύ'],['ῠ','Ῠ'],
      ['ῡ','Ῡ'],
      ['ΰ'],['ῢ'],['ΰ'],['ὐ'],['ὒ'],['ὔ'],['ὖ']],
['Φ', ['φ','Φ'],['ϕ']],
['Χ', ['χ','Χ']],
['Ψ', ['ψ','Ψ']],
['Ω', ['ω','Ω'],['ώ','Ώ'],['ὠ','Ὠ'],['ὡ','Ὡ'],['ὢ','Ὢ'],
      ['ὣ','Ὣ'],['ὤ','Ὤ'],['ὥ','Ὥ'],['ὦ','Ὦ'],['ὧ','Ὧ'],
      ['ὼ','Ὼ'],['ώ','Ώ'],['ᾠ','ᾨ'],['ᾡ','ᾩ'],['ᾢ','ᾪ'],
      ['ᾣ','ᾫ'],['ᾤ','ᾬ'],['ᾥ','ᾭ'],['ᾦ','ᾮ'],['ᾧ','ᾯ'],
      ['ῳ','ῼ'],['ῲ'],['ῴ'],['ῶ'],['ῷ']]
];

@special = ('?','!','.',';','·','letters','-','\'','\\/');

# first lower or upper case?

$sortcase = "Aa";
#$sortcase = "aA";

do 'make-rules.pl';