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