msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

transliteration for Urdu

Browse Source
This commit is contained in:
krasimir
2010-03-22 09:29:43 +00:00
parent 0da54cdf64
commit 2ac96a7643
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/compiler/GF/Text/Transliterations.hs
View File

@@ -40,8 +40,8 @@ allTransliterations = Map.fromAscList [
("hebrew", transHebrew), ("hebrew", transHebrew),
("persian", transPersian), ("persian", transPersian),
("telugu", transTelugu), ("telugu", transTelugu),
("thai", transThai) ("thai", transThai),
---- "urdu", transUrdu ("urdu", transUrdu)
] ]
-- used in command options and help -- used in command options and help
@@ -121,8 +121,16 @@ allTransUrduHindi = words $
transUrdu :: Transliteration transUrdu :: Transliteration
transUrdu = transUrdu =
(mkTransliteration "Urdu" allTransUrduHindi allCodes){invisible_chars = ["a"]} where (mkTransliteration "Urdu" allTrans allCodes) where
allCodes = [0x0900 .. 0x095f] ---- TODO: this is devanagari 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 :: Transliteration
transArabic = mkTransliteration "Arabic" allTrans allCodes where transArabic = mkTransliteration "Arabic" allTrans allCodes where