*** empty log message ***

[m17n/m17n-db.git] / si-wijesekera.mim

diff --git a/si-wijesekera.mim b/si-wijesekera.mim
index e3ebd20..b94fa94 100644 (file)
--- a/si-wijesekera.mim
+++ b/si-wijesekera.mim
@@ -18,8 +18,8 @@
 
 ;; 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., 59 Temple Place, Suite 330, Boston, MA
-;; 02111-1307, USA.
+;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 (input-method si wijesekera)
 
@@ -299,26 +299,26 @@ This input method requires surrounding text support.
     ((> c 0)
      (insert c))))
 
-;; Repaya is disabled.
-;;   ("~"
-;;    (set c @-1)
-;;    (cond
-;;     ((| (= c 0x0DD9) (= c 0x0DDB))
-;;      (delete @-1))
-;;     (1
-;;      (set c 0)))
-;;    (backward)
-;;    (cond
-;;     ((& (>= @-1 0x0D9A) (<= @-1 0x0DC6))
-;;      (set c1 @-1)
-;;      (delete @-1)
-;;      (insert c1)
-;;      (move @<)
-;;      0x0DBB 0x0DCA 0x200D))
-;;    (cond
-;;     ((> c 0)
-;;      (move @>)
-;;      (insert c))))
+  ;; repaya
+  ("~"
+   (set c @-1)
+   (cond
+    ((| (= c 0x0DD9) (= c 0x0DDB))
+     (delete @-1))
+    (1
+     (set c 0)))
+   (backward)
+   (cond
+    ((& (>= @-1 0x0D9A) (<= @-1 0x0DC6))
+     (set c1 @-1)
+     (delete @-1)
+     (insert c1)
+     (move @<)
+     0x0DBB 0x0DCA 0x200D))
+   (cond
+    ((> c 0)
+     (move @>)
+     (insert c))))
 
   ((BackSpace)
    (delete-preceding-zw)
@@ -530,39 +530,43 @@ This input method requires surrounding text support.
 (state
  (init
   (consonant
+   (move @<)
    (cond
     ((= @-1 0x0DD9)
      (cond
       ((= @-2 0x200C)
        (delete @-2)
+       (move @>)
        0x0DD9)
       ((| (< @-2 0x0D9A) (> @-2 0x0DC6))
        (delete @-1)
+       (move @>)
        0x0DD9)))
     ((= @-1 0x0DDB)
      (cond
       ((= @-2 0x200C)
        (delete @-2)
+       (move @>)
        0x0DDB)
       ((| (< @-2 0x0D9A) (> @-2 0x0DC6))
        (delete @-1)
+       (move @>)
        0x0DDB)))))
   (misc))
 
  (join
   (consonant
+   (move @<)
    (set c @-1)
    (cond
     ((| (= c 0x0DD9) (= c 0x0DDB))
      (cond
       ((& (>= @-2 0x0D9A) (<= @-2 0x0DC6))
        (delete @-1)
-       (move @<)
        0x0DCA 0x200D
        (move @>)
        (insert c))))
     ((& (>= c 0x0D9A) (<= c 0x0DC6))
-     (move @<)
      0x0DCA 0x200D))
    (shift init))