lo-lrt.mim

   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
   5
   6 ;; This file is part of the m17n database; a sub-part of the m17n
   7 ;; library.
   8
   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.
  13
  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.
  18
  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
  22 ;; 02111-1307, USA.
  23
  24 ;;; <li> lo-lrt.mim
  25 ;;;
  26 ;;; Input method for Thai with Lao-Roman transliteration.
  27
  28 (title "ກ")
  29 (map
  30  (consonant
  31   ("k" "ກ")
  32   ("kh" "ຂ")
  33   ("qh" "ຄ")
  34   ("ng" "ງ")
  35   ("j" "ຈ")
  36   ("s" "ສ")
  37   ("x" "ຊ")
  38   ("y" "ຍ")
  39   ("d" "ດ")
  40   ("t" "ຕ")
  41   ("th" "ຖ")
  42   ("dh" "ທ")
  43   ("n" "ນ")
  44   ("b" "ບ")
  45   ("p" "ປ")
  46   ("hp" "ຜ")
  47   ("fh" "ຝ")
  48   ("ph" "ພ")
  49   ("f" "ຟ")
  50   ("m" "ມ")
  51   ("gn" "ຢ")
  52   ("l" "ລ")
  53   ("r" "ຣ")
  54   ("v" "ວ")
  55   ("w" "ວ")
  56   ("hh" "ຫ")
  57   ("O" "ອ")
  58   ("h" "ຮ")
  59   ("nh" "ໜ")
  60   ("mh" "ໝ")
  61   ("lh" "ຫຼ")
  62   ("ngh" "ຫງ")
  63   ("yh" "ຫຽ")
  64   ("wh" "ຫວ")
  65   ("hl" "ຫລ")
  66   ("hy" "ຫຍ")
  67   ("hn" "ຫນ")
  68   ("hm" "ຫມ")
  69   )
  70
  71  (semi-vowel
  72   ("r" (move 1) "ຼ" (move @>)))
  73
  74  (vowel-simple
  75   ("ar" "າ")
  76   ("i" "ິ" (mark @tone))
  77   ("ii" "ີ" (mark @tone))
  78   ("eu" "ຶ" (mark @tone))
  79   ("ur" "ື" (mark @tone))
  80   ("u" "ຸ" (mark @tone))
  81   ("uu" "ູ" (mark @tone))
  82   ("aM" "ຳ")
  83
  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 @+))
  89
  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) "າ"))
  95
  96  (vowel-a-e-ae
  97   ("a" "ະ")
  98   ("e" (move @-) (move @-) "ເ" (move @+) (move @+) "ະ")
  99   ("ae" (move @-) (move @-) "ແ" (move @+) (move @+) "ະ"))
 100
 101  (vowel-oe
 102   ("oe" (move @-) (move @-) "ເ" (move @+) (move @+) "າະ"))
 103
 104  (vowel-o
 105   ("o" (move @-) (move @-) "ໂ" (move @+) (move @+) "ະ"))
 106
 107  (vowel-or
 108   ("or" "ໍ" (mark @tone)))
 109
 110  (vowel-ua
 111   ("ua" "ົ" (mark @tone) "ວະ"))
 112
 113  (vowel-uaa
 114   ("uaa" "ົ" (mark @tone) "ວ"))
 115
 116  (vowel-ie
 117   ("ie" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark @tone) "ຽະ"))
 118
 119  (vowel-ia
 120   ("ia" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark @tone) "ຽ"))
 121
 122  (maa-sakod
 123   ("k" "ກ")
 124   ("g" "ງ")
 125   ("y" "ຍ")
 126   ("d" "ດ")
 127   ("n" "ນ")
 128   ("b" "ບ")
 129   ("m" "ມ")
 130   ("v" "ວ")
 131   ("w" "ວ"))
 132
 133  (maa-sakod-y-v
 134   ("y" "ຍ")
 135   ("v" "ວ")
 136   ("w" "ວ"))
 137
 138  (maa-sakod-non-y-v
 139   ("k" "ກ")
 140   ("g" "ງ")
 141   ("d" "ດ")
 142   ("n" "ນ")
 143   ("b" "ບ")
 144   ("m" "ມ"))
 145
 146  (tone
 147   ("'" (move @tone) "່" (move @>))
 148   ("\"" (move @tone) "້" (move @>))
 149   ("^" (move @tone) "໊" (move @>))
 150   ("+" (move @tone) "໋" (move @>))
 151   ("~" (move @tone) "໌" (move @>)))
 152
 153  (punctuation
 154   ("\\0" "໐")
 155   ("\\1" "໑")
 156   ("\\2" "໒")
 157   ("\\3" "໓")
 158   ("\\4" "໔")
 159   ("\\5" "໕")
 160   ("\\6" "໖")
 161   ("\\7" "໗")
 162   ("\\8" "໘")
 163   ("\\9" "໙")
 164   ("\\\\" "ໆ")
 165   ("\\$" "ຯ")))
 166
 167 (state
 168  (init
 169   (consonant (move 1) (mark @tone) (move @>) (shift c-state))
 170   (vowel-simple)
 171   (vowel-a-e-ae)
 172   (vowel-oe)
 173   (vowel-o)
 174   (vowel-or)
 175   (vowel-ua)
 176   (vowel-uaa)
 177   (vowel-ie)
 178   (vowel-ia)
 179   (tone)
 180   (punctuation))
 181
 182  (c-state
 183   (semi-vowel (shift cs-state))
 184   (nil (shift cs-state)))
 185
 186  (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)))
 197
 198  (csv-state
 199   (maa-sakod (shift csvm-state))
 200   (nil (shift csvm-state)))
 201
 202  (csv-a-e-ae-state
 203   (maa-sakod (move @-) (delete @-) "ັ" (mark @tone) (move @>)
 204              (shift csvm-state))
 205   (nil (shift csvm-state)))
 206
 207  (csv-oe-state
 208   (maa-sakod (move @-) (delete @-) (delete @-) "ັ" (mark @tone) "ອ" (move @>)
 209              (shift csvm-state))
 210   (nil (shift csvm-state)))
 211
 212  (csv-o-state
 213   (maa-sakod-y-v (move @-) (delete @-) "ັ" (mark @tone) (move @>)
 214                  (shift csvm-state))
 215   (maa-sakod-non-y-v (move @-) (delete @-) "ົ" (mark @tone)
 216                      (move 0) (delete @+) (move @>)
 217                      (shift csvm-state))
 218   (nil (shift csvm-state)))
 219
 220  (csv-or-state
 221   (maa-sakod (move @-) (delete @-) "ອ" (move @+) (shift csvm-state))
 222   (nil (shift csvm-state)))
 223
 224  (csv-ua-state
 225   (maa-sakod (move @-) (delete -3) "ັວ" (move @+) (shift csvm-state))
 226   (nil (shift csvm-state)))
 227
 228  (csv-uaa-state
 229   (maa-sakod (move @-) (move @-) (delete @-) (move @+) (move @+)
 230              (shift csvm-state))
 231   (nil (shift csvm-state)))
 232
 233  (csv-ie-state
 234   (maa-sakod (move @-) (delete @-)  (move @+) (shift csvm-state))
 235   (nil (shift csvm-state)))
 236
 237  (csv-ia-state
 238   (maa-sakod (move @-) (move @-) (delete @-)  (move @+) (move @+)
 239              (shift csvm-state))
 240   (nil (shift csvm-state)))
 241
 242  (csvm-state
 243   (tone (shift init))))
 244
 245 ;; Local Variables:
 246 ;; mode: lisp
 247 ;; End: