View file File name : ta-lk-renganathan.mim Content :;; ta-lk-renganathan.mim -- Tamil input method with Renganathan layout ;; Copyright (C) 2008 ;; National Institute of Advanced Industrial Science and Technology (AIST) ;; Registration Number H15PRO112 ;; This file is part of the m17n database; a sub-part of the m17n ;; library. ;; The m17n library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License ;; as published by the Free Software Foundation; either version 2.1 of ;; the License, or (at your option) any later version. ;; The m17n library is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Lesser General Public License for more details. ;; You should have received a copy of the GNU Lesser General Public ;; License along with the m17n library; if not, write to the Free ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. (input-method ta lk-renganathan (version "1.6.0")) (description "Tamil input method with Renganathan layout. For the detail, see the page: <http://www.locallanguages.lk/> ") (title "க") (variable (use-surrounding-text (_"Surrounding text vs. preedit If 1, try to use surrounding text. Otherwise, use preedit.") 0 1 0)) (macro (pre-proc (cond ((= @-1 0x200C) (delete @-1))) (cond ((= @+0 0x200C) (delete @+1)))) (post-proc (cond ((& (>= @-1 0x0B95) (<= @-1 0x0BB9) ; a consonant (>= @+0 0x0BC6) (<= @+0 0x0BCC)) ; a left/two-part vowel sign ;; prevent syllable formation 0x200C) ((& (| (< @-2 0x0B95) (> @-2 0x0BB9)) ; not a consonant (>= @-1 0x0BC6) (<= @-1 0x0BCC) ; a left/two-part vowel sign (>= @+0 0x0B95) (<= @+0 0x0BB9) ; a consonant (| (< @+1 0x0BBE) (> @+1 0x0BD7))) ; not a vowel sign ;; exchange @-1 and @+0 (set vs @-1) (set c @+0) (delete @-1) (delete @+1) (insert c) (insert vs)) ((& (= @-1 0x200C) (| (< @-2 0x0B95) (> @-2 0x0BB9) ; not a constant (< @+0 0x0BC6) (> @+0 0x0BCC))) ; not a left/two-part vowel sign ;; delete unnecessary ZWNJ (delete @-1)) ((& (= @+0 0x200C) (| (< @-1 0x0B95) (> @-1 0x0BB9) ; not a constant (< @+1 0x0BC6) (> @+1 0x0BCC))) ; not a left/two-part vowel sign ;; delete unnecessary ZWNJ (delete @+1)))) (consonant-proc (move @<) (cond ((= @-1 0x200C) (delete @-1))) (set vs 0) (cond ((& (>= @-1 0x0BC6) (<= @-1 0x0BC8)) ; a left vowel sign (cond ((= @-2 0x200C) (set vs @-1) (delete @-2)) ((| (< @-2 0x0B95) (> @-2 0x0BB9)) ; not a consonant (set vs @-1) (delete @-1))))) (move @>) (cond ((& (= @+0 0x200C) (| (< @+1 0x0BC6) (> @+1 0x0BCC))) ; not a left vowel sign (delete @+1))) (cond ((= vs 0x0BC6) (cond ((= @+0 0x0BBE) (delete @+1) 0x0BCA) ((| (= @+0 0x0BB3) (= @+0 0x0BD7)) (delete @+1) 0x0BCC) (1 0x0BC6))) ((= vs 0x0BC7) (cond ((= @+0 0x0BBE) (delete @+1) 0x0BCB) (1 0x0BC7))) ((= vs 0x0BC8) 0x0BC8)) (cond ((& (>= @-1 0x0B95) (<= @-1 0x0BB9) ; a consonant (>= @+0 0x0BC6) (<= @+0 0x0BCC)) ; a left vowel sign 0x200C))) (check-surrounding-text (cond ((& (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa follows 0x0B95 0x0BCD 0x0BB7 (delete @+3)) ((& (>= @+0 0x0B95) (<= @+0 0x0BB9)) ; a consonant follows (set c @+0) (insert c) (delete @+1)) ((& (>= @-1 0x0B95) (<= @-1 0x0BB9)) ; a consonant precedes 0x200C))) ) (map (starter ("q") ("w") ("e") ("r") ("t") ("y") ("u") ("i") ("o") ("p") ("[") ("]") ("a") ("s") ("d") ("f") ("g") ("h") ("j") ("k") ("l") (";") ("z") ("x") ("c") ("v") ("b") ("n") ("m") ("`") ("Q") ("W") ("E") ("R") ("T") ("Y") ("U") ("I") ("O") ("P") ("{") ("}") ("A") ("S") ("D") ("F") ("G") ("H") ("J") ("K") ("L") ("Z") ("X") ("C") ("V") ("B") ("N") ("M") ((A-q)) ((A-w)) ((A-e)) ((A-r)) ((A-t)) ((A-y)) ((A-u)) ((A-i)) ((A-1)) ((A-2)) ((A-3)) ((A-4)) ((A-5)) ((A-6)) ((A-7)) ((A-8)) ((A-9)) ((A-0)) ((A-`)) ((A-=)) ((A--)) ((BackSpace)) ((Delete))) (composite ("f;" "க்") ; 0B95 0BCD ("f;W" "க்ஷ") ; 0B95 0BCD 200C 0BB7 ("Zh" "ஒளா") ; 0B92 0BB3 0BBE ("Zp" "ஒளி") ; 0B92 0BB3 0BBF ("ZP" "ஒளீ") ; 0B92 0BB3 0BC0 ("Z[" "ஒளு") ; 0B92 0BB3 0BC1 ("Z{" "ஒளூ") ; 0B92 0BB3 0BC2 ("Z;" "ஒள்") ; 0B92 0BB3 0BCD ("xs" "ஔ") ; 0B94 ("xsh" "ஒளா") ; 0B92 0BB3 0BBE ("xsp" "ஒளி") ; 0B92 0BB3 0BBF ("xsP" "ஒளீ") ; 0B92 0BB3 0BC0 ("xs[" "ஒளு") ; 0B92 0BB3 0BC1 ("xs{" "ஒளூ") ; 0B92 0BB3 0BC2 ("xs;" "ஒள்") ; 0B92 0BB3 0BCD ) (consonant ("f" "க") ; 0B95 ("q" "ங") ; 0B99 ("r" "ச") ; 0B9A ("E" "ஜ") ; 0B9C ("]" "ஞ") ; 0B9E ("l" "ட") ; 0B9F ("z" "ண") ; 0BA3 ("j" "த") ; 0BA4 ("e" "ந") ; 0BA8 ("d" "ன") ; 0BA9 ("g" "ப") ; 0BAA ("k" "ம") ; 0BAE ("a" "ய") ; 0BAF ("u" "ர") ; 0BB0 ("w" "ற") ; 0BB1 ("y" "ல") ; 0BB2 ("o" "ழ") ; 0BB4 ("t" "வ") ; 0BB5 ("U" "ஶ") ; 0BB6 ("Q" "ஸ") ; 0BB8 ("R" "ஹ") ; 0BB9 ("T" "க்ஷ") ; 0B95 0BCD 0BB7 ) (sign ("p" "ி") ; 0BBF ("P" "ீ") ; 0BC0 ("[" "ு") ; 0BC1 ("{" "ூ") ; 0BC2 (";" "்") ; 0BCD ) (lla ("s")) (ssa ("W")) (aa ("h")) (e ("n")) (ee ("N")) (ai ("i")) (backspace ((BackSpace))) (delete ((Delete))) (misc ("`" "ஃ") ; 0B83 ("m" "அ") ; 0B85 ("M" "ஆ") ; 0B86 ("b" "இ") ; 0B87 ("B" "ஈ") ; 0B88 ("c" "உ") ; 0B89 ("C" "ஊ") ; 0B8A ("v" "எ") ; 0B8E ("V" "ஏ") ; 0B8F ("I" "ஐ") ; 0B90 ("x" "ஒ") ; 0B92 ("X" "ஓ") ; 0B93 ("Z" "ஔ") ; 0B94 ("O" "ௐ") ; 0BD0 ((A-0) "௦") ; 0BE6 ((A-1) "௧") ; 0BE7 ((A-2) "௨") ; 0BE8 ((A-3) "௩") ; 0BE9 ((A-4) "௪") ; 0BEA ((A-5) "௫") ; 0BEB ((A-6) "௬") ; 0BEC ((A-7) "௭") ; 0BED ((A-8) "௮") ; 0BEE ((A-9) "௯") ; 0BEF ((A-q) "௰") ; 0BF0 ((A-w) "௱") ; 0BF1 ((A-e) "௲") ; 0BF2 ((A-y) "௳") ; 0BF3 ((A-u) "௴") ; 0BF4 ((A-i) "௵") ; 0BF5 ((A-r) "௶") ; 0BF6 ((A-t) "௷") ; 0BF7 ((A-`) "௸") ; 0BF8 ((A-=) "௹") ; 0BF9 ((A--) "௺") ; 0BFA ("Y" "ஶ்ரீ") ; 0BB6 0BCD 0BB0 0BC0 ("}" ";") ; 003B ("A" "") ("S" "") ("D" "") ("F" "") ("G" "") ("H" "") ("J" "") ("K" "") ("L" "") )) (state (init (starter (pushback 1) (cond ((& (= use-surrounding-text 1) (= @-0 -1)) (shift surrounding-text)) (1 (shift preedit))))) (surrounding-text (consonant (consonant-proc) (commit)) (lla (cond ((= @-1 0x200C) (delete @-1))) (cond ((& (>= @-2 0x0B95) (<= @-2 0x0BB9) ; a consonant (= @-1 0x0BC6)) (delete @-1) 0x0BCC (cond ((= @+0 0x200C) (delete @+1)))) ((= @-1 0x0B92) (delete @-1) 0x0B94 (cond ((= @+0 0x200C) (delete @+1)))) (1 0x0BB3 (consonant-proc))) (commit)) (ssa (cond ((= @-1 0x200C) (delete @-1))) (cond ((& (= @-2 0x0B95) (= @-1 0x0BCD)) 0x200C)) 0x0BB7 (consonant-proc) (commit)) (sign (cond ((= @+0 0x200C) (delete @+1))) (move @<) (cond ((= @-1 0x200C) (delete @-1))) (cond ((= @-1 0x0B94) (delete @-1) 0x0B92 0x0BB3) ((= @-1 0x0BCC) (delete @-1) 0x0BC6 0x0BB3)) (commit)) (aa (pre-proc) (cond ((= @-1 0x0BC6) (cond ((& (| (< @-3 0x0B95) (> @-3 0x0BB9)) ; not a consonant (= @-2 0x200C)) (delete @-2)) (1 (delete @-1))) 0x0BCA) ((= @-1 0x0BC7) (cond ((& (| (< @-3 0x0B95) (> @-3 0x0BB9)) ; not a consonant (= @-2 0x200C)) (delete @-2)) (1 (delete @-1))) 0x0BCB) ((= @-1 0x0B94) (delete @-1) 0x0B92 0x0BB3 0x0BBE) ((= @-1 0x0BCC) (delete @-1) 0x0BC6 0x0BB3 0x0BBE) (1 0x0BBE)) (commit)) (e (pre-proc) (cond ;; additional check-surrounding-text for this vowel sign ((& (>= @+0 0x0B95) (<= @+0 0x0BB9) ; a consonant (= @+1 0x0BB3)) (set c @+0) (delete @+2) (insert c) 0x0BCC) ;; ordinary check-surrounding-text (1 (check-surrounding-text) (cond ((= @+0 0x0BBE) (delete @+1) 0x0BCA) ((= @+0 0x0BD7) (delete @+1) 0x0BCC) (1 0x0BC6)))) (commit)) (ee (pre-proc) (check-surrounding-text) (cond ((= @+0 0x0BBE) (delete @+1) 0x0BCB) (1 0x0BC7)) (commit)) (ai (pre-proc) (check-surrounding-text) 0x0BC8 (commit)) (backspace (pre-proc) (cond ((& (>= @-4 0x0B95) (<= @-4 0x0BB9) ; a consonant (= @-3 0x0BC6) (= @-2 0x0BB3) (| (& (>= @-1 0x0BBE) (<= @-1 0x0BC2)) ; a right/above/below vowel sign (= @-1 0x0BCD))) (delete @-3) 0x0BCC) ((& (= @-4 0x0BB6) (= @-3 0x0BCD) (= @-2 0x0BB0) (= @-1 0x0BC0)) ; shrii (delete @-4)) ((& (= @-3 0x0B92) (= @-2 0x0BB3) (| (& (>= @-1 0x0BBE) (<= @-1 0x0BC2)) ; a right/above/below vowel sign (= @-1 0x0BCD))) (delete @-3) 0x0B94) ((& (= @-3 0x0B95) (= @-2 0x0BCD) (= @-1 0x0BB7)) ; k.ssa (delete @-3)) ((| (= @-1 0x0BCA) (= @-1 0x0BCC)) ; vowel sign e/ai (delete @-1) 0x0BC6) ((= @-1 0x0BCB) ; vowel sign ee (delete @-1) 0x0BC7) ((& (>= @-1 0x0BC6) (<= @-1 0x0BC8)) ; a left vowel sign (set vs @-1) (delete @-1) (cond ((& (>= @-1 0x0B95) (<= @-1 0x0BB9)) ; a consonant (cond ((& (= @-3 0x0B95) (= @-2 0x0BCD) (= @-1 0x0BB7)) ; k.ssa (delete @-3)) (1 (delete @-1))) (cond ((& (>= @+0 0x0B95) (<= @+0 0x0BB9) ; a consonant follows (| (< @+1 0x0BBE) (> @+1 0x0BD7))) ; not a vowel sign ;; visual : E C1 | C2 -> E C2 | ;; logical : C1 E | C2 -> C2 E | (cond ((& (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa (delete @+3) 0x0B95 0x0BCD 0x0BB7) (1 (set c @+0) (delete @+1) (insert c))) (insert vs)) ((& (>= @-1 0x0B95) (<= @-1 0x0BB9)) ; a consonant precedes ;; visual : C1 E C2 | X -> C1 E | X ;; logical : C1 C2 E | X -> C1 N E | X 0x200C (insert vs)) (1 ;; visual : X1 E C | X2 -> X1 E | X2 ;; logical : X1 C E | X2 -> X1 E | X2 (insert vs)))) ((= @-1 0x200C) (delete @-1)))) (1 (delete @-1))) (post-proc) (commit)) (delete (pre-proc) (cond ((& (= @+0 0x0BB6) (= @+1 0x0BCD) (= @+2 0x0BB0) (= @+3 0x0C0)) ; shrii (delete @+4)) ((& (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa (cond ((& (>= @+3 0x0BC6) (<= @+3 0x0BC8)) ; a left vowel sign (delete @+4) 0x0B95 0x0BCD 0x0BB7) ((| (= @+3 0x0BCA) (= @+3 0x0BCB)) ; vowel sign e/ee (delete @+4) 0x0B95 0x0BCD 0x0BB7 0x0BBE) ((| (& (>= @+3 0x0BBE) (<= @+3 0x0BC2)) ; vowel sign aa .. uu (= @+3 0x0BCC) ; vowel sign ai (= @+3 0x0BCD)) ; virama (delete @+4)) (1 (delete @+3)))) ((& (>= @+0 0x0B95) (<= @+0 0x0BB9)) ; a consonant (set c @+0) (cond ((& (>= @+1 0x0BC6) (<= @+1 0x0BC8)) ; a left vowel sign (delete @+2) (insert c)) ((| (= @+1 0x0BCA) (= @+1 0x0BCB)) ; vowel sign e/ee (delete @+2) (insert c) 0x0BBE) ((| (& (>= @+1 0x0BBE) (<= @+1 0x0BC2)) ; vowel sign aa .. uu (= @+1 0x0BCC) ; vowel sign ai (= @+1 0x0BCD)) ; virama (delete @+2)) (1 (delete @+1)))) ((| (= @+0 0x0BCA) (= @+0 0x0BCB)) ; vowel sign e/ee (delete @+1) 0x0BBE) ((= @+0 0x0BCC) ; vowel sign ai (delete @+1) 0x0BB3) (1 (delete @+1))) (post-proc) (commit)) (misc (move @<) (cond ((= @-1 0x200C) (delete @-1))) (move @>) (cond ((= @+0 0x200C) (delete @+1))) (commit))) (preedit (consonant (shift c-state)) (composite (commit)) (sign (commit)) (misc (commit)) (lla "ள" (shift c-state)) ; 0BB3 (ssa "ஷ" (shift c-state)) ; 0BB7 (aa "ா" (commit)) ; 0BBE (e "ெ" (shift e-state)) ; 0BC6 (ee "ே" (shift ee-state)) ; 0BC7 (ai "ை" (shift ai-state)) ; 0BC8 (nil (unhandle))) (c-state (sign (shift c-s-state)) (aa "ா" (shift c-s-state)) ; 0BBE (backspace (undo))) (c-s-state (sign (cond ((= @-2 0x0BCC) (move @-) (delete @-) 0x0BC6 0x0BB3 (move @+)) (1 (commit) (shift preedit)))) (aa "ா" (cond ((= @-2 0x0BCC) (move @-) (delete @-) 0x0BC6 0x0BB3 (move @+)) (1 (commit) (shift preedit)))) (backspace (undo))) (e-state (consonant (move @<) (delete @+) (move @>) "ெ" (shift e-c-state)) (lla (delete @-) "ளெ" (shift e-c-state)) (ssa (delete @-) "ஷெ" (shift e-c-state)) (backspace (delete @-) (shift preedit)) (nil (undo -1))) (ee-state (consonant (move @<) (delete @+) (move @>) "ே" (shift ee-c-state)) (lla (delete @-) "ளே" (shift ee-c-state)) (ssa (delete @-) "ஷே" (shift ee-c-state)) (backspace (delete @-) (shift preedit)) (nil (undo -1))) (ai-state (consonant (move @<) (delete @+) (move @>) "ை" (shift c-s-state)) (lla (delete @-) "ளை" (shift c-s-state)) (ssa (delete @-) "ஷை" (shift c-s-state)) (backspace (delete @-) (shift preedit)) (nil (undo -1))) (e-c-state (aa (delete @-) "ொ" (shift c-s-state)) (lla (delete @-) "ௌ" (shift c-s-state)) (backspace (delete @<) "ெ" (shift e-state))) (ee-c-state (aa (delete @-) "ோ" (shift c-s-state)) (backspace (delete @<) "ே" (shift ee-state))) ) ;; Local Variables: ;; coding: utf-8 ;; mode: emacs-lisp ;; End: