NetBSD/sys/dev/wscons/wskbd.c

/* $NetBSD: wskbd.c,v 1.2 1998/04/07 13:43:17 hannken Exp $ */

/*
 * Copyright (c) 1996, 1997 Christopher G. Demetriou.  All rights reserved.
 *
 * Keysym translator:
 * Contributed to The NetBSD Foundation by Juergen Hannken-Illjes.
 *
 * 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 Christopher G. Demetriou
 *	for the NetBSD Project.
 * 4. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */

static const char _copyright[] __attribute__ ((unused)) =
    "Copyright (c) 1996, 1997 Christopher G. Demetriou.  All rights reserved.";
static const char _rcsid[] __attribute__ ((unused)) =
    "$NetBSD: wskbd.c,v 1.2 1998/04/07 13:43:17 hannken Exp $";

/*
 * Copyright (c) 1992, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * This software was developed by the Computer Systems Engineering group
 * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
 * contributed to Berkeley.
 *
 * All advertising materials mentioning features or use of this software
 * must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Lawrence Berkeley Laboratory.
 *
 * 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 University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University 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 REGENTS 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 REGENTS 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.
 *
 *	@(#)kbd.c	8.2 (Berkeley) 10/30/93
 */

/*
 * Keyboard driver (/dev/wskbd*).  Translates incoming bytes to ASCII or
 * to `wscons_events' and passes them up to the appropriate reader.
 */

#include <sys/param.h>
#include <sys/conf.h>
#include <sys/device.h>
#include <sys/ioctl.h>
#include <sys/kernel.h>
#include <sys/proc.h>
#include <sys/syslog.h>
#include <sys/systm.h>
#include <sys/malloc.h>
#include <sys/tty.h>
#include <sys/signalvar.h>
#include <sys/errno.h>
#include <sys/fcntl.h>

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

struct wskbd_softc {
	struct device	sc_dv;

	const struct wskbd_accessops *sc_accessops;
	void		*sc_accesscookie;

	int		sc_ready;	/* accepting events */
	struct wseventvar sc_events;	/* event queue state */

	int	sc_isconsole;
	struct device	*sc_displaydv;

	struct wskbd_bell_data sc_bell_data;
	struct wskbd_keyrepeat_data sc_keyrepeat_data;

	int	sc_repeating;		/* we've called timeout() */
	const u_char *sc_repeatstr;	/* repeated character (string) */
	u_int	sc_repeatstrlen;	/* repeated character (string) len */

	int	sc_translating;		/* xlate to chars for emulation */

	int	sc_keydesc_len;
	const struct wscons_keydesc *sc_keydesc;
	int	sc_layout;		/* name of current translation map */
	int	sc_modifiers;
	int	sc_led_state;
	int	sc_maplen;		/* number of entries in sc_map */
	struct wscons_keymap *sc_map;	/* current translation map */
	int	sc_composelen;		/* remaining entries in sc_composebuf */
	keysym_t sc_composebuf[2];
};

#define MOD_SHIFT_L		(1 << 0)
#define MOD_SHIFT_R		(1 << 1)
#define MOD_SHIFTLOCK		(1 << 2)
#define MOD_CAPSLOCK		(1 << 3)
#define MOD_CONTROL_L		(1 << 4)
#define MOD_CONTROL_R		(1 << 5)
#define MOD_META_L		(1 << 6)
#define MOD_META_R		(1 << 7)
#define MOD_MODESHIFT		(1 << 8)
#define MOD_NUMLOCK		(1 << 9)
#define MOD_COMPOSE		(1 << 10)
#define MOD_HOLDSCREEN		(1 << 11)
#define MOD_COMMAND		(1 << 12)
#define MOD_COMMAND1		(1 << 13)
#define MOD_COMMAND2		(1 << 14)

#define MOD_ANYSHIFT		(MOD_SHIFT_L | MOD_SHIFT_R | MOD_SHIFTLOCK)
#define MOD_ANYCONTROL		(MOD_CONTROL_L | MOD_CONTROL_R)
#define MOD_ANYMETA		(MOD_META_L | MOD_META_R)

