devel/m17n-db/si-wijesekera_surrounding_to_preedit.patch

--- m17n-db-1.3.3/si-wijesekera.mim.orig	2006-11-28 12:51:48.000000000 +0530
+++ m17n-db-1.3.3/si-wijesekera.mim	2006-10-16 18:47:08.000000000 +0530
@@ -1,4 +1,4 @@
-;; Copyright (C) 2005
+;; Copyright (C) 2006
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H15PRO112
 
@@ -20,491 +20,231 @@
 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-(input-method si wijesekera)
+(input-method si wijesekera)
 
 (description "Sinhala input method based on SLS 1134 Rev. 2:2004.
-  <http://http://www.fonts.lk/doc/sin-kbd-layout4.pdf>
+ 
+Reference URL :  http://http://www.fonts.lk/doc/sin-kbd-layout4.pdf
+
+This input method uses preedit rather than surrounding text.
+
+Key Summary :
+ඳ	-->	alt-gr+o
+ඟ	-->	alt-gr+.
+ඬ	-->	alt-gr+v
+ඦ	-->	alt-gr+c
+ඃ	-->	alt-gr+x
+෴ 	-->	alt-gr+'
+
+Key summary: Tyronne Wickramarathne <tywickra@redhat.com>
+
 ")
 
-(title "Wijesekera")
+(title "සි")
 
 (map
  (consonant
-  ("l" "ක")				; 0D9A
-  ("L" "ඛ")				; 0D9B
-  ("." "ග")				; 0D9C
-  (">" "ඝ")				; 0D9D
-  ("X" "ඞ")				; 0D9E
-  ((A-.) "ඟ")				; 0D9F
-  ("p" "ච")				; 0DA0
-  ("P" "ඡ")				; 0DA1
-  ("c" "ජ")				; 0DA2
-  ("C" "ඣ")				; 0DA3
-  ("\[" "ඤ")				; 0DA4
-  ("{" "ඥ")				; 0DA5
-  ((A-c) "ඦ")				; 0DA6
-  ("g" "ට")				; 0DA7
-  ("G" "ඨ")				; 0DA8
-  ("v" "ඩ")				; 0DA9
-  ("V" "ඪ")				; 0DAA
-  ("K" "ණ")				; 0DAB
-  ((A-v) "ඬ")				; 0DAC
-  (";" "ත")				; 0DAD
-  (":" "ථ")				; 0DAE
-  ("o" "ද")				; 0DAF
-  ("O" "ධ")				; 0DB0
-  ("k" "න")				; 0DB1
-  ((A-o) "ඳ")				; 0DB3
-  ("m" "ප")				; 0DB4
-  ("M" "ඵ")				; 0DB5
-  ("n" "බ")				; 0DB6
-  ("N" "භ")				; 0DB7
-  ("u" "ම")				; 0DB8
-  ("U" "ඹ")				; 0DB9
-  ("h" "ය")				; 0DBA
-  ("r" "ර")				; 0DBB
-  ("," "ල")				; 0DBD
-  ("j" "ව")				; 0DC0
-  ("Y" "ශ")				; 0DC1
-  ("I" "ෂ")				; 0DC2
-  ("i" "ස")				; 0DC3
-  ("y" "හ")				; 0DC4
-  ("<" "ළ")				; 0DC5
-  ("F" "ෆ")				; 0DC6
-  )
+   ("l" "ක")				; 0D9A
+   ("L" "ඛ")				; 0D9B
+   ("." "ග")				; 0D9C
+   (">" "ඝ")				; 0D9D
+   ("X" "ඞ")				; 0D9E
+   ((A-.) "ඟ") ((0x2E A-z) "ඟ")		; 0D9F
+   ("p" "ච")				; 0DA0
+   ("P" "ඡ")				; 0DA1
+   ("c" "ජ")				; 0DA2
+   ("C" "ඣ")				; 0DA3
+   ("\[" "ඤ")				; 0DA4
+   ("{" "ඥ")				; 0DA5
+   ((A-c) "ඦ") ((0x63 A-z) "ඦ")		; 0DA6
+   ("g" "ට")				; 0DA7
+   ("G" "ඨ")				; 0DA8
+   ("v" "ඩ")				; 0DA9
+   ("V" "ඪ")				; 0DAA
+   ("K" "ණ")				; 0DAB
+   ((A-v) "ඬ") ((0x76 A-z) "ඬ")		; 0DAC
+   (";" "ත")				; 0DAD
+   (":" "ථ")				; 0DAE
+   ("o" "ද")				; 0DAF
+   ("O" "ධ")				; 0DB0
+   ("k" "න")				; 0DB1
+   ((A-o) "ඳ") ((0x6F A-z) "ඳ")		; 0DB3
+   ("m" "ප")				; 0DB4
+   ("M" "ඵ")				; 0DB5
+   ("n" "බ")				; 0DB6
+   ("N" "භ")				; 0DB7
+   ("u" "ම")				; 0DB8
+   ("U" "ඹ")				; 0DB9
+   ("h" "ය")				; 0DBA
+   ("r" "ර")				; 0DBB
+   ("," "ල")				; 0DBD
+   ("j" "ව")				; 0DC0
+   ("Y" "ශ")				; 0DC1
+   ("I" "ෂ")				; 0DC2
+   ("i" "ස")				; 0DC3
+   ("y" "හ")				; 0DC4
+   ("<" "ළ")				; 0DC5
+   ("F" "ෆ")				; 0DC6
+
+   ("<q" "ළු")				; muurdhaja lu (0DC5 0DD4)
+   ("<qE" "ළූ")				; 0DC5 0DD6
+   )
 
- (misc
+ (others
   ("x" "ං")				; 0D82
   ((A-x) "ඃ")				; 0D83
 
   ("w" "අ")				; 0D85
+  ("wd" "ආ")				; 0D86
+  ("we" "ඇ")				; 0D87
+  ("wE" "ඈ")				; 0D88
   ("b" "ඉ")				; 0D89
   ("B" "ඊ")				; 0D8A
   ("W" "උ")				; 0D8B
+  ("WA" "ඌ")				; 0D8C
   ("R" "ඍ")				; 0D8D
+  ("RD" "ඎ")				; 0D8E
   ((A-,) "ඏ")				; 0D8F
+  ((A-, 0x41) "ඐ")			; 0D90
+  ("t" "එ")				; 0D91
+  ("ta" "ඒ")				; 0D92
 
   ("T" "ඔ")				; 0D94
+  ("Ta" "ඕ")				; 0D95
+  ("TA" "ඖ")				; 0D96
+
+  ("a" "්")				; 0DCA
+
+  ("d" "ා")				; 0DCF
+  ("e" "ැ")				; 0DD0
+  ("E" "ෑ")				; 0DD1
 
-  ("s" "ි")				; 0DD2
-  ("S" "ී")				; 0DD3
   ("q" "ු")				; 0DD4
 
   ("Q" "ූ")				; 0DD6
 
+  ("D" "ෘ")				; 0DD8
+
+  ("A" "ෟ")				; 0DDF
+
+  ("DD" "ෲ")				; 0DF2
   ((A-a) "ෳ")				; 0DF3
   ((A-') "෴")				; 0DF4
 
+  ("J" "ළු")				; muurdhaja lu (0DC5 0DD4)
+  ("JE" "ළූ")				; 0DC5 0DD6
+
+  ((S-\ ) " ")				; NBSP (00A0)
+  ((A-\ ) "‌")				; ZWNJ (200C)
+
+  ("H" "්‍ය")				; yansaya (0DCA 200D 0DBA)
+  ("`" "්‍ර")				; rakaransaya (0DCA 200D 0DBB)
+  ("~" "ර්‍")				; repaya (0DBB 0DCA 200D)
+
   ("\]" ";")
   ("}" ":")
   ("'" ".")
   ("\"" ",")
   ("z" "'")
   ("Z" "\"")
+  )
 
-  ("|" "‍්")				; touch (ZWJ 0DCA)
-  ("J" "ළු")				; muurdhaja lu (0DC5 0DD4)
-  ((S-\ ) " ")				; NBSP
-  ((A-\ ) "‌")				; ZWNJ
+ (is-pilla
+  ("s" "ි")				; 0DD2
+  ("S" "ී"))				; 0DD3
 
-  ("t"
-   (set c @-2)
-   (cond
-    ((= @-1 0x0DD9)
-     (cond
-      ((= c 0x200C)
-       (delete @-2)
-       0x0D93)
-      ((| (< c 0x0D9A) (> c 0x0DC6))
-       (delete @-1)
-       0x0D93)
-      (1
-       0x0D91)))
-    (1
-     0x0D91)))
-
-  ("a"
-   (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)))
-
-  ("d"
-   (set c @-1)
-   (cond
-    ((= c 0x0D85)
-     (delete @-1)
-     0x0D86)
-    ((= c 0x0DD9)
-     (delete @-1)
-     0x0DDC)
-    (1
-     0x0DCF)))
-
-  ("e"
-   (cond
-    ((= @-1 0x0D85)
-     (delete @-1)
-     0x0D87)
-    (1
-     0x0DD0)))
-
-  ("E"
-   (set c @-1)
-   (cond
-    ((= c 0x0D85)
-     (delete @-1)
-     0x0D88)
-    ((= c 0x0DD4)
-     (cond
-      ((= @-2 0x0DC5)
-       (delete @-1)
-       0x0DD6)
-      (1
-       0x0DD1)))
-    (1
-     0x0DD1)))     
-
-  ("D"
-   (set c @-1)
-   (cond
-    ((= c 0x0D8D)
-     (delete @-1)
-     0x0D8E)
-    ((= c 0x0DD8)
-     (delete @-1)
-     0x0DF2)
-    (1
-     0x0DD8)))
-
-  ("A"
-   (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)))
-
-  ("f"
-   (set c @+1)
-   (cond
-    ((& (> c 0x0D99) (< c 0x0DC7))
-     (delete @+1)
-     (insert c)
-     (forward)
-     (set c @+1)
-     (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)
-    ((& (= c 0x200C) (= @+2 0x0DD9))
-     (delete @+2)
-     0x200C 0x0DDB)
-    ((& (= @-1 0x0DD9)
-	(| (< @-2 0x0D9A) (> @-2 0x0DC6)))
-     (delete @-1)
-     0x0DDB)
-    ((& (> @-1 0x0D99) (< @-1 0xDC7))
-     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)))
-
-  ;; yansaya
-  ("H"
-   (set c @-1)
-   (cond
-    ((= c 0x0DD9)
-     (delete @-1))
-    ((= c 0x0DDB)
-     (delete @-1))
-    (1
-     (set c 0)))
-   (cond
-    ((& (> @-1 0x0D99) (< @-1 0x0DC6))
-     0x0DCA 0x200D 0x0DBA))
-   (cond
-    ((> c 0)
-     (insert c))))
-
-  ;; rakaransaya
-  ("`"
-   (set c @-1)
-   (cond
-    ((| (= c 0x0DD9) (= c 0x0DDB) (= c 0x0DD2) (= c 0x0DD3))
-     (delete @-1))
-    (1
-     (set c 0)))
-   (cond
-    ((& (> @-1 0x0D99) (< @-1 0x0DC7))
-     0x0DCA 0x200D 0x0DBB))
-   (cond
-    ((> c 0)
-     (insert c))))
-
-;; Repaya is disabled.
-;;   ("~"
-;;    (set c @-1)
-;;    (cond
-;;     ((| (= c 0x0DD9) (= c 0x0DDB))
-;;      (delete @-1))
-;;     (1
-;;      (set c 0)))
-;;    (backward)
-;;    (cond
-;;     ((& (> @-1 0x0D99) (< @-1 0x0DC7))
-;;      (set c1 @-1)
-;;      (delete @-1)
-;;      (insert c1)
-;;      (move @<)
-;;      0x0DBB 0x0DCA 0x200D))
-;;    (cond
-;;     ((> c 0)
-;;      (move @>)
-;;      (insert c))))
-
-  ((BackSpace)
-   (delete-preceding-zw)
-   (set c @-1)
-   (cond
-    ((< 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 ((& (> @-1 0x0D99) (< @-1 0x0DC7)) 0x200C))
-     0x0DD9)
-    ((= c 0x0D95)
-     0x0D94)
-    ((= c 0x0D96)
-     0x0D94)
-
-    ((& (> c 0x0D99) (< c 0x0DC7) (= @-2 0x0DCA) (= @-1 0x200D))
-     (delete @-2))
-
-    ((= c 0x0DD9)
-     (cond
-      ((| (< @-1 0x0D9A) (> @-1 0x0DC6)))
-      ((= @+1 0x0D91)
-       (delete @-1)
-       (delete @+1)
-       0x0D93)
-      ((& (> @+1 0x0D99) (< @+1 0x0DC7))
-       (set c1 @+1)
-       (cond
-	((= @+2 0x0DD9)
-	 (merge-combuva)
-	 0x0DDB)
-	((= @+2 0x0DCA)
-	 (merge-combuva)
-	 0x0DDA)
-	((= @+2 0x0DCF)
-	 (merge-combuva)
-	 0x0DDC)
-	((= @+2 0x0DDF)
-	 (merge-combuva)
-	 0x0DDE)
-	(1
-	 (delete @-1)
-	 (delete @+1)
-	 (insert c1)
-	 0x0DD9)))
-      ((& (> @-2 0x0D99) (< @-2 0x0DC7))
-       (delete @-1)
-       0x200C
-       0x0DD9)
-      ((& (> @-4 0x0D99) (< @-4 0x0DC7) (= @-3 0x0DCA) (= @-2 0x200D))
-       (delete @-3)
-       0x0DD9)
-      (1
-       (delete @-1)
-       0x0DD9)))
-
-    ((= c 0x0DDA)
-     0x0DD9)
-
-    ((= c 0x0DDB)
-     (cond
-      ((| (< @-1 0x0D9A) (> @-1 0x0DC6))
-       0x0DD9)
-      ((& (> @-2 0x0D99) (< @-2 0x0DC7))
-       (delete @-1)
-       0x200C
-       0x0DDB)
-      ((& (> @-4 0x0D99) (< @-4 0x0DC7) (= @-3 0x0DCA) (= @-2 0x200D))
-       (delete @-3)
-       0x0DDB)
-      (1
-       (delete @-1)
-       0x0DDB)))
-
-    ((= c 0x0DDC)
-     0x0DD9)
-    ((= c 0x0DDD)
-     0x0DDC)
-    ((= c 0x0DDE)
-     0x0DD9)
-    ((= c 0x0DF2)
-     0x0DD8))
-
-   (cond
-    ((& (> @-1 0x0D99)
-	(< @-1 0x0DC7)
-	(| (= @+1 0x0DD9) (= @+1 0x0DDB)))
-     0x200C)))
-
-  ("\\" (shift join))))
-
-(macro
- ;; prototype
- (forward (set x 0))
- (backward (set x 0))
- (delete-preceding-zw (set x 0))
-
- ;; skip following (virama zwj consonant)* sequence
- (forward
-  (set cc3 @+3)
-  (cond
-   ((& (= @+1 0x0DCA) (= @+2 0x200D) (> cc3 0x0D99) (< cc3 0x0DC7))
-    (delete @+3)
-    0x0DCA 0x200D
-    (insert cc3)
-    (forward))))
-
- (backward
-  (set cc1 @-1)
-  (cond
-   ((& (= @-3 0x0DCA) (= @-2 0x200D) (> cc1 0x0D99) (< cc1 0x0DC7))
-    (delete @-3)
-    0x0DCA
-    0x200D
-    (insert cc1)
-    (move @<)
-    (backward))))
-
- (delete-preceding-zw
-  (cond
-   ((| (= @-1 0x200C) (= @-1 0x200D))
-    (delete @-1)
-    (delete-preceding-zw))))
-
- (merge-combuva
-  (delete @-1)
-  (delete @+2)
-  (insert c1)))
+ (kombuva
+  ("f" "ෙ"))				; 0DD9
 
-(state
- (init
-  (consonant
-   (cond
-    ((= @-1 0x0DD9)
-     (cond
-      ((= @-2 0x200C)
-       (delete @-2)
-       0x0DD9)
-      ((| (< @-2 0x0D9A) (> @-2 0x0DC6))
-       (delete @-1)
-       0x0DD9)))
-    ((= @-1 0x0DDB)
-     (cond
-      ((= @-2 0x200C)
-       (delete @-2)
-       0x0DDB)
-      ((| (< @-2 0x0D9A) (> @-2 0x0DC6))
-       (delete @-1)
-       0x0DDB)))))
-  (misc))
+ (yansaka
+  ("H"))
+
+ (rakaransaya
+  ("`"))
+
+ (repaya
+  ("~"))
+
+ (eyanna
+  ("w"))
+
+ (al-lakuna
+  ("a"))
+
+ (aela-pilla
+  ("d"))
+
+ (gayanukitta
+  ("A"))
 
  (join
-  (consonant
-   (set c @-1)
-   (cond
-    ((| (= c 0x0DD9) (= c 0x0DDB))
-     (cond
-      ((& (> @-2 0x0D99) (< @-2 0x0DC7))
-       (delete @-1)
-       (move @<)
-       0x0DCA 0x200D
-       (move @>)
-       (insert c))))
-    ((& (> c 0x0D99) (< c 0x0DC7))
-     (move @<)
-     0x0DCA 0x200D))
-   (shift init))
+  ("\\")
+  ("|"))
+
+ (backspace
+  ((BackSpace)))
+ )
 
-  (nil
-   (shift init))))
+(state
+ (init
+  (consonant (shift consonant))
+  (others)
+  (is-pilla (shift is-pilla))
+  (kombuva (shift kombuva)))
+
+ (consonant
+  (rakaransaya 0x0DCA 0x200D 0x0DBB)
+  (yansaya 0x0DCA 0x200D 0x0DBA)
+  (repaya (move @-) 0x0DBB 0x0DCA 0x200D (move @+))
+  (is-pilla (shift is-pilla))
+  (join 0x0DCA 0x200D (shift consonant+join)))
+
+ (consonant+join
+  (consonant (shift consonant))
+  (backspace (undo)))
+
+ (is-pilla
+  (rakaransaya (move @-) 0x0DCA 0x200D 0x0DBB (shift init)))
+
+ (kombuva
+  (eyanna (delete @<) 0x0D93 (shift init))
+  (al-lakuna (delete @<) 0x0DDA (shift init))
+  (kombuva (delete @<) 0x0DDB (shift combu_deka))
+  (aela-pilla (delete @<) 0x0DDC (shift kombuva_haa_aela-pilla))
+  (gayanukitta (delete @<) 0x0DDE (shift init))
+  (consonant (move @1) (delete @0) (move @>) 0x0DD9 (shift consonant+kombuva))
+  (backspace (undo)))
+
+ (combu_deka
+  (consonant (move @1) (delete @0) (move @>) 0x0DDB (shift init))
+  (backspace (undo)))
+
+ (kombuva_haa_aela-pilla
+  (al-lakuna (delete @<) 0x0DDD (shift init))
+  (backspace (undo)))
+
+ (consonant+kombuva
+  (al-lakuna (delete @-) 0x0DDA (shift init))
+  (aela-pilla (delete @-) 0x0DDC (shift consonant+kombuva_haa_aela-pilla))
+  (gayanukitta (delete @-) 0x0DDE (shift init))
+  (yansaka (move @-) 0x0DCA 0x200D 0x0DBA (move @>))
+  (rakaransaya (move @-) 0x0DCA 0x200D 0x0DBB (move @>))
+  (join (shift consonant+join+kombuva))
+  (touch (move @-) 0x200D 0x0DCA (move @>))
+  (backspace (undo)))
+
+ (consonant+kombuva_haa_aela-pilla
+  (al-lakuna (delete @-) 0x0DDD (shift init))
+  (backspace (undo)))
+
+ (consonant+join+kombuva
+  (consonant (move @-) (delete @-) 0x0DCA 0x200D (move @+) 0x0DD9
+	     (shift consonant+kombuva))
+  (backspace (undo)))
+ )
 
 ;; Local Variables:
 ;; coding: utf-8
 ;; mode: emacs-lisp
 ;; End:
