From 9ba8a803d67d9984464483e1f1015f1af3d46efc Mon Sep 17 00:00:00 2001
From: ntakahas <ntakahas>
Date: Wed, 2 Jul 2008 09:02:22 +0000
Subject: [PATCH] Almost rewritten by the new author.

---
 im/kn-kgp.mim |  235 ++++++++++++++++++++++++++++++---------------------------
 1 file changed, 125 insertions(+), 110 deletions(-)

diff --git a/im/kn-kgp.mim b/im/kn-kgp.mim
index 09de39d..dde23cb 100644
--- a/im/kn-kgp.mim
+++ b/im/kn-kgp.mim
@@ -1,7 +1,7 @@
-;; kn-kgp.mim -- Kannada input method for KGP layout
-;; This file is derived from the Kannada KGP table of scim-tables,
-;; which was derived from iiimf unitLE's Kannada KGP layout.
-;; Copyright (c) 2003 Sun Microsystems, Inc. All Rights Reserved.
+;; kn-kgp.mim -- Kannada input method with KGP method
+;;   Copyright (C) 2008
+;;   Sridhar M.A., Mysore; mas@mylug.org
+
 
 ;; This file is part of the m17n contrib; a sub-part of the m17n
 ;; library.
@@ -23,126 +23,141 @@
 
 (input-method kn kgp)
 