#define MOD_ONESET(sc, mask)	(((sc)->sc_modifiers & (mask)) != 0)
#define MOD_ALLSET(sc, mask)	(((sc)->sc_modifiers & (mask)) == (mask))

#ifdef __BROKEN_INDIRECT_CONFIG
int	wskbd_match __P((struct device *, void *, void *));
#else
int	wskbd_match __P((struct device *, struct cfdata *, void *));
#endif
void	wskbd_attach __P((struct device *, struct device *, void *));
static inline void update_leds __P((struct wskbd_softc *));
static inline void update_modifier __P((struct wskbd_softc *, u_int, int, int));
static void internal_command __P((struct wskbd_softc *, u_int *, keysym_t));
static char *wskbd_translate __P((struct wskbd_softc *, u_int, int));
static void wskbd_holdscreen __P((struct wskbd_softc *, int));


struct cfattach wskbd_ca = {
	sizeof (struct wskbd_softc), wskbd_match, wskbd_attach,
};

extern struct cfdriver wskbd_cd;

#ifndef WSKBD_DEFAULT_BELL_PITCH
#define	WSKBD_DEFAULT_BELL_PITCH	1500	/* 1500Hz */
#endif
#ifndef WSKBD_DEFAULT_BELL_PERIOD
#define	WSKBD_DEFAULT_BELL_PERIOD	100	/* 100ms */
#endif
#ifndef WSKBD_DEFAULT_BELL_VOLUME
#define	WSKBD_DEFAULT_BELL_VOLUME	50	/* 50% volume */
#endif

struct wskbd_bell_data wskbd_default_bell_data = {
	WSKBD_BELL_DOALL,
	WSKBD_DEFAULT_BELL_PITCH,
	WSKBD_DEFAULT_BELL_PERIOD,
	WSKBD_DEFAULT_BELL_VOLUME,
};

#ifndef WSKBD_DEFAULT_KEYREPEAT_DEL1
#define	WSKBD_DEFAULT_KEYREPEAT_DEL1	400	/* 400ms to start repeating */
#endif
#ifndef WSKBD_DEFAULT_KEYREPEAT_DELN
#define	WSKBD_DEFAULT_KEYREPEAT_DELN	100	/* 100ms to between repeats */
#endif

struct wskbd_keyrepeat_data wskbd_default_keyrepeat_data = {
	WSKBD_KEYREPEAT_DOALL,
	WSKBD_DEFAULT_KEYREPEAT_DEL1,
	WSKBD_DEFAULT_KEYREPEAT_DELN,
};

cdev_decl(wskbd);
static void wskbd_repeat __P((void *v));

static int wskbd_console_initted;
static struct wskbd_softc *wskbd_console_device;
static const struct wskbd_consops *wskbd_console_ops;
static void *wskbd_console_cookie;

/*
 * Print function (for parent devices).
 */
int
wskbddevprint(aux, pnp)
	void *aux;
	const char *pnp;
{
#if 0
	struct wskbddev_attach_args *ap = aux;
#endif

	if (pnp)
		printf("wskbd at %s", pnp);
#if 0
	printf(" console %d", ap->console);
#endif

	return (UNCONF);
}

int
#ifdef __BROKEN_INDIRECT_CONFIG
wskbd_match(parent, matchv, aux)
#else
wskbd_match(parent, match, aux)
#endif
	struct device *parent;
#ifdef __BROKEN_INDIRECT_CONFIG
	void *matchv;
#else
	struct cfdata *match;
#endif
	void *aux;
{
#ifdef __BROKEN_INDIRECT_CONFIG
	struct cfdata *match = matchv;
#endif
	struct wskbddev_attach_args *ap = aux;

	if (match->wskbddevcf_console != WSKBDDEVCF_CONSOLE_UNK) {
		/*
		 * If console-ness of device specified, either match
		 * exactly (at high priority), or fail.
		 */
		if (match->wskbddevcf_console != 0 && ap->console != 0)
			return (10);
		else
			return (0);
	}

	/* If console-ness unspecified, it wins. */
	return (1);
}

