annotate leim/quail/devanagari.el @ 26481:70d85ae6dfee

(Fsingle_key_description): Use KEY_DESCRIPTION_SIZE to allocate memory for push_key_description. (describe_buffer_bindings): Likewise.
author Kenichi Handa <handa@m17n.org>
date Thu, 18 Nov 1999 05:10:13 +0000
parents db21a8833d0f
children 519983161a46
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 ;; quail/devanagari.el -- Quail packages for inputting Devanagari
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 ;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 ;; Keywords: multilingual, input method, Indian, Devanagari
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 ;; any later version.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 ;;; Commentary:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 ;; History:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 ;; 1996.10.10 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 ;; 1997.03.21 fixed by KAWABATA, Taichi
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 ;; I'm not sure if this keyboard layout is REALLY an ISCII keyboard layout.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 ;; Please let me know if it is not.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 ;;; Code:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (require 'quail)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 (require 'devan-util)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 ;; This function does nothing for now. For future use.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (defun quail-devanagari-update-translation (control-flag)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 (cond ((eq control-flag t) ; terminate translation with the whole key.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 (insert quail-current-str)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 (quail-terminate-translation))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 ((null control-flag) ; proceed translation with more keys.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 (insert (or quail-current-str quail-current-key)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 (t ; control-flag is the number of keys to be translated.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 (insert (aref quail-current-key 0))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 (setq unread-command-events
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 (list (aref quail-current-key control-flag))))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 (defun quail-devanagari-compose-characters ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 (interactive)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 (if (quail-point-in-conversion-region)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 (let* ((from (overlay-start quail-conv-overlay))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 (to (overlay-end quail-conv-overlay))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 (dstr (buffer-substring from to)))
23891
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
58 (setq overriding-terminal-local-map nil
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
59 quail-converting nil
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
60 quail-conversion-str
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
61 (concat (devanagari-compose-string dstr 'sanskrit)
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
62 (list (if (numberp last-command-char)
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
63 last-command-char
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
64 (get last-command-char 'ascii-character))))))))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 "devanagari-keyboard-a" "Devanagari" "DevK" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 "Devanagari input method with ISCII format
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 `$(5!\(B !$(5!.(B @$(5!c(B #x $x %x ^x &$(5")(B *$(5"((B ( ) _$(5!#(B +$(5!*(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 ~$(5!/(B 1$(5!r(B 2$(5!s(B 3$(5!t(B 4$(5!u(B 5$(5!v(B 6$(5!w(B 7$(5!x(B 8$(5!y(B 9$(5!z(B 0$(5!q(B - =$(5!_(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 Q$(5!f(B W$(5!-(B E$(5!%(B R$(5!'(B T$(5!)(B Y$(5!K(B U$(5!7(B I$(5!E(B O$(5!C(B P$(5!;(B {$(5!@(B }$(5!<(B |$(5!2(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 q$(5!f(B w$(5!b(B e$(5!Z(B r$(5!\(B t$(5!^(B y$(5!J(B u$(5!X(B i$(5!5(B o$(5!D(B p$(5!:(B [$(5!?(B ]$(5!i(B \\$(5!g(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 A$(5!0(B S$(5!,(B D$(5!$(B F$(5!&(B G$(5!((B H$(5!I(B J$(5!P(B K$(5!4(B l$(5!C(B :$(5!8(B \"$(5!>(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77 a$(5!e(B s$(5!a(B d$(5!h(B f$(5![(B g$(5!](B h$(5!H(B j$(5!O(B k$(5!3(B l$(5!B(B ;$(5!9(B '$(5!=(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 Z$(5!+(B X$(5!!(B C$(5!A(B V$(5!G(B B$(5!S(B N$(5!R(B M$(5!U(B <$(5!V(B >$(5!j(B ?$(5!N(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 z$(5!`(B x$(5!"(B c$(5!L(B v$(5!F(B b$(5!T(B n$(5!Q(B m$(5!W(B , . /$(5!M(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 ;;'quail-devanagari-update-translation
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 '((" " . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 ("-" . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 ("," . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 ("\C-m" . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 ([return] . quail-devanagari-compose-characters))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 ;; ..... (not prepared yet)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 ;; I forgot where I got this keymap from.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 ;; Please let me know if you know what this keymap is.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 (quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 ("`" ?$(5!\(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 ("~" ?$(5!/(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 ("1" ?$(5!r(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 ("!" ?$(5!.(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 ("2" ?$(5!s(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 ("@" ?$(5!c(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 ("3" ?$(5!t(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 ("#" ?# ) ; following "r" in keymap...
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 ("4" ?$(5!u(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 ("$" ?$ ) ; preceding "r" in keymap...
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 ("5" ?$(5!v(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 ("%" ?x ) ; ??
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 ("6" ?$(5!w(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 ("^" ?x ) ; %tra
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 ("7" ?$(5!x(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 ("&" ?$(5")(B) ; % special
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 ("8" ?$(5!y(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 ("*" ?$(5"((B) ; % special
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 ("9" ?$(5!z(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 ("(" ?\()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 ("0" ?$(5!q(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 (")" ?\))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 ("-" ?-)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 ("_" ?$(5!#(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 ("=" ?$(5!_(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 ("+" ?$(5!*(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 ("q" ?$(5!f(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 ("Q" ?$(5!1(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 ("w" ?$(5!b(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 ("W" ?$(5!-(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 ("e" ?$(5!Z(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 ("E" ?$(5!%(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 ("r" ?$(5!\(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 ("R" ?$(5!'(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 ("t" ?$(5!^(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 ("T" ?$(5!)(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 ("y" ?$(5!J(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 ("Y" ?$(5!K(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135 ("u" ?$(5!X(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 ("U" ?$(5!7(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 ("i" ?$(5!5(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 ("I" ?$(5!E(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139 ("o" ?$(5!D(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140 ("O" ?$(5!C(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 ("p" ?$(5!:(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142 ("P" ?$(5!;(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143 ("[" ?$(5!?(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 ("{" ?$(5!@(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 ("]" ?$(5!i(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 ("}" ?$(5!<(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147 ("\\" ?$(5!g(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 ("|" ?$(5!2(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 ("a" ?$(5!e(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150 ("A" ?$(5!0(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 ("s" ?$(5!a(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 ("S" ?$(5!,(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153 ("d" ?$(5!h(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 ("D" ?$(5!$(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155 ("f" ?$(5![(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 ("F" ?$(5!&(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 ("g" ?$(5!](B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 ("G" ?$(5!((B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159 ("h" ?$(5!H(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160 ("H" ?$(5!I(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 ("j" ?$(5!O(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 ("J" ?$(5!P(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 ("k" ?$(5!3(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164 ("K" ?$(5!4(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
165 ("l" ?$(5!B(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
166 ("L" ?$(5!C(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167 (";" ?$(5!8(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 (":" ?$(5!9(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169 ("'" ?$(5!=(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170 ("\"" ?$(5!>(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171 ("z" ?$(5!`(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172 ("Z" ?$(5!+(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
173 ("x" ?$(5!"(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
174 ("X" ?$(5!!(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175 ("c" ?$(5!L(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
176 ("C" ?$(5!A(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177 ("v" ?$(5!F(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 ("V" ?$(5!G(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 ("b" ?$(5!T(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
180 ("B" ?$(5!S(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 ("n" ?$(5!Q(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182 ("N" ?$(5!R(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
183 ("m" ?$(5!W(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184 ("M" ?$(5!U(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185 ;; ("," ?,)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
186 ("<" ?$(5!V(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187 ;; ("." ?.)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
188 (">" ?$(5!j(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
189 ("/" ?$(5!M(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
190 ("?" ?$(5!N(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
192
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
194 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
195 ;; Quail Devanagari Input By Transliteration
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
196 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
197
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198 (eval-when-compile
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
199
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200 (defvar devanagari-consonant-transliteration-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
201 '(
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
202 ; GUTTURALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
203 ("k" . "$(5!3(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
204 ("k." . "$(5!3!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205 ("kh" . "$(5!4(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 ("kh." . "$(5!4!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
207 ("g" . "$(5!5(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208 ("g." . "$(5!5!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 ("gh" . "$(5!6(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
210 ("G" . "$(5!7(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211 ; PALATALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212 ("c" . "$(5!8(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213 ("ch" . "$(5!9(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214 ("j" . "$(5!:(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 ("j." . "$(5!:!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
216 ("Z" . "$(5!:!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
217 ("jh" . "$(5!;(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
218 ("J" . "$(5!<(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
219 ; CEREBRALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
220 ("T" . "$(5!=(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
221 ("Th" . "$(5!>(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
222 ("D" . "$(5!?(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
223 ("D." . "$(5!?!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
224 ("Dh" . "$(5!@(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
225 ("Dh." . "$(5!@!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
226 ("N" . "$(5!A(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
227 ; DENTALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
228 ("t" . "$(5!B(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
229 ("th" . "$(5!C(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
230 ("d" . "$(5!D(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
231 ("dh" . "$(5!E(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
232 ("n" . "$(5!F(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233 ("N." . "$(5!G(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234 ; LABIALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 ("p" . "$(5!H(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236 ("ph" . "$(5!I(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237 ("ph." . "$(5!I!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
238 ("f" . "$(5!I(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239 ("f." . "$(5!I!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
240 ("b" . "$(5!J(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
241 ("bh" . "$(5!K(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
242 ("m" . "$(5!L(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
243 ; SEMIVOWELS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
244 ("y" . "$(5!M(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245 ("y." . "$(5!N(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
246 ("Y" . "$(5!N(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
247 ("r" . "$(5!O(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 ("r." . "$(5!P(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249 ("l" . "$(5!Q(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250 ("W" . "$(5!R(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 ("W." . "$(5!S(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
252 ("v" . "$(5!T(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253 ("w" . "$(5!T(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
254 ; SIBILANTS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255 ("z" . "$(5!U(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 ("S" . "$(5!V(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257 ("s" . "$(5!W(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258 ("h" . "$(5!X(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 ))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 (defvar devanagari-vowel-transliteration-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262 '(
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263 ;; Special treatment unique to IS 13194 Transliteration
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 ("" . "$(5!h(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265 ("a" . "")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 ; Matra (Vowel Sign)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 ("A" . "$(5!Z(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268 ("i" . "$(5![(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269 ("I" . "$(5!\(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 ("u" . "$(5!](B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271 ("U" . "$(5!^(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 ("R" . "$(5!_(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 ;; ("RR" . "x") ; not specified in ordinary IS 13194.(but in Unicode??)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 ("q" . "$(5#K(B") ; "$(5#K(B" = "$(5!_!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 ("L" . "$(5#L(B") ; "$(5#L(B" = "$(5![!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276 ("E" . "$(5#M(B") ; "$(5#M(B" = "$(5!\!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 ("E" . "$(5!`(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
278 ("e" . "$(5!a(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
279 ("ai" . "$(5!b(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
280 ("ae" . "$(5!b(B") ; variation of transliteration.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281 ("EE" . "$(5!c(B") ; only for transcription of other scripts. (Candra E)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282 ("O" . "$(5!d(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283 ("o" . "$(5!e(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
284 ("au" . "$(5!f(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285 ("ao" . "$(5!f(B") ; variation of transliteration.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
286 ("OO" . "$(5!g(B") ; only for transcription of other scripts. (Candra O)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
287 ))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290 ;; Independent vowels and other signs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 (defvar devanagari-other-letters-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 '(
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 ("a" . "$(5!$(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 ("A" . "$(5!%(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297 ("i" . "$(5!&(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 ("I" . "$(5!'(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299 ("u" . "$(5!((B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300 ("U" . "$(5!)(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301 ("R" . "$(5!*(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302 ;; ("RR" . "x") ; not specified in IS 13194. (but in Unicode??)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 ("q" . "$(5#*(B") ; "$(5#*(B" = "$(5!*!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 ("L" . "$(5#&(B") ; "$(5#&(B" = "$(5!&!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305 ("E" . "$(5#'(B") ; "$(5#'(B" = "$(5!'!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
306 ("Ex" . "$(5!+(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
307 ("e" . "$(5!,(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308 ("ai" . "$(5!-(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 ("EE" . "$(5!.(B") ; only for transcription of other scripts. (Candra E)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 ("O" . "$(5!/(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311 ("o" . "$(5!0(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 ("au" . "$(5!1(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313 ("ao" . "$(5!1(B") ; variation of transliteration.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314 ("OO" . "$(5!2(B") ; only for transcription of other scripts. (Candra O)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 ("'" . "$(5#J(B") ; avagraha
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316 ("@" . "$(5#!(B") ; OM
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 ("/" . "$(5!j(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 ("M" . "$(5!"(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 ("&" . "$(5!!(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320 ("H" . "$(5!#(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 ("." . "$(5!i(B") ; Nukta
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322 ("0" . "$(5!q(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
323 ("1" . "$(5!r(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324 ("2" . "$(5!s(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
325 ("3" . "$(5!t(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 ("4" . "$(5!u(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
327 ("5" . "$(5!v(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
328 ("6" . "$(5!w(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329 ("7" . "$(5!x(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
330 ("8" . "$(5!y(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 ("9" . "$(5!z(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332 ))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
333 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
335 (defmacro devanagari-transliteration-quail-define-rules ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
336 (cons 'quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337 (let ((cl devanagari-consonant-transliteration-alist)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 (ml devanagari-other-letters-alist) rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 (while cl
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 (let ((vl devanagari-vowel-transliteration-alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
341 (while vl
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
342 (setq rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
343 (cons (list (concat (car (car cl)) (car (car vl)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
344 (make-vector 1
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
345 (concat (cdr (car cl)) (cdr (car vl)))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
346 rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
347 (setq vl (cdr vl))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
348 (setq cl (cdr cl)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
349 (while ml
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350 (setq rules (cons (list (car (car ml))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
351 (make-vector 1 (cdr (car ml))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
352 rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
353 (setq ml (cdr ml)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
354 rules)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
356 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
357 "devanagari-transliteration" "Devanagari" "DEVt" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
358 "Devanagari input method by transliteration
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
359 VOWELS : a $(5!$(B A $(5!%(B i $(5!&(B I $(5!'(B u $(5!((B U $(5!)(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
360 R $(5!*(B q $(5#*(B L $(5#&(B E $(5#'(B Ex $(5!+(B e $(5!,(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
361 ai $(5!-(B EE $(5!.(B O $(5!/(B o $(5!0(B au $(5!1(B OO $(5!2(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
362 GRUTTALS : k $(5!3(B kh $(5!4(B g $(5!5(B gh $(5!6(B G $(5!7(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363 PALATALS : c $(5!8(B ch $(5!9(B j $(5!:(B jh $(5!;(B J $(5!<(B (Z $(5!:!i(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364 CEREBRALS : T $(5!=(B Th $(5!>(B D $(5!?(B Dh $(5!@(B N $(5!A(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 DENTALS : t $(5!B(B th $(5!C(B d $(5!D(B dh $(5!E(B n $(5!F(B (Nq $(5!G(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 LABIALS : p $(5!H(B ph $(5!I(B b $(5!J(B bh $(5!K(B m $(5!L(B (f $(5!I(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
367 SEMIVOWELS : y $(5!M(B Y $(5!N(B r $(5!O(B Rq $(5!P(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368 l $(5!Q(B W $(5!R(B W. $(5!S(B v $(5!T(B w $(5!T(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
369 SIBILANTS : z $(5!U(B S $(5!V(B s $(5!W(B h $(5!X(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
371 Specials : Anuswar M $(5!"(B Visarg H $(5!#(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
372 Chandrabindu & $(5!!(B Nukta . $(5!i(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 Danda / $(5!j(B Avagrah ' $(5#J(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 OM @ $(5#!(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
376 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377 ;; 'quail-devanagari-update-translation
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 '((" " . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380 ("-" . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381 ("," . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
382 ("\C-m" . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
383 ([return] . quail-devanagari-compose-characters))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 (devanagari-transliteration-quail-define-rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
388 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
389 ;; ITRANS - Indian Script Translation
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
392 (eval-and-compile
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
393
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
394 (defun rule-indian-to-devanagari (alist)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395 (if (null alist) nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
396 (cons (cons (car (car alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397 (indian-to-devanagari-string (cdr (car alist))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
398 (rule-indian-to-devanagari (cdr alist)))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
399 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
400
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
401 (eval-when-compile
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
403 (defvar devanagari-consonant-itrans-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404 (rule-indian-to-devanagari indian-itrans-consonant-alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
405
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
406 (defvar devanagari-vowel-itrans-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407 (rule-indian-to-devanagari indian-itrans-vowel-sign-alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
409 (defvar devanagari-other-letters-itrans-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
410 (rule-indian-to-devanagari indian-itrans-other-letters-alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
411
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
413
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
414 (defmacro devanagari-itrans-quail-define-rules ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 (cons 'quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
416 (let ((cl devanagari-consonant-itrans-alist)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417 (ml devanagari-other-letters-itrans-alist) rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418 (while cl
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 (let ((vl devanagari-vowel-itrans-alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420 (while vl
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421 (setq rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422 (cons (list (concat (car (car cl)) (car (car vl)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
423 (make-vector 1
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
424 (concat (cdr (car cl)) (cdr (car vl)))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
425 rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
426 (setq vl (cdr vl))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
427 (setq cl (cdr cl)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
428 (while ml
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
429 (setq rules (cons (list (car (car ml))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
430 (make-vector 1 (cdr (car ml))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
431 rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432 (setq ml (cdr ml)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
433 rules)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
434
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
435 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
436 "devanagari-itrans" "Devanagari" "DEVi" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
437 "Devanagari input method by ITRANS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
438 Special Keys : Anuswar n'
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
439 Chandrabindu nn'
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
440 Visarg nh
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
441 Nukta type capital letter for first character.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
442 $(5!7(B(ng) $(5!<(B(ny) $(5!A(B(nn) $(5!F(B(n) $(5!G(B(nnn)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
443 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
444 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
445 ;; 'quail-devanagari-update-translation
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
446 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
447 '((" " . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
448 ("-" . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449 ("," . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
450 ("\C-m" . quail-devanagari-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
451 ([return] . quail-devanagari-compose-characters))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
452 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
453
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
454 (devanagari-itrans-quail-define-rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
455
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
456
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
457 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
458 ;; Quail Hindi Input By Transliteration
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
459 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
460
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
461 (defun quail-devanagari-hindi-compose-characters ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
462 (interactive)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
463 (if (quail-point-in-conversion-region)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
464 (let* ((from (overlay-start quail-conv-overlay))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
465 (to (overlay-end quail-conv-overlay))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
466 (dstr (buffer-substring from to)))
23891
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
467 (setq overriding-terminal-local-map nil
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
468 quail-converting nil
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
469 quail-conversion-str
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
470 (concat (devanagari-compose-string dstr)
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
471 (list (if (numberp last-command-char)
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
472 last-command-char
db21a8833d0f (quail-devanagari-compose-characters):
Kenichi Handa <handa@m17n.org>
parents: 19518
diff changeset
473 (get last-command-char 'ascii-character))))))))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
474
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
475 (eval-when-compile
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
476
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
477 (defvar devanagari-hindi-consonant-transliteration-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
478 '(
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
479 ; GUTTURALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
480 ("k" . "$(5!3(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
481 ("ks" . "$(5$.(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
482 ("k." . "$(5!3!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
483 ("kh" . "$(5!4(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484 ("kh." . "$(5!4!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 ("g" . "$(5!5(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486 ("g." . "$(5!5!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
487 ("gh" . "$(5!6(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
488 ("G" . "$(5!7(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
489 ; PALATALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
490 ("ch" . "$(5!8(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
491 ("chh" . "$(5!9(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
492 ("j" . "$(5!:(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
493 ("j." . "$(5!:!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
494 ("z" . "$(5!:!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
495 ("jh" . "$(5!;(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
496 ("J" . "$(5!<(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
497 ; CEREBRALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
498 ("T" . "$(5!=(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
499 ("Th" . "$(5!>(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
500 ("D" . "$(5!?(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501 ("D." . "$(5!?!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
502 ("Dh" . "$(5!@(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
503 ("Dh." . "$(5!@!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
504 ("N" . "$(5!A(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505 ; DENTALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506 ("t" . "$(5!B(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507 ("th" . "$(5!C(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
508 ("d" . "$(5!D(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
509 ("dh" . "$(5!E(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
510 ("n" . "$(5!F(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
511 ("N." . "$(5!G(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
512 ; LABIALS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
513 ("p" . "$(5!H(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
514 ("ph" . "$(5!I(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 ("ph." . "$(5!I!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 ("f" . "$(5!I(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 ("f." . "$(5!I!i(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518 ("b" . "$(5!J(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 ("bh" . "$(5!K(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 ("m" . "$(5!L(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 ; SEMIVOWELS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
522 ("y" . "$(5!M(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
523 ("y." . "$(5!N(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
524 ("Y" . "$(5!N(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 ("r" . "$(5!O(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
526 ("r." . "$(5!P(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
527 ("l" . "$(5!Q(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
528 ("W" . "$(5!R(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
529 ("W." . "$(5!S(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
530 ("v" . "$(5!T(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
531 ("w" . "$(5!T(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
532 ; SIBILANTS
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
533 ("sh" . "$(5!U(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
534 ("S" . "$(5!V(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
535 ("s" . "$(5!W(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
536 ("h" . "$(5!X(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
537 ; Special for Hindi
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
538 ("ks" . "$(5$.(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
539 ("tr" . "$(5"%(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
540 ("xn" . "$(5$E(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
541 ))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
542
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
543 (defvar devanagari-hindi-vowel-transliteration-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
544 '(
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
545 ; In hindi, halant sign is rarely used so should explicity typed in.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
546 ("" . "")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547 ("~" . "$(5!h(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548 ; Matra (Vowel Sign)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 ("a" . "$(5!Z(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
550 ("i" . "$(5![(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551 ("I" . "$(5!\(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 ("u" . "$(5!](B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553 ("U" . "$(5!^(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 ("R" . "$(5!_(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 ;; ("RR" . "x") ; not specified in ordinary IS 13194.(but in Unicode??)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 ("q" . "$(5#K(B") ; "$(5#K(B" = "$(5!_!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557 ("L" . "$(5#L(B") ; "$(5#L(B" = "$(5![!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
558 ("E" . "$(5#M(B") ; "$(5#M(B" = "$(5!\!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
559 ("E" . "$(5!`(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
560 ("e" . "$(5!a(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
561 ("ai" . "$(5!b(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
562 ("ae" . "$(5!b(B") ; variation of transliteration.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
563 ("EE" . "$(5!c(B") ; only for transcription of other scripts. (Candra E)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564 ("O" . "$(5!d(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565 ("o" . "$(5!e(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
566 ("au" . "$(5!f(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
567 ("ao" . "$(5!f(B") ; variation of transliteration.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
568 ("OO" . "$(5!g(B") ; only for transcription of other scripts. (Candra O)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
569 ))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
570
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
571 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
572 ;; Independent vowels and other signs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
573 ;;
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
574
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
575 (defvar devanagari-hindi-other-letters-alist
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
576 '(
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
577 ("a" . "$(5!$(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
578 ("A" . "$(5!%(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
579 ("i" . "$(5!&(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
580 ("I" . "$(5!'(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
581 ("u" . "$(5!((B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
582 ("U" . "$(5!)(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
583 ("R" . "$(5!*(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
584 ;; ("RR" . "x") ; not specified in IS 13194. (but in Unicode??)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
585 ("q" . "$(5#*(B") ; "$(5#*(B" = "$(5!*!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
586 ("L" . "$(5#&(B") ; "$(5#&(B" = "$(5!&!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
587 ("E" . "$(5#'(B") ; "$(5#'(B" = "$(5!'!i(B" in IS 13194.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
588 ("Ex" . "$(5!+(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
589 ("e" . "$(5!,(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
590 ("ai" . "$(5!-(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
591 ("EE" . "$(5!.(B") ; only for transcription of other scripts. (Candra E)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
592 ("O" . "$(5!/(B") ; only for transcription of other scripts.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
593 ("o" . "$(5!0(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
594 ("au" . "$(5!1(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
595 ("ao" . "$(5!1(B") ; variation of transliteration.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
596 ("OO" . "$(5!2(B") ; only for transcription of other scripts. (Candra O)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
597 ("'" . "$(5#J(B") ; avagraha
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
598 ("@" . "$(5#!(B") ; OM
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
599 ("/" . "$(5!j(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
600 ("M" . "$(5!"(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
601 ("&" . "$(5!!(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
602 ("H" . "$(5!#(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
603 ("." . "$(5!i(B") ; Nukta
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
604 ("0" . "$(5!q(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
605 ("1" . "$(5!r(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
606 ("2" . "$(5!s(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
607 ("3" . "$(5!t(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
608 ("4" . "$(5!u(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
609 ("5" . "$(5!v(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
610 ("6" . "$(5!w(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
611 ("7" . "$(5!x(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
612 ("8" . "$(5!y(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
613 ("9" . "$(5!z(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
614 ))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
615 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
616
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
617 (defmacro devanagari-hindi-transliteration-quail-define-rules ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
618 (cons 'quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
619 (let ((cl devanagari-hindi-consonant-transliteration-alist)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
620 (ml devanagari-hindi-other-letters-alist) rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
621 (while cl
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
622 (let ((vl devanagari-hindi-vowel-transliteration-alist))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
623 (while vl
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
624 (setq rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
625 (cons (list (concat (car (car cl)) (car (car vl)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
626 (make-vector 1
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
627 (concat (cdr (car cl)) (cdr (car vl)))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
628 rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
629 (setq vl (cdr vl))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
630 (setq cl (cdr cl)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
631 (while ml
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
632 (setq rules (cons (list (car (car ml))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
633 (make-vector 1 (cdr (car ml))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
634 rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635 (setq ml (cdr ml)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
636 rules)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
637
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
638 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
639 "devanagari-hindi-transliteration" "Hindi" "HINt" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
640 "Devanagari-Hindi input method by transliteration
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
641 VOWELS : a $(5!$(B A $(5!%(B i $(5!&(B I $(5!'(B u $(5!((B U $(5!)(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
642 R $(5!*(B q $(5#*(B L $(5#&(B E $(5#'(B Ex $(5!+(B e $(5!,(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
643 ai $(5!-(B EE $(5!.(B O $(5!/(B o $(5!0(B au $(5!1(B OO $(5!2(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
644 GRUTTALS : k $(5!3(B kh $(5!4(B g $(5!5(B gh $(5!6(B G $(5!7(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
645 PALATALS : c $(5!8(B ch $(5!9(B j $(5!:(B jh $(5!;(B J $(5!<(B z $(5!:!i(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
646 CEREBRALS : T $(5!=(B Th $(5!>(B D $(5!?(B Dh $(5!@(B N $(5!A(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
647 DENTALS : t $(5!B(B th $(5!C(B d $(5!D(B dh $(5!E(B n $(5!F(B (Nq $(5!G(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
648 LABIALS : p $(5!H(B ph $(5!I(B b $(5!J(B bh $(5!K(B m $(5!L(B (f $(5!I(B)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
649 SEMIVOWELS : y $(5!M(B Y $(5!N(B r $(5!O(B Rq $(5!P(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
650 l $(5!Q(B W $(5!R(B W. $(5!S(B v $(5!T(B w $(5!T(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
651 SIBILANTS : sh $(5!U(B S $(5!V(B s $(5!W(B h $(5!X(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
652 OTHERS : ks $(5$.(B tr $(5"%(B xn $(5$E(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
653
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
654 Specials : Anuswar M $(5!"(B Visarg H $(5!#(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
655 Chandrabindu & $(5!!(B Nukta . $(5!i(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
656 Danda / $(5!j(B Avagrah ' $(5#J(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
657 OM @ $(5#!(B Halant ~ $(5!h(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
658 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
659 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
660 ;; 'quail-devanagari-update-translation
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
661 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
662 '((" " . quail-devanagari-hindi-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
663 ("-" . quail-devanagari-hindi-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
664 ("," . quail-devanagari-hindi-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
665 ("\C-m" . quail-devanagari-hindi-compose-characters)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
666 ([return] . quail-devanagari-hindi-compose-characters))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
667 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
668
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
669 (devanagari-hindi-transliteration-quail-define-rules)