1 # ***************************************************************************
3 # * Copyright (C) 2004-2010, International Business Machines
4 # * Corporation; Unicode, Inc.; and others. All Rights Reserved.
6 # ***************************************************************************
7 # File: Greek_Latin.txt
10 :: [;µ·ÄËÏÖÜäëïöüÿ-āĒ-ēĪ-īŌ-ōŪ-ūŸǕ-ǜǞ-ǣǬ-ǭȪ-ȭȰ-ȳ\u0304\u0308\u0313-\u0314\u0342-\u0345ͺ;Ά-ΊΌΎ-ΡΣ-ώϐ-ϗϛϝϟϡϣϥϧϩϫϭϯ-ϵϷ-\u07FBЁЇёїӒ-ӓӚ-ӟӢ-ӧӪ-ӱӴ-ӵӸ-ӹḔ-ḗḠ-ḡḦ-ḧḮ-ḯḸ-ḹṎ-ṓṜ-ṝṺ-ṻẄ-ẅẌ-ẍẗἀ-ἕἘ-Ἕἠ-ὅὈ-Ὅὐ-ὗὙὛὝὟ-ώᾀ-ᾴᾶ-ᾼι῁-ῄῆ-ῌ῏-ΐῖ-Ί῟-Ῥῲ-ῴῶ-ῼΩϹ] ;
12 $lower = [[:latin:][:greek:] & [:Ll:]];
13 $glower = [[:greek:] & [:Ll:]];
14 $upper = [[:latin:][:greek:] & [:Lu:]] ;
16 $accentMinus = [ [\u0300-\u0345] & [:M:] - [\u0338]] ;
19 $ddotmac = [$ddot$macron];
20 $lcgvowel = [αεηιουω] ;
21 $ucgvowel = [ΑΕΗΙΟΥΩ] ;
22 $gvowel = [$lcgvowel $ucgvowel] ;
23 $lcgvowelC = [$lcgvowel $accent] ;
24 $evowel = [aeiouyAEIOUY];
26 $vowel = [ $evowel $gvowel] ;
27 $gammaLike = [ΓΚΞΧγκξχϰ] ;
28 $egammaLike = [GKXCgkxc] ;
32 $evowel_i = [$evowel-[iI]] ;
35 $afterLetter = [:L:] [[:M:]\']* ;
36 $beforeLetter = [[:M:]\']* [:L:] ;
37 $beforeLower = $accent * $lower ;
38 $notLetter = [^[:L:][:M:]] ;
45 $accent_minus = [[$accent]-[$iotasub$macron]];
46 Α } $accent_minus * $iotasub → | Α $macron ;
47 α } $accent_minus * $iotasub → | α $macron ;
48 $upper $accent * { $iotasub → I ;
50 | $1 $iotasub ← ($evowel $macron $accentMinus *) i ;
51 | $1 $iotasub ← ($evowel $macron $accentMinus *) I ;
52 Α ($macron?) $rough } $beforeLower → H | α $1;
53 Ε $rough } $beforeLower → H | ε;
54 Η $rough } $beforeLower → H | η ;
55 Ι ($ddot?) $rough } $beforeLower → H | ι $1;
56 Ο $rough } $beforeLower → H | ο ;
57 Υ $rough } $beforeLower → H | υ ;
58 Ω ($ddot?) $rough } $beforeLower → H | ω $1;
59 Α ($glower $macron?) $rough → H | α $1 ;
60 Ε ($glower) $rough → H | ε $1 ;
61 Η ($glower) $rough → H | η $1 ;
62 Ι ($glower $ddot?) $rough → H | ι $1 ;
63 Ο ($glower) $rough → H | ο $1 ;
64 Υ ($glower) $rough → H | υ $1 ;
65 Ω ($glower $ddot?) $rough → H | ω $1 ;
66 ($lcgvowel + $ddotmac? ) $rough → h | $1 ;
67 ($gvowel + $ddotmac? ) $rough → H | $1 ;
68 | $1 $rough ← h ($evowel $macron $ddot? $evowel2_i $macron?) ;
69 | $1 $rough ← h ($evowel $ddot? $evowel2 $macron?) ;
70 | $1 $rough ← h ($evowel $macron? $ddot?) ;
71 | $1 $rough ← H ([AEIOUY] $macron $ddot? $evowel2_i $macron?) ;
72 | $1 $rough ← H ([AEIOUY] $ddot? $evowel2 $macron?) ;
73 | $1 $rough ← H ([AEIOUY] $macron? $ddot?) ;
74 | A $1 $rough ← H a ($macron $ddot? $evowel2_i $macron?) ;
75 | E $1 $rough ← H e ($macron $ddot? $evowel2_i $macron?) ;
76 | I $1 $rough ← H i ($macron $ddot? $evowel2_i $macron?) ;
77 | O $1 $rough ← H o ($macron $ddot? $evowel2_i $macron?) ;
78 | U $1 $rough ← H u ($macron $ddot? $evowel2_i $macron?) ;
79 | Y $1 $rough ← H y ($macron $ddot? $evowel2_i $macron?) ;
80 | A $1 $rough ← H a ($ddot? $evowel2 $macron?) ;
81 | E $1 $rough ← H e ($ddot? $evowel2 $macron?) ;
82 | I $1 $rough ← H i ($ddot? $evowel2 $macron?) ;
83 | O $1 $rough ← H o ($ddot? $evowel2 $macron?) ;
84 | U $1 $rough ← H u ($ddot? $evowel2 $macron?) ;
85 | Y $1 $rough ← H y ($ddot? $evowel2 $macron?) ;
86 | A $1 $rough ← H a ($macron? $ddot? ) ;
87 | E $1 $rough ← H e ($macron? $ddot? ) ;
88 | I $1 $rough ← H i ($macron? $ddot? ) ;
89 | O $1 $rough ← H o ($macron? $ddot? ) ;
90 | U $1 $rough ← H u ($macron? $ddot? ) ;
91 | Y $1 $rough ← H y ($macron? $ddot? ) ;
93 | $1 $smooth ← $notLetter { ([rR]) } [^hH$smooth$rough] ;
94 | $1 $smooth ← $notLetter { ($evowel $macron? $evowel2 $macron?) } [^$smooth$rough] ;
95 | $1 $smooth ← $notLetter { ($evowel $macron?) } [^$evowel2$smooth$rough] ;
101 Ψ } $beforeLower ↔ Ps ;
103 Φ } $beforeLower ↔ Ph ;
112 γ } $gammaLike ↔ n } $egammaLike ;
114 Γ } $gammaLike ↔ N } $egammaLike ;
123 Θ } $beforeLower ↔ Th ;
133 ν } $gammaLike → n\' ;
135 Ν } $gammaLike ↔ N\' ;
144 Ρ $rough } $beforeLower ↔ Rh ;
148 [Pp] { } [ςσΣϷϸϺϻ] → \' ;
149 Ϸ ↔ S\u030C ; # Ϸ GREEK CAPITAL LETTER SHO Uppercase_Letter Grek - L
150 ϸ ↔ s\u030C ; #ϸ GREEK SMALL LETTER SHO Lowercase_Letter Grek - L
151 Ϻ ↔ S\u0302 ; # Ϻ GREEK CAPITAL LETTER SAN Uppercase_Letter Grek - L
152 ϻ ↔ s\u0302 ; # ϻ GREEK SMALL LETTER SAN Lowercase_Letter Grek - L
153 ς } $beforeLetter ↔ s $underbar } $beforeLetter;
154 σ } $beforeLetter ↔ s } $beforeLetter;
155 $afterLetter { σ ↔ $afterLetter { s $underbar;
156 $afterLetter { ς ↔ $afterLetter { s ;
167 Χ } $beforeLower ↔ Ch ;
169 $ignore = [[:Mark:]''] * ;
186 $rough } $ignore [:UppercaseLetter:] → H ;
187 $ignore [:UppercaseLetter:] { $rough → H ;
198 Ϲ → | Σ; #U+03F9 GREEK CAPITAL LUNATE SIGMA SYMBOL
205 ← [Νν] { \' } $egammaLike ;
207 :: ( [':?A-Za-zÀ-ÅÇ-ÏÑ-ÖÙ-Ýà-åç-ïñ-öù-ýÿ-ďĒ-ĥĨ-İĴ-ķĹ-ľŃ-ňŌ-őŔ-ťŨ-žƠ-ơƯ-ưǍ-ǜǞ-ǣǦ-ǰǴ-ǵǸ-țȞ-ȟȦ-ȳ\u0300-\u0337\u0339-\u0345΅-ΆΈ-ΊΌΎ-ΐΪ-ΰϊ-ώϓ-ϔЀ-ЁЃЇЌ-ЎЙйѐ-ёѓїќ-ўѶ-ѷӁ-ӂӐ-ӓӖ-ӗӚ-ӟӢ-ӧӪ-ӵӸ-ӹḀ-ẙẛẠ-ỹἀ-ἕἘ-Ἕἠ-ὅὈ-Ὅὐ-ὗὙὛὝὟ-ώᾀ-ᾴᾶ-ᾼ῁-ῄῆ-ΐῖ-Ί῝-΅ῲ-ῴῶ-ῼK-Å] ) ;