;; hi-typewriter.mim -- Devanagari input method with typewriter method
;; Copyright (C) 2005
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H15PRO112

;; This file is part of the m17n contrib; 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., 59 Temple Place, Suite 330, Boston, MA
;; 02111-1307, USA.

(input-method hi typewriter)

(description "Hindi input method with `typewriter' method.
Still experimental.
")

(title "क")

(map
 (consonant
 
  ((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) "-") 
 
  ("!" ?ऍ)
  ("+" ?ऋ)
  ("Q" ?औ)
  ("W" ?ऐ)
  ("E" ?आ)
  ("R" ?ई)
  ("T" ?ऊ)
  ("Y" ?भ)
  ("y" ?ब)
  ("U" ?ङ)
  ("u" ?ह)
  ("I" ?घ)
  ("i" ?ग)
  ("O" ?ध)
  ("o" ?द)
  ("P" ?झ)
  ("p" ?ज)
  ("{" ?ढ)
  ("[" ?ड)
  ("}" ?ञ)
  ("A" ?ओ)
  ("S" ?ए)
  ("D" ?अ)
  ("F" ?इ)
  ("G" ?उ)
  ("H" ?फ)
  ("h" ?प)
  ("J" ?ऱ)
  ("j" ?र)
  ("K" ?ख)
  ("k" ?क)
  ("L" ?थ)
  ("l" ?त)
  (":" ?छ)
  (";" ?च)
  ("\"" ?ठ)
  ("'" ?ट)
  ("|" ?ऑ)
  ("~" ?ऒ)
  ("Z" ?ऎ)
  ("C" ?ण)
  ("c" ?म)
  ("V" ?ऩ)
  ("v" ?न)
  ("B" ?ऴ)
  ("b" ?व)
  ("N" ?ळ)
  ("n" ?ल)
  ("M" ?श)
  ("m" ?स)
  ("<" ?ष)
  ("/" ?य))
 (halant
  ("d" ?्))
 (vowel-I
  ("f" ?ि))
 (else
  ("1" ?१)
  ("@" ?ॅ)
  ("2" ?२)
  ("#" ?#)
  ("3" ?३)
  ("$" ?$)
  ("4" ?४)
  ("5" ?५)
  ("6" ?६)
  ("7" ?७)
  ("8" ?८)
  ("(" ?\()
  ("9" ?९)
  (")" ?\))
  ("0" ?०)
  ("_" ?ः)
  ("-" ?-)
  ("=" ?ृ)
  ("q" ?ौ)
  ("w" ?ै)
  ("e" ?ा)
  ("r" ?ी)
  ("t" ?ू)
  ("]" ?़)
  ("a" ?ो)
  ("s" ?े)
  ("g" ?ु)
  ("\\" ?ॉ)
  ("`" ?ॊ)
  ("z" ?ॆ)
  ("X" ?ँ)
  ("x" ?ं)
  ("," ?,)
  (">" ?।)
  ("." ?.)
  ("?" ?य़)))

(state
 (init
  (consonant)
  (halant)
  (else)
  (vowel-I (shift after-vowel-I)))

 (after-vowel-I
  (consonant
   ;; The current preedit is "IC".  Reorder it to "CI".
   (move @<) (delete @+) (move @>) (insert "ि")
   ;; Keep on reading the following [HC]* sequence.
   (shift after-consonant))
  (vowel-I
   ;; Delete the lastly inserted I and rehandle it in `init' state.
   (delete @-) (pushback 1) (shift init))
  (nil (shift init)))

 (after-consonant
  (halant
   ;; The current preedit is "C[HC]*IH".  Reorder it to "C[HC]*HI".
   (move @-) (delete @-) (move @>) (insert "ि")
   ;; Keep on reading the following C[HC]* sequence.
   (shift after-consonant-halant)))

 (after-consonant-halant
  (consonant
   ;; The current preedit is "C[HC]*HIC".  Reorder it to "C[HC]+I".
   (move @-) (delete @-) (move @>) (insert "ि")
   ;; Keep on reading the following [HC]* sequence.
   (shift after-consonant))))