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 = [
['א', ['א'] @u{,['אַ'],['אֶ'],['אּ'],['אָ'],['אֻ']}],
['ב', ['ב'] @u{,['בַ'],['בָ'],['בּ'],['בֵּ']}],
['ג', ['ג'] @u{,['גּ']}],
['ד', ['ד'] @u{,['דּ']}],
['ה', ['ה'] @u{,['הּ']}],
['ו', ['ו'] @u{,['וּ']}],
['ז', ['ז'] @u{,['זּ']}],
['ח', ['ח']],
['ט', ['ט'] @u{,['טּ']}],
['י', ['י'] @u{,['יּ']}],
['כ', ['כ','ך'] @u{,['כּ','ךּ']}],
['ל', ['ל'] @u{,['לּ']}],
['מ', ['מ','ם'] @u{,['מּ']}],
['נ', ['נ','ן'] @u{,['נּ']}],
['ס', ['ס'] @u{,['סּ']}],
['ע', ['ע']],
['פ', ['פ','ף'] @u{,['פּ','ףּ']}],
['צ', ['צ','ץ'] @u{,['צּ']}],
['ק', ['ק'] @u{,['קּ']}],
['ר', ['ר'] @u{,['רּ']}],
['ש', ['ש'] @u{,['שׂ'],['שׁ'],['שּׁ']}],
['ת', ['ת'] @u{,['תּ']}]
];
$ligatures = [
@u{[['װ'], 'after', [['ו','ו']]],}
@u{[['ױ'], 'after', [['ו','י']]],}
@u{[['ײ'], 'after', [['י','י']]],}
];
@special = ('?', '!', '.', ';', '·', 'letters', @u{'וֹ',} '-');
# first lower or upper case?
$sortcase = "Aa";
#$sortcase = "aA";
do 'make-rules.pl';
|