diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-09-23 08:49:58 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-09-23 08:49:58 +0000 |
| commit | cbde244ac1a4aeff4db5eddf9d78a13be37eec28 (patch) | |
| tree | 33a354af17147371e9612fc1d2823c1586590629 | |
| parent | 9470a689c91342c9e4bdb7910e1c9c357f27c3b1 (diff) | |
Telugu transliteration
| -rw-r--r-- | src/GF/Command/Commands.hs | 3 | ||||
| -rw-r--r-- | src/GF/Text/Transliterations.hs | 13 |
2 files changed, 16 insertions, 0 deletions
diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index c99b3c198..31c3ec652 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -450,6 +450,7 @@ allCommands enc pgf = Map.fromList [ options = [ ("arabic", "Arabic"), ("devanagari","Devanagari"), + ("telugu", "Telugu"), ("thai", "Thai") ] }), @@ -594,6 +595,7 @@ stringOpOptions = [ ("from_cp1251","decode from cp1251 (Cyrillic used in Bulgarian resource)"), ("from_arabic","from unicode to GF Arabic transliteration"), ("from_devanagari","from unicode to GF Devanagari transliteration"), + ("from_thai","from unicode to GF Telugu transliteration"), ("from_thai","from unicode to GF Thai transliteration"), ("from_utf8","decode from utf8"), ("lextext","text-like lexer"), @@ -603,6 +605,7 @@ stringOpOptions = [ ("to_arabic","from GF Arabic transliteration to unicode"), ("to_devanagari","from GF Devanagari transliteration to unicode"), ("to_html","wrap in a html file with linebreaks"), + ("to_telugu","from GF Telugu transliteration to unicode"), ("to_thai","from GF Thai transliteration to unicode"), ("to_utf8","encode to utf8"), ("unlextext","text-like unlexer"), diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs index f780de773..3190efb9a 100644 --- a/src/GF/Text/Transliterations.hs +++ b/src/GF/Text/Transliterations.hs @@ -27,6 +27,7 @@ transliteration :: String -> Maybe Transliteration transliteration s = case s of "arabic" -> Just transArabic "devanagari" -> Just transDevanagari + "telugu" -> Just transTelugu "thai" -> Just transThai ---- "urdu" -> Just transUrdu _ -> Nothing @@ -114,3 +115,15 @@ transArabic = mkTransliteration allTrans allCodes where allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ [0x0641..0x064f] ++ [0x0650..0x0657] +transTelugu :: Transliteration +transTelugu = mkTransliteration allTrans allCodes where + allTrans = words $ + "- c1 c2 c3 - A A: I I: U U: R_ L_ - E E: " ++ + "A' - O O: A_ k k. g g. n. c c. j j. n' T " ++ + "T. d d. N t t. d d. n - p p. b b. m y " ++ + "r R l L - v s' S s h - - - c5 a: i " ++ + "i: u u: r_ r. - e e: a' - o o: a_ c6 - - " ++ + "- - - - - c7 c8 z Z - - - - - - - " ++ + "R+ L+ l+ l* - - n0 n1 n2 n3 n4 n5 n6 n7 n8 n9 " + allCodes = [0x0c00 .. 0x0c7f] + |