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

added transliteration arabic_unvocalized, which omits the vowels

Browse Source
This commit is contained in:
Aarne Ranta
2018-06-12 20:39:39 +02:00
parent 5aa2a212bb
commit 013f3573e6
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -39,6 +39,7 @@ allTransliterations = Map.fromList [
("amharic",transAmharic), ("amharic",transAmharic),
("ancientgreek", transAncientGreek), ("ancientgreek", transAncientGreek),
("arabic", transArabic), ("arabic", transArabic),
("arabic_unvocalized", transArabicUnvoc),
("devanagari", transDevanagari), ("devanagari", transDevanagari),
("greek", transGreek), ("greek", transGreek),
("hebrew", transHebrew), ("hebrew", transHebrew),
@@ -178,6 +179,13 @@ transArabic = mkTransliteration "Arabic" allTrans allCodes where
allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++
[0x0641..0x064f] ++ [0x0650..0x0657] ++ [0x0671,0x061f] [0x0641..0x064f] ++ [0x0650..0x0657] ++ [0x0671,0x061f]
transArabicUnvoc :: Transliteration
transArabicUnvoc = transArabic{
invisible_chars = ["a","u","i","v2","o","V+","V-","a:"],
printname = "unvocalized Arabic"
}
transPersian :: Transliteration transPersian :: Transliteration
transPersian = (mkTransliteration "Persian/Farsi" allTrans allCodes) transPersian = (mkTransliteration "Persian/Farsi" allTrans allCodes)
{invisible_chars = ["a","u","i"]} where {invisible_chars = ["a","u","i"]} where