void
wskbd_attach(parent, self, aux)
	struct device *parent, *self;
	void *aux;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)self;
	struct wskbddev_attach_args *ap = aux;

	if (ap->console)
		printf(": console keyboard");
	printf("\n");

	sc->sc_accessops = ap->accessops;
	sc->sc_accesscookie = ap->accesscookie;
	sc->sc_layout = ap->layout;
	sc->sc_keydesc = ap->keydesc;
	sc->sc_keydesc_len = ap->num_keydescs;
	sc->sc_ready = 0;				/* sanity */
	sc->sc_repeating = 0;
	sc->sc_translating = 1;

	if (wskbd_load_keymap(sc->sc_layout,
			      sc->sc_keydesc, sc->sc_keydesc_len,
			      &sc->sc_map, &sc->sc_maplen) != 0)
		panic("cannot load keymap");

	if (ap->console) {
		KASSERT(wskbd_console_initted); 
		KASSERT(wskbd_console_device == NULL);
		wskbd_console_device = sc;
	}
	sc->sc_isconsole = ap->console;
	sc->sc_displaydv = NULL;

	/* set default bell and key repeat data */
	sc->sc_bell_data = wskbd_default_bell_data;
	sc->sc_keyrepeat_data = wskbd_default_keyrepeat_data;
}

void    
wskbd_cnattach(consops, cookie)
	const struct wskbd_consops *consops;
	void *cookie;
{

	KASSERT(!wskbd_console_initted);

	wskbd_console_ops = consops;
	wskbd_console_cookie = cookie;

	wsdisplay_set_cons_kbd(wskbd_cngetc, wskbd_cnpollc);

	wskbd_console_initted = 1;
}

static void
wskbd_repeat(v)
	void *v;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)v;
	int s = spltty();

	KASSERT(sc->sc_repeating);
	if (sc->sc_repeatstrlen != 0) {
		if (sc->sc_displaydv != NULL)
			wsdisplay_kbdinput(sc->sc_displaydv, sc->sc_repeatstr,
			    sc->sc_repeatstrlen);
		timeout(wskbd_repeat, sc,
		    (hz * sc->sc_keyrepeat_data.delN) / 1000);
	}
	splx(s);
}

void
wskbd_input(dev, type, value)
	struct device *dev;
	u_int type;
	int value;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)dev; 
	struct wscons_event *ev;
	struct timeval xxxtime;
	const char *cp;
	int put;

	if (sc->sc_repeating) {
		sc->sc_repeating = 0;
		untimeout(wskbd_repeat, sc);
	}

	/*
	 * If /dev/kbd is not connected in event mode translate and
	 * send upstream.
	 */
	if (sc->sc_translating) {
		cp = wskbd_translate(sc, type, value);
		if (cp != NULL) {
			sc->sc_repeatstr = cp;
			sc->sc_repeatstrlen = strlen(cp);
			if (sc->sc_repeatstrlen != 0) {
				if (sc->sc_displaydv != NULL)
					wsdisplay_kbdinput(sc->sc_displaydv,
					    sc->sc_repeatstr,
					    sc->sc_repeatstrlen);
	
				sc->sc_repeating = 1;
				timeout(wskbd_repeat, sc,
				    (hz * sc->sc_keyrepeat_data.del1) / 1000);
			}
		}
		return;
	}

	/*
	 * Keyboard is generating events.  Turn this keystroke into an
	 * event and put it in the queue.  If the queue is full, the
	 * keystroke is lost (sorry!).
	 */

	/* no one to receive; punt!*/
	if (!sc->sc_ready)
		return;

	put = sc->sc_events.put;
	ev = &sc->sc_events.q[put];
	put = (put + 1) % WSEVENT_QSIZE;
	if (put == sc->sc_events.get) {
		log(LOG_WARNING, "%s: event queue overflow\n",
		    sc->sc_dv.dv_xname);
		return;
	}
	ev->type = type;
	ev->value = value;
	microtime(&xxxtime);
	TIMEVAL_TO_TIMESPEC(&xxxtime, &ev->time);
	sc->sc_events.put = put;
	WSEVENT_WAKEUP(&sc->sc_events);
}

