]>
Commit | Line | Data |
---|---|---|
73c04bcf A |
1 | # *************************************************************************** |
2 | # * | |
46f4442e | 3 | # * Copyright (C) 2004-2008, International Business Machines |
73c04bcf A |
4 | # * Corporation; Unicode, Inc.; and others. All Rights Reserved. |
5 | # * | |
6 | # *************************************************************************** | |
7 | # File: Greek_Latin_UNGEGN.txt | |
46f4442e | 8 | # Generated from CLDR |
73c04bcf A |
9 | # |
10 | :: [[[:Greek:][:Mn:][:Me:]] [\:-;?·;·]] ; | |
11 | ::NFD (NFC) ; | |
12 | $lower = [[:latin:][:greek:] & [:Ll:]] ; | |
13 | $upper = [[:latin:][:greek:] & [:Lu:]] ; | |
14 | $accent = [[:Mn:][:Me:]] ; | |
15 | $macron = \u0304 ; | |
16 | $ddot = \u0308 ; | |
17 | $lcgvowel = [αεηιουω] ; | |
18 | $ucgvowel = [ΑΕΗΙΟΥΩ] ; | |
19 | $gvowel = [$lcgvowel $ucgvowel] ; | |
20 | $lcgvowelC = [$lcgvowel $accent] ; | |
21 | $evowel = [aeiouyAEIOUY]; | |
22 | $vowel = [ $evowel $gvowel] ; | |
23 | $beforeLower = $accent * $lower ; | |
24 | $gammaLike = [ΓΚΞΧγκξχϰ] ; | |
25 | $egammaLike = [GKXCgkxc] ; | |
26 | $smooth = \u0313 ; | |
27 | $rough = \u0314 ; | |
28 | $iotasub = \u0345 ; | |
29 | $softener = [βΒγΓδΔζΖλΛμΜνΝρΡ$gvowel] ; | |
30 | $under = \u0331; | |
31 | $caron = \u030C; | |
32 | $afterLetter = [:L:] [\'$accent]* ; | |
33 | $beforeLetter = [\'$accent]* [:L:] ; | |
34 | \: <> \: $under ; | |
35 | \? <> \? $under ; | |
36 | \; <> \? ; | |
37 | · <> \: ; | |
38 | \u0342 > \u0301 ; | |
39 | \u0302 > \u0301 ; | |
40 | \u0300 > \u0301 ; | |
41 | $smooth > ; | |
42 | $rough > ; | |
43 | $iotasub > ; | |
44 | ͺ > ; | |
45 | η <> i $under ; | |
46 | Η <> I $under ; | |
47 | Ψ } $beforeLower <> Ps ; | |
48 | Ψ <> PS ; | |
49 | ψ <> ps ; | |
50 | ω <> o $under ; | |
51 | Ω <> O $under; | |
52 | [^[:L:]$accent] { μπ > b ; | |
53 | μπ } [^[:L:]$accent] > b ; | |
54 | [^[:L:]$accent] { [Μμ][Ππ] > B ; | |
55 | [Μμ][Ππ] } [^[:L:]$accent] > B ; | |
56 | μπ < b ; | |
57 | Μπ < B } $beforeLower ; | |
58 | ΜΠ < B ; | |
59 | ου <> ou ; | |
60 | ΟΥ <> OU ; | |
61 | Ου <> Ou ; | |
62 | οΥ <> oU ; | |
63 | $fmaker = [aeiAEI] $under ? ; | |
64 | $shiftForwardVowels = [[:Mn:]-[\u0308]]; # note: a diaeresis keeps the items separate | |
65 | $fmaker { υ ( $shiftForwardVowels )* } $softener > $1 v $under ; | |
66 | υ $1 < ( $shiftForwardVowels )* v $under ; | |
67 | $fmaker { υ ( $shiftForwardVowels )* } > $1 f $under; | |
68 | υ $1 < ( $shiftForwardVowels )* f $under ; | |
69 | $fmaker { Υ } $softener <> V $under ; | |
70 | $fmaker { Υ <> U $under ; | |
71 | υ <> y ; | |
72 | Υ <> Y ; | |
73 | α <> a ; | |
74 | Α <> A ; | |
75 | β <> v ; | |
76 | Β <> V ; | |
77 | γ } $gammaLike <> n } $egammaLike ; | |
78 | γ <> g ; | |
79 | Γ } $gammaLike <> N } $egammaLike ; | |
80 | Γ <> G ; | |
81 | δ <> d ; | |
82 | Δ <> D ; | |
83 | ε <> e ; | |
84 | Ε <> E ; | |
85 | ζ <> z ; | |
86 | Ζ <> Z ; | |
87 | θ <> th ; | |
88 | Θ } $beforeLower <> Th ; | |
89 | Θ <> TH ; | |
90 | ι <> i ; | |
91 | Ι <> I ; | |
92 | κ <> k ; | |
93 | Κ <> K ; | |
94 | λ <> l ; | |
95 | Λ <> L ; | |
96 | μ <> m ; | |
97 | Μ <> M ; | |
98 | ν } $gammaLike > n\' ; | |
99 | ν <> n ; | |
100 | Ν } $gammaLike <> N\' ; | |
101 | Ν <> N ; | |
102 | ξ <> x ; | |
103 | Ξ <> X ; | |
104 | ο <> o ; | |
105 | Ο <> O ; | |
106 | π <> p ; | |
107 | Π <> P ; | |
108 | ρ <> r ; | |
109 | Ρ <> R ; | |
110 | [Pp] { } [ςσΣϷϸϺϻ] > \' ; | |
111 | Ϸ <> S\u030C ; # Ϸ GREEK CAPITAL LETTER SHO Uppercase_Letter Grek - L | |
112 | ϸ <> s\u030C ; #ϸ GREEK SMALL LETTER SHO Lowercase_Letter Grek - L | |
113 | Ϻ <> S\u0302 ; # Ϻ GREEK CAPITAL LETTER SAN Uppercase_Letter Grek - L | |
114 | ϻ <> s\u0302 ; # ϻ GREEK SMALL LETTER SAN Lowercase_Letter Grek - L | |
115 | ς } $beforeLetter <> s $under } $beforeLetter; | |
116 | σ } $beforeLetter <> s } $beforeLetter; | |
117 | $afterLetter { σ <> $afterLetter { s $under; | |
118 | $afterLetter { ς <> $afterLetter { s ; | |
119 | ς <> s $under; | |
120 | σ <> s ; | |
121 | Σ <> S ; | |
122 | τ <> t ; | |
123 | Τ <> T ; | |
124 | φ <> f ; | |
125 | Φ <> F ; | |
126 | χ <> ch ; | |
127 | Χ } $beforeLower <> Ch ; | |
128 | Χ <> CH ; | |
129 | | ch < h ; | |
130 | | k < c ; | |
131 | | i < j ; | |
132 | | k < q ; | |
133 | | b < u } $vowel ; | |
134 | | b < w } $vowel ; | |
135 | | y < u ; | |
136 | | y < w ; | |
137 | | Ch < H ; | |
138 | | K < C ; | |
139 | | I < J ; | |
140 | | K < Q ; | |
141 | | B < W } $vowel ; | |
142 | | B < U } $vowel ; | |
143 | | Y < W ; | |
144 | | Y < U ; | |
145 | ϐ > | β ; | |
146 | ϑ > | θ ; | |
147 | ϒ > | Υ ; | |
148 | ϕ > | φ ; | |
149 | ϖ > | π ; | |
150 | ϰ > | κ ; | |
151 | ϱ > | ρ ; | |
152 | ϲ > | σ ; | |
153 | Ϲ > | Σ; #U+03F9 GREEK CAPITAL LUNATE SIGMA SYMBOL | |
154 | ϳ > j ; | |
155 | ϴ > | Θ ; | |
156 | ϵ > | ε ; | |
157 | µ > | μ ; | |
158 | < [Ππ] { \' } [Ss] ; | |
159 | < [Νν] { \' } $egammaLike ; | |
160 | ::NFC (NFD) ; | |
161 | :: ([[[:Latin:][:Mn:][:Me:]] ['\:?]]) ; |