|
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)
|
|
|
78 (setq pc (preceding-char))
|
|
|
79 (if (not (eq (point) (point-min)))
|
|
|
80 (delete-backward-char 1 nil))
|
|
|
81 (insert (tibetan-composition pc key))
|
|
|
82 (throw 'quail-tag nil)))
|
|
|
83
|
|
|
84
|
|
|
85 (quail-define-package "tibetan-wylie" "Tibetan" "TIBw" t
|
|
|
86 "Tibetan character input by Extended Wylie key assignment.
|
|
|
87
|
|
|
88 +-------------------------------------+
|
|
|
89 |2$(7"!`#T1$(8!;(B k |2$(7""`#T1$(8!;(B kh |2$(7"#`#T1$(8!;(B g |2$(7"$`#T1$(8!;(B gh |2$(7"%`#T1$(8!;(B ng| $(7"S(B i $(8!=(B /
|
|
|
90 |2$(7"&`#T1$(8!;(B c |2$(7"'`#T1$(8!;(B ch |2$(7"(`#T1$(8!;(B j | |$(7"*$(8!;(B ny| $(7"U(B u $(7!>(B //
|
|
|
91 |$(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!>1(B ////
|
|
|
92 |$(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 ;
|
|
|
93 |$(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 $
|
|
|
94 |$(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 &
|
|
|
95 |$(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#S1(B *
|
|
|
96 |$(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#S1(B #
|
|
|
97 |$(7"H$(8!;(B h |$(7"I$(8!;(B A |$(7"J$(8!;(B kSH| | | $(7"_(B M $(7!l(B $(7!m(B < >
|
|
|
98 +-------------------------------------+ $(8!D(B %
|
|
|
99 (The consonant $(7"I$(8!;(B must be typed explicitly.)
|
|
|
100
|
|
|
101 NOT SPECIFIED IN EXT. WYLIE:
|
|
|
102 +--------------------------------------------------------+
|
|
|
103 |$(7"c(B = ~ |$(7"d(B = ` |$(7"e(B = , |$(7"f(B = @ |$(7!g(B = _o|$(7!e(B = _O|2$(7#RP#S_!I1(B = ^|
|
|
|
104 +--------------------------------------------------------+
|
|
|
105 |$(7"i(B = x |$(7"j(B = X |$(7"g(B = v |$(7"h(B = V |$(7"k(B = q |$(7"l(B = Q |
|
|
|
106 +-----------------------------------------------+
|
|
|
107
|
|
|
108 SPECIAL KEYS
|
|
|
109 + : Consonant Stacking
|
|
|
110 \(Consonant stacking for ordinary Tibetan is done automatically)
|
|
|
111 - : No Consonant Stacking
|
|
|
112 \(To suppress automatic stacking for \"g-y\",
|
|
|
113 and to get da-drag in -r-d, -l-d .)
|
|
|
114 | : Special signs.
|
|
|
115
|
|
|
116 Tsheg is assigned to SPC. Space is assigned to period '.'.
|
|
|
117 "
|
|
|
118 nil nil nil)
|
|
|
119
|
|
|
120 (quail-define-rules
|
|
|
121 ("." ?\x20)
|
|
|
122 ("k" quail-tibetan-input-wylie)
|
|
|
123 ("g" quail-tibetan-input-wylie)
|
|
|
124 ("c" quail-tibetan-input-wylie)
|
|
|
125 ("j" quail-tibetan-input-wylie)
|
|
|
126 ("T" quail-tibetan-input-wylie)
|
|
|
127 ("D" quail-tibetan-input-wylie)
|
|
|
128 ("N" quail-tibetan-input-wylie)
|
|
|
129 ("t" quail-tibetan-input-wylie)
|
|
|
130 ("d" quail-tibetan-input-wylie)
|
|
|
131 ("n" quail-tibetan-input-wylie)
|
|
|
132 ("p" quail-tibetan-input-wylie)
|
|
|
133 ("b" quail-tibetan-input-wylie)
|
|
|
134 ("m" quail-tibetan-input-wylie)
|
|
|
135 ("w" quail-tibetan-input-wylie)
|
|
|
136 ("z" quail-tibetan-input-wylie)
|
|
|
137 ("'" quail-tibetan-input-wylie)
|
|
|
138 ("y" quail-tibetan-input-wylie)
|
|
|
139 ("r" quail-tibetan-input-wylie)
|
|
|
140 ("l" quail-tibetan-input-wylie)
|
|
|
141 ("SH" quail-tibetan-input-wylie)
|
|
|
142 ("s" quail-tibetan-input-wylie)
|
|
|
143 ("h" quail-tibetan-input-wylie)
|
|
|
144 ("H" quail-tibetan-input-wylie)
|
|
|
145 ("A" quail-tibetan-input-wylie)
|
|
|
146 ("+k" quail-tibetan-input-wylie)
|
|
|
147 ("+g" quail-tibetan-input-wylie)
|
|
|
148 ("+c" quail-tibetan-input-wylie)
|
|
|
149 ("+j" quail-tibetan-input-wylie)
|
|
|
150 ("+T" quail-tibetan-input-wylie)
|
|
|
151 ("+D" quail-tibetan-input-wylie)
|
|
|
152 ("+N" quail-tibetan-input-wylie)
|
|
|
153 ("+t" quail-tibetan-input-wylie)
|
|
|
154 ("+d" quail-tibetan-input-wylie)
|
|
|
155 ("+n" quail-tibetan-input-wylie)
|
|
|
156 ("+p" quail-tibetan-input-wylie)
|
|
|
157 ("+b" quail-tibetan-input-wylie)
|
|
|
158 ("+m" quail-tibetan-input-wylie)
|
|
|
159 ("+w" quail-tibetan-input-wylie)
|
|
|
160 ("+z" quail-tibetan-input-wylie)
|
|
|
161 ("+'" quail-tibetan-input-wylie)
|
|
|
162 ("+y" quail-tibetan-input-wylie)
|
|
|
163 ("+r" quail-tibetan-input-wylie)
|
|
|
164 ("+l" quail-tibetan-input-wylie)
|
|
|
165 ("+SH" quail-tibetan-input-wylie)
|
|
|
166 ("+s" quail-tibetan-input-wylie)
|
|
|
167 ("+h" quail-tibetan-input-wylie)
|
|
|
168 ("+H" quail-tibetan-input-wylie)
|
|
|
169 ("+A" quail-tibetan-input-wylie)
|
|
|
170 ("-d" ?$(7"2(B) ; To avoid default stacking
|
|
|
171 ("-y" ?$(7"B(B) ; Idem.
|
|
|
172 ("a" quail-tibetan-input-wylie) ; invisible vowel sign
|
|
|
173 ("i" quail-tibetan-input-wylie)
|
|
|
174 ("u" quail-tibetan-input-wylie)
|
|
|
175 ("e" quail-tibetan-input-wylie)
|
|
|
176 ("o" quail-tibetan-input-wylie)
|
|
|
177 ("I" quail-tibetan-input-wylie)
|
|
|
178 ("E" quail-tibetan-input-wylie)
|
|
|
179 ("O" quail-tibetan-input-wylie)
|
|
|
180 ("M" quail-tibetan-input-wylie)
|
|
|
181 ("~" quail-tibetan-input-wylie)
|
|
|
182 ("`" quail-tibetan-input-wylie)
|
|
|
183 ("," quail-tibetan-input-wylie)
|
|
|
184 ("x" quail-tibetan-input-wylie)
|
|
|
185 ("X" quail-tibetan-input-wylie)
|
|
|
186 ("v" quail-tibetan-input-wylie)
|
|
|
187 ("V" quail-tibetan-input-wylie)
|
|
|
188 ("q" quail-tibetan-input-wylie)
|
|
|
189 ("Q" quail-tibetan-input-wylie)
|
|
|
190 ("_o" quail-tibetan-input-wylie)
|
|
|
191 ("_O" quail-tibetan-input-wylie)
|
|
|
192 ;;; ("_/" quail-tibetan-input-wylie)
|
|
|
193 (":" ?$(8"`(B)
|
|
|
194 (" " ?$(8!;(B)
|
|
|
195 ("/" ?$(8!=(B)
|
|
|
196 ("//" ?$(7!>(B)
|
|
|
197 ("////" tibetan-quail-bzhi-shad)
|
|
|
198 ("$" ?$(8!?(B)
|
|
|
199 ("/\"" ?$(8!@(B) ; Not defined in Ext. Wylie.
|
|
|
200 ("&" ?$(8!@(B)
|
|
|
201 (";" ?$(8!A(B)
|
|
|
202 ("%" ?$(8!D(B)
|
|
|
203 ("!" ?$(7!8(B)
|
|
|
204 ("<" ?$(7!l(B)
|
|
|
205 (">" ?$(7!m(B)
|
|
|
206 ("@" ?$(7"f(B)
|
|
|
207 ("*" tibetan-quail-nyi-zla-double)
|
|
|
208 ("#" tibetan-quail-nyi-zla-triple)
|
|
|
209 ("^" tibetan-quail-nyi-zla-phur-shad)
|
|
|
210 ("0" ?$(7!P(B)
|
|
|
211 ("1" ?$(7!Q(B)
|
|
|
212 ("2" ?$(7!R(B)
|
|
|
213 ("3" ?$(7!S(B)
|
|
|
214 ("4" ?$(7!T(B)
|
|
|
215 ("5" ?$(7!U(B)
|
|
|
216 ("6" ?$(7!V(B)
|
|
|
217 ("7" ?$(7!W(B)
|
|
|
218 ("8" ?$(7!X(B)
|
|
|
219 ("9" ?$(7!Y(B)
|
|
|
220 ("-0" ?$(7!c(B)
|
|
|
221 ("-1" ?$(7!Z(B)
|
|
|
222 ("-2" ?$(7
|
|
|
225 ("-5" ?$(7!^(B)
|
|
|
226 ("-6" ?$(7!_(B)
|
|
|
227 ("-7" ?$(7!`(B)
|
|
|
228 ("-8" ?$(7!a(B)
|
|
|
229 ("-9" ?$(7!b(B)
|
|
|
230 ("|" "$(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")
|
|
|
231 )
|
|
|
232
|
|
|
233 ;;;
|
|
|
234 ;;; Setting-ups for TibKey input
|
|
|
235 ;;;
|
|
|
236
|
|
|
237 (defconst tibetan-tibkey-to-transcription-alist
|
|
|
238 '(
|
|
|
239 ("`" . "`") ; sna ldan
|
|
|
240 ("~" . "~") ; sna ldan + nada
|
|
|
241 ("q" . "k") ; ka
|
|
|
242 ("Q" ."kSH") ; kSHa
|
|
|
243 ("w" . "kh") ; kha
|
|
|
244 ("e" . "g") ; ga
|
|
|
245 ("r" . "ng") ; nga
|
|
|
246 ("t" . "c") ; ca
|
|
|
247 ("T" . "I") ; gi gu log
|
|
|
248 ("y" . "ch") ; cha
|
|
|
249 ("u" . "j") ; ja
|
|
|
250 ("i" . "ny") ; nya
|
|
|
251 ("o" . "t") ; ta
|
|
|
252 ("O" . "T") ; Ta
|
|
|
253 ("p" . "th") ; tha
|
|
|
254 ("P" . "TH") ; THa
|
|
|
255 ("[" . "d") ; da
|
|
|
256 ("{" . "D") ; Da
|
|
|
257 ("]" . "n") ; na
|
|
|
258 ("}" . "N") ; Na
|
|
|
259 ("a" . "p") ; pa
|
|
|
260 ("A" . "a") ; Vowel a (not used in original TibKey)
|
|
|
261 ("s" . "ph") ; pha
|
|
|
262 ("d" . "b") ; ba
|
|
|
263 ("f" . "m") ; ma
|
|
|
264 ("F" . "M") ; anusvara
|
|
|
265 ("g" . "u") ; zhabs kyu
|
|
|
266 ("G" . "i") ; gi gu
|
|
|
267 ("H" . ",") ; viraama
|
|
|
268 ("j" . "o") ; naro
|
|
|
269 ("J" . "e") ; 'greng bu
|
|
|
270 ("k" . "ts") ; tsa
|
|
|
271 ("l" . "tsh") ; tsha
|
|
|
272 (";" . "dz") ; dza
|
|
|
273 ("'" . "w") ; wa
|
|
|
274 ("\"" . "+w") ; wa zur
|
|
|
275 ("z" . "zh") ; zha
|
|
|
276 ("x" . "z") ; za
|
|
|
277 ("c" . "'") ; 'a
|
|
|
278 ("C" . "+'") ; 'a chung
|
|
|
279 ("v" . "y") ; ya
|
|
|
280 ("V" . "+y") ; ya btags
|
|
|
281 ("b" . "r") ; ra
|
|
|
282 ("B" . "+r") ; ra btags
|
|
|
283 ("n" . "l") ; la
|
|
|
284 ("N" . "+l") ; la btags
|
|
|
285 ("m" . "sh") ; sha
|
|
|
286 ("M" . "SH") ; SHa
|
|
|
287 ("," . "s") ; sa
|
|
|
288 ("." . "h") ; ha
|
|
|
289 ("/" . "A") ; Aa
|
|
|
290 ;;subjoined
|
|
|
291 ("hq" . "+k") ; ka
|
|
|
292 ("hQ" ."+kSH") ; kSHa
|
|
|
293 ("hw" . "+kh") ; kha
|
|
|
294 ("he" . "+g") ; ga
|
|
|
295 ("hr" . "+ng") ; nga
|
|
|
296 ("ht" . "+c") ; ca
|
|
|
297 ("hy" . "+ch") ; cha
|
|
|
298 ("hu" . "+j") ; ja
|
|
|
299 ("hi" . "+ny") ; nya
|
|
|
300 ("ho" . "+t") ; ta
|
|
|
301 ("hO" . "+T") ; Ta
|
|
|
302 ("hp" . "+th") ; tha
|
|
|
303 ("hP" . "+TH") ; THa
|
|
|
304 ("h[" . "+d") ; da
|
|
|
305 ("h{" . "+D") ; Da
|
|
|
306 ("h]" . "+n") ; na
|
|
|
307 ("h}" . "+N") ; Na
|
|
|
308 ("ha" . "+p") ; pa
|
|
|
309 ("hs" . "+ph") ; pha
|
|
|
310 ("hd" . "+b") ; ba
|
|
|
311 ("hf" . "+m") ; ma
|
|
|
312 ("hk" . "+ts") ; tsa
|
|
|
313 ("hl" . "+tsh") ; tsha
|
|
|
314 ("h;" . "+dz") ; dza
|
|
|
315 ("h'" . "+w") ; wa
|
|
|
316 ("hz" . "+zh") ; zha
|
|
|
317 ("hx" . "+z") ; za
|
|
|
318 ("hc" . "+'") ; 'a
|
|
|
319 ("hv" . "+y") ; ya
|
|
|
320 ("hb" . "+r") ; ra
|
|
|
321 ("hn" . "+l") ; la
|
|
|
322 ("hm" . "+sh") ; sha
|
|
|
323 ("hM" . "+SH") ; SHa
|
|
|
324 ("h," . "+s") ; sa
|
|
|
325 ("h." . "+h") ; ha
|
|
|
326 ("h/" . "+A") ; Aa
|
|
|
327 ))
|
|
|
328
|
|
|
329 (defun quail-tibetan-input-tibkey (key &rest ignore)
|
|
|
330 (let (trans pc)
|
|
|
331 (setq trans (cdr (assoc key tibetan-tibkey-to-transcription-alist)))
|
|
|
332 (quail-delete-region)
|
|
|
333 (quail-delete-overlays)
|
|
|
334 (setq pc (preceding-char))
|
|
|
335 (if (not (eq (point) (point-min)))
|
|
|
336 (delete-backward-char 1 nil))
|
|
|
337 (insert (tibetan-composition pc trans))
|
|
|
338 (throw 'quail-tag nil)))
|
|
|
339
|
|
|
340
|
|
|
341
|
|
|
342 (quail-define-package "tibetan-tibkey" "Tibetan" "TIBt" t
|
|
|
343 "Tibetan character input by TibKey key assignment.
|
|
|
344
|
|
|
345 (This implementation is still incomplete.
|
|
|
346 Therefore, the following key assignment is a provisional one.)
|
|
|
347
|
|
|
348 [NOT SHIFTED]
|
|
|
349
|
|
|
350 +-------------------------------------------------------+
|
|
|
351 |`$(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|
|
|
|
352 +-------------------------------------------------------+
|
|
|
353 |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|
|
|
|
354 +-----------------------------------------------+
|
|
|
355 |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|
|
|
|
356 +---------------------------------------------+
|
|
|
357 |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|
|
|
|
358 +---------------------------------------+
|
|
|
359 The key 'h' is used for consonant stacking.
|
|
|
360
|
|
|
361 [SHIFTED]
|
|
|
362
|
|
|
363 +----------------------------------------------------------+
|
|
|
364 |~$(7"c(B|!2$(7#RP#S1(B|@$(7#S(B|# |$ |%$(8!D(B |^$(7!1(B|& |* |($(7!l(B|)$(7!m(B|_ |+$(7!A(B| |$(7!8(B|
|
|
|
365 +----------------------------------------------------------+
|
|
|
366 |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|
|
|
|
367 +-----------------------------------------------+
|
|
|
368 |A |S |D |F$(7"_(B|G$(7"S(B|H$(7"e(B|J$(7"[(B|K |L |:$(7"`(B|\"$(7#>(B|
|
|
|
369 +-------------------------------------------+
|
|
|
370 |Z |X |C$(7#A(B|V$(7#B(B|B$(7#C(B|N$(7#D(B|M$(7"F(B|< |> |?$(8!=(B |
|
|
|
371 +---------------------------------------+
|
|
|
372
|
|
|
373 DIFFERENCE FROM THE ORIGINAL TIBKEY:
|
|
|
374
|
|
|
375 1. Vowel 'a' should be typed explicitly by the key 'A'.
|
|
|
376 This is really inconvenient. But to make the coding
|
|
|
377 scheme clear, it is desirable to have an explicite
|
|
|
378 vowel sign for 'a'.
|
|
|
379 2. Tsheg is assigned to SPC key. You can input a space
|
|
|
380 by typing '>'.
|
|
|
381 4. To avoid the default stacking $(7$B(B and to obtain $(7"#"B(B,
|
|
|
382 type 'E' instead of 'v' (=$(7"B(B).
|
|
|
383 3. There are many characters that are not supported in the
|
|
|
384 current implementation (especially special signs). I hope
|
|
|
385 I'll complete in a future revision.
|
|
|
386 "
|
|
|
387 nil t)
|
|
|
388
|
|
|
389 (quail-define-rules
|
|
|
390 ("`" quail-tibetan-input-tibkey) ; sna ldan, not supported yet
|
|
|
391 ("~" quail-tibetan-input-tibkey) ; sna ldan + nada
|
|
|
392 ("1" ?$(7!Q(B)
|
|
|
393 ("!" tibetan-quail-nyi-zla) ; nyi zla long
|
|
|
394 ("2" ?$(7!R(B)
|
|
|
395 ("@" ?$(7#S(B) ; nyi zla simple
|
|
|
396 ("3" ?$(7!S(B)
|
|
|
397 ;;; ("#" )
|
|
|
398 ("4" ?$(7!T(B)
|
|
|
399 ;;; ("$" )
|
|
|
400 ("5" ?$(7!U(B)
|
|
|
401 ("%" ?$(8!D(B)
|
|
|
402 ("6" ?$(7!V(B)
|
|
|
403 ("^" ?$(7!1(B)
|
|
|
404 ("7" ?$(7!W(B)
|
|
|
405 ("8" ?$(7!X(B)
|
|
|
406 ;;; ("*" ) ; avagraha, not supported yet
|
|
|
407 ("9" ?$(7!Y(B)
|
|
|
408 ("(" ?$(7!l(B)
|
|
|
409 ("0" ?$(7!P(B)
|
|
|
410 (")" ?$(7!m(B)
|
|
|
411 ;;; ("-" ) ; enphatic, not yet supported
|
|
|
412 ;;; ("_" ) ; id.
|
|
|
413 ;;; ("=" ) ; special sign, not yet supported
|
|
|
414 ("+" ?$(8!A(B)
|
|
|
415 ("\\" ?$(8!?(B)
|
|
|
416 ("|" ?$(7!8(B)
|
|
|
417 ("q" quail-tibetan-input-tibkey) ; ka
|
|
|
418 ("Q" quail-tibetan-input-tibkey) ; kSHa
|
|
|
419 ("w" quail-tibetan-input-tibkey) ; kha
|
|
|
420 ("e" quail-tibetan-input-tibkey) ; ga
|
|
|
421 ("E" ?$(7"B(B)
|
|
|
422 ("r" quail-tibetan-input-tibkey) ; nga
|
|
|
423 ("t" quail-tibetan-input-tibkey) ; ca
|
|
|
424 ("T" quail-tibetan-input-tibkey) ; gi gu log
|
|
|
425 ("y" quail-tibetan-input-tibkey) ; cha
|
|
|
426 ("u" quail-tibetan-input-tibkey) ; ja
|
|
|
427 ("i" quail-tibetan-input-tibkey) ; nya
|
|
|
428 ("I" ?$(7"f(B) ; avagraha
|
|
|
429 ("o" quail-tibetan-input-tibkey) ; ta
|
|
|
430 ("O" quail-tibetan-input-tibkey) ; Ta
|
|
|
431 ("p" quail-tibetan-input-tibkey) ; tha
|
|
|
432 ("P" quail-tibetan-input-tibkey) ; THa
|
|
|
433 ("[" quail-tibetan-input-tibkey) ; da
|
|
|
434 ("{" quail-tibetan-input-tibkey) ; Da
|
|
|
435 ("]" quail-tibetan-input-tibkey) ; na
|
|
|
436 ("}" quail-tibetan-input-tibkey) ; Na
|
|
|
437 ("a" quail-tibetan-input-tibkey) ; pa
|
|
|
438 ("A" quail-tibetan-input-tibkey) ; Vowel sign a
|
|
|
439 ("s" quail-tibetan-input-tibkey) ; pha
|
|
|
440 ("d" quail-tibetan-input-tibkey) ; ba
|
|
|
441 ;;; ("D" ) ; special sign, not supported yet
|
|
|
442 ("f" quail-tibetan-input-tibkey) ; ma
|
|
|
443 ("F" quail-tibetan-input-tibkey) ; anusvara
|
|
|
444 ("g" quail-tibetan-input-tibkey) ; zhabs kyu
|
|
|
445 ("G" quail-tibetan-input-tibkey) ; gi gu
|
|
|
446 ("H" quail-tibetan-input-tibkey) ; viraama
|
|
|
447 ("j" quail-tibetan-input-tibkey) ; naro
|
|
|
448 ("J" quail-tibetan-input-tibkey) ; 'greng bu
|
|
|
449 ("k" quail-tibetan-input-tibkey);;tsa
|
|
|
450 ;;; ("K" ) ; tsadru, not supported yet
|
|
|
451 ("l" quail-tibetan-input-tibkey) ; tsha
|
|
|
452 (";" quail-tibetan-input-tibkey) ; dza
|
|
|
453 (":" ?$(8"`(B)
|
|
|
454 ("'" quail-tibetan-input-tibkey) ; wa
|
|
|
455 ("\"" quail-tibetan-input-tibkey) ; wa zur
|
|
|
456 ("z" quail-tibetan-input-tibkey) ; zha
|
|
|
457 ("x" quail-tibetan-input-tibkey) ; za
|
|
|
458 ("c" quail-tibetan-input-tibkey) ; 'a
|
|
|
459 ("C" quail-tibetan-input-tibkey) ; 'a chung
|
|
|
460 ("v" quail-tibetan-input-tibkey) ; ya
|
|
|
461 ("V" quail-tibetan-input-tibkey) ; ya btags
|
|
|
462 ("b" quail-tibetan-input-tibkey) ; ra
|
|
|
463 ("B" quail-tibetan-input-tibkey) ; ra btags
|
|
|
464 ("n" quail-tibetan-input-tibkey) ; la
|
|
|
465 ("N" quail-tibetan-input-tibkey) ; la btags
|
|
|
466 ("m" quail-tibetan-input-tibkey) ; sha
|
|
|
467 ("M" quail-tibetan-input-tibkey) ; SHa
|
|
|
468 ("," quail-tibetan-input-tibkey) ; sa
|
|
|
469 ("." quail-tibetan-input-tibkey) ; ha
|
|
|
470 ;;; (">" ?$(8!;(B) ; to be assigned to SPC
|
|
|
471 (">" ?\x20)
|
|
|
472 ("/" quail-tibetan-input-tibkey) ; Aa
|
|
|
473 ("?" ?$(8!=(B)
|
|
|
474 ("??" ?$(7!>(B)
|
|
|
475 ("????" tibetan-quail-bzhi-shad)
|
|
|
476 (" " ?$(8!;(B)
|
|
|
477 ;;subjoined
|
|
|
478 ("hq" quail-tibetan-input-tibkey) ; ka
|
|
|
479 ("hQ" quail-tibetan-input-tibkey) ; kSHa
|
|
|
480 ("hw" quail-tibetan-input-tibkey) ; kha
|
|
|
481 ("he" quail-tibetan-input-tibkey) ; ga
|
|
|
482 ("hr" quail-tibetan-input-tibkey) ; nga
|
|
|
483 ("ht" quail-tibetan-input-tibkey) ; ca
|
|
|
484 ("hy" quail-tibetan-input-tibkey) ; cha
|
|
|
485 ("hu" quail-tibetan-input-tibkey) ; ja
|
|
|
486 ("hi" quail-tibetan-input-tibkey) ; nya
|
|
|
487 ("ho" quail-tibetan-input-tibkey) ; ta
|
|
|
488 ("hO" quail-tibetan-input-tibkey) ; Ta
|
|
|
489 ("hp" quail-tibetan-input-tibkey) ; tha
|
|
|
490 ("hP" quail-tibetan-input-tibkey) ; THa
|
|
|
491 ("h[" quail-tibetan-input-tibkey) ; da
|
|
|
492 ("h{" quail-tibetan-input-tibkey) ; Da
|
|
|
493 ("h]" quail-tibetan-input-tibkey) ; na
|
|
|
494 ("h}" quail-tibetan-input-tibkey) ; Na
|
|
|
495 ("ha" quail-tibetan-input-tibkey) ; pa
|
|
|
496 ("hs" quail-tibetan-input-tibkey) ; pha
|
|
|
497 ("hd" quail-tibetan-input-tibkey) ; ba
|
|
|
498 ("hf" quail-tibetan-input-tibkey) ; ma
|
|
|
499 ("hk" quail-tibetan-input-tibkey) ; tsa
|
|
|
500 ("hl" quail-tibetan-input-tibkey) ; tsha
|
|
|
501 ("h;" quail-tibetan-input-tibkey) ; dza
|
|
|
502 ("h'" quail-tibetan-input-tibkey) ; wa
|
|
|
503 ("hz" quail-tibetan-input-tibkey) ; zha
|
|
|
504 ("hx" quail-tibetan-input-tibkey) ; za
|
|
|
505 ("hc" quail-tibetan-input-tibkey) ; 'a
|
|
|
506 ("hv" quail-tibetan-input-tibkey) ; ya
|
|
|
507 ("hb" quail-tibetan-input-tibkey) ; ra
|
|
|
508 ("hn" quail-tibetan-input-tibkey) ; la
|
|
|
509 ("hm" quail-tibetan-input-tibkey) ; sha
|
|
|
510 ("hM" quail-tibetan-input-tibkey) ; SHa
|
|
|
511 ("h," quail-tibetan-input-tibkey) ; sa
|
|
|
512 ("h." quail-tibetan-input-tibkey) ; ha
|
|
|
513 ("h/" quail-tibetan-input-tibkey) ; Aa
|
|
|
514 )
|
|
|
515
|
|
|
516 ;;; quail/tibetan.el ends here.
|
|
|
517
|
|
|
518
|
|
|
519
|