static void
wskbd_holdscreen(sc, hold)
	struct wskbd_softc *sc;
	int hold;
{
	int new_state;

	if (sc->sc_displaydv != NULL) {
		wsdisplay_kbdholdscreen(sc->sc_displaydv, hold);
		new_state = sc->sc_led_state;
		if (hold)
			new_state |= WSKBD_LED_SCROLL;
		else
			new_state &= ~WSKBD_LED_SCROLL;
		if (new_state != sc->sc_led_state) {
			(*sc->sc_accessops->asyn_set_leds)(sc->sc_accesscookie,
							   new_state);
			sc->sc_led_state = new_state;
		}
	}
}

int
wskbdopen(dev, flags, mode, p)
	dev_t dev;
	int flags, mode;
	struct proc *p;
{
	struct wskbd_softc *sc;
	int unit;

	unit = minor(dev);
	if (unit >= wskbd_cd.cd_ndevs ||	/* make sure it was attached */
	    (sc = wskbd_cd.cd_devs[unit]) == NULL)
		return (ENXIO);

	if (sc->sc_events.io)			/* and that it's not in use */
		return (EBUSY);

	sc->sc_events.io = p;
	wsevent_init(&sc->sc_events);		/* may cause sleep */

	sc->sc_ready = 1;			/* start accepting events */

	/* XXX ENABLE THE DEVICE IF NOT CONSOLE? */

	return (0);
}

int
wskbdclose(dev, flags, mode, p)
	dev_t dev;
	int flags, mode;
	struct proc *p;
{
	struct wskbd_softc *sc;
	int unit;

	unit = minor(dev);
	if (unit >= wskbd_cd.cd_ndevs ||	/* make sure it was attached */
	    (sc = wskbd_cd.cd_devs[unit]) == NULL)
		return (ENXIO);

	/* XXX DISABLE THE DEVICE IF NOT CONSOLE? */

	sc->sc_ready = 0;			/* stop accepting events */
	wsevent_fini(&sc->sc_events);
	sc->sc_events.io = NULL;
	return (0);
}

int
wskbdread(dev, uio, flags)
	dev_t dev;
	struct uio *uio;
	int flags;
{
	struct wskbd_softc *sc;
	int unit;

	unit = minor(dev);
	if (unit >= wskbd_cd.cd_ndevs ||	/* make sure it was attached */
	    (sc = wskbd_cd.cd_devs[unit]) == NULL)
		return (ENXIO);

	return (wsevent_read(&sc->sc_events, uio, flags));
}

int
wskbdioctl(dev, cmd, data, flag, p)
	dev_t dev;
	u_long cmd;
	caddr_t data;
	int flag;
	struct proc *p;
{
	struct wskbd_softc *sc;
	int unit, error;

	unit = minor(dev);
	if (unit >= wskbd_cd.cd_ndevs ||	/* make sure it was attached */
	    (sc = wskbd_cd.cd_devs[unit]) == NULL)
		return (ENXIO);

	/*      
	 * Try the generic ioctls that the wskbd interface supports.
	 */
	switch (cmd) {
	case FIONBIO:		/* we will remove this someday (soon???) */
		return (0);

	case FIOASYNC:
		sc->sc_events.async = *(int *)data != 0;
		return (0);

	case TIOCSPGRP:
		if (*(int *)data != sc->sc_events.io->p_pgid)
			return (EPERM);
		return (0);
	}

	/*
	 * Try the keyboard driver for WSKBDIO ioctls.  It returns -1
	 * if it didn't recognize the request.
	 */
	error = wskbd_displayioctl((struct device *)sc, cmd, data, flag, p);
	return (error != -1 ? error : ENOTTY);
}

/*
 * WSKBDIO ioctls, handled in both emulation mode and in ``raw'' mode.
 * Some of these have no real effect in raw mode, however.
 */
