1 # ***************************************************************************
3 # * Copyright (C) 2004-2010, International Business Machines
4 # * Corporation; Unicode, Inc.; and others. All Rights Reserved.
6 # ***************************************************************************
7 # File: Greek_Latin_UNGEGN.txt
10 :: [[[:Greek:][:Mn:][:Me:]] [\:-;?·;·]] ;
12 $lower = [[:latin:][:greek:] & [:Ll:]] ;
13 $upper = [[:latin:][:greek:] & [:Lu:]] ;
14 $accent = [[:Mn:][:Me:]] ;
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] ;
29 $softener = [βΒγΓδΔζΖλΛμΜνΝρΡ$gvowel] ;
32 $afterLetter = [:L:] [\'$accent]* ;
33 $beforeLetter = [\'$accent]* [:L:] ;
47 Ψ } $beforeLower ↔ Ps ;
52 [^[:L:]$accent] { μπ → b ;
53 μπ } [^[:L:]$accent] → b ;
54 [^[:L:]$accent] { [Μμ][Ππ] → B ;
55 [Μμ][Ππ] } [^[:L:]$accent] → B ;
57 Μπ ← B } $beforeLower ;
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 ;
77 γ } $gammaLike ↔ n } $egammaLike ;
79 Γ } $gammaLike ↔ N } $egammaLike ;
88 Θ } $beforeLower ↔ Th ;
98 ν } $gammaLike → n\' ;
100 Ν } $gammaLike ↔ N\' ;
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 ;
127 Χ } $beforeLower ↔ Ch ;
153 Ϲ → | Σ; #U+03F9 GREEK CAPITAL LUNATE SIGMA SYMBOL
159 ← [Νν] { \' } $egammaLike ;
161 :: ([[[:Latin:][:Mn:][:Me:]] ['\:?]]) ;