line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Lingua::Deva::Maps::HK; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
11
|
use v5.12.1; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
38
|
|
4
|
1
|
|
|
1
|
|
5
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
29
|
|
5
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
36
|
|
6
|
1
|
|
|
1
|
|
5
|
use charnames ':full'; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
7
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# Maps for Harvard-Kyoto transliteration |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our $CASE = 1; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
our %Consonants = ( |
13
|
|
|
|
|
|
|
"k" => "\N{DEVANAGARI LETTER KA}", |
14
|
|
|
|
|
|
|
"kh" => "\N{DEVANAGARI LETTER KHA}", |
15
|
|
|
|
|
|
|
"g" => "\N{DEVANAGARI LETTER GA}", |
16
|
|
|
|
|
|
|
"gh" => "\N{DEVANAGARI LETTER GHA}", |
17
|
|
|
|
|
|
|
"G" => "\N{DEVANAGARI LETTER NGA}", |
18
|
|
|
|
|
|
|
"c" => "\N{DEVANAGARI LETTER CA}", |
19
|
|
|
|
|
|
|
"ch" => "\N{DEVANAGARI LETTER CHA}", |
20
|
|
|
|
|
|
|
"j" => "\N{DEVANAGARI LETTER JA}", |
21
|
|
|
|
|
|
|
"jh" => "\N{DEVANAGARI LETTER JHA}", |
22
|
|
|
|
|
|
|
"J" => "\N{DEVANAGARI LETTER NYA}", |
23
|
|
|
|
|
|
|
"T" => "\N{DEVANAGARI LETTER TTA}", |
24
|
|
|
|
|
|
|
"Th" => "\N{DEVANAGARI LETTER TTHA}", |
25
|
|
|
|
|
|
|
"D" => "\N{DEVANAGARI LETTER DDA}", |
26
|
|
|
|
|
|
|
"Dh" => "\N{DEVANAGARI LETTER DDHA}", |
27
|
|
|
|
|
|
|
"N" => "\N{DEVANAGARI LETTER NNA}", |
28
|
|
|
|
|
|
|
"t" => "\N{DEVANAGARI LETTER TA}", |
29
|
|
|
|
|
|
|
"th" => "\N{DEVANAGARI LETTER THA}", |
30
|
|
|
|
|
|
|
"d" => "\N{DEVANAGARI LETTER DA}", |
31
|
|
|
|
|
|
|
"dh" => "\N{DEVANAGARI LETTER DHA}", |
32
|
|
|
|
|
|
|
"n" => "\N{DEVANAGARI LETTER NA}", |
33
|
|
|
|
|
|
|
"p" => "\N{DEVANAGARI LETTER PA}", |
34
|
|
|
|
|
|
|
"ph" => "\N{DEVANAGARI LETTER PHA}", |
35
|
|
|
|
|
|
|
"b" => "\N{DEVANAGARI LETTER BA}", |
36
|
|
|
|
|
|
|
"bh" => "\N{DEVANAGARI LETTER BHA}", |
37
|
|
|
|
|
|
|
"m" => "\N{DEVANAGARI LETTER MA}", |
38
|
|
|
|
|
|
|
"y" => "\N{DEVANAGARI LETTER YA}", |
39
|
|
|
|
|
|
|
"r" => "\N{DEVANAGARI LETTER RA}", |
40
|
|
|
|
|
|
|
"l" => "\N{DEVANAGARI LETTER LA}", |
41
|
|
|
|
|
|
|
"v" => "\N{DEVANAGARI LETTER VA}", |
42
|
|
|
|
|
|
|
"z" => "\N{DEVANAGARI LETTER SHA}", |
43
|
|
|
|
|
|
|
"S" => "\N{DEVANAGARI LETTER SSA}", |
44
|
|
|
|
|
|
|
"s" => "\N{DEVANAGARI LETTER SA}", |
45
|
|
|
|
|
|
|
"h" => "\N{DEVANAGARI LETTER HA}", |
46
|
|
|
|
|
|
|
); |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
our %Vowels = ( |
49
|
|
|
|
|
|
|
"a" => "\N{DEVANAGARI LETTER A}", |
50
|
|
|
|
|
|
|
"A" => "\N{DEVANAGARI LETTER AA}", |
51
|
|
|
|
|
|
|
"i" => "\N{DEVANAGARI LETTER I}", |
52
|
|
|
|
|
|
|
"I" => "\N{DEVANAGARI LETTER II}", |
53
|
|
|
|
|
|
|
"u" => "\N{DEVANAGARI LETTER U}", |
54
|
|
|
|
|
|
|
"U" => "\N{DEVANAGARI LETTER UU}", |
55
|
|
|
|
|
|
|
"R" => "\N{DEVANAGARI LETTER VOCALIC R}", |
56
|
|
|
|
|
|
|
"RR" => "\N{DEVANAGARI LETTER VOCALIC RR}", |
57
|
|
|
|
|
|
|
"lR" => "\N{DEVANAGARI LETTER VOCALIC L}", |
58
|
|
|
|
|
|
|
"lRR" => "\N{DEVANAGARI LETTER VOCALIC LL}", |
59
|
|
|
|
|
|
|
"e" => "\N{DEVANAGARI LETTER E}", |
60
|
|
|
|
|
|
|
"ai" => "\N{DEVANAGARI LETTER AI}", |
61
|
|
|
|
|
|
|
"o" => "\N{DEVANAGARI LETTER O}", |
62
|
|
|
|
|
|
|
"au" => "\N{DEVANAGARI LETTER AU}", |
63
|
|
|
|
|
|
|
); |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
our %Diacritics = ( |
66
|
|
|
|
|
|
|
# no diacritic for the inherent vowel |
67
|
|
|
|
|
|
|
"A" => "\N{DEVANAGARI VOWEL SIGN AA}", |
68
|
|
|
|
|
|
|
"i" => "\N{DEVANAGARI VOWEL SIGN I}", |
69
|
|
|
|
|
|
|
"I" => "\N{DEVANAGARI VOWEL SIGN II}", |
70
|
|
|
|
|
|
|
"u" => "\N{DEVANAGARI VOWEL SIGN U}", |
71
|
|
|
|
|
|
|
"U" => "\N{DEVANAGARI VOWEL SIGN UU}", |
72
|
|
|
|
|
|
|
"R" => "\N{DEVANAGARI VOWEL SIGN VOCALIC R}", |
73
|
|
|
|
|
|
|
"RR" => "\N{DEVANAGARI VOWEL SIGN VOCALIC RR}", |
74
|
|
|
|
|
|
|
"lR" => "\N{DEVANAGARI VOWEL SIGN VOCALIC L}", |
75
|
|
|
|
|
|
|
"lRR" => "\N{DEVANAGARI VOWEL SIGN VOCALIC LL}", |
76
|
|
|
|
|
|
|
"e" => "\N{DEVANAGARI VOWEL SIGN E}", |
77
|
|
|
|
|
|
|
"ai" => "\N{DEVANAGARI VOWEL SIGN AI}", |
78
|
|
|
|
|
|
|
"o" => "\N{DEVANAGARI VOWEL SIGN O}", |
79
|
|
|
|
|
|
|
"au" => "\N{DEVANAGARI VOWEL SIGN AU}", |
80
|
|
|
|
|
|
|
); |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
our %Finals = ( |
83
|
|
|
|
|
|
|
"M" => "\N{DEVANAGARI SIGN ANUSVARA}", |
84
|
|
|
|
|
|
|
# no sign for Candrabindu |
85
|
|
|
|
|
|
|
"H" => "\N{DEVANAGARI SIGN VISARGA}", |
86
|
|
|
|
|
|
|
); |
87
|
|
|
|
|
|
|
|
88
|
|
|
|
|
|
|
1; |