int
wskbd_displayioctl(dev, cmd, data, flag, p)
	struct device *dev;
	u_long cmd;
	caddr_t data;
	int flag;
	struct proc *p;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)dev;
	struct wskbd_bell_data *ubdp, *kbdp;
	struct wskbd_keyrepeat_data *ukdp, *kkdp;
	struct wskbd_string_data *usdp;
	struct wskbd_map_data *umdp;
	void *buf;
	int len, error;

	switch (cmd) {
#define	SETBELL(dstp, srcp, dfltp)					\
    do {								\
	(dstp)->pitch = ((srcp)->which & WSKBD_BELL_DOPITCH) ?		\
	    (srcp)->pitch : (dfltp)->pitch;				\
	(dstp)->period = ((srcp)->which & WSKBD_BELL_DOPERIOD) ?	\
	    (srcp)->period : (dfltp)->period;				\
	(dstp)->volume = ((srcp)->which & WSKBD_BELL_DOVOLUME) ?	\
	    (srcp)->volume : (dfltp)->volume;				\
	(dstp)->which = WSKBD_BELL_DOALL;				\
    } while (0)

	case WSKBDIO_BELL:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		return ((*sc->sc_accessops->ioctl)(sc->sc_accesscookie,
		    WSKBDIO_COMPLEXBELL, (caddr_t)&sc->sc_bell_data, flag, p));

	case WSKBDIO_COMPLEXBELL:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		ubdp = (struct wskbd_bell_data *)data;
		SETBELL(ubdp, ubdp, &sc->sc_bell_data);
		return ((*sc->sc_accessops->ioctl)(sc->sc_accesscookie,
		    WSKBDIO_COMPLEXBELL, (caddr_t)ubdp, flag, p));

	case WSKBDIO_SETBELL:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		kbdp = &sc->sc_bell_data;
setbell:
		ubdp = (struct wskbd_bell_data *)data;
		SETBELL(kbdp, ubdp, kbdp);
		return (0);

	case WSKBDIO_GETBELL:
		kbdp = &sc->sc_bell_data;
getbell:
		ubdp = (struct wskbd_bell_data *)data;
		SETBELL(ubdp, kbdp, kbdp);
		return (0);

	case WSKBDIO_SETDEFAULTBELL:
		if ((error = suser(p->p_ucred, &p->p_acflag)) != 0)
			return (error);
		kbdp = &wskbd_default_bell_data;
		goto setbell;


	case WSKBDIO_GETDEFAULTBELL:
		kbdp = &wskbd_default_bell_data;
		goto getbell;

#undef SETBELL

#define	SETKEYREPEAT(dstp, srcp, dfltp)					\
    do {								\
	(dstp)->del1 = ((srcp)->which & WSKBD_KEYREPEAT_DODEL1) ?	\
	    (srcp)->del1 : (dfltp)->del1;				\
	(dstp)->delN = ((srcp)->which & WSKBD_KEYREPEAT_DODELN) ?	\
	    (srcp)->delN : (dfltp)->delN;				\
	(dstp)->which = WSKBD_KEYREPEAT_DOALL;				\
    } while (0)

	case WSKBDIO_SETKEYREPEAT:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		kkdp = &sc->sc_keyrepeat_data;
setkeyrepeat:
		ukdp = (struct wskbd_keyrepeat_data *)data;
		SETKEYREPEAT(kkdp, ukdp, kkdp);
		return (0);

	case WSKBDIO_GETKEYREPEAT:
		kkdp = &sc->sc_keyrepeat_data;
getkeyrepeat:
		ukdp = (struct wskbd_keyrepeat_data *)data;
		SETKEYREPEAT(ukdp, kkdp, kkdp);
		return (0);

	case WSKBDIO_SETDEFAULTKEYREPEAT:
		if ((error = suser(p->p_ucred, &p->p_acflag)) != 0)
			return (error);
		kkdp = &wskbd_default_keyrepeat_data;
		goto setkeyrepeat;


	case WSKBDIO_GETDEFAULTKEYREPEAT:
		kkdp = &wskbd_default_keyrepeat_data;
		goto getkeyrepeat;

#undef SETKEYREPEAT

	case WSKBDIO_SETMAP:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		umdp = (struct wskbd_map_data *)data;
		len = umdp->maplen*sizeof(struct wscons_keymap);
		buf = malloc(len, M_TEMP, M_WAITOK);
		error = copyin(umdp->map, buf, len);
		if (error == 0) {
			wskbd_init_keymap(umdp->maplen,
					  &sc->sc_map, &sc->sc_maplen);
			bcopy(buf, sc->sc_map, len);
		}
		free(buf, M_TEMP);
		return(error);

	case WSKBDIO_GETMAP:
		umdp = (struct wskbd_map_data *)data;
		if (umdp->maplen > sc->sc_maplen)
			umdp->maplen = sc->sc_maplen;
		error = copyout(sc->sc_map, umdp->map,
				umdp->maplen*sizeof(struct wscons_keymap));
		return(error);

	case WSKBDIO_GETENCODING:
		*((kbd_t *) data) = sc->sc_layout;
		return(0);

	case WSKBDIO_SETENCODING:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		error = wskbd_load_keymap(*((kbd_t *)data), sc->sc_keydesc,
					  sc->sc_keydesc_len, &sc->sc_map,
					  &sc->sc_maplen);
		if (error == 0)
			sc->sc_layout = *((kbd_t *)data);
		return(error);

	case WSKBDIO_GETSTRING:
		usdp = (struct wskbd_string_data *)data;
                if (usdp->keycode < 0 || usdp->keycode >= sc->sc_maplen)
			return(EINVAL);
		buf = wskbd_get_string(usdp->keycode);
		if (buf == NULL)
			return(EINVAL);
		bcopy(buf, usdp->value, WSKBD_STRING_LEN);
		return(0);

	case WSKBDIO_SETSTRING:
		if ((flag & FWRITE) == 0)
			return (EACCES);
		usdp = (struct wskbd_string_data *)data;
                if (usdp->keycode < 0 || usdp->keycode >= sc->sc_maplen)
			return(EINVAL);
		return(wskbd_set_string(usdp->keycode, usdp->value));
	}

	/*
	 * Try the keyboard driver for WSKBDIO ioctls.  It returns -1
	 * if it didn't recognize the request, and in turn we return
	 * -1 if we didn't recognize the request.
	 */
