1 ;;; indian.el --- Quail packages for inputting Indian
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 ;; Free Software Foundation, Inc.
6 ;; Author: KAWABATA, Taichi <kawabata@m17n.org>
8 ;; Keywords: multilingual, input method, Indian, Devanagari
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 3, or (at your option)
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02110-1301, USA.
32 ;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
40 ;;; Input by transliteration
43 (defun quail-define-indian-trans-package (hashtbls pkgname
45 (funcall 'quail-define-package pkgname lang title t doc
46 nil nil nil nil nil nil t nil
)
49 (quail-defrule key
(if (= (length val
) 1)
54 ;; This needs to be seen by quail-update-leim-list-file, but cannot be
55 ;; commented out because quail-update-leim-list-file ignores
56 ;; commented-out lines.
58 (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t
"Devanagari ITRANS"))
59 (quail-define-indian-trans-package
60 indian-dev-itrans-v5-hash
"devanagari-itrans" "Devanagari" "DevIT"
61 "Devanagari transliteration by ITRANS method.")
64 (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t
"Devanagari Kyoto-Harvard"))
65 (quail-define-indian-trans-package
66 indian-dev-kyoto-harvard-hash
67 "devanagari-kyoto-harvard" "Devanagari" "DevKH"
68 "Devanagari transliteration by Kyoto-Harvard method.")
71 (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t
"Devanagari Aiba"))
72 (quail-define-indian-trans-package
73 indian-dev-aiba-hash
"devanagari-aiba" "Devanagari" "DevAB"
74 "Devanagari transliteration by Aiba-method.")
77 (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t
"Punjabi ITRANS"))
78 (quail-define-indian-trans-package
79 indian-pnj-itrans-v5-hash
"punjabi-itrans" "Punjabi" "PnjIT"
80 "Punjabi transliteration by ITRANS method.")
83 (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t
"Gujarati ITRANS"))
84 (quail-define-indian-trans-package
85 indian-gjr-itrans-v5-hash
"gujarati-itrans" "Gujarati" "GjrIT"
86 "Gujarati transliteration by ITRANS method.")
89 (quail-define-package "oriya-itrans" "Oriya" "OriIT" t
"Oriya ITRANS"))
90 (quail-define-indian-trans-package
91 indian-ori-itrans-v5-hash
"oriya-itrans" "Oriya" "OriIT"
92 "Oriya transliteration by ITRANS method.")
95 (quail-define-package "bengali-itrans" "Bengali" "BngIT" t
"Bengali ITRANS"))
96 (quail-define-indian-trans-package
97 indian-bng-itrans-v5-hash
"bengali-itrans" "Bengali" "BngIT"
98 "Bengali transliteration by ITRANS method.")
101 (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t
"Assamese ITRANS"))
102 (quail-define-indian-trans-package
103 indian-asm-itrans-v5-hash
"assamese-itrans" "Assamese" "AsmIT"
104 "Assamese transliteration by ITRANS method.")
107 (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t
"Telugu ITRANS"))
108 (quail-define-indian-trans-package
109 indian-tlg-itrans-v5-hash
"telugu-itrans" "Telugu" "TlgIT"
110 "Telugu transliteration by ITRANS method.")
113 (quail-define-package "kannada-itrans" "Kannada" "KndIT" t
"Kannada ITRANS"))
114 (quail-define-indian-trans-package
115 indian-knd-itrans-v5-hash
"kannada-itrans" "Kannada" "KndIT"
116 "Kannada transliteration by ITRANS method.")
119 (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t
"Malayalam ITRANS"))
120 (quail-define-indian-trans-package
121 indian-mlm-itrans-v5-hash
"malayalam-itrans" "Malayalam" "MlmIT"
122 "Malayalam transliteration by ITRANS method.")
125 (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t
"Tamil ITRANS"))
126 (quail-define-indian-trans-package
127 indian-tml-itrans-v5-hash
"tamil-itrans" "Tamil" "TmlIT"
128 "Tamil transliteration by ITRANS method.")
132 ;;; Input by Inscript
135 (defun quail-define-inscript-package (char-tables key-tables pkgname lang
137 (funcall 'quail-define-package pkgname lang title nil docstring
138 nil nil nil nil nil nil nil nil
)
139 (let (char-table key-table char key
)
140 (while (and char-tables key-tables
)
141 (setq char-table
(car char-tables
)
142 char-tables
(cdr char-tables
)
143 key-table
(car key-tables
)
144 key-tables
(cdr key-tables
))
145 (while (and char-table key-table
)
146 (setq char
(car char-table
)
147 char-table
(cdr char-table
)
149 key-table
(cdr key-table
))
150 (if (and (consp char
) (consp key
))
151 (setq char-table
(append char char-table
)
152 key-table
(append key key-table
))
155 (if (characterp key
) (char-to-string key
) key
)
156 (if (stringp char
) (vector char
) char
))))))))
160 (defvar inscript-dev-keytable
163 (?D nil
) (?E ?e
) (?F ?f
) (?R ?r
) (?G ?g
) (?T ?t
)
164 (?
+ ?
=) ("F]" "f]") (?
! ?
@) (?Z ?z
) (?S ?s
) (?W ?w
)
165 (?| ?
\\) (?~ ?
`) (?A ?a
) (?Q ?q
) ("+]" "=]") ("R]" "r]"))
167 ?k ?K ?i ?I ?U
;; GRUTTALS
168 ?\
; ?: ?p ?P ?} ;; PALATALS
169 ?
' ?
\" ?\
[ ?
{ ?C
;; CEREBRALS
170 ?l ?L ?o ?O ?v ?V
;; DENTALS
171 ?h ?H ?y ?Y ?c
;; LABIALS
172 ?
/ ?j ?J ?n ?N
"N]" ?b
;; SEMIVOWELS
173 ?M ?
< ?m ?u
;; SIBILANTS
174 "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
177 ?X ?x ?_
">]" ?d
"X]" ?
>)
179 ?
0 ?
1 ?
2 ?
3 ?
4 ?
5 ?
6 ?
7 ?
8 ?
9)
183 (defvar inscript-tml-keytable
186 (?D nil
) (?E ?e
) (?F ?f
) (?R ?r
) (?G ?g
) (?T ?t
)
187 nil nil nil
(?S ?s
) (?Z ?z
) (?W ?w
)
188 nil
(?A ?a
) (?~ ?
`) (?Q ?q
) nil nil
)
190 ?k ?K ?i ?I ?U
;; GRUTTALS
191 ?\
; ?: ?p ?P ?} ;; PALATALS
192 ?
' ?
\" ?\
[ ?
{ ?C
;; CEREBRALS
193 ?l ?L ?o ?O ?v ?V
;; DENTALS
194 ?h ?H ?y ?Y ?c
;; LABIALS
195 ?
/ ?j ?J ?n ?N
"N]" ?b
;; SEMIVOWELS
196 ?M ?
< ?m ?u
;; SIBILANTS
197 "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
200 ?X ?x ?_
">]" ?d
"X]" ?
>)
202 ?
0 ?
1 ?
2 ?
3 ?
4 ?
5 ?
6 ?
7 ?
8 ?
9)
207 (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t
"Devanagari keyboard Inscript"))
208 (quail-define-inscript-package
209 indian-dev-base-table inscript-dev-keytable
210 "devanagari-inscript" "Devanagari" "DevIS"
211 "Devanagari keyboard Inscript.")
214 (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t
"Punjabi keyboard Inscript"))
215 (quail-define-inscript-package
216 indian-pnj-base-table inscript-dev-keytable
217 "punjabi-inscript" "Punjabi" "PnjIS"
218 "Punjabi keyboard Inscript.")
221 (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t
"Gujarati keyboard Inscript"))
222 (quail-define-inscript-package
223 indian-gjr-base-table inscript-dev-keytable
224 "gujarati-inscript" "Gujarati" "GjrIS"
225 "Gujarati keyboard Inscript.")
228 (quail-define-package "oriya-inscript" "Oriya" "OriIS" t
"Oriya keyboard Inscript"))
229 (quail-define-inscript-package
230 indian-ori-base-table inscript-dev-keytable
231 "oriya-inscript" "Oriya" "OriIS"
232 "Oriya keyboard Inscript.")
235 (quail-define-package "bengali-inscript" "Bengali" "BngIS" t
"Bengali keyboard Inscript"))
236 (quail-define-inscript-package
237 indian-bng-base-table inscript-dev-keytable
238 "bengali-inscript" "Bengali" "BngIS"
239 "Bengali keyboard Inscript.")
242 (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t
"Assamese keyboard Inscript"))
243 (quail-define-inscript-package
244 indian-asm-base-table inscript-dev-keytable
245 "assamese-inscript" "Assamese" "AsmIS"
246 "Assamese keyboard Inscript.")
249 (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t
"Telugu keyboard Inscript"))
250 (quail-define-inscript-package
251 indian-dev-base-table inscript-dev-keytable
252 "telugu-inscript" "Telugu" "TlgIS"
253 "Telugu keyboard Inscript.")
256 (quail-define-package "kannada-inscript" "Kannada" "KndIS" t
"Kannada keyboard Inscript"))
257 (quail-define-inscript-package
258 indian-knd-base-table inscript-dev-keytable
259 "kannada-inscript" "Kannada" "KndIS"
260 "Kannada keyboard Inscript.")
263 (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t
"Malayalam keyboard Inscript"))
264 (quail-define-inscript-package
265 indian-mlm-base-table inscript-dev-keytable
266 "malayalam-inscript" "Malayalam" "MlmIS"
267 "Malayalam keyboard Inscript.")
270 (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t
"Tamil keyboard Inscript"))
271 (quail-define-inscript-package
272 indian-tml-base-table inscript-tml-keytable
273 "tamil-inscript" "Tamil" "TmlIS"
274 "Tamil keyboard Inscript.")
276 ;;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
277 ;;; indian.el ends here