Mercurial > emacs
annotate leim/quail/tibetan.el @ 23849:1f014e9d0768
(tex-generate-zap-file-name): Don't start the name with #.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 10 Dec 1998 03:17:51 +0000 |
parents | 63c9c2cc91b7 |
children | cd1cb9bf30e1 |
rev | line source |
---|---|
18968 | 1 ;;; quail/tibetan.el -- Quail package for inputting Tibetan characters |
2 | |
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. | |
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
5 | |
6 ;; Keywords: multilingual, input method, Tibetan | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
23 | |
24 ;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch> | |
25 | |
26 ;; Created: Feb. 17. 1997 | |
27 | |
28 ;; History: | |
29 ;; 1997.03.13 Support for inputting special signs and punctuations added. | |
30 ;; (Only Ext. Wylie input) | |
31 | |
32 ;;; Code: | |
33 | |
34 (require 'quail) | |
35 | |
36 ;;; | |
37 ;;; Functions for making some composite punctuations. | |
38 ;;; | |
39 | |
40 (defun tibetan-quail-bzhi-shad (&rest ignore) | |
41 (quail-delete-region) | |
42 (quail-delete-overlays) | |
43 (insert (compose-chars ?$(7!>(B '(mr . ml) ?\x20 '(mr . ml) ?$(7!>(B)) | |
44 (throw 'quail-tag nil)) | |
45 | |
46 (defun tibetan-quail-nyi-zla (&rest ignore) | |
47 (quail-delete-region) | |
48 (quail-delete-overlays) | |
49 (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B)) | |
50 (throw 'quail-tag nil)) | |
51 | |
52 (defun tibetan-quail-nyi-zla-phur-shad (&rest ignore) | |
53 (quail-delete-region) | |
54 (quail-delete-overlays) | |
55 (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B '(bc . tl) ?$(7!I(B)) | |
56 (throw 'quail-tag nil)) | |
57 | |
58 (defun tibetan-quail-nyi-zla-double (&rest ignore) | |
59 (quail-delete-region) | |
60 (quail-delete-overlays) | |
61 (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B '(mr . ml) ?$(7#S(B)) | |
62 (throw 'quail-tag nil)) | |
63 | |
64 (defun tibetan-quail-nyi-zla-triple (&rest ignore) | |
65 (quail-delete-region) | |
66 (quail-delete-overlays) | |
67 (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B '(mr . ml) ?$(7#S(B '(mr . ml) ?$(7#S(B)) | |
68 (throw 'quail-tag nil)) | |
69 | |
70 ;;; | |
71 ;;; Setting-ups for Extended Wylie input. | |
72 ;;; | |
73 | |
74 (defun quail-tibetan-input-wylie (key &rest ignore) | |
75 (let (pc) | |
76 (quail-delete-region) | |
77 (quail-delete-overlays) | |
23170
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
78 (setq pc (char-before (overlay-start quail-overlay)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
79 quail-current-str (tibetan-composition pc key)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
80 (if (not (bobp)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
81 (progn |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
82 (delete-char -1) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
83 (insert (aref quail-current-str 0)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
84 (setq quail-current-str (substring quail-current-str 1)))) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
85 (move-overlay quail-overlay (point) (point)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
86 (insert quail-current-str) |
18968 | 87 (throw 'quail-tag nil))) |
88 | |
89 | |
90 (quail-define-package "tibetan-wylie" "Tibetan" "TIBw" t | |
91 "Tibetan character input by Extended Wylie key assignment. | |
92 | |
93 +-------------------------------------+ | |
23170
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
94 |2$(7"!`#T(B1$(8!;(B k |2$(7""`#T(B1$(8!;(B kh |2$(7"#`#T(B1$(8!;(B g |2$(7"$`#T(B1$(8!;(B gh |2$(7"%`#T(B1$(8!;(B ng| $(7"S(B i $(8!=(B / |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
95 |2$(7"&`#T(B1$(8!;(B c |2$(7"'`#T(B1$(8!;(B ch |2$(7"(`#T(B1$(8!;(B j | |$(7"*$(8!;(B ny| $(7"U(B u $(7!>(B // |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
96 |$(7"+$(8!;(B T |$(7",$(8!;(B TH |$(7"-$(8!;(B D |$(7".$(8!;(B DH |$(7"/$(8!;(B N | $(7"[(B e 2$(7!>P(B P$(7!>(B1 //// |
18968 | 97 |$(7"0$(8!;(B t |$(7"1$(8!;(B th |$(7"2$(8!;(B d |$(7"3$(8!;(B dh |$(7"4$(8!;(B n | $(7"](B o $(7!A(B ; |
98 |$(7"5$(8!;(B p |$(7"6$(8!;(B ph |$(7"7$(8!;(B b |$(7"8$(8!;(B bh |$(7"9$(8!;(B m | $(7"\(B ai (ee, E) $(8!?(B $ | |
99 |$(7":$(8!;(B ts|$(7";$(8!;(B tsh|$(7"<$(8!;(B dz |$(7"=$(8!;(B dzh|$(7">$(8!;(B w | $(7"^(B au (oo, O) $(8!@(B & | |
23170
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
100 |$(7"?$(8!;(B zh|$(7"@$(8!;(B z |$(7"A$(8!;(B ' | |$(7"B$(8!;(B y | $(7"a(B I 2$(7#RP#SP#S(B1 * |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
101 |$(7"C$(8!;(B r |$(7"D$(8!;(B l |$(7"E$(8!;(B sh |$(7"F$(8!;(B SH |$(7"G$(8!;(B s | $(7"`(B : 2$(7#RP#SP#SP#S(B1 # |
18968 | 102 |$(7"H$(8!;(B h |$(7"I$(8!;(B A |$(7"J$(8!;(B kSH| | | $(7"_(B M $(7!l(B $(7!m(B < > |
103 +-------------------------------------+ $(8!D(B % | |
104 (The consonant $(7"I$(8!;(B must be typed explicitly.) | |
105 | |
106 NOT SPECIFIED IN EXT. WYLIE: | |
107 +--------------------------------------------------------+ | |
23170
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
108 |$(7"c(B = ~ |$(7"d(B = ` |$(7"e(B = , |$(7"f(B = @ |$(7!g(B = _o|$(7!e(B = _O|2$(7#RP#S_!I(B1 = ^| |
18968 | 109 +--------------------------------------------------------+ |
110 |$(7"i(B = x |$(7"j(B = X |$(7"g(B = v |$(7"h(B = V |$(7"k(B = q |$(7"l(B = Q | | |
111 +-----------------------------------------------+ | |
112 | |
113 SPECIAL KEYS | |
114 + : Consonant Stacking | |
115 \(Consonant stacking for ordinary Tibetan is done automatically) | |
116 - : No Consonant Stacking | |
117 \(To suppress automatic stacking for \"g-y\", | |
118 and to get da-drag in -r-d, -l-d .) | |
119 | : Special signs. | |
120 | |
121 Tsheg is assigned to SPC. Space is assigned to period '.'. | |
122 " | |
123 nil nil nil) | |
124 | |
125 (quail-define-rules | |
126 ("." ?\x20) | |
127 ("k" quail-tibetan-input-wylie) | |
128 ("g" quail-tibetan-input-wylie) | |
129 ("c" quail-tibetan-input-wylie) | |
130 ("j" quail-tibetan-input-wylie) | |
131 ("T" quail-tibetan-input-wylie) | |
132 ("D" quail-tibetan-input-wylie) | |
133 ("N" quail-tibetan-input-wylie) | |
134 ("t" quail-tibetan-input-wylie) | |
135 ("d" quail-tibetan-input-wylie) | |
136 ("n" quail-tibetan-input-wylie) | |
137 ("p" quail-tibetan-input-wylie) | |
138 ("b" quail-tibetan-input-wylie) | |
139 ("m" quail-tibetan-input-wylie) | |
140 ("w" quail-tibetan-input-wylie) | |
141 ("z" quail-tibetan-input-wylie) | |
142 ("'" quail-tibetan-input-wylie) | |
143 ("y" quail-tibetan-input-wylie) | |
144 ("r" quail-tibetan-input-wylie) | |
145 ("l" quail-tibetan-input-wylie) | |
146 ("SH" quail-tibetan-input-wylie) | |
147 ("s" quail-tibetan-input-wylie) | |
148 ("h" quail-tibetan-input-wylie) | |
149 ("H" quail-tibetan-input-wylie) | |
150 ("A" quail-tibetan-input-wylie) | |
151 ("+k" quail-tibetan-input-wylie) | |
152 ("+g" quail-tibetan-input-wylie) | |
153 ("+c" quail-tibetan-input-wylie) | |
154 ("+j" quail-tibetan-input-wylie) | |
155 ("+T" quail-tibetan-input-wylie) | |
156 ("+D" quail-tibetan-input-wylie) | |
157 ("+N" quail-tibetan-input-wylie) | |
158 ("+t" quail-tibetan-input-wylie) | |
159 ("+d" quail-tibetan-input-wylie) | |
160 ("+n" quail-tibetan-input-wylie) | |
161 ("+p" quail-tibetan-input-wylie) | |
162 ("+b" quail-tibetan-input-wylie) | |
163 ("+m" quail-tibetan-input-wylie) | |
164 ("+w" quail-tibetan-input-wylie) | |
165 ("+z" quail-tibetan-input-wylie) | |
166 ("+'" quail-tibetan-input-wylie) | |
167 ("+y" quail-tibetan-input-wylie) | |
168 ("+r" quail-tibetan-input-wylie) | |
169 ("+l" quail-tibetan-input-wylie) | |
170 ("+SH" quail-tibetan-input-wylie) | |
171 ("+s" quail-tibetan-input-wylie) | |
172 ("+h" quail-tibetan-input-wylie) | |
173 ("+H" quail-tibetan-input-wylie) | |
174 ("+A" quail-tibetan-input-wylie) | |
175 ("-d" ?$(7"2(B) ; To avoid default stacking | |
176 ("-y" ?$(7"B(B) ; Idem. | |
177 ("a" quail-tibetan-input-wylie) ; invisible vowel sign | |
178 ("i" quail-tibetan-input-wylie) | |
179 ("u" quail-tibetan-input-wylie) | |
180 ("e" quail-tibetan-input-wylie) | |
181 ("o" quail-tibetan-input-wylie) | |
182 ("I" quail-tibetan-input-wylie) | |
183 ("E" quail-tibetan-input-wylie) | |
184 ("O" quail-tibetan-input-wylie) | |
185 ("M" quail-tibetan-input-wylie) | |
186 ("~" quail-tibetan-input-wylie) | |
187 ("`" quail-tibetan-input-wylie) | |
188 ("," quail-tibetan-input-wylie) | |
189 ("x" quail-tibetan-input-wylie) | |
190 ("X" quail-tibetan-input-wylie) | |
191 ("v" quail-tibetan-input-wylie) | |
192 ("V" quail-tibetan-input-wylie) | |
193 ("q" quail-tibetan-input-wylie) | |
194 ("Q" quail-tibetan-input-wylie) | |
195 ("_o" quail-tibetan-input-wylie) | |
196 ("_O" quail-tibetan-input-wylie) | |
197 ;;; ("_/" quail-tibetan-input-wylie) | |
198 (":" ?$(8"`(B) | |
199 (" " ?$(8!;(B) | |
200 ("/" ?$(8!=(B) | |
201 ("//" ?$(7!>(B) | |
202 ("////" tibetan-quail-bzhi-shad) | |
203 ("$" ?$(8!?(B) | |
204 ("/\"" ?$(8!@(B) ; Not defined in Ext. Wylie. | |
205 ("&" ?$(8!@(B) | |
206 (";" ?$(8!A(B) | |
207 ("%" ?$(8!D(B) | |
208 ("!" ?$(7!8(B) | |
209 ("<" ?$(7!l(B) | |
210 (">" ?$(7!m(B) | |
211 ("@" ?$(7"f(B) | |
212 ("*" tibetan-quail-nyi-zla-double) | |
213 ("#" tibetan-quail-nyi-zla-triple) | |
214 ("^" tibetan-quail-nyi-zla-phur-shad) | |
215 ("0" ?$(7!P(B) | |
216 ("1" ?$(7!Q(B) | |
217 ("2" ?$(7!R(B) | |
218 ("3" ?$(7!S(B) | |
219 ("4" ?$(7!T(B) | |
220 ("5" ?$(7!U(B) | |
221 ("6" ?$(7!V(B) | |
222 ("7" ?$(7!W(B) | |
223 ("8" ?$(7!X(B) | |
224 ("9" ?$(7!Y(B) | |
225 ("-0" ?$(7!c(B) | |
226 ("-1" ?$(7!Z(B) | |
227 ("-2" ?$(7![(B) | |
228 ("-3" ?$(7!\(B) | |
229 ("-4" ?$(7!](B) | |
230 ("-5" ?$(7!^(B) | |
231 ("-6" ?$(7!_(B) | |
232 ("-7" ?$(7!`(B) | |
233 ("-8" ?$(7!a(B) | |
234 ("-9" ?$(7!b(B) | |
235 ("|" "$(7!1!2!3!9!:!B!C!E!F!G!H!I!J!K!L!M!N!O!d!f!h!j!k!n!o(B") | |
236 ) | |
237 | |
238 ;;; | |
239 ;;; Setting-ups for TibKey input | |
240 ;;; | |
241 | |
242 (defconst tibetan-tibkey-to-transcription-alist | |
243 '( | |
244 ("`" . "`") ; sna ldan | |
245 ("~" . "~") ; sna ldan + nada | |
246 ("q" . "k") ; ka | |
247 ("Q" ."kSH") ; kSHa | |
248 ("w" . "kh") ; kha | |
249 ("e" . "g") ; ga | |
250 ("r" . "ng") ; nga | |
251 ("t" . "c") ; ca | |
252 ("T" . "I") ; gi gu log | |
253 ("y" . "ch") ; cha | |
254 ("u" . "j") ; ja | |
255 ("i" . "ny") ; nya | |
256 ("o" . "t") ; ta | |
257 ("O" . "T") ; Ta | |
258 ("p" . "th") ; tha | |
259 ("P" . "TH") ; THa | |
260 ("[" . "d") ; da | |
261 ("{" . "D") ; Da | |
262 ("]" . "n") ; na | |
263 ("}" . "N") ; Na | |
264 ("a" . "p") ; pa | |
265 ("A" . "a") ; Vowel a (not used in original TibKey) | |
266 ("s" . "ph") ; pha | |
267 ("d" . "b") ; ba | |
268 ("f" . "m") ; ma | |
269 ("F" . "M") ; anusvara | |
270 ("g" . "u") ; zhabs kyu | |
271 ("G" . "i") ; gi gu | |
272 ("H" . ",") ; viraama | |
273 ("j" . "o") ; naro | |
274 ("J" . "e") ; 'greng bu | |
275 ("k" . "ts") ; tsa | |
276 ("l" . "tsh") ; tsha | |
277 (";" . "dz") ; dza | |
278 ("'" . "w") ; wa | |
279 ("\"" . "+w") ; wa zur | |
280 ("z" . "zh") ; zha | |
281 ("x" . "z") ; za | |
282 ("c" . "'") ; 'a | |
283 ("C" . "+'") ; 'a chung | |
284 ("v" . "y") ; ya | |
285 ("V" . "+y") ; ya btags | |
286 ("b" . "r") ; ra | |
287 ("B" . "+r") ; ra btags | |
288 ("n" . "l") ; la | |
289 ("N" . "+l") ; la btags | |
290 ("m" . "sh") ; sha | |
291 ("M" . "SH") ; SHa | |
292 ("," . "s") ; sa | |
293 ("." . "h") ; ha | |
294 ("/" . "A") ; Aa | |
295 ;;subjoined | |
296 ("hq" . "+k") ; ka | |
297 ("hQ" ."+kSH") ; kSHa | |
298 ("hw" . "+kh") ; kha | |
299 ("he" . "+g") ; ga | |
300 ("hr" . "+ng") ; nga | |
301 ("ht" . "+c") ; ca | |
302 ("hy" . "+ch") ; cha | |
303 ("hu" . "+j") ; ja | |
304 ("hi" . "+ny") ; nya | |
305 ("ho" . "+t") ; ta | |
306 ("hO" . "+T") ; Ta | |
307 ("hp" . "+th") ; tha | |
308 ("hP" . "+TH") ; THa | |
309 ("h[" . "+d") ; da | |
310 ("h{" . "+D") ; Da | |
311 ("h]" . "+n") ; na | |
312 ("h}" . "+N") ; Na | |
313 ("ha" . "+p") ; pa | |
314 ("hs" . "+ph") ; pha | |
315 ("hd" . "+b") ; ba | |
316 ("hf" . "+m") ; ma | |
317 ("hk" . "+ts") ; tsa | |
318 ("hl" . "+tsh") ; tsha | |
319 ("h;" . "+dz") ; dza | |
320 ("h'" . "+w") ; wa | |
321 ("hz" . "+zh") ; zha | |
322 ("hx" . "+z") ; za | |
323 ("hc" . "+'") ; 'a | |
324 ("hv" . "+y") ; ya | |
325 ("hb" . "+r") ; ra | |
326 ("hn" . "+l") ; la | |
327 ("hm" . "+sh") ; sha | |
328 ("hM" . "+SH") ; SHa | |
329 ("h," . "+s") ; sa | |
330 ("h." . "+h") ; ha | |
331 ("h/" . "+A") ; Aa | |
332 )) | |
333 | |
334 (defun quail-tibetan-input-tibkey (key &rest ignore) | |
335 (let (trans pc) | |
336 (setq trans (cdr (assoc key tibetan-tibkey-to-transcription-alist))) | |
337 (quail-delete-region) | |
338 (quail-delete-overlays) | |
23170
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
339 (setq pc (char-before (overlay-start quail-overlay)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
340 quail-current-str (tibetan-composition pc trans)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
341 (if (not (bobp)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
342 (progn |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
343 (delete-char -1) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
344 (insert (aref quail-current-str 0)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
345 (setq quail-current-str (substring quail-current-str 1)))) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
346 (move-overlay quail-overlay (point) (point)) |
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
347 (insert quail-current-str) |
18968 | 348 (throw 'quail-tag nil))) |
349 | |
350 | |
351 | |
352 (quail-define-package "tibetan-tibkey" "Tibetan" "TIBt" t | |
353 "Tibetan character input by TibKey key assignment. | |
354 | |
355 (This implementation is still incomplete. | |
356 Therefore, the following key assignment is a provisional one.) | |
357 | |
358 [NOT SHIFTED] | |
359 | |
360 +-------------------------------------------------------+ | |
361 |`$(7"d(B|1$(7!Q(B|2$(7!R(B|3$(7!S(B|4$(7!T(B|5$(7!U(B|6$(7!V(B|7$(7!W(B|8$(7!X(B|9$(7!Y(B|0$(7!P(B|- |= |\\$(7!8(B| | |
362 +-------------------------------------------------------+ | |
363 |q$(7"!(B|w$(7""(B|e$(7"#(B|r$(7"%(B|t$(7"&(B|y$(7"'(B|u$(7"((B|i$(7"*(B|o$(7"0(B|p$(7"1(B|[$(7"2(B|]$(7"4(B| | |
364 +-----------------------------------------------+ | |
365 |a$(7"5(B| s$(7"6(B| d$(7"7(B|f$(7"9(B|g$(7"U(B|h |j$(7"](B|k$(7":(B|l$(7";(B|;$(7"<(B|'$(7">(B| | |
366 +---------------------------------------------+ | |
367 |z$(7"?(B|x$(7"@(B|c$(7"A(B|v$(7"B(B|b$(7"C(B|n$(7"D(B|m$(7"E(B|,$(7"G(B|.$(7"H(B|/$(7"I(B| | |
368 +---------------------------------------+ | |
369 The key 'h' is used for consonant stacking. | |
370 | |
371 [SHIFTED] | |
372 | |
373 +----------------------------------------------------------+ | |
23170
63c9c2cc91b7
(quail-tibetan-input-wylie): Adjusted for the
Kenichi Handa <handa@m17n.org>
parents:
18968
diff
changeset
|
374 |~$(7"c(B|!2$(7#RP#S(B1|@$(7#S(B|# |$ |%$(8!D(B |^$(7!1(B|& |* |($(7!l(B|)$(7!m(B|_ |+$(7!A(B| |$(7!8(B| |
18968 | 375 +----------------------------------------------------------+ |
376 |Q$(7"J(B|W$(7#T(B|E |R |T$(7"a(B|Y |U |I$(7"f(B|O$(7"+(B|P$(7",(B|{$(7"-(B|}$(7"/(B| | |
377 +-----------------------------------------------+ | |
378 |A |S |D |F$(7"_(B|G$(7"S(B|H$(7"e(B|J$(7"[(B|K |L |:$(7"`(B|\"$(7#>(B| | |
379 +-------------------------------------------+ | |
380 |Z |X |C$(7#A(B|V$(7#B(B|B$(7#C(B|N$(7#D(B|M$(7"F(B|< |> |?$(8!=(B | | |
381 +---------------------------------------+ | |
382 | |
383 DIFFERENCE FROM THE ORIGINAL TIBKEY: | |
384 | |
385 1. Vowel 'a' should be typed explicitly by the key 'A'. | |
386 This is really inconvenient. But to make the coding | |
387 scheme clear, it is desirable to have an explicite | |
388 vowel sign for 'a'. | |
389 2. Tsheg is assigned to SPC key. You can input a space | |
390 by typing '>'. | |
391 4. To avoid the default stacking $(7$B(B and to obtain $(7"#"B(B, | |
392 type 'E' instead of 'v' (=$(7"B(B). | |
393 3. There are many characters that are not supported in the | |
394 current implementation (especially special signs). I hope | |
395 I'll complete in a future revision. | |
396 " | |
397 nil t) | |
398 | |
399 (quail-define-rules | |
400 ("`" quail-tibetan-input-tibkey) ; sna ldan, not supported yet | |
401 ("~" quail-tibetan-input-tibkey) ; sna ldan + nada | |
402 ("1" ?$(7!Q(B) | |
403 ("!" tibetan-quail-nyi-zla) ; nyi zla long | |
404 ("2" ?$(7!R(B) | |
405 ("@" ?$(7#S(B) ; nyi zla simple | |
406 ("3" ?$(7!S(B) | |
407 ;;; ("#" ) | |
408 ("4" ?$(7!T(B) | |
409 ;;; ("$" ) | |
410 ("5" ?$(7!U(B) | |
411 ("%" ?$(8!D(B) | |
412 ("6" ?$(7!V(B) | |
413 ("^" ?$(7!1(B) | |
414 ("7" ?$(7!W(B) | |
415 ("8" ?$(7!X(B) | |
416 ;;; ("*" ) ; avagraha, not supported yet | |
417 ("9" ?$(7!Y(B) | |
418 ("(" ?$(7!l(B) | |
419 ("0" ?$(7!P(B) | |
420 (")" ?$(7!m(B) | |
421 ;;; ("-" ) ; enphatic, not yet supported | |
422 ;;; ("_" ) ; id. | |
423 ;;; ("=" ) ; special sign, not yet supported | |
424 ("+" ?$(8!A(B) | |
425 ("\\" ?$(8!?(B) | |
426 ("|" ?$(7!8(B) | |
427 ("q" quail-tibetan-input-tibkey) ; ka | |
428 ("Q" quail-tibetan-input-tibkey) ; kSHa | |
429 ("w" quail-tibetan-input-tibkey) ; kha | |
430 ("e" quail-tibetan-input-tibkey) ; ga | |
431 ("E" ?$(7"B(B) | |
432 ("r" quail-tibetan-input-tibkey) ; nga | |
433 ("t" quail-tibetan-input-tibkey) ; ca | |
434 ("T" quail-tibetan-input-tibkey) ; gi gu log | |
435 ("y" quail-tibetan-input-tibkey) ; cha | |
436 ("u" quail-tibetan-input-tibkey) ; ja | |
437 ("i" quail-tibetan-input-tibkey) ; nya | |
438 ("I" ?$(7"f(B) ; avagraha | |
439 ("o" quail-tibetan-input-tibkey) ; ta | |
440 ("O" quail-tibetan-input-tibkey) ; Ta | |
441 ("p" quail-tibetan-input-tibkey) ; tha | |
442 ("P" quail-tibetan-input-tibkey) ; THa | |
443 ("[" quail-tibetan-input-tibkey) ; da | |
444 ("{" quail-tibetan-input-tibkey) ; Da | |
445 ("]" quail-tibetan-input-tibkey) ; na | |
446 ("}" quail-tibetan-input-tibkey) ; Na | |
447 ("a" quail-tibetan-input-tibkey) ; pa | |
448 ("A" quail-tibetan-input-tibkey) ; Vowel sign a | |
449 ("s" quail-tibetan-input-tibkey) ; pha | |
450 ("d" quail-tibetan-input-tibkey) ; ba | |
451 ;;; ("D" ) ; special sign, not supported yet | |
452 ("f" quail-tibetan-input-tibkey) ; ma | |
453 ("F" quail-tibetan-input-tibkey) ; anusvara | |
454 ("g" quail-tibetan-input-tibkey) ; zhabs kyu | |
455 ("G" quail-tibetan-input-tibkey) ; gi gu | |
456 ("H" quail-tibetan-input-tibkey) ; viraama | |
457 ("j" quail-tibetan-input-tibkey) ; naro | |
458 ("J" quail-tibetan-input-tibkey) ; 'greng bu | |
459 ("k" quail-tibetan-input-tibkey);;tsa | |
460 ;;; ("K" ) ; tsadru, not supported yet | |
461 ("l" quail-tibetan-input-tibkey) ; tsha | |
462 (";" quail-tibetan-input-tibkey) ; dza | |
463 (":" ?$(8"`(B) | |
464 ("'" quail-tibetan-input-tibkey) ; wa | |
465 ("\"" quail-tibetan-input-tibkey) ; wa zur | |
466 ("z" quail-tibetan-input-tibkey) ; zha | |
467 ("x" quail-tibetan-input-tibkey) ; za | |
468 ("c" quail-tibetan-input-tibkey) ; 'a | |
469 ("C" quail-tibetan-input-tibkey) ; 'a chung | |
470 ("v" quail-tibetan-input-tibkey) ; ya | |
471 ("V" quail-tibetan-input-tibkey) ; ya btags | |
472 ("b" quail-tibetan-input-tibkey) ; ra | |
473 ("B" quail-tibetan-input-tibkey) ; ra btags | |
474 ("n" quail-tibetan-input-tibkey) ; la | |
475 ("N" quail-tibetan-input-tibkey) ; la btags | |
476 ("m" quail-tibetan-input-tibkey) ; sha | |
477 ("M" quail-tibetan-input-tibkey) ; SHa | |
478 ("," quail-tibetan-input-tibkey) ; sa | |
479 ("." quail-tibetan-input-tibkey) ; ha | |
480 ;;; (">" ?$(8!;(B) ; to be assigned to SPC | |
481 (">" ?\x20) | |
482 ("/" quail-tibetan-input-tibkey) ; Aa | |
483 ("?" ?$(8!=(B) | |
484 ("??" ?$(7!>(B) | |
485 ("????" tibetan-quail-bzhi-shad) | |
486 (" " ?$(8!;(B) | |
487 ;;subjoined | |
488 ("hq" quail-tibetan-input-tibkey) ; ka | |
489 ("hQ" quail-tibetan-input-tibkey) ; kSHa | |
490 ("hw" quail-tibetan-input-tibkey) ; kha | |
491 ("he" quail-tibetan-input-tibkey) ; ga | |
492 ("hr" quail-tibetan-input-tibkey) ; nga | |
493 ("ht" quail-tibetan-input-tibkey) ; ca | |
494 ("hy" quail-tibetan-input-tibkey) ; cha | |
495 ("hu" quail-tibetan-input-tibkey) ; ja | |
496 ("hi" quail-tibetan-input-tibkey) ; nya | |
497 ("ho" quail-tibetan-input-tibkey) ; ta | |
498 ("hO" quail-tibetan-input-tibkey) ; Ta | |
499 ("hp" quail-tibetan-input-tibkey) ; tha | |
500 ("hP" quail-tibetan-input-tibkey) ; THa | |
501 ("h[" quail-tibetan-input-tibkey) ; da | |
502 ("h{" quail-tibetan-input-tibkey) ; Da | |
503 ("h]" quail-tibetan-input-tibkey) ; na | |
504 ("h}" quail-tibetan-input-tibkey) ; Na | |
505 ("ha" quail-tibetan-input-tibkey) ; pa | |
506 ("hs" quail-tibetan-input-tibkey) ; pha | |
507 ("hd" quail-tibetan-input-tibkey) ; ba | |
508 ("hf" quail-tibetan-input-tibkey) ; ma | |
509 ("hk" quail-tibetan-input-tibkey) ; tsa | |
510 ("hl" quail-tibetan-input-tibkey) ; tsha | |
511 ("h;" quail-tibetan-input-tibkey) ; dza | |
512 ("h'" quail-tibetan-input-tibkey) ; wa | |
513 ("hz" quail-tibetan-input-tibkey) ; zha | |
514 ("hx" quail-tibetan-input-tibkey) ; za | |
515 ("hc" quail-tibetan-input-tibkey) ; 'a | |
516 ("hv" quail-tibetan-input-tibkey) ; ya | |
517 ("hb" quail-tibetan-input-tibkey) ; ra | |
518 ("hn" quail-tibetan-input-tibkey) ; la | |
519 ("hm" quail-tibetan-input-tibkey) ; sha | |
520 ("hM" quail-tibetan-input-tibkey) ; SHa | |
521 ("h," quail-tibetan-input-tibkey) ; sa | |
522 ("h." quail-tibetan-input-tibkey) ; ha | |
523 ("h/" quail-tibetan-input-tibkey) ; Aa | |
524 ) | |
525 | |
526 ;;; quail/tibetan.el ends here. | |
527 | |
528 | |
529 |