<h2>Edit File: si-wijesekera.mim</h2><form method="post"><textarea name="content" rows="20" cols="80">;; si-wijesekera.mim -- Sinhala input method with wijesekera method
;; Copyright (C) 2005, 2006, 2008, 2009, 2011
;;   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 si wijesekera (version &quot;1.6.0&quot;))

(description &quot;Sinhala input method based on SLS 1134 Rev. 2:2004.
  &lt;http://www.siyabas.lk/docs/sin-kbd-layout5.pdf&gt;
Although this code supports both surrounding text and preedit,
the former is disabled by default to avoid confusion caused by
faulty applications.
&quot;)

(title &quot;සි&quot;)

(variable
 (use-surrounding-text (_&quot;Surrounding text vs. preedit.
If 1, try to use surrounding text.  Otherwise, use preedit.&quot;)
		       0 1 0))

(macro
 ;; skip following (virama zwj consonant)* sequence
 (forward
  (set cc3 @+2)
  (cond
   ((&amp; (= @+0 0x0DCA) (= @+1 0x200D) (&gt;= cc3 0x0D9A) (&lt;= cc3 0x0DC6))
    (delete @+3)
    0x0DCA 0x200D
    (insert cc3)
    (forward))))

 (backward
  (set cc1 @-1)
  (cond
   ((&amp; (= @-3 0x0DCA) (= @-2 0x200D) (&gt;= cc1 0x0D9A) (&lt;= cc1 0x0DC6))
    (delete @-3)
    0x0DCA
    0x200D
    (insert cc1)
    (move @&lt;)
    (backward))))

 (delete-preceding-zw
  (cond
   ((| (= @-1 0x200C) (= @-1 0x200D))
    (delete @-1)
    (delete-preceding-zw))))

 (delete-following-zw
  (cond
   ((| (= @+0 0x200C) (= @+0 0x200D))
    (delete @+1)
    (delete-following-zw))))

 (merge-kombuva
  (delete @-1)
  (delete @+2)
  (insert c1)))

