Gecko [ 103.233.161.39 ]

Name	Size	Permission
icons	[ DIR ]	drwxr-xr-x
scripts	[ DIR ]	drwxr-xr-x
ARAB-OTF-NO-GPOS.flt	6.18 KB	-rw-r--r--
ARAB-OTF.flt	4.79 KB	-rw-r--r--
ARAB.flt	11.06 KB	-rw-r--r--
BENG-OTF.flt	7.32 KB	-rw-r--r--
BNG2-OTF.flt	6.71 KB	-rw-r--r--
CHAM-GENERIC.flt	2.15 KB	-rw-r--r--
CHARSET.tbl	14.23 KB	-rw-r--r--
CODING.tbl	3.91 KB	-rw-r--r--
COMBINING.flt	2.03 KB	-rw-r--r--
DEV2-OTF.flt	6.73 KB	-rw-r--r--
DEVA-CDAC.flt	11.49 KB	-rw-r--r--
DEVA-OTF.flt	6.88 KB	-rw-r--r--
FONTENC.tbl	2.97 KB	-rw-r--r--
FONTSIZE.tbl	1.41 KB	-rw-r--r--
GJR2-OTF.flt	5.1 KB	-rw-r--r--
GUJR-OTF.flt	5.55 KB	-rw-r--r--
GUR2-OTF.flt	4.02 KB	-rw-r--r--
GURU-OTF.flt	5.33 KB	-rw-r--r--
HEBR-FF.flt	2.86 KB	-rw-r--r--
HEBR-OTF.flt	2.11 KB	-rw-r--r--
HEBR.flt	2.74 KB	-rw-r--r--
KHMR-ANLONG.flt	6.87 KB	-rw-r--r--
KHMR-OTF.flt	5.33 KB	-rw-r--r--
KND2-OTF.flt	5.68 KB	-rw-r--r--
KNDA-OTF.flt	5.84 KB	-rw-r--r--
LANGUAGE.tbl	17.38 KB	-rw-r--r--
LAOO-ALICE.flt	4.8 KB	-rw-r--r--
LAOO-GENERIC.flt	2.28 KB	-rw-r--r--
LAOO-MULE.flt	3.24 KB	-rw-r--r--
LAOO-OTF.flt	1.99 KB	-rw-r--r--
MLM2-OTF.flt	5.95 KB	-rw-r--r--
MLYM-CDAC.flt	6.35 KB	-rw-r--r--
MLYM-OTF.flt	6.11 KB	-rw-r--r--
MLYM-RACHANA.flt	3.73 KB	-rw-r--r--
MYMR-MYAZEDI.flt	8.97 KB	-rw-r--r--
MYMR-SIL.flt	4.71 KB	-rw-r--r--
NO-CTL.flt	1.47 KB	-rw-r--r--
ORY2-OTF.flt	6.04 KB	-rw-r--r--
ORYA-OTF.flt	6.61 KB	-rw-r--r--
SCRIPT-LANGUAGE.tbl	2.23 KB	-rw-r--r--
SCRIPT-OTF.tbl	1.72 KB	-rw-r--r--
SCRIPT.tbl	5.69 KB	-rw-r--r--
SINH-OTF.flt	2.91 KB	-rw-r--r--
SYRC-OTF.flt	3.32 KB	-rw-r--r--
TAML-CDAC.flt	8.13 KB	-rw-r--r--
TAML-OTF.flt	3.89 KB	-rw-r--r--
TEL2-OTF.flt	3.77 KB	-rw-r--r--
TELU-OTF.flt	4.59 KB	-rw-r--r--
THAA-OTF.flt	1.59 KB	-rw-r--r--
THAI-GENERIC.flt	2.25 KB	-rw-r--r--
THAI-NORASI.flt	2.98 KB	-rw-r--r--
THAI-OTF.flt	2.55 KB	-rw-r--r--
THAI-TIS620.flt	2 KB	-rw-r--r--
TIBT-MTIB.flt	7.18 KB	-rw-r--r--
TIBT-MULE.flt	7.38 KB	-rw-r--r--
TIBT-OTF.flt	3.28 KB	-rw-r--r--
TML2-OTF.flt	3.81 KB	-rw-r--r--
am-sera.mim	10.91 KB	-rw-r--r--
ar-kbd.mim	2.46 KB	-rw-r--r--
as-inscript.mim	5.07 KB	-rw-r--r--
as-inscript2.mim	5.17 KB	-rw-r--r--
as-itrans.mim	4.36 KB	-rw-r--r--
as-phonetic.mim	4.31 KB	-rw-r--r--
ath-phonetic.mim	6.37 KB	-rw-r--r--
be-kbd.mim	2.31 KB	-rw-r--r--
bla-phonetic.mim	7.83 KB	-rw-r--r--
bn-inscript.mim	3.16 KB	-rw-r--r--
bn-inscript2.mim	3.34 KB	-rw-r--r--
bn-itrans.mim	5.1 KB	-rw-r--r--
bn-probhat.mim	2.99 KB	-rw-r--r--
bo-ewts.mim	7.9 KB	-rw-r--r--
bo-tcrc.mim	4.72 KB	-rw-r--r--
bo-wylie.mim	6.34 KB	-rw-r--r--
brx-inscript2-deva.mim	2.98 KB	-rw-r--r--
cjk-util.mim	3.05 KB	-rw-r--r--
cmc-kbd.mim	4.74 KB	-rw-r--r--
cr-western.mim	4.85 KB	-rw-r--r--
cs-kbd.mim	4.01 KB	-rw-r--r--
da-post.mim	1.38 KB	-rw-r--r--
doi-inscript2-deva.mim	3.02 KB	-rw-r--r--
dv-phonetic.mim	2.11 KB	-rw-r--r--
el-kbd.mim	2.85 KB	-rw-r--r--
eo-h-f.mim	1.68 KB	-rw-r--r--
eo-h.mim	1.57 KB	-rw-r--r--
eo-plena.mim	2.15 KB	-rw-r--r--
eo-q.mim	1.57 KB	-rw-r--r--
eo-vi.mim	1.82 KB	-rw-r--r--
eo-x.mim	1.59 KB	-rw-r--r--
fa-isiri.mim	2.79 KB	-rw-r--r--
fr-azerty.mim	3.96 KB	-rw-r--r--
global.mim	4.98 KB	-rw-r--r--
grc-mizuochi.mim	13.85 KB	-rw-r--r--
gu-inscript.mim	3.48 KB	-rw-r--r--
gu-inscript2.mim	3.66 KB	-rw-r--r--
gu-itrans.mim	4.97 KB	-rw-r--r--
gu-phonetic.mim	3.11 KB	-rw-r--r--
he-kbd.mim	2.34 KB	-rw-r--r--
hi-inscript.mim	3.41 KB	-rw-r--r--
hi-inscript2.mim	3.71 KB	-rw-r--r--
hi-itrans.mim	6.32 KB	-rw-r--r--
hi-phonetic.mim	3.2 KB	-rw-r--r--
hi-remington.mim	3.91 KB	-rw-r--r--
hi-typewriter.mim	3.21 KB	-rw-r--r--
hi-vedmata.mim	10.26 KB	-rw-r--r--
hr-kbd.mim	2.32 KB	-rw-r--r--
hy-kbd.mim	3.01 KB	-rw-r--r--
ii-phonetic.mim	20.49 KB	-rw-r--r--
iu-phonetic.mim	4.96 KB	-rw-r--r--
ka-kbd.mim	2.1 KB	-rw-r--r--
kk-arabic.mim	2.03 KB	-rw-r--r--
kk-kbd.mim	2.77 KB	-rw-r--r--
km-yannis.mim	2.94 KB	-rw-r--r--
kn-inscript.mim	3.55 KB	-rw-r--r--
kn-inscript2.mim	3.85 KB	-rw-r--r--
kn-itrans.mim	7.09 KB	-rw-r--r--
kn-kgp.mim	3.41 KB	-rw-r--r--
kn-typewriter.mim	19.64 KB	-rw-r--r--
ko-han2.mim	12.69 KB	-rw-r--r--
ko-romaja.mim	9.84 KB	-rw-r--r--
kok-inscript2-deva.mim	2.99 KB	-rw-r--r--
ks-inscript.mim	3.71 KB	-rw-r--r--
ks-kbd.mim	2.67 KB	-rw-r--r--
latn-post.mim	9.19 KB	-rw-r--r--
latn-pre.mim	5.71 KB	-rw-r--r--
latn1-pre.mim	4.07 KB	-rwxr-xr-x
lo-kbd.mim	3.24 KB	-rw-r--r--
lo-lrt.mim	5.84 KB	-rw-r--r--
mai-inscript.mim	3.42 KB	-rw-r--r--
mai-inscript2.mim	3.02 KB	-rw-r--r--
mdb.dir	4.58 KB	-rw-r--r--
ml-inscript.mim	6.55 KB	-rw-r--r--
ml-inscript2.mim	5.92 KB	-rw-r--r--
ml-itrans.mim	5.51 KB	-rw-r--r--
ml-mozhi.mim	5.28 KB	-rw-r--r--
ml-swanalekha.mim	48.19 KB	-rw-r--r--
mni-inscript2-beng.mim	3.1 KB	-rw-r--r--
mni-inscript2-mtei.mim	2.46 KB	-rw-r--r--
mr-inscript.mim	3.64 KB	-rw-r--r--
mr-inscript2.mim	3.66 KB	-rw-r--r--
mr-itrans.mim	6.08 KB	-rw-r--r--
mr-phonetic.mim	3.16 KB	-rw-r--r--
my-kbd.mim	2.96 KB	-rw-r--r--
ne-inscript2-deva.mim	2.98 KB	-rw-r--r--
ne-rom.mim	2.31 KB	-rw-r--r--
ne-trad.mim	2.47 KB	-rw-r--r--
nsk-phonetic.mim	2.85 KB	-rw-r--r--
oj-phonetic.mim	5.28 KB	-rw-r--r--
or-inscript.mim	3.23 KB	-rw-r--r--
or-inscript2.mim	3.42 KB	-rw-r--r--
or-itrans.mim	4.35 KB	-rw-r--r--
or-phonetic.mim	3.2 KB	-rw-r--r--
pa-inscript.mim	3.01 KB	-rw-r--r--
pa-inscript2-guru.mim	3.35 KB	-rw-r--r--
pa-itrans.mim	4.63 KB	-rw-r--r--
pa-jhelum.mim	3.25 KB	-rw-r--r--
pa-phonetic.mim	2.55 KB	-rw-r--r--
ps-phonetic.mim	2.37 KB	-rw-r--r--
rfc1345.mim	31.46 KB	-rw-r--r--
ru-kbd.mim	2.54 KB	-rw-r--r--
ru-phonetic.mim	2.98 KB	-rw-r--r--
ru-translit.mim	4.02 KB	-rw-r--r--
ru-yawerty.mim	3.78 KB	-rw-r--r--
sa-harvard-kyoto.mim	3.5 KB	-rw-r--r--
sa-iast.mim	1.81 KB	-rw-r--r--
sa-inscript2.mim	2.96 KB	-rw-r--r--
sat-inscript2-deva.mim	2.83 KB	-rw-r--r--
sat-inscript2-olck.mim	1.97 KB	-rw-r--r--
sd-inscript.mim	3.37 KB	-rw-r--r--
sd-inscript2-deva.mim	3.57 KB	-rw-r--r--
si-phonetic-dynamic.mim	7.61 KB	-rw-r--r--
si-samanala.mim	3.34 KB	-rw-r--r--
si-singlish.mim	6.21 KB	-rw-r--r--
si-sumihiri.mim	6.33 KB	-rw-r--r--
si-trans.mim	6.42 KB	-rw-r--r--
si-wijesekera.mim	17.21 KB	-rw-r--r--
sk-kbd.mim	4.04 KB	-rw-r--r--
sr-kbd.mim	2.85 KB	-rw-r--r--
sv-post.mim	1.38 KB	-rw-r--r--
syrc-phonetic.mim	2.73 KB	-rw-r--r--
ta-inscript.mim	2.34 KB	-rw-r--r--
ta-inscript2.mim	2.52 KB	-rw-r--r--
ta-itrans.mim	4.56 KB	-rw-r--r--
ta-lk-renganathan.mim	13.86 KB	-rw-r--r--
ta-phonetic.mim	9.55 KB	-rw-r--r--
ta-tamil99.mim	18.66 KB	-rw-r--r--
ta-typewriter.mim	9.54 KB	-rw-r--r--
ta-vutam.mim	5.07 KB	-rw-r--r--
tai-sonla.mim	4.78 KB	-rw-r--r--
te-apple.mim	4.93 KB	-rw-r--r--
te-inscript.mim	3.4 KB	-rw-r--r--
te-inscript2.mim	3.79 KB	-rw-r--r--
te-itrans.mim	4.96 KB	-rw-r--r--
te-pothana.mim	4.87 KB	-rw-r--r--
te-rts.mim	13.63 KB	-rw-r--r--
th-kesmanee.mim	8.97 KB	-rw-r--r--
th-pattachote.mim	5.71 KB	-rw-r--r--
th-tis820.mim	5.73 KB	-rw-r--r--
ua-kbd.mim	2.63 KB	-rw-r--r--
ug-kbd.mim	2.18 KB	-rw-r--r--
unicode.mim	2.14 KB	-rw-r--r--
ur-phonetic.mim	2.33 KB	-rw-r--r--
uz-kbd.mim	2.42 KB	-rw-r--r--
vi-base.mim	5.16 KB	-rw-r--r--
vi-han.mim	74.99 KB	-rw-r--r--
vi-nom-vni.mim	233.61 KB	-rw-r--r--
vi-nom.mim	230.88 KB	-rw-r--r--
vi-tcvn.mim	5.95 KB	-rw-r--r--
vi-telex.mim	7.74 KB	-rw-r--r--
vi-viqr.mim	5.61 KB	-rw-r--r--
vi-vni.mim	5.6 KB	-rw-r--r--
yi-yivo.mim	3.6 KB	-rw-r--r--

