summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy/xindy-src/make-rules/alphabets/georgian/utf8.pl.in
blob: 94e594e87dbb7fbb58632186cbb25af2a531c92c (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
#!/usr/bin/perl

$language = "Georgian";
$prefix = "ka";
$script = "georgian";

$alphabet = [
['ა',    ['ა']],
['ბ',    ['ბ']],
['გ',    ['გ']],
['დ',    ['დ']],
['ე',    ['ე']],
['ვ',    ['ვ']],
['ზ',    ['ზ']],
['ჱ',    ['ჱ']],
['თ',    ['თ']],
['ი',    ['ი']],
['კ',    ['კ']],
['ლ',    ['ლ']],
['მ',    ['მ']],
['ნ',    ['ნ']],
['ჲ',    ['ჲ']],
['ო',    ['ო']],
['პ',    ['პ']],
['ჟ',    ['ჟ']],
['რ',    ['რ']],
['ს',    ['ს']],
['ტ',    ['ტ']],
['ჳ',    ['ჳ']],
['უ',    ['უ']],
['ფ',    ['ფ']],
['ქ',    ['ქ']],
['ღ',    ['ღ']],
['ყ',    ['ყ']],
['შ',    ['შ']],
['ჩ',    ['ჩ']],
['ც',    ['ც']],
['ძ',    ['ძ']],
['წ',    ['წ']],
['ჭ',    ['ჭ']],
['ხ',    ['ხ']],
['ჴ',    ['ჴ']],
['ჯ',    ['ჯ']],
['ჰ',    ['ჰ']],
['ჵ',    ['ჵ']]
];

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

# first lower or upper case?

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

do 'make-rules.pl';