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