[bpt/emacs.git] / leim / quail / indian.el

;;; indian.el --- Quail packages for inputting Indian

;; Copyright (C) 2000-2013 Free Software Foundation, Inc.

;; Author: KAWABATA, Taichi <kawabata@m17n.org>

;; Keywords: multilingual, input method, Indian, Devanagari

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs 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 General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; History:

;; 2000.12.12
;; Totally re-written from devanagari.el to handle multiple Indian Scripts.

;;; Code:

(require 'quail)
(require 'ind-util)

;;;
;;; Input by transliteration
;;;

(defun quail-define-indian-trans-package (hashtbls pkgname
						   lang title doc)
  (funcall 'quail-define-package pkgname lang title t doc
	   nil nil nil nil nil nil t nil)
  (maphash
   (lambda (key val)
     (quail-defrule key (if (= (length val) 1)
			    (string-to-char val)
			  (vector val))))
   (cdr hashtbls)))

;; This needs to be seen by quail-update-leim-list-file, but cannot be
;; commented out because quail-update-leim-list-file ignores
;; commented-out lines.
(if nil
    (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
(quail-define-indian-trans-package
 indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
 "Devanagari transliteration by ITRANS method.")
(quail-defrule "..." ?॥)
(quail-defrule "\\'" ?॑)
(quail-defrule "\\_" ?॒)
(quail-defrule "\\__" ?_)
(quail-defrule "\\''" ?')

(if nil
    (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
(quail-define-indian-trans-package
 indian-dev-kyoto-harvard-hash
 "devanagari-kyoto-harvard" "Devanagari" "DevKH"
 "Devanagari transliteration by Kyoto-Harvard method.")

(if nil
    (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
(quail-define-indian-trans-package
 indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
 "Devanagari transliteration by Aiba-method.")

(if nil
    (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
(quail-define-indian-trans-package
 indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
 "Punjabi transliteration by ITRANS method.")

(if nil
    (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
(quail-define-indian-trans-package
 indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
 "Gujarati transliteration by ITRANS method.")

(if nil
    (quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
(quail-define-indian-trans-package
 indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
 "Oriya transliteration by ITRANS method.")

(if nil
    (quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
(quail-define-indian-trans-package
 indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
 "Bengali transliteration by ITRANS method.")

(if nil
    (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
(quail-define-indian-trans-package
 indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
 "Assamese transliteration by ITRANS method.")

(if nil
    (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
(quail-define-indian-trans-package
 indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
 "Telugu transliteration by ITRANS method.")

(if nil
    (quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
(quail-define-indian-trans-package
 indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
 "Kannada transliteration by ITRANS method.")

(if nil
    (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
(quail-define-indian-trans-package
 indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
 "Malayalam transliteration by ITRANS method.")

(defvar quail-tamil-itrans-syllable-table
  (let ((vowels
	 '(("அ" nil "a")
	   ("ஆ" "ா" "A")
	   ("இ" "ி" "i")
	   ("ஈ" "ீ" "I")
	   ("உ" "ு" "u")
	   ("ஊ" "ூ" "U")
	   ("எ" "ெ" "e")
	   ("ஏ" "ே" "E")
	   ("ஐ" "ை" "ai")
	   ("ஒ" "ொ" "o")
	   ("ஓ" "ோ" "O")
	   ("ஔ" "ௌ" "au")))
	(consonants
	 '(("க" "k")			; U+0B95
	   ("ங" "N^")			; U+0B99
	   ("ச" "ch")			; U+0B9A
	   ("ஞ" "JN")			; U+0B9E
	   ("ட" "T")			; U+0B9F
	   ("ண" "N")			; U+0BA3
	   ("த" "t")			; U+0BA4
	   ("ந" "n")			; U+0BA8
	   ("ப" "p")			; U+0BAA
	   ("ம" "m")			; U+0BAE
	   ("ய" "y")			; U+0BAF
	   ("ர" "r")			; U+0BB0
	   ("ல" "l")			; U+0BB2
	   ("வ" "v")			; U+0BB5
	   ("ழ" "z")			; U+0BB4
	   ("ள" "L")			; U+0BB3
	   ("ற" "rh")			; U+0BB1
	   ("ன" "nh")			; U+0BA9
	   ("ஜ" "j")			; U+0B9C
	   ("ஶ" nil)			; U+0BB6
	   ("ஷ" "Sh")			; U+0BB7
	   ("ஸ" "s")			; U+0BB8
	   ("ஹ" "h")			; U+0BB9
	   ("க்ஷ" "x" )			; U+0B95
	   ))
	(virama #x0BCD)
	clm)
    (with-temp-buffer
      (insert "\n")
      (insert "    +")
      (insert-char ?- 74)
      (insert "\n    |")
      (setq clm 6)
      (dolist (v vowels)
	(insert (propertize "\t" 'display (list 'space :align-to clm))
		(car v))
	(setq clm (+ clm 6)))
      (insert "\n    |")
      (setq clm 6)
      (dolist (v vowels)
	(insert (propertize "\t" 'display (list 'space :align-to clm))
		(nth 2 v))
	(setq clm (+ clm 6)))
      (dolist (c consonants)
	(insert "\n----+")
	(insert-char ?- 74)
	(insert "\n")
	(insert (car c) virama
		(propertize "\t" 'display '(space :align-to 4))
		"|")
	(setq clm 6)
	(dolist (v vowels)
	  (insert (propertize "\t" 'display (list 'space :align-to clm))
		  (car c) (or (nth 1 v) ""))
	  (setq clm (+ clm 6)))
	(insert "\n" (or (nth 1 c) "")
		(propertize "\t" 'display '(space :align-to 4))
		"|")
	(setq clm 6)

	(dolist (v vowels)
	  (apply 'insert (propertize "\t" 'display (list 'space :align-to clm))
		 (if (nth 1 c) (list (nth 1 c) (nth 2 v)) (list "")))
	  (setq clm (+ clm 6))))
      (insert "\n")
      (insert "----+")
      (insert-char ?- 74)
      (insert "\n")
      (buffer-string))))

(defvar quail-tamil-itrans-numerics-and-symbols-table
  (let ((numerics '((?௰ "பத்து") (?௱ "நூறு") (?௲ "ஆயிரம்")))
	(symbols '((?௳ "நாள்") (?௴ "மாதம்") (?௵ "வருடம்")
		   (?௶ "பற்று") (?௷ "வரவு") (?௸ "மேற்படி")
		   (?௹ "ரூபாய்") (?௺ "எண்")))
	clm)
    (with-temp-buffer
      (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
      (insert
       (propertize "\t" 'display '(space :align-to 5)) "numerics"
       (propertize "\t" 'display '(space :align-to 18)) "|"
       (propertize "\t" 'display '(space :align-to 45)) "symbols")
      (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
      (dotimes (i 2)
	(setq clm 0)
	(dolist (elm numerics)
	  (if (> clm 0)
	      (insert (propertize "\t" 'display (list 'space :align-to clm))))
	  (insert (nth i elm))
	  (setq clm (+ clm 5)))
	(insert (propertize "\t" 'display '(space :align-to 18)) "|")
	(setq clm 19)
	(dolist (elm symbols)
	  (if (> clm 19)
	      (insert (propertize "\t" 'display (list 'space :align-to clm))))
	  (insert (nth i elm))
	  (setq clm (+ clm 8)))
	(insert "\n"))
      (insert (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
      (insert "\n")
      (buffer-string))))

(defvar quail-tamil-itrans-various-signs-and-digits-table
  (let ((various '((?ஃ . "H") ("ஸ்ரீ" . "srii") (?ௐ)))
	(digits "௦௧௨௩௪௫௬௭௮௯")
	(width 6) clm)
    (with-temp-buffer
      (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
      (insert
       (propertize "\t" 'display '(space :align-to 5)) "various"
       (propertize "\t" 'display '(space :align-to 18)) "|"
       (propertize "\t" 'display '(space :align-to 45)) "digits")

      (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
      (setq clm 0 )

      (dotimes (i (length various))
	(insert (propertize "\t" 'display (list 'space :align-to clm))
		(car (nth i various)))
	(setq clm (+ clm width)))
      (insert (propertize "\t" 'display '(space :align-to 18)) "|")
      (setq clm 20)
      (dotimes (i 10)
	(insert (propertize "\t" 'display (list 'space :align-to clm))
		(aref digits i))
	(setq clm (+ clm width)))
      (insert "\n")
      (setq clm 0)
      (dotimes (i (length various))
	(insert (propertize "\t" 'display (list 'space :align-to clm))
		(or (cdr (nth i various)) ""))
	(setq clm (+ clm width)))
      (insert (propertize "\t" 'display '(space :align-to 18)) "|")
      (setq clm 20)
      (dotimes (i 10)
	(insert (propertize "\t" 'display (list 'space :align-to clm))
		(format "%d" i))
	(setq clm (+ clm width)))
      (insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
      (buffer-string))))

(if nil
    (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
(quail-define-indian-trans-package
 indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
 "Tamil transliteration by ITRANS method.

You can input characters using the following mapping tables.
    Example: To enter வணக்கம், type vaNakkam.

### Basic syllables (consonants + vowels) ###
\\<quail-tamil-itrans-syllable-table>

### Miscellaneous (various signs + digits) ###
\\<quail-tamil-itrans-various-signs-and-digits-table>

### Others (numerics + symbols) ###

Characters below have no ITRANS method associated with them.
Their descriptions are included for easy reference.
\\<quail-tamil-itrans-numerics-and-symbols-table>

Full key sequences are listed below:")

;;;
;;; Input by Inscript
;;;

(defun quail-define-inscript-package (char-tables key-tables pkgname lang
                                                  title docstring)
  (funcall 'quail-define-package pkgname lang title nil docstring
	   nil nil nil t nil nil nil nil)
  (let (char-table key-table char key)
    (while (and char-tables key-tables)
      (setq char-table  (car char-tables)
            char-tables (cdr char-tables)
            key-table   (car key-tables)
            key-tables  (cdr key-tables))
      (while (and char-table key-table)
        (setq char       (car char-table)
              char-table (cdr char-table)
              key        (car key-table)
              key-table  (cdr key-table))
        (if (and (consp char) (consp key))
            (setq char-table (append char char-table)
                  key-table  (append key  key-table))
          (if (and key char)
              (quail-defrule
               (if (characterp key) (char-to-string key) key)
               (if (stringp char)   (vector char) char))))))))

;;

(defvar inscript-dev-keytable
  '(
    (;; VOWELS  (18)
     (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
     (?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
     (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
    (;; CONSONANTS (42)
     ?k ?K ?i ?I ?U                ;; GRUTTALS
     ?\; ?: ?p ?P ?}               ;; PALATALS
     ?' ?\" ?\[ ?{ ?C              ;; CEREBRALS
     ?l ?L ?o ?O ?v ?V             ;; DENTALS
     ?h ?H ?y ?Y ?c                ;; LABIALS
     ?/ ?j ?J ?n ?N "N]" ?b        ;; SEMIVOWELS
     ?M ?< ?m ?u                   ;; SIBILANTS
     "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
     ?% ?&)
    (;; Misc Symbols (7)
     ?X ?x ?_ ">]" ?d "X]" ?>)
    (;; Digits
     ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
    (;; Inscripts
     ?# ?$ ?^ ?* ?\])))

(defvar inscript-mlm-keytable
  '(
    (;; VOWELS  (18)
     (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
     (?+ ?=) ("F]" "f]") (?! ?@) (?S ?s) (?Z ?z) (?W ?w)
     (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
    (;; CONSONANTS (42)
     ?k ?K ?i ?I ?U                ;; GRUTTALS
     ?\; ?: ?p ?P ?}               ;; PALATALS
     ?' ?\" ?\[ ?{ ?C              ;; CEREBRALS
     ?l ?L ?o ?O ?v ?V             ;; DENTALS
     ?h ?H ?y ?Y ?c                ;; LABIALS
     ?/ ?j ?J ?n ?N "N]" ?b        ;; SEMIVOWELS
     ?M ?< ?m ?u                   ;; SIBILANTS
     "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
     ?% ?&)
    (;; Misc Symbols (7)
     ?X ?x ?_ ">]" ?d "X]" ?>)
    (;; Digits
     ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
    (;; Inscripts
     ?# ?$ ?^ ?* ?\])))

(defvar inscript-tml-keytable
  '(
    (;; VOWELS  (18)
     (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
     nil nil nil (?S ?s) (?Z ?z) (?W ?w)
     nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
    (;; CONSONANTS (42)
     ?k ?K ?i ?I ?U                ;; GRUTTALS
     ?\; ?: ?p ?P ?}               ;; PALATALS
     ?' ?\" ?\[ ?{ ?C              ;; CEREBRALS
     ?l ?L ?o ?O ?v ?V             ;; DENTALS
     ?h ?H ?y ?Y ?c                ;; LABIALS
     ?/ ?j ?J ?n ?N "N]" ?b        ;; SEMIVOWELS
     ?M ?< ?m ?u                   ;; SIBILANTS
     "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
     ?% ?&)
    (;; Misc Symbols (7)
     ?X ?x ?_ ">]" ?d "X]" ?>)
    (;; Digits
     ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
    (;; Inscripts
     ?# ?$ ?^ ?* ?\])))

(if nil
    (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
(quail-define-inscript-package
 indian-dev-base-table inscript-dev-keytable
 "devanagari-inscript" "Devanagari" "DevIS"
 "Devanagari keyboard Inscript.")

(if nil
    (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
(quail-define-inscript-package
 indian-pnj-base-table inscript-dev-keytable
 "punjabi-inscript" "Punjabi" "PnjIS"
 "Punjabi keyboard Inscript.")

(if nil
    (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
(quail-define-inscript-package
 indian-gjr-base-table inscript-dev-keytable
 "gujarati-inscript" "Gujarati" "GjrIS"
 "Gujarati keyboard Inscript.")

(if nil
    (quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
(quail-define-inscript-package
 indian-ori-base-table inscript-dev-keytable
 "oriya-inscript" "Oriya" "OriIS"
 "Oriya keyboard Inscript.")

(if nil
    (quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
(quail-define-inscript-package
 indian-bng-base-table inscript-dev-keytable
 "bengali-inscript" "Bengali" "BngIS"
 "Bengali keyboard Inscript.")

(if nil
    (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
(quail-define-inscript-package
 indian-asm-base-table inscript-dev-keytable
 "assamese-inscript" "Assamese" "AsmIS"
 "Assamese keyboard Inscript.")

(if nil
    (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
(quail-define-inscript-package
 indian-tlg-base-table inscript-dev-keytable
 "telugu-inscript" "Telugu" "TlgIS"
 "Telugu keyboard Inscript.")

(if nil
    (quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
(quail-define-inscript-package
 indian-knd-base-table inscript-dev-keytable
 "kannada-inscript" "Kannada" "KndIS"
 "Kannada keyboard Inscript.")

(if nil
    (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
(quail-define-inscript-package
 indian-mlm-base-table inscript-mlm-keytable
 "malayalam-inscript" "Malayalam" "MlmIS"
 "Malayalam keyboard Inscript.")

(if nil
    (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
(quail-define-inscript-package
 indian-tml-base-table inscript-tml-keytable
 "tamil-inscript" "Tamil" "TmlIS"
 "Tamil keyboard Inscript.")

;;; indian.el ends here
Commit	Line	Data
3978dec0	1	;;; indian.el --- Quail packages for inputting Indian
c6974daa	2
ab422c4d	3	;; Copyright (C) 2000-2013 Free Software Foundation, Inc.
c6974daa RS	4
	5	;; Author: KAWABATA, Taichi <kawabata@m17n.org>
	6
	7	;; Keywords: multilingual, input method, Indian, Devanagari
	8
	9	;; This file is part of GNU Emacs.
	10
3d544458	11	;; GNU Emacs is free software: you can redistribute it and/or modify
c6974daa	12	;; it under the terms of the GNU General Public License as published by
3d544458 GM	13	;; the Free Software Foundation, either version 3 of the License, or
3d544458 GM	14	;; (at your option) any later version.
c6974daa RS	15
	16	;; GNU Emacs is distributed in the hope that it will be useful,
	17	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	;; GNU General Public License for more details.
	20
	21	;; You should have received a copy of the GNU General Public License
3d544458	22	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
c6974daa RS	23
	24	;;; Commentary:
	25
	26	;; History:
	27
96566974 DL	28	;; 2000.12.12
96566974 DL	29	;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
c6974daa RS	30
	31	;;; Code:
	32
c6974daa	33	(require 'quail)
c6974daa	34	(require 'ind-util)
c6974daa RS	35
	36	;;;
	37	;;; Input by transliteration
	38	;;;
	39
	40	(defun quail-define-indian-trans-package (hashtbls pkgname
	41	lang title doc)
	42	(funcall 'quail-define-package pkgname lang title t doc
4b379330	43	nil nil nil nil nil nil t nil)
96566974	44	(maphash
7f93e2ab DL	45	(lambda (key val)
	46	(quail-defrule key (if (= (length val) 1)
	47	(string-to-char val)
	48	(vector val))))
c6974daa RS	49	(cdr hashtbls)))
c6974daa RS	50
dfafefa1 EZ	51	;; This needs to be seen by quail-update-leim-list-file, but cannot be
	52	;; commented out because quail-update-leim-list-file ignores
	53	;; commented-out lines.
	54	(if nil
	55	(quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
c6974daa RS	56	(quail-define-indian-trans-package
	57	indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
	58	"Devanagari transliteration by ITRANS method.")
26090a27 KH	59	(quail-defrule "..." ?॥)
	60	(quail-defrule "\\'" ?॑)
	61	(quail-defrule "\\_" ?॒)
	62	(quail-defrule "\\__" ?_)
	63	(quail-defrule "\\''" ?')
c6974daa	64
dfafefa1 EZ	65	(if nil
dfafefa1 EZ	66	(quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
c6974daa RS	67	(quail-define-indian-trans-package
	68	indian-dev-kyoto-harvard-hash
	69	"devanagari-kyoto-harvard" "Devanagari" "DevKH"
	70	"Devanagari transliteration by Kyoto-Harvard method.")
	71
dfafefa1 EZ	72	(if nil
dfafefa1 EZ	73	(quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
c6974daa RS	74	(quail-define-indian-trans-package
	75	indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
	76	"Devanagari transliteration by Aiba-method.")
	77
32103956 KH	78	(if nil
	79	(quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
	80	(quail-define-indian-trans-package
	81	indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
	82	"Punjabi transliteration by ITRANS method.")
	83
	84	(if nil
	85	(quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
	86	(quail-define-indian-trans-package
	87	indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
	88	"Gujarati transliteration by ITRANS method.")
	89
	90	(if nil
	91	(quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
	92	(quail-define-indian-trans-package
	93	indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
	94	"Oriya transliteration by ITRANS method.")
	95
	96	(if nil
	97	(quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
	98	(quail-define-indian-trans-package
	99	indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
	100	"Bengali transliteration by ITRANS method.")
	101
	102	(if nil
	103	(quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
	104	(quail-define-indian-trans-package
	105	indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
	106	"Assamese transliteration by ITRANS method.")
	107
	108	(if nil
	109	(quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
	110	(quail-define-indian-trans-package
	111	indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
	112	"Telugu transliteration by ITRANS method.")
	113
	114	(if nil
	115	(quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
	116	(quail-define-indian-trans-package
	117	indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
	118	"Kannada transliteration by ITRANS method.")
	119
	120	(if nil
	121	(quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
	122	(quail-define-indian-trans-package
	123	indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
	124	"Malayalam transliteration by ITRANS method.")
	125
dd7aa8dd KH	126	(defvar quail-tamil-itrans-syllable-table
	127	(let ((vowels
	128	'(("அ" nil "a")
	129	("ஆ" "ா" "A")
	130	("இ" "ி" "i")
	131	("ஈ" "ீ" "I")
	132	("உ" "ு" "u")
	133	("ஊ" "ூ" "U")
	134	("எ" "ெ" "e")
	135	("ஏ" "ே" "E")
	136	("ஐ" "ை" "ai")
	137	("ஒ" "ொ" "o")
	138	("ஓ" "ோ" "O")
	139	("ஔ" "ௌ" "au")))
	140	(consonants
	141	'(("க" "k") ; U+0B95
	142	("ங" "N^") ; U+0B99
	143	("ச" "ch") ; U+0B9A
	144	("ஞ" "JN") ; U+0B9E
	145	("ட" "T") ; U+0B9F
	146	("ண" "N") ; U+0BA3
	147	("த" "t") ; U+0BA4
	148	("ந" "n") ; U+0BA8
	149	("ப" "p") ; U+0BAA
	150	("ம" "m") ; U+0BAE
	151	("ய" "y") ; U+0BAF
	152	("ர" "r") ; U+0BB0
	153	("ல" "l") ; U+0BB2
	154	("வ" "v") ; U+0BB5
	155	("ழ" "z") ; U+0BB4
	156	("ள" "L") ; U+0BB3
	157	("ற" "rh") ; U+0BB1
	158	("ன" "nh") ; U+0BA9
	159	("ஜ" "j") ; U+0B9C
	160	("ஶ" nil) ; U+0BB6
	161	("ஷ" "Sh") ; U+0BB7
	162	("ஸ" "s") ; U+0BB8
	163	("ஹ" "h") ; U+0BB9
	164	("க்ஷ" "x" ) ; U+0B95
	165	))
	166	(virama #x0BCD)
	167	clm)
	168	(with-temp-buffer
	169	(insert "\n")
	170	(insert " +")
	171	(insert-char ?- 74)
	172	(insert "\n \|")
	173	(setq clm 6)
	174	(dolist (v vowels)
	175	(insert (propertize "\t" 'display (list 'space :align-to clm))
	176	(car v))
	177	(setq clm (+ clm 6)))
	178	(insert "\n \|")
	179	(setq clm 6)
	180	(dolist (v vowels)
	181	(insert (propertize "\t" 'display (list 'space :align-to clm))
	182	(nth 2 v))
	183	(setq clm (+ clm 6)))
	184	(dolist (c consonants)
	185	(insert "\n----+")
	186	(insert-char ?- 74)
	187	(insert "\n")
	188	(insert (car c) virama
	189	(propertize "\t" 'display '(space :align-to 4))
190	"\|")
191	(setq clm 6)
192	(dolist (v vowels)
193	(insert (propertize "\t" 'display (list 'space :align-to clm))
194	(car c) (or (nth 1 v) ""))
195	(setq clm (+ clm 6)))
196	(insert "\n" (or (nth 1 c) "")
197	(propertize "\t" 'display '(space :align-to 4))
198	"\|")
199	(setq clm 6)
200
201	(dolist (v vowels)
202	(apply 'insert (propertize "\t" 'display (list 'space :align-to clm))
203	(if (nth 1 c) (list (nth 1 c) (nth 2 v)) (list "")))
204	(setq clm (+ clm 6))))
205	(insert "\n")
206	(insert "----+")
207	(insert-char ?- 74)
208	(insert "\n")
209	(buffer-string))))
210
211	(defvar quail-tamil-itrans-numerics-and-symbols-table
212	(let ((numerics '((?௰ "பத்து") (?௱ "நூறு") (?௲ "ஆயிரம்")))
213	(symbols '((?௳ "நாள்") (?௴ "மாதம்") (?௵ "வருடம்")
214	(?௶ "பற்று") (?௷ "வரவு") (?௸ "மேற்படி")
215	(?௹ "ரூபாய்") (?௺ "எண்")))
216	clm)
217	(with-temp-buffer
218	(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
219	(insert
220	(propertize "\t" 'display '(space :align-to 5)) "numerics"
221	(propertize "\t" 'display '(space :align-to 18)) "\|"
222	(propertize "\t" 'display '(space :align-to 45)) "symbols")
223	(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
224	(dotimes (i 2)
225	(setq clm 0)
226	(dolist (elm numerics)
227	(if (> clm 0)
228	(insert (propertize "\t" 'display (list 'space :align-to clm))))
229	(insert (nth i elm))
230	(setq clm (+ clm 5)))
231	(insert (propertize "\t" 'display '(space :align-to 18)) "\|")
232	(setq clm 19)
233	(dolist (elm symbols)
234	(if (> clm 19)
235	(insert (propertize "\t" 'display (list 'space :align-to clm))))
236	(insert (nth i elm))
237	(setq clm (+ clm 8)))
238	(insert "\n"))
239	(insert (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
240	(insert "\n")
241	(buffer-string))))
242
243	(defvar quail-tamil-itrans-various-signs-and-digits-table
244	(let ((various '((?ஃ . "H") ("ஸ்ரீ" . "srii") (?ௐ)))
245	(digits "௦௧௨௩௪௫௬௭௮௯")
246	(width 6) clm)
247	(with-temp-buffer
248	(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
249	(insert
250	(propertize "\t" 'display '(space :align-to 5)) "various"
251	(propertize "\t" 'display '(space :align-to 18)) "\|"
252	(propertize "\t" 'display '(space :align-to 45)) "digits")
253
254	(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
255	(setq clm 0 )
256
257	(dotimes (i (length various))
258	(insert (propertize "\t" 'display (list 'space :align-to clm))
259	(car (nth i various)))
260	(setq clm (+ clm width)))
261	(insert (propertize "\t" 'display '(space :align-to 18)) "\|")
262	(setq clm 20)
263	(dotimes (i 10)
264	(insert (propertize "\t" 'display (list 'space :align-to clm))
265	(aref digits i))
266	(setq clm (+ clm width)))
267	(insert "\n")
268	(setq clm 0)
269	(dotimes (i (length various))
270	(insert (propertize "\t" 'display (list 'space :align-to clm))
271	(or (cdr (nth i various)) ""))
272	(setq clm (+ clm width)))
273	(insert (propertize "\t" 'display '(space :align-to 18)) "\|")
274	(setq clm 20)
275	(dotimes (i 10)
276	(insert (propertize "\t" 'display (list 'space :align-to clm))
277	(format "%d" i))
278	(setq clm (+ clm width)))
279	(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
280	(buffer-string))))
281
32103956 KH	282	(if nil
	283	(quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
	284	(quail-define-indian-trans-package
	285	indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
dd7aa8dd KH	286	"Tamil transliteration by ITRANS method.
	287
	288	You can input characters using the following mapping tables.
	289	Example: To enter வணக்கம், type vaNakkam.
	290
	291	### Basic syllables (consonants + vowels) ###
	292	\\<quail-tamil-itrans-syllable-table>
	293
	294	### Miscellaneous (various signs + digits) ###
	295	\\<quail-tamil-itrans-various-signs-and-digits-table>
	296
	297	### Others (numerics + symbols) ###
	298
	299	Characters below have no ITRANS method associated with them.
	300	Their descriptions are included for easy reference.
	301	\\<quail-tamil-itrans-numerics-and-symbols-table>
32103956	302
dd7aa8dd	303	Full key sequences are listed below:")
32103956	304
c6974daa RS	305	;;;
	306	;;; Input by Inscript
	307	;;;
	308
e5dfa240 KH	309	(defun quail-define-inscript-package (char-tables key-tables pkgname lang
e5dfa240 KH	310	title docstring)
c6974daa	311	(funcall 'quail-define-package pkgname lang title nil docstring
0df648f9	312	nil nil nil t nil nil nil nil)
e5dfa240 KH	313	(let (char-table key-table char key)
	314	(while (and char-tables key-tables)
	315	(setq char-table (car char-tables)
	316	char-tables (cdr char-tables)
	317	key-table (car key-tables)
	318	key-tables (cdr key-tables))
	319	(while (and char-table key-table)
	320	(setq char (car char-table)
	321	char-table (cdr char-table)
	322	key (car key-table)
	323	key-table (cdr key-table))
	324	(if (and (consp char) (consp key))
	325	(setq char-table (append char char-table)
	326	key-table (append key key-table))
	327	(if (and key char)
	328	(quail-defrule
	329	(if (characterp key) (char-to-string key) key)
	330	(if (stringp char) (vector char) char))))))))
c6974daa RS	331
	332	;;
	333
	334	(defvar inscript-dev-keytable
	335	'(
	336	(;; VOWELS (18)
	337	(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
	338	(?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
	339	(?\| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
	340	(;; CONSONANTS (42)
	341	?k ?K ?i ?I ?U ;; GRUTTALS
96566974 DL	342	?\; ?: ?p ?P ?} ;; PALATALS
	343	?' ?\" ?\[ ?{ ?C ;; CEREBRALS
	344	?l ?L ?o ?O ?v ?V ;; DENTALS
	345	?h ?H ?y ?Y ?c ;; LABIALS
c6974daa	346	?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
96566974 DL	347	?M ?< ?m ?u ;; SIBILANTS
96566974 DL	348	"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
c6974daa	349	?% ?&)
96566974	350	(;; Misc Symbols (7)
c6974daa RS	351	?X ?x ?_ ">]" ?d "X]" ?>)
	352	(;; Digits
	353	?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
	354	(;; Inscripts
	355	?# ?$ ?^ ?* ?\])))
	356
09c91aff KH	357	(defvar inscript-mlm-keytable
	358	'(
	359	(;; VOWELS (18)
	360	(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
	361	(?+ ?=) ("F]" "f]") (?! ?@) (?S ?s) (?Z ?z) (?W ?w)
	362	(?\| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
	363	(;; CONSONANTS (42)
	364	?k ?K ?i ?I ?U ;; GRUTTALS
	365	?\; ?: ?p ?P ?} ;; PALATALS
	366	?' ?\" ?\[ ?{ ?C ;; CEREBRALS
	367	?l ?L ?o ?O ?v ?V ;; DENTALS
	368	?h ?H ?y ?Y ?c ;; LABIALS
	369	?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
	370	?M ?< ?m ?u ;; SIBILANTS
	371	"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
	372	?% ?&)
	373	(;; Misc Symbols (7)
	374	?X ?x ?_ ">]" ?d "X]" ?>)
	375	(;; Digits
	376	?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
	377	(;; Inscripts
	378	?# ?$ ?^ ?* ?\])))
	379
e5dfa240 KH	380	(defvar inscript-tml-keytable
	381	'(
	382	(;; VOWELS (18)
	383	(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
	384	nil nil nil (?S ?s) (?Z ?z) (?W ?w)
	385	nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
	386	(;; CONSONANTS (42)
	387	?k ?K ?i ?I ?U ;; GRUTTALS
	388	?\; ?: ?p ?P ?} ;; PALATALS
	389	?' ?\" ?\[ ?{ ?C ;; CEREBRALS
	390	?l ?L ?o ?O ?v ?V ;; DENTALS
	391	?h ?H ?y ?Y ?c ;; LABIALS
	392	?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
	393	?M ?< ?m ?u ;; SIBILANTS
	394	"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
	395	?% ?&)
	396	(;; Misc Symbols (7)
	397	?X ?x ?_ ">]" ?d "X]" ?>)
	398	(;; Digits
	399	?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
	400	(;; Inscripts
	401	?# ?$ ?^ ?* ?\])))
	402
dfafefa1 EZ	403	(if nil
dfafefa1 EZ	404	(quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
96566974	405	(quail-define-inscript-package
c6974daa RS	406	indian-dev-base-table inscript-dev-keytable
	407	"devanagari-inscript" "Devanagari" "DevIS"
	408	"Devanagari keyboard Inscript.")
	409
32103956 KH	410	(if nil
	411	(quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
	412	(quail-define-inscript-package
	413	indian-pnj-base-table inscript-dev-keytable
	414	"punjabi-inscript" "Punjabi" "PnjIS"
	415	"Punjabi keyboard Inscript.")
	416
	417	(if nil
	418	(quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
	419	(quail-define-inscript-package
	420	indian-gjr-base-table inscript-dev-keytable
	421	"gujarati-inscript" "Gujarati" "GjrIS"
	422	"Gujarati keyboard Inscript.")
	423
	424	(if nil
	425	(quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
	426	(quail-define-inscript-package
	427	indian-ori-base-table inscript-dev-keytable
	428	"oriya-inscript" "Oriya" "OriIS"
	429	"Oriya keyboard Inscript.")
	430
	431	(if nil
	432	(quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
	433	(quail-define-inscript-package
	434	indian-bng-base-table inscript-dev-keytable
	435	"bengali-inscript" "Bengali" "BngIS"
	436	"Bengali keyboard Inscript.")
	437
	438	(if nil
	439	(quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
	440	(quail-define-inscript-package
	441	indian-asm-base-table inscript-dev-keytable
	442	"assamese-inscript" "Assamese" "AsmIS"
	443	"Assamese keyboard Inscript.")
	444
	445	(if nil
	446	(quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
	447	(quail-define-inscript-package
71ec069c	448	indian-tlg-base-table inscript-dev-keytable
32103956 KH	449	"telugu-inscript" "Telugu" "TlgIS"
	450	"Telugu keyboard Inscript.")
	451
	452	(if nil
	453	(quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
	454	(quail-define-inscript-package
	455	indian-knd-base-table inscript-dev-keytable
	456	"kannada-inscript" "Kannada" "KndIS"
	457	"Kannada keyboard Inscript.")
	458
	459	(if nil
	460	(quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
	461	(quail-define-inscript-package
09c91aff	462	indian-mlm-base-table inscript-mlm-keytable
32103956 KH	463	"malayalam-inscript" "Malayalam" "MlmIS"
	464	"Malayalam keyboard Inscript.")
	465
	466	(if nil
	467	(quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
	468	(quail-define-inscript-package
e5dfa240	469	indian-tml-base-table inscript-tml-keytable
32103956 KH	470	"tamil-inscript" "Tamil" "TmlIS"
	471	"Tamil keyboard Inscript.")
	472
3978dec0	473	;;; indian.el ends here