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