1 /* $NetBSD: mkbd.c,v 1.32 2021/09/18 15:14:40 tsutsui Exp $ */
2
3 /*-
4 * Copyright (c) 2001 Marcus Comstedt
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by Marcus Comstedt.
18 * 4. Neither the name of The NetBSD Foundation nor the names of its
19 * contributors may be used to endorse or promote products derived
20 * from this software without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
23 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
24 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
25 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
26 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
27 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
28 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
29 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
30 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
31 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32 * POSSIBILITY OF SUCH DAMAGE.
33 */
34
35 #include <sys/cdefs.h>
36 __KERNEL_RCSID(0, "$NetBSD: mkbd.c,v 1.32 2021/09/18 15:14:40 tsutsui Exp $");
37
38 #include <sys/param.h>
39 #include <sys/device.h>
40 #include <sys/fcntl.h>
41 #include <sys/poll.h>
42 #include <sys/select.h>
43 #include <sys/proc.h>
44 #include <sys/signalvar.h>
45 #include <sys/systm.h>
46 #include <sys/bus.h>
47
48 #include "wskbd.h"
49
50 #include <dev/wscons/wsconsio.h>
51 #include <dev/wscons/wskbdvar.h>
52 #include <dev/wscons/wsksymdef.h>
53 #include <dev/wscons/wsksymvar.h>
54
55 #include <machine/cpu.h>
56
57 #include <dreamcast/dev/maple/maple.h>
58 #include <dreamcast/dev/maple/mapleconf.h>
59 #include <dreamcast/dev/maple/mkbdvar.h>
60 #include <dreamcast/dev/maple/mkbdmap.h>
61
62 /*
63 * Function declarations.
64 */
65 static int mkbdmatch(device_t, cfdata_t, void *);
66 static void mkbdattach(device_t, device_t, void *);
67 static int mkbddetach(device_t, int);
68
69 int mkbd_enable(void *, int);
70 void mkbd_set_leds(void *, int);
71 int mkbd_ioctl(void *, u_long, void *, int, struct lwp *);
72
73 struct wskbd_accessops mkbd_accessops = {
74 mkbd_enable,
75 mkbd_set_leds,
76 mkbd_ioctl,
77 };
78
79 static void mkbd_intr(void *, struct maple_response *, int, int);
80
81 void mkbd_cngetc(void *, u_int *, int *);
82 void mkbd_cnpollc(void *, int);
83 int mkbd_cnattach(void);
84
85 struct wskbd_consops mkbd_consops = {
86 mkbd_cngetc,
87 mkbd_cnpollc,
88 };
89
90 struct wskbd_mapdata mkbd_keymapdata = {
91 mkbd_keydesctab,
92 KB_JP,
93 };
94
95 static struct mkbd_softc *mkbd_console_softc;
96
97 static int mkbd_is_console;
98 static int mkbd_console_initted;
99
100 CFATTACH_DECL_NEW(mkbd, sizeof(struct mkbd_softc),
101 mkbdmatch, mkbdattach, mkbddetach, NULL);
102
103 static int
mkbdmatch(device_t parent,cfdata_t cf,void * aux)104 mkbdmatch(device_t parent, cfdata_t cf, void *aux)
105 {
106 struct maple_attach_args *ma = aux;
107
108 return ma->ma_function == MAPLE_FN_KEYBOARD ? MAPLE_MATCH_FUNC : 0;
109 }
110
111 static void
mkbdattach(device_t parent,device_t self,void * aux)112 mkbdattach(device_t parent, device_t self, void *aux)
113 {
114 struct mkbd_softc *sc = device_private(self);
115 struct maple_attach_args *ma = aux;
116 #if NWSKBD > 0
117 struct wskbddev_attach_args a;
118 #endif
119 uint32_t kbdtype;
120
121 sc->sc_dev = self;
122 sc->sc_parent = parent;
123 sc->sc_unit = ma->ma_unit;
124
125 kbdtype = maple_get_function_data(ma->ma_devinfo,
126 MAPLE_FN_KEYBOARD) >> 24;
127 switch (kbdtype) {
128 case 1:
129 printf(": Japanese keyboard");
130 mkbd_keymapdata.layout = KB_JP;
131 break;
132 case 2:
133 printf(": US keyboard");
134 mkbd_keymapdata.layout = KB_US;
135 break;
136 case 3:
137 printf(": European keyboard");
138 mkbd_keymapdata.layout = KB_UK;
139 break;
140 default:
141 printf(": Unknown keyboard %d", kbdtype);
142 }
143 printf("\n");
144 #ifdef MKBD_LAYOUT
145 /* allow user to override the default keymap */
146 mkbd_keymapdata.layout = MKBD_LAYOUT;
147 #endif
148 #ifdef MKBD_SWAPCTRLCAPS
149 /* allow user to specify swapctrlcaps with the default keymap */
150 mkbd_keymapdata.layout |= KB_SWAPCTRLCAPS;
151 #endif
152
153 #if NWSKBD > 0
154 if ((a.console = mkbd_is_console) != 0) {
155 mkbd_is_console = 0;
156 if (!mkbd_console_initted)
157 wskbd_cnattach(&mkbd_consops, NULL, &mkbd_keymapdata);
158 mkbd_console_softc = sc;
159 }
160 a.keymap = &mkbd_keymapdata;
161 a.accessops = &mkbd_accessops;
162 a.accesscookie = sc;
163 sc->sc_wskbddev = config_found(self, &a, wskbddevprint, CFARGS_NONE);
164 #endif
165
166 maple_set_callback(parent, sc->sc_unit, MAPLE_FN_KEYBOARD,
167 mkbd_intr, sc);
168 maple_enable_periodic(parent, sc->sc_unit, MAPLE_FN_KEYBOARD, 1);
169 }
170
171 static int
mkbddetach(device_t self,int flags)172 mkbddetach(device_t self, int flags)
173 {
174 struct mkbd_softc *sc = device_private(self);
175 int rv = 0;
176
177 if (sc == mkbd_console_softc) {
178 /*
179 * Hack to allow another Maple keyboard to be new console.
180 * XXX Should some other type device can be console.
181 */
182 printf("%s: was console keyboard\n", device_xname(sc->sc_dev));
183 wskbd_cndetach();
184 mkbd_console_softc = NULL;
185 mkbd_console_initted = 0;
186 mkbd_is_console = 1;
187 }
188 if (sc->sc_wskbddev)
189 rv = config_detach(sc->sc_wskbddev, flags);
190
191 return rv;
192 }
193
194 int
mkbd_enable(void * v,int on)195 mkbd_enable(void *v, int on)
196 {
197
198 return 0;
199 }
200
201 void
mkbd_set_leds(void * v,int on)202 mkbd_set_leds(void *v, int on)
203 {
204 }
205
206 int
mkbd_ioctl(void * v,u_long cmd,void * data,int flag,struct lwp * l)207 mkbd_ioctl(void *v, u_long cmd, void *data, int flag, struct lwp *l)
208 {
209
210 switch (cmd) {
211 case WSKBDIO_GTYPE:
212 *(int *) data = WSKBD_TYPE_MAPLE;
213 return 0;
214 case WSKBDIO_SETLEDS:
215 return 0;
216 case WSKBDIO_GETLEDS:
217 *(int *) data = 0;
218 return 0;
219 case WSKBDIO_COMPLEXBELL:
220 return 0;
221 }
222
223 return EPASSTHROUGH;
224 }
225
226 int
mkbd_cnattach(void)227 mkbd_cnattach(void)
228 {
229
230 wskbd_cnattach(&mkbd_consops, NULL, &mkbd_keymapdata);
231 mkbd_console_initted = 1;
232 mkbd_is_console = 1;
233
234 return 0;
235 }
236
237 static int polledkey;
238 extern int maple_polling;
239
240 #define SHIFT_KEYCODE_BASE 0xe0
241 #define UP_KEYCODE_FLAG 0x1000
242
243 #define KEY_UP(n) do { \
244 if (maple_polling) \
245 polledkey = (n)|UP_KEYCODE_FLAG; \
246 else \
247 wskbd_input(sc->sc_wskbddev, WSCONS_EVENT_KEY_UP, (n)); \
248 } while (/*CONSTCOND*/0)
249
250 #define KEY_DOWN(n) do { \
251 if (maple_polling) \
252 polledkey = (n); \
253 else \
254 wskbd_input(sc->sc_wskbddev, WSCONS_EVENT_KEY_DOWN, (n)); \
255 } while (/*CONSTCOND*/0)
256
257 #define SHIFT_UP(n) KEY_UP((n) | SHIFT_KEYCODE_BASE)
258 #define SHIFT_DOWN(n) KEY_DOWN((n) | SHIFT_KEYCODE_BASE)
259
260 static void
mkbd_intr(void * arg,struct maple_response * response,int sz,int flags)261 mkbd_intr(void *arg, struct maple_response *response, int sz, int flags)
262 {
263 struct mkbd_softc *sc = arg;
264 struct mkbd_condition *kbddata = (void *) response->data;
265
266 if ((flags & MAPLE_FLAG_PERIODIC) &&
267 sz >= sizeof(struct mkbd_condition)) {
268 int i, j, v;
269
270 v = sc->sc_condition.shift & ~kbddata->shift;
271 if (v)
272 for (i = 0; i < 8; i++)
273 if (v & (1 << i))
274 SHIFT_UP(i);
275
276 v = kbddata->shift & ~sc->sc_condition.shift;
277 if (v)
278 for (i = 0; i < 8; i++)
279 if (v & (1 << i))
280 SHIFT_DOWN(i);
281
282 for (i = 0, j = 0; i < 6; i++)
283 if (sc->sc_condition.key[i] < 4)
284 break;
285 else if (sc->sc_condition.key[i] == kbddata->key[j])
286 j++;
287 else
288 KEY_UP(sc->sc_condition.key[i]);
289
290 for (; j < 6; j++)
291 if (kbddata->key[j] < 4)
292 break;
293 else
294 KEY_DOWN(kbddata->key[j]);
295
296 memcpy(&sc->sc_condition, kbddata,
297 sizeof(struct mkbd_condition));
298 }
299 }
300
301 void
mkbd_cngetc(void * v,u_int * type,int * data)302 mkbd_cngetc(void *v, u_int *type, int *data)
303 {
304 int key;
305
306 polledkey = -1;
307 maple_polling = 1;
308 while (polledkey == -1) {
309 if (mkbd_console_softc != NULL &&
310 mkbd_console_softc->sc_parent != NULL) {
311 DELAY(20000);
312 maple_run_polling(mkbd_console_softc->sc_parent);
313 }
314 }
315 maple_polling = 0;
316 key = polledkey;
317
318 *data = key & ~UP_KEYCODE_FLAG;
319 *type = (key & UP_KEYCODE_FLAG) ?
320 WSCONS_EVENT_KEY_UP : WSCONS_EVENT_KEY_DOWN;
321 }
322
323 void
mkbd_cnpollc(void * v,int on)324 mkbd_cnpollc(void *v, int on)
325 {
326 }
327