NetBSD/sys/arch/luna68k/dev/lunaws.c

/* $NetBSD: lunaws.c,v 1.4 2000/01/14 03:28:13 nisimura 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 <sys/cdefs.h>			/* RCS ID & Copyright macro defns */

__KERNEL_RCSID(0, "$NetBSD: lunaws.c,v 1.4 2000/01/14 03:28:13 nisimura Exp $");

#include "wsmouse.h"

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/conf.h>
#include <sys/device.h>

#include <dev/wscons/wsconsio.h>
#include <dev/wscons/wskbdvar.h>
#include <dev/wscons/wsksymdef.h>
#include <dev/wscons/wsksymvar.h>
#include <dev/wscons/wsmousevar.h>

#include <luna68k/dev/sioreg.h>
#include <luna68k/dev/siovar.h>

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, caddr_t, int, struct proc *));

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, caddr_t, int, struct proc *));
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 *));
static int  ws_submatch_kbd __P((struct device *, struct cfdata *, void *));
#if NWSMOUSE > 0
static int  ws_submatch_mouse __P((struct device *, struct cfdata *, void *));
#endif

const struct cfattach ws_ca = {
	sizeof(struct ws_softc), wsmatch, wsattach
};
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_sm(self, &a, wskbddevprint,
					ws_submatch_kbd);

#if NWSMOUSE > 0
	{
	struct wsmousedev_attach_args b;
	b.accessops = &omms_accessops;
	b.accesscookie = (void *)sc;	
	sc->sc_wsmousedev = config_found_sm(self, &b, wsmousedevprint,
					ws_submatch_mouse);
	sc->sc_msreport = 0;
	}
#endif
}

static int
ws_submatch_kbd(parent, cf, aux)
        struct device *parent;
        struct cfdata *cf;
        void *aux;
{

        if (strcmp(cf->cf_driver->cd_name, "wskbd"))
                return (0);
        return ((*cf->cf_attach->ca_match)(parent, cf, aux));
}

#if NWSMOUSE > 0

static int
ws_submatch_mouse(parent, cf, aux)
        struct device *parent;
        struct cfdata *cf;
        void *aux;
{

        if (strcmp(cf->cf_driver->cd_name, "wsmouse"))
                return (0);
        return ((*cf->cf_attach->ca_match)(parent, cf, aux));
}

#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;
				}
				sc->buttons = code & 07;
				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);
				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, p)
	void *v;
	u_long cmd;
	caddr_t data;
	int flag;
	struct proc *p;
{
	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 -1;
}

#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, p)
	void *v;
	u_long cmd;
	caddr_t data;
	int flag;
	struct proc *p;
{
	if (cmd == WSMOUSEIO_GTYPE) {
		*(u_int *)data = 0x19991005; /* XXX */
		return 0;
	}
	return ENOTTY;
}

static void
omms_disable(v)
	void *v;
{
	struct ws_softc *sc = v;

	syscnputc((dev_t)1, 0x20); /* quiet mouse */
	sc->sc_msreport = 0;
}
#endif