/* $NetBSD: kbd.c,v 1.7 1996/04/10 21:44:58 gwr 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/kbd -- note that we do not have minor numbers * [yet?]). Translates incoming bytes to ASCII or to `firm_events' and * passes them up to the appropriate reader. */ /* * Zilog Z8530 Dual UART driver (keyboard interface) * * This is the "slave" driver that will be attached to * the "zsc" driver for a Sun keyboard. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "event_var.h" #include "kbd_xlate.h" /* * Ideas: * /dev/kbd is not a tty (plain device) */ /* * How many input characters we can buffer. * The port-specific var.h may override this. * Note: must be a power of two! */ #define KBD_RX_RING_SIZE 256 #define KBD_RX_RING_MASK (KBD_RX_RING_SIZE-1) /* * Output buffer. Only need a few chars. */ #define KBD_TX_RING_SIZE 16 #define KBD_TX_RING_MASK (KBD_TX_RING_SIZE-1) /* * Keyboard serial line speed is fixed at 1200 bps. */ #define KBD_BPS 1200 #define KBD_RESET_TIMO 1000 /* mS. */ /* * XXX - Historical comment - no longer quite right... * Keyboard driver state. The ascii and kbd links go up and down and * we just sit in the middle doing translation. Note that it is possible * to get just one of the two links, in which case /dev/kbd is unavailable. * The downlink supplies us with `internal' open and close routines which * will enable dataflow across the downlink. We promise to call open when * we are willing to take keystrokes, and to call close when we are not. * If /dev/kbd is not the console tty input source, we do this whenever * /dev/kbd is in use; otherwise we just leave it open forever. */ struct kbd_softc { struct device k_dev; /* required first: base device */ struct zs_chanstate *k_cs; /* Flags to communicate with kbd_softint() */ volatile int k_intr_flags; #define INTR_RX_OVERRUN 1 #define INTR_TX_EMPTY 2 #define INTR_ST_CHECK 4 /* Transmit state */ volatile int k_txflags; #define K_TXBUSY 1 #define K_TXWANT 2 /* * State of upper interface. */ int k_isopen; /* set if open has been done */ int k_evmode; /* set if we should produce events */ struct evvar k_events; /* event queue state */ /* * ACSI translation state */ int k_repeat_start; /* initial delay */ int k_repeat_step; /* inter-char delay */ int k_repeatsym; /* repeating symbol */ int k_repeating; /* we've called timeout() */ struct kbd_state k_state; /* ASCII translation state */ /* * Magic sequence stuff (L1-A) */ char k_isconsole; char k_magic1_down; u_char k_magic1; /* L1 */ u_char k_magic2; /* A */ /* * The transmit ring buffer. */ volatile u_int k_tbget; /* transmit buffer `get' index */ volatile u_int k_tbput; /* transmit buffer `put' index */ u_char k_tbuf[KBD_TX_RING_SIZE]; /* data */ /* * The receive ring buffer. */ u_int k_rbget; /* ring buffer `get' index */ volatile u_int k_rbput; /* ring buffer `put' index */ u_short k_rbuf[KBD_RX_RING_SIZE]; /* rr1, data pairs */ }; /* Prototypes */ int kbd_docmd(struct kbd_softc *k, int cmd); int kbd_iopen(int unit); void kbd_new_layout(struct kbd_softc *k); void kbd_output(struct kbd_softc *k, int c); void kbd_repeat(void *arg); void kbd_set_leds(struct kbd_softc *k, int leds); void kbd_start_tx(struct kbd_softc *k); void kbd_update_leds(struct kbd_softc *k); void kbd_was_reset(struct kbd_softc *k); extern void kd_input(int ascii); cdev_decl(kbd); /* open, close, read, write, ioctl, stop, ... */ struct zsops zsops_kbd; /**************************************************************** * Definition of the driver for autoconfig. ****************************************************************/ static int kbd_match(struct device *, void *, void *); static void kbd_attach(struct device *, struct device *, void *); struct cfattach kbd_ca = { sizeof(struct kbd_softc), kbd_match, kbd_attach }; struct cfdriver kbd_cd = { NULL, "kbd", DV_DULL }; /* * kbd_match: how is this zs channel configured? */ int kbd_match(parent, match, aux) struct device *parent; void *match, *aux; { struct cfdata *cf = match; struct zsc_attach_args *args = aux; /* Exact match required for keyboard. */ if (cf->cf_loc[0] == args->channel) return 2; return 0; } void kbd_attach(parent, self, aux) struct device *parent, *self; void *aux; { struct zsc_softc *zsc = (void *) parent; struct kbd_softc *k = (void *) self; struct zsc_attach_args *args = aux; struct zs_chanstate *cs; struct cfdata *cf; int channel, kbd_unit; int reset, s, tconst; cf = k->k_dev.dv_cfdata; kbd_unit = k->k_dev.dv_unit; channel = args->channel; cs = &zsc->zsc_cs[channel]; cs->cs_private = k; cs->cs_ops = &zsops_kbd; k->k_cs = cs; if (args->hwflags & ZS_HWFLAG_CONSOLE) { k->k_isconsole = 1; printf(" (console)"); } printf("\n"); /* Initialize the speed, etc. */ tconst = BPS_TO_TCONST(cs->cs_pclk_div16, KBD_BPS); s = splzs(); if (k->k_isconsole == 0) { /* Not the console; may need reset. */ reset = (channel == 0) ? ZSWR9_A_RESET : ZSWR9_B_RESET; zs_write_reg(cs, 9, reset); } /* These are OK as set by zscc: WR3, WR4, WR5 */ cs->cs_preg[5] |= ZSWR5_DTR | ZSWR5_RTS; cs->cs_preg[12] = tconst; cs->cs_preg[13] = tconst >> 8; zs_loadchannelregs(cs); splx(s); /* Do this before any calls to kbd_rint(). */ kbd_xlate_init(&k->k_state); /* XXX - Do this in open? */ k->k_repeat_start = hz/2; k->k_repeat_step = hz/20; /* Magic sequence. */ k->k_magic1 = KBD_L1; k->k_magic2 = KBD_A; /* Now attach the (kd) pseudo-driver. */ kd_init(kbd_unit); } /**************************************************************** * Entry points for /dev/kbd * (open,close,read,write,...) ****************************************************************/ /* * Open: * Check exclusion, open actual device (_iopen), * setup event channel, clear ASCII repeat stuff. */ int kbdopen(dev, flags, mode, p) dev_t dev; int flags, mode; struct proc *p; { struct kbd_softc *k; int error, s, unit; unit = minor(dev); if (unit >= kbd_cd.cd_ndevs) return (ENXIO); k = kbd_cd.cd_devs[unit]; if (k == NULL) return (ENXIO); /* Exclusive open required for /dev/kbd */ if (k->k_events.ev_io) return (EBUSY); k->k_events.ev_io = p; if ((error = kbd_iopen(unit)) != 0) { k->k_events.ev_io = NULL; return (error); } ev_init(&k->k_events); k->k_evmode = 1; /* XXX: OK? */ if (k->k_repeating) { k->k_repeating = 0; untimeout(kbd_repeat, k); } return (0); } /* * Close: * Turn off event mode, dump the queue, and close the keyboard * unless it is supplying console input. */ int kbdclose(dev, flags, mode, p) dev_t dev; int flags, mode; struct proc *p; { struct kbd_softc *k; k = kbd_cd.cd_devs[minor(dev)]; k->k_evmode = 0; ev_fini(&k->k_events); k->k_events.ev_io = NULL; return (0); } int kbdread(dev, uio, flags) dev_t dev; struct uio *uio; int flags; { struct kbd_softc *k; k = kbd_cd.cd_devs[minor(dev)]; return (ev_read(&k->k_events, uio, flags)); } /* this routine should not exist, but is convenient to write here for now */ int kbdwrite(dev, uio, flags) dev_t dev; struct uio *uio; int flags; { return (EOPNOTSUPP); } int kbdselect(dev, rw, p) dev_t dev; int rw; struct proc *p; { struct kbd_softc *k; k = kbd_cd.cd_devs[minor(dev)]; return (ev_select(&k->k_events, rw, p)); } static int kbd_ioccmd(struct kbd_softc *k, int *data); static int kbd_iockeymap __P((struct kbd_state *ks, u_long cmd, struct kiockeymap *kio)); static int kbd_iocsled(struct kbd_softc *k, int *data); #ifdef KIOCGETKEY static int kbd_oldkeymap __P((struct kbd_state *ks, u_long cmd, struct okiockey *okio)); #endif int kbdioctl(dev, cmd, data, flag, p) dev_t dev; u_long cmd; register caddr_t data; int flag; struct proc *p; { struct kbd_softc *k; struct kbd_state *ks; int *ip; int error = 0; k = kbd_cd.cd_devs[minor(dev)]; ks = &k->k_state; switch (cmd) { case KIOCTRANS: /* Set translation mode */ ip = (int *)data; /* We only support "raw" mode on /dev/kbd */ if (*ip != TR_UNTRANS_EVENT) error = EINVAL; break; case KIOCGTRANS: /* Get translation mode */ ip = (int *)data; /* We only support "raw" mode on /dev/kbd */ *ip = TR_UNTRANS_EVENT; break; #ifdef KIOCGETKEY case KIOCGETKEY: /* Get keymap entry (old format) */ error = kbd_oldkeymap(ks, cmd, (struct okiockey *)data); break; #endif KIOCGETKEY */ case KIOCSKEY: /* Set keymap entry */ /* Don't let just anyone hose the keyboard. */ if ((error = suser(p->p_ucred, &p->p_acflag)) != 0) return (error); /* fallthrough */ case KIOCGKEY: /* Get keymap entry */ error = kbd_iockeymap(ks, cmd, (struct kiockeymap *)data); break; case KIOCCMD: /* Send a command to the keyboard */ error = kbd_ioccmd(k, (int *)data); break; case KIOCTYPE: /* Get keyboard type */ ip = (int *)data; *ip = ks->kbd_id; break; case KIOCSDIRECT: /* where to send input */ ip = (int *)data; k->k_evmode = *ip; break; case KIOCLAYOUT: /* Get keyboard layout */ *data = ks->kbd_layout; break; case KIOCSLED: error = kbd_iocsled(k, (int *)data); break; case KIOCGLED: *(char *)data = ks->kbd_leds; break; case FIONBIO: /* we will remove this someday (soon???) */ break; case FIOASYNC: k->k_events.ev_async = *(int *)data != 0; break; case TIOCSPGRP: ip = (int *)data; if (*ip != k->k_events.ev_io->p_pgid) error = EPERM; break; } return (error); } /**************************************************************** * ioctl helpers ****************************************************************/ /* * Get/Set keymap entry */ static int kbd_iockeymap(ks, cmd, kio) struct kbd_state *ks; u_long cmd; struct kiockeymap *kio; { struct keymap *km; u_int station; switch (kio->kio_tablemask) { case KIOC_NOMASK: km = ks->kbd_k.k_normal; break; case KIOC_SHIFTMASK: km = ks->kbd_k.k_shifted; break; case KIOC_CTRLMASK: km = ks->kbd_k.k_control; break; case KIOC_UPMASK: km = ks->kbd_k.k_release; break; default: /* Silently ignore unsupported masks */ return (0); } /* Range-check the table position. */ station = kio->kio_station; if (station >= KEYMAP_SIZE) return (EINVAL); switch (cmd) { case KIOCGKEY: /* Get keymap entry */ kio->kio_entry = km->keymap[station]; break; case KIOCSKEY: /* Set keymap entry */ km->keymap[station] = kio->kio_entry; break; default: return(ENOTTY); } return (0); } #ifdef KIOCGETKEY /* * Get/Set keymap entry, * old format (compatibility) */ int kbd_oldkeymap(ks, cmd, kio) struct kbd_state *ks; u_long cmd; struct okiockey *kio; { int error = 0; switch (cmd) { case KIOCGETKEY: if (kio->kio_station == 118) { /* * This is X11 asking if a type 3 keyboard is * really a type 3 keyboard. Say yes, it is, * by reporting key station 118 as a "hole". * Note old (SunOS 3.5) definition of HOLE! */ kio->kio_entry = 0xA2; break; } /* fall through */ default: error = ENOTTY; break; } return (error); } #endif /* KIOCGETKEY */ /* * keyboard command ioctl * ``unimplemented commands are ignored'' (blech) */ static int kbd_ioccmd(k, data) struct kbd_softc *k; int *data; { struct kbd_state *ks = &k->k_state; int cmd, error, s; cmd = *data; switch (cmd) { case KBD_CMD_BELL: case KBD_CMD_NOBELL: /* Supported by type 2, 3, and 4 keyboards */ break; case KBD_CMD_CLICK: case KBD_CMD_NOCLICK: /* Unsupported by type 2 keyboards */ if (ks->kbd_id <= KB_SUN2) return (0); ks->kbd_click = (cmd == KBD_CMD_CLICK); break; default: return (0); } s = spltty(); error = kbd_drain_tx(k); if (error == 0) { kbd_output(k, cmd); kbd_start_tx(k); } splx(s); return (error); } /* * Set LEDs ioctl. */ static int kbd_iocsled(k, data) struct kbd_softc *k; int *data; { struct kbd_state *ks = &k->k_state; int leds, error, s; leds = *data; s = spltty(); error = kbd_drain_tx(k); if (error == 0) { kbd_set_leds(k, leds); } splx(s); return (error); } /**************************************************************** * middle layers: * - keysym to ASCII sequence * - raw key codes to keysym ****************************************************************/ /* * Initialization done by either kdcninit or kbd_iopen */ void kbd_xlate_init(ks) struct kbd_state *ks; { struct keyboard *ktbls; int id; id = ks->kbd_id; if (id < KBD_MIN_TYPE) id = KBD_MIN_TYPE; if (id > kbd_max_type) id = kbd_max_type; ktbls = keyboards[id]; ks->kbd_k = *ktbls; /* struct assignment */ ks->kbd_modbits = 0; } /* * Turn keyboard up/down codes into a KEYSYM. * Note that the "kd" driver uses this too! */ int kbd_code_to_keysym(ks, c) register struct kbd_state *ks; register int c; { struct keymap *km; int keysym; /* * Get keymap pointer. One of these: * release, control, shifted, normal, ... */ if (KEY_UP(c)) km = ks->kbd_k.k_release; else if (ks->kbd_modbits & KBMOD_CTRL_MASK) km = ks->kbd_k.k_control; else if (ks->kbd_modbits & KBMOD_SHIFT_MASK) km = ks->kbd_k.k_shifted; else km = ks->kbd_k.k_normal; if (km == NULL) { /* * Do not know how to translate yet. * We will find out when a RESET comes along. */ return (KEYSYM_NOP); } keysym = km->keymap[KEY_CODE(c)]; /* * Post-processing for Caps-lock */ if ((ks->kbd_modbits & (1 << KBMOD_CAPSLOCK)) && (KEYSYM_CLASS(keysym) == KEYSYM_ASCII) ) { if (('a' <= keysym) && (keysym <= 'z')) keysym -= ('a' - 'A'); } /* * Post-processing for Num-lock */ if ((ks->kbd_modbits & (1 << KBMOD_NUMLOCK)) && (KEYSYM_CLASS(keysym) == KEYSYM_FUNC) ) { keysym = kbd_numlock_map[keysym & 0x3F]; } return (keysym); } void kbd_input_string(k, str) struct kbd_softc *k; char *str; { while (*str) { kd_input(*str); str++; } } void kbd_input_funckey(k, keysym) struct kbd_softc *k; register int keysym; { register int n; char str[12]; /* * Format the F-key sequence and send as a string. * XXX: Ugly compatibility mappings. */ n = 0xC0 + (keysym & 0x3F); sprintf(str, "\033[%dz", n); kbd_input_string(k, str); } /* * This is called by kbd_input_raw() or by kb_repeat() * to deliver ASCII input. Called at spltty(). */ void kbd_input_keysym(k, keysym) struct kbd_softc *k; register int keysym; { struct kbd_state *ks = &k->k_state; register int data; switch (KEYSYM_CLASS(keysym)) { case KEYSYM_ASCII: data = KEYSYM_DATA(keysym); if (ks->kbd_modbits & KBMOD_META_MASK) data |= 0x80; kd_input(data); break; case KEYSYM_STRING: data = keysym & 0xF; kbd_input_string(k, kbd_stringtab[data]); break; case KEYSYM_FUNC: kbd_input_funckey(k, keysym); break; case KEYSYM_CLRMOD: data = 1 << (keysym & 0x1F); ks->kbd_modbits &= ~data; break; case KEYSYM_SETMOD: data = 1 << (keysym & 0x1F); ks->kbd_modbits |= data; break; case KEYSYM_INVMOD: data = 1 << (keysym & 0x1F); ks->kbd_modbits ^= data; kbd_update_leds(k); break; case KEYSYM_ALL_UP: ks->kbd_modbits &= ~0xFFFF; break; case KEYSYM_SPECIAL: if (keysym == KEYSYM_NOP) break; /* fall through */ default: log(LOG_WARNING, "%s: unexpected keysym 0x%x\n", k->k_dev.dv_xname, keysym); break; } } /* * This is the autorepeat timeout function. * Called at splsoftclock(). */ void kbd_repeat(void *arg) { struct kbd_softc *k = (struct kbd_softc *)arg; int s = spltty(); if (k->k_repeating && k->k_repeatsym >= 0) { kbd_input_keysym(k, k->k_repeatsym); timeout(kbd_repeat, k, k->k_repeat_step); } splx(s); } /* * Called by our kbd_softint() routine on input, * which passes the raw hardware scan codes. * Called at spltty() */ void kbd_input_raw(k, c) struct kbd_softc *k; register int c; { struct kbd_state *ks = &k->k_state; struct firm_event *fe; int put, keysym; /* XXX - Input errors already handled. */ /* Are we expecting special input? */ if (ks->kbd_expect) { if (ks->kbd_expect & KBD_EXPECT_IDCODE) { /* We read a KBD_RESET last time. */ ks->kbd_id = c; kbd_was_reset(k); } if (ks->kbd_expect & KBD_EXPECT_LAYOUT) { /* We read a KBD_LAYOUT last time. */ ks->kbd_layout = c; kbd_new_layout(k); } ks->kbd_expect = 0; return; } /* Is this one of the "special" input codes? */ if (KBD_SPECIAL(c)) { switch (c) { case KBD_RESET: ks->kbd_expect |= KBD_EXPECT_IDCODE; /* Fake an "all-up" to resync. translation. */ c = KBD_IDLE; break; case KBD_LAYOUT: ks->kbd_expect |= KBD_EXPECT_LAYOUT; return; case KBD_ERROR: log(LOG_WARNING, "%s: received error indicator\n", k->k_dev.dv_xname); return; case KBD_IDLE: /* Let this go to the translator. */ break; } } /* * If /dev/kbd is not connected in event mode, * translate and send upstream (to console). */ if (!k->k_evmode) { /* Any input stops auto-repeat (i.e. key release). */ if (k->k_repeating) { k->k_repeating = 0; untimeout(kbd_repeat, k); } /* Translate this code to a keysym */ keysym = kbd_code_to_keysym(ks, c); /* Pass up to the next layer. */ kbd_input_keysym(k, keysym); /* Does this symbol get auto-repeat? */ if (KEYSYM_NOREPEAT(keysym)) return; /* Setup for auto-repeat after initial delay. */ k->k_repeating = 1; k->k_repeatsym = keysym; timeout(kbd_repeat, k, k->k_repeat_start); return; } /* * IDLEs confuse the MIT X11R4 server badly, so we must drop them. * This is bad as it means the server will not automatically resync * on all-up IDLEs, but I did not drop them before, and the server * goes crazy when it comes time to blank the screen.... */ if (c == KBD_IDLE) 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!). */ put = k->k_events.ev_put; fe = &k->k_events.ev_q[put]; put = (put + 1) % EV_QSIZE; if (put == k->k_events.ev_get) { log(LOG_WARNING, "%s: event queue overflow\n", k->k_dev.dv_xname); /* ??? */ return; } fe->id = KEY_CODE(c); fe->value = KEY_UP(c) ? VKEY_UP : VKEY_DOWN; fe->time = time; k->k_events.ev_put = put; EV_WAKEUP(&k->k_events); } /**************************************************************** * Interface to the lower layer (zscc) ****************************************************************/ static void kbd_rxint(cs) register struct zs_chanstate *cs; { register struct kbd_softc *k; register int put, put_next; register u_char c, rr1; k = cs->cs_private; put = k->k_rbput; /* * First read the status, because reading the received char * destroys the status of this char. */ rr1 = zs_read_reg(cs, 1); c = zs_read_data(cs); if (rr1 & (ZSRR1_FE | ZSRR1_DO | ZSRR1_PE)) { /* Clear the receive error. */ zs_write_csr(cs, ZSWR0_RESET_ERRORS); } /* * Check NOW for a console abort sequence, so that we can * abort even when interrupts are locking up the machine. */ if (k->k_magic1_down) { /* The last keycode was "MAGIC1" down. */ k->k_magic1_down = 0; if ((c == k->k_magic2) && k->k_isconsole) { /* Magic "L1-A" sequence; enter debugger. */ zs_abort(); /* Debugger done. Fake L1-up to finish it. */ c = k->k_magic1 | KBD_UP; } } if (c == k->k_magic1) { k->k_magic1_down = 1; } k->k_rbuf[put] = (c << 8) | rr1; put_next = (put + 1) & KBD_RX_RING_MASK; /* Would overrun if increment makes (put==get). */ if (put_next == k->k_rbget) { k->k_intr_flags |= INTR_RX_OVERRUN; } else { /* OK, really increment. */ put = put_next; } /* Done reading. */ k->k_rbput = put; /* Ask for softint() call. */ cs->cs_softreq = 1; } static void kbd_txint(cs) register struct zs_chanstate *cs; { register struct kbd_softc *k; k = cs->cs_private; zs_write_csr(cs, ZSWR0_RESET_TXINT); k->k_intr_flags |= INTR_TX_EMPTY; /* Ask for softint() call. */ cs->cs_softreq = 1; } static void kbd_stint(cs) register struct zs_chanstate *cs; { register struct kbd_softc *k; register int rr0; k = cs->cs_private; cs->cs_rr0_new = zs_read_csr(cs); zs_write_csr(cs, ZSWR0_RESET_STATUS); #if 0 if (rr0 & ZSRR0_BREAK) { /* Keyboard unplugged? */ zs_abort(); return (0); } #endif k->k_intr_flags |= INTR_ST_CHECK; /* Ask for softint() call. */ cs->cs_softreq = 1; } /* * Get input from the recieve ring and pass it on. * Note: this is called at splsoftclock() */ static void kbd_softint(cs) struct zs_chanstate *cs; { register struct kbd_softc *k; register int get, c, s; int intr_flags; register u_short ring_data; register u_char rr0, rr1; k = cs->cs_private; /* Atomically get and clear flags. */ s = splzs(); intr_flags = k->k_intr_flags; k->k_intr_flags = 0; /* Now lower to spltty for the rest. */ (void) spltty(); /* * Copy data from the receive ring to the event layer. */ get = k->k_rbget; while (get != k->k_rbput) { ring_data = k->k_rbuf[get]; get = (get + 1) & KBD_RX_RING_MASK; /* low byte of ring_data is rr1 */ c = (ring_data >> 8) & 0xff; if (ring_data & ZSRR1_DO) intr_flags |= INTR_RX_OVERRUN; if (ring_data & (ZSRR1_FE | ZSRR1_PE)) { /* * After garbage, flush pending input, and * send a reset to resync key translation. */ log(LOG_ERR, "%s: input error (0x%x)\n", k->k_dev.dv_xname, ring_data); get = k->k_rbput; /* flush */ goto send_reset; } /* Pass this up to the "middle" layer. */ kbd_input_raw(k, c); } if (intr_flags & INTR_RX_OVERRUN) { log(LOG_ERR, "%s: input overrun\n", k->k_dev.dv_xname); send_reset: /* Send a reset to resync translation. */ kbd_output(k, KBD_CMD_RESET); kbd_start_tx(k); } k->k_rbget = get; if (intr_flags & INTR_TX_EMPTY) { /* * Transmit done. Try to send more, or * clear busy and wakeup drain waiters. */ k->k_txflags &= ~K_TXBUSY; kbd_start_tx(k); } if (intr_flags & INTR_ST_CHECK) { /* * Status line change. (Not expected.) */ log(LOG_ERR, "%s: status interrupt?\n", k->k_dev.dv_xname); cs->cs_rr0 = cs->cs_rr0_new; } splx(s); } struct zsops zsops_kbd = { kbd_rxint, /* receive char available */ kbd_stint, /* external/status */ kbd_txint, /* xmit buffer empty */ kbd_softint, /* process software interrupt */ }; /**************************************************************** * misc... ****************************************************************/ /* * Initialization to be done at first open. * This is called from kbdopen or kdopen (in kd.c) * Called with user context. */ int kbd_iopen(unit) int unit; { struct kbd_softc *k; struct kbd_state *ks; int error, s; if (unit >= kbd_cd.cd_ndevs) return (ENXIO); k = kbd_cd.cd_devs[unit]; if (k == NULL) return (ENXIO); ks = &k->k_state; error = 0; /* Tolerate extra calls. */ if (k->k_isopen) return (error); s = spltty(); /* Reset the keyboard and find out its type. */ kbd_output(k, KBD_CMD_RESET); kbd_start_tx(k); kbd_drain_tx(k); /* The wakeup for this is in kbd_was_reset(). */ error = tsleep((caddr_t)&ks->kbd_id, PZERO | PCATCH, devopn, hz); if (error == EWOULDBLOCK) { /* no response */ error = 0; log(LOG_ERR, "%s: reset failed\n", k->k_dev.dv_xname); /* * Allow the open anyway (to keep getty happy) * but assume the "least common denominator". */ ks->kbd_id = KB_SUN2; } /* Earlier than type 4 does not know "layout". */ if (ks->kbd_id < KB_SUN4) goto out; /* Ask for the layout. */ kbd_output(k, KBD_CMD_GETLAYOUT); kbd_start_tx(k); kbd_drain_tx(k); /* The wakeup for this is in kbd_new_layout(). */ error = tsleep((caddr_t)&ks->kbd_layout, PZERO | PCATCH, devopn, hz); if (error == EWOULDBLOCK) { /* no response */ error = 0; log(LOG_ERR, "%s: no response to get_layout\n", k->k_dev.dv_xname); ks->kbd_layout = 0; } out: splx(s); if (error == 0) k->k_isopen = 1; return error; } /* * Called by kbd_input_raw, at spltty() */ void kbd_was_reset(k) struct kbd_softc *k; { struct kbd_state *ks = &k->k_state; /* * On first identification, wake up anyone waiting for type * and set up the table pointers. */ wakeup((caddr_t)&ks->kbd_id); /* Restore keyclick, if necessary */ switch (ks->kbd_id) { case KB_SUN2: /* Type 2 keyboards don't support keyclick */ break; case KB_SUN3: /* Type 3 keyboards come up with keyclick on */ if (!ks->kbd_click) { /* turn off the click */ kbd_output(k, KBD_CMD_NOCLICK); kbd_start_tx(k); } break; case KB_SUN4: /* Type 4 keyboards come up with keyclick off */ if (ks->kbd_click) { /* turn on the click */ kbd_output(k, KBD_CMD_CLICK); kbd_start_tx(k); } break; } /* LEDs are off after reset. */ ks->kbd_leds = 0; } /* * Called by kbd_input_raw, at spltty() */ void kbd_new_layout(k) struct kbd_softc *k; { struct kbd_state *ks = &k->k_state; /* * On first identification, wake up anyone waiting for type * and set up the table pointers. */ wakeup((caddr_t)&ks->kbd_layout); /* XXX: switch decoding tables? */ } /* * Wait for output to finish. * Called at spltty(). Has user context. */ int kbd_drain_tx(k) struct kbd_softc *k; { int error; error = 0; while (k->k_txflags & K_TXBUSY) { k->k_txflags |= K_TXWANT; error = tsleep((caddr_t)&k->k_txflags, PZERO | PCATCH, "kbdout", 0); } return (error); } /* * Enqueue some output for the keyboard * Called at spltty(). */ void kbd_output(k, c) struct kbd_softc *k; int c; /* the data */ { struct zs_chanstate *cs = k->k_cs; int put; put = k->k_tbput; k->k_tbuf[put] = (u_char)c; put = (put + 1) & KBD_TX_RING_MASK; /* Would overrun if increment makes (put==get). */ if (put == k->k_tbget) { log(LOG_WARNING, "%s: output overrun\n", k->k_dev.dv_xname); } else { /* OK, really increment. */ k->k_tbput = put; } } /* * Start the sending data from the output queue * Called at spltty(). */ void kbd_start_tx(k) struct kbd_softc *k; { struct zs_chanstate *cs = k->k_cs; int get, s; u_char c; if (k->k_txflags & K_TXBUSY) return; /* Is there anything to send? */ get = k->k_tbget; if (get == k->k_tbput) { /* Nothing to send. Wake drain waiters. */ if (k->k_txflags & K_TXWANT) { k->k_txflags &= ~K_TXWANT; wakeup((caddr_t)&k->k_txflags); } return; } /* Have something to send. */ c = k->k_tbuf[get]; get = (get + 1) & KBD_TX_RING_MASK; k->k_tbget = get; k->k_txflags |= K_TXBUSY; /* Need splzs to avoid interruption of the delay. */ s = splzs(); zs_write_data(cs, c); splx(s); } /* * Called at spltty by: * kbd_update_leds, kbd_iocsled */ void kbd_set_leds(k, new_leds) struct kbd_softc *k; int new_leds; { struct kbd_state *ks = &k->k_state; /* Don't send unless state changes. */ if (ks->kbd_leds == new_leds) return; ks->kbd_leds = new_leds; /* Only type 4 and later has LEDs anyway. */ if (ks->kbd_id < 4) return; kbd_output(k, KBD_CMD_SETLED); kbd_output(k, new_leds); kbd_start_tx(k); } /* * Called at spltty by: * kbd_input_keysym */ void kbd_update_leds(k) struct kbd_softc *k; { struct kbd_state *ks = &k->k_state; register char leds; leds = ks->kbd_leds; leds &= ~(LED_CAPS_LOCK|LED_NUM_LOCK); if (ks->kbd_modbits & (1 << KBMOD_CAPSLOCK)) leds |= LED_CAPS_LOCK; if (ks->kbd_modbits & (1 << KBMOD_NUMLOCK)) leds |= LED_NUM_LOCK; kbd_set_leds(k, leds); }