pcons.c revision 1.18 1 /* $NetBSD: pcons.c,v 1.18 2008/06/13 13:11:26 cegger Exp $ */
2
3 /*-
4 * Copyright (c) 2000 Eduardo E. Horvath
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. The name of the author may not be used to endorse or promote products
16 * derived from this software without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
23 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
25 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
26 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * SUCH DAMAGE.
29 */
30
31 /*
32 * Default console driver. Uses the PROM or whatever
33 * driver(s) are appropriate.
34 */
35
36 #include <sys/cdefs.h>
37 __KERNEL_RCSID(0, "$NetBSD: pcons.c,v 1.18 2008/06/13 13:11:26 cegger Exp $");
38
39 #include "opt_ddb.h"
40
41 #include <sys/param.h>
42 #include <sys/systm.h>
43 #include <sys/conf.h>
44 #include <sys/device.h>
45 #include <sys/file.h>
46 #include <sys/ioctl.h>
47 #include <sys/kernel.h>
48 #include <sys/proc.h>
49 #include <sys/tty.h>
50 #include <sys/time.h>
51 #include <sys/syslog.h>
52 #include <sys/kauth.h>
53
54 #include <machine/autoconf.h>
55 #include <machine/promlib.h>
56 #include <machine/cpu.h>
57 #include <machine/psl.h>
58
59 #include <dev/cons.h>
60
61 #include <sun2/dev/cons.h>
62
63 static int pconsmatch(struct device *, struct cfdata *, void *);
64 static void pconsattach(struct device *, struct device *, void *);
65
66 CFATTACH_DECL(pcons, sizeof(struct pconssoftc),
67 pconsmatch, pconsattach, NULL, NULL);
68
69 extern struct cfdriver pcons_cd;
70 static struct cnm_state pcons_cnm_state;
71
72 static int pconsprobe(void);
73 extern struct consdev *cn_tab;
74
75 dev_type_open(pconsopen);
76 dev_type_close(pconsclose);
77 dev_type_read(pconsread);
78 dev_type_write(pconswrite);
79 dev_type_ioctl(pconsioctl);
80 dev_type_tty(pconstty);
81 dev_type_poll(pconspoll);
82
83 const struct cdevsw pcons_cdevsw = {
84 pconsopen, pconsclose, pconsread, pconswrite, pconsioctl,
85 nostop, pconstty, pconspoll, nommap, ttykqfilter, D_TTY
86 };
87
88 static int
89 pconsmatch(struct device *parent, struct cfdata *match, void *aux)
90 {
91 struct mainbus_attach_args *ma = aux;
92 extern int prom_cngetc(dev_t);
93
94 /* Only attach if no other console has attached. */
95 return ((ma->ma_name != NULL) &&
96 (strcmp("pcons", ma->ma_name) == 0) &&
97 (cn_tab->cn_getc == prom_cngetc));
98
99 }
100
101 static void
102 pconsattach(struct device *parent, struct device *self, void *aux)
103 {
104 struct pconssoftc *sc = (struct pconssoftc *) self;
105
106 printf("\n");
107 if (!pconsprobe())
108 return;
109
110 cn_init_magic(&pcons_cnm_state);
111 cn_set_magic("+++++");
112 callout_init(&sc->sc_poll_ch, 0);
113 }
114
115 static void pconsstart(struct tty *);
116 static int pconsparam(struct tty *, struct termios *);
117 static void pcons_poll(void *);
118
119 int
120 pconsopen(dev_t dev, int flag, int mode, struct lwp *l)
121 {
122 struct pconssoftc *sc;
123 struct tty *tp;
124
125 sc = device_lookup_private(&pcons_cd, minor(dev));
126 if (!sc)
127 return ENXIO;
128 if (!(tp = sc->of_tty))
129 sc->of_tty = tp = ttymalloc();
130 tp->t_oproc = pconsstart;
131 tp->t_param = pconsparam;
132 tp->t_dev = dev;
133 cn_tab->cn_dev = dev;
134 if (kauth_authorize_device_tty(l->l_cred, KAUTH_DEVICE_TTY_OPEN, tp))
135 return (EBUSY);
136 if (!(tp->t_state & TS_ISOPEN)) {
137 ttychars(tp);
138 tp->t_iflag = TTYDEF_IFLAG;
139 tp->t_oflag = TTYDEF_OFLAG;
140 tp->t_cflag = TTYDEF_CFLAG;
141 tp->t_lflag = TTYDEF_LFLAG;
142 tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
143 pconsparam(tp, &tp->t_termios);
144 ttsetwater(tp);
145 }
146 tp->t_state |= TS_CARR_ON;
147
148 if (!(sc->of_flags & OFPOLL)) {
149 sc->of_flags |= OFPOLL;
150 callout_reset(&sc->sc_poll_ch, 1, pcons_poll, sc);
151 }
152
153 return (*tp->t_linesw->l_open)(dev, tp);
154 }
155
156 int
157 pconsclose(dev_t dev, int flag, int mode, struct lwp *l)
158 {
159 struct pconssoftc *sc = device_lookup_private(&pcons_cd, minor(dev));
160 struct tty *tp = sc->of_tty;
161
162 callout_stop(&sc->sc_poll_ch);
163 sc->of_flags &= ~OFPOLL;
164 (*tp->t_linesw->l_close)(tp, flag);
165 ttyclose(tp);
166 return 0;
167 }
168
169 int
170 pconsread(dev_t dev, struct uio *uio, int flag)
171 {
172 struct pconssoftc *sc = device_lookup_private(&pcons_cd, minor(dev));
173 struct tty *tp = sc->of_tty;
174
175 return (*tp->t_linesw->l_read)(tp, uio, flag);
176 }
177
178 int
179 pconswrite(dev_t dev, struct uio *uio, int flag)
180 {
181 struct pconssoftc *sc = device_lookup_private(&pcons_cd, minor(dev));
182 struct tty *tp = sc->of_tty;
183
184 return (*tp->t_linesw->l_write)(tp, uio, flag);
185 }
186
187 int
188 pconspoll(dev_t dev, int events, struct lwp *l)
189 {
190 struct pconssoftc *sc = device_lookup_private(&pcons_cd, minor(dev));
191 struct tty *tp = sc->of_tty;
192
193 return ((*tp->t_linesw->l_poll)(tp, events, l));
194 }
195
196 int
197 pconsioctl(dev_t dev, u_long cmd, void *data, int flag, struct lwp *l)
198 {
199 struct pconssoftc *sc = device_lookup_private(&pcons_cd, minor(dev));
200 struct tty *tp = sc->of_tty;
201 int error;
202
203 if ((error = (*tp->t_linesw->l_ioctl)(tp, cmd, data, flag, l)) >= 0)
204 return error;
205 if ((error = ttioctl(tp, cmd, data, flag, l)) >= 0)
206 return error;
207 return ENOTTY;
208 }
209
210 struct tty *
211 pconstty(dev_t dev)
212 {
213 struct pconssoftc *sc = device_lookup_private(&pcons_cd, minor(dev));
214
215 return sc->of_tty;
216 }
217
218 static void
219 pconsstart(struct tty *tp)
220 {
221 struct clist *cl;
222 int s, len;
223 u_char buf[OFBURSTLEN];
224
225 s = spltty();
226 if (tp->t_state & (TS_TIMEOUT | TS_BUSY | TS_TTSTOP)) {
227 splx(s);
228 return;
229 }
230 tp->t_state |= TS_BUSY;
231 splx(s);
232 cl = &tp->t_outq;
233 len = q_to_b(cl, buf, OFBURSTLEN);
234 prom_putstr(buf, len);
235 s = spltty();
236 tp->t_state &= ~TS_BUSY;
237 if (ttypull(tp)) {
238 tp->t_state |= TS_TIMEOUT;
239 callout_schedule(&tp->t_rstrt_ch, 1);
240 }
241 splx(s);
242 }
243
244 static int
245 pconsparam(struct tty *tp, struct termios *t)
246 {
247 tp->t_ispeed = t->c_ispeed;
248 tp->t_ospeed = t->c_ospeed;
249 tp->t_cflag = t->c_cflag;
250 return 0;
251 }
252
253 static void
254 pcons_poll(void *aux)
255 {
256 struct pconssoftc *sc = aux;
257 struct tty *tp = sc->of_tty;
258 int c;
259 char ch;
260
261 while ((c = prom_peekchar()) >= 0) {
262 ch = c;
263 cn_check_magic(tp->t_dev, ch, pcons_cnm_state);
264 if (tp && (tp->t_state & TS_ISOPEN))
265 (*tp->t_linesw->l_rint)(ch, tp);
266 }
267 callout_reset(&sc->sc_poll_ch, 1, pcons_poll, sc);
268 }
269
270 int
271 pconsprobe(void)
272 {
273 switch (prom_version()) {
274 #ifdef PROM_OLDMON
275 case PROM_OLDMON:
276 case PROM_OBP_V0:
277 return (1);
278 #endif /* PROM_OLDMON */
279 #ifdef PROM_OBP_V2
280 case PROM_OBP_V2:
281 case PROM_OBP_V3:
282 case PROM_OPENFIRM:
283 return (prom_stdin() && prom_stdout());
284 #endif /* PROM_OBP_V2 */
285 default: break;
286 }
287 return (0);
288 }
289
290 void
291 pcons_cnpollc(dev_t dev, int on)
292 {
293 struct pconssoftc *sc = NULL;
294
295 sc = device_lookup_private(&pcons_cd, minor(dev));
296 if (sc == NULL)
297 return;
298
299 if (on) {
300 if (sc->of_flags & OFPOLL)
301 callout_stop(&sc->sc_poll_ch);
302 sc->of_flags &= ~OFPOLL;
303 } else {
304 /* Resuming kernel. */
305 if (!(sc->of_flags & OFPOLL)) {
306 sc->of_flags |= OFPOLL;
307 callout_reset(&sc->sc_poll_ch, 1, pcons_poll, sc);
308 }
309 }
310 }
311
312 void pcons_dopoll(void);
313 void
314 pcons_dopoll(void)
315 {
316 pcons_poll(device_lookup_private(&pcons_cd, 0));
317 }
318