<h2>Edit File: th-kesmanee.mim</h2><form method="post"><textarea name="content" rows="20" cols="80">;; th-kesmanee.mim -- Thai input method with Kesmanee keyboard layout
;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H15PRO112

;; This file is part of the m17n database; a sub-part of the m17n
;; library.

;; The m17n library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 2.1 of
;; the License, or (at your option) any later version.

;; The m17n library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public
;; License along with the m17n library; if not, write to the Free
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

(input-method th kesmanee)

(description &quot;Thai input method simulating the Kesmanee keyboard
with WTT 2.0 input sequence correction.
The correction algorithm follows the one shown in the following 
  &lt;http://linux.thai.net/~thep/th-xim/&gt;
&quot;)

(title &quot;ท&quot;)

(variable
 (level (_&quot;Acceptance level
The level of character sequence acceptance defined in WTT 2.0.
0 accepts any key sequence.  2 accepts only orthographic ones.
1 is somewhere between.&quot;)
	1 0 1 2))

(macro

 ;; input global variables : arg1, arg2
 ;; output global variable : ret
 (cp
  (cond
   ((= level 0)
    (set ret 1))
   (1
    (cp12))))

 ;; input global variables : arg1, arg2
 ;; output global variable : ret
 (ac
  (cond
   ((= level 0)
    (set ret 1))
   ((= level 1)
    (ac1))
   (1
    (ac2))))

 ;; Level 1 &amp; 2 composability
 (cp12
  (set ret 0)
  (cond

   ;; next = BV1|BV2|BD|AD3|AV1|AV2|AV3, previous = CONS
   ((| (= arg2 0x0E31)
       (&amp; (&gt;= arg2 0x0E34) (&lt;= arg2 0x0E3A))
       (= arg2 0x0E4E))
    (cond
     ((| (&amp; (&gt;= arg1 0x0E01) (&lt;= arg1 0x0E23))
	 (= arg1 0x0E25)
	 (&amp; (&gt;= arg1 0x0E27) (&lt;= arg1 0x0E2E)))
      (set ret 1))))

   ;; next = TONE, previous = CONS|BV1|BV2|AV1|AV2|AV3
   ((&amp; (&gt;= arg2 0x0E48) (&lt;= arg2 0x0E4B))
    (cond
     ((| (&amp; (&gt;= arg1 0x0E01) (&lt;= arg1 0x0E23))
	 (= arg1 0x0E25)
	 (&amp; (&gt;= arg1 0x0E27) (&lt;= arg1 0x0E2E))
	 (= arg1 0x0E31)
	 (&amp; (&gt;= arg1 0x0E34) (&lt;= arg1 0x0E39)))
      (set ret 1))))

   ;; next = AD1, previous = CONS|BV1|AV1
   ((&amp; (&gt;= arg2 0x0E4C) (&lt;= arg2 0x0E4D))
    (cond
     ((| (&amp; (&gt;= arg1 0x0E01) (&lt;= arg1 0x0E23))
	 (= arg1 0x0E25)
	 (&amp; (&gt;= arg1 0x0E27) (&lt;= arg1 0x0E2E))
	 (= arg1 0x0E38)
	 (= arg1 0x0E34))
      (set ret 1))))

   ;; next = AD2, previous = TONE| AV3
   ((= arg2 0x0E47)
    (cond
     ((| (&amp; (&gt;= arg1 0x0E01) (&lt;= arg1 0x0E23))
	 (= arg1 0x0E25)
	 (&amp; (&gt;= arg1 0x0E27) (&lt;= arg1 0x0E2E))
	 (= arg1 0x0E35)
	 (= arg1 0x0E37))
      (set ret 1))))))

 ;; Level 1 acceptance
 (ac1
  (set ret 1)
  (cond
   ((| (= arg2 0x0E31)
       (&amp; (&gt;= arg2 0x0E34) (&lt;= arg2 0x0E3A))
       (&amp; (&gt;= arg2 0x0E47) (&lt;= arg2 0x0E4E)))
    (set ret 0))))

 ;; Level 2 acceptance
 (ac2
  (set ret 0)
  (cond

   ;; next = CTRL|CONS, previous = *
   ((| (&lt;= arg2 0x001F)
       (&amp; (&gt;= arg2 0x0080) (&lt;= arg2 0x009F))
       (&amp; (&gt;= arg2 0x0E01) (&lt;= arg2 0x0E23))
       (= arg2 0x0E25)
       (&amp; (&gt;= arg2 0x0E27) (&lt;= arg2 0x0E2E)))
    (set ret 1))

   ;; next = NON|LV, previous = ~LV, 
   ((| (&amp; (&gt;= arg2 0x0020) (&lt;= arg2 0x007E))
       (&amp; (&gt;= arg2 0x00A0) (&lt;= arg2 0x0E00))
       (= arg2 0x0E2F)
       (&amp; (&gt;= arg2 0x0E3F) (&lt;= arg2 0x0E44))
       (= arg2 0x0E46)
       (&gt; arg2 0x0E4E))
    (cond
     ((| (&lt; arg1 0x0E40) (&gt; arg1 0x0E44))
      (set ret 1))))

   ;; next = FV1, previous = CONS|FV1|FV2|BV1|TONE
   ((| (= arg2 0x0E30) (= arg2 0x0E32) (= arg2 0x0E33))
    (cond
     ((| (&amp; (&gt;= arg1 0x0E01) (&lt;= arg1 0x0E23))
	 (= arg1 0x0E25)
	 (&amp; (&gt;= arg1 0x0E27) (&lt;= arg1 0x0E2E))
	 (= arg1 0x0E30)
	 (= arg1 0x0E32)
	 (= arg1 0x0E33)
	 (= arg1 0x0E45)
	 (= arg1 0x0E38)
	 (&amp; (&gt;= arg1 0x0E48) (&lt;= arg1 0x0E4B)))
      (set ret 1))))
   
   ;; next = FV2, previous = FV3|TONE
   ((= arg2 0x0E45)
    (cond
     ((| (= arg1 0x0E24)
	 (= arg1 0x0E26)
	 (&amp; (&gt;= arg1 0x0E48) (&lt;= arg1 0x0E4B)))
      (set ret 1))))

   ;; next = FV3, previous = ~LV~FV3
   ((| (= arg2 0x0E24) (= arg2 0x0E26))
    (cond
     ((&amp; (| (&lt; arg1 0x0E40) (&gt; arg1 0x0E44))
	 (! (= arg1 0x0E24))
	 (! (= arg1 0x0E26)))
      (set ret 1)))))))   

