/*
* Copyright (c) 1995 Leo Weppelman
* Copyright (c) 1982, 1986, 1990 The Regents of the University of California.
* All rights reserved.
*
* 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. 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.
*/
/*
* The ringbuffer is the interface between the hard and soft interrupt handler.
* The hard interrupt runs straight from the MFP interrupt.
*/
#define KBD_RING_SIZE 256 /* Sz of input ring buffer, must be power of 2 */
#define KBD_RING_MASK 255 /* Modulo mask for above */
struct kbd_softc {
int sc_event_mode; /* if 1, collect events, */
/* else pass to ite */
struct evvar sc_events; /* event queue state */
uint8_t sc_soft_cs; /* control-reg. copy */
uint8_t sc_package[20]; /* XXX package being build */
uint8_t sc_pkg_size; /* Size of the package */
uint8_t sc_pkg_idx; /* Running pkg assembly index */
uint8_t sc_pkg_type; /* Type of package */
const uint8_t *sc_sendp; /* Output pointer */
int sc_send_cnt; /* Chars left for output */
#if NWSKBD > 0
device_t sc_wskbddev; /* pointer to wskbd for sending strokes */
int sc_pollingmode; /* polling mode on? whatever it is... */
#endif
void *sc_sicookie; /* softint(9) cookie */
krndsource_t sc_rndsource; /* rnd(9) entropy */
};
/* WSKBD */
/*
* If NWSKBD>0 we try to attach a wskbd device to us. What follows
* is definitions of callback functions and structures that are passed
* to wscons when initializing.
*/
/*
* Now with wscons this driver exhibits some weird behaviour.
* It may act both as a driver of its own and the md part of the
* wskbd driver. Therefore it can be accessed through /dev/kbd
* and /dev/wskbd0 both.
*
* The data from they keyboard may end up in at least four different
* places:
* - If this driver has been opened (/dev/kbd) and the
* direct mode (TIOCDIRECT) has been set, data goes to
* the process who opened the device. Data will transmit itself
* as described by the firm_event structure.
* - If wskbd support is compiled in and a wskbd driver has been
* attached then the data is sent to it. Wskbd in turn may
* - Send the data in the wscons_event form to a process that
* has opened /dev/wskbd0
* - Feed the data to a virtual terminal.
* - If an ite is present the data may be fed to it.
*/
/*
* Keyboard interrupt handler called straight from MFP at spl6.
*/
void
kbdintr(int sr)
/* sr: sr at time of interrupt */
{
struct kbd_softc *sc = &kbd_softc;
uint8_t stat, code = 0 /* XXX gcc */;
uint32_t rndstat;
bool got_char = false;
/*
* There may be multiple keys available. Read them all.
*/
stat = KBD->ac_cs;
rndstat = stat;
while ((stat & (A_RXRDY | A_OE | A_PE)) != 0) {
got_char = true;
if ((KBD->ac_cs & (A_OE | A_PE)) == 0) {
code = KBD->ac_da;
kbd_ring[kbd_rbput++ & KBD_RING_MASK] = code;
} else {
/* Silently ignore errors */
code = KBD->ac_da;
}
stat = KBD->ac_cs;
}
/*
* If characters are waiting for transmit, send them.
*/
if ((sc->sc_soft_cs & A_TXINT) != 0 &&
(KBD->ac_cs & A_TXRDY) != 0) {
if (sc->sc_sendp != NULL)
KBD->ac_da = *sc->sc_sendp++;
if (--sc->sc_send_cnt <= 0) {
/*
* The total package has been transmitted,
* wakeup anyone waiting for it.
*/
KBD->ac_cs = (sc->sc_soft_cs &= ~A_TXINT);
sc->sc_sendp = NULL;
sc->sc_send_cnt = 0;
wakeup((void *)&sc->sc_send_cnt);
}
}
/*
* Activate software-level to handle possible input.
* Also add status and data to the rnd(9) pool.
*/
if (got_char) {
softint_schedule(sc->sc_sicookie);
rnd_add_uint32(&sc->sc_rndsource, (rndstat << 8) | code);
}
}
for (;;) {
n = kbd_rbput;
if (get == n) /* We're done */
break;
n -= get;
if (n > KBD_RING_SIZE) { /* Ring buffer overflow */
get += n - KBD_RING_SIZE;
n = KBD_RING_SIZE;
}
while (--n >= 0) {
code = kbd_ring[get++ & KBD_RING_MASK];
/*
* If collecting a package, stuff it in and
* continue.
*/
if (sc->sc_pkg_size &&
(sc->sc_pkg_idx < sc->sc_pkg_size)) {
sc->sc_package[sc->sc_pkg_idx++] = code;
if (sc->sc_pkg_idx == sc->sc_pkg_size) {
/*
* Package is complete.
*/
switch (sc->sc_pkg_type) {
#if NMOUSE > 0
case KBD_AMS_PKG:
case KBD_RMS_PKG:
case KBD_JOY1_PKG:
mouse_soft(
(REL_MOUSE *)sc->sc_package,
sc->sc_pkg_size,
sc->sc_pkg_type);
#endif /* NMOUSE */
}
sc->sc_pkg_size = 0;
}
continue;
}
/*
* If this is a package header, init pkg. handling.
*/
if (!KBD_IS_KEY(code)) {
kbd_pkg_start(sc, code);
continue;
}
#if NWSKBD > 0
/*
* If we have attached a wskbd and not in polling mode
* and nobody has opened us directly, then send the
* keystroke to the wskbd.
*/
/*
* if not in event mode, deliver straight to ite to
* process key stroke
*/
if (!sc->sc_event_mode) {
/* Gets to spltty() by itself */
#if NITE > 0
ite_filter(code, ITEFILT_TTY);
#endif
continue;
}
/*
* 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!).
*/
s = spltty();
put = sc->sc_events.ev_put;
fe = &sc->sc_events.ev_q[put];
put = (put + 1) % EV_QSIZE;
if (put == sc->sc_events.ev_get) {
log(LOG_WARNING,
"keyboard event queue overflow\n");
splx(s);
continue;
}
fe->id = KBD_SCANCODE(code);
fe->value = KBD_RELEASED(code) ? VKEY_UP : VKEY_DOWN;
firm_gettime(fe);
sc->sc_events.ev_put = put;
EV_WAKEUP(&sc->sc_events);
splx(s);
}
kbd_rbget = get;
}
}
/*
* Write a command to the keyboard. Return when command is send.
*/
void
kbd_write(const uint8_t *cmd, int len)
{
struct kbd_softc *sc = &kbd_softc;
int s;
/*
* Get to splhigh, 'real' interrupts arrive at spl6!
*/
s = splhigh();
/*
* Make sure any previous write has ended...
*/
while (sc->sc_sendp != NULL)
tsleep((void *)&sc->sc_sendp, TTOPRI, "kbd_write1", 0);
/*
* If the KBD-acia is not currently busy, send the first
* character now.
*/
KBD->ac_cs = (sc->sc_soft_cs |= A_TXINT);
if ((KBD->ac_cs & A_TXRDY) != 0) {
KBD->ac_da = *cmd++;
len--;
}
/*
* If we're not yet done, wait until all characters are send.
*/
if (len > 0) {
sc->sc_sendp = cmd;
sc->sc_send_cnt = len;
tsleep((void *)&sc->sc_send_cnt, TTOPRI, "kbd_write2", 0);
}
splx(s);
/*
* Wakeup all procs waiting for us.
*/
wakeup((void *)&sc->sc_sendp);
}
/*
* Setup softc-fields to assemble a keyboard package.
*/
static void
kbd_pkg_start(struct kbd_softc *sc, uint8_t msg_start)
{
sc->sc_pkg_idx = 1;
sc->sc_package[0] = msg_start;
switch (msg_start) {
case 0xf6:
sc->sc_pkg_type = KBD_MEM_PKG;
sc->sc_pkg_size = 8;
break;
case 0xf7:
sc->sc_pkg_type = KBD_AMS_PKG;
sc->sc_pkg_size = 6;
break;
case 0xf8:
case 0xf9:
case 0xfa:
case 0xfb:
sc->sc_pkg_type = KBD_RMS_PKG;
sc->sc_pkg_size = 3;
break;
case 0xfc:
sc->sc_pkg_type = KBD_CLK_PKG;
sc->sc_pkg_size = 7;
break;
case 0xfe:
sc->sc_pkg_type = KBD_JOY0_PKG;
sc->sc_pkg_size = 2;
break;
case 0xff:
sc->sc_pkg_type = KBD_JOY1_PKG;
sc->sc_pkg_size = 2;
break;
default:
printf("kbd: Unknown packet 0x%x\n", msg_start);
break;
}
}
switch (KBD_SCANCODE(code)) {
case KBD_LEFT_SHIFT:
mask = KBD_MOD_LSHIFT;
break;
case KBD_RIGHT_SHIFT:
mask = KBD_MOD_RSHIFT;
break;
case KBD_CTRL:
mask = KBD_MOD_CTRL;
break;
case KBD_ALT:
mask = KBD_MOD_ALT;
break;
case KBD_CAPS_LOCK:
/* CAPSLOCK is a toggle */
if (!up)
kbd_modifier ^= KBD_MOD_CAPS;
return 1;
}
if (mask) {
if (up)
kbd_modifier &= ~mask;
else
kbd_modifier |= mask;
return 1;
}
return 0;
}
#endif
#if NWSKBD > 0
/*
* These are the callback functions that are passed to wscons.
* They really don't do anything worth noting, just call the
* other functions above.
*/
static int
kbd_enable(void *c, int on)
{
/* Wonder what this is supposed to do... */
return 0;
}
static void
kbd_set_leds(void *c, int leds)
{
/* we can not set the leds */
}
static int
kbd_ioctl(void *c, u_long cmd, void *data, int flag, struct lwp *p)
{
struct wskbd_bell_data *kd;
switch (cmd) {
case WSKBDIO_COMPLEXBELL:
kd = (struct wskbd_bell_data *)data;
kbd_bell(0, kd->pitch, kd->period, kd->volume);
return 0;
case WSKBDIO_SETLEDS:
return 0;
case WSKBDIO_GETLEDS:
*(int *)data = 0;
return 0;
case WSKBDIO_GTYPE:
*(u_int *)data = WSKBD_TYPE_ATARI;
return 0;
}
/*
* We are supposed to return EPASSTHROUGH to wscons if we didn't
* understand.
*/
return EPASSTHROUGH;
}
static void
kbd_getc(void *c, u_int *type, int *data)
{
int key;