1 ;;; indian.el --- Quail packages for inputting Indian
3 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
5 ;; Author: KAWABATA, Taichi <kawabata@m17n.org>
7 ;; Keywords: multilingual, input method, Indian, Devanagari
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
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.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
31 ;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
39 (defun quail-indian-preceding-char-position (position)
40 "Return the position of preceding composite character."
42 (if (char-valid-p (char-before position
)) ;; range o.k.
43 (if (setq prec-composed
(find-composition (1- position
)))
48 (defvar quail-indian-update-preceding-char nil
)
49 (make-variable-frame-local 'quail-indian-update-preceding-char
)
53 ;; CONTROL-FLAG is integer (n)
54 ;; quail-current-key :: keyboard input.
55 ;; Only first n can be translated.
56 ;; quail-current-string :: corresonding string. Translated when last
57 ;; time CONTROL-FLAG is nil.
58 ;; todo :: (1) put last (len-n) char to unrread-command-event.
59 ;; (2) put translated string to quail-current-string.
61 ;; CONTROL-FLAG is t (terminate) or nil (proceed the translation)
62 ;; quail-current-key :: keyboard input.
63 ;; quail-current-string :: corresponding string. Created by database.
64 ;; todo :: (1) put modified translated string to quail-current-string.
66 (defun quail-indian-update-translation (control-flag)
67 ;;(message "input control-flag=%s, string=%s, key=%s"
68 ;; control-flag quail-current-str quail-current-key)
69 ;; make quail-current-str string when possible.
70 (if (char-valid-p quail-current-str
)
71 (setq quail-current-str
(char-to-string quail-current-str
)))
72 ;; reset quail-indian-update-preceding-char if it's initial.
73 (if (= (overlay-start quail-overlay
) (overlay-end quail-overlay
))
74 (setq quail-indian-update-preceding-char nil
))
75 ;; set quial-indian-update-preceding-char if appropriate.
76 (let* (prec-char-position composition-regexp
77 prec-char-str candidate-str match-pos match-end
)
78 (when (and quail-current-str
79 (null input-method-use-echo-area
)
80 (null input-method-exit-on-first-char
)
81 (setq prec-char-position
82 (quail-indian-preceding-char-position
83 (overlay-start quail-overlay
)))
84 (setq composition-regexp
85 (if prec-char-position
86 (caar (elt composition-function-table
87 (char-after prec-char-position
)))))
88 ;; (null quail-indian-update-preceding-char)
90 (buffer-substring prec-char-position
91 (overlay-start quail-overlay
))
92 candidate-str
(concat prec-char-str quail-current-str
)
93 match-pos
(string-match composition-regexp candidate-str
)
94 match-end
(match-end 0))
95 (> match-end
(length prec-char-str
)))
96 (setq quail-indian-update-preceding-char prec-char-str
)
97 (delete-region prec-char-position
98 (overlay-start quail-overlay
))))
99 ;; make quail-current-str string when possible.
100 (if (null quail-current-str
)
101 (setq quail-current-str
""))
102 ;; set quail-current-str unless control-flag is number.
103 (if (numberp control-flag
)
104 (setq quail-indian-update-preceding-char nil
106 (if (equal quail-current-str
"")
107 (substring quail-current-key
0 control-flag
)
108 (indian-compose-string quail-current-str
))
109 unread-command-events
111 (substring quail-current-key control-flag
)))
112 (if quail-indian-update-preceding-char
113 (setq quail-current-str
114 (concat quail-indian-update-preceding-char
116 (setq quail-current-str
117 (indian-compose-string quail-current-str
)))
118 (when (eq t control-flag
)
119 ;; reset preceding-char if translation is terminated.
120 (setq quail-indian-update-preceding-char nil
))
121 ;; compose to previous char if it looks possible.
122 ;;(message " out control-flag=%s, string=%s, key=%s"
123 ;; control-flag quail-current-str quail-current-key)
127 ;;; Input by transliteration
130 (defun quail-define-indian-trans-package (hashtbls pkgname
132 (funcall 'quail-define-package pkgname lang title t doc
133 nil nil nil nil nil nil t nil
134 'quail-indian-update-translation
)
137 (quail-defrule key
(if (= (length val
) 1)
142 ;; This needs to be seen by quail-update-leim-list-file, but cannot be
143 ;; commented out because quail-update-leim-list-file ignores
144 ;; commented-out lines.
146 (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t
"Devanagari ITRANS"))
147 (quail-define-indian-trans-package
148 indian-dev-itrans-v5-hash
"devanagari-itrans" "Devanagari" "DevIT"
149 "Devanagari transliteration by ITRANS method.")
152 (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t
"Devanagari Kyoto-Harvard"))
153 (quail-define-indian-trans-package
154 indian-dev-kyoto-harvard-hash
155 "devanagari-kyoto-harvard" "Devanagari" "DevKH"
156 "Devanagari transliteration by Kyoto-Harvard method.")
159 (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t
"Devanagari Aiba"))
160 (quail-define-indian-trans-package
161 indian-dev-aiba-hash
"devanagari-aiba" "Devanagari" "DevAB"
162 "Devanagari transliteration by Aiba-method.")
165 (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t
"Punjabi ITRANS"))
166 (quail-define-indian-trans-package
167 indian-pnj-itrans-v5-hash
"punjabi-itrans" "Punjabi" "PnjIT"
168 "Punjabi transliteration by ITRANS method.")
171 (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t
"Gujarati ITRANS"))
172 (quail-define-indian-trans-package
173 indian-gjr-itrans-v5-hash
"gujarati-itrans" "Gujarati" "GjrIT"
174 "Gujarati transliteration by ITRANS method.")
177 (quail-define-package "oriya-itrans" "Oriya" "OriIT" t
"Oriya ITRANS"))
178 (quail-define-indian-trans-package
179 indian-ori-itrans-v5-hash
"oriya-itrans" "Oriya" "OriIT"
180 "Oriya transliteration by ITRANS method.")
183 (quail-define-package "bengali-itrans" "Bengali" "BngIT" t
"Bengali ITRANS"))
184 (quail-define-indian-trans-package
185 indian-bng-itrans-v5-hash
"bengali-itrans" "Bengali" "BngIT"
186 "Bengali transliteration by ITRANS method.")
189 (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t
"Assamese ITRANS"))
190 (quail-define-indian-trans-package
191 indian-asm-itrans-v5-hash
"assamese-itrans" "Assamese" "AsmIT"
192 "Assamese transliteration by ITRANS method.")
195 (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t
"Telugu ITRANS"))
196 (quail-define-indian-trans-package
197 indian-tlg-itrans-v5-hash
"telugu-itrans" "Telugu" "TlgIT"
198 "Telugu transliteration by ITRANS method.")
201 (quail-define-package "kannada-itrans" "Kannada" "KndIT" t
"Kannada ITRANS"))
202 (quail-define-indian-trans-package
203 indian-knd-itrans-v5-hash
"kannada-itrans" "Kannada" "KndIT"
204 "Kannada transliteration by ITRANS method.")
207 (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t
"Malayalam ITRANS"))
208 (quail-define-indian-trans-package
209 indian-mlm-itrans-v5-hash
"malayalam-itrans" "Malayalam" "MlmIT"
210 "Malayalam transliteration by ITRANS method.")
213 (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t
"Tamil ITRANS"))
214 (quail-define-indian-trans-package
215 indian-tml-itrans-v5-hash
"tamil-itrans" "Tamil" "TmlIT"
216 "Tamil transliteration by ITRANS method.")
220 ;;; Input by Inscript
223 (defun quail-indian-flatten-list (lst)
224 "Flatten the nested LIST so that there would be no innner list."
226 (apply 'append
(mapcar 'quail-indian-flatten-list lst
))
229 (defun quail-define-inscript-package (char-table key-table pkgname lang title
231 (setq char-table
(quail-indian-flatten-list char-table
))
232 (setq key-table
(quail-indian-flatten-list key-table
))
233 (funcall 'quail-define-package pkgname lang title nil docstring
234 nil nil nil nil nil nil nil nil
235 'quail-indian-update-translation
)
236 (dolist (key key-table
)
237 (let ((val (pop char-table
)))
240 (if (char-valid-p key
) (char-to-string key
) key
)
241 (if (stringp val
) (vector val
) val
))))))
245 (defvar inscript-dev-keytable
248 (?D nil
) (?E ?e
) (?F ?f
) (?R ?r
) (?G ?g
) (?T ?t
)
249 (?
+ ?
=) ("F]" "f]") (?
! ?
@) (?Z ?z
) (?S ?s
) (?W ?w
)
250 (?| ?
\\) (?~ ?
`) (?A ?a
) (?Q ?q
) ("+]" "=]") ("R]" "r]"))
252 ?k ?K ?i ?I ?U
;; GRUTTALS
253 ?\
; ?: ?p ?P ?} ;; PALATALS
254 ?
' ?
\" ?\
[ ?
{ ?C
;; CEREBRALS
255 ?l ?L ?o ?O ?v ?V
;; DENTALS
256 ?h ?H ?y ?Y ?c
;; LABIALS
257 ?
/ ?j ?J ?n ?N
"N]" ?b
;; SEMIVOWELS
258 ?M ?
< ?m ?u
;; SIBILANTS
259 "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
262 ?X ?x ?_
">]" ?d
"X]" ?
>)
264 ?
0 ?
1 ?
2 ?
3 ?
4 ?
5 ?
6 ?
7 ?
8 ?
9)
269 (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t
"Devanagari keyboard Inscript"))
270 (quail-define-inscript-package
271 indian-dev-base-table inscript-dev-keytable
272 "devanagari-inscript" "Devanagari" "DevIS"
273 "Devanagari keyboard Inscript.")
276 (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t
"Punjabi keyboard Inscript"))
277 (quail-define-inscript-package
278 indian-pnj-base-table inscript-dev-keytable
279 "punjabi-inscript" "Punjabi" "PnjIS"
280 "Punjabi keyboard Inscript.")
283 (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t
"Gujarati keyboard Inscript"))
284 (quail-define-inscript-package
285 indian-gjr-base-table inscript-dev-keytable
286 "gujarati-inscript" "Gujarati" "GjrIS"
287 "Gujarati keyboard Inscript.")
290 (quail-define-package "oriya-inscript" "Oriya" "OriIS" t
"Oriya keyboard Inscript"))
291 (quail-define-inscript-package
292 indian-ori-base-table inscript-dev-keytable
293 "oriya-inscript" "Oriya" "OriIS"
294 "Oriya keyboard Inscript.")
297 (quail-define-package "bengali-inscript" "Bengali" "BngIS" t
"Bengali keyboard Inscript"))
298 (quail-define-inscript-package
299 indian-bng-base-table inscript-dev-keytable
300 "bengali-inscript" "Bengali" "BngIS"
301 "Bengali keyboard Inscript.")
304 (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t
"Assamese keyboard Inscript"))
305 (quail-define-inscript-package
306 indian-asm-base-table inscript-dev-keytable
307 "assamese-inscript" "Assamese" "AsmIS"
308 "Assamese keyboard Inscript.")
311 (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t
"Telugu keyboard Inscript"))
312 (quail-define-inscript-package
313 indian-dev-base-table inscript-dev-keytable
314 "telugu-inscript" "Telugu" "TlgIS"
315 "Telugu keyboard Inscript.")
318 (quail-define-package "kannada-inscript" "Kannada" "KndIS" t
"Kannada keyboard Inscript"))
319 (quail-define-inscript-package
320 indian-knd-base-table inscript-dev-keytable
321 "kannada-inscript" "Kannada" "KndIS"
322 "Kannada keyboard Inscript.")
325 (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t
"Malayalam keyboard Inscript"))
326 (quail-define-inscript-package
327 indian-mlm-base-table inscript-dev-keytable
328 "malayalam-inscript" "Malayalam" "MlmIS"
329 "Malayalam keyboard Inscript.")
332 (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t
"Tamil keyboard Inscript"))
333 (quail-define-inscript-package
334 indian-tml-base-table inscript-dev-keytable
335 "tamil-inscript" "Tamil" "TmlIS"
336 "Tamil keyboard Inscript.")
338 ;;; indian.el ends here