From 793dd89f7ed64652391dffc2d35e5eb6ada9e768 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 17 Mar 2009 22:04:20 +0000 Subject: Greek (modern) transliteration scheme --- src/GF/Text/Transliterations.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src/GF/Text') diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs index e77d30fc4..190fab211 100644 --- a/src/GF/Text/Transliterations.hs +++ b/src/GF/Text/Transliterations.hs @@ -28,6 +28,7 @@ transliteration :: String -> Maybe Transliteration transliteration s = case s of "arabic" -> Just transArabic "devanagari" -> Just transDevanagari + "greek" -> Just transGreek "telugu" -> Just transTelugu "thai" -> Just transThai ---- "urdu" -> Just transUrdu @@ -128,3 +129,13 @@ transTelugu = mkTransliteration allTrans allCodes where "R+ L+ l+ l* - - n0 n1 n2 n3 n4 n5 n6 n7 n8 n9 " allCodes = [0x0c00 .. 0x0c7f] +transGreek :: Transliteration +transGreek = mkTransliteration allTrans allCodes where + allTrans = words $ + "- - - - - - A' - E' H' I' - O' - Y' W' " ++ + "i= A B G D E Z H V I K L M N X O " ++ + "P R - S T Y F C Q W I- Y- a' e' h' i' " ++ + "y= a b g d e z h v i k l m n x o " ++ + "p r s* s t y f c q w i- y- o' y' w' - " + allCodes = [0x0380 .. 0x03cf] + -- cgit v1.2.3