261 lines
5.1 KiB
Plaintext
261 lines
5.1 KiB
Plaintext
// -*- Coding: utf-8; -*-
|
||
//--------------------------------------------------------------------
|
||
// Copyright (c) 1999-2002, International Business Machines
|
||
// Corporation and others. All Rights Reserved.
|
||
//--------------------------------------------------------------------
|
||
// THIS IS A MACHINE-GENERATED FILE
|
||
// Tool: dumpicurules.bat
|
||
// Source: ../../../impl/data/Transliterator_Greek_Latin_UNGEGN.txt
|
||
// Date: Sat Jul 27 10:31:01 2002
|
||
//--------------------------------------------------------------------
|
||
|
||
// Greek_Latin_UNGEGN
|
||
|
||
t_Grek_Latn_UNGEGN {
|
||
Rule {
|
||
//--------------------------------------------------------------------
|
||
//--------------------------------------------------------------------
|
||
//--------------------------------------------------------------------
|
||
// For modern Greek, based on UNGEGN rules.
|
||
|
||
// Rules are predicated on running NFD first, and NFC afterwards
|
||
// MINIMAL FILTER GENERATED FOR: Greek-Latin/UNGEGN
|
||
// WARNING: need to add accents to both filters ###
|
||
// :: [́̄̆̈;µ·ÀÂÈÊÌÎÒÔÙÛàâèêìîòôùûĈ-ĉĜ-ĝĤ-ĥĴ-ĵŜ-ŝŴ-ŷǛ-ǜǸ-ǹ̀̂̓-̔̀͂-̓ͅͺ;Ά-ΊΌΎ-ΡΣ-ώϐ-ϖϰ-ϵЀЍѐѝḔ-ḕṐ-ṑẀ-ẁẐ-ẑẤ-ậẰ-ằẾ-ệỐ-ộỜ-ờỪ-ừỲ-ỳἀ-ἕἘ-Ἕἠ-ὅὈ-Ὅὐ-ὗὙὛὝὟ-ώᾀ-ᾴᾶ-ᾼι῁-ῄῆ-῍῏-ΐῖ-Ί῝῟-῭ῲ-ῴῶ-ῼΩ] ;
|
||
|
||
":: [[[:Greek:][:Mn:][:Me:]] [\\\:-;?\u00B7\u037E\u0387]] ;"
|
||
"::NFD (NFC) ;"
|
||
|
||
// Useful variables
|
||
|
||
"$lower = [[:latin:][:greek:] & [:Ll:]] ;"
|
||
"$upper = [[:latin:][:greek:] & [:Lu:]] ;"
|
||
"$accent = [[:Mn:][:Me:]] ;"
|
||
|
||
"$macron = ̄ ;"
|
||
"$ddot = ̈ ;"
|
||
|
||
"$lcgvowel = [αεηιουω] ;"
|
||
"$ucgvowel = [ΑΕΗΙΟΥΩ] ;"
|
||
"$gvowel = [$lcgvowel $ucgvowel] ;"
|
||
"$lcgvowelC = [$lcgvowel $accent] ;"
|
||
|
||
"$evowel = [aeiouyAEIOUY];"
|
||
"$vowel = [ $evowel $gvowel] ;"
|
||
|
||
"$beforeLower = $accent * $lower ;"
|
||
|
||
"$gammaLike = [ΓΚΞΧγκξχϰ] ;"
|
||
"$egammaLike = [GKXCgkxc] ;"
|
||
"$smooth = ̓ ;"
|
||
"$rough = ̔ ;"
|
||
"$iotasub = ͅ ;"
|
||
|
||
"$softener = [βΒγΓδΔζΖλΛμΜνΝρΡ$gvowel] ;"
|
||
|
||
"$under = ̱;"
|
||
|
||
"$caron = ̌;"
|
||
|
||
"$afterLetter = [:L:] [\\\'$accent]* ;"
|
||
"$beforeLetter = [\\\'$accent]* [:L:] ;"
|
||
|
||
// Fix punctuation
|
||
|
||
// preserve orginal
|
||
"\\\: <> \\\: $under ;"
|
||
"\\\? <> \\\? $under ;"
|
||
|
||
"\\\; <> \\\? ;"
|
||
"· <> \\\: ;"
|
||
|
||
// Fix any ancient characters that creep in
|
||
|
||
"͂ > ́ ;"
|
||
"̂ > ́ ;"
|
||
"̀ > ́ ;"
|
||
"$smooth > ;"
|
||
"$rough > ;"
|
||
"$iotasub > ;"
|
||
"ͺ > ;"
|
||
|
||
// need to have these up here so the rules don't mask
|
||
|
||
"η <> i $under ;"
|
||
"Η <> I $under ;"
|
||
|
||
"Ψ } $beforeLower <> Ps ;"
|
||
"Ψ <> PS ;"
|
||
"ψ <> ps ;"
|
||
|
||
"ω <> o $under ;"
|
||
"Ω <> O $under;"
|
||
|
||
// at begining or end of word, convert mp to b
|
||
|
||
"[^[:L:]$accent] { μπ > b ;"
|
||
"μπ } [^[:L:]$accent] > b ;"
|
||
"[^[:L:]$accent] { [Μμ][Ππ] > B ;"
|
||
"[Μμ][Ππ] } [^[:L:]$accent] > B ;"
|
||
|
||
"μπ < b ;"
|
||
"Μπ < B } $beforeLower ;"
|
||
"ΜΠ < B ;"
|
||
|
||
// handle diphthongs ending with upsilon
|
||
|
||
"ου <> ou ;"
|
||
"ΟΥ <> OU ;"
|
||
"Ου <> Ou ;"
|
||
"οΥ <> oU ;"
|
||
|
||
"$fmaker = [aeiAEI] $under ? ;"
|
||
"$shiftForwardVowels = [[:Mn:]-[\u0308]];" // note: a diaeresis keeps the items separate
|
||
|
||
"$fmaker { υ ( $shiftForwardVowels )* } $softener > $1 v $under ;"
|
||
"υ $1 < ( $shiftForwardVowels )* v $under ;"
|
||
|
||
"$fmaker { υ ( $shiftForwardVowels )* } > $1 f $under;"
|
||
"υ $1 < ( $shiftForwardVowels )* f $under ;"
|
||
|
||
"$fmaker { Υ } $softener <> V $under ;"
|
||
"$fmaker { Υ <> U $under ;"
|
||
|
||
"υ <> y ;"
|
||
"Υ <> Y ;"
|
||
|
||
// NORMAL
|
||
|
||
"α <> a ;"
|
||
"Α <> A ;"
|
||
|
||
"β <> v ;"
|
||
"Β <> V ;"
|
||
|
||
"γ } $gammaLike <> n } $egammaLike ;"
|
||
"γ <> g ;"
|
||
"Γ } $gammaLike <> N } $egammaLike ;"
|
||
"Γ <> G ;"
|
||
|
||
"δ <> d ;"
|
||
"Δ <> D ;"
|
||
|
||
"ε <> e ;"
|
||
"Ε <> E ;"
|
||
|
||
"ζ <> z ;"
|
||
"Ζ <> Z ;"
|
||
|
||
"θ <> th ;"
|
||
"Θ } $beforeLower <> Th ;"
|
||
"Θ <> TH ;"
|
||
|
||
"ι <> i ;"
|
||
"Ι <> I ;"
|
||
|
||
"κ <> k ;"
|
||
"Κ <> K ;"
|
||
|
||
"λ <> l ;"
|
||
"Λ <> L ;"
|
||
|
||
"μ <> m ;"
|
||
"Μ <> M ;"
|
||
|
||
"ν } $gammaLike > n\\\' ;"
|
||
"ν <> n ;"
|
||
"Ν } $gammaLike <> N\\\' ;"
|
||
"Ν <> N ;"
|
||
|
||
"ξ <> x ;"
|
||
"Ξ <> X ;"
|
||
|
||
"ο <> o ;"
|
||
"Ο <> O ;"
|
||
|
||
"π <> p ;"
|
||
"Π <> P ;"
|
||
|
||
"ρ <> r ;"
|
||
"Ρ <> R ;"
|
||
|
||
"[Pp] { } ς > \\\' ;"
|
||
"[Pp] { } σ > \\\' ;"
|
||
|
||
// Caron means exception
|
||
|
||
// before a letter, initial
|
||
"ς } $beforeLetter <> s $under } $beforeLetter;"
|
||
"σ } $beforeLetter <> s } $beforeLetter;"
|
||
|
||
// otherwise, after a letter = final
|
||
"$afterLetter { σ <> $afterLetter { s $under;"
|
||
"$afterLetter { ς <> $afterLetter { s ;"
|
||
|
||
// otherwise (isolated) = initial
|
||
"ς <> s $under;"
|
||
"σ <> s ;"
|
||
|
||
"[Pp] { Σ <> \\\'S ;"
|
||
"Σ <> S ;"
|
||
|
||
"τ <> t ;"
|
||
"Τ <> T ;"
|
||
|
||
"φ <> f ;"
|
||
"Φ <> F ;"
|
||
|
||
"χ <> ch ;"
|
||
"Χ } $beforeLower <> Ch ;"
|
||
"Χ <> CH ;"
|
||
|
||
// Completeness for ASCII
|
||
|
||
// $ignore = [[:Mark:]''] * ;
|
||
|
||
"| ch < h ;"
|
||
"| k < c ;"
|
||
"| i < j ;"
|
||
"| k < q ;"
|
||
"| b < u } $vowel ;"
|
||
"| b < w } $vowel ;"
|
||
"| y < u ;"
|
||
"| y < w ;"
|
||
|
||
"| Ch < H ;"
|
||
"| K < C ;"
|
||
"| I < J ;"
|
||
"| K < Q ;"
|
||
"| B < W } $vowel ;"
|
||
"| B < U } $vowel ;"
|
||
"| Y < W ;"
|
||
"| Y < U ;"
|
||
|
||
// Completeness for Greek
|
||
|
||
"ϐ > | β ;"
|
||
"ϑ > | θ ;"
|
||
"ϒ > | Υ ;"
|
||
"ϕ > | φ ;"
|
||
"ϖ > | π ;"
|
||
|
||
"ϰ > | κ ;"
|
||
"ϱ > | ρ ;"
|
||
"ϲ > | σ ;"
|
||
"ϳ > j ;"
|
||
"ϴ > | Θ ;"
|
||
"ϵ > | ε ;"
|
||
"µ > | μ ;"
|
||
|
||
// delete any trailing ' marks used for roundtripping
|
||
|
||
"< [Ππ] { \\\' } [Ss] ;"
|
||
"< [Νν] { \\\' } $egammaLike ;"
|
||
|
||
"::NFC (NFD) ;"
|
||
|
||
// MINIMAL FILTER GENERATED FOR: Latin-Greek/UNGEGN BACKWARD
|
||
":: ([[[:Latin:][:Mn:][:Me:]] ['\\\:?]]) ;"
|
||
}
|
||
}
|