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.
41 ;;; Input by transliteration
44 (defun quail-define-indian-trans-package (hashtbls pkgname
46 (funcall 'quail-define-package pkgname lang title t doc
47 nil nil nil nil nil nil t nil
)
50 (quail-defrule key
(if (= (length val
) 1)
55 ;; This needs to be seen by quail-update-leim-list-file, but cannot be
56 ;; commented out because quail-update-leim-list-file ignores
57 ;; commented-out lines.
59 (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t
"Devanagari ITRANS"))
60 (quail-define-indian-trans-package
61 indian-dev-itrans-v5-hash
"devanagari-itrans" "Devanagari" "DevIT"
62 "Devanagari transliteration by ITRANS method.")
65 (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t
"Devanagari Kyoto-Harvard"))
66 (quail-define-indian-trans-package
67 indian-dev-kyoto-harvard-hash
68 "devanagari-kyoto-harvard" "Devanagari" "DevKH"
69 "Devanagari transliteration by Kyoto-Harvard method.")
72 (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t
"Devanagari Aiba"))
73 (quail-define-indian-trans-package
74 indian-dev-aiba-hash
"devanagari-aiba" "Devanagari" "DevAB"
75 "Devanagari transliteration by Aiba-method.")
78 (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t
"Punjabi ITRANS"))
79 (quail-define-indian-trans-package
80 indian-pnj-itrans-v5-hash
"punjabi-itrans" "Punjabi" "PnjIT"
81 "Punjabi transliteration by ITRANS method.")
84 (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t
"Gujarati ITRANS"))
85 (quail-define-indian-trans-package
86 indian-gjr-itrans-v5-hash
"gujarati-itrans" "Gujarati" "GjrIT"
87 "Gujarati transliteration by ITRANS method.")
90 (quail-define-package "oriya-itrans" "Oriya" "OriIT" t
"Oriya ITRANS"))
91 (quail-define-indian-trans-package
92 indian-ori-itrans-v5-hash
"oriya-itrans" "Oriya" "OriIT"
93 "Oriya transliteration by ITRANS method.")
96 (quail-define-package "bengali-itrans" "Bengali" "BngIT" t
"Bengali ITRANS"))
97 (quail-define-indian-trans-package
98 indian-bng-itrans-v5-hash
"bengali-itrans" "Bengali" "BngIT"
99 "Bengali transliteration by ITRANS method.")
102 (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t
"Assamese ITRANS"))
103 (quail-define-indian-trans-package
104 indian-asm-itrans-v5-hash
"assamese-itrans" "Assamese" "AsmIT"
105 "Assamese transliteration by ITRANS method.")
108 (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t
"Telugu ITRANS"))
109 (quail-define-indian-trans-package
110 indian-tlg-itrans-v5-hash
"telugu-itrans" "Telugu" "TlgIT"
111 "Telugu transliteration by ITRANS method.")
114 (quail-define-package "kannada-itrans" "Kannada" "KndIT" t
"Kannada ITRANS"))
115 (quail-define-indian-trans-package
116 indian-knd-itrans-v5-hash
"kannada-itrans" "Kannada" "KndIT"
117 "Kannada transliteration by ITRANS method.")
120 (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t
"Malayalam ITRANS"))
121 (quail-define-indian-trans-package
122 indian-mlm-itrans-v5-hash
"malayalam-itrans" "Malayalam" "MlmIT"
123 "Malayalam transliteration by ITRANS method.")
126 (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t
"Tamil ITRANS"))
127 (quail-define-indian-trans-package
128 indian-tml-itrans-v5-hash
"tamil-itrans" "Tamil" "TmlIT"
129 "Tamil transliteration by ITRANS method.")
133 ;;; Input by Inscript
136 (defun quail-define-inscript-package (char-tables key-tables pkgname lang
138 (funcall 'quail-define-package pkgname lang title nil docstring
139 nil nil nil nil nil nil nil nil
)
140 (let (char-table key-table char key
)
141 (while (and char-tables key-tables
)
142 (setq char-table
(car char-tables
)
143 char-tables
(cdr char-tables
)
144 key-table
(car key-tables
)
145 key-tables
(cdr key-tables
))
146 (while (and char-table key-table
)
147 (setq char
(car char-table
)
148 char-table
(cdr char-table
)
150 key-table
(cdr key-table
))
151 (if (and (consp char
) (consp key
))
152 (setq char-table
(append char char-table
)
153 key-table
(append key key-table
))
156 (if (characterp key
) (char-to-string key
) key
)
157 (if (stringp char
) (vector char
) char
))))))))
161 (defvar inscript-dev-keytable
164 (?D nil
) (?E ?e
) (?F ?f
) (?R ?r
) (?G ?g
) (?T ?t
)
165 (?
+ ?
=) ("F]" "f]") (?
! ?
@) (?Z ?z
) (?S ?s
) (?W ?w
)
166 (?| ?
\\) (?~ ?
`) (?A ?a
) (?Q ?q
) ("+]" "=]") ("R]" "r]"))
168 ?k ?K ?i ?I ?U
;; GRUTTALS
169 ?\
; ?: ?p ?P ?} ;; PALATALS
170 ?
' ?
\" ?\
[ ?
{ ?C
;; CEREBRALS
171 ?l ?L ?o ?O ?v ?V
;; DENTALS
172 ?h ?H ?y ?Y ?c
;; LABIALS
173 ?
/ ?j ?J ?n ?N
"N]" ?b
;; SEMIVOWELS
174 ?M ?
< ?m ?u
;; SIBILANTS
175 "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
178 ?X ?x ?_
">]" ?d
"X]" ?
>)
180 ?
0 ?
1 ?
2 ?
3 ?
4 ?
5 ?
6 ?
7 ?
8 ?
9)
184 (defvar inscript-tml-keytable
187 (?D nil
) (?E ?e
) (?F ?f
) (?R ?r
) (?G ?g
) (?T ?t
)
188 nil nil nil
(?S ?s
) (?Z ?z
) (?W ?w
)
189 nil
(?A ?a
) (?~ ?
`) (?Q ?q
) nil nil
)
191 ?k ?K ?i ?I ?U
;; GRUTTALS
192 ?\
; ?: ?p ?P ?} ;; PALATALS
193 ?
' ?
\" ?\
[ ?
{ ?C
;; CEREBRALS
194 ?l ?L ?o ?O ?v ?V
;; DENTALS
195 ?h ?H ?y ?Y ?c
;; LABIALS
196 ?
/ ?j ?J ?n ?N
"N]" ?b
;; SEMIVOWELS
197 ?M ?
< ?m ?u
;; SIBILANTS
198 "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
201 ?X ?x ?_
">]" ?d
"X]" ?
>)
203 ?
0 ?
1 ?
2 ?
3 ?
4 ?
5 ?
6 ?
7 ?
8 ?
9)
208 (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t
"Devanagari keyboard Inscript"))
209 (quail-define-inscript-package
210 indian-dev-base-table inscript-dev-keytable
211 "devanagari-inscript" "Devanagari" "DevIS"
212 "Devanagari keyboard Inscript.")
215 (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t
"Punjabi keyboard Inscript"))
216 (quail-define-inscript-package
217 indian-pnj-base-table inscript-dev-keytable
218 "punjabi-inscript" "Punjabi" "PnjIS"
219 "Punjabi keyboard Inscript.")
222 (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t
"Gujarati keyboard Inscript"))
223 (quail-define-inscript-package
224 indian-gjr-base-table inscript-dev-keytable
225 "gujarati-inscript" "Gujarati" "GjrIS"
226 "Gujarati keyboard Inscript.")
229 (quail-define-package "oriya-inscript" "Oriya" "OriIS" t
"Oriya keyboard Inscript"))
230 (quail-define-inscript-package
231 indian-ori-base-table inscript-dev-keytable
232 "oriya-inscript" "Oriya" "OriIS"
233 "Oriya keyboard Inscript.")
236 (quail-define-package "bengali-inscript" "Bengali" "BngIS" t
"Bengali keyboard Inscript"))
237 (quail-define-inscript-package
238 indian-bng-base-table inscript-dev-keytable
239 "bengali-inscript" "Bengali" "BngIS"
240 "Bengali keyboard Inscript.")
243 (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t
"Assamese keyboard Inscript"))
244 (quail-define-inscript-package
245 indian-asm-base-table inscript-dev-keytable
246 "assamese-inscript" "Assamese" "AsmIS"
247 "Assamese keyboard Inscript.")
250 (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t
"Telugu keyboard Inscript"))
251 (quail-define-inscript-package
252 indian-dev-base-table inscript-dev-keytable
253 "telugu-inscript" "Telugu" "TlgIS"
254 "Telugu keyboard Inscript.")
257 (quail-define-package "kannada-inscript" "Kannada" "KndIS" t
"Kannada keyboard Inscript"))
258 (quail-define-inscript-package
259 indian-knd-base-table inscript-dev-keytable
260 "kannada-inscript" "Kannada" "KndIS"
261 "Kannada keyboard Inscript.")
264 (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t
"Malayalam keyboard Inscript"))
265 (quail-define-inscript-package
266 indian-mlm-base-table inscript-dev-keytable
267 "malayalam-inscript" "Malayalam" "MlmIS"
268 "Malayalam keyboard Inscript.")
271 (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t
"Tamil keyboard Inscript"))
272 (quail-define-inscript-package
273 indian-tml-base-table inscript-tml-keytable
274 "tamil-inscript" "Tamil" "TmlIS"
275 "Tamil keyboard Inscript.")
277 ;;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
278 ;;; indian.el ends here