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
|
#!/usr/bin/perl
$language = "Hebrew";
$prefix = "iw";
$script = "hebrew";
$alphabet = [
['à', ['à'] ],
['á', ['á'] ],
['â', ['â'] ],
['ã', ['ã'] ],
['ä', ['ä'] ],
['å', ['å'] ],
['æ', ['æ'] ],
['ç', ['ç']],
['è', ['è'] ],
['é', ['é'] ],
['ë', ['ë','ê'] ],
['ì', ['ì'] ],
['î', ['î','í'] ],
['ð', ['ð','ï'] ],
['ñ', ['ñ'] ],
['ò', ['ò']],
['ô', ['ô','ó'] ],
['ö', ['ö','õ'] ],
['÷', ['÷'] ],
['ø', ['ø'] ],
['ù', ['ù'] ],
['ú', ['ú'] ]
];
$ligatures = [
];
@special = ('?', '!', '.', ';', '·', 'letters', '-');
# first lower or upper case?
$sortcase = "Aa";
#$sortcase = "aA";
do 'make-rules.pl';
|