/* printf("kbdaccess\n"); */
	return ((*sc->sc_accessops->ioctl)(sc->sc_accesscookie, cmd,
	    data, flag, p));
}

int
wskbdpoll(dev, events, p)
	dev_t dev;
	int events;
	struct proc *p;
{
	struct wskbd_softc *sc = wskbd_cd.cd_devs[minor(dev)];

	return (wsevent_poll(&sc->sc_events, events, p));
}

int
wskbd_is_console(dv)
	struct device *dv;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)dv;

	KASSERT(sc != NULL);
	return (sc->sc_isconsole);
}

struct device *
wskbd_display(dv)
	struct device *dv;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)dv;

	KASSERT(sc != NULL);
	return (sc->sc_displaydv);
}

void
wskbd_set_display(dv, displaydv)
	struct device *dv, *displaydv;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)dv;

	KASSERT(sc != NULL);
	sc->sc_displaydv = displaydv;
}

void
wskbd_set_translation(dv, on)
	struct device *dv;
	int on;
{
	struct wskbd_softc *sc = (struct wskbd_softc *)dv;

	KASSERT(sc != NULL);
	sc->sc_translating = on;
}

/*
 * Console interface.
 */
int
wskbd_cngetc(dev)
	dev_t dev;
{
	u_int type;
	int data;
	char *cp;

	if (!wskbd_console_initted)
		return 0;

	if (wskbd_console_device != NULL &&
	    !wskbd_console_device->sc_translating)
		return 0;

	do {
		(*wskbd_console_ops->getc)(wskbd_console_cookie,
					   &type, &data);
		cp = wskbd_translate(wskbd_console_device, type, data);
	} while (cp == NULL || cp[1] != '\0');

	return(cp[0]);
}

void
wskbd_cnpollc(dev, poll)
	dev_t dev;
	int poll;
{

	if (!wskbd_console_initted)
		return;

	if (wskbd_console_device != NULL &&
	    !wskbd_console_device->sc_translating)
		return;

	(*wskbd_console_ops->pollc)(wskbd_console_cookie, poll);
}

static inline void
update_leds(sc)
	struct wskbd_softc *sc;
{
	int new_state;