Code Editor : si-wijesekera.mim

;; 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 "1.6.0"))

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

(title "සි")

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

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

(backward
  (set cc1 @-1)
  (cond
   ((& (= @-3 0x0DCA) (= @-2 0x200D) (>= cc1 0x0D9A) (<= cc1 0x0DC6))
    (delete @-3)
    0x0DCA
    0x200D
    (insert cc1)
    (move @<)
    (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
  ("A") ("B") ("C") ("D") ("E") ("F") ("G") ("H") ("I") ("J") ("K") ("L") ("M")
  ("N") ("O") ("P") ("Q") ("R") ("S") ("T") ("U") ("V") ("W") ("X") ("Y") ("Z") 
  ("a") ("b") ("c") ("d") ("e") ("f") ("g") ("h") ("i") ("j") ("k") ("l") ("m")
  ("n") ("o") ("p") ("q") ("r") ("s") ("t") ("u") ("v") ("w") ("x") ("y") ("z") 
  ("`") ("~") ("\[") ("{") ("\]") ("}") ("\\") ("|") (";") (":") ("'") ("\"")
  (",") ("<") (".") (">")
  ((A-a)) ((A-c)) ((A-o)) ((A-v)) ((A-x)) ((A-z)) ((A-\ )) ((A-.)) ((A-,)) ((A-\'))
  ((G-a)) ((G-c)) ((G-o)) ((G-v)) ((G-x)) ((G-z)) ((G-\ )) ((G-.)) ((G-,)) ((G-\'))
  ((S-\ )) ((BackSpace)) ((Delete)))

(consonant
   ("l" "ක")				; 0D9A
   ("L" "ඛ")				; 0D9B
   ("." "ග")				; 0D9C
   (">" "ඝ")				; 0D9D
   ("X" "ඞ")				; 0D9E
   ((A-.) "ඟ")				; 0D9F
   ((G-.) "ඟ")				; 0D9F
   ("p" "ච")				; 0DA0
   ("P" "ඡ")				; 0DA1
   ("c" "ජ")				; 0DA2
   ("C" "ඣ")				; 0DA3
   ("\[" "ඤ")				; 0DA4
   ("{" "ඥ")				; 0DA5
   ((A-c) "ඦ")				; 0DA6
   ((G-c) "ඦ")				; 0DA6
   ("g" "ට")				; 0DA7
   ("G" "ඨ")				; 0DA8
   ("v" "ඩ")				; 0DA9
   ("V" "ඪ")				; 0DAA
   ("K" "ණ")				; 0DAB
   ((A-v) "ඬ")				; 0DAC
   ((G-v) "ඬ")				; 0DAC
   (";" "ත")				; 0DAD
   (":" "ථ")				; 0DAE
   ("o" "ද")				; 0DAF
   ("O" "ධ")				; 0DB0
   ("k" "න")				; 0DB1
   ((A-o) "ඳ")				; 0DB3
   ((G-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
   )

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

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

("T" "ඔ")				; 0D94

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

("Q" "ූ")				; 0DD6

((A-a) "ෳ")				; 0DF3
   ((G-a) "ෳ")				; 0DF3
   ((A-\') "෴")				; 0DF4
   ((G-\') "෴")				; 0DF4

("\]" ";")
   ("}" ":")
   ("'" ".")
   ("\"" ",")
   ("z" "'")
   ("Z" "\"")

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

("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 @+0)
    (cond
     ((& (>= c 0x0D9A) (<= 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)
     ((& (= c 0x200C) (= @+1 0x0DD9))
      (delete @+2)
      0x200C 0x0DDB)
     ((& (= @-1 0x0DD9)
	 (| (< @-2 0x0D9A) (> @-2 0x0DC6)))
      (delete @-1)
      0x0DDB)
     ((& (>= @-1 0x0D9A) (<= @-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
   ("H"
    (set c @-1)
    (cond
     ((= c 0x0DD9)
      (delete @-1))
     ((= c 0x0DDB)
      (delete @-1))
     (1
      (set c 0)))
    (cond
     ((& (>= @-1 0x0D9A) (<= @-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 0x0D9A) (<= @-1 0x0DC6))
      0x0DCA 0x200D 0x0DBB))
    (cond
     ((> c 0)
      (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)
    (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 0x0D9A) (<= @-1 0x0DC6)) 0x200C))
      0x0DD9)
     ((= c 0x0D95)
      0x0D94)
     ((= c 0x0D96)
      0x0D94)

((& (>= c 0x0D9A) (<= c 0x0DC6) (= @-2 0x0DCA) (= @-1 0x200D))
      (cond
       ((= @-3 0x0DBB)
	(delete @-3)
	(insert c))
       (1
	(delete @-2))))

((= c 0x0DD9)
      (cond
       ((| (< @-1 0x0D9A) (> @-1 0x0DC6)))
       ((= @+0 0x0D91)
	(delete @-1)
	(delete @+1)
	0x0D93)
       ((& (>= @+0 0x0D9A) (<= @+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)))
       ((& (>= @-2 0x0D9A) (<= @-2 0x0DC6))
	(delete @-1)
	0x200C
	0x0DD9)
       ((& (= @-4 0x0DBB) (= @-3 0x0DCA) (= @-2 0x200D))
	(set c1 @-1)
	(delete @-4)
	(insert c1)
	0x0DD9)
       ((& (>= @-4 0x0D9A) (<= @-4 0x0DC6) (= @-3 0x0DCA) (= @-2 0x200D))
	(delete @-3)
	0x0DD9)
       (1
	(delete @-1)
	0x0DD9)))

((= c 0x0DDA)
      0x0DD9)

((= c 0x0DDB)
      (cond
       ((| (< @-1 0x0D9A) (> @-1 0x0DC6))
	0x0DD9)
       ((& (>= @-2 0x0D9A) (<= @-2 0x0DC6))
	(delete @-1)
	0x200C
	0x0DDB)
       ((& (= @-4 0x0DBB) (= @-3 0x0DCA) (= @-2 0x200D))
	(set c1 @-1)
	(delete @-4)
	(insert c1)
	0x0DDB)
       ((& (>= @-4 0x0D9A) (<= @-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
     ((& (>= @-1 0x0D9A)
	 (<= @-1 0x0DC6)
	 (| (= @+0 0x0DD9) (= @+0 0x0DDB)))
      0x200C)))

((Delete)
    (delete-following-zw)
    (set c @+0)
    (cond
     ((< 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)
     ((& (>= c 0x0D9A) (<= c 0x0DC6))
      (forward)
      (cond
       ((= @+0 0x0DD9)
	(delete @+1)
	(move @<)
	(insert c))
       ((= @+0 0x0DDB)
	(delete @+1)
	0x0DD9
	(move @<)
	(insert c))
       ((= @+0 0x0DDA)
	(delete @+1)
	0x0DCA
	(move @<)
	(insert c))
       ((= @+0 0x0DDC)
	(delete @+1)
	0x0DCF
	(move @<)
	(insert c))
       ((= @+0 0x0DDE)
	(delete @+1)
	0x0DDF
	(move @<)
	(insert c))
       (1
	(delete @<))))
     ((= c 0x0DDB)
      0x0DD9))))

(independent
   ("w" "අ")				; 0D85
   ("b" "ඉ")				; 0D89
   ("B" "ඊ")				; 0D8A
   ("W" "උ")				; 0D8B
   ("R" "ඍ")				; 0D8D
   ((A-,) "ඏ")				; 0D8F
   ((G-,) "ඏ")				; 0D8F
   ("t" "එ")				; 0D91
   ("T" "ඔ")				; 0D94
   ("l" "ක")				; 0D9A
   ("L" "ඛ")				; 0D9B
   ("." "ග")				; 0D9C
   (">" "ඝ")				; 0D9D
   ("X" "ඞ")				; 0D9E
   ((A-.) "ඟ") ((0x2E A-z) "ඟ")		; 0D9F
   ((G-.) "ඟ") ((0x2E G-z) "ඟ")		; 0D9F
   ("p" "ච")				; 0DA0
   ("P" "ඡ")				; 0DA1
   ("c" "ජ")				; 0DA2
   ("C" "ඣ")				; 0DA3
   ("\[" "ඤ")				; 0DA4
   ("{" "ඥ")				; 0DA5
   ((A-c) "ඦ") ((0x63 A-z) "ඦ")		; 0DA6
   ((G-c) "ඦ") ((0x63 G-z) "ඦ")		; 0DA6
   ("g" "ට")				; 0DA7
   ("G" "ඨ")				; 0DA8
   ("v" "ඩ")				; 0DA9
   ("V" "ඪ")				; 0DAA
   ("K" "ණ")				; 0DAB
   ((A-v) "ඬ") ((0x76 A-z) "ඬ")		; 0DAC
   ((G-v) "ඬ") ((0x76 G-z) "ඬ")		; 0DAC
   (";" "ත")				; 0DAD
   (":" "ථ")				; 0DAE
   ("o" "ද")				; 0DAF
   ("O" "ධ")				; 0DB0
   ("k" "න")				; 0DB1
   ((A-o) "ඳ") ((0x6F A-z) "ඳ")		; 0DB3
   ((G-o) "ඳ") ((0x6F G-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
   ((A-\') "෴")				; 0DF4
   ((G-\') "෴")				; 0DF4

("J" "ළු")				; muurdhaja lu (0DC5 0DD4)

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

("\]" ";")
   ("}" ":")
   ("'" ".")
   ("\"" ",")
   ("z" "'")
   ("Z" "\"")
   )

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

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

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

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

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

("~"					; repaya (0DBB 0DCA 200D)
    (move @<)
    "ර්‍"
    (move @>))
   )

(kombuva
   ("f" "ෙ"))				; 0DD9

(join
   ("\\"))

(backspace
   ((BackSpace))))

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

(surrounding-text
  (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))))
   (commit))
  (misc
   (commit))
  (join
   (shift join)))

(join
  (consonant
   (move @<)
   (set c @-1)
   (cond
    ((| (= c 0x0DD9) (= c 0x0DDB))
     (cond
      ((& (>= @-2 0x0D9A) (<= @-2 0x0DC6))
       (delete @-1)
       0x0DCA 0x200D
       (move @>)
       (insert c))))
    ((& (>= c 0x0D9A) (<= 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))
    ((| (< @-1 0x0D9A) (> @-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 @-)
     "්‍"				; 0DCA 200D
     (move @>)
     (insert c))
    (1
     "්‍"				; 0DCA 200D
     (move @>)))
   (shift independent-state))
  (backspace
   (undo)))

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

;; Local Variables:
;; coding: utf-8
;; mode: emacs-lisp
;; End:

${this.title}

Code Editor : si-wijesekera.mim