-(description "Kannada input method for KGP layout.
+(description "Kannada input method by KGP method.
 ")
 
 (title "ಕ")
 
 (map
- (trans
- 
-  ((KP_1) "೧")
-  ((KP_2) "೨")
-  ((KP_3) "೩")
-  ((KP_4) "೪")
-  ((KP_5) "೫")
-  ((KP_6) "೬")
-  ((KP_7) "à³­")
-  ((KP_8) "à³®")
-  ((KP_9) "೯")
-  ((KP_0) "೦")
-  ((KP_Decimal) ".")
-  ((KP_Divide) "/")
-  ((KP_Multiply) "*")
-  ((KP_Add) "+")
-  ((KP_Subtract) "-") 
- 
-  ("!" "!")
-  ("1" "೧")
-  ("@" "@")
-  ("2" "೨")
-  ("#" "#")
-  ("3" "೩")
-  ("$" "$")
-  ("4" "೪")
-  ("%" "%")
-  ("5" "೫")
-  ("^" "^")
-  ("6" "೬")
-  ("&" "&")
-  ("7" "à³­")
-  ("*" "*")
-  ("8" "à³®")
-  ("(" "(")
-  ("9" "೯")
-  (")" ")")
-  ("0" "೦")
-  ("_" "_")
-  ("-" "-")
-  ("+" "+")
-  ("=" "=")
-  ("Q" "ಠ")
+ (starter
+  ("0") ("1") ("2") ("3") ("4")
+  ("5") ("6") ("7") ("8") ("9")
+  ("A") ("B") ("C") ("D") ("E") ("G") ("H") ("I") ("J") ("K") 
+  ("L") ("M") ("N") ("O") ("P") ("Q") ("R") ("S") ("T") ("U")
+  ("V") ("W") ("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"))
+
+ (consonant
+  ("k" "ಕ")
+  ("K" "ಖ")
+  ("g" "ಗ")
+  ("G" "ಘ")
+  ("Z" "ಙ")
+  ("c" "ಚ")
+  ("C" "ಛ")
+  ("j" "ಜ")
+  ("jX" "ಜ಼")
+  ("J" "ಝ")
+  ("z" "ಞ")
   ("q" "ಟ")
-  ("W" "ಢ")
+  ("Q" "ಠ")
   ("w" "ಡ")
-  ("E" "ಏ")
-  ("e" "ಎ")
-  ("R" "ಋ")
-  ("r" "ರ")
-  ("T" "ಥ")
+  ("W" "ಢ")
+  ("N" "ಣ")
   ("t" "ತ")
-  ("Y" "ಐ")
-  ("y" "ಯ")
-  ("U" "ಊ")
-  ("u" "ಉ")
-  ("I" "ಈ")
-  ("i" "ಇ")
-  ("O" "ಓ")
-  ("o" "ಒ")
-  ("P" "ಫ")
+  ("T" "ಥ")
+  ("d" "ದ")
+  ("D" "ಧ")
+  ("n" "ನ")
   ("p" "ಪ")
-  ("{" "{")
-  ("[" "[")
-  ("}" "}")
-  ("]" "]")
-  ("A" "ಆ ")
-  ("a" "ಅ")
+  ("P" "ಫ")
+  ("PX" "ಫ಼")
+  ("b" "ಬ")
+  ("B" "ಭ")
+  ("m" "ಮ")
+  ("y" "ಯ")
+  ("r" "ರ")
+  ("rX" "ಱ")
+  ("l" "ಲ")
+  ("v" "ವ")
   ("S" "ಶ")
+  ("x" "ಷ")
   ("s" "ಸ")
-  ("D" "ಧ")
-  ("d" "ದ")
-  ("F" "೯")
-  ("f" "್")
-  ("G" "ಘ")
-  ("g" "ಗ")
-  ("H" "ಃ")
   ("h" "ಹ")
-  ("J" "ಝ")
-  ("j" "ಜ")
-  ("K" "ಖ")
-  ("k" "ಕ")
   ("L" "ಳ")
-  ("l" "ಲ")
-  (":" ":")
-  (";" ";")
-  ("\"" "\"")
-  ("'" "'")
-  ("|" "|")
-  ("\\" "\\")
-  ("~" "~")
-  ("`" "`")
-  ("z" "ಞ")
-  ("Z" "ಙ")
-  ("X" "ಕ್ಷ")
-  ("x" "ಷ")
-  ("C" "ಛ")
-  ("c" "ಚ")
+  ("LX" "ೞ"))
+
+ (independent
+  ("a" "ಅ")
+  ("A" "ಆ")
+  ("i" "ಇ")
+  ("I" "ಈ")
+  ("u" "ಉ")
+  ("U" "ಊ")
+  ("R" "ಋ")
+  ("RU" "à³ ")
+  ("e" "ಎ")
+  ("E" "ಏ")
+  ("Y" "ಐ")
+  ("o" "ಒ")
+  ("O" "ಓ")
   ("V" "ಔ")
-  ("v" "ವ")
-  ("B" "ಭ")
-  ("b" "ಬ")
-  ("N" "ಣ")
-  ("n" "ನ")
   ("M" "ಂ")
-  ("m" "ಮ")
-  ("<" "<")
-  ("," ",")
-  (">" ">")
-  ("." ".")
-  ("/" "/")
-  ("ff" "‍")
-  ))
+  ("H" "ಃ")
+  ("|" "।")
+  ("||" "॥")
+  ("sX" "ಽ")
+  ("0" "೦")
+  ("1" "೧")
+  ("2" "೨")
+  ("3" "೩")
+  ("4" "೪")
+  ("5" "೫")
+  ("6" "೬")
+  ("7" "à³­")
+  ("8" "à³®")
+  ("9" "೯"))
+
+ (dependent
+  ("f" "್")
+  ("A" "ಾ")
+  ("i" "ಿ")
+  ("I" "ೀ")
+  ("u" "ು")
+  ("U" "ೂ")
+  ("R" "ೃ")
+  ("RX" "ೄ")
+  ("e" "ೆ")
+  ("E" "ೇ")
+  ("Y" "ೈ")
+  ("o" "ೊ")
+  ("O" "ೋ")
+  ("V" "ೌ")
+  ("ff" "್‌"))
+
+ (return
+  ((Return)))
+
+ (backspace
+  ((BackSpace) (undo))))
 
 (state
-  (init
-    (trans)))
+ (init
+  (starter (pushback 1) (shift intermediate)))
+
+ (intermediate
+  (consonant (shift second))
+  (independent (shift finish))
+  (backspace)
+  (return (shift init)))
+
+ (second
+  (consonant)
+  (dependent (shift finish))
+  (backspace)
+  (return (shift init)))
+
+ (finish
+  (return)
+  )
+
+;; (finish
+;;  (return)
+;;  (t (shift init))))
+
+;; Local Variables:
+;; coding: utf-8
+;; mode: lisp
+;; End:
-- 
1.7.10.4