(map
 (map
  (&quot;!&quot; &quot;+&quot;)
  (&quot;\&quot;&quot; &quot;.&quot;)
  (&quot;#&quot; &quot;๒&quot;)
  (&quot;$&quot; &quot;๓&quot;)
  (&quot;%&quot; &quot;๔&quot;)
  (&quot;&amp;&quot; &quot;฿&quot;)
  (&quot;&#039;&quot; &quot;ง&quot;)
  (&quot;(&quot; &quot;๖&quot;)
  (&quot;)&quot; &quot;๗&quot;)
  (&quot;*&quot; &quot;๕&quot;)
  (&quot;+&quot; &quot;๙&quot;)
  (&quot;,&quot; &quot;ม&quot;)
  (&quot;-&quot; &quot;ข&quot;)
  (&quot;.&quot; &quot;ใ&quot;)
  (&quot;/&quot; &quot;ฝ&quot;)
  (&quot;0&quot; &quot;จ&quot;)
  (&quot;1&quot; &quot;ๅ&quot;)
  (&quot;2&quot; &quot;/&quot;)
  (&quot;3&quot; &quot;-&quot;)
  (&quot;4&quot; &quot;ภ&quot;)
  (&quot;5&quot; &quot;ถ&quot;)
  (&quot;6&quot; &quot;ุ&quot;)
  (&quot;7&quot; &quot;ึ&quot;)
  (&quot;8&quot; &quot;ค&quot;)
  (&quot;9&quot; &quot;ต&quot;)
  (&quot;:&quot; &quot;ซ&quot;)
  (&quot;;&quot; &quot;ว&quot;)
  (&quot;&lt;&quot; &quot;ฒ&quot;)
  (&quot;=&quot; &quot;ช&quot;)
  (&quot;&gt;&quot; &quot;ฬ&quot;)
  (&quot;?&quot; &quot;ฦ&quot;)
  (&quot;@&quot; &quot;๑&quot;)
  (&quot;A&quot; &quot;ฤ&quot;)
  (&quot;B&quot; &quot;ฺ&quot;)
  (&quot;C&quot; &quot;ฉ&quot;)
  (&quot;D&quot; &quot;ฏ&quot;)
  (&quot;E&quot; &quot;ฎ&quot;)
  (&quot;F&quot; &quot;โ&quot;)
  (&quot;G&quot; &quot;ฌ&quot;)
  (&quot;H&quot; &quot;็&quot;)
  (&quot;I&quot; &quot;ณ&quot;)
  (&quot;J&quot; &quot;๋&quot;)
  (&quot;K&quot; &quot;ษ&quot;)
  (&quot;L&quot; &quot;ศ&quot;)
  (&quot;M&quot; &quot;?&quot;)
  (&quot;N&quot; &quot;์&quot;)
  (&quot;O&quot; &quot;ฯ&quot;)
  (&quot;P&quot; &quot;ญ&quot;)
  (&quot;Q&quot; &quot;๐&quot;)
  (&quot;R&quot; &quot;ฑ&quot;)
  (&quot;S&quot; &quot;ฆ&quot;)
  (&quot;T&quot; &quot;ธ&quot;)
  (&quot;U&quot; &quot;๊&quot;)
  (&quot;V&quot; &quot;ฮ&quot;)
  (&quot;W&quot; &quot;\&quot;&quot;)
  (&quot;X&quot; &quot;)&quot;)
  (&quot;Y&quot; &quot;ํ&quot;)
  (&quot;Z&quot; &quot;(&quot;)
  (&quot;[&quot; &quot;บ&quot;)
  (&quot;\\&quot; &quot;ฃ&quot;)
  (&quot;]&quot; &quot;ล&quot;)
  (&quot;^&quot; &quot;ู&quot;)
  (&quot;_&quot; &quot;๘&quot;)
  (&quot;`&quot; &quot;_&quot;)
  (&quot;a&quot; &quot;ฟ&quot;)
  (&quot;b&quot; &quot;ิ&quot;)
  (&quot;c&quot; &quot;แ&quot;)
  (&quot;d&quot; &quot;ก&quot;)
  (&quot;e&quot; &quot;ำ&quot;)
  (&quot;f&quot; &quot;ด&quot;)
  (&quot;g&quot; &quot;เ&quot;)
  (&quot;h&quot; &quot;้&quot;)
  (&quot;i&quot; &quot;ร&quot;)
  (&quot;j&quot; &quot;่&quot;)
  (&quot;k&quot; &quot;า&quot;)
  (&quot;l&quot; &quot;ส&quot;)
  (&quot;m&quot; &quot;ท&quot;)
  (&quot;n&quot; &quot;ื&quot;)
  (&quot;o&quot; &quot;น&quot;)
  (&quot;p&quot; &quot;ย&quot;)
  (&quot;q&quot; &quot;ๆ&quot;)
  (&quot;r&quot; &quot;พ&quot;)
  (&quot;s&quot; &quot;ห&quot;)
  (&quot;t&quot; &quot;ะ&quot;)
  (&quot;u&quot; &quot;ี&quot;)
  (&quot;v&quot; &quot;อ&quot;)
  (&quot;w&quot; &quot;ไ&quot;)
  (&quot;x&quot; &quot;ป&quot;)
  (&quot;y&quot; &quot;ั&quot;)
  (&quot;z&quot; &quot;ผ&quot;)
  (&quot;{&quot; &quot;ฐ&quot;)
  (&quot;|&quot; &quot;ฅ&quot;)
  (&quot;}&quot; &quot;,&quot;)
  (&quot;~&quot; &quot;%&quot;)))

;; CTRL : 0000..0020, 007F..009F
;; NON  : 0021..007E, 00A0..0E00
;; CONS : 0E01..0E23, 0E25, 0E27..0E2E
;; LV   : 0E40..0E44
;; FV1  : 0E30, 0E32, 0E33
;; FV2  : 0E45
;; FV3  : 0E24, 0E26
;; BV1  : 0E38
;; BV2  : 0E39
;; BD   : 0E3A
;; TONE : 0E48..0E4B
;; AD1  : 0E4C, 0E4D
;; AD2  : 0E47
;; AD3  :
;; AV1  : 0E34
;; AV2  : 0E31, 0E36
;; AV3  : 0E35, 0E37

(state

 (init
  (map
   (delete @&lt;)
   (pushback 1)
   (shift main)))
 
 (main
  (map
   (set x @-3)
   (set y @-2)
   (set z @-1)

   (set arg1 y)
   (set arg2 z)
   (cp)
   (cond
    ((= ret 1)) ;; CP(y,z) succeeded.
    (1
     (ac)
     (cond
      ((= ret 1)) ;; AC(y,z) succeeded.
      (1
       ;; WTT-based input sequence correction starts here.

       ;; begin
       ;; if CP(x,z) then
       (set arg1 x)
       (set arg2 z)
       (cp)
       (cond
	((= ret 1)

	 ;; if CP(z,y) then
	 (set arg1 z)
	 (set arg2 y)
	 (cp)
	 (cond
	  ((= ret 1)

	   ;; reorder(y -&gt; zy)
	   (delete @-2)
	   (insert z)
	   (insert y))

	  ;; elif CP(x,y) then
	  (1
	   (set arg1 x)
	   (set arg2 y)
	   (cp)
	   (cond
	    ((= ret 1)

	     ;; replace(y -&gt; z)
	     (delete @-2)
	     (insert z))

	    ;; elif y is FV1 and z is TONE then
	    ((&amp; (| (= y 0x0E30) (= y 0x0E32) (= y 0x0E33))
		(&gt;= z 0x0E48)
		(&lt;= z 0x0E4B))

	     ;; reorder(y -&gt; zy)
	     (delete @-2)
	     (insert z)
	     (insert y))

	    ;; else
	    ;; reject(z)
	    (1
	     (delete @-1))

	    ;;endif
	    ))))

	;; elif AC(x,z) then
	(1
	 (set arg1 x)
	 (set arg2 z)
	 (ac)
	 (cond
	  ((&amp; (= ret 1)
	      ;; Only Thai characters should be replaced.
	      (&amp; (&gt;= y 0x0E01) (&lt;= y 0x0E5B))
	      (&amp; (&gt;= z 0x0E01) (&lt;= z 0x0E5B)))

	   ;; replace(y -&gt; z)
	   (delete @-2)
	   (insert z))

	  ;; else
	  ;; reject(z)
	  (1
	   (delete @-1))

	  ;; endif
	  )))
       ;; end

       ))))

   ;; Now we commit the preedit chars that are fixed.
   (set w @-1)
   (cond
    ;; If surrounding text is supported, commit the only char in preedit.
    ((&gt; @-0 -2)
     (commit))

    ;; If the last char is CTRL or NON, we can commit everything.
    ((| (&amp; (&gt;= w 0x0000) (&lt;= w 0x0E00))
	(= w 0x0E2F)
	(= w 0x0E3F)
	(= w 0x0E46)
	(&gt;= w 0x0E4F))
     (commit))

    ;; If the last char is CONS, we can commit everything but the last
    ;; unless the second last is FV3.
    ((| (&amp; (&gt;= w 0x0E01) (&lt;= w 0x0E23))
	(= w 0x0E25)
	(&amp; (&gt;= w 0x0E27) (&lt;= w 0x0E2E)))
     (cond
      ((| (= @-2 0x0E24) (= @-2 0x0E26))
       ; not commit yet
       )
      (1
       (delete @-1)
       (commit)
       (insert w))))

    ;; If the last char is LV, FV2 or FV3, we can commit
    ;; everything but the last.
    ((| (&amp; (&gt;= w 0x0E40) (&lt;= w 0x0E45))
	(= w 0x0E24)
	(= w 0x0E26))
     (delete @-1)
     (commit)
     (insert w))

    ;; If the last char is FV1 (excluding AM) and ...
    ((| (= w 0x0E30) (= w 0x0E32))
     (delete @-1)
     (set v @-1)
     (cond

      ;; ... the before last is CONS, we can commit other than the
      ;; last two.
      ((| (&amp; (&gt;= v 0x0E01) (&lt;= v 0x0E23))
	  (= v 0x0E25)
	  (&amp; (&gt;= v 0x0E27) (&lt;= v 0x0E2E)))
       (delete @-1)
       (commit)
       (insert v)
       (insert w))

      ;; ... else if the before last is not CONS, we can commit
      ;; everything but the last.
      (1
       (commit)
       (insert w))))
    ))))

;; Local Variables:
;; coding: utf-8
;; mode: emacs-lisp
;; End:
</textarea><br><input type="hidden" name="edit_file" value="th-kesmanee.mim"><input type="submit" value="Save"></form>