// ******************************************************************************* // * // * Copyright (C) 1997-2001, International Business Machines // * Corporation and others. All Rights Reserved. // * // ******************************************************************************* el { Version { "1.0.1" } AmPmMarkers { "\u03C0\u03BC", "\u03BC\u03BC", } CollationElements { Version { "2.0" } Override { "FALSE" } Normalize { "TRUE" } Sequence { "[normalization on]" } } Countries { GR { "\u0395\u03BB\u03BB\u03AC\u03B4\u03B1" } } DateTimeElements { "2", "1", } DateTimePatterns { "h:mm:ss a z", "h:mm:ss a z", "h:mm:ss a", "h:mm a", "EEEE, d MMMM yyyy", "d MMMM yyyy", "d MMM yyyy", "d/M/yyyy", "{1} {0}", } DayAbbreviations { "\u039A\u03C5\u03C1", "\u0394\u03B5\u03C5", "\u03A4\u03C1\u03B9", "\u03A4\u03B5\u03C4", "\u03A0\u03B5\u03BC", "\u03A0\u03B1\u03C1", "\u03A3\u03B1\u03B2", } DayNames { "\u039A\u03C5\u03C1\u03B9\u03B1\u03BA\u03AE", "\u0394\u03B5\u03C5\u03C4\u03AD\u03C1\u03B1", "\u03A4\u03C1\u03AF\u03C4\u03B7", "\u03A4\u03B5\u03C4\u03AC\u03C1\u03C4\u03B7", "\u03A0\u03AD\u03BC\u03C0\u03C4\u03B7", "\u03A0\u03B1\u03C1\u03B1\u03C3\u03BA\u03B5\u03C5\u03AE", "\u03A3\u03AC\u03B2\u03B2\u03B1\u03C4\u03BF", } Languages { el { "\u03B5\u03BB\u03BB\u03B7\u03BD\u03B9\u03BA\u03AC" } } LocaleID { "08" } LocaleString { "el" } MonthAbbreviations { "\u0399\u03B1\u03BD", "\u03A6\u03B5\u03B2", "\u039C\u03B1\u03C1", "\u0391\u03C0\u03C1", "\u039C\u03B1\u03CA", "\u0399\u03BF\u03C5\u03BD", "\u0399\u03BF\u03C5\u03BB", "\u0391\u03C5\u03B3", "\u03A3\u03B5\u03C0", "\u039F\u03BA\u03C4", "\u039D\u03BF\u03B5", "\u0394\u03B5\u03BA", "", } MonthNames { "\u0399\u03B1\u03BD\u03BF\u03C5\u03AC\u03C1\u03B9\u03BF\u03C2", "\u03A6\u03B5\u03B2\u03C1\u03BF\u03C5\u03AC\u03C1\u03B9\u03BF\u03C2", "\u039C\u03AC\u03C1\u03C4\u03B9\u03BF\u03C2", "\u0391\u03C0\u03C1\u03AF\u03BB\u03B9\u03BF\u03C2", "\u039C\u03AC\u03CA\u03BF\u03C2", "\u0399\u03BF\u03CD\u03BD\u03B9\u03BF\u03C2", "\u0399\u03BF\u03CD\u03BB\u03B9\u03BF\u03C2", "\u0391\u03CD\u03B3\u03BF\u03C5\u03C3\u03C4\u03BF\u03C2", "\u03A3\u03B5\u03C0\u03C4\u03AD\u03BC\u03B2\u03C1\u03B9\u03BF\u03C2", "\u039F\u03BA\u03C4\u03CE\u03B2\u03C1\u03B9\u03BF\u03C2", "\u039D\u03BF\u03AD\u03BC\u03B2\u03C1\u03B9\u03BF\u03C2", "\u0394\u03B5\u03BA\u03AD\u03BC\u03B2\u03C1\u03B9\u03BF\u03C2", "", } NumberElements { ",", ".", ";", "%", "0", "#", "-", "E", "\u2030", "\u221E", "\uFFFD", } ShortLanguage { "ell" } localPatternChars { "GanjkHmsSEDFwWxhKzAe" } zoneStrings { { "Africa/Casablanca", "GMT", "GMT", "GMT", "GMT", } } LocaleScript{ "Grek" // ISO 15924 Name } //------------------------------------------------------------ // Rule Based Number Format Support //------------------------------------------------------------ /* * omit rules for Greek until we have complete and valid data. // * Spellout rules for Greek. Again in Greek we have to supply the words // * for the multiples of 100 because they can't be derived algorithmically. // * Also, the tens digit changes form when followed by a ones digit: an // * accent mark disappears from the tens digit and moves to the ones digit. // * Therefore, instead of using the [] notation, we actually have to use // * two separate rules for each multiple of 10 to show the two forms of // * the word. // Can someone supply me with information on negatives and decimals? // I'm also missing the word for zero. Can someone clue me in? SpelloutRules { "zero (incomplete data); \u03ad\u03bd\u03b1; \u03b4\u03cd\u03bf; \u03b4\u03c1\u03af\u03b1; " "\u03c4\u03ad\u03c3\u03c3\u03b5\u03c1\u03b1; \u03c0\u03ad\u03bd\u03c4\u03b5; " "\u03ad\u03be\u03b9; \u03b5\u03c0\u03c4\u03ac; \u03bf\u03ba\u03c4\u03ce; " "\u03b5\u03bd\u03bd\u03ad\u03b1;\n" "10: \u03b4\u03ad\u03ba\u03b1; " "\u03ad\u03bd\u03b4\u03b5\u03ba\u03b1; \u03b4\u03ce\u03b4\u03b5\u03ba\u03b1; " "\u03b4\u03b5\u03ba\u03b1>>;\n" "20: \u03b5\u03af\u03ba\u03bf\u03c3\u03b9; \u03b5\u03b9\u03ba\u03bf\u03c3\u03b9>>;\n" "30: \u03c4\u03c1\u03b9\u03ac\u03bd\u03c4\u03b1; \u03c4\u03c1\u03b9\u03b1\u03bd\u03c4\u03b1>>;\n" "40: \u03c3\u03b1\u03c1\u03ac\u03bd\u03c4\u03b1; \u03c3\u03b1\u03c1\u03b1\u03bd\u03c4\u03b1>>;\n" "50: \u03c0\u03b5\u03bd\u03ae\u03bd\u03c4\u03b1; \u03c0\u03b5\u03bd\u03b7\u03bd\u03c4\u03b1>>;\n" "60: \u03b5\u03be\u03ae\u03bd\u03c4\u03b1; \u03b5\u03be\u03b7\u03bd\u03c4\u03b1>>;\n" "70: \u03b5\u03b2\u03b4\u03bf\u03bc\u03ae\u03bd\u03c4\u03b1; " "\u03b5\u03b2\u03b4\u03bf\u03bc\u03b7\u03bd\u03c4\u03b1>>;\n" "80: \u03bf\u03b3\u03b4\u03cc\u03bd\u03c4\u03b1; \u03bf\u03b3\u03b4\u03bf\u03bd\u03c4\u03b1>>;\n" "90: \u03b5\u03bd\u03bd\u03b5\u03bd\u03ae\u03bd\u03c4\u03b1; " "\u03b5\u03bd\u03bd\u03b5\u03bd\u03b7\u03bd\u03c4\u03b1>>;\n" "100: \u03b5\u03ba\u03b1\u03c4\u03cc[\u03bd >>];\n" "200: \u03b4\u03b9\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "300: \u03c4\u03c1\u03b9\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "400: \u03c4\u03b5\u03c4\u03c1\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "500: \u03c0\u03b5\u03bd\u03c4\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "600: \u03b5\u03be\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "700: \u03b5\u03c0\u03c4\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "800: \u03bf\u03ba\u03c4\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "900: \u03b5\u03bd\u03bd\u03b9\u03b1\u03ba\u03cc\u03c3\u03b9\u03b1[ >>];\n" "1000: \u03c7\u03af\u03bb\u03b9\u03b1[ >>];\n" "2000: << \u03c7\u03af\u03bb\u03b9\u03b1[ >>];\n" "1,000,000: << \u03b5\u03ba\u03b1\u03c4\u03bf\u03bc\u03bc\u03b9\u03cc\u03c1\u03b9\u03bf[ >>];\n" "1,000,000,000: << \u03b4\u03b9\u03c3\u03b5\u03ba\u03b1\u03c4\u03bf\u03bc\u03bc\u03b9\u03cc\u03c1\u03b9\u03bf[ >>];\n" "1,000,000,000,000: =#,##0=" } */ TransliterateLATIN { "UNGEGN", "# Rules are predicated on running NFD first, and NFC afterwards\n" "::NFD (NFC) ; " "# For modern Greek.\n" "# Useful variables\n" "$lower = [:Ll:] ; " "$upper = [:Lu:] ; " "$accent = [:M:] ; " "$macron = \u0304 ;" "$ddot = \u0308 ;" "$lcgvowel = [\u03b1\u03b5\u03b7\u03b9\u03bf\u03c5\u03c9] ; " "$ucgvowel = [\u0391\u0395\u0397\u0399\u039f\u03a5\u03a9] ; " "$gvowel = [$lcgvowel $ucgvowel] ; " "$lcgvowelC = [$lcgvowel $accent] ; " "$evowel = [aeiouyAEIOUY];" "$vowel = [ $evowel $gvowel] ; " "$beforeLower = $accent * $lower ; " "$gammaLike = [\u0393\u039a\u039e\u03a7\u03b3\u03ba\u03be\u03c7\u03f0] ; " "$egammaLike = [GKXCgkxc] ; " "$smooth = \u0313 ; " "$rough = \u0314 ; " "$iotasub = \u0345 ; " "$softener = [\u03b2\u0392\u03b3\u0393\u03b4\u0394\u03b6\u0396\u03bb\u039b\u03bc\u039c\u03bd\u039d\u03c1\u03a1$gvowel] ;" "$under = \u0331;" "$caron = \u030C;" "$afterLetter = [:^L:] [\\'[:M:]]* ;" "$beforeLetter = [\\'[:M:]]* [:^L:] ;" "# Fix punctuation\n" "\\; <> \\? ;" "\u00b7 <> \\: ;" "# Fix any ancient characters that creep in\n" "\u0342 > \u0301 ;" "\u0302 > \u0301 ;" "\u0300 > \u0301 ;" "$smooth > ;" "$rough > ;" "$iotasub > ;" "\u037A > ;" "# need to have these up here so the rules don't mask\n" "\u03b7 <> i $under ;" "\u0397 <> I $under ;" "\u03a8 } $beforeLower <> Ps ; " "\u03a8 <> PS ; " "\u03c8 <> ps ; " "\u03c9 <> o $under ;" "\u03a9 <> O $under;" "# at begining or end of word, convert mp to b\n" "[^[:L:][:M:]] } \u03bc\u03c0 > b ; " "\u03bc\u03c0 } [^[:L:][:M:]] > b ; " "[^[:L:][:M:]] } [\u039c\u03bc][\u03a0\u03c0] > B ; " "[\u039c\u03bc][\u03a0\u03c0] } [^[:L:][:M:]] > B ;" "\u03bc\u03c0 < b ; " "\u039c\u03c0 < B { $beforeLower ; " "\u039c\u03a0 < B ; " "# handle diphthongs ending with upsilon\n" "$vowel { \u03c5 } $softener <> v $under ; " "$vowel { \u03c5 } <> f $under; " "\u03c5 <> y ; " "$vowel { \u03a5 } $softener <> V $under ; " "$vowel { \u03a5 <> U $under ; " "\u03a5 <> Y ; " "# NORMAL\n" "\u03b1 <> a ; " "\u0391 <> A ; " "\u03b2 <> v ; " "\u0392 <> V ; " "\u03b3 } $gammaLike <> n } $egammaLike ; " "\u03b3 <> g ; " "\u0393 } $gammaLike <> N } $egammaLike ; " "\u0393 <> G ; " "\u03b4 <> d ; " "\u0394 <> D ; " "\u03b5 <> e ; " "\u0395 <> E ; " "\u03b6 <> z ; " "\u0396 <> Z ; " "\u03b8 <> th ; " "\u0398 } $beforeLower <> Th ; " "\u0398 <> TH ; " "\u03b9 <> i ; " "\u0399 <> I ; " "\u03ba <> k ;" "\u039a <> K ; " "\u03bb <> l ; " "\u039b <> L ; " "\u03bc <> m ; " "\u039c <> M ; " "\u03bd } $gammaLike > n\\' ; " "\u03bd <> n ; " "\u039d } $gammaLike <> N\\' ; " "\u039d <> N ; " "\u03be <> x ; " "\u039e <> X ; " "\u03bf <> o ; " "\u039f <> O ; " "\u03c0 <> p ; " "\u03a0 <> P ; " "\u03c1 <> r ; " "\u03a1 <> R ; " "[Pp] { } \u03c2 > \\' ; " "[Pp] { } \u03c3 > \\' ;" "# Caron means exception\n" "# before a letter, initial\n" "\u03c2 } $beforeLetter <> s $caron } $beforeLetter;" "\u03c3 } $beforeLetter <> s } $beforeLetter;" "# otherwise, after a letter = final\n" "$afterLetter { \u03c3 <> $afterLetter { s $caron;" "$afterLetter { \u03c2 <> $afterLetter { s ;" "# otherwise (isolated) = initial\n" "\u03c2 <> s $caron;" "\u03c3 <> s ;" "[Pp] { \u03a3 <> \\'S ; " "\u03a3 <> S ; " "\u03c4 <> t ; " "\u03a4 <> T ; " "\u03c6 <> f ; " "\u03a6 <> F ;" "\u03c7 <> ch ; " "\u03a7 } $beforeLower <> Ch ; " "\u03a7 <> CH ; " "# Completeness for ASCII\n" "$ignore = [[:Mark:]''] * ;" "| ch < h ;" "| k < c ;" "| i < j ;" "| k < q ;" "| y < u ;" "| y < w ;" "| Ch < H ;" "| K < C ;" "| I < J ;" "| K < Q ;" "| Y < W ;" "| Y < U ;" "# Completeness for Greek\n" "\u03d0 > | \u03b2 ;" "\u03d1 > | \u03b8 ;" "\u03d2 > | \u03a5 ;" "\u03d5 > | \u03c6 ;" "\u03d6 > | \u03c0 ;" "\u03f0 > | \u03ba ;" "\u03f1 > | \u03c1 ;" "\u03f2 > | \u03c3 ;" "\u03f3 > j ;" "\u03f4 > | \u0398 ;" "\u03f5 > | \u03b5 ;" "# delete any trailing ' marks used for roundtripping\n" " < [\u03a0\u03c0] { \\' } [Ss] ;" " < [\u039d\u03bd] { \\' } $egammaLike ;" "::NFC (NFD) ; " } }