From: ntakahas <ntakahas>
Date: Fri, 23 Mar 2007 12:09:18 +0000 (+0000)
Subject: Adjust to new semantics of @-1, @-2, etc.
X-Git-Tag: REL-1-4-0~124
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8a580fd8baab6f0408ee793693efb6ba077f73e9;p=m17n%2Fm17n-db.git

Adjust to new semantics of @-1, @-2, etc.
---

diff --git a/si-wijesekera.mim b/si-wijesekera.mim
index d022c1b..b94fa94 100644
--- a/si-wijesekera.mim
+++ b/si-wijesekera.mim
@@ -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))