wskbdutil.c revision 1.13 1 1.13 christos /* $NetBSD: wskbdutil.c,v 1.13 2006/04/01 23:02:32 christos Exp $ */
2 1.1 hannken
3 1.1 hannken /*-
4 1.1 hannken * Copyright (c) 1997 The NetBSD Foundation, Inc.
5 1.1 hannken * All rights reserved.
6 1.1 hannken *
7 1.1 hannken * This code is derived from software contributed to The NetBSD Foundation
8 1.1 hannken * by Juergen Hannken-Illjes.
9 1.1 hannken *
10 1.1 hannken * Redistribution and use in source and binary forms, with or without
11 1.1 hannken * modification, are permitted provided that the following conditions
12 1.1 hannken * are met:
13 1.1 hannken * 1. Redistributions of source code must retain the above copyright
14 1.1 hannken * notice, this list of conditions and the following disclaimer.
15 1.1 hannken * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 hannken * notice, this list of conditions and the following disclaimer in the
17 1.1 hannken * documentation and/or other materials provided with the distribution.
18 1.1 hannken * 3. All advertising materials mentioning features or use of this software
19 1.1 hannken * must display the following acknowledgement:
20 1.1 hannken * This product includes software developed by the NetBSD
21 1.1 hannken * Foundation, Inc. and its contributors.
22 1.1 hannken * 4. Neither the name of The NetBSD Foundation nor the names of its
23 1.1 hannken * contributors may be used to endorse or promote products derived
24 1.1 hannken * from this software without specific prior written permission.
25 1.1 hannken *
26 1.1 hannken * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
27 1.1 hannken * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
28 1.1 hannken * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29 1.1 hannken * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
30 1.1 hannken * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31 1.1 hannken * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32 1.1 hannken * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33 1.1 hannken * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34 1.1 hannken * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35 1.1 hannken * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36 1.1 hannken * POSSIBILITY OF SUCH DAMAGE.
37 1.1 hannken */
38 1.9 lukem
39 1.9 lukem #include <sys/cdefs.h>
40 1.13 christos __KERNEL_RCSID(0, "$NetBSD: wskbdutil.c,v 1.13 2006/04/01 23:02:32 christos Exp $");
41 1.1 hannken
42 1.1 hannken #include <sys/param.h>
43 1.1 hannken #include <sys/cdefs.h>
44 1.1 hannken #include <sys/errno.h>
45 1.1 hannken #include <sys/systm.h>
46 1.1 hannken #include <sys/malloc.h>
47 1.1 hannken #include <dev/wscons/wsksymdef.h>
48 1.1 hannken #include <dev/wscons/wsksymvar.h>
49 1.1 hannken
50 1.1 hannken static struct compose_tab_s {
51 1.1 hannken keysym_t elem[2];
52 1.1 hannken keysym_t result;
53 1.1 hannken } compose_tab[] = {
54 1.1 hannken { { KS_plus, KS_plus }, KS_numbersign },
55 1.1 hannken { { KS_a, KS_a }, KS_at },
56 1.1 hannken { { KS_parenleft, KS_parenleft }, KS_bracketleft },
57 1.1 hannken { { KS_slash, KS_slash }, KS_backslash },
58 1.1 hannken { { KS_parenright, KS_parenright }, KS_bracketright },
59 1.1 hannken { { KS_parenleft, KS_minus }, KS_braceleft },
60 1.1 hannken { { KS_slash, KS_minus }, KS_bar },
61 1.1 hannken { { KS_parenright, KS_minus }, KS_braceright },
62 1.1 hannken { { KS_exclam, KS_exclam }, KS_exclamdown },
63 1.1 hannken { { KS_c, KS_slash }, KS_cent },
64 1.1 hannken { { KS_l, KS_minus }, KS_sterling },
65 1.1 hannken { { KS_y, KS_minus }, KS_yen },
66 1.1 hannken { { KS_s, KS_o }, KS_section },
67 1.1 hannken { { KS_x, KS_o }, KS_currency },
68 1.1 hannken { { KS_c, KS_o }, KS_copyright },
69 1.1 hannken { { KS_less, KS_less }, KS_guillemotleft },
70 1.1 hannken { { KS_greater, KS_greater }, KS_guillemotright },
71 1.1 hannken { { KS_question, KS_question }, KS_questiondown },
72 1.1 hannken { { KS_dead_acute, KS_space }, KS_acute },
73 1.1 hannken { { KS_dead_grave, KS_space }, KS_grave },
74 1.1 hannken { { KS_dead_tilde, KS_space }, KS_asciitilde },
75 1.1 hannken { { KS_dead_circumflex, KS_space }, KS_asciicircum },
76 1.1 hannken { { KS_dead_circumflex, KS_A }, KS_Acircumflex },
77 1.1 hannken { { KS_dead_diaeresis, KS_A }, KS_Adiaeresis },
78 1.1 hannken { { KS_dead_grave, KS_A }, KS_Agrave },
79 1.1 hannken { { KS_dead_abovering, KS_A }, KS_Aring },
80 1.1 hannken { { KS_dead_tilde, KS_A }, KS_Atilde },
81 1.1 hannken { { KS_dead_cedilla, KS_C }, KS_Ccedilla },
82 1.1 hannken { { KS_dead_acute, KS_E }, KS_Eacute },
83 1.1 hannken { { KS_dead_circumflex, KS_E }, KS_Ecircumflex },
84 1.1 hannken { { KS_dead_diaeresis, KS_E }, KS_Ediaeresis },
85 1.1 hannken { { KS_dead_grave, KS_E }, KS_Egrave },
86 1.1 hannken { { KS_dead_acute, KS_I }, KS_Iacute },
87 1.1 hannken { { KS_dead_circumflex, KS_I }, KS_Icircumflex },
88 1.1 hannken { { KS_dead_diaeresis, KS_I }, KS_Idiaeresis },
89 1.1 hannken { { KS_dead_grave, KS_I }, KS_Igrave },
90 1.1 hannken { { KS_dead_tilde, KS_N }, KS_Ntilde },
91 1.1 hannken { { KS_dead_acute, KS_O }, KS_Oacute },
92 1.1 hannken { { KS_dead_circumflex, KS_O }, KS_Ocircumflex },
93 1.1 hannken { { KS_dead_diaeresis, KS_O }, KS_Odiaeresis },
94 1.1 hannken { { KS_dead_grave, KS_O }, KS_Ograve },
95 1.1 hannken { { KS_dead_tilde, KS_O }, KS_Otilde },
96 1.1 hannken { { KS_dead_acute, KS_U }, KS_Uacute },
97 1.1 hannken { { KS_dead_circumflex, KS_U }, KS_Ucircumflex },
98 1.1 hannken { { KS_dead_diaeresis, KS_U }, KS_Udiaeresis },
99 1.1 hannken { { KS_dead_grave, KS_U }, KS_Ugrave },
100 1.1 hannken { { KS_dead_acute, KS_Y }, KS_Yacute },
101 1.1 hannken { { KS_dead_acute, KS_a }, KS_aacute },
102 1.1 hannken { { KS_dead_circumflex, KS_a }, KS_acircumflex },
103 1.1 hannken { { KS_dead_diaeresis, KS_a }, KS_adiaeresis },
104 1.1 hannken { { KS_dead_grave, KS_a }, KS_agrave },
105 1.1 hannken { { KS_dead_abovering, KS_a }, KS_aring },
106 1.1 hannken { { KS_dead_tilde, KS_a }, KS_atilde },
107 1.1 hannken { { KS_dead_cedilla, KS_c }, KS_ccedilla },
108 1.1 hannken { { KS_dead_acute, KS_e }, KS_eacute },
109 1.1 hannken { { KS_dead_circumflex, KS_e }, KS_ecircumflex },
110 1.1 hannken { { KS_dead_diaeresis, KS_e }, KS_ediaeresis },
111 1.1 hannken { { KS_dead_grave, KS_e }, KS_egrave },
112 1.1 hannken { { KS_dead_acute, KS_i }, KS_iacute },
113 1.1 hannken { { KS_dead_circumflex, KS_i }, KS_icircumflex },
114 1.1 hannken { { KS_dead_diaeresis, KS_i }, KS_idiaeresis },
115 1.1 hannken { { KS_dead_grave, KS_i }, KS_igrave },
116 1.1 hannken { { KS_dead_tilde, KS_n }, KS_ntilde },
117 1.1 hannken { { KS_dead_acute, KS_o }, KS_oacute },
118 1.1 hannken { { KS_dead_circumflex, KS_o }, KS_ocircumflex },
119 1.1 hannken { { KS_dead_diaeresis, KS_o }, KS_odiaeresis },
120 1.1 hannken { { KS_dead_grave, KS_o }, KS_ograve },
121 1.1 hannken { { KS_dead_tilde, KS_o }, KS_otilde },
122 1.1 hannken { { KS_dead_acute, KS_u }, KS_uacute },
123 1.1 hannken { { KS_dead_circumflex, KS_u }, KS_ucircumflex },
124 1.1 hannken { { KS_dead_diaeresis, KS_u }, KS_udiaeresis },
125 1.1 hannken { { KS_dead_grave, KS_u }, KS_ugrave },
126 1.1 hannken { { KS_dead_acute, KS_y }, KS_yacute },
127 1.1 hannken { { KS_dead_diaeresis, KS_y }, KS_ydiaeresis },
128 1.1 hannken { { KS_quotedbl, KS_A }, KS_Adiaeresis },
129 1.1 hannken { { KS_quotedbl, KS_E }, KS_Ediaeresis },
130 1.1 hannken { { KS_quotedbl, KS_I }, KS_Idiaeresis },
131 1.1 hannken { { KS_quotedbl, KS_O }, KS_Odiaeresis },
132 1.1 hannken { { KS_quotedbl, KS_U }, KS_Udiaeresis },
133 1.1 hannken { { KS_quotedbl, KS_a }, KS_adiaeresis },
134 1.1 hannken { { KS_quotedbl, KS_e }, KS_ediaeresis },
135 1.1 hannken { { KS_quotedbl, KS_i }, KS_idiaeresis },
136 1.1 hannken { { KS_quotedbl, KS_o }, KS_odiaeresis },
137 1.1 hannken { { KS_quotedbl, KS_u }, KS_udiaeresis },
138 1.1 hannken { { KS_quotedbl, KS_y }, KS_ydiaeresis },
139 1.1 hannken { { KS_acute, KS_A }, KS_Aacute },
140 1.1 hannken { { KS_asciicircum, KS_A }, KS_Acircumflex },
141 1.1 hannken { { KS_grave, KS_A }, KS_Agrave },
142 1.1 hannken { { KS_asterisk, KS_A }, KS_Aring },
143 1.1 hannken { { KS_asciitilde, KS_A }, KS_Atilde },
144 1.1 hannken { { KS_cedilla, KS_C }, KS_Ccedilla },
145 1.1 hannken { { KS_acute, KS_E }, KS_Eacute },
146 1.1 hannken { { KS_asciicircum, KS_E }, KS_Ecircumflex },
147 1.1 hannken { { KS_grave, KS_E }, KS_Egrave },
148 1.1 hannken { { KS_acute, KS_I }, KS_Iacute },
149 1.1 hannken { { KS_asciicircum, KS_I }, KS_Icircumflex },
150 1.1 hannken { { KS_grave, KS_I }, KS_Igrave },
151 1.1 hannken { { KS_asciitilde, KS_N }, KS_Ntilde },
152 1.1 hannken { { KS_acute, KS_O }, KS_Oacute },
153 1.1 hannken { { KS_asciicircum, KS_O }, KS_Ocircumflex },
154 1.1 hannken { { KS_grave, KS_O }, KS_Ograve },
155 1.1 hannken { { KS_asciitilde, KS_O }, KS_Otilde },
156 1.1 hannken { { KS_acute, KS_U }, KS_Uacute },
157 1.1 hannken { { KS_asciicircum, KS_U }, KS_Ucircumflex },
158 1.1 hannken { { KS_grave, KS_U }, KS_Ugrave },
159 1.1 hannken { { KS_acute, KS_Y }, KS_Yacute },
160 1.1 hannken { { KS_acute, KS_a }, KS_aacute },
161 1.1 hannken { { KS_asciicircum, KS_a }, KS_acircumflex },
162 1.1 hannken { { KS_grave, KS_a }, KS_agrave },
163 1.1 hannken { { KS_asterisk, KS_a }, KS_aring },
164 1.1 hannken { { KS_asciitilde, KS_a }, KS_atilde },
165 1.1 hannken { { KS_cedilla, KS_c }, KS_ccedilla },
166 1.1 hannken { { KS_acute, KS_e }, KS_eacute },
167 1.1 hannken { { KS_asciicircum, KS_e }, KS_ecircumflex },
168 1.1 hannken { { KS_grave, KS_e }, KS_egrave },
169 1.1 hannken { { KS_acute, KS_i }, KS_iacute },
170 1.1 hannken { { KS_asciicircum, KS_i }, KS_icircumflex },
171 1.1 hannken { { KS_grave, KS_i }, KS_igrave },
172 1.1 hannken { { KS_asciitilde, KS_n }, KS_ntilde },
173 1.1 hannken { { KS_acute, KS_o }, KS_oacute },
174 1.1 hannken { { KS_asciicircum, KS_o }, KS_ocircumflex },
175 1.1 hannken { { KS_grave, KS_o }, KS_ograve },
176 1.1 hannken { { KS_asciitilde, KS_o }, KS_otilde },
177 1.1 hannken { { KS_acute, KS_u }, KS_uacute },
178 1.1 hannken { { KS_asciicircum, KS_u }, KS_ucircumflex },
179 1.1 hannken { { KS_grave, KS_u }, KS_ugrave },
180 1.13 christos { { KS_acute, KS_y }, KS_yacute },
181 1.13 christos { { KS_dead_semi, KS_gr_A }, KS_gr_At },
182 1.13 christos { { KS_dead_semi, KS_gr_E }, KS_gr_Et },
183 1.13 christos { { KS_dead_semi, KS_gr_H }, KS_gr_Ht },
184 1.13 christos { { KS_dead_semi, KS_gr_I }, KS_gr_It },
185 1.13 christos { { KS_dead_semi, KS_gr_O }, KS_gr_Ot },
186 1.13 christos { { KS_dead_semi, KS_gr_Y }, KS_gr_Yt },
187 1.13 christos { { KS_dead_semi, KS_gr_V }, KS_gr_Vt },
188 1.13 christos { { KS_dead_colon, KS_gr_I }, KS_gr_Id },
189 1.13 christos { { KS_dead_colon, KS_gr_Y }, KS_gr_Yd },
190 1.13 christos { { KS_dead_semi, KS_gr_a }, KS_gr_at },
191 1.13 christos { { KS_dead_semi, KS_gr_e }, KS_gr_et },
192 1.13 christos { { KS_dead_semi, KS_gr_h }, KS_gr_ht },
193 1.13 christos { { KS_dead_semi, KS_gr_i }, KS_gr_it },
194 1.13 christos { { KS_dead_semi, KS_gr_o }, KS_gr_ot },
195 1.13 christos { { KS_dead_semi, KS_gr_y }, KS_gr_yt },
196 1.13 christos { { KS_dead_semi, KS_gr_v }, KS_gr_vt },
197 1.13 christos { { KS_dead_colon, KS_gr_i }, KS_gr_id },
198 1.13 christos { { KS_dead_colon, KS_gr_y }, KS_gr_yd }
199 1.1 hannken };
200 1.1 hannken
201 1.1 hannken #define COMPOSE_SIZE sizeof(compose_tab)/sizeof(compose_tab[0])
202 1.1 hannken
203 1.1 hannken static int compose_tab_inorder = 0;
204 1.1 hannken
205 1.8 augustss static inline int compose_tab_cmp(struct compose_tab_s *, struct compose_tab_s *);
206 1.8 augustss static keysym_t ksym_upcase(keysym_t);
207 1.8 augustss static void fillmapentry(const keysym_t *, int, struct wscons_keymap *);
208 1.1 hannken
209 1.1 hannken static inline int
210 1.8 augustss compose_tab_cmp(struct compose_tab_s *i, struct compose_tab_s *j)
211 1.1 hannken {
212 1.1 hannken if (i->elem[0] == j->elem[0])
213 1.1 hannken return(i->elem[1] - j->elem[1]);
214 1.1 hannken else
215 1.1 hannken return(i->elem[0] - j->elem[0]);
216 1.1 hannken }
217 1.1 hannken
218 1.1 hannken keysym_t
219 1.8 augustss wskbd_compose_value(keysym_t *compose_buf)
220 1.1 hannken {
221 1.1 hannken int i, j, r;
222 1.1 hannken struct compose_tab_s v;
223 1.1 hannken
224 1.1 hannken if (! compose_tab_inorder) {
225 1.1 hannken /* Insertion sort. */
226 1.1 hannken for (i = 1; i < COMPOSE_SIZE; i++) {
227 1.1 hannken v = compose_tab[i];
228 1.1 hannken /* find correct slot, moving others up */
229 1.1 hannken for (j = i; --j >= 0 && compose_tab_cmp(& v, & compose_tab[j]) < 0; )
230 1.1 hannken compose_tab[j + 1] = compose_tab[j];
231 1.1 hannken compose_tab[j + 1] = v;
232 1.1 hannken }
233 1.1 hannken compose_tab_inorder = 1;
234 1.1 hannken }
235 1.1 hannken
236 1.1 hannken for (j = 0, i = COMPOSE_SIZE; i != 0; i /= 2) {
237 1.1 hannken if (compose_tab[j + i/2].elem[0] == compose_buf[0]) {
238 1.1 hannken if (compose_tab[j + i/2].elem[1] == compose_buf[1])
239 1.1 hannken return(compose_tab[j + i/2].result);
240 1.1 hannken r = compose_tab[j + i/2].elem[1] < compose_buf[1];
241 1.1 hannken } else
242 1.1 hannken r = compose_tab[j + i/2].elem[0] < compose_buf[0];
243 1.1 hannken if (r) {
244 1.1 hannken j += i/2 + 1;
245 1.1 hannken i--;
246 1.1 hannken }
247 1.1 hannken }
248 1.1 hannken
249 1.1 hannken return(KS_voidSymbol);
250 1.1 hannken }
251 1.1 hannken
252 1.1 hannken static const u_char latin1_to_upper[256] = {
253 1.1 hannken /* 0 8 1 9 2 a 3 b 4 c 5 d 6 e 7 f */
254 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0 */
255 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0 */
256 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1 */
257 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1 */
258 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 2 */
259 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 2 */
260 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 3 */
261 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 3 */
262 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 4 */
263 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 4 */
264 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 5 */
265 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 5 */
266 1.1 hannken 0x00, 'A', 'B', 'C', 'D', 'E', 'F', 'G', /* 6 */
267 1.1 hannken 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', /* 6 */
268 1.1 hannken 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', /* 7 */
269 1.1 hannken 'X', 'Y', 'Z', 0x00, 0x00, 0x00, 0x00, 0x00, /* 7 */
270 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 8 */
271 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 8 */
272 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 9 */
273 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 9 */
274 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* a */
275 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* a */
276 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* b */
277 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* b */
278 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* c */
279 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* c */
280 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* d */
281 1.1 hannken 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* d */
282 1.1 hannken 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, /* e */
283 1.1 hannken 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, /* e */
284 1.1 hannken 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, 0x00, /* f */
285 1.1 hannken 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0x00, /* f */
286 1.1 hannken };
287 1.1 hannken
288 1.1 hannken static keysym_t
289 1.8 augustss ksym_upcase(keysym_t ksym)
290 1.1 hannken {
291 1.1 hannken if (ksym >= KS_f1 && ksym <= KS_f20)
292 1.1 hannken return(KS_F1 - KS_f1 + ksym);
293 1.1 hannken
294 1.3 hannken if (KS_GROUP(ksym) == KS_GROUP_Ascii && ksym <= 0xff &&
295 1.3 hannken latin1_to_upper[ksym] != 0x00)
296 1.3 hannken return(latin1_to_upper[ksym]);
297 1.1 hannken
298 1.1 hannken return(ksym);
299 1.1 hannken }
300 1.1 hannken
301 1.2 hannken static void
302 1.8 augustss fillmapentry(const keysym_t *kp, int len, struct wscons_keymap *mapentry)
303 1.2 hannken {
304 1.2 hannken switch (len) {
305 1.2 hannken case 0:
306 1.2 hannken mapentry->group1[0] = KS_voidSymbol;
307 1.2 hannken mapentry->group1[1] = KS_voidSymbol;
308 1.2 hannken mapentry->group2[0] = KS_voidSymbol;
309 1.2 hannken mapentry->group2[1] = KS_voidSymbol;
310 1.2 hannken break;
311 1.2 hannken
312 1.2 hannken case 1:
313 1.2 hannken mapentry->group1[0] = kp[0];
314 1.2 hannken mapentry->group1[1] = ksym_upcase(kp[0]);
315 1.2 hannken mapentry->group2[0] = mapentry->group1[0];
316 1.2 hannken mapentry->group2[1] = mapentry->group1[1];
317 1.2 hannken break;
318 1.2 hannken
319 1.2 hannken case 2:
320 1.2 hannken mapentry->group1[0] = kp[0];
321 1.2 hannken mapentry->group1[1] = kp[1];
322 1.2 hannken mapentry->group2[0] = mapentry->group1[0];
323 1.2 hannken mapentry->group2[1] = mapentry->group1[1];
324 1.2 hannken break;
325 1.2 hannken
326 1.2 hannken case 3:
327 1.2 hannken mapentry->group1[0] = kp[0];
328 1.2 hannken mapentry->group1[1] = kp[1];
329 1.2 hannken mapentry->group2[0] = kp[2];
330 1.2 hannken mapentry->group2[1] = ksym_upcase(kp[2]);
331 1.2 hannken break;
332 1.2 hannken
333 1.2 hannken case 4:
334 1.2 hannken mapentry->group1[0] = kp[0];
335 1.2 hannken mapentry->group1[1] = kp[1];
336 1.2 hannken mapentry->group2[0] = kp[2];
337 1.2 hannken mapentry->group2[1] = kp[3];
338 1.2 hannken break;
339 1.2 hannken
340 1.2 hannken }
341 1.2 hannken }
342 1.2 hannken
343 1.2 hannken void
344 1.8 augustss wskbd_get_mapentry(const struct wskbd_mapdata *mapdata, int kc,
345 1.8 augustss struct wscons_keymap *mapentry)
346 1.2 hannken {
347 1.2 hannken kbd_t cur;
348 1.2 hannken const keysym_t *kp;
349 1.2 hannken const struct wscons_keydesc *mp;
350 1.6 drochner int l;
351 1.2 hannken
352 1.2 hannken mapentry->command = KS_voidSymbol;
353 1.2 hannken mapentry->group1[0] = KS_voidSymbol;
354 1.2 hannken mapentry->group1[1] = KS_voidSymbol;
355 1.2 hannken mapentry->group2[0] = KS_voidSymbol;
356 1.2 hannken mapentry->group2[1] = KS_voidSymbol;
357 1.2 hannken
358 1.7 drochner for (cur = mapdata->layout & ~KB_HANDLEDBYWSKBD; cur != 0; ) {
359 1.6 drochner mp = mapdata->keydesc;
360 1.6 drochner while (mp->map_size > 0) {
361 1.6 drochner if (mp->name == cur)
362 1.2 hannken break;
363 1.6 drochner mp++;
364 1.6 drochner }
365 1.2 hannken
366 1.2 hannken /* If map not found, return */
367 1.6 drochner if (mp->map_size <= 0)
368 1.2 hannken return;
369 1.2 hannken
370 1.2 hannken for (kp = mp->map; kp < mp->map + mp->map_size; kp++)
371 1.2 hannken if (KS_GROUP(*kp) == KS_GROUP_Keycode &&
372 1.2 hannken KS_VALUE(*kp) == kc) {
373 1.2 hannken /* First skip keycode and possible command */
374 1.2 hannken kp++;
375 1.2 hannken if (KS_GROUP(*kp) == KS_GROUP_Command ||
376 1.2 hannken *kp == KS_Cmd || *kp == KS_Cmd1 || *kp == KS_Cmd2)
377 1.2 hannken mapentry->command = *kp++;
378 1.2 hannken
379 1.2 hannken for (l = 0; kp + l < mp->map + mp->map_size; l++)
380 1.2 hannken if (KS_GROUP(kp[l]) == KS_GROUP_Keycode)
381 1.2 hannken break;
382 1.2 hannken if (l > 4)
383 1.2 hannken panic("wskbd_get_mapentry: %d(%d): bad entry",
384 1.2 hannken mp->name, *kp);
385 1.2 hannken fillmapentry(kp, l, mapentry);
386 1.2 hannken return;
387 1.2 hannken }
388 1.2 hannken
389 1.6 drochner cur = mp->base;
390 1.2 hannken }
391 1.2 hannken }
392 1.2 hannken
393 1.1 hannken void
394 1.8 augustss wskbd_init_keymap(int newlen, struct wscons_keymap **map, int *maplen)
395 1.1 hannken {
396 1.1 hannken int i;
397 1.1 hannken
398 1.1 hannken if (newlen != *maplen) {
399 1.1 hannken if (*maplen > 0)
400 1.1 hannken free(*map, M_TEMP);
401 1.1 hannken *maplen = newlen;
402 1.1 hannken *map = malloc(newlen*sizeof(struct wscons_keymap),
403 1.1 hannken M_TEMP, M_WAITOK);
404 1.1 hannken }
405 1.1 hannken
406 1.1 hannken for (i = 0; i < *maplen; i++) {
407 1.1 hannken (*map)[i].command = KS_voidSymbol;
408 1.1 hannken (*map)[i].group1[0] = KS_voidSymbol;
409 1.1 hannken (*map)[i].group1[1] = KS_voidSymbol;
410 1.1 hannken (*map)[i].group2[0] = KS_voidSymbol;
411 1.1 hannken (*map)[i].group2[1] = KS_voidSymbol;
412 1.1 hannken }
413 1.1 hannken }
414 1.1 hannken
415 1.1 hannken int
416 1.11 perry wskbd_load_keymap(const struct wskbd_mapdata *mapdata,
417 1.8 augustss struct wscons_keymap **map, int *maplen)
418 1.1 hannken {
419 1.6 drochner int i, s, kc, stack_ptr;
420 1.1 hannken const keysym_t *kp;
421 1.6 drochner const struct wscons_keydesc *mp, *stack[10];
422 1.1 hannken kbd_t cur;
423 1.1 hannken
424 1.7 drochner for (cur = mapdata->layout & ~KB_HANDLEDBYWSKBD, stack_ptr = 0;
425 1.7 drochner cur != 0; stack_ptr++) {
426 1.6 drochner mp = mapdata->keydesc;
427 1.6 drochner while (mp->map_size > 0) {
428 1.6 drochner if (cur == 0 || mp->name == cur) {
429 1.1 hannken break;
430 1.1 hannken }
431 1.6 drochner mp++;
432 1.6 drochner }
433 1.1 hannken
434 1.1 hannken if (stack_ptr == sizeof(stack)/sizeof(stack[0]))
435 1.5 drochner panic("wskbd_load_keymap: %d: recursion too deep",
436 1.5 drochner mapdata->layout);
437 1.6 drochner if (mp->map_size <= 0)
438 1.1 hannken return(EINVAL);
439 1.1 hannken
440 1.6 drochner stack[stack_ptr] = mp;
441 1.6 drochner cur = mp->base;
442 1.1 hannken }
443 1.1 hannken
444 1.1 hannken for (i = 0, s = stack_ptr - 1; s >= 0; s--) {
445 1.6 drochner mp = stack[s];
446 1.1 hannken for (kp = mp->map; kp < mp->map + mp->map_size; kp++)
447 1.1 hannken if (KS_GROUP(*kp) == KS_GROUP_Keycode && KS_VALUE(*kp) > i)
448 1.1 hannken i = KS_VALUE(*kp);
449 1.1 hannken }
450 1.1 hannken
451 1.1 hannken wskbd_init_keymap(i + 1, map, maplen);
452 1.1 hannken
453 1.1 hannken for (s = stack_ptr - 1; s >= 0; s--) {
454 1.6 drochner mp = stack[s];
455 1.1 hannken for (kp = mp->map; kp < mp->map + mp->map_size; ) {
456 1.1 hannken if (KS_GROUP(*kp) != KS_GROUP_Keycode)
457 1.1 hannken panic("wskbd_load_keymap: %d(%d): bad entry",
458 1.1 hannken mp->name, *kp);
459 1.1 hannken
460 1.1 hannken kc = KS_VALUE(*kp);
461 1.1 hannken kp++;
462 1.1 hannken
463 1.1 hannken if (KS_GROUP(*kp) == KS_GROUP_Command ||
464 1.1 hannken *kp == KS_Cmd || *kp == KS_Cmd1 || *kp == KS_Cmd2) {
465 1.1 hannken (*map)[kc].command = *kp;
466 1.1 hannken kp++;
467 1.1 hannken }
468 1.1 hannken
469 1.1 hannken for (i = 0; kp + i < mp->map + mp->map_size; i++)
470 1.1 hannken if (KS_GROUP(kp[i]) == KS_GROUP_Keycode)
471 1.1 hannken break;
472 1.1 hannken
473 1.1 hannken if (i > 4)
474 1.1 hannken panic("wskbd_load_keymap: %d(%d): bad entry",
475 1.1 hannken mp->name, *kp);
476 1.1 hannken
477 1.2 hannken fillmapentry(kp, i, &(*map)[kc]);
478 1.1 hannken kp += i;
479 1.1 hannken }
480 1.1 hannken }
481 1.1 hannken
482 1.1 hannken return(0);
483 1.1 hannken }
484