diff options
| author | aarne <aarne@chalmers.se> | 2013-05-31 16:25:42 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2013-05-31 16:25:42 +0000 |
| commit | f33059ae39a1fd90f62f953c910d4c2a00589c51 (patch) | |
| tree | cf7fd20215b81375ba2bca2dc454533515b12ee6 /src | |
| parent | 54a0642beec3ba39de2e2ed1f50b0ca39267be49 (diff) | |
Prasad's sanskrit transliteration ; MiniresourceSan now compiles but is mostly incorrect due to missing paradigms
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Text/Transliterations.hs | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs index 5eb64ec17..bd054c25f 100644 --- a/src/compiler/GF/Text/Transliterations.hs +++ b/src/compiler/GF/Text/Transliterations.hs @@ -43,6 +43,7 @@ allTransliterations = Map.fromAscList [ ("greek", transGreek), ("hebrew", transHebrew), ("persian", transPersian), + ("sanskrit", transSanskrit), ("sindhi", transSindhi), ("nepali", transNepali), ("telugu", transTelugu), @@ -290,4 +291,16 @@ allTrans = words $ " - - - - - - - - f. f- f' f( f) f f? f*"++
" p. p- p' p( p) p p? p*"
allCodes = [0x1200..0x1357] -
\ No newline at end of file + +-- by Prasad 31/5/2013 +transSanskrit :: Transliteration +transSanskrit = (mkTransliteration "Sanskrit" allTrans allCodes) {invisible_chars = ["a"]} where + allTrans = words $ + "- n~ m. h. - A A: I I: U U: R. L. - - E: " ++ + "E+ - O 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 L - v s* S s h - - - v- a: i " ++ + "i: u u: r. r.: - e e: e+ - o o: o+ a_ - - " ++ + "o~ - - - - - - - q x G z R R' f - " ++ + "R.: L.: l. l.: p, p. N0 N1 N2 N3 N4 N5 N6 N7 N8 N9 " + allCodes = [0x0900 .. 0x097f] |