diff options
| author | aarne <aarne@cs.chalmers.se> | 2009-03-17 22:04:20 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2009-03-17 22:04:20 +0000 |
| commit | 793dd89f7ed64652391dffc2d35e5eb6ada9e768 (patch) | |
| tree | 1320dbc463a1844904798a5af1f31f82f9e020aa /src/GF/Text/Transliterations.hs | |
| parent | f69a8f6322213c2a435b3cf528114a7ab36015f8 (diff) | |
Greek (modern) transliteration scheme
Diffstat (limited to 'src/GF/Text/Transliterations.hs')
| -rw-r--r-- | src/GF/Text/Transliterations.hs | 11 |
1 files changed, 11 insertions, 0 deletions
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] + |