Home | History | Annotate | Line # | Download | only in dev
kd.c revision 1.7
      1  1.7  gwr /*	$NetBSD: kd.c,v 1.7 1994/12/12 18:59:20 gwr Exp $	*/
      2  1.4  cgd 
      3  1.1  gwr /*
      4  1.1  gwr  * Copyright (c) 1994 Gordon W. Ross
      5  1.1  gwr  * All rights reserved.
      6  1.1  gwr  *
      7  1.1  gwr  * Redistribution and use in source and binary forms, with or without
      8  1.1  gwr  * modification, are permitted provided that the following conditions
      9  1.1  gwr  * are met:
     10  1.1  gwr  * 1. Redistributions of source code must retain the above copyright
     11  1.1  gwr  *    notice, this list of conditions and the following disclaimer.
     12  1.1  gwr  * 2. Redistributions in binary form must reproduce the above copyright
     13  1.1  gwr  *    notice, this list of conditions and the following disclaimer in the
     14  1.1  gwr  *    documentation and/or other materials provided with the distribution.
     15  1.2  gwr  * 3. The name of the author may not be used to endorse or promote products
     16  1.1  gwr  *    derived from this software without specific prior written permission.
     17  1.1  gwr  *
     18  1.2  gwr  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     19  1.2  gwr  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     20  1.2  gwr  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     21  1.2  gwr  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     22  1.2  gwr  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     23  1.2  gwr  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     24  1.2  gwr  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     25  1.2  gwr  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     26  1.2  gwr  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     27  1.2  gwr  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     28  1.1  gwr  */
     29  1.1  gwr 
     30  1.1  gwr /*
     31  1.1  gwr  * Keyboard/Display device.
     32  1.1  gwr  *
     33  1.1  gwr  * This driver exists simply to provide a tty device that
     34  1.1  gwr  * the indirect console driver can point to.
     35  1.1  gwr  * The kbd driver sends its input here.
     36  1.1  gwr  * Output goes to the screen via PROM printf.
     37  1.1  gwr  */
     38  1.1  gwr 
     39  1.1  gwr #include <sys/param.h>
     40  1.1  gwr #include <sys/proc.h>
     41  1.1  gwr #include <sys/systm.h>
     42  1.1  gwr #include <sys/ioctl.h>
     43  1.1  gwr #include <sys/tty.h>
     44  1.1  gwr #include <sys/file.h>
     45  1.1  gwr #include <sys/conf.h>
     46  1.1  gwr #include <sys/device.h>
     47  1.1  gwr 
     48  1.1  gwr #include <machine/autoconf.h>
     49  1.1  gwr #include <machine/mon.h>
     50  1.1  gwr 
     51  1.1  gwr #include <dev/cons.h>
     52  1.1  gwr 
     53  1.1  gwr #define BURST	64
     54  1.1  gwr 
     55  1.1  gwr struct tty *kd_tty[1];
     56  1.1  gwr 
     57  1.1  gwr int kdopen(dev_t, int, int, struct proc *);
     58  1.1  gwr int kdclose(dev_t, int, int, struct proc *);
     59  1.1  gwr int kdread(dev_t, struct uio *, int);
     60  1.1  gwr int kdwrite(dev_t, struct uio *, int);
     61  1.1  gwr int kdioctl(dev_t, int, caddr_t, int, struct proc *);
     62  1.1  gwr 
     63  1.1  gwr static int kdparam(struct tty *, struct termios *);
     64  1.1  gwr static void kdstart(struct tty *);
     65  1.1  gwr 
     66  1.7  gwr /* This is called by kbd_serial() like a pseudo-device. */
     67  1.7  gwr void
     68  1.7  gwr kd_attach(n)
     69  1.7  gwr 	int n;
     70  1.1  gwr {
     71  1.1  gwr 	kd_tty[0] = ttymalloc();
     72  1.1  gwr 
     73  1.1  gwr 	/* Tell keyboard module where to send read data. */
     74  1.1  gwr 	kbd_ascii(kd_tty[0]);
     75  1.1  gwr }
     76  1.1  gwr 
     77  1.1  gwr int
     78  1.1  gwr kdopen(dev, flag, mode, p)
     79  1.1  gwr 	dev_t dev;
     80  1.1  gwr 	int flag, mode;
     81  1.1  gwr 	struct proc *p;
     82  1.1  gwr {
     83  1.3  gwr 	int error, unit;
     84  1.1  gwr 	struct tty *tp;
     85  1.1  gwr 
     86  1.1  gwr 	unit = minor(dev);
     87  1.1  gwr 	if (unit) return ENXIO;
     88  1.1  gwr 
     89  1.1  gwr 	tp = kd_tty[unit];
     90  1.1  gwr 	if (tp == NULL)
     91  1.1  gwr 		return ENXIO;
     92  1.3  gwr 
     93  1.3  gwr 	if ((error = kbd_init()) != 0)
     94  1.3  gwr 		return (error);
     95  1.1  gwr 
     96  1.1  gwr 	tp->t_oproc = kdstart;
     97  1.1  gwr 	tp->t_param = kdparam;
     98  1.1  gwr 	tp->t_dev = dev;
     99  1.1  gwr 	if ((tp->t_state & TS_ISOPEN) == 0) {
    100  1.1  gwr 		tp->t_state |= TS_WOPEN;
    101  1.1  gwr 		ttychars(tp);
    102  1.1  gwr 		tp->t_iflag = TTYDEF_IFLAG;
    103  1.1  gwr 		tp->t_oflag = TTYDEF_OFLAG;
    104  1.1  gwr 		tp->t_cflag = TTYDEF_CFLAG;
    105  1.1  gwr 		tp->t_lflag = TTYDEF_LFLAG;
    106  1.1  gwr 		tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
    107  1.1  gwr 		kdparam(tp, &tp->t_termios);
    108  1.1  gwr 		ttsetwater(tp);
    109  1.1  gwr 	} else if (tp->t_state & TS_XCLUDE && p->p_ucred->cr_uid != 0)
    110  1.1  gwr 		return EBUSY;
    111  1.1  gwr 	tp->t_state |= TS_CARR_ON;
    112  1.1  gwr 
    113  1.1  gwr 	return ((*linesw[tp->t_line].l_open)(dev, tp));
    114  1.1  gwr }
    115  1.1  gwr 
    116  1.1  gwr int
    117  1.1  gwr kdclose(dev, flag, mode, p)
    118  1.1  gwr 	dev_t dev;
    119  1.1  gwr 	int flag, mode;
    120  1.1  gwr 	struct proc *p;
    121  1.1  gwr {
    122  1.1  gwr 	int unit = minor(dev);
    123  1.1  gwr 	struct tty *tp = kd_tty[unit];
    124  1.1  gwr 
    125  1.1  gwr 	(*linesw[tp->t_line].l_close)(tp, flag);
    126  1.1  gwr 	ttyclose(tp);
    127  1.1  gwr 	return (0);
    128  1.1  gwr }
    129  1.1  gwr 
    130  1.1  gwr int
    131  1.1  gwr kdread(dev, uio, flag)
    132  1.1  gwr 	dev_t dev;
    133  1.1  gwr 	struct uio *uio;
    134  1.1  gwr 	int flag;
    135  1.1  gwr {
    136  1.1  gwr 	int unit = minor(dev);
    137  1.1  gwr 	struct tty *tp = kd_tty[unit];
    138  1.1  gwr 
    139  1.1  gwr 	return ((*linesw[tp->t_line].l_read)(tp, uio, flag));
    140  1.1  gwr }
    141  1.1  gwr 
    142  1.1  gwr int
    143  1.1  gwr kdwrite(dev, uio, flag)
    144  1.1  gwr 	dev_t dev;
    145  1.1  gwr 	struct uio *uio;
    146  1.1  gwr 	int flag;
    147  1.1  gwr {
    148  1.1  gwr 	int unit = minor(dev);
    149  1.1  gwr 	struct tty *tp = kd_tty[unit];
    150  1.1  gwr 
    151  1.1  gwr 	return ((*linesw[tp->t_line].l_write)(tp, uio, flag));
    152  1.1  gwr }
    153  1.1  gwr 
    154  1.1  gwr int
    155  1.1  gwr kdioctl(dev, cmd, data, flag, p)
    156  1.1  gwr 	dev_t dev;
    157  1.1  gwr 	int cmd;
    158  1.1  gwr 	caddr_t data;
    159  1.1  gwr 	int flag;
    160  1.1  gwr 	struct proc *p;
    161  1.1  gwr {
    162  1.1  gwr 	int error;
    163  1.1  gwr 	int unit = minor(dev);
    164  1.1  gwr 	struct tty *tp = kd_tty[unit];
    165  1.1  gwr 
    166  1.1  gwr 	error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p);
    167  1.1  gwr 	if (error >= 0)
    168  1.1  gwr 		return error;
    169  1.1  gwr 	error = ttioctl(tp, cmd, data, flag, p);
    170  1.1  gwr 	if (error >= 0)
    171  1.1  gwr 		return error;
    172  1.1  gwr 
    173  1.1  gwr 	/* Handle any ioctl commands specific to kbd/display. */
    174  1.1  gwr 	/* XXX - Send KB* ioctls to kbd module? */
    175  1.1  gwr 	/* XXX - Send FB* ioctls to fb module?  */
    176  1.1  gwr 
    177  1.1  gwr 	return ENOTTY;
    178  1.1  gwr }
    179  1.1  gwr 
    180  1.1  gwr void
    181  1.1  gwr kdstart(tp)
    182  1.1  gwr 	struct tty *tp;
    183  1.1  gwr {
    184  1.1  gwr 	struct clist *cl;
    185  1.1  gwr 	int s, len;
    186  1.1  gwr 	u_char buf[BURST];
    187  1.1  gwr 
    188  1.1  gwr 	s = spltty();
    189  1.1  gwr 	if (tp->t_state & (TS_BUSY|TS_TTSTOP|TS_TIMEOUT))
    190  1.1  gwr 		goto out;
    191  1.1  gwr 	tp->t_state |= TS_BUSY;
    192  1.1  gwr 	cl = &tp->t_outq;
    193  1.1  gwr 
    194  1.1  gwr 	/*
    195  1.1  gwr 	 * XXX - It might be nice to have our own fbputs() so
    196  1.1  gwr 	 * we would not have to use the (slow) PROM printf.
    197  1.1  gwr 	 */
    198  1.1  gwr 	while ((len = q_to_b(cl, buf, BURST-1)) > 0) {
    199  1.1  gwr 		buf[len] = '\0';
    200  1.1  gwr 		(void) splhigh();
    201  1.1  gwr #if 0
    202  1.1  gwr 		/* XXX - Not yet.  Not sure what args should be. */
    203  1.1  gwr 		(romVectorPtr->fbWriteStr)(buf);
    204  1.1  gwr #else
    205  1.1  gwr 		mon_printf("%s", buf);
    206  1.1  gwr #endif
    207  1.1  gwr 		(void) spltty();
    208  1.1  gwr 	}
    209  1.1  gwr 
    210  1.1  gwr 	tp->t_state &= ~TS_BUSY;
    211  1.1  gwr 	if (tp->t_state & TS_ASLEEP) {
    212  1.1  gwr 		tp->t_state &= ~TS_ASLEEP;
    213  1.1  gwr 		wakeup((caddr_t)cl);
    214  1.1  gwr 	}
    215  1.1  gwr 	selwakeup(&tp->t_wsel);
    216  1.1  gwr out:
    217  1.1  gwr 	splx(s);
    218  1.1  gwr }
    219  1.1  gwr 
    220  1.1  gwr static int
    221  1.1  gwr kdparam(tp, t)
    222  1.1  gwr 	struct tty *tp;
    223  1.1  gwr 	struct termios *t;
    224  1.1  gwr {
    225  1.1  gwr 	/* XXX - These are ignored... */
    226  1.1  gwr 	tp->t_ispeed = t->c_ispeed;
    227  1.1  gwr 	tp->t_ospeed = t->c_ospeed;
    228  1.1  gwr 	tp->t_cflag = t->c_cflag;
    229  1.1  gwr 	return 0;
    230  1.1  gwr }
    231  1.1  gwr 
    232  1.1  gwr 
    233  1.1  gwr /*
    234  1.1  gwr  * kd console support
    235  1.1  gwr  *
    236  1.1  gwr  * XXX - Using prom routines for now...
    237  1.1  gwr  */
    238  1.1  gwr 
    239  1.1  gwr extern int zscnprobe_kbd();
    240  1.1  gwr 
    241  1.1  gwr kdcnprobe(cp)
    242  1.1  gwr 	struct consdev *cp;
    243  1.1  gwr {
    244  1.1  gwr 	int maj;
    245  1.1  gwr 
    246  1.1  gwr 	/* locate the major number */
    247  1.1  gwr 	for (maj = 0; maj < nchrdev; maj++)
    248  1.6  gwr 		if (cdevsw[maj].d_open == (void*)kdopen)
    249  1.1  gwr 			break;
    250  1.1  gwr 
    251  1.1  gwr 	/* initialize required fields */
    252  1.1  gwr 	cp->cn_dev = makedev(maj, 0);
    253  1.1  gwr 	cp->cn_pri = zscnprobe_kbd();
    254  1.1  gwr }
    255  1.1  gwr 
    256  1.1  gwr kdcninit(cp)
    257  1.1  gwr 	struct consdev *cp;
    258  1.1  gwr {
    259  1.1  gwr 	mon_printf("console on kd0 (keyboard/display)\n");
    260  1.1  gwr }
    261  1.1  gwr 
    262  1.1  gwr kdcngetc(dev)
    263  1.1  gwr 	dev_t dev;
    264  1.1  gwr {
    265  1.1  gwr 	int c, s;
    266  1.1  gwr 
    267  1.1  gwr 	/* XXX - Does mon_may_getchar() require the NMI clock? */
    268  1.1  gwr 	s = splhigh();
    269  1.1  gwr 	do c = mon_may_getchar();
    270  1.1  gwr 	while (c < 0);
    271  1.1  gwr 	splx(s);
    272  1.1  gwr 
    273  1.1  gwr 	if (c == '\r')
    274  1.1  gwr 		c = '\n';
    275  1.1  gwr 	return (c);
    276  1.1  gwr }
    277  1.1  gwr 
    278  1.1  gwr kdcnputc(dev, c)
    279  1.1  gwr 	dev_t dev;
    280  1.1  gwr 	int c;
    281  1.1  gwr {
    282  1.1  gwr 	int s;
    283  1.1  gwr 
    284  1.1  gwr 	s = splhigh();
    285  1.1  gwr #if 0
    286  1.1  gwr 	/* XXX - Is this worth doing? */
    287  1.1  gwr 	(romVectorPtr->fbWriteChar)(c);
    288  1.1  gwr #else
    289  1.1  gwr 	mon_putchar(c);
    290  1.1  gwr #endif
    291  1.1  gwr 	splx(s);
    292  1.1  gwr }
    293