diff options
| author | aarne <aarne@cs.chalmers.se> | 2009-04-26 20:10:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2009-04-26 20:10:44 +0000 |
| commit | 010dee0c974f20d8ffcba5bac422e78ab2ede610 (patch) | |
| tree | 1fb2361d8294217ca8c95733eebda1f697b9c723 /src | |
| parent | d0e728d1a85a6bac76664d61779dd52d02bcfaa2 (diff) | |
started to move have_V2 from Lexicon to Structural ; fixes in Hindi translit table
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Text/Transliterations.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs index d56b9e1e0..e85cad47b 100644 --- a/src/GF/Text/Transliterations.hs +++ b/src/GF/Text/Transliterations.hs @@ -93,20 +93,20 @@ transThai = mkTransliteration allTrans allCodes where transDevanagari :: Transliteration transDevanagari = (mkTransliteration allTransUrduHindi allCodes){invisible_chars = ["a"]} where - allCodes = [0x0901 .. 0x094c] + allCodes = [0x0900 .. 0x095f] allTransUrduHindi = words $ - "M N - - " ++ - "a- A- i- I- u- U- R- - - - e- E- - - o- O- " ++ - "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 - l - - v " ++ - "S s. s h - - r. - A i I u U R - - " ++ - "- e E o O " + "- M N - - a- A- i- I- u- U- R- - - - e- " ++ + "E- - - o- O- 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 - l - - v S s. s h - - r: - A i " ++ + "I u U R - - - e E o O - - - - - " ++ + "- - - - - - - - - - - z r. - - - " transUrdu :: Transliteration transUrdu = (mkTransliteration allTransUrduHindi allCodes){invisible_chars = ["a"]} where - allCodes = [0x0901 .. 0x094c] ---- TODO: this is devanagari + allCodes = [0x0900 .. 0x095f] ---- TODO: this is devanagari transArabic :: Transliteration transArabic = mkTransliteration allTrans allCodes where |