1 ;; lo-lrt.mim -- Lao input method with Lao-Roman transliteration
2 ;; Copyright (C) 2003, 2004, 2005
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.
26 (description "Lao input method using Lao-Roman transliteration.
73 ("r" (move 1) "ຼ" (move @>)))
79 ("ii" "ີ" (mark TONE))
80 ("eu" "ຶ" (mark TONE))
81 ("ur" "ື" (mark TONE))
83 ("uu" "ູ" (mark TONE))
86 ("ee" (move @-) (move @-) "ເ" (move @+) (move @+))
87 ("aa" (move @-) (move @-) "ແ" (move @+) (move @+))
88 ("oo" (move @-) (move @-) "ໂ" (move @+) (move @+))
89 ("ai" (move @-) (move @-) "ໄ" (move @+) (move @+))
90 ("ei" (move @-) (move @-) "ໃ" (move @+) (move @+))
92 ("er" (move @-) (move @-) "ເ" (move @+) (move @+) "ິ" (mark TONE))
93 ("ir" (move @-) (move @-) "ເ" (move @+) (move @+) "ີ" (mark TONE))
94 ("ea" (move @-) (move @-) "ເ" (move @+) (move @+) "ຶ" (mark TONE) "ອ")
95 ("eaa" (move @-) (move @-) "ເ" (move @+) (move @+) "ື" (mark TONE) "ອ")
96 ("ao" (move @-) (move @-) "ເ" (move @+) (move @+) "ົ" (mark TONE) "າ"))
100 ("e" (move @-) (move @-) "ເ" (move @+) (move @+) "ະ")
101 ("ae" (move @-) (move @-) "ແ" (move @+) (move @+) "ະ"))
104 ("oe" (move @-) (move @-) "ເ" (move @+) (move @+) "າະ"))
107 ("o" (move @-) (move @-) "ໂ" (move @+) (move @+) "ະ"))
110 ("or" "ໍ" (mark TONE)))
113 ("ua" "ົ" (mark TONE) "ວະ"))
116 ("uaa" "ົ" (mark TONE) "ວ"))
119 ("ie" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark TONE) "ຽະ"))
122 ("ia" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark TONE) "ຽ"))
149 ("'" (move TONE) "່" (move @>))
150 ("\"" (move TONE) "້" (move @>))
151 ("^" (move TONE) "໊" (move @>))
152 ("+" (move TONE) "໋" (move @>))
153 ("~" (move TONE) "໌" (move @>)))
171 (consonant (move 1) (mark TONE) (move @>) (shift c-state))
185 (semi-vowel (shift cs-state))
186 (nil (shift cs-state)))
189 (vowel-simple (shift csv-state))
190 (vowel-a-e-ae (shift csv-a-e-ae-state))
191 (vowel-oe (shift csv-oe-state))
192 (vowel-o (shift csv-o-state))
193 (vowel-or (shift csv-or-state))
194 (vowel-ua (shift csv-ua-state))
195 (vowel-uaa (shift csv-uaa-state))
196 (vowel-ie (shift csv-ie-state))
197 (vowel-ia (shift csv-ia-state))
198 (nil (shift csv-state)))
201 (maa-sakod (shift csvm-state))
202 (nil (shift csvm-state)))
205 (maa-sakod (move @-) (delete @-) "ັ" (mark TONE) (move @>)
207 (nil (shift csvm-state)))
210 (maa-sakod (move @-) (delete @-) (delete @-) "ັ" (mark TONE) "ອ" (move @>)
212 (nil (shift csvm-state)))
215 (maa-sakod-y-v (move @-) (delete @-) "ັ" (mark TONE) (move @>)
217 (maa-sakod-non-y-v (move @-) (delete @-) "ົ" (mark TONE)
218 (move 0) (delete @+) (move @>)
220 (nil (shift csvm-state)))
223 (maa-sakod (move @-) (delete @-) "ອ" (move @+) (shift csvm-state))
224 (nil (shift csvm-state)))
227 (maa-sakod (move @-) (delete -3) "ັວ" (move @+) (shift csvm-state))
228 (nil (shift csvm-state)))
231 (maa-sakod (move @-) (move @-) (delete @-) (move @+) (move @+)
233 (nil (shift csvm-state)))
236 (maa-sakod (move @-) (delete @-) (move @+) (shift csvm-state))
237 (nil (shift csvm-state)))
240 (maa-sakod (move @-) (move @-) (delete @-) (move @+) (move @+)
242 (nil (shift csvm-state)))
245 (tone (shift init))))