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 : ta-lk-renganathan.mim

;; ta-lk-renganathan.mim -- Tamil input method with Renganathan layout
;; Copyright (C) 2008
;;   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 ta lk-renganathan (version "1.6.0"))

(description "Tamil input method with Renganathan layout.
For the detail, see the page: <http://www.locallanguages.lk/>
")

(title "க")

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

(macro
 (pre-proc
  (cond
   ((= @-1 0x200C)
    (delete @-1)))
  (cond
   ((= @+0 0x200C)
    (delete @+1))))

(post-proc
  (cond
   ((& (>= @-1 0x0B95) (<= @-1 0x0BB9)	; a consonant
       (>= @+0 0x0BC6) (<= @+0 0x0BCC))	; a left/two-part vowel sign
    ;; prevent syllable formation
    0x200C)

((& (| (< @-2 0x0B95) (> @-2 0x0BB9))  ; not a consonant
       (>= @-1 0x0BC6) (<= @-1 0x0BCC)	  ; a left/two-part vowel sign
       (>= @+0 0x0B95) (<= @+0 0x0BB9)	  ; a consonant
       (| (< @+1 0x0BBE) (> @+1 0x0BD7))) ; not a vowel sign
    ;; exchange @-1 and @+0
    (set vs @-1)
    (set c @+0)
    (delete @-1)
    (delete @+1)
    (insert c)
    (insert vs))

((& (= @-1 0x200C)
       (| (< @-2 0x0B95) (> @-2 0x0BB9)	; not a constant
	  (< @+0 0x0BC6) (> @+0 0x0BCC))) ; not a left/two-part vowel sign
    ;; delete unnecessary ZWNJ
    (delete @-1))

((& (= @+0 0x200C)
       (| (< @-1 0x0B95) (> @-1 0x0BB9)	; not a constant
	  (< @+1 0x0BC6) (> @+1 0x0BCC))) ; not a left/two-part vowel sign
    ;; delete unnecessary ZWNJ
    (delete @+1))))

(consonant-proc
  (move @<)
  (cond
   ((= @-1 0x200C)
    (delete @-1)))
  (set vs 0)
  (cond
   ((& (>= @-1 0x0BC6) (<= @-1 0x0BC8))	; a left vowel sign
    (cond
     ((= @-2 0x200C)
      (set vs @-1)
      (delete @-2))
     ((| (< @-2 0x0B95) (> @-2 0x0BB9))	; not a consonant
      (set vs @-1)
      (delete @-1)))))

(move @>)
  (cond
   ((& (= @+0 0x200C)
       (| (< @+1 0x0BC6) (> @+1 0x0BCC))) ; not a left vowel sign
    (delete @+1)))

(cond
   ((= vs 0x0BC6)
    (cond
     ((= @+0 0x0BBE)
      (delete @+1)
      0x0BCA)
     ((| (= @+0 0x0BB3) (= @+0 0x0BD7))
      (delete @+1)
      0x0BCC)
     (1
      0x0BC6)))
   ((= vs 0x0BC7)
    (cond
     ((= @+0 0x0BBE)
      (delete @+1)
      0x0BCB)
     (1
      0x0BC7)))
   ((= vs 0x0BC8)
    0x0BC8))

(cond
   ((& (>= @-1 0x0B95) (<= @-1 0x0BB9)	; a consonant
       (>= @+0 0x0BC6) (<= @+0 0x0BCC))	; a left vowel sign
    0x200C)))

(check-surrounding-text
  (cond
   ((& (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa follows
    0x0B95 0x0BCD 0x0BB7
    (delete @+3))
   ((& (>= @+0 0x0B95) (<= @+0 0x0BB9))	; a consonant follows
    (set c @+0)
    (insert c)
    (delete @+1))
   ((& (>= @-1 0x0B95) (<= @-1 0x0BB9))	; a consonant precedes
    0x200C)))
 )

(map
 (starter
  ("q") ("w") ("e") ("r") ("t") ("y") ("u") ("i") ("o") ("p") ("[") ("]")
  ("a") ("s") ("d") ("f") ("g") ("h") ("j") ("k") ("l") (";")
  ("z") ("x") ("c") ("v") ("b") ("n") ("m") ("`")
  ("Q") ("W") ("E") ("R") ("T") ("Y") ("U") ("I") ("O") ("P") ("{") ("}")
  ("A") ("S") ("D") ("F") ("G") ("H") ("J") ("K") ("L")
  ("Z") ("X") ("C") ("V") ("B") ("N") ("M")
  ((A-q)) ((A-w)) ((A-e)) ((A-r)) ((A-t)) ((A-y)) ((A-u)) ((A-i))
  ((A-1)) ((A-2)) ((A-3)) ((A-4)) ((A-5)) ((A-6)) ((A-7)) ((A-8)) ((A-9))
  ((A-0)) ((A-`)) ((A-=)) ((A--))
  ((BackSpace)) ((Delete)))

(composite
  ("f;" "க்")				; 0B95 0BCD
  ("f;W" "க்‌ஷ")			; 0B95 0BCD 200C 0BB7
  ("Zh" "ஒளா")				; 0B92 0BB3 0BBE
  ("Zp" "ஒளி")				; 0B92 0BB3 0BBF
  ("ZP" "ஒளீ")				; 0B92 0BB3 0BC0
  ("Z[" "ஒளு")				; 0B92 0BB3 0BC1
  ("Z{" "ஒளூ")				; 0B92 0BB3 0BC2
  ("Z;" "ஒள்")				; 0B92 0BB3 0BCD
  ("xs" "ஔ")				; 0B94
  ("xsh" "ஒளா")				; 0B92 0BB3 0BBE
  ("xsp" "ஒளி")				; 0B92 0BB3 0BBF
  ("xsP" "ஒளீ")				; 0B92 0BB3 0BC0
  ("xs[" "ஒளு")				; 0B92 0BB3 0BC1
  ("xs{" "ஒளூ")				; 0B92 0BB3 0BC2
  ("xs;" "ஒள்")				; 0B92 0BB3 0BCD
  )

(consonant
  ("f" "க")				; 0B95
  ("q" "ங")				; 0B99
  ("r" "ச")				; 0B9A
  ("E" "ஜ")				; 0B9C
  ("]" "ஞ")				; 0B9E
  ("l" "ட")				; 0B9F
  ("z" "ண")				; 0BA3
  ("j" "த")				; 0BA4
  ("e" "ந")				; 0BA8
  ("d" "ன")				; 0BA9
  ("g" "ப")				; 0BAA
  ("k" "ம")				; 0BAE
  ("a" "ய")				; 0BAF
  ("u" "ர")				; 0BB0
  ("w" "ற")				; 0BB1
  ("y" "ல")				; 0BB2
  ("o" "ழ")				; 0BB4
  ("t" "வ")				; 0BB5
  ("U" "ஶ")				; 0BB6
  ("Q" "ஸ")				; 0BB8
  ("R" "ஹ")				; 0BB9

("T" "க்ஷ")				; 0B95 0BCD 0BB7
  )

(sign
  ("p" "ி")				; 0BBF
  ("P" "ீ")				; 0BC0
  ("[" "ு")				; 0BC1
  ("{" "ூ")				; 0BC2
  (";" "்")				; 0BCD
  )

(lla
  ("s"))

(ssa
  ("W"))

(aa
  ("h"))

(e
  ("n"))

(ee
  ("N"))

(ai
  ("i"))

(backspace
  ((BackSpace)))

(delete
  ((Delete)))

(misc
  ("`" "ஃ")				; 0B83
  ("m" "அ")				; 0B85
  ("M" "ஆ")				; 0B86
  ("b" "இ")				; 0B87
  ("B" "ஈ")				; 0B88
  ("c" "உ")				; 0B89
  ("C" "ஊ")				; 0B8A
  ("v" "எ")				; 0B8E
  ("V" "ஏ")				; 0B8F
  ("I" "ஐ")				; 0B90
  ("x" "ஒ")				; 0B92
  ("X" "ஓ")				; 0B93
  ("Z" "ஔ")				; 0B94

("O" "ௐ")				; 0BD0

((A-0) "௦")				; 0BE6
  ((A-1) "௧")				; 0BE7
  ((A-2) "௨")				; 0BE8
  ((A-3) "௩")				; 0BE9
  ((A-4) "௪")				; 0BEA
  ((A-5) "௫")				; 0BEB
  ((A-6) "௬")				; 0BEC
  ((A-7) "௭")				; 0BED
  ((A-8) "௮")				; 0BEE
  ((A-9) "௯")				; 0BEF
  ((A-q) "௰")				; 0BF0
  ((A-w) "௱")				; 0BF1
  ((A-e) "௲")				; 0BF2
  ((A-y) "௳")				; 0BF3
  ((A-u) "௴")				; 0BF4
  ((A-i) "௵")				; 0BF5
  ((A-r) "௶")				; 0BF6
  ((A-t) "௷")				; 0BF7
  ((A-`) "௸")				; 0BF8
  ((A-=) "௹")				; 0BF9
  ((A--) "௺")				; 0BFA

("Y" "ஶ்ரீ")				; 0BB6 0BCD 0BB0 0BC0

("}" ";")				; 003B

("A" "")
  ("S" "")
  ("D" "")
  ("F" "")
  ("G" "")
  ("H" "")
  ("J" "")
  ("K" "")
  ("L" "")
  ))

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

(surrounding-text
  (consonant
   (consonant-proc)
   (commit))

(lla
   (cond
    ((= @-1 0x200C)
     (delete @-1)))

(cond
    ((& (>= @-2 0x0B95) (<= @-2 0x0BB9)	; a consonant
	(= @-1 0x0BC6))
     (delete @-1)
     0x0BCC
     (cond
      ((= @+0 0x200C)
       (delete @+1))))
    ((= @-1 0x0B92)
     (delete @-1)
     0x0B94
     (cond
      ((= @+0 0x200C)
       (delete @+1))))
    (1
     0x0BB3
     (consonant-proc)))

(commit))

(ssa
   (cond
    ((= @-1 0x200C)
     (delete @-1)))

(cond
    ((& (= @-2 0x0B95) (= @-1 0x0BCD))
     0x200C))
   0x0BB7
   (consonant-proc)

(commit))

(sign
   (cond
    ((= @+0 0x200C)
     (delete @+1)))
   (move @<)
   (cond
    ((= @-1 0x200C)
     (delete @-1)))

(cond
    ((= @-1 0x0B94)
     (delete @-1)
     0x0B92 0x0BB3)
    ((= @-1 0x0BCC)
     (delete @-1)
     0x0BC6 0x0BB3))

(commit))

(aa
   (pre-proc)

(cond
    ((= @-1 0x0BC6)
     (cond
      ((& (| (< @-3 0x0B95) (> @-3 0x0BB9)) ; not a consonant
	  (= @-2 0x200C))
       (delete @-2))
      (1
       (delete @-1)))
     0x0BCA)

((= @-1 0x0BC7)
     (cond
      ((& (| (< @-3 0x0B95) (> @-3 0x0BB9)) ; not a consonant
	  (= @-2 0x200C))
       (delete @-2))
      (1
       (delete @-1)))
     0x0BCB)

((= @-1 0x0B94)
     (delete @-1)
     0x0B92 0x0BB3 0x0BBE)

((= @-1 0x0BCC)
     (delete @-1)
     0x0BC6 0x0BB3 0x0BBE)

(1
     0x0BBE))

(commit))

(e
   (pre-proc)

(cond
    ;; additional check-surrounding-text for this vowel sign
    ((& (>= @+0 0x0B95) (<= @+0 0x0BB9)	; a consonant
	(= @+1 0x0BB3))
     (set c @+0)
     (delete @+2)
     (insert c)
     0x0BCC)

;; ordinary check-surrounding-text
    (1
     (check-surrounding-text)
     (cond
      ((= @+0 0x0BBE)
       (delete @+1)
       0x0BCA)
      ((= @+0 0x0BD7)
       (delete @+1)
       0x0BCC)
      (1
       0x0BC6))))

(commit))

(ee
   (pre-proc)

(check-surrounding-text)
   (cond
    ((= @+0 0x0BBE)
     (delete @+1)
     0x0BCB)
    (1
     0x0BC7))

(commit))

(ai
   (pre-proc)

(check-surrounding-text)
   0x0BC8

(commit))

(backspace
   (pre-proc)

(cond
    ((& (>= @-4 0x0B95) (<= @-4 0x0BB9)	; a consonant
	(= @-3 0x0BC6)
	(= @-2 0x0BB3)
	(| (& (>= @-1 0x0BBE) (<= @-1 0x0BC2)) ; a right/above/below vowel sign
	   (= @-1 0x0BCD)))
     (delete @-3)
     0x0BCC)

((& (= @-4 0x0BB6) (= @-3 0x0BCD) (= @-2 0x0BB0) (= @-1 0x0BC0)) ; shrii
     (delete @-4))

((& (= @-3 0x0B92)
	(= @-2 0x0BB3)
	(| (& (>= @-1 0x0BBE) (<= @-1 0x0BC2)) ; a right/above/below vowel sign
	   (= @-1 0x0BCD)))
     (delete @-3)
     0x0B94)

((& (= @-3 0x0B95) (= @-2 0x0BCD) (= @-1 0x0BB7)) ; k.ssa
     (delete @-3))

((| (= @-1 0x0BCA) (= @-1 0x0BCC))	; vowel sign e/ai
     (delete @-1)
     0x0BC6)

((= @-1 0x0BCB)			; vowel sign ee
     (delete @-1)
     0x0BC7)

((& (>= @-1 0x0BC6) (<= @-1 0x0BC8)) ; a left vowel sign
     (set vs @-1)
     (delete @-1)
     (cond
      ((& (>= @-1 0x0B95) (<= @-1 0x0BB9)) ; a consonant
       (cond
	((& (= @-3 0x0B95) (= @-2 0x0BCD) (= @-1 0x0BB7)) ; k.ssa
	 (delete @-3))
	(1
	 (delete @-1)))

(cond
	((& (>= @+0 0x0B95) (<= @+0 0x0BB9)    ; a consonant follows
	    (| (< @+1 0x0BBE) (> @+1 0x0BD7))) ; not a vowel sign
	 ;; visual  : E C1 | C2  ->  E C2 |
	 ;; logical : C1 E | C2  ->  C2 E |
	 (cond
	  ((& (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa
	   (delete @+3)
	   0x0B95 0x0BCD 0x0BB7)
	  (1
	   (set c @+0)
	   (delete @+1)
	   (insert c)))
	 (insert vs))

((& (>= @-1 0x0B95) (<= @-1 0x0BB9)) ; a consonant precedes
	 ;; visual  : C1 E C2 | X  ->  C1 E | X
	 ;; logical : C1 C2 E | X  ->  C1 N E | X
	 0x200C
	 (insert vs))

(1
	 ;; visual  : X1 E C | X2  ->  X1 E | X2
	 ;; logical : X1 C E | X2  ->  X1 E | X2
	 (insert vs))))

((= @-1 0x200C)
       (delete @-1))))

(1
     (delete @-1)))

(post-proc)
   (commit))

(delete
   (pre-proc)

(cond
    ((& (= @+0 0x0BB6) (= @+1 0x0BCD) (= @+2 0x0BB0) (= @+3 0x0C0)) ; shrii
     (delete @+4))

((& (= @+0 0x0B95) (= @+1 0x0BCD) (= @+2 0x0BB7)) ; k.ssa
     (cond
      ((& (>= @+3 0x0BC6) (<= @+3 0x0BC8)) ; a left vowel sign
       (delete @+4)
       0x0B95 0x0BCD 0x0BB7)
      ((| (= @+3 0x0BCA) (= @+3 0x0BCB)) ; vowel sign e/ee
       (delete @+4)
       0x0B95 0x0BCD 0x0BB7 0x0BBE)
      ((| (& (>= @+3 0x0BBE) (<= @+3 0x0BC2)) ; vowel sign aa .. uu
	  (= @+3 0x0BCC)		      ; vowel sign ai
	  (= @+3 0x0BCD))		      ; virama
       (delete @+4))
      (1
       (delete @+3))))

((& (>= @+0 0x0B95) (<= @+0 0x0BB9)) ; a consonant
     (set c @+0)
     (cond
      ((& (>= @+1 0x0BC6) (<= @+1 0x0BC8)) ; a left vowel sign
       (delete @+2)
       (insert c))
      ((| (= @+1 0x0BCA) (= @+1 0x0BCB)) ; vowel sign e/ee
       (delete @+2)
       (insert c)
       0x0BBE)
      ((| (& (>= @+1 0x0BBE) (<= @+1 0x0BC2)) ; vowel sign aa .. uu
	  (= @+1 0x0BCC)		      ; vowel sign ai
	  (= @+1 0x0BCD))		      ; virama
       (delete @+2))
      (1
       (delete @+1))))

((| (= @+0 0x0BCA) (= @+0 0x0BCB))	; vowel sign e/ee
     (delete @+1)
     0x0BBE)

((= @+0 0x0BCC)			; vowel sign ai
     (delete @+1)
     0x0BB3)

(1
     (delete @+1)))

(post-proc)
   (commit))

(misc
   (move @<)
   (cond
    ((= @-1 0x200C)
     (delete @-1)))
   (move @>)
   (cond
    ((= @+0 0x200C)
     (delete @+1)))
   (commit)))

(preedit
  (consonant (shift c-state))
  (composite (commit))
  (sign (commit))
  (misc (commit))
  (lla "ள" (shift c-state))		; 0BB3
  (ssa "ஷ" (shift c-state))		; 0BB7
  (aa "ா" (commit))			; 0BBE
  (e  "ெ" (shift e-state))		; 0BC6
  (ee "ே" (shift ee-state))		; 0BC7
  (ai "ை" (shift ai-state))		; 0BC8
  (nil
   (unhandle)))

(c-state
  (sign (shift c-s-state))
  (aa "ா" (shift c-s-state))		; 0BBE
  (backspace (undo)))

(c-s-state
  (sign
   (cond
    ((= @-2 0x0BCC)
     (move @-)
     (delete @-)
     0x0BC6 0x0BB3
     (move @+))
    (1
     (commit)
     (shift preedit))))
  (aa
   "ா"
   (cond
    ((= @-2 0x0BCC)
     (move @-)
     (delete @-)
     0x0BC6 0x0BB3
     (move @+))
    (1
     (commit)
     (shift preedit))))
  (backspace (undo)))

(e-state
  (consonant (move @<) (delete @+) (move @>) "ெ" (shift e-c-state))
  (lla (delete @-) "ளெ" (shift e-c-state))
  (ssa (delete @-) "ஷெ" (shift e-c-state))
  (backspace (delete @-) (shift preedit))
  (nil (undo -1)))

(ee-state
  (consonant (move @<) (delete @+) (move @>) "ே" (shift ee-c-state))
  (lla (delete @-) "ளே" (shift ee-c-state))
  (ssa (delete @-) "ஷே" (shift ee-c-state))
  (backspace (delete @-) (shift preedit))
  (nil (undo -1)))

(ai-state
  (consonant (move @<) (delete @+) (move @>) "ை" (shift c-s-state))
  (lla (delete @-) "ளை" (shift c-s-state))
  (ssa (delete @-) "ஷை" (shift c-s-state))
  (backspace (delete @-) (shift preedit))
  (nil (undo -1)))

(e-c-state
  (aa (delete @-) "ொ" (shift c-s-state))
  (lla (delete @-) "ௌ" (shift c-s-state))
  (backspace (delete @<) "ெ" (shift e-state)))

(ee-c-state
  (aa (delete @-) "ோ" (shift c-s-state))
  (backspace (delete @<) "ே" (shift ee-state)))
 )

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

${this.title}

Code Editor : ta-lk-renganathan.mim