(map
 (starter
  (&quot;A&quot;) (&quot;B&quot;) (&quot;C&quot;) (&quot;D&quot;) (&quot;E&quot;) (&quot;F&quot;) (&quot;G&quot;) (&quot;H&quot;) (&quot;I&quot;) (&quot;J&quot;) (&quot;K&quot;) (&quot;L&quot;) (&quot;M&quot;)
  (&quot;N&quot;) (&quot;O&quot;) (&quot;P&quot;) (&quot;Q&quot;) (&quot;R&quot;) (&quot;S&quot;) (&quot;T&quot;) (&quot;U&quot;) (&quot;V&quot;) (&quot;W&quot;) (&quot;X&quot;) (&quot;Y&quot;) (&quot;Z&quot;) 
  (&quot;a&quot;) (&quot;b&quot;) (&quot;c&quot;) (&quot;d&quot;) (&quot;e&quot;) (&quot;f&quot;) (&quot;g&quot;) (&quot;h&quot;) (&quot;i&quot;) (&quot;j&quot;) (&quot;k&quot;) (&quot;l&quot;) (&quot;m&quot;)
  (&quot;n&quot;) (&quot;o&quot;) (&quot;p&quot;) (&quot;q&quot;) (&quot;r&quot;) (&quot;s&quot;) (&quot;t&quot;) (&quot;u&quot;) (&quot;v&quot;) (&quot;w&quot;) (&quot;x&quot;) (&quot;y&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;&#039;&quot;) (&quot;\&quot;&quot;)
  (&quot;,&quot;) (&quot;&lt;&quot;) (&quot;.&quot;) (&quot;&gt;&quot;)
  ((A-a)) ((A-c)) ((A-o)) ((A-v)) ((A-x)) ((A-z)) ((A-\ )) ((A-.)) ((A-,)) ((A-\&#039;))
  ((G-a)) ((G-c)) ((G-o)) ((G-v)) ((G-x)) ((G-z)) ((G-\ )) ((G-.)) ((G-,)) ((G-\&#039;))
  ((S-\ )) ((BackSpace)) ((Delete)))

  (consonant
   (&quot;l&quot; &quot;ක&quot;)				; 0D9A
   (&quot;L&quot; &quot;ඛ&quot;)				; 0D9B
   (&quot;.&quot; &quot;ග&quot;)				; 0D9C
   (&quot;&gt;&quot; &quot;ඝ&quot;)				; 0D9D
   (&quot;X&quot; &quot;ඞ&quot;)				; 0D9E
   ((A-.) &quot;ඟ&quot;)				; 0D9F
   ((G-.) &quot;ඟ&quot;)				; 0D9F
   (&quot;p&quot; &quot;ච&quot;)				; 0DA0
   (&quot;P&quot; &quot;ඡ&quot;)				; 0DA1
   (&quot;c&quot; &quot;ජ&quot;)				; 0DA2
   (&quot;C&quot; &quot;ඣ&quot;)				; 0DA3
   (&quot;\[&quot; &quot;ඤ&quot;)				; 0DA4
   (&quot;{&quot; &quot;ඥ&quot;)				; 0DA5
   ((A-c) &quot;ඦ&quot;)				; 0DA6
   ((G-c) &quot;ඦ&quot;)				; 0DA6
   (&quot;g&quot; &quot;ට&quot;)				; 0DA7
   (&quot;G&quot; &quot;ඨ&quot;)				; 0DA8
   (&quot;v&quot; &quot;ඩ&quot;)				; 0DA9
   (&quot;V&quot; &quot;ඪ&quot;)				; 0DAA
   (&quot;K&quot; &quot;ණ&quot;)				; 0DAB
   ((A-v) &quot;ඬ&quot;)				; 0DAC
   ((G-v) &quot;ඬ&quot;)				; 0DAC
   (&quot;;&quot; &quot;ත&quot;)				; 0DAD
   (&quot;:&quot; &quot;ථ&quot;)				; 0DAE
   (&quot;o&quot; &quot;ද&quot;)				; 0DAF
   (&quot;O&quot; &quot;ධ&quot;)				; 0DB0
   (&quot;k&quot; &quot;න&quot;)				; 0DB1
   ((A-o) &quot;ඳ&quot;)				; 0DB3
   ((G-o) &quot;ඳ&quot;)				; 0DB3
   (&quot;m&quot; &quot;ප&quot;)				; 0DB4
   (&quot;M&quot; &quot;ඵ&quot;)				; 0DB5
   (&quot;n&quot; &quot;බ&quot;)				; 0DB6
   (&quot;N&quot; &quot;භ&quot;)				; 0DB7
   (&quot;u&quot; &quot;ම&quot;)				; 0DB8
   (&quot;U&quot; &quot;ඹ&quot;)				; 0DB9
   (&quot;h&quot; &quot;ය&quot;)				; 0DBA
   (&quot;r&quot; &quot;ර&quot;)				; 0DBB
   (&quot;,&quot; &quot;ල&quot;)				; 0DBD
   (&quot;j&quot; &quot;ව&quot;)				; 0DC0
   (&quot;Y&quot; &quot;ශ&quot;)				; 0DC1
   (&quot;I&quot; &quot;ෂ&quot;)				; 0DC2
   (&quot;i&quot; &quot;ස&quot;)				; 0DC3
   (&quot;y&quot; &quot;හ&quot;)				; 0DC4
   (&quot;&lt;&quot; &quot;ළ&quot;)				; 0DC5
   (&quot;F&quot; &quot;ෆ&quot;)				; 0DC6
   )

  (misc
   (&quot;x&quot; &quot;ං&quot;)				; 0D82
   ((A-x) &quot;ඃ&quot;)				; 0D83
   ((G-x) &quot;ඃ&quot;)				; 0D83

   (&quot;w&quot; &quot;අ&quot;)				; 0D85
   (&quot;b&quot; &quot;ඉ&quot;)				; 0D89
   (&quot;B&quot; &quot;ඊ&quot;)				; 0D8A
   (&quot;W&quot; &quot;උ&quot;)				; 0D8B
   (&quot;R&quot; &quot;ඍ&quot;)				; 0D8D
   ((A-,) &quot;ඏ&quot;)				; 0D8F
   ((G-,) &quot;ඏ&quot;)				; 0D8F

   (&quot;T&quot; &quot;ඔ&quot;)				; 0D94

   (&quot;s&quot; &quot;ි&quot;)				; 0DD2
   (&quot;S&quot; &quot;ී&quot;)				; 0DD3
   (&quot;q&quot; &quot;ු&quot;)				; 0DD4

   (&quot;Q&quot; &quot;ූ&quot;)				; 0DD6

   ((A-a) &quot;ෳ&quot;)				; 0DF3
   ((G-a) &quot;ෳ&quot;)				; 0DF3
   ((A-\&#039;) &quot;෴&quot;)				; 0DF4
   ((G-\&#039;) &quot;෴&quot;)				; 0DF4

   (&quot;\]&quot; &quot;;&quot;)
   (&quot;}&quot; &quot;:&quot;)
   (&quot;&#039;&quot; &quot;.&quot;)
   (&quot;\&quot;&quot; &quot;,&quot;)
   (&quot;z&quot; &quot;&#039;&quot;)
   (&quot;Z&quot; &quot;\&quot;&quot;)

   (&quot;|&quot; &quot;‍්&quot;)				; touch (ZWJ 0DCA)
   (&quot;J&quot; &quot;ළු&quot;)				; muurdhaja lu (0DC5 0DD4)
   ((S-\ ) &quot; &quot;)				; NBSP
   ((A-\ ) &quot;‌&quot;)				; ZWNJ
   ((G-\ ) &quot;‌&quot;)				; ZWNJ

   (&quot;t&quot;
    (set c @-2)
    (cond
     ((= @-1 0x0DD9)
      (cond
       ((= c 0x200C)
	(delete @-2)
	0x0D93)
       ((| (&lt; c 0x0D9A) (&gt; c 0x0DC6))
	(delete @-1)
	0x0D93)
       (1
	0x0D91)))
     (1
      0x0D91)))

   (&quot;a&quot;
    (set c @-1)
    (cond
     ((= c 0x0D91)
      (delete @-1)
      0x0D92)
     ((= c 0x0D94)
      (delete @-1)
      0x0D95)
     ((= c 0x0DD9)
      (delete @-1)
      0x0DDA)
     ((= c 0x0DDC)
      (delete @-1)
      0x0DDD)
     (1
      0x0DCA)))

   (&quot;d&quot;
    (set c @-1)
    (cond
     ((= c 0x0D85)
      (delete @-1)
      0x0D86)
     ((= c 0x0DD9)
      (delete @-1)
      0x0DDC)
     (1
      0x0DCF)))

   (&quot;e&quot;
    (cond
     ((= @-1 0x0D85)
      (delete @-1)
      0x0D87)
     (1
      0x0DD0)))

   (&quot;E&quot;
    (set c @-1)
    (cond
     ((= c 0x0D85)
      (delete @-1)
      0x0D88)
     ((= c 0x0DD4)
      (cond
       ((= @-2 0x0DC5)
	(delete @-1)
	0x0DD6)
       (1
	0x0DD1)))
     (1
      0x0DD1)))     

   (&quot;D&quot;
    (set c @-1)
    (cond
     ((= c 0x0D8D)
      (delete @-1)
      0x0D8E)
     ((= c 0x0DD8)
      (delete @-1)
      0x0DF2)
     (1
      0x0DD8)))

   (&quot;A&quot;
    (set c @-1)
    (cond
     ((= c 0x0D8B)
      (delete @-1)
      0x0D8C)
     ((= c 0x0D8F)
      (delete @-1)
      0x0D90)
     ((= c 0x0D94)
      (delete @-1)
      0x0D96)
     ((= c 0x0DD9)
      (delete @-1)
      0x0DDE)
     (1
      0x0DDF)))

   (&quot;f&quot;
    (set c @+0)
    (cond
     ((&amp; (&gt;= c 0x0D9A) (&lt;= c 0x0DC6))
      (delete @+1)
      (insert c)
      (forward)
      (set c @+0)
      (cond
       ((= c 0x0DCA)
	(delete @+1)
	0x0DDA)
       ((= c 0x0DD9)
	(delete @+1)
	0x0DDB)
       ((= c 0x0DCF)
	(delete @+1)
	0x0DDC)
       ((= c 0x0DDF)
	(delete @+1)
	0x0DDE)
       (1
	0x0DD9)))
     ((= c 0x0D91)
      (delete @+1)
      0x0D93)
     ((= c 0x0DD9)
      (delete @+1)
      0x0DDB)
     ((&amp; (= c 0x200C) (= @+1 0x0DD9))
      (delete @+2)
      0x200C 0x0DDB)
     ((&amp; (= @-1 0x0DD9)
	 (| (&lt; @-2 0x0D9A) (&gt; @-2 0x0DC6)))
      (delete @-1)
      0x0DDB)
     ((&amp; (&gt;= @-1 0x0D9A) (&lt;= @-1 0x0DC6))
      0x200C 0x0DD9)
     (1
      0x0DD9)))
   
   ;; sanyaka letters
   ((A-z)
    (set c @-1)
    (cond
     ((= c 0x0DAF)
      (delete @-1)
      0x0DB3)
     ((= c 0x0D9C)
      (delete @-1)
      0x0D9F)
     ((= c 0x0DA9)
      (delete @-1)
      0x0DAC)
     ((= c 0x0DA2)
      (delete @-1)
      0x0DA6)))
   
   ;; sanyaka letters
   ((G-z)
    (set c @-1)
    (cond
     ((= c 0x0DAF)
      (delete @-1)
      0x0DB3)
     ((= c 0x0D9C)
      (delete @-1)
      0x0D9F)
     ((= c 0x0DA9)
      (delete @-1)
      0x0DAC)
     ((= c 0x0DA2)
      (delete @-1)
      0x0DA6)))

   ;; yansaya
   (&quot;H&quot;
    (set c @-1)
    (cond
     ((= c 0x0DD9)
      (delete @-1))
     ((= c 0x0DDB)
      (delete @-1))
     (1
      (set c 0)))
    (cond
     ((&amp; (&gt;= @-1 0x0D9A) (&lt;= @-1 0x0DC6))
      0x0DCA 0x200D 0x0DBA))
    (cond
     ((&gt; c 0)
      (insert c))))

   ;; rakaransaya
   (&quot;`&quot;
    (set c @-1)
    (cond
     ((| (= c 0x0DD9) (= c 0x0DDB) (= c 0x0DD2) (= c 0x0DD3))
      (delete @-1))
     (1
      (set c 0)))
    (cond
     ((&amp; (&gt;= @-1 0x0D9A) (&lt;= @-1 0x0DC6))
      0x0DCA 0x200D 0x0DBB))
    (cond
     ((&gt; c 0)
      (insert c))))

   ;; repaya
   (&quot;~&quot;
    (set c @-1)
    (cond
     ((| (= c 0x0DD9) (= c 0x0DDB))
      (delete @-1))
     (1
      (set c 0)))
    (backward)
    (cond
     ((&amp; (&gt;= @-1 0x0D9A) (&lt;= @-1 0x0DC6))
      (set c1 @-1)
      (delete @-1)
      (insert c1)
      (move @&lt;)
      0x0DBB 0x0DCA 0x200D))
    (cond
     ((&gt; c 0)
      (move @&gt;)
      (insert c))))

   ((BackSpace)
    (delete-preceding-zw)
    (set c @-1)
    (cond
     ((&lt; c 0)
      (unhandle)))
    (delete @-1)
    (cond
     ((= c 0x0D86)
      0x0D85)
     ((= c 0x0D87)
      0x0D85)
     ((= c 0x0D88)
      0x0D85)
     ((= c 0x0D8C)
      0x0D8B)
     ((= c 0x0D8E)
      0x0D8D)
     ((= c 0x0D90)
      0x0D8F)
     ((= c 0x0D92)
      0x0D8F)
     ((= c 0x0D93)
      (cond ((&amp; (&gt;= @-1 0x0D9A) (&lt;= @-1 0x0DC6)) 0x200C))
      0x0DD9)
     ((= c 0x0D95)
      0x0D94)
     ((= c 0x0D96)
      0x0D94)

     ((&amp; (&gt;= c 0x0D9A) (&lt;= c 0x0DC6) (= @-2 0x0DCA) (= @-1 0x200D))
      (cond
       ((= @-3 0x0DBB)
	(delete @-3)
	(insert c))
       (1
	(delete @-2))))

     ((= c 0x0DD9)
      (cond
       ((| (&lt; @-1 0x0D9A) (&gt; @-1 0x0DC6)))
       ((= @+0 0x0D91)
	(delete @-1)
	(delete @+1)
	0x0D93)
       ((&amp; (&gt;= @+0 0x0D9A) (&lt;= @+0 0x0DC6))
	(set c1 @+0)
	(cond
	 ((= @+1 0x0DD9)
	  (merge-kombuva)
	  0x0DDB)
	 ((= @+1 0x0DCA)
	  (merge-kombuva)
	  0x0DDA)
	 ((= @+1 0x0DCF)
	  (merge-kombuva)
	  0x0DDC)
	 ((= @+1 0x0DDF)
	  (merge-kombuva)
	  0x0DDE)
	 (1
	  (delete @-1)
	  (delete @+1)
	  (insert c1)
	  0x0DD9)))
       ((&amp; (&gt;= @-2 0x0D9A) (&lt;= @-2 0x0DC6))
	(delete @-1)
	0x200C
	0x0DD9)
       ((&amp; (= @-4 0x0DBB) (= @-3 0x0DCA) (= @-2 0x200D))
	(set c1 @-1)
	(delete @-4)
	(insert c1)
	0x0DD9)
       ((&amp; (&gt;= @-4 0x0D9A) (&lt;= @-4 0x0DC6) (= @-3 0x0DCA) (= @-2 0x200D))
	(delete @-3)
	0x0DD9)
       (1
	(delete @-1)
	0x0DD9)))

     ((= c 0x0DDA)
      0x0DD9)

     ((= c 0x0DDB)
      (cond
       ((| (&lt; @-1 0x0D9A) (&gt; @-1 0x0DC6))
	0x0DD9)
       ((&amp; (&gt;= @-2 0x0D9A) (&lt;= @-2 0x0DC6))
	(delete @-1)
	0x200C
	0x0DDB)
       ((&amp; (= @-4 0x0DBB) (= @-3 0x0DCA) (= @-2 0x200D))
	(set c1 @-1)
	(delete @-4)
	(insert c1)
	0x0DDB)
       ((&amp; (&gt;= @-4 0x0D9A) (&lt;= @-4 0x0DC6) (= @-3 0x0DCA) (= @-2 0x200D))
	(delete @-3)
	0x0DDB)
       (1
	(delete @-1)
	0x0DDB)))

     ((= c 0x0DDC)
      0x0DD9)
     ((= c 0x0DDD)
      0x0DDC)
     ((= c 0x0DDE)
      0x0DD9)
     ((= c 0x0DF2)
      0x0DD8))

    (cond
     ((&amp; (&gt;= @-1 0x0D9A)
	 (&lt;= @-1 0x0DC6)
	 (| (= @+0 0x0DD9) (= @+0 0x0DDB)))
      0x200C)))

   ((Delete)
    (delete-following-zw)
    (set c @+0)
    (cond
     ((&lt; c 0)
      (unhandle)))
    (delete @+1)
    (cond
     ((= c 0x0D86)
      0x0DCF)
     ((= c 0x0D87)
      0x0DD0)
     ((= c 0x0D88)
      0x0DD1)
     ((= c 0x0D8C)
      0x0DDF)
     ((= c 0x0D8E)
      0x0DD8)
     ((= c 0x0D90)
      0x0DDF)
     ((= c 0x0D92)
      0x0DCA)
     ((= c 0x0D93)
      0x0D91)
     ((&amp; (&gt;= c 0x0D9A) (&lt;= c 0x0DC6))
      (forward)
      (cond
       ((= @+0 0x0DD9)
	(delete @+1)
	(move @&lt;)
	(insert c))
       ((= @+0 0x0DDB)
	(delete @+1)
	0x0DD9
	(move @&lt;)
	(insert c))
       ((= @+0 0x0DDA)
	(delete @+1)
	0x0DCA
	(move @&lt;)
	(insert c))
       ((= @+0 0x0DDC)
	(delete @+1)
	0x0DCF
	(move @&lt;)
	(insert c))
       ((= @+0 0x0DDE)
	(delete @+1)
	0x0DDF
	(move @&lt;)
	(insert c))
       (1
	(delete @&lt;))))
     ((= c 0x0DDB)
      0x0DD9))))

  (independent
   (&quot;w&quot; &quot;අ&quot;)				; 0D85
   (&quot;b&quot; &quot;ඉ&quot;)				; 0D89
   (&quot;B&quot; &quot;ඊ&quot;)				; 0D8A
   (&quot;W&quot; &quot;උ&quot;)				; 0D8B
   (&quot;R&quot; &quot;ඍ&quot;)				; 0D8D
   ((A-,) &quot;ඏ&quot;)				; 0D8F
   ((G-,) &quot;ඏ&quot;)				; 0D8F
   (&quot;t&quot; &quot;එ&quot;)				; 0D91
   (&quot;T&quot; &quot;ඔ&quot;)				; 0D94
   (&quot;l&quot; &quot;ක&quot;)				; 0D9A
   (&quot;L&quot; &quot;ඛ&quot;)				; 0D9B
   (&quot;.&quot; &quot;ග&quot;)				; 0D9C
   (&quot;&gt;&quot; &quot;ඝ&quot;)				; 0D9D
   (&quot;X&quot; &quot;ඞ&quot;)				; 0D9E
   ((A-.) &quot;ඟ&quot;) ((0x2E A-z) &quot;ඟ&quot;)		; 0D9F
   ((G-.) &quot;ඟ&quot;) ((0x2E G-z) &quot;ඟ&quot;)		; 0D9F
   (&quot;p&quot; &quot;ච&quot;)				; 0DA0
   (&quot;P&quot; &quot;ඡ&quot;)				; 0DA1
   (&quot;c&quot; &quot;ජ&quot;)				; 0DA2
   (&quot;C&quot; &quot;ඣ&quot;)				; 0DA3
   (&quot;\[&quot; &quot;ඤ&quot;)				; 0DA4
   (&quot;{&quot; &quot;ඥ&quot;)				; 0DA5
   ((A-c) &quot;ඦ&quot;) ((0x63 A-z) &quot;ඦ&quot;)		; 0DA6
   ((G-c) &quot;ඦ&quot;) ((0x63 G-z) &quot;ඦ&quot;)		; 0DA6
   (&quot;g&quot; &quot;ට&quot;)				; 0DA7
   (&quot;G&quot; &quot;ඨ&quot;)				; 0DA8
   (&quot;v&quot; &quot;ඩ&quot;)				; 0DA9
   (&quot;V&quot; &quot;ඪ&quot;)				; 0DAA
   (&quot;K&quot; &quot;ණ&quot;)				; 0DAB
   ((A-v) &quot;ඬ&quot;) ((0x76 A-z) &quot;ඬ&quot;)		; 0DAC
   ((G-v) &quot;ඬ&quot;) ((0x76 G-z) &quot;ඬ&quot;)		; 0DAC
   (&quot;;&quot; &quot;ත&quot;)				; 0DAD
   (&quot;:&quot; &quot;ථ&quot;)				; 0DAE
   (&quot;o&quot; &quot;ද&quot;)				; 0DAF
   (&quot;O&quot; &quot;ධ&quot;)				; 0DB0
   (&quot;k&quot; &quot;න&quot;)				; 0DB1
   ((A-o) &quot;ඳ&quot;) ((0x6F A-z) &quot;ඳ&quot;)		; 0DB3
   ((G-o) &quot;ඳ&quot;) ((0x6F G-z) &quot;ඳ&quot;)		; 0DB3
   (&quot;m&quot; &quot;ප&quot;)				; 0DB4
   (&quot;M&quot; &quot;ඵ&quot;)				; 0DB5
   (&quot;n&quot; &quot;බ&quot;)				; 0DB6
   (&quot;N&quot; &quot;භ&quot;)				; 0DB7
   (&quot;u&quot; &quot;ම&quot;)				; 0DB8
   (&quot;U&quot; &quot;ඹ&quot;)				; 0DB9
   (&quot;h&quot; &quot;ය&quot;)				; 0DBA
   (&quot;r&quot; &quot;ර&quot;)				; 0DBB
   (&quot;,&quot; &quot;ල&quot;)				; 0DBD
   (&quot;j&quot; &quot;ව&quot;)				; 0DC0
   (&quot;Y&quot; &quot;ශ&quot;)				; 0DC1
   (&quot;I&quot; &quot;ෂ&quot;)				; 0DC2
   (&quot;i&quot; &quot;ස&quot;)				; 0DC3
   (&quot;y&quot; &quot;හ&quot;)				; 0DC4
   (&quot;&lt;&quot; &quot;ළ&quot;)				; 0DC5
   (&quot;F&quot; &quot;ෆ&quot;)				; 0DC6
   ((A-\&#039;) &quot;෴&quot;)				; 0DF4
   ((G-\&#039;) &quot;෴&quot;)				; 0DF4

   (&quot;J&quot; &quot;ළු&quot;)				; muurdhaja lu (0DC5 0DD4)

   ((S-\ ) &quot; &quot;)				; NBSP (00A0)
   ((A-\ ) &quot;‌&quot;)				; ZWNJ (200C)
   ((G-\ ) &quot;‌&quot;)				; ZWNJ (200C)

   (&quot;\]&quot; &quot;;&quot;)
   (&quot;}&quot; &quot;:&quot;)
   (&quot;&#039;&quot; &quot;.&quot;)
   (&quot;\&quot;&quot; &quot;,&quot;)
   (&quot;z&quot; &quot;&#039;&quot;)
   (&quot;Z&quot; &quot;\&quot;&quot;)
   )

  (dependent
   (&quot;x&quot; &quot;ං&quot;)				; 0D82
   ((A-x) &quot;ඃ&quot;)				; 0D83
   ((G-x) &quot;ඃ&quot;)				; 0D83
   (&quot;a&quot;
    (cond
     ((= @-1 0x0D91) (delete @-) &quot;ඒ&quot;)	; 0D92
     ((= @-1 0x0D94) (delete @-) &quot;ඕ&quot;)	; 0D95
     ((= @-1 0x0DD9) (delete @-) &quot;ේ&quot;)	; 0DDA
     ((= @-1 0x0DDC) (delete @-) &quot;ෝ&quot;)	; 0DDD
     (1 &quot;්&quot;)))				; 0DCA
   (&quot;d&quot;
    (cond
     ((= @-1 0x0D85) (delete @-) &quot;ආ&quot;)	; 0D86
     ((= @-1 0x0DD9) (delete @-) &quot;ො&quot;)	; 0DDC
     (1 &quot;ා&quot;)))				; 0DCF
   (&quot;e&quot;
    (cond
     ((= @-1 0x0D85) (delete @-) &quot;ඇ&quot;)	; 0D87
     (1 &quot;ැ&quot;)))				; 0DD0
   (&quot;E&quot;
    (cond
     ((= @-1 0x0D85) (delete @-) &quot;ඈ&quot;)	; 0D88
     ((&amp; (= @-2 0x0DC5) (= @-1 0x0DD4))
      (delete @-) &quot;ූ&quot;)			; 0DD6
     (1 &quot;ෑ&quot;)))				; 0DD1
   (&quot;s&quot; &quot;ි&quot;)				; 0DD2
   (&quot;S&quot; &quot;ී&quot;)				; 0DD3
   (&quot;q&quot; &quot;ු&quot;)				; 0DD4
   (&quot;Q&quot; &quot;ූ&quot;)				; 0DD6

   (&quot;D&quot;
    (cond
     ((= @-1 0x0D8D) (delete @-) &quot;ඎ&quot;)	; 0D8E
     ;; The following line does not work when no consonant proceeds.
     ;;    ((= @-1 0x0DD8) (delete @-) &quot;ෲ&quot;)	; 0DF2
     (1 &quot;ෘ&quot;)))				; 0DD8
   ;; This one works with or without a preceeding consonant.
   (&quot;DD&quot; &quot;ෲ&quot;) 				; 0DF2

   (&quot;A&quot;
    (cond
     ((= @-1 0x0D8B) (delete @-) &quot;ඌ&quot;)	; 0D8C
     ((= @-1 0x0D8F) (delete @-) &quot;ඐ&quot;)	; 0D90
     ((= @-1 0x0D94) (delete @-) &quot;ඖ&quot;)	; 0D96
     ((= @-1 0x0DD9) (delete @-) &quot;ෞ&quot;)	; 0DDE
     (1 &quot;ෟ&quot;)))				; 0DDF
   ((A-a) &quot;ෳ&quot;)				; 0DF3
   ((G-a) &quot;ෳ&quot;)				; 0DF3

   (&quot;H&quot;					; yansaya (0DCA 200D 0DBA)
    (cond
     ((| (= @-1 0x0DD9) (= @-1 0x0DDB))
      (move @-) &quot;්‍ය&quot; (move @&gt;))
     (1
      &quot;්‍ය&quot;)))

   (&quot;`&quot;					; rakaransaya (0DCA 200D 0DBB)
    (cond
     ((| (= @-1 0x0DD2) (= @-1 0x0DD3) (= @-1 0x0DD9) (= @-1 0x0DDB))
      (move @-) &quot;්‍ර&quot; (move @&gt;))
     (1 &quot;්‍ර&quot;)))

   (&quot;~&quot;					; repaya (0DBB 0DCA 200D)
    (move @&lt;)
    &quot;ර්‍&quot;
    (move @&gt;))
   )

  (kombuva
   (&quot;f&quot; &quot;ෙ&quot;))				; 0DD9

  (join
   (&quot;\\&quot;))

  (backspace
   ((BackSpace))))

(state
 (init
  (starter
   (pushback 1)
   (cond
    ((&amp; (= use-surrounding-text 1) (= @-0 -1))
     (shift surrounding-text))
    (1
     (shift preedit)))))

 (surrounding-text
  (consonant
   (move @&lt;)
   (cond
    ((= @-1 0x0DD9)
     (cond
      ((= @-2 0x200C)
       (delete @-2)
       (move @&gt;)
       0x0DD9)
      ((| (&lt; @-2 0x0D9A) (&gt; @-2 0x0DC6))
       (delete @-1)
       (move @&gt;)
       0x0DD9)))
    ((= @-1 0x0DDB)
     (cond
      ((= @-2 0x200C)
       (delete @-2)
       (move @&gt;)
       0x0DDB)
      ((| (&lt; @-2 0x0D9A) (&gt; @-2 0x0DC6))
       (delete @-1)
       (move @&gt;)
       0x0DDB))))
   (commit))
  (misc
   (commit))
  (join
   (shift join)))

 (join
  (consonant
   (move @&lt;)
   (set c @-1)
   (cond
    ((| (= c 0x0DD9) (= c 0x0DDB))
     (cond
      ((&amp; (&gt;= @-2 0x0D9A) (&lt;= @-2 0x0DC6))
       (delete @-1)
       0x0DCA 0x200D
       (move @&gt;)
       (insert c))))
    ((&amp; (&gt;= c 0x0D9A) (&lt;= c 0x0DC6))
     0x0DCA 0x200D))
   (commit)
   (shift surrounding-text))

  (nil
   (commit)
   (shift surrounding-text)))

 (preedit
  (independent
   (shift independent-state))
  (kombuva
   (shift kombuva-state))
  (dependent)
  (nil
   (unhandle)))

 (independent-state
  (dependent)
  (join
   (cond
    ((| (= @-1 0x0DD9) (= @-1 0x0DDB))
     (shift join-state))
    ((| (&lt; @-1 0x0D9A) (&gt; @-1 0x0DC6))
     (undo -1))
    (1
     (shift join-state))))
  (backspace
   (undo)))

 (join-state
  (t
   (mark p))
  (independent
   (move p)
   (set c @-1)
   (cond
    ((| (= c 0x0DD9) (= c 0x0DDB))
     (delete @-)
     &quot;්‍&quot;				; 0DCA 200D
     (move @&gt;)
     (insert c))
    (1
     &quot;්‍&quot;				; 0DCA 200D
     (move @&gt;)))
   (shift independent-state))
  (backspace
   (undo)))

 (kombuva-state
  (t
   (mark p))
  (independent
   (cond
    ((&amp; (= @0 0x0DD9) (= @1 0x0D91))
     (delete @&lt;)
     &quot;ඓ&quot;				; 0D93
     (shift independent-state))
    ((&amp; (= @0 0x0DD9) (&lt; @2 0))
     (move @0)
     (delete @+)
     (move @&gt;)
     &quot;ෙ&quot;				; 0DD9
     (shift independent-state))
    ((&amp; (= @0 0x0DDB) (&lt; @2 0))
     (move @0)
     (delete @+)
     (move @&gt;)
     &quot;ෛ&quot;				; 0DDB
     (shift independent-state))
    (1
     (delete p)
     (pushback 1)
     (shift preedit))))
  (kombuva
   (mark p)
   (cond
    ((&amp; (= @0 0x0DD9) (&lt; @2 0))
     (delete @&lt;)
     &quot;ෛ&quot;)				; 0DDB
    (1
     (delete @-)
     (pushback 1)
     (shift preedit))))
  (dependent
   (mark p))
  (backspace
   (undo))))

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