GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

hebrew transliteration added

Browse Source
This commit is contained in:
aarne
2009-04-08 20:01:35 +00:00
parent bbe15482b1
commit 7138a1c201
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Command/Commands.hs
View File

@@ -529,6 +529,7 @@ allCommands cod env@(pgf, mos) = Map.fromList [
return $ fromString out, return $ fromString out,
options = [ options = [
("arabic", "Arabic"), ("arabic", "Arabic"),
("hebrew", "Hebrew (unvocalized)"),
("greek", "Greek (modern)"), ("greek", "Greek (modern)"),
("devanagari","Devanagari"), ("devanagari","Devanagari"),
("telugu", "Telugu"), ("telugu", "Telugu"),
@@ -694,6 +695,7 @@ stringOpOptions = [
("from_cp1251","decode from cp1251 (Cyrillic used in Bulgarian resource)"), ("from_cp1251","decode from cp1251 (Cyrillic used in Bulgarian resource)"),
("from_arabic","from unicode to GF Arabic transliteration"), ("from_arabic","from unicode to GF Arabic transliteration"),
("from_devanagari","from unicode to GF Devanagari transliteration"), ("from_devanagari","from unicode to GF Devanagari transliteration"),
("from_hebrew","from unicode to GF unvocalized Hebrew transliteration"),
("from_greek","from unicode to GF modern Greek transliteration"), ("from_greek","from unicode to GF modern Greek transliteration"),
("from_telugu","from unicode to GF Telugu transliteration"), ("from_telugu","from unicode to GF Telugu transliteration"),
("from_thai","from unicode to GF Thai transliteration"), ("from_thai","from unicode to GF Thai transliteration"),
@@ -705,6 +707,7 @@ stringOpOptions = [
("to_arabic","from GF Arabic transliteration to unicode"), ("to_arabic","from GF Arabic transliteration to unicode"),
("to_devanagari","from GF Devanagari transliteration to unicode"), ("to_devanagari","from GF Devanagari transliteration to unicode"),
("to_greek","from GF modern Greek transliteration to unicode"), ("to_greek","from GF modern Greek transliteration to unicode"),
("to_hebrew","from GF unvocalized Hebrew transliteration to unicode"),
("to_html","wrap in a html file with linebreaks"), ("to_html","wrap in a html file with linebreaks"),
("to_telugu","from GF Telugu transliteration to unicode"), ("to_telugu","from GF Telugu transliteration to unicode"),
("to_thai","from GF Thai transliteration to unicode"), ("to_thai","from GF Thai transliteration to unicode"),

13
src/GF/Text/Transliterations.hs
View File

@@ -29,6 +29,7 @@ transliteration s = case s of
"arabic" -> Just transArabic "arabic" -> Just transArabic
"devanagari" -> Just transDevanagari "devanagari" -> Just transDevanagari
"greek" -> Just transGreek "greek" -> Just transGreek
"hebrew" -> Just transHebrew
"telugu" -> Just transTelugu "telugu" -> Just transTelugu
"thai" -> Just transThai "thai" -> Just transThai
---- "urdu" -> Just transUrdu ---- "urdu" -> Just transUrdu
@@ -111,12 +112,20 @@ transArabic :: Transliteration
transArabic = mkTransliteration allTrans allCodes where transArabic = mkTransliteration allTrans allCodes where
allTrans = words $ allTrans = words $
" V A: A? w? A- y? A b t. t v g H K d " ++ -- 0621 - 062f " V A: A? w? A- y? A b t. t v g H K d " ++ -- 0621 - 062f
"W r z s C S D T Z c G " ++ -- 0630 - 063a "W r z s C S D T Z c G " ++ -- 0630 - 063a
" f q k l m n h w y. y a. u. i. a u " ++ -- 0641 - 064f " f q k l m n h w y. y a. u. i. a u " ++ -- 0641 - 064f
"i v2 o a: V+ V- i: a+" -- 0650 - 0657 "i v2 o a: V+ V- i: a+" -- 0650 - 0657
allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++
[0x0641..0x064f] ++ [0x0650..0x0657] [0x0641..0x064f] ++ [0x0650..0x0657]
transHebrew :: Transliteration
transHebrew = mkTransliteration allTrans allCodes where
allTrans = words $
"A b g d h w z H T y K k l M m N " ++
"n S O P p Z. Z q r s t - - - - - " ++
"w2 w3 y2 g1 g2"
allCodes = [0x05d0..0x05f4]
transTelugu :: Transliteration transTelugu :: Transliteration
transTelugu = mkTransliteration allTrans allCodes where transTelugu = mkTransliteration allTrans allCodes where
allTrans = words $ allTrans = words $