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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
#!/usr/bin/perl
$language = "German";
$variant = "DIN 5007";
$prefix = "de";
$script = "latin";
$alphabet = [
['A', ['a','A']],
[], # a with breve (romanian)
[], # a with circumflex (romanian)
[], # a with ogonek (polish)
['B', ['b','B']],
[], # b with hook (hausa)
['C', ['c','C']],
[], # ch (spanish/traditional)
[], # cs (hungarian)
[], # c with caron (many)
[], # c with acute (croatian, lower sorbian, polish)
[], # c with circumflex (esperanto)
[], # c with cedilla (albanian, kurdish, turkish)
['D', ['d','D']],
[], # dh (albanian)
[], # dz (hungarian)
[], # dzs (hungarian)
[], # d+z with caron (croatian)
[], # d+z with acute (upper sorbian)
[], # d with caron (slovak/large)
[], # d with stroke (croatian)
[], # d with hook (hausa)
[], # eth (icelandic)
['E', ['e','E'],['é','É']],
[], # e with caron (lower/upper sorbian)
[], # e with circumflex (kurdish)
[], # e with diaeresis (albanian)
[], # e with ogonek (polish)
['F', ['f','F']],
['G', ['g','G']],
[], # gj (albanian)
[], # gy (hungarian)
[], # g with circumflex (esperanto)
[], # g with breve (turkish)
[], # g with cedilla/comma (latvian)
[], # postpalatal fricative (gypsy/northrussian)
['H', ['h','H']],
[], # h with circumflex (esperanto)
[], # ch (many)
[], # dotless i (turkish)
['I', ['i','I']],
[], # i with inverted breve below (gypsy/northrussian)
[], # i with circumflex (kurdish, romanian)
[], # i with diaeresis (gypsy/northrussian)
['J', ['j','J']],
[], # j with circumflex (esperanto)
['K', ['k','K']],
[], # kh (gypsy/northrussian)
[], # k with cedilla/comma (latvian)
[], # k with hook (hausa)
[], # x (gypsy/northrussian)
[], # l with stroke (lower/upper sorbian)
['L', ['l','L']],
[], # lj (croatian)
[], # ll (albanian, spanish/traditional)
[], # ly (hungarian)
[], # l with cedilla/comma (latvian)
[], # l with stroke (polish)
[], # l with caron (slovak/large)
['M', ['m','M']],
['N', ['n','N']],
[], # nj (albanian, croatian)
[], # ny (hungarian)
[], # n with caron (slovak/large)
[], # n with acute (lower/upper sorbian, polish)
[], # n with tilde (spanish/modern, spanish/traditional)
[], # n with cedilla/comma (latvian)
['O', ['o','O']],
[], # o with acute (polish, upper sorbian)
[], # o with circumflex (vietnamese)
[], # o with horn (vietnamese)
[], # o with diaeresis (hungarian, turkish)
['P', ['p','P']],
[], # ph (gypsy/northrussian)
['Q', ['q','Q']],
['R', ['r','R']],
[], # rr (albanian)
[], # r with caron (czech, slovak/large, upper sorbian)
[], # r with acute (lower sorbian)
[], # r with cedilla/comma (latvian)
['S', ['s','S']],
[], # sh (albanian)
[], # sz (hungarian)
[], # s with caron (many)
[], # s with acute (lower sorbian, polish)
[], # s with circumflex (esperanto)
[], # s with comma below (romanian)
[], # s with cedilla (kurdish, turkish)
[], # z (estonian)
[], # z with caron (estonian)
['T', ['t','T']],
[], # th (albanian)
[], # ty (hungarian)
[], # t with caron (slovak/large)
[], # t with comma below (romanian)
[], # c with acute (upper sorbian)
['U', ['u','U']],
[], # u with breve (esperanto)
[], # u with circumflex (kurdish)
[], # u with horn (vietnamese)
[], # u with diaeresis (hungarian, turkish)
['V', ['v','V']],
['W', ['w','W']],
[], # o with tilde (estonian)
[], # a with diaeresis (estonian)
[], # o with diaeresis (estonian)
[], # u with diaeresis (estonian)
['X', ['x','X']],
[], # xh (albanian)
['Y', ['y','Y']],
[], # y preceded by apostrophe (hausa)
[], # yogh (english)
['Z', ['z','Z']],
[], # zh (albanian)
[], # zs (hungarian)
[], # z with caron (many)
[], # z with acute (lower sorbian, polish)
[], # z with dot above (polish)
[], # thorn (icelandic)
[], # wynn (english)
[], # ligature ae (danish, icelandic, norwegian)
[], # o with stroke (danish, norwegian)
[], # a with ring above (danish, norwegian, swedish)
[], # a with diaeresis (finnish, swedish)
[], # o with diaeresis (finnish, swedish)
[], # a with ring above (icelandic)
];
$sortcase = 'Aa';
#$sortcase = 'aA';
$ligatures = [
[['ß'], 'after', [['s','s']]],
[['ä','Ä'], 'after', [['a','e'], ['A','e']]],
[['ö','Ö'], 'after', [['o','e'], ['O','e']]],
[['ü','Ü'], 'after', [['u','e'], ['U','e']]]
];
@special = ('?', '!', '.', 'letters', '-', '\'', '{', '}');
do 'make-rules.pl';
|
