1 ;; sa-harvard-kyoto.mim -- Sanscrit input method with Harvard-Kyoto convention
3 ;; National Institute of Advanced Industrial Science and Technology (AIST)
4 ;; Registration Number H15PRO112
6 ;; This file is part of the m17n database; a sub-part of the m17n
9 ;; The m17n library is free software; you can redistribute it and/or
10 ;; modify it under the terms of the GNU Lesser General Public License
11 ;; as published by the Free Software Foundation; either version 2.1 of
12 ;; the License, or (at your option) any later version.
14 ;; The m17n library is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; Lesser General Public License for more details.
19 ;; You should have received a copy of the GNU Lesser General Public
20 ;; License along with the m17n library; if not, write to the Free
21 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 ;; Boston, MA 02110-1301, USA.
24 (input-method sa harvard-kyoto)
26 (description "Sanscrit input method with Harvard-Kyoto convention.
28 <http://en.wikipedia.org/wiki/Harvard-Kyoto>
36 ("0") ("1") ("2") ("3") ("4") ("5") ("6") ("7") ("8") ("9")
37 ("A") ("D") ("G") ("H") ("I") ("J")
38 ("M") ("N") ("R") ("S") ("T") ("U")
39 ("a") ("b") ("c") ("d") ("e") ("g") ("h") ("i")
40 ("j") ("k") ("l") ("m") ("n") ("o") ("p") ("r")
41 ("s") ("t") ("u") ("v") ("y") ("z")
42 ((KP_1)) ((KP_2)) ((KP_3)) ((KP_4)) ((KP_5))
43 ((KP_6)) ((KP_7)) ((KP_8)) ((KP_9)) ((KP_0)))
122 ("A" (delete @-) "ा")
123 ("i" (delete @-) "ि")
124 ("I" (delete @-) "ी")
125 ("u" (delete @-) "ु")
126 ("U" (delete @-) "ू")
127 ("R" (delete @-) "ृ")
128 ("RR" (delete @-) "ॄ")
129 ("e" (delete @-) "े")
130 ("ai" (delete @-) "ै")
131 ("o" (delete @-) "ो")
132 ("au" (delete @-) "ौ")
133 ("lR" (delete @-) "ॢ")
134 ("lRR" (delete @-) "ॣ"))
140 ((BackSpace) (undo))))
144 (starter (pushback 1) (shift intermediate)))
147 (consonant (shift second))
148 (independent (shift init))
150 (return (shift init)))
154 (dependent (shift init))
156 (return (shift init))))