1 ;; lo-lrt.mim -- Lao input method with Lao-Roman transliteration
2 ;; Copyright (C) 2003, 2004
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., 59 Temple Place, Suite 330, Boston, MA
26 ;;; Input method for Lao with Lao-Roman transliteration.
72 ("r" (move 1) "ຼ" (move @>)))
76 ("i" "ິ" (mark @tone))
77 ("ii" "ີ" (mark @tone))
78 ("eu" "ຶ" (mark @tone))
79 ("ur" "ື" (mark @tone))
80 ("u" "ຸ" (mark @tone))
81 ("uu" "ູ" (mark @tone))
84 ("ee" (move @-) (move @-) "ເ" (move @+) (move @+))
85 ("aa" (move @-) (move @-) "ແ" (move @+) (move @+))
86 ("oo" (move @-) (move @-) "ໂ" (move @+) (move @+))
87 ("ai" (move @-) (move @-) "ໄ" (move @+) (move @+))
88 ("ei" (move @-) (move @-) "ໃ" (move @+) (move @+))
90 ("er" (move @-) (move @-) "ເ" (move @+) (move @+) "ິ" (mark @tone))
91 ("ir" (move @-) (move @-) "ເ" (move @+) (move @+) "ີ" (mark @tone))
92 ("ea" (move @-) (move @-) "ເ" (move @+) (move @+) "ຶ" (mark @tone) "ອ")
93 ("eaa" (move @-) (move @-) "ເ" (move @+) (move @+) "ື" (mark @tone) "ອ")
94 ("ao" (move @-) (move @-) "ເ" (move @+) (move @+) "ົ" (mark @tone) "າ"))
98 ("e" (move @-) (move @-) "ເ" (move @+) (move @+) "ະ")
99 ("ae" (move @-) (move @-) "ແ" (move @+) (move @+) "ະ"))
102 ("oe" (move @-) (move @-) "ເ" (move @+) (move @+) "າະ"))
105 ("o" (move @-) (move @-) "ໂ" (move @+) (move @+) "ະ"))
108 ("or" "ໍ" (mark @tone)))
111 ("ua" "ົ" (mark @tone) "ວະ"))
114 ("uaa" "ົ" (mark @tone) "ວ"))
117 ("ie" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark @tone) "ຽະ"))
120 ("ia" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark @tone) "ຽ"))
147 ("'" (move @tone) "່" (move @>))
148 ("\"" (move @tone) "້" (move @>))
149 ("^" (move @tone) "໊" (move @>))
150 ("+" (move @tone) "໋" (move @>))
151 ("~" (move @tone) "໌" (move @>)))
169 (consonant (move 1) (mark @tone) (move @>) (shift c-state))
183 (semi-vowel (shift cs-state))
184 (nil (shift cs-state)))
187 (vowel-simple (shift csv-state))
188 (vowel-a-e-ae (shift csv-a-e-ae-state))
189 (vowel-oe (shift csv-oe-state))
190 (vowel-o (shift csv-o-state))
191 (vowel-or (shift csv-or-state))
192 (vowel-ua (shift csv-ua-state))
193 (vowel-uaa (shift csv-uaa-state))
194 (vowel-ie (shift csv-ie-state))
195 (vowel-ia (shift csv-ia-state))
196 (nil (shift csv-state)))
199 (maa-sakod (shift csvm-state))
200 (nil (shift csvm-state)))
203 (maa-sakod (move @-) (delete @-) "ັ" (mark @tone) (move @>)
205 (nil (shift csvm-state)))
208 (maa-sakod (move @-) (delete @-) (delete @-) "ັ" (mark @tone) "ອ" (move @>)
210 (nil (shift csvm-state)))
213 (maa-sakod-y-v (move @-) (delete @-) "ັ" (mark @tone) (move @>)
215 (maa-sakod-non-y-v (move @-) (delete @-) "ົ" (mark @tone)
216 (move 0) (delete @+) (move @>)
218 (nil (shift csvm-state)))
221 (maa-sakod (move @-) (delete @-) "ອ" (move @+) (shift csvm-state))
222 (nil (shift csvm-state)))
225 (maa-sakod (move @-) (delete -3) "ັວ" (move @+) (shift csvm-state))
226 (nil (shift csvm-state)))
229 (maa-sakod (move @-) (move @-) (delete @-) (move @+) (move @+)
231 (nil (shift csvm-state)))
234 (maa-sakod (move @-) (delete @-) (move @+) (shift csvm-state))
235 (nil (shift csvm-state)))
238 (maa-sakod (move @-) (move @-) (delete @-) (move @+) (move @+)
240 (nil (shift csvm-state)))
243 (tone (shift init))))