MIM/th-kesmanee.mim

   1 ;; th-kesmanee.mim -- Thai input method with Kesmanee keyboard layout
   2 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007
   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., 51 Franklin Street, Fifth Floor,
  22 ;; Boston, MA 02110-1301, USA.
  23
  24 (input-method th kesmanee)
  25
  26 (description "Thai input method simulating the Kesmanee keyboard
  27 with WTT 2.0 input sequence correction.
  28 The correction algorithm follows the one shown in the following
  29   <http://linux.thai.net/~thep/th-xim/>
  30 ")
  31
  32 (title "ท")
  33
  34 (variable
  35  (level (_"Acceptance level
  36 The level of character sequence acceptance defined in WTT 2.0.
  37 0 accepts any key sequence.  2 accepts only orthographic ones.
  38 1 is somewhere between.")
  39         1 0 1 2))
  40
  41 (macro
  42
  43  ;; input global variables : arg1, arg2
  44  ;; output global variable : ret
  45  (cp
  46   (cond
  47    ((= level 0)
  48     (set ret 1))
  49    (1
  50     (cp12))))
  51
  52  ;; input global variables : arg1, arg2
  53  ;; output global variable : ret
  54  (ac
  55   (cond
  56    ((= level 0)
  57     (set ret 1))
  58    ((= level 1)
  59     (ac1))
  60    (1
  61     (ac2))))
  62
  63  ;; Level 1 & 2 composability
  64  (cp12
  65   (set ret 0)
  66   (cond
  67
  68    ;; next = BV1|BV2|BD|AD3|AV1|AV2|AV3, previous = CONS
  69    ((| (= arg2 0x0E31)
  70        (& (>= arg2 0x0E34) (<= arg2 0x0E3A))
  71        (= arg2 0x0E4E))
  72     (cond
  73      ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23))
  74          (= arg1 0x0E25)
  75          (& (>= arg1 0x0E27) (<= arg1 0x0E2E)))
  76       (set ret 1))))
  77
  78    ;; next = TONE, previous = CONS|BV1|BV2|AV1|AV2|AV3
  79    ((& (>= arg2 0x0E48) (<= arg2 0x0E4B))
  80     (cond
  81      ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23))
  82          (= arg1 0x0E25)
  83          (& (>= arg1 0x0E27) (<= arg1 0x0E2E))
  84          (= arg1 0x0E31)
  85          (& (>= arg1 0x0E34) (<= arg1 0x0E39)))
  86       (set ret 1))))
  87
  88    ;; next = AD1, previous = CONS|BV1|AV1
  89    ((& (>= arg2 0x0E4C) (<= arg2 0x0E4D))
  90     (cond
  91      ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23))
  92          (= arg1 0x0E25)
  93          (& (>= arg1 0x0E27) (<= arg1 0x0E2E))
  94          (= arg1 0x0E38)
  95          (= arg1 0x0E34))
  96       (set ret 1))))
  97
  98    ;; next = AD2, previous = TONE| AV3
  99    ((= arg2 0x0E47)
 100     (cond
 101      ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23))
 102          (= arg1 0x0E25)
 103          (& (>= arg1 0x0E27) (<= arg1 0x0E2E))
 104          (= arg1 0x0E35)
 105          (= arg1 0x0E37))
 106       (set ret 1))))))
 107
 108  ;; Level 1 acceptance
 109  (ac1
 110   (set ret 1)
 111   (cond
 112    ((| (= arg2 0x0E31)
 113        (& (>= arg2 0x0E34) (<= arg2 0x0E3A))
 114        (& (>= arg2 0x0E47) (<= arg2 0x0E4E)))
 115     (set ret 0))))
 116
 117  ;; Level 2 acceptance
 118  (ac2
 119   (set ret 0)
 120   (cond
 121
 122    ;; next = CTRL|CONS, previous = *
 123    ((| (<= arg2 0x001F)
 124        (& (>= arg2 0x0080) (<= arg2 0x009F))
 125        (& (>= arg2 0x0E01) (<= arg2 0x0E23))
 126        (= arg2 0x0E25)
 127        (& (>= arg2 0x0E27) (<= arg2 0x0E2E)))
 128     (set ret 1))
 129
 130    ;; next = NON|LV, previous = ~LV,
 131    ((| (& (>= arg2 0x0020) (<= arg2 0x007E))
 132        (& (>= arg2 0x00A0) (<= arg2 0x0E00))
 133        (= arg2 0x0E2F)
 134        (& (>= arg2 0x0E3F) (<= arg2 0x0E44))
 135        (= arg2 0x0E46)
 136        (> arg2 0x0E4E))
 137     (cond
 138      ((| (< arg1 0x0E40) (> arg1 0x0E44))
 139       (set ret 1))))
 140
 141    ;; next = FV1, previous = CONS|FV1|FV2|BV1|TONE
 142    ((| (= arg2 0x0E30) (= arg2 0x0E32) (= arg2 0x0E33))
 143     (cond
 144      ((| (& (>= arg1 0x0E01) (<= arg1 0x0E23))
 145          (= arg1 0x0E25)
 146          (& (>= arg1 0x0E27) (<= arg1 0x0E2E))
 147          (= arg1 0x0E30)
 148          (= arg1 0x0E32)
 149          (= arg1 0x0E33)
 150          (= arg1 0x0E45)
 151          (= arg1 0x0E38)
 152          (& (>= arg1 0x0E48) (<= arg1 0x0E4B)))
 153       (set ret 1))))
 154
 155    ;; next = FV2, previous = FV3|TONE
 156    ((= arg2 0x0E45)
 157     (cond
 158      ((| (= arg1 0x0E24)
 159          (= arg1 0x0E26)
 160          (& (>= arg1 0x0E48) (<= arg1 0x0E4B)))
 161       (set ret 1))))
 162
 163    ;; next = FV3, previous = ~LV~FV3
 164    ((| (= arg2 0x0E24) (= arg2 0x0E26))
 165     (cond
 166      ((& (| (< arg1 0x0E40) (> arg1 0x0E44))
 167          (! (= arg1 0x0E24))
 168          (! (= arg1 0x0E26)))
 169       (set ret 1)))))))
 170
 171 (map
 172  (map
 173   ("!" "+")
 174   ("\"" ".")
 175   ("#" "๒")
 176   ("$" "๓")
 177   ("%" "๔")
 178   ("&" "฿")
 179   ("'" "ง")
 180   ("(" "๖")
 181   (")" "๗")
 182   ("*" "๕")
 183   ("+" "๙")
 184   ("," "ม")
 185   ("-" "ข")
 186   ("." "ใ")
 187   ("/" "ฝ")
 188   ("0" "จ")
 189   ("1" "ๅ")
 190   ("2" "/")
 191   ("3" "-")
 192   ("4" "ภ")
 193   ("5" "ถ")
 194   ("6" "ุ")
 195   ("7" "ึ")
 196   ("8" "ค")
 197   ("9" "ต")
 198   (":" "ซ")
 199   (";" "ว")
 200   ("<" "ฒ")
 201   ("=" "ช")
 202   (">" "ฬ")
 203   ("?" "ฦ")
 204   ("@" "๑")
 205   ("A" "ฤ")
 206   ("B" "ฺ")
 207   ("C" "ฉ")
 208   ("D" "ฏ")
 209   ("E" "ฎ")
 210   ("F" "โ")
 211   ("G" "ฌ")
 212   ("H" "็")
 213   ("I" "ณ")
 214   ("J" "๋")
 215   ("K" "ษ")
 216   ("L" "ศ")
 217   ("M" "?")
 218   ("N" "์")
 219   ("O" "ฯ")
 220   ("P" "ญ")
 221   ("Q" "๐")
 222   ("R" "ฑ")
 223   ("S" "ฆ")
 224   ("T" "ธ")
 225   ("U" "๊")
 226   ("V" "ฮ")
 227   ("W" "\"")
 228   ("X" ")")
 229   ("Y" "ํ")
 230   ("Z" "(")
 231   ("[" "บ")
 232   ("\\" "ฃ")
 233   ("]" "ล")
 234   ("^" "ู")
 235   ("_" "๘")
 236   ("`" "_")
 237   ("a" "ฟ")
 238   ("b" "ิ")
 239   ("c" "แ")
 240   ("d" "ก")
 241   ("e" "ำ")
 242   ("f" "ด")
 243   ("g" "เ")
 244   ("h" "้")
 245   ("i" "ร")
 246   ("j" "่")
 247   ("k" "า")
 248   ("l" "ส")
 249   ("m" "ท")
 250   ("n" "ื")
 251   ("o" "น")
 252   ("p" "ย")
 253   ("q" "ๆ")
 254   ("r" "พ")
 255   ("s" "ห")
 256   ("t" "ะ")
 257   ("u" "ี")
 258   ("v" "อ")
 259   ("w" "ไ")
 260   ("x" "ป")
 261   ("y" "ั")
 262   ("z" "ผ")
 263   ("{" "ฐ")
 264   ("|" "ฅ")
 265   ("}" ",")
 266   ("~" "%")))
 267
 268 ;; CTRL : 0000..0020, 007F..009F
 269 ;; NON  : 0021..007E, 00A0..0E00
 270 ;; CONS : 0E01..0E23, 0E25, 0E27..0E2E
 271 ;; LV   : 0E40..0E44
 272 ;; FV1  : 0E30, 0E32, 0E33
 273 ;; FV2  : 0E45
 274 ;; FV3  : 0E24, 0E26
 275 ;; BV1  : 0E38
 276 ;; BV2  : 0E39
 277 ;; BD   : 0E3A
 278 ;; TONE : 0E48..0E4B
 279 ;; AD1  : 0E4C, 0E4D
 280 ;; AD2  : 0E47
 281 ;; AD3  :
 282 ;; AV1  : 0E34
 283 ;; AV2  : 0E31, 0E36
 284 ;; AV3  : 0E35, 0E37
 285
 286 (state
 287
 288  (init
 289   (map
 290    (delete @<)
 291    (pushback 1)
 292    (shift main)))
 293
 294  (main
 295   (map
 296    (set x @-3)
 297    (set y @-2)
 298    (set z @-1)
 299
 300    (set arg1 y)
 301    (set arg2 z)
 302    (cp)
 303    (cond
 304     ((= ret 1)) ;; CP(y,z) succeeded.
 305     (1
 306      (ac)
 307      (cond
 308       ((= ret 1)) ;; AC(y,z) succeeded.
 309       (1
 310        ;; WTT-based input sequence correction starts here.
 311
 312        ;; begin
 313        ;; if CP(x,z) then
 314        (set arg1 x)
 315        (set arg2 z)
 316        (cp)
 317        (cond
 318         ((= ret 1)
 319
 320          ;; if CP(z,y) then
 321          (set arg1 z)
 322          (set arg2 y)
 323          (cp)
 324          (cond
 325           ((= ret 1)
 326
 327            ;; reorder(y -> zy)
 328            (delete @-2)
 329            (insert z)
 330            (insert y))
 331
 332           ;; elif CP(x,y) then
 333           (1
 334            (set arg1 x)
 335            (set arg2 y)
 336            (cp)
 337            (cond
 338             ((= ret 1)
 339
 340              ;; replace(y -> z)
 341              (delete @-2)
 342              (insert z))
 343
 344             ;; elif y is FV1 and z is TONE then
 345             ((& (| (= y 0x0E30) (= y 0x0E32) (= y 0x0E33))
 346                 (>= z 0x0E48)
 347                 (<= z 0x0E4B))
 348
 349              ;; reorder(y -> zy)
 350              (delete @-2)
 351              (insert z)
 352              (insert y))
 353
 354             ;; else
 355             ;; reject(z)
 356             (1
 357              (delete @-1))
 358
 359             ;;endif
 360             ))))
 361
 362         ;; elif AC(x,z) then
 363         (1
 364          (set arg1 x)
 365          (set arg2 z)
 366          (ac)
 367          (cond
 368           ((& (= ret 1)
 369               ;; Only Thai characters should be replaced.
 370               (& (>= y 0x0E01) (<= y 0x0E5B))
 371               (& (>= z 0x0E01) (<= z 0x0E5B)))
 372
 373            ;; replace(y -> z)
 374            (delete @-2)
 375            (insert z))
 376
 377           ;; else
 378           ;; reject(z)
 379           (1
 380            (delete @-1))
 381
 382           ;; endif
 383           )))
 384        ;; end
 385
 386        ))))
 387
 388    ;; Now we commit the preedit chars that are fixed.
 389    (set w @-1)
 390    (cond
 391     ;; If surrounding text is supported, commit the only char in preedit.
 392     ((> @-0 -2)
 393      (commit))
 394
 395     ;; If the last char is CTRL or NON, we can commit everything.
 396     ((| (& (>= w 0x0000) (<= w 0x0E00))
 397         (= w 0x0E2F)
 398         (= w 0x0E3F)
 399         (= w 0x0E46)
 400         (>= w 0x0E4F))
 401      (commit))
 402
 403     ;; If the last char is CONS, we can commit everything but the last
 404     ;; unless the second last is FV3.
 405     ((| (& (>= w 0x0E01) (<= w 0x0E23))
 406         (= w 0x0E25)
 407         (& (>= w 0x0E27) (<= w 0x0E2E)))
 408      (cond
 409       ((| (= @-2 0x0E24) (= @-2 0x0E26))
 410        ; not commit yet
 411        )
 412       (1
 413        (delete @-1)
 414        (commit)
 415        (insert w))))
 416
 417     ;; If the last char is LV, FV2 or FV3, we can commit
 418     ;; everything but the last.
 419     ((| (& (>= w 0x0E40) (<= w 0x0E45))
 420         (= w 0x0E24)
 421         (= w 0x0E26))
 422      (delete @-1)
 423      (commit)
 424      (insert w))
 425
 426     ;; If the last char is FV1 (excluding AM) and ...
 427     ((| (= w 0x0E30) (= w 0x0E32))
 428      (delete @-1)
 429      (set v @-1)
 430      (cond
 431
 432       ;; ... the before last is CONS, we can commit other than the
 433       ;; last two.
 434       ((| (& (>= v 0x0E01) (<= v 0x0E23))
 435           (= v 0x0E25)
 436           (& (>= v 0x0E27) (<= v 0x0E2E)))
 437        (delete @-1)
 438        (commit)
 439        (insert v)
 440        (insert w))
 441
 442       ;; ... else if the before last is not CONS, we can commit
 443       ;; everything but the last.
 444       (1
 445        (commit)
 446        (insert w))))
 447     ))))
 448
 449 ;; Local Variables:
 450 ;; coding: utf-8
 451 ;; mode: emacs-lisp
 452 ;; End: