70
|
1 ;; Quail packages for inputting Vietnamese characters.
|
|
2 ;; Copyright (C) 1992 Free Software Foundation, Inc.
|
|
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
|
|
4
|
|
5 ;; Mule is free software distributed in the form of patches to GNU Emacs.
|
|
6 ;; You can redistribute it and/or modify
|
|
7 ;; it under the terms of the GNU General Public License as published by
|
|
8 ;; the Free Software Foundation; either version 1, or (at your option)
|
|
9 ;; any later version.
|
|
10
|
|
11 ;; Mule is distributed in the hope that it will be useful,
|
|
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
14 ;; GNU General Public License for more details.
|
|
15
|
|
16 ;; You should have received a copy of the GNU General Public License
|
|
17 ;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
19
|
|
20 ;;; 93.5.19 created for Mule Ver.0.9.8
|
|
21 ;;; by Cuong T. Nguyen <cuong@haydn.stanford.edu>
|
|
22 ;;; 93.5.26 modified for Mule Ver.0.9.8 by K.Handa <handa@etl.go.jp>
|
|
23
|
|
24 (require 'quail)
|
|
25
|
|
26 (quail-define-package "viqr" "VIQR" t "Vietnamese VIQR inputting method.
|
|
27
|
|
28 effect | postfix | examples
|
|
29 ------------+---------+----------
|
|
30 breve | ( | a( -> ,1e(B
|
|
31 circumflex | ^ | a^ -> ,1b(B
|
|
32 horn | + | o+ -> ,1=(B
|
|
33 ------------+---------+----------
|
|
34 acute | ' | a' -> ,1a(B
|
|
35 grave | ` | a` -> ,1`(B
|
|
36 hook above | ? | a? -> ,1d(B
|
|
37 tilde | ~ | a~ -> ,1c(B
|
|
38 dot below | . | a. -> ,1U(B
|
|
39 ------------+---------+----------
|
|
40 d bar | dd | dd -> ,1p(B
|
|
41 ------------+---------+----------
|
|
42 no compose | \ | a\. -> a.
|
|
43 ------------+---------+----------
|
|
44 combination| (~ | a(~ -> ,1G(B
|
|
45
|
|
46 " nil t t nil nil nil t)
|
|
47
|
|
48 ;;; lower-case
|
|
49 (quail-defrule "a('" ?,1!(B) ; 161
|
|
50 (quail-defrule "a(`" ?,1"(B) ; 162
|
|
51 (quail-defrule "a(." ?,1#(B) ; 163
|
|
52 (quail-defrule "a^'" ?,1$(B) ; 164
|
|
53 (quail-defrule "a^`" ?,1%(B) ; 165
|
|
54 (quail-defrule "a^?" ?,1&(B) ; 166
|
|
55 (quail-defrule "a^." ?,1'(B) ; 167
|
|
56 (quail-defrule "e~" ?,1((B) ; 168
|
|
57 (quail-defrule "e." ?,1)(B) ; 169
|
|
58 (quail-defrule "e^'" ?,1*(B) ; 170
|
|
59 (quail-defrule "e^`" ?,1+(B) ; 171
|
|
60 (quail-defrule "e^?" ?,1,(B) ; 172
|
|
61 (quail-defrule "e^~" ?,1-(B) ; 173
|
|
62 (quail-defrule "e^." ?,1.(B) ; 174
|
|
63 (quail-defrule "o^'" ?,1/(B) ; 175
|
|
64 (quail-defrule "o^`" ?,10(B) ; 176
|
|
65 (quail-defrule "o^?" ?,11(B) ; 177
|
|
66 (quail-defrule "o^~" ?,12(B) ; 178
|
|
67 (quail-defrule "o^." ?,15(B) ; 181
|
|
68 (quail-defrule "o+`" ?,16(B) ; 182
|
|
69 (quail-defrule "o+?" ?,17(B) ; 183
|
|
70 (quail-defrule "i." ?,18(B) ; 184
|
|
71 (quail-defrule "o+" ?,1=(B) ; 189
|
|
72 (quail-defrule "o+'" ?,1>(B) ; 190
|
|
73 (quail-defrule "a(?" ?,1F(B) ; 198
|
|
74 (quail-defrule "a(~" ?,1G(B) ; 199
|
|
75 (quail-defrule "y`" ?,1O(B) ; 207
|
|
76 (quail-defrule "u+'" ?,1Q(B) ; 209
|
|
77 (quail-defrule "a." ?,1U(B) ; 213
|
|
78 (quail-defrule "y?" ?,1V(B) ; 214
|
|
79 (quail-defrule "u+`" ?,1W(B) ; 215
|
|
80 (quail-defrule "u+?" ?,1X(B) ; 216
|
|
81 (quail-defrule "y~" ?,1[(B) ; 219
|
|
82 (quail-defrule "y." ?,1\(B) ; 220
|
|
83 (quail-defrule "o+~" ?,1^(B) ; 222
|
|
84 (quail-defrule "u+" ?,1_(B) ; 223
|
|
85 (quail-defrule "a`" ?,1`(B) ; 224
|
|
86 (quail-defrule "a'" ?,1a(B) ; 225
|
|
87 (quail-defrule "a^" ?,1b(B) ; 226
|
|
88 (quail-defrule "a~" ?,1c(B) ; 227
|
|
89 (quail-defrule "a?" ?,1d(B) ; 228
|
|
90 (quail-defrule "a(" ?,1e(B) ; 229
|
|
91 (quail-defrule "u+~" ?,1f(B) ; 230
|
|
92 (quail-defrule "a^~" ?,1g(B) ; 231
|
|
93 (quail-defrule "e`" ?,1h(B) ; 232
|
|
94 (quail-defrule "e'" ?,1i(B) ; 233
|
|
95 (quail-defrule "e^" ?,1j(B) ; 234
|
|
96 (quail-defrule "e?" ?,1k(B) ; 235
|
|
97 (quail-defrule "i`" ?,1l(B) ; 236
|
|
98 (quail-defrule "i'" ?,1m(B) ; 237
|
|
99 (quail-defrule "i~" ?,1n(B) ; 238
|
|
100 (quail-defrule "i?" ?,1o(B) ; 239
|
|
101 (quail-defrule "dd" ?,1p(B) ; 240
|
|
102 (quail-defrule "u+." ?,1q(B) ; 241
|
|
103 (quail-defrule "o`" ?,1r(B) ; 242
|
|
104 (quail-defrule "o'" ?,1s(B) ; 243
|
|
105 (quail-defrule "o^" ?,1t(B) ; 244
|
|
106 (quail-defrule "o~" ?,1u(B) ; 245
|
|
107 (quail-defrule "o?" ?,1v(B) ; 246
|
|
108 (quail-defrule "o." ?,1w(B) ; 247
|
|
109 (quail-defrule "u." ?,1x(B) ; 248
|
|
110 (quail-defrule "u`" ?,1y(B) ; 249
|
|
111 (quail-defrule "u'" ?,1z(B) ; 250
|
|
112 (quail-defrule "u~" ?,1{(B) ; 251
|
|
113 (quail-defrule "u?" ?,1|(B) ; 252
|
|
114 (quail-defrule "y'" ?,1}(B) ; 253
|
|
115 (quail-defrule "o+." ?,1~(B) ; 254
|
|
116
|
|
117 ;;; upper-case
|
|
118 (quail-defrule "A('" ?,2!(B) ; 161
|
|
119 (quail-defrule "A(`" ?,2"(B) ; 162
|
|
120 (quail-defrule "A(." ?,2#(B) ; 163
|
|
121 (quail-defrule "A^'" ?,2$(B) ; 164
|
|
122 (quail-defrule "A^`" ?,2%(B) ; 165
|
|
123 (quail-defrule "A^?" ?,2&(B) ; 166
|
|
124 (quail-defrule "A^." ?,2'(B) ; 167
|
|
125 (quail-defrule "E~" ?,2((B) ; 168
|
|
126 (quail-defrule "E." ?,2)(B) ; 169
|
|
127 (quail-defrule "E^'" ?,2*(B) ; 170
|
|
128 (quail-defrule "E^`" ?,2+(B) ; 171
|
|
129 (quail-defrule "E^?" ?,2,(B) ; 172
|
|
130 (quail-defrule "E^~" ?,2-(B) ; 173
|
|
131 (quail-defrule "E^." ?,2.(B) ; 174
|
|
132 (quail-defrule "O^'" ?,2/(B) ; 175
|
|
133 (quail-defrule "O^`" ?,20(B) ; 176
|
|
134 (quail-defrule "O^?" ?,21(B) ; 177
|
|
135 (quail-defrule "O^~" ?,22(B) ; 178
|
|
136 (quail-defrule "O^." ?,25(B) ; 181
|
|
137 (quail-defrule "O+`" ?,26(B) ; 182
|
|
138 (quail-defrule "O+?" ?,27(B) ; 183
|
|
139 (quail-defrule "I." ?,28(B) ; 184
|
|
140 (quail-defrule "O+" ?,2=(B) ; 189
|
|
141 (quail-defrule "O+'" ?,2>(B) ; 190
|
|
142 (quail-defrule "A(?" ?,2F(B) ; 198
|
|
143 (quail-defrule "A(~" ?,2G(B) ; 199
|
|
144 (quail-defrule "Y`" ?,2O(B) ; 207
|
|
145 (quail-defrule "U+'" ?,2Q(B) ; 209
|
|
146 (quail-defrule "A." ?,2U(B) ; 213
|
|
147 (quail-defrule "Y?" ?,2V(B) ; 214
|
|
148 (quail-defrule "U+`" ?,2W(B) ; 215
|
|
149 (quail-defrule "U+?" ?,2X(B) ; 216
|
|
150 (quail-defrule "Y~" ?,2[(B) ; 219
|
|
151 (quail-defrule "Y." ?,2\(B) ; 220
|
|
152 (quail-defrule "O+~" ?,2^(B) ; 222
|
|
153 (quail-defrule "U+" ?,2_(B) ; 223
|
|
154 (quail-defrule "A`" ?,2`(B) ; 224
|
|
155 (quail-defrule "A'" ?,2a(B) ; 225
|
|
156 (quail-defrule "A^" ?,2b(B) ; 226
|
|
157 (quail-defrule "A~" ?,2c(B) ; 227
|
|
158 (quail-defrule "A?" ?,2d(B) ; 228
|
|
159 (quail-defrule "A(" ?,2e(B) ; 229
|
|
160 (quail-defrule "U+~" ?,2f(B) ; 230
|
|
161 (quail-defrule "A^~" ?,2g(B) ; 231
|
|
162 (quail-defrule "E`" ?,2h(B) ; 232
|
|
163 (quail-defrule "E'" ?,2i(B) ; 233
|
|
164 (quail-defrule "E^" ?,2j(B) ; 234
|
|
165 (quail-defrule "E?" ?,2k(B) ; 235
|
|
166 (quail-defrule "I`" ?,2l(B) ; 236
|
|
167 (quail-defrule "I'" ?,2m(B) ; 237
|
|
168 (quail-defrule "I~" ?,2n(B) ; 238
|
|
169 (quail-defrule "I?" ?,2o(B) ; 239
|
|
170 (quail-defrule "DD" ?,2p(B) ; 240
|
|
171 (quail-defrule "dD" ?,2p(B) ; 240
|
|
172 (quail-defrule "Dd" ?,2p(B) ; 240
|
|
173 (quail-defrule "U+." ?,2q(B) ; 241
|
|
174 (quail-defrule "O`" ?,2r(B) ; 242
|
|
175 (quail-defrule "O'" ?,2s(B) ; 243
|
|
176 (quail-defrule "O^" ?,2t(B) ; 244
|
|
177 (quail-defrule "O~" ?,2u(B) ; 245
|
|
178 (quail-defrule "O?" ?,2v(B) ; 246
|
|
179 (quail-defrule "O." ?,2w(B) ; 247
|
|
180 (quail-defrule "U." ?,2x(B) ; 248
|
|
181 (quail-defrule "U`" ?,2y(B) ; 249
|
|
182 (quail-defrule "U'" ?,2z(B) ; 250
|
|
183 (quail-defrule "U~" ?,2{(B) ; 251
|
|
184 (quail-defrule "U?" ?,2|(B) ; 252
|
|
185 (quail-defrule "Y'" ?,2}(B) ; 253
|
|
186 (quail-defrule "O+." ?,2~(B) ; 254
|
|
187
|
|
188 ;;; Escape from composition
|
|
189 (quail-defrule "\\(" ?() ; breve (left parenthesis)
|
|
190 (quail-defrule "\\^" ?^) ; circumflex (caret)
|
|
191 (quail-defrule "\\+" ?+) ; horn (plus sign)
|
|
192 (quail-defrule "\\'" ?') ; acute (apostrophe)
|
|
193 (quail-defrule "\\`" ?`) ; grave (backquote)
|
|
194 (quail-defrule "\\?" ??) ; hook above (question mark)
|
|
195 (quail-defrule "\\~" ?~) ; tilde (tilde)
|
|
196 (quail-defrule "\\." ?.) ; dot below (period)
|
|
197 (quail-defrule "\\d" ?d) ; d-bar (d)
|
|
198 (quail-defrule "\\\\" ?\\) ; literal backslash
|
|
199
|
|
200 (quail-setup-current-package)
|