	new_state = 0;
	if (sc->sc_modifiers & (MOD_SHIFTLOCK | MOD_CAPSLOCK))
		new_state |= WSKBD_LED_CAPS;
	if (sc->sc_modifiers & MOD_NUMLOCK)
		new_state |= WSKBD_LED_NUM;
	if (sc->sc_modifiers & MOD_COMPOSE)
		new_state |= WSKBD_LED_COMPOSE;
	if (sc->sc_modifiers & MOD_HOLDSCREEN)
		new_state |= WSKBD_LED_SCROLL;

	if (new_state != sc->sc_led_state) {
		(*sc->sc_accessops->asyn_set_leds)(sc->sc_accesscookie,
						   new_state);
		sc->sc_led_state = new_state;
	}
}

static inline void
update_modifier(sc, type, toggle, mask)
	struct wskbd_softc *sc;
	u_int type;
	int toggle;
	int mask;
{
	if (toggle) {
		if (type == WSCONS_EVENT_KEY_DOWN)
			sc->sc_modifiers ^= mask;
	} else {
		if (type == WSCONS_EVENT_KEY_DOWN)
			sc->sc_modifiers |= mask;
		else
			sc->sc_modifiers &= ~mask;
	}
}

static void
internal_command(sc, type, ksym)
	struct wskbd_softc *sc;
	u_int *type;
	keysym_t ksym;
{
	switch (ksym) {
	case KS_Cmd:
		update_modifier(sc, *type, 0, MOD_COMMAND);
		break;

	case KS_Cmd1:
		update_modifier(sc, *type, 0, MOD_COMMAND1);
		break;

	case KS_Cmd2:
		update_modifier(sc, *type, 0, MOD_COMMAND2);
		break;
	}

	if (*type != WSCONS_EVENT_KEY_DOWN ||
	    (! MOD_ONESET(sc, MOD_COMMAND) &&
	     ! MOD_ALLSET(sc, MOD_COMMAND1 | MOD_COMMAND2)))
		return;

	switch (ksym) {
#ifdef DDB
	case KS_Cmd_Debugger:
		if (sc->sc_isconsole)
			Debugger();
		/* discard this key (ddb discarded command modifiers) */
		*type = WSCONS_EVENT_KEY_UP;
		break;
#endif

	case KS_Cmd_Screen0:
	case KS_Cmd_Screen1:
	case KS_Cmd_Screen2:
	case KS_Cmd_Screen3:
	case KS_Cmd_Screen4:
	case KS_Cmd_Screen5:
	case KS_Cmd_Screen6:
	case KS_Cmd_Screen7:
	case KS_Cmd_Screen8:
	case KS_Cmd_Screen9:
		wsdisplay_switch(sc->sc_displaydv, ksym - KS_Cmd_Screen0);
		break;
	}
}