+
1	--- m17n-db-1.3.3/si-wijesekera.mim.orig 2006-11-28 12:51:48.000000000 +0530
2	+++ m17n-db-1.3.3/si-wijesekera.mim 2006-10-16 18:47:08.000000000 +0530
3	@@ -1,4 +1,4 @@
4	-;; Copyright (C) 2005
5	+;; Copyright (C) 2006
6	;; National Institute of Advanced Industrial Science and Technology (AIST)
7	;; Registration Number H15PRO112
8
9	@@ -20,491 +20,231 @@
10	;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
11	;; 02111-1307, USA.
12
13	-(input-method si wijesekera)
14	+(input-method si wijesekera)
15
16	(description "Sinhala input method based on SLS 1134 Rev. 2:2004.
17	- <http://http://www.fonts.lk/doc/sin-kbd-layout4.pdf>
18	+
19	+Reference URL : http://http://www.fonts.lk/doc/sin-kbd-layout4.pdf
20	+
21	+This input method uses preedit rather than surrounding text.
22	+
23	+Key Summary :
24	+ඳ --> alt-gr+o
25	+ඟ --> alt-gr+.
26	+ඬ --> alt-gr+v
27	+ඦ --> alt-gr+c
28	+ඃ --> alt-gr+x
29	+෴ --> alt-gr+'
30	+
31	+Key summary: Tyronne Wickramarathne <tywickra@redhat.com>
32	+
33	")
34
35	-(title "Wijesekera")
36	+(title "සි")
37
38	(map
39	(consonant
40	- ("l" "ක") ; 0D9A
41	- ("L" "ඛ") ; 0D9B
42	- ("." "ග") ; 0D9C
43	- (">" "ඝ") ; 0D9D
44	- ("X" "ඞ") ; 0D9E
45	- ((A-.) "ඟ") ; 0D9F
46	- ("p" "ච") ; 0DA0
47	- ("P" "ඡ") ; 0DA1
48	- ("c" "ජ") ; 0DA2
49	- ("C" "ඣ") ; 0DA3
50	- ("\[" "ඤ") ; 0DA4
51	- ("{" "ඥ") ; 0DA5
52	- ((A-c) "ඦ") ; 0DA6
53	- ("g" "ට") ; 0DA7
54	- ("G" "ඨ") ; 0DA8
55	- ("v" "ඩ") ; 0DA9
56	- ("V" "ඪ") ; 0DAA
57	- ("K" "ණ") ; 0DAB
58	- ((A-v) "ඬ") ; 0DAC
59	- (";" "ත") ; 0DAD
60	- (":" "ථ") ; 0DAE
61	- ("o" "ද") ; 0DAF
62	- ("O" "ධ") ; 0DB0
63	- ("k" "න") ; 0DB1
64	- ((A-o) "ඳ") ; 0DB3
65	- ("m" "ප") ; 0DB4
66	- ("M" "ඵ") ; 0DB5
67	- ("n" "බ") ; 0DB6
68	- ("N" "භ") ; 0DB7
69	- ("u" "ම") ; 0DB8
70	- ("U" "ඹ") ; 0DB9
71	- ("h" "ය") ; 0DBA
72	- ("r" "ර") ; 0DBB
73	- ("," "ල") ; 0DBD
74	- ("j" "ව") ; 0DC0
75	- ("Y" "ශ") ; 0DC1
76	- ("I" "ෂ") ; 0DC2
77	- ("i" "ස") ; 0DC3
78	- ("y" "හ") ; 0DC4
79	- ("<" "ළ") ; 0DC5
80	- ("F" "ෆ") ; 0DC6
81	- )
82	+ ("l" "ක") ; 0D9A
83	+ ("L" "ඛ") ; 0D9B
84	+ ("." "ග") ; 0D9C
85	+ (">" "ඝ") ; 0D9D
86	+ ("X" "ඞ") ; 0D9E
87	+ ((A-.) "ඟ") ((0x2E A-z) "ඟ") ; 0D9F
88	+ ("p" "ච") ; 0DA0
89	+ ("P" "ඡ") ; 0DA1
90	+ ("c" "ජ") ; 0DA2
91	+ ("C" "ඣ") ; 0DA3
92	+ ("\[" "ඤ") ; 0DA4
93	+ ("{" "ඥ") ; 0DA5
94	+ ((A-c) "ඦ") ((0x63 A-z) "ඦ") ; 0DA6
95	+ ("g" "ට") ; 0DA7
96	+ ("G" "ඨ") ; 0DA8
97	+ ("v" "ඩ") ; 0DA9
98	+ ("V" "ඪ") ; 0DAA
99	+ ("K" "ණ") ; 0DAB
100	+ ((A-v) "ඬ") ((0x76 A-z) "ඬ") ; 0DAC
101	+ (";" "ත") ; 0DAD
102	+ (":" "ථ") ; 0DAE
103	+ ("o" "ද") ; 0DAF
104	+ ("O" "ධ") ; 0DB0
105	+ ("k" "න") ; 0DB1
106	+ ((A-o) "ඳ") ((0x6F A-z) "ඳ") ; 0DB3
107	+ ("m" "ප") ; 0DB4
108	+ ("M" "ඵ") ; 0DB5
109	+ ("n" "බ") ; 0DB6
110	+ ("N" "භ") ; 0DB7
111	+ ("u" "ම") ; 0DB8
112	+ ("U" "ඹ") ; 0DB9
113	+ ("h" "ය") ; 0DBA
114	+ ("r" "ර") ; 0DBB
115	+ ("," "ල") ; 0DBD
116	+ ("j" "ව") ; 0DC0
117	+ ("Y" "ශ") ; 0DC1
118	+ ("I" "ෂ") ; 0DC2
119	+ ("i" "ස") ; 0DC3
120	+ ("y" "හ") ; 0DC4
121	+ ("<" "ළ") ; 0DC5
122	+ ("F" "ෆ") ; 0DC6
123	+
124	+ ("<q" "ළු") ; muurdhaja lu (0DC5 0DD4)
125	+ ("<qE" "ළූ") ; 0DC5 0DD6
126	+ )
127
128	- (misc
129	+ (others
130	("x" "ං") ; 0D82
131	((A-x) "ඃ") ; 0D83
132
133	("w" "අ") ; 0D85
134	+ ("wd" "ආ") ; 0D86
135	+ ("we" "ඇ") ; 0D87
136	+ ("wE" "ඈ") ; 0D88
137	("b" "ඉ") ; 0D89
138	("B" "ඊ") ; 0D8A
139	("W" "උ") ; 0D8B
140	+ ("WA" "ඌ") ; 0D8C
141	("R" "ඍ") ; 0D8D
142	+ ("RD" "ඎ") ; 0D8E
143	((A-,) "ඏ") ; 0D8F
144	+ ((A-, 0x41) "ඐ") ; 0D90
145	+ ("t" "එ") ; 0D91
146	+ ("ta" "ඒ") ; 0D92
147
148	("T" "ඔ") ; 0D94
149	+ ("Ta" "ඕ") ; 0D95
150	+ ("TA" "ඖ") ; 0D96
151	+
152	+ ("a" "්") ; 0DCA
153	+
154	+ ("d" "ා") ; 0DCF
155	+ ("e" "ැ") ; 0DD0
156	+ ("E" "ෑ") ; 0DD1
157
158	- ("s" "ි") ; 0DD2
159	- ("S" "ී") ; 0DD3
160	("q" "ු") ; 0DD4
161
162	("Q" "ූ") ; 0DD6
163
164	+ ("D" "ෘ") ; 0DD8
165	+
166	+ ("A" "ෟ") ; 0DDF
167	+
168	+ ("DD" "ෲ") ; 0DF2
169	((A-a) "ෳ") ; 0DF3
170	((A-') "෴") ; 0DF4
171
172	+ ("J" "ළු") ; muurdhaja lu (0DC5 0DD4)
173	+ ("JE" "ළූ") ; 0DC5 0DD6
174	+
175	+ ((S-\ ) " ") ; NBSP (00A0)
176	+ ((A-\ ) "‌") ; ZWNJ (200C)
177	+
178	+ ("H" "්‍ය") ; yansaya (0DCA 200D 0DBA)
179	+ ("`" "්‍ර") ; rakaransaya (0DCA 200D 0DBB)
180	+ ("~" "ර්‍") ; repaya (0DBB 0DCA 200D)
181	+
182	("\]" ";")
183	("}" ":")
184	("'" ".")
185	("\"" ",")
186	("z" "'")
187	("Z" "\"")
188	+ )
189
190	- ("\|" "‍්") ; touch (ZWJ 0DCA)
191	- ("J" "ළු") ; muurdhaja lu (0DC5 0DD4)
192	- ((S-\ ) " ") ; NBSP
193	- ((A-\ ) "‌") ; ZWNJ
194	+ (is-pilla
195	+ ("s" "ි") ; 0DD2
196	+ ("S" "ී")) ; 0DD3
197
198	- ("t"
199	- (set c @-2)
200	- (cond
201	- ((= @-1 0x0DD9)
202	- (cond
203	- ((= c 0x200C)
204	- (delete @-2)
205	- 0x0D93)
206	- ((\| (< c 0x0D9A) (> c 0x0DC6))
207	- (delete @-1)
208	- 0x0D93)
209	- (1
210	- 0x0D91)))
211	- (1
212	- 0x0D91)))
213	-
214	- ("a"
215	- (set c @-1)
216	- (cond
217	- ((= c 0x0D91)
218	- (delete @-1)
219	- 0x0D92)
220	- ((= c 0x0D94)
221	- (delete @-1)
222	- 0x0D95)
223	- ((= c 0x0DD9)
224	- (delete @-1)
225	- 0x0DDA)
226	- ((= c 0x0DDC)
227	- (delete @-1)
228	- 0x0DDD)
229	- (1
230	- 0x0DCA)))
231	-
232	- ("d"
233	- (set c @-1)
234	- (cond
235	- ((= c 0x0D85)
236	- (delete @-1)
237	- 0x0D86)
238	- ((= c 0x0DD9)
239	- (delete @-1)
240	- 0x0DDC)
241	- (1
242	- 0x0DCF)))
243	-
244	- ("e"
245	- (cond
246	- ((= @-1 0x0D85)
247	- (delete @-1)
248	- 0x0D87)
249	- (1
250	- 0x0DD0)))
251	-
252	- ("E"
253	- (set c @-1)
254	- (cond
255	- ((= c 0x0D85)
256	- (delete @-1)
257	- 0x0D88)
258	- ((= c 0x0DD4)
259	- (cond
260	- ((= @-2 0x0DC5)
261	- (delete @-1)
262	- 0x0DD6)
263	- (1
264	- 0x0DD1)))
265	- (1
266	- 0x0DD1)))
267	-
268	- ("D"
269	- (set c @-1)
270	- (cond
271	- ((= c 0x0D8D)
272	- (delete @-1)
273	- 0x0D8E)
274	- ((= c 0x0DD8)
275	- (delete @-1)
276	- 0x0DF2)
277	- (1
278	- 0x0DD8)))
279	-
280	- ("A"
281	- (set c @-1)
282	- (cond
283	- ((= c 0x0D8B)
284	- (delete @-1)
285	- 0x0D8C)
286	- ((= c 0x0D8F)
287	- (delete @-1)
288	- 0x0D90)
289	- ((= c 0x0D94)
290	- (delete @-1)
291	- 0x0D96)
292	- ((= c 0x0DD9)
293	- (delete @-1)
294	- 0x0DDE)
295	- (1
296	- 0x0DDF)))
297	-
298	- ("f"
299	- (set c @+1)
300	- (cond
301	- ((& (> c 0x0D99) (< c 0x0DC7))
302	- (delete @+1)
303	- (insert c)
304	- (forward)
305	- (set c @+1)
306	- (cond
307	- ((= c 0x0DCA)
308	- (delete @+1)
309	- 0x0DDA)
310	- ((= c 0x0DD9)
311	- (delete @+1)
312	- 0x0DDB)
313	- ((= c 0x0DCF)
314	- (delete @+1)
315	- 0x0DDC)
316	- ((= c 0x0DDF)
317	- (delete @+1)
318	- 0x0DDE)
319	- (1
320	- 0x0DD9)))
321	- ((= c 0x0D91)
322	- (delete @+1)
323	- 0x0D93)
324	- ((= c 0x0DD9)
325	- (delete @+1)
326	- 0x0DDB)
327	- ((& (= c 0x200C) (= @+2 0x0DD9))
328	- (delete @+2)
329	- 0x200C 0x0DDB)
330	- ((& (= @-1 0x0DD9)
331	- (\| (< @-2 0x0D9A) (> @-2 0x0DC6)))
332	- (delete @-1)
333	- 0x0DDB)
334	- ((& (> @-1 0x0D99) (< @-1 0xDC7))
335	- 0x200C 0x0DD9)
336	- (1
337	- 0x0DD9)))
338	-
339	- ;; sanyaka letters
340	- ((A-z)
341	- (set c @-1)
342	- (cond
343	- ((= c 0x0DAF)
344	- (delete @-1)
345	- 0x0DB3)
346	- ((= c 0x0D9C)
347	- (delete @-1)
348	- 0x0D9F)
349	- ((= c 0x0DA9)
350	- (delete @-1)
351	- 0x0DAC)
352	- ((= c 0x0DA2)
353	- (delete @-1)
354	- 0x0DA6)))
355	-
356	- ;; yansaya
357	- ("H"
358	- (set c @-1)
359	- (cond
360	- ((= c 0x0DD9)
361	- (delete @-1))
362	- ((= c 0x0DDB)
363	- (delete @-1))
364	- (1
365	- (set c 0)))
366	- (cond
367	- ((& (> @-1 0x0D99) (< @-1 0x0DC6))
368	- 0x0DCA 0x200D 0x0DBA))
369	- (cond
370	- ((> c 0)
371	- (insert c))))
372	-
373	- ;; rakaransaya
374	- ("`"
375	- (set c @-1)
376	- (cond
377	- ((\| (= c 0x0DD9) (= c 0x0DDB) (= c 0x0DD2) (= c 0x0DD3))
378	- (delete @-1))
379	- (1
380	- (set c 0)))
381	- (cond
382	- ((& (> @-1 0x0D99) (< @-1 0x0DC7))
383	- 0x0DCA 0x200D 0x0DBB))
384	- (cond
385	- ((> c 0)
386	- (insert c))))
387	-
388	-;; Repaya is disabled.
389	-;; ("~"
390	-;; (set c @-1)
391	-;; (cond
392	-;; ((\| (= c 0x0DD9) (= c 0x0DDB))
393	-;; (delete @-1))
394	-;; (1
395	-;; (set c 0)))
396	-;; (backward)
397	-;; (cond
398	-;; ((& (> @-1 0x0D99) (< @-1 0x0DC7))
399	-;; (set c1 @-1)
400	-;; (delete @-1)
401	-;; (insert c1)
402	-;; (move @<)
403	-;; 0x0DBB 0x0DCA 0x200D))
404	-;; (cond
405	-;; ((> c 0)
406	-;; (move @>)
407	-;; (insert c))))
408	-
409	- ((BackSpace)
410	- (delete-preceding-zw)
411	- (set c @-1)
412	- (cond
413	- ((< c 0)
414	- (unhandle)))
415	- (delete @-1)
416	- (cond
417	- ((= c 0x0D86)
418	- 0x0D85)
419	- ((= c 0x0D87)
420	- 0x0D85)
421	- ((= c 0x0D88)
422	- 0x0D85)
423	- ((= c 0x0D8C)
424	- 0x0D8B)
425	- ((= c 0x0D8E)
426	- 0x0D8D)
427	- ((= c 0x0D90)
428	- 0x0D8F)
429	- ((= c 0x0D92)
430	- 0x0D8F)
431	- ((= c 0x0D93)
432	- (cond ((& (> @-1 0x0D99) (< @-1 0x0DC7)) 0x200C))
433	- 0x0DD9)
434	- ((= c 0x0D95)
435	- 0x0D94)
436	- ((= c 0x0D96)
437	- 0x0D94)
438	-
439	- ((& (> c 0x0D99) (< c 0x0DC7) (= @-2 0x0DCA) (= @-1 0x200D))
440	- (delete @-2))
441	-
442	- ((= c 0x0DD9)
443	- (cond
444	- ((\| (< @-1 0x0D9A) (> @-1 0x0DC6)))
445	- ((= @+1 0x0D91)
446	- (delete @-1)
447	- (delete @+1)
448	- 0x0D93)
449	- ((& (> @+1 0x0D99) (< @+1 0x0DC7))
450	- (set c1 @+1)
451	- (cond
452	- ((= @+2 0x0DD9)
453	- (merge-combuva)
454	- 0x0DDB)
455	- ((= @+2 0x0DCA)
456	- (merge-combuva)
457	- 0x0DDA)
458	- ((= @+2 0x0DCF)
459	- (merge-combuva)
460	- 0x0DDC)
461	- ((= @+2 0x0DDF)
462	- (merge-combuva)
463	- 0x0DDE)
464	- (1
465	- (delete @-1)
466	- (delete @+1)
467	- (insert c1)
468	- 0x0DD9)))
469	- ((& (> @-2 0x0D99) (< @-2 0x0DC7))
470	- (delete @-1)
471	- 0x200C
472	- 0x0DD9)
473	- ((& (> @-4 0x0D99) (< @-4 0x0DC7) (= @-3 0x0DCA) (= @-2 0x200D))
474	- (delete @-3)
475	- 0x0DD9)
476	- (1
477	- (delete @-1)
478	- 0x0DD9)))
479	-
480	- ((= c 0x0DDA)
481	- 0x0DD9)
482	-
483	- ((= c 0x0DDB)
484	- (cond
485	- ((\| (< @-1 0x0D9A) (> @-1 0x0DC6))
486	- 0x0DD9)
487	- ((& (> @-2 0x0D99) (< @-2 0x0DC7))
488	- (delete @-1)
489	- 0x200C
490	- 0x0DDB)
491	- ((& (> @-4 0x0D99) (< @-4 0x0DC7) (= @-3 0x0DCA) (= @-2 0x200D))
492	- (delete @-3)
493	- 0x0DDB)
494	- (1
495	- (delete @-1)
496	- 0x0DDB)))
497	-
498	- ((= c 0x0DDC)
499	- 0x0DD9)
500	- ((= c 0x0DDD)
501	- 0x0DDC)
502	- ((= c 0x0DDE)
503	- 0x0DD9)
504	- ((= c 0x0DF2)
505	- 0x0DD8))
506	-
507	- (cond
508	- ((& (> @-1 0x0D99)
509	- (< @-1 0x0DC7)
510	- (\| (= @+1 0x0DD9) (= @+1 0x0DDB)))
511	- 0x200C)))
512	-
513	- ("\\" (shift join))))
514	-
515	-(macro
516	- ;; prototype
517	- (forward (set x 0))
518	- (backward (set x 0))
519	- (delete-preceding-zw (set x 0))
520	-
521	- ;; skip following (virama zwj consonant)* sequence
522	- (forward
523	- (set cc3 @+3)
524	- (cond
525	- ((& (= @+1 0x0DCA) (= @+2 0x200D) (> cc3 0x0D99) (< cc3 0x0DC7))
526	- (delete @+3)
527	- 0x0DCA 0x200D
528	- (insert cc3)
529	- (forward))))
530	-
531	- (backward
532	- (set cc1 @-1)
533	- (cond
534	- ((& (= @-3 0x0DCA) (= @-2 0x200D) (> cc1 0x0D99) (< cc1 0x0DC7))
535	- (delete @-3)
536	- 0x0DCA
537	- 0x200D
538	- (insert cc1)
539	- (move @<)
540	- (backward))))
541	-
542	- (delete-preceding-zw
543	- (cond
544	- ((\| (= @-1 0x200C) (= @-1 0x200D))
545	- (delete @-1)
546	- (delete-preceding-zw))))
547	-
548	- (merge-combuva
549	- (delete @-1)
550	- (delete @+2)
551	- (insert c1)))
552	+ (kombuva
553	+ ("f" "ෙ")) ; 0DD9
554
555	-(state
556	- (init
557	- (consonant
558	- (cond
559	- ((= @-1 0x0DD9)
560	- (cond
561	- ((= @-2 0x200C)
562	- (delete @-2)
563	- 0x0DD9)
564	- ((\| (< @-2 0x0D9A) (> @-2 0x0DC6))
565	- (delete @-1)
566	- 0x0DD9)))
567	- ((= @-1 0x0DDB)
568	- (cond
569	- ((= @-2 0x200C)
570	- (delete @-2)
571	- 0x0DDB)
572	- ((\| (< @-2 0x0D9A) (> @-2 0x0DC6))
573	- (delete @-1)
574	- 0x0DDB)))))
575	- (misc))
576	+ (yansaka
577	+ ("H"))
578	+
579	+ (rakaransaya
580	+ ("`"))
581	+
582	+ (repaya
583	+ ("~"))
584	+
585	+ (eyanna
586	+ ("w"))
587	+
588	+ (al-lakuna
589	+ ("a"))
590	+
591	+ (aela-pilla
592	+ ("d"))
593	+
594	+ (gayanukitta
595	+ ("A"))
596
597	(join
598	- (consonant
599	- (set c @-1)
600	- (cond
601	- ((\| (= c 0x0DD9) (= c 0x0DDB))
602	- (cond
603	- ((& (> @-2 0x0D99) (< @-2 0x0DC7))
604	- (delete @-1)
605	- (move @<)
606	- 0x0DCA 0x200D
607	- (move @>)
608	- (insert c))))
609	- ((& (> c 0x0D99) (< c 0x0DC7))
610	- (move @<)
611	- 0x0DCA 0x200D))
612	- (shift init))
613	+ ("\\")
614	+ ("\|"))
615	+
616	+ (backspace
617	+ ((BackSpace)))
618	+ )
619
620	- (nil
621	- (shift init))))
622	+(state
623	+ (init
624	+ (consonant (shift consonant))
625	+ (others)
626	+ (is-pilla (shift is-pilla))
627	+ (kombuva (shift kombuva)))
628	+
629	+ (consonant
630	+ (rakaransaya 0x0DCA 0x200D 0x0DBB)
631	+ (yansaya 0x0DCA 0x200D 0x0DBA)
632	+ (repaya (move @-) 0x0DBB 0x0DCA 0x200D (move @+))
633	+ (is-pilla (shift is-pilla))
634	+ (join 0x0DCA 0x200D (shift consonant+join)))
635	+
636	+ (consonant+join
637	+ (consonant (shift consonant))
638	+ (backspace (undo)))
639	+
640	+ (is-pilla
641	+ (rakaransaya (move @-) 0x0DCA 0x200D 0x0DBB (shift init)))
642	+
643	+ (kombuva
644	+ (eyanna (delete @<) 0x0D93 (shift init))
645	+ (al-lakuna (delete @<) 0x0DDA (shift init))
646	+ (kombuva (delete @<) 0x0DDB (shift combu_deka))
647	+ (aela-pilla (delete @<) 0x0DDC (shift kombuva_haa_aela-pilla))
648	+ (gayanukitta (delete @<) 0x0DDE (shift init))
649	+ (consonant (move @1) (delete @0) (move @>) 0x0DD9 (shift consonant+kombuva))
650	+ (backspace (undo)))
651	+
652	+ (combu_deka
653	+ (consonant (move @1) (delete @0) (move @>) 0x0DDB (shift init))
654	+ (backspace (undo)))
655	+
656	+ (kombuva_haa_aela-pilla
657	+ (al-lakuna (delete @<) 0x0DDD (shift init))
658	+ (backspace (undo)))
659	+
660	+ (consonant+kombuva
661	+ (al-lakuna (delete @-) 0x0DDA (shift init))
662	+ (aela-pilla (delete @-) 0x0DDC (shift consonant+kombuva_haa_aela-pilla))
663	+ (gayanukitta (delete @-) 0x0DDE (shift init))
664	+ (yansaka (move @-) 0x0DCA 0x200D 0x0DBA (move @>))
665	+ (rakaransaya (move @-) 0x0DCA 0x200D 0x0DBB (move @>))
666	+ (join (shift consonant+join+kombuva))
667	+ (touch (move @-) 0x200D 0x0DCA (move @>))
668	+ (backspace (undo)))
669	+
670	+ (consonant+kombuva_haa_aela-pilla
671	+ (al-lakuna (delete @-) 0x0DDD (shift init))
672	+ (backspace (undo)))
673	+
674	+ (consonant+join+kombuva
675	+ (consonant (move @-) (delete @-) 0x0DCA 0x200D (move @+) 0x0DD9
676	+ (shift consonant+kombuva))
677	+ (backspace (undo)))
678	+ )
679
680	;; Local Variables:
681	;; coding: utf-8
682	;; mode: emacs-lisp
683	;; End:
684	+
admin@fedoraproject.org	ViewVC Help
Powered by ViewVC 1.1.2