/* $NetBSD: lunaws.c,v 1.13 2007/03/04 06:00:03 christos Exp $ */ /*- * Copyright (c) 2000 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Tohru Nishimura. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the NetBSD * Foundation, Inc. and its contributors. * 4. Neither the name of The NetBSD Foundation nor the names of its * contributors may be used to endorse or promote products derived * from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include /* RCS ID & Copyright macro defns */ __KERNEL_RCSID(0, "$NetBSD: lunaws.c,v 1.13 2007/03/04 06:00:03 christos Exp $"); #include "wsmouse.h" #include #include #include #include #include #include #include #include #include #include #include static const u_int8_t ch1_regs[6] = { WR0_RSTINT, /* Reset E/S Interrupt */ WR1_RXALLS, /* Rx per char, No Tx */ 0, /* */ WR3_RX8BIT | WR3_RXENBL, /* Rx */ WR4_BAUD96 | WR4_STOP1 | WR4_NPARITY, /* Tx/Rx */ WR5_TX8BIT | WR5_TXENBL, /* Tx */ }; struct ws_softc { struct device sc_dv; struct sioreg *sc_ctl; u_int8_t sc_wr[6]; struct device *sc_wskbddev; #if NWSMOUSE > 0 struct device *sc_wsmousedev; int sc_msreport; int buttons, dx, dy; #endif }; static void omkbd_input __P((void *, int)); static int omkbd_decode __P((void *, int, u_int *, int *)); static int omkbd_enable __P((void *, int)); static void omkbd_set_leds __P((void *, int)); static int omkbd_ioctl __P((void *, u_long, void *, int, struct lwp *)); struct wscons_keydesc omkbd_keydesctab[]; static const struct wskbd_mapdata omkbd_keymapdata = { omkbd_keydesctab, KB_JP, }; static const struct wskbd_accessops omkbd_accessops = { omkbd_enable, omkbd_set_leds, omkbd_ioctl, }; void ws_cnattach __P((void)); static void ws_cngetc __P((void *, u_int *, int *)); static void ws_cnpollc __P((void *, int)); static const struct wskbd_consops ws_consops = { ws_cngetc, ws_cnpollc, }; #if NWSMOUSE > 0 static int omms_enable __P((void *)); static int omms_ioctl __P((void *, u_long, void *, int, struct lwp *)); static void omms_disable __P((void *)); static const struct wsmouse_accessops omms_accessops = { omms_enable, omms_ioctl, omms_disable, }; #endif static void wsintr __P((int)); static int wsmatch __P((struct device *, struct cfdata *, void *)); static void wsattach __P((struct device *, struct device *, void *)); CFATTACH_DECL(ws, sizeof(struct ws_softc), wsmatch, wsattach, NULL, NULL); extern struct cfdriver ws_cd; extern int syscngetc __P((dev_t)); extern void syscnputc __P((dev_t, int)); static int wsmatch(parent, match, aux) struct device *parent; struct cfdata *match; void *aux; { struct sio_attach_args *args = aux; if (args->channel != 1) return 0; return 1; } static void wsattach(parent, self, aux) struct device *parent; struct device *self; void *aux; { struct ws_softc *sc = (struct ws_softc *)self; struct sio_softc *scp = (struct sio_softc *)parent; struct sio_attach_args *args = aux; struct wskbddev_attach_args a; sc->sc_ctl = (struct sioreg *)scp->scp_ctl + 1; bcopy(ch1_regs, sc->sc_wr, sizeof(ch1_regs)); scp->scp_intr[1] = wsintr; setsioreg(sc->sc_ctl, WR0, sc->sc_wr[WR0]); setsioreg(sc->sc_ctl, WR4, sc->sc_wr[WR4]); setsioreg(sc->sc_ctl, WR3, sc->sc_wr[WR3]); setsioreg(sc->sc_ctl, WR5, sc->sc_wr[WR5]); setsioreg(sc->sc_ctl, WR0, sc->sc_wr[WR0]); setsioreg(sc->sc_ctl, WR1, sc->sc_wr[WR1]); syscnputc((dev_t)1, 0x20); /* keep quiet mouse */ printf("\n"); a.console = (args->hwflags == 1); a.keymap = &omkbd_keymapdata; a.accessops = &omkbd_accessops; a.accesscookie = (void *)sc; sc->sc_wskbddev = config_found_ia(self, "wskbddev", &a, wskbddevprint); #if NWSMOUSE > 0 { struct wsmousedev_attach_args b; b.accessops = &omms_accessops; b.accesscookie = (void *)sc; sc->sc_wsmousedev = config_found_ia(self, "wsmousedev", &b, wsmousedevprint); sc->sc_msreport = 0; } #endif } /*ARGSUSED*/ static void wsintr(chan) int chan; { struct ws_softc *sc = ws_cd.cd_devs[0]; struct sioreg *sio = sc->sc_ctl; u_int code; int rr; rr = getsiocsr(sio); if (rr & RR_RXRDY) { do { code = sio->sio_data; if (rr & (RR_FRAMING | RR_OVERRUN | RR_PARITY)) { sio->sio_cmd = WR0_ERRRST; continue; } #if NWSMOUSE > 0 /* * if (code >= 0x80 && code <= 0x87), then * it's the first byte of 3 byte long mouse report * code[0] & 07 -> LMR button condition * code[1], [2] -> x,y delta * otherwise, key press or release event. */ if (sc->sc_msreport == 0) { if (code < 0x80 || code > 0x87) { omkbd_input(sc, code); continue; } code = (code & 07) ^ 07; /* LMR->RML: wsevent counts 0 for leftmost */ sc->buttons = (code & 02); if (code & 01) sc->buttons |= 04; if (code & 04) sc->buttons |= 01; sc->sc_msreport = 1; } else if (sc->sc_msreport == 1) { sc->dx = (signed char)code; sc->sc_msreport = 2; } else if (sc->sc_msreport == 2) { sc->dy = (signed char)code; wsmouse_input(sc->sc_wsmousedev, sc->buttons, sc->dx, sc->dy, 0, 0, WSMOUSE_INPUT_DELTA); sc->sc_msreport = 0; } #else omkbd_input(sc, code); #endif } while ((rr = getsiocsr(sio)) & RR_RXRDY); } if (rr && RR_TXRDY) sio->sio_cmd = WR0_RSTPEND; /* not capable of transmit, yet */ } static void omkbd_input(v, data) void *v; int data; { struct ws_softc *sc = v; u_int type; int key; if (omkbd_decode(v, data, &type, &key)) wskbd_input(sc->sc_wskbddev, type, key); } static int omkbd_decode(v, datain, type, dataout) void *v; int datain; u_int *type; int *dataout; { *type = (datain & 0x80) ? WSCONS_EVENT_KEY_UP : WSCONS_EVENT_KEY_DOWN; *dataout = datain & 0x7f; return 1; } #define KC(n) KS_KEYCODE(n) static const keysym_t omkbd_keydesc_1[] = { /* pos command normal shifted */ KC(0x9), KS_Tab, KC(0xa), KS_Control_L, KC(0xb), KS_Mode_switch, /* Kana */ KC(0xc), KS_Shift_R, KC(0xd), KS_Shift_L, KC(0xe), KS_Caps_Lock, KC(0xf), KS_Meta_L, /* Zenmen */ KC(0x10), KS_Escape, KC(0x11), KS_BackSpace, KC(0x12), KS_Return, KC(0x14), KS_space, KC(0x15), KS_Delete, KC(0x16), KS_Alt_L, /* Henkan */ KC(0x17), KS_Alt_R, /* Kakutei */ KC(0x18), KS_f11, /* Shokyo */ KC(0x19), KS_f12, /* Yobidashi */ KC(0x1a), KS_f13, /* Bunsetsu L */ KC(0x1b), KS_f14, /* Bunsetsu R */ KC(0x1c), KS_KP_Up, KC(0x1d), KS_KP_Left, KC(0x1e), KS_KP_Right, KC(0x1f), KS_KP_Down, /* KC(0x20), KS_f11, */ /* KC(0x21), KS_f12, */ KC(0x22), KS_1, KS_exclam, KC(0x23), KS_2, KS_quotedbl, KC(0x24), KS_3, KS_numbersign, KC(0x25), KS_4, KS_dollar, KC(0x26), KS_5, KS_percent, KC(0x27), KS_6, KS_ampersand, KC(0x28), KS_7, KS_apostrophe, KC(0x29), KS_8, KS_parenleft, KC(0x2a), KS_9, KS_parenright, KC(0x2b), KS_0, KC(0x2c), KS_minus, KS_equal, KC(0x2d), KS_asciicircum, KS_asciitilde, KC(0x2e), KS_backslash, KS_bar, /* KC(0x30), KS_f13, */ /* KC(0x31), KS_f14, */ KC(0x32), KS_q, KC(0x33), KS_w, KC(0x34), KS_e, KC(0x35), KS_r, KC(0x36), KS_t, KC(0x37), KS_y, KC(0x38), KS_u, KC(0x39), KS_i, KC(0x3a), KS_o, KC(0x3b), KS_p, KC(0x3c), KS_at, KS_grave, KC(0x3d), KS_bracketleft, KS_braceleft, KC(0x42), KS_a, KC(0x43), KS_s, KC(0x44), KS_d, KC(0x45), KS_f, KC(0x46), KS_g, KC(0x47), KS_h, KC(0x48), KS_j, KC(0x49), KS_k, KC(0x4a), KS_l, KC(0x4b), KS_semicolon, KS_plus, KC(0x4c), KS_colon, KS_asterisk, KC(0x4d), KS_bracketright, KS_braceright, KC(0x52), KS_z, KC(0x53), KS_x, KC(0x54), KS_c, KC(0x55), KS_v, KC(0x56), KS_b, KC(0x57), KS_n, KC(0x58), KS_m, KC(0x59), KS_comma, KS_less, KC(0x5a), KS_period, KS_greater, KC(0x5b), KS_slash, KS_question, KC(0x5c), KS_underscore, KC(0x60), KS_KP_Delete, KC(0x61), KS_KP_Add, KC(0x62), KS_KP_Subtract, KC(0x63), KS_KP_7, KC(0x64), KS_KP_8, KC(0x65), KS_KP_9, KC(0x66), KS_KP_4, KC(0x67), KS_KP_5, KC(0x68), KS_KP_6, KC(0x69), KS_KP_1, KC(0x6a), KS_KP_2, KC(0x6b), KS_KP_3, KC(0x6c), KS_KP_0, KC(0x6d), KS_KP_Decimal, KC(0x6e), KS_KP_Enter, KC(0x72), KS_f1, KC(0x73), KS_f2, KC(0x74), KS_f3, KC(0x75), KS_f4, KC(0x76), KS_f5, KC(0x77), KS_f6, KC(0x78), KS_f7, KC(0x79), KS_f8, KC(0x7a), KS_f9, KC(0x7b), KS_f10, KC(0x7c), KS_KP_Multiply, KC(0x7d), KS_KP_Divide, KC(0x7e), KS_KP_Equal, KC(0x7f), KS_KP_Separator, }; #define SIZE(map) (sizeof(map)/sizeof(keysym_t)) struct wscons_keydesc omkbd_keydesctab[] = { { KB_JP, 0, SIZE(omkbd_keydesc_1), omkbd_keydesc_1, }, { 0, 0, 0, 0 }, }; static void ws_cngetc(v, type, data) void *v; u_int *type; int *data; { int code; do { code = syscngetc((dev_t)1); } while (!omkbd_decode(v, code, type, data)); } static void ws_cnpollc(v, on) void *v; int on; { } /* EXPORT */ void ws_cnattach() { static int voidfill; /* XXX need CH.B initialization XXX */ wskbd_cnattach(&ws_consops, &voidfill, &omkbd_keymapdata); } static int omkbd_enable(v, on) void *v; int on; { return 0; } static void omkbd_set_leds(v, leds) void *v; int leds; { #if 0 syscnputc((dev_t)1, 0x10); /* kana LED on */ syscnputc((dev_t)1, 0x00); /* kana LED off */ syscnputc((dev_t)1, 0x11); /* caps LED on */ syscnputc((dev_t)1, 0x01); /* caps LED off */ #endif } static int omkbd_ioctl(v, cmd, data, flag, l) void *v; u_long cmd; void *data; int flag; struct lwp *l; { switch (cmd) { case WSKBDIO_GTYPE: *(int *)data = 0x19991005 /* XXX */; return 0; case WSKBDIO_SETLEDS: case WSKBDIO_GETLEDS: case WSKBDIO_COMPLEXBELL: /* XXX capable of complex bell */ return 0; } return EPASSTHROUGH; } #if NWSMOUSE > 0 static int omms_enable(v) void *v; { struct ws_softc *sc = v; syscnputc((dev_t)1, 0x60); /* enable 3 byte long mouse reporting */ sc->sc_msreport = 0; return 0; } /*ARGUSED*/ static int omms_ioctl(v, cmd, data, flag, l) void *v; u_long cmd; void *data; int flag; struct lwp *l; { if (cmd == WSMOUSEIO_GTYPE) { *(u_int *)data = 0x19991005; /* XXX */ return 0; } return EPASSTHROUGH; } static void omms_disable(v) void *v; { struct ws_softc *sc = v; syscnputc((dev_t)1, 0x20); /* quiet mouse */ sc->sc_msreport = 0; } #endif