static char *
wskbd_translate(sc, type, value)
	struct wskbd_softc *sc;
	u_int type;
	int value;
{
	keysym_t ksym, res, *group;
	struct wscons_keymap *kp;
	static char result[2];

	if (value < 0 || value >= sc->sc_maplen) {
#ifdef DEBUG
		printf("wskbd_translate: keycode %d out of range\n", value);
#endif
		return(NULL);
	}

	kp = sc->sc_map + value;

	/* if this key has a command, process it first */
	if (kp->command != KS_voidSymbol)
	    internal_command(sc, &type, kp->command);

	/* Now update modifiers */
	switch (kp->group1[0]) {
	case KS_Shift_L:
		update_modifier(sc, type, 0, MOD_SHIFT_L);
		break;

	case KS_Shift_R:
		update_modifier(sc, type, 0, MOD_SHIFT_R);
		break;

	case KS_Shift_Lock:
		update_modifier(sc, type, 1, MOD_SHIFTLOCK);
		break;

	case KS_Caps_Lock:
		update_modifier(sc, type, 1, MOD_CAPSLOCK);
		break;

	case KS_Control_L:
		update_modifier(sc, type, 0, MOD_CONTROL_L);
		break;

	case KS_Control_R:
		update_modifier(sc, type, 0, MOD_CONTROL_R);
		break;

	case KS_Alt_L:
		update_modifier(sc, type, 0, MOD_META_L);
		break;

	case KS_Alt_R:
		update_modifier(sc, type, 0, MOD_META_R);
		break;

	case KS_Mode_switch:
		update_modifier(sc, type, 0, MOD_MODESHIFT);
		break;

	case KS_Num_Lock:
		update_modifier(sc, type, 1, MOD_NUMLOCK);
		break;

	case KS_Hold_Screen:
		update_modifier(sc, type, 1, MOD_HOLDSCREEN);
		wskbd_holdscreen(sc, sc->sc_modifiers & MOD_HOLDSCREEN);
		break;
	}

	/* If this is a key release or we are in command mode, we are done */
	if (type != WSCONS_EVENT_KEY_DOWN || MOD_ONESET(sc, MOD_COMMAND) ||
	    MOD_ALLSET(sc, MOD_COMMAND1 | MOD_COMMAND2)) {
		update_leds(sc);
		return(NULL);
	}

	/* Get the keysym */
	if (sc->sc_modifiers & MOD_MODESHIFT)
		group = & kp->group2[0];
	else
		group = & kp->group1[0];

	if ((sc->sc_modifiers & MOD_NUMLOCK) != 0 &&
	    KS_GROUP(group[1]) == KS_GROUP_Keypad) {
		if (MOD_ONESET(sc, MOD_ANYSHIFT))
			ksym = group[0];
		else
			ksym = group[1];
	} else if (! MOD_ONESET(sc, MOD_ANYSHIFT | MOD_CAPSLOCK)) {
		ksym = group[0];
	} else if (MOD_ONESET(sc, MOD_CAPSLOCK)) {
		if (! MOD_ONESET(sc, MOD_SHIFT_L | MOD_SHIFT_R))
			ksym = group[0];
		else
			ksym = group[1];
		if (ksym >= KS_a && ksym <= KS_z)
			ksym += KS_A - KS_a;
		else if (ksym >= KS_agrave && ksym <= KS_thorn &&
			 ksym != KS_division)
			ksym += KS_Agrave - KS_agrave;
	} else if (MOD_ONESET(sc, MOD_ANYSHIFT)) {
		ksym = group[1];
	} else {
		ksym = group[0];
	}

	/* Process compose sequence and dead accents */
	res = KS_voidSymbol;

	switch (KS_GROUP(ksym)) {
	case KS_GROUP_Ascii:
	case KS_GROUP_Keypad:
	case KS_GROUP_Function:
		res = ksym;
		break;

	case KS_GROUP_Mod:
		if (ksym == KS_Multi_key) {
			update_modifier(sc, 1, 0, MOD_COMPOSE);
			sc->sc_composelen = 2;
		}
		break;

	case KS_GROUP_Dead:
		if (sc->sc_composelen == 0) {
			update_modifier(sc, 1, 0, MOD_COMPOSE);
			sc->sc_composelen = 1;
			sc->sc_composebuf[0] = ksym;
		} else
			res = ksym;
		break;
	}

	if (res == KS_voidSymbol) {
		update_leds(sc);
		return(NULL);
	}

	if (sc->sc_composelen > 0) {
		sc->sc_composebuf[2 - sc->sc_composelen] = res;
		if (--sc->sc_composelen == 0) {
			res = wskbd_compose_value(sc->sc_composebuf);
			update_modifier(sc, 0, 0, MOD_COMPOSE);
		} else {
			return(NULL);
		}
	}

	update_leds(sc);

	/* We are done, return the string */
	if (KS_GROUP(res) == KS_GROUP_Ascii) {
		if (MOD_ONESET(sc, MOD_ANYCONTROL)) {
			if ((res >= KS_at && res <= KS_z) || res == KS_space)
				res = res & 0x1f;
			else if (res == KS_2)
				res = 0x00;
			else if (res >= KS_3 && res <= KS_7)
				res = KS_Escape + (res - KS_3);
			else if (res == KS_8)
				res = KS_Delete;
		}
		if (MOD_ONESET(sc, MOD_ANYMETA))
			res |= 0x80;
	}

	if (KS_GROUP(res) == KS_GROUP_Ascii ||
	    (KS_GROUP(res) == KS_GROUP_Keypad && (res & 0x80) == 0)) {
		result[0] = res & 0xff;
		result[1] = '\0';
		return(result);
	} else {
		return(wskbd_get_string(res));
	}
}