diff options
| author | krasimir <krasimir@chalmers.se> | 2010-03-22 09:29:43 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-03-22 09:29:43 +0000 |
| commit | 2ac96a76437733456a3c2cdcbc2d38e2749ff046 (patch) | |
| tree | 5024f1f248c8b558ba62148cdfcca26db0924bbe /src | |
| parent | 0da54cdf64c4d21b9a7d5fb804322c3f1894a071 (diff) | |
transliteration for Urdu
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Text/Transliterations.hs | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs index e2747f506..05e7cf42b 100644 --- a/src/compiler/GF/Text/Transliterations.hs +++ b/src/compiler/GF/Text/Transliterations.hs @@ -40,8 +40,8 @@ allTransliterations = Map.fromAscList [ ("hebrew", transHebrew), ("persian", transPersian), ("telugu", transTelugu), - ("thai", transThai) - ---- "urdu", transUrdu + ("thai", transThai), + ("urdu", transUrdu) ] -- used in command options and help @@ -121,8 +121,16 @@ allTransUrduHindi = words $ transUrdu :: Transliteration transUrdu = - (mkTransliteration "Urdu" allTransUrduHindi allCodes){invisible_chars = ["a"]} where - allCodes = [0x0900 .. 0x095f] ---- TODO: this is devanagari + (mkTransliteration "Urdu" allTrans allCodes) where + allCodes = [0x0622 .. 0x0670] ++ [0x0679 .. 0x0698] ++ [0x062a .. 0x062f] ++ [0x063a,0x06a9,0x06af,0x06ba,0x06c1,0x06be,0x06c3,0x06cc,0x06d2] + allTrans = words $ + "A - w^ - y^ a b - Z r z s X S Z- " ++ -- 0622 - 0636 + "t- z- e - f q - l m n - w - i - " ++ -- 0637 - 0651 + "- - $ - i- u - - - - - - - - - - - - a: " ++ -- 0652 - 0670 + "T - - - - - - c - D - - R - - - - - - x" ++ -- 0679 -- 0698 + "t C j H K d " ++ -- 062a -- 062f + "G k g N h h- t: y E" + transArabic :: Transliteration transArabic = mkTransliteration "Arabic" allTrans allCodes where |