diff options
| author | aarne <aarne@chalmers.se> | 2009-08-27 13:47:57 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-08-27 13:47:57 +0000 |
| commit | 8c2cee0f4b7cd477c8700768568607b0bc7894f2 (patch) | |
| tree | ec2c32b4712a3e567fa35b3e6850022f2ff50e2c /src/GF | |
| parent | dbf87958f9e0e16642a2824d5bbaa098d9db23d5 (diff) | |
Persian transliteration
Diffstat (limited to 'src/GF')
| -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 $ |