diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Text/Transliterations.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs index dd5674f55..1e7cc8492 100644 --- a/src/GF/Text/Transliterations.hs +++ b/src/GF/Text/Transliterations.hs @@ -38,6 +38,7 @@ allTransliterations = Map.fromAscList [ ("devanagari", transDevanagari), ("greek", transGreek), ("hebrew", transHebrew), + ("persian", transPersian), ("telugu", transTelugu), ("thai", transThai) ---- "urdu", transUrdu @@ -133,6 +134,19 @@ transArabic = mkTransliteration "Arabic" allTrans allCodes where allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ [0x0641..0x064f] ++ [0x0650..0x0657] +transPersian :: Transliteration +transPersian = (mkTransliteration "Persian/Farsi" allTrans allCodes) + {invisible_chars = ["a","u","i"]} where + allTrans = words $ + " V A: A? w? A- y? A b t. t t- j H K d " ++ -- 0621 - 062f + "W r z s C S D T Z c G " ++ -- 0630 - 063a + " f q k l m n h v y. y a. u. i. a u " ++ -- 0641 - 064f + "i v2 o a: V+ V- i: a+ " ++ -- 0650 - 0657 + "p c^ J g " + allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ + [0x0641..0x064f] ++ [0x0650..0x0657] ++ + [0x067e,0x0686,0x0698,0x06af] + transHebrew :: Transliteration transHebrew = mkTransliteration "unvocalized Hebrew" allTrans allCodes where allTrans = words $ |