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 = "Klingon";
$variant = "Standard Okrand Latin transliteration";
$prefix = "k1";
$script = "latin";
$alphabet = [
['a', ['a']],
['b', ['b']],
['ch', ['ch']],
['D', ['D']],
['e', ['e']],
['gh', ['gh']],
['H', ['H']],
['I', ['I']],
['j', ['j']],
['l', ['l']],
['m', ['m']],
['n', ['n']],
['ng', ['ng']],
['o', ['o']],
['p', ['p']],
['q', ['q']],
['Q', ['Q']],
['r', ['r']],
['S', ['S']],
['t', ['t']],
['tlh', ['tlh']],
['u', ['u']],
['v', ['v']],
['w', ['w']],
['y', ['y']],
['\'', ['\'']]
];
$sortcase = 'Aa';
#$sortcase = 'aA';
$ligatures = [
];
@special = ('?', '!', '.', 'letters', '-', '{', '}');
do 'make-rules.pl';
|
