ite.c revision 1.52 1 1.52 joerg /* $NetBSD: ite.c,v 1.52 2007/10/18 18:54:59 joerg Exp $ */
2 1.1 oki
3 1.1 oki /*
4 1.1 oki * Copyright (c) 1990 The Regents of the University of California.
5 1.1 oki * All rights reserved.
6 1.1 oki *
7 1.1 oki * This code is derived from software contributed to Berkeley by
8 1.1 oki * the Systems Programming Group of the University of Utah Computer
9 1.1 oki * Science Department.
10 1.1 oki *
11 1.1 oki * Redistribution and use in source and binary forms, with or without
12 1.1 oki * modification, are permitted provided that the following conditions
13 1.1 oki * are met:
14 1.1 oki * 1. Redistributions of source code must retain the above copyright
15 1.1 oki * notice, this list of conditions and the following disclaimer.
16 1.1 oki * 2. Redistributions in binary form must reproduce the above copyright
17 1.1 oki * notice, this list of conditions and the following disclaimer in the
18 1.1 oki * documentation and/or other materials provided with the distribution.
19 1.35 agc * 3. Neither the name of the University nor the names of its contributors
20 1.35 agc * may be used to endorse or promote products derived from this software
21 1.35 agc * without specific prior written permission.
22 1.35 agc *
23 1.35 agc * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.35 agc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.35 agc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.35 agc * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.35 agc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.35 agc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.35 agc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.35 agc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.35 agc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.35 agc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.35 agc * SUCH DAMAGE.
34 1.35 agc *
35 1.35 agc * from: Utah $Hdr: ite.c 1.1 90/07/09$
36 1.35 agc *
37 1.35 agc * @(#)ite.c 7.6 (Berkeley) 5/16/91
38 1.35 agc */
39 1.35 agc /*
40 1.35 agc * Copyright (c) 1988 University of Utah.
41 1.35 agc *
42 1.35 agc * This code is derived from software contributed to Berkeley by
43 1.35 agc * the Systems Programming Group of the University of Utah Computer
44 1.35 agc * Science Department.
45 1.35 agc *
46 1.35 agc * Redistribution and use in source and binary forms, with or without
47 1.35 agc * modification, are permitted provided that the following conditions
48 1.35 agc * are met:
49 1.35 agc * 1. Redistributions of source code must retain the above copyright
50 1.35 agc * notice, this list of conditions and the following disclaimer.
51 1.35 agc * 2. Redistributions in binary form must reproduce the above copyright
52 1.35 agc * notice, this list of conditions and the following disclaimer in the
53 1.35 agc * documentation and/or other materials provided with the distribution.
54 1.1 oki * 3. All advertising materials mentioning features or use of this software
55 1.1 oki * must display the following acknowledgement:
56 1.1 oki * This product includes software developed by the University of
57 1.1 oki * California, Berkeley and its contributors.
58 1.1 oki * 4. Neither the name of the University nor the names of its contributors
59 1.1 oki * may be used to endorse or promote products derived from this software
60 1.1 oki * without specific prior written permission.
61 1.1 oki *
62 1.1 oki * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
63 1.1 oki * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
64 1.1 oki * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
65 1.1 oki * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
66 1.1 oki * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
67 1.1 oki * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
68 1.1 oki * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
69 1.1 oki * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
70 1.1 oki * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
71 1.1 oki * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
72 1.1 oki * SUCH DAMAGE.
73 1.1 oki *
74 1.1 oki * from: Utah $Hdr: ite.c 1.1 90/07/09$
75 1.1 oki *
76 1.1 oki * @(#)ite.c 7.6 (Berkeley) 5/16/91
77 1.1 oki */
78 1.1 oki
79 1.1 oki /*
80 1.1 oki * ite - bitmaped terminal.
81 1.1 oki * Supports VT200, a few terminal features will be unavailable until
82 1.1 oki * the system actually probes the device (i.e. not after consinit())
83 1.1 oki */
84 1.34 lukem
85 1.34 lukem #include <sys/cdefs.h>
86 1.52 joerg __KERNEL_RCSID(0, "$NetBSD: ite.c,v 1.52 2007/10/18 18:54:59 joerg Exp $");
87 1.1 oki
88 1.1 oki #include "ite.h"
89 1.1 oki #if NITE > 0
90 1.1 oki
91 1.1 oki #include "bell.h"
92 1.14 minoura #include "kbd.h"
93 1.17 minoura
94 1.17 minoura #include "opt_ite.h"
95 1.1 oki
96 1.1 oki #include <sys/param.h>
97 1.1 oki #include <sys/conf.h>
98 1.1 oki #include <sys/proc.h>
99 1.1 oki #include <sys/ioctl.h>
100 1.1 oki #include <sys/tty.h>
101 1.1 oki #include <sys/systm.h>
102 1.1 oki #include <sys/device.h>
103 1.1 oki #include <sys/malloc.h>
104 1.45 elad #include <sys/kauth.h>
105 1.14 minoura
106 1.16 minoura #include <machine/cpu.h>
107 1.1 oki #include <machine/kbio.h>
108 1.14 minoura #include <machine/bus.h>
109 1.14 minoura #include <machine/grfioctl.h>
110 1.13 minoura #include <machine/iteioctl.h>
111 1.1 oki
112 1.14 minoura #include <arch/x68k/dev/grfvar.h>
113 1.14 minoura #include <arch/x68k/dev/itevar.h>
114 1.14 minoura #include <arch/x68k/dev/kbdmap.h>
115 1.14 minoura #include <arch/x68k/dev/mfp.h>
116 1.16 minoura #if NBELL > 0
117 1.38 chs void opm_bell(void);
118 1.16 minoura #endif
119 1.1 oki
120 1.1 oki #define SUBR_CNPROBE(min) itesw[min].ite_cnprobe(min)
121 1.1 oki #define SUBR_INIT(ip) ip->isw->ite_init(ip)
122 1.1 oki #define SUBR_DEINIT(ip) ip->isw->ite_deinit(ip)
123 1.1 oki #define SUBR_PUTC(ip,c,dy,dx,m) ip->isw->ite_putc(ip,c,dy,dx,m)
124 1.1 oki #define SUBR_CURSOR(ip,flg) ip->isw->ite_cursor(ip,flg)
125 1.1 oki #define SUBR_CLEAR(ip,sy,sx,h,w) ip->isw->ite_clear(ip,sy,sx,h,w)
126 1.1 oki #define SUBR_SCROLL(ip,sy,sx,count,dir) \
127 1.1 oki ip->isw->ite_scroll(ip,sy,sx,count,dir)
128 1.1 oki
129 1.1 oki struct consdev;
130 1.1 oki
131 1.43 perry inline static void itesendch(int);
132 1.43 perry inline static void alignment_display(struct ite_softc *);
133 1.43 perry inline static void snap_cury(struct ite_softc *);
134 1.43 perry inline static void ite_dnchar(struct ite_softc *, int);
135 1.38 chs static void ite_inchar(struct ite_softc *, int);
136 1.43 perry inline static void ite_clrtoeol(struct ite_softc *);
137 1.43 perry inline static void ite_clrtobol(struct ite_softc *);
138 1.43 perry inline static void ite_clrline(struct ite_softc *);
139 1.43 perry inline static void ite_clrtoeos(struct ite_softc *);
140 1.43 perry inline static void ite_clrtobos(struct ite_softc *);
141 1.43 perry inline static void ite_clrscreen(struct ite_softc *);
142 1.43 perry inline static void ite_dnline(struct ite_softc *, int);
143 1.43 perry inline static void ite_inline(struct ite_softc *, int);
144 1.43 perry inline static void ite_index(struct ite_softc *);
145 1.43 perry inline static void ite_lf(struct ite_softc *);
146 1.43 perry inline static void ite_crlf(struct ite_softc *);
147 1.43 perry inline static void ite_cr(struct ite_softc *);
148 1.43 perry inline static void ite_rlf(struct ite_softc *);
149 1.38 chs static void iteprecheckwrap(struct ite_softc *);
150 1.38 chs static void itecheckwrap(struct ite_softc *);
151 1.38 chs static int ite_argnum(struct ite_softc *);
152 1.38 chs static int ite_zargnum(struct ite_softc *);
153 1.40 he static void ite_sendstr(struct ite_softc *, const char *);
154 1.43 perry inline static int atoi(const char *);
155 1.38 chs void ite_reset(struct ite_softc *);
156 1.38 chs struct ite_softc *getitesp(dev_t);
157 1.38 chs int iteon(dev_t, int);
158 1.38 chs void iteoff(dev_t, int);
159 1.1 oki
160 1.1 oki struct itesw itesw[] = {
161 1.16 minoura {0, tv_init, tv_deinit, 0,
162 1.16 minoura 0, 0, 0}
163 1.1 oki };
164 1.1 oki int nitesw = sizeof(itesw) / sizeof(itesw[0]);
165 1.1 oki
166 1.1 oki /*
167 1.1 oki * # of chars are output in a single itestart() call.
168 1.1 oki * If this is too big, user processes will be blocked out for
169 1.1 oki * long periods of time while we are emptying the queue in itestart().
170 1.1 oki * If it is too small, console output will be very ragged.
171 1.1 oki */
172 1.1 oki #define ITEBURST 64
173 1.1 oki
174 1.1 oki int nite = NITE;
175 1.1 oki struct tty *ite_tty[NITE];
176 1.1 oki struct ite_softc *kbd_ite = NULL;
177 1.1 oki struct ite_softc con_itesoftc;
178 1.1 oki
179 1.1 oki struct tty *kbd_tty = NULL;
180 1.1 oki
181 1.1 oki int start_repeat_timeo = 20; /* /100: initial timeout till pressed key repeats */
182 1.1 oki int next_repeat_timeo = 3; /* /100: timeout when repeating for next char */
183 1.1 oki
184 1.1 oki u_char cons_tabs[MAX_TABS];
185 1.1 oki
186 1.38 chs void itestart(struct tty *);
187 1.1 oki
188 1.38 chs void iteputchar(int, struct ite_softc *);
189 1.38 chs void ite_putstr(const u_char *, int, dev_t);
190 1.1 oki
191 1.38 chs void iteattach(struct device *, struct device *, void *);
192 1.38 chs int itematch(struct device *, struct cfdata *, void *);
193 1.1 oki
194 1.31 thorpej CFATTACH_DECL(ite, sizeof(struct ite_softc),
195 1.32 thorpej itematch, iteattach, NULL, NULL);
196 1.1 oki
197 1.9 thorpej extern struct cfdriver ite_cd;
198 1.1 oki
199 1.29 gehenna dev_type_open(iteopen);
200 1.29 gehenna dev_type_close(iteclose);
201 1.29 gehenna dev_type_read(iteread);
202 1.29 gehenna dev_type_write(itewrite);
203 1.29 gehenna dev_type_ioctl(iteioctl);
204 1.29 gehenna dev_type_tty(itetty);
205 1.29 gehenna dev_type_poll(itepoll);
206 1.29 gehenna
207 1.29 gehenna const struct cdevsw ite_cdevsw = {
208 1.29 gehenna iteopen, iteclose, iteread, itewrite, iteioctl,
209 1.33 jdolecek nostop, itetty, itepoll, nommap, ttykqfilter, D_TTY
210 1.29 gehenna };
211 1.29 gehenna
212 1.49 isaki int
213 1.38 chs itematch(struct device *pdp, struct cfdata *cdp, void *auxp)
214 1.1 oki {
215 1.1 oki struct grf_softc *gp;
216 1.1 oki
217 1.1 oki gp = auxp;
218 1.39 chs if (cdp->cf_loc[GRFCF_GRFADDR] != gp->g_cfaddr)
219 1.39 chs return 0;
220 1.1 oki
221 1.39 chs return 1;
222 1.1 oki }
223 1.1 oki
224 1.50 isaki /*
225 1.1 oki * iteinit() is the standard entry point for initialization of
226 1.1 oki * an ite device, it is also called from ite_cninit().
227 1.1 oki */
228 1.49 isaki void
229 1.38 chs iteattach(struct device *pdp, struct device *dp, void *auxp)
230 1.1 oki {
231 1.1 oki struct ite_softc *ip;
232 1.1 oki struct grf_softc *gp;
233 1.1 oki
234 1.1 oki gp = (struct grf_softc *)auxp;
235 1.1 oki if (dp) {
236 1.1 oki ip = (struct ite_softc *)dp;
237 1.1 oki if(con_itesoftc.grf != NULL
238 1.1 oki /*&& con_itesoftc.grf->g_unit == gp->g_unit*/) {
239 1.1 oki /*
240 1.1 oki * console reinit copy params over.
241 1.1 oki * and console always gets keyboard
242 1.1 oki */
243 1.27 wiz memcpy(&ip->grf, &con_itesoftc.grf,
244 1.1 oki (char *)&ip[1] - (char *)&ip->grf);
245 1.1 oki con_itesoftc.grf = NULL;
246 1.1 oki kbd_ite = ip;
247 1.1 oki }
248 1.1 oki ip->grf = gp;
249 1.44 thorpej iteinit(device_unit(&ip->device)); /* XXX */
250 1.6 christos printf(": rows %d cols %d", ip->rows, ip->cols);
251 1.1 oki if (kbd_ite == NULL)
252 1.1 oki kbd_ite = ip;
253 1.6 christos printf("\n");
254 1.1 oki } else {
255 1.50 isaki if (con_itesoftc.grf != NULL)
256 1.1 oki return;
257 1.1 oki con_itesoftc.grf = gp;
258 1.1 oki con_itesoftc.tabs = cons_tabs;
259 1.1 oki }
260 1.1 oki }
261 1.1 oki
262 1.1 oki struct ite_softc *
263 1.38 chs getitesp(dev_t dev)
264 1.1 oki {
265 1.1 oki extern int x68k_realconfig;
266 1.1 oki
267 1.1 oki if (x68k_realconfig && con_itesoftc.grf == NULL)
268 1.1 oki return(ite_cd.cd_devs[UNIT(dev)]);
269 1.1 oki
270 1.1 oki if (con_itesoftc.grf == NULL)
271 1.1 oki panic("no ite_softc for console");
272 1.1 oki return(&con_itesoftc);
273 1.1 oki }
274 1.1 oki
275 1.49 isaki void
276 1.38 chs iteinit(dev_t dev)
277 1.1 oki {
278 1.1 oki struct ite_softc *ip;
279 1.1 oki
280 1.1 oki ip = getitesp(dev);
281 1.1 oki
282 1.1 oki if (ip->flags & ITE_INITED)
283 1.1 oki return;
284 1.27 wiz memcpy(&kbdmap, &ascii_kbdmap, sizeof(struct kbdmap));
285 1.1 oki
286 1.1 oki ip->curx = 0;
287 1.1 oki ip->cury = 0;
288 1.1 oki ip->cursorx = 0;
289 1.1 oki ip->cursory = 0;
290 1.1 oki
291 1.44 thorpej ip->isw = &itesw[device_unit(&ip->device)]; /* XXX */
292 1.1 oki SUBR_INIT(ip);
293 1.1 oki SUBR_CURSOR(ip, DRAW_CURSOR);
294 1.1 oki if (!ip->tabs)
295 1.1 oki ip->tabs = malloc(MAX_TABS*sizeof(u_char), M_DEVBUF, M_WAITOK);
296 1.1 oki ite_reset(ip);
297 1.1 oki ip->flags |= ITE_INITED;
298 1.1 oki }
299 1.1 oki
300 1.1 oki /*
301 1.1 oki * Perform functions necessary to setup device as a terminal emulator.
302 1.1 oki */
303 1.49 isaki int
304 1.38 chs iteon(dev_t dev, int flag)
305 1.1 oki {
306 1.1 oki int unit = UNIT(dev);
307 1.12 minoura struct ite_softc *ip;
308 1.1 oki
309 1.12 minoura if (unit < 0 || unit >= ite_cd.cd_ndevs ||
310 1.12 minoura (ip = getitesp(unit)) == NULL || (ip->flags&ITE_ALIVE) == 0)
311 1.1 oki return(ENXIO);
312 1.1 oki /* force ite active, overriding graphics mode */
313 1.1 oki if (flag & 1) {
314 1.1 oki ip->flags |= ITE_ACTIVE;
315 1.1 oki ip->flags &= ~(ITE_INGRF|ITE_INITED);
316 1.1 oki }
317 1.1 oki /* leave graphics mode */
318 1.1 oki if (flag & 2) {
319 1.1 oki ip->flags &= ~ITE_INGRF;
320 1.1 oki if ((ip->flags & ITE_ACTIVE) == 0)
321 1.1 oki return(0);
322 1.1 oki }
323 1.1 oki ip->flags |= ITE_ACTIVE;
324 1.1 oki if (ip->flags & ITE_INGRF)
325 1.1 oki return(0);
326 1.1 oki iteinit(dev);
327 1.20 minoura if (flag & 2)
328 1.20 minoura ite_reset(ip);
329 1.14 minoura #if NKBD > 0
330 1.49 isaki mfp_send_usart(0x49); /* XXX */
331 1.14 minoura #endif
332 1.1 oki return(0);
333 1.1 oki }
334 1.1 oki
335 1.1 oki /*
336 1.1 oki * "Shut down" device as terminal emulator.
337 1.1 oki * Note that we do not deinit the console device unless forced.
338 1.1 oki * Deinit'ing the console every time leads to a very active
339 1.1 oki * screen when processing /etc/rc.
340 1.1 oki */
341 1.49 isaki void
342 1.38 chs iteoff(dev_t dev, int flag)
343 1.1 oki {
344 1.4 oki int unit = UNIT(dev);
345 1.38 chs struct ite_softc *ip;
346 1.1 oki
347 1.4 oki /* XXX check whether when call from grf.c */
348 1.12 minoura if (unit < 0 || unit >= ite_cd.cd_ndevs ||
349 1.12 minoura (ip = getitesp(unit)) == NULL || (ip->flags&ITE_ALIVE) == 0)
350 1.4 oki return;
351 1.1 oki if (flag & 2)
352 1.1 oki ip->flags |= ITE_INGRF;
353 1.1 oki
354 1.1 oki if ((ip->flags & ITE_ACTIVE) == 0)
355 1.1 oki return;
356 1.1 oki if ((flag & 1) ||
357 1.1 oki (ip->flags & (ITE_INGRF|ITE_ISCONS|ITE_INITED)) == ITE_INITED)
358 1.1 oki SUBR_DEINIT(ip);
359 1.1 oki
360 1.1 oki /*
361 1.1 oki * XXX When the system is rebooted with "reboot", init(8)
362 1.1 oki * kills the last process to have the console open.
363 1.37 simonb * If we don't revent the ITE_ACTIVE bit from being
364 1.1 oki * cleared, we will never see messages printed during
365 1.1 oki * the process of rebooting.
366 1.1 oki */
367 1.14 minoura if ((flag & 2) == 0 && (ip->flags & ITE_ISCONS) == 0) {
368 1.1 oki ip->flags &= ~ITE_ACTIVE;
369 1.14 minoura #if NKBD > 0
370 1.49 isaki mfp_send_usart(0x48); /* XXX */
371 1.14 minoura #endif
372 1.14 minoura }
373 1.1 oki }
374 1.1 oki
375 1.1 oki /*
376 1.1 oki * standard entry points to the device.
377 1.1 oki */
378 1.1 oki
379 1.1 oki /* ARGSUSED */
380 1.49 isaki int
381 1.42 christos iteopen(dev_t dev, int mode, int devtype, struct lwp *l)
382 1.1 oki {
383 1.1 oki int unit = UNIT(dev);
384 1.38 chs struct tty *tp;
385 1.38 chs struct ite_softc *ip;
386 1.38 chs int error;
387 1.1 oki int first = 0;
388 1.1 oki
389 1.15 minoura if (unit >= ite_cd.cd_ndevs || (ip = getitesp(dev)) == NULL)
390 1.15 minoura return (ENXIO);
391 1.3 oki if (!ite_tty[unit]) {
392 1.1 oki tp = ite_tty[unit] = ttymalloc();
393 1.3 oki tty_attach(tp);
394 1.3 oki } else
395 1.1 oki tp = ite_tty[unit];
396 1.47 elad if (kauth_authorize_device_tty(l->l_cred, KAUTH_DEVICE_TTY_OPEN, tp))
397 1.1 oki return (EBUSY);
398 1.1 oki if ((ip->flags & ITE_ACTIVE) == 0) {
399 1.1 oki error = iteon(dev, 0);
400 1.1 oki if (error)
401 1.1 oki return (error);
402 1.1 oki first = 1;
403 1.1 oki }
404 1.1 oki tp->t_oproc = itestart;
405 1.1 oki tp->t_param = NULL;
406 1.1 oki tp->t_dev = dev;
407 1.1 oki if ((tp->t_state&TS_ISOPEN) == 0) {
408 1.1 oki ttychars(tp);
409 1.1 oki tp->t_iflag = TTYDEF_IFLAG;
410 1.1 oki tp->t_oflag = TTYDEF_OFLAG;
411 1.1 oki tp->t_cflag = TTYDEF_CFLAG;
412 1.1 oki tp->t_lflag = TTYDEF_LFLAG;
413 1.1 oki tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
414 1.1 oki tp->t_state = TS_ISOPEN|TS_CARR_ON;
415 1.1 oki ttsetwater(tp);
416 1.1 oki }
417 1.23 eeh error = (*tp->t_linesw->l_open)(dev, tp);
418 1.1 oki if (error == 0) {
419 1.1 oki tp->t_winsize.ws_row = ip->rows;
420 1.1 oki tp->t_winsize.ws_col = ip->cols;
421 1.1 oki } else if (first)
422 1.1 oki iteoff(dev, 0);
423 1.1 oki return (error);
424 1.1 oki }
425 1.1 oki
426 1.1 oki /*ARGSUSED*/
427 1.49 isaki int
428 1.42 christos iteclose(dev_t dev, int flag, int mode, struct lwp *l)
429 1.1 oki {
430 1.38 chs struct tty *tp = ite_tty[UNIT(dev)];
431 1.1 oki
432 1.23 eeh (*tp->t_linesw->l_close)(tp, flag);
433 1.1 oki ttyclose(tp);
434 1.1 oki iteoff(dev, 0);
435 1.1 oki #if 0
436 1.1 oki ttyfree(tp);
437 1.1 oki ite_tty[UNIT(dev)] = (struct tty *)0;
438 1.1 oki #endif
439 1.1 oki return(0);
440 1.1 oki }
441 1.1 oki
442 1.49 isaki int
443 1.38 chs iteread(dev_t dev, struct uio *uio, int flag)
444 1.1 oki {
445 1.38 chs struct tty *tp = ite_tty[UNIT(dev)];
446 1.1 oki
447 1.23 eeh return ((*tp->t_linesw->l_read)(tp, uio, flag));
448 1.1 oki }
449 1.1 oki
450 1.49 isaki int
451 1.38 chs itewrite(dev_t dev, struct uio *uio, int flag)
452 1.1 oki {
453 1.38 chs struct tty *tp = ite_tty[UNIT(dev)];
454 1.1 oki
455 1.23 eeh return ((*tp->t_linesw->l_write)(tp, uio, flag));
456 1.25 scw }
457 1.25 scw
458 1.49 isaki int
459 1.42 christos itepoll(dev_t dev, int events, struct lwp *l)
460 1.25 scw {
461 1.38 chs struct tty *tp = ite_tty[UNIT(dev)];
462 1.50 isaki
463 1.42 christos return ((*tp->t_linesw->l_poll)(tp, events, l));
464 1.1 oki }
465 1.1 oki
466 1.1 oki struct tty *
467 1.38 chs itetty(dev_t dev)
468 1.1 oki {
469 1.1 oki
470 1.1 oki return (ite_tty[UNIT(dev)]);
471 1.1 oki }
472 1.1 oki
473 1.49 isaki int
474 1.48 christos iteioctl(dev_t dev, u_long cmd, void *addr, int flag, struct lwp *l)
475 1.1 oki {
476 1.1 oki struct iterepeat *irp;
477 1.38 chs struct tty *tp = ite_tty[UNIT(dev)];
478 1.1 oki int error;
479 1.1 oki
480 1.42 christos error = (*tp->t_linesw->l_ioctl)(tp, cmd, addr, flag, l);
481 1.28 atatat if (error != EPASSTHROUGH)
482 1.1 oki return (error);
483 1.28 atatat
484 1.42 christos error = ttioctl(tp, cmd, addr, flag, l);
485 1.28 atatat if (error != EPASSTHROUGH)
486 1.1 oki return (error);
487 1.1 oki
488 1.1 oki switch (cmd) {
489 1.1 oki case ITEIOCSKMAP:
490 1.1 oki if (addr == 0)
491 1.1 oki return(EFAULT);
492 1.27 wiz memcpy(&kbdmap, addr, sizeof(struct kbdmap));
493 1.1 oki return(0);
494 1.1 oki
495 1.1 oki case ITEIOCGKMAP:
496 1.1 oki if (addr == NULL)
497 1.1 oki return(EFAULT);
498 1.27 wiz memcpy(addr, &kbdmap, sizeof(struct kbdmap));
499 1.1 oki return(0);
500 1.1 oki
501 1.1 oki case ITEIOCGREPT:
502 1.1 oki irp = (struct iterepeat *)addr;
503 1.1 oki irp->start = start_repeat_timeo;
504 1.1 oki irp->next = next_repeat_timeo;
505 1.1 oki
506 1.1 oki case ITEIOCSREPT:
507 1.1 oki irp = (struct iterepeat *)addr;
508 1.1 oki if (irp->start < ITEMINREPEAT && irp->next < ITEMINREPEAT)
509 1.1 oki return(EINVAL);
510 1.1 oki start_repeat_timeo = irp->start;
511 1.1 oki next_repeat_timeo = irp->next;
512 1.1 oki #if x68k
513 1.1 oki case ITELOADFONT:
514 1.1 oki if (addr) {
515 1.49 isaki memcpy(kern_font, addr, 4096 /*sizeof(kernel_font)*/);
516 1.26 isaki ite_set_glyph();
517 1.1 oki return 0;
518 1.1 oki } else
519 1.1 oki return EFAULT;
520 1.1 oki
521 1.1 oki case ITETVCTRL:
522 1.14 minoura if (addr && *(u_int8_t *)addr < 0x40) {
523 1.49 isaki return mfp_send_usart(* (u_int8_t *)addr);
524 1.14 minoura } else {
525 1.1 oki return EFAULT;
526 1.14 minoura }
527 1.1 oki #endif
528 1.1 oki }
529 1.28 atatat return (EPASSTHROUGH);
530 1.1 oki }
531 1.1 oki
532 1.49 isaki void
533 1.38 chs itestart(struct tty *tp)
534 1.1 oki {
535 1.1 oki struct clist *rbp;
536 1.1 oki struct ite_softc *ip;
537 1.1 oki u_char buf[ITEBURST];
538 1.16 minoura int s, len;
539 1.1 oki
540 1.1 oki ip = getitesp(tp->t_dev);
541 1.1 oki /*
542 1.1 oki * (Potentially) lower priority. We only need to protect ourselves
543 1.1 oki * from keyboard interrupts since that is all that can affect the
544 1.6 christos * state of our tty (kernel printf doesn't go through this routine).
545 1.1 oki */
546 1.1 oki s = spltty();
547 1.1 oki if (tp->t_state & (TS_TIMEOUT | TS_BUSY | TS_TTSTOP))
548 1.1 oki goto out;
549 1.1 oki tp->t_state |= TS_BUSY;
550 1.1 oki rbp = &tp->t_outq;
551 1.1 oki len = q_to_b(rbp, buf, ITEBURST);
552 1.1 oki /*splx(s);*/
553 1.1 oki
554 1.1 oki /* Here is a really good place to implement pre/jumpscroll() */
555 1.1 oki ite_putstr(buf, len, tp->t_dev);
556 1.1 oki
557 1.1 oki /*s = spltty();*/
558 1.1 oki tp->t_state &= ~TS_BUSY;
559 1.1 oki /* we have characters remaining. */
560 1.1 oki if (rbp->c_cc) {
561 1.1 oki tp->t_state |= TS_TIMEOUT;
562 1.52 joerg callout_schedule(&tp->t_rstrt_ch, 1);
563 1.1 oki }
564 1.1 oki /* wakeup we are below */
565 1.1 oki if (rbp->c_cc <= tp->t_lowat) {
566 1.1 oki if (tp->t_state & TS_ASLEEP) {
567 1.1 oki tp->t_state &= ~TS_ASLEEP;
568 1.48 christos wakeup((void *)rbp);
569 1.1 oki }
570 1.1 oki selwakeup(&tp->t_wsel);
571 1.1 oki }
572 1.1 oki out:
573 1.1 oki splx(s);
574 1.1 oki }
575 1.1 oki
576 1.1 oki /* XXX called after changes made in underlying grf layer. */
577 1.1 oki /* I want to nuke this */
578 1.49 isaki void
579 1.38 chs ite_reinit(dev_t dev)
580 1.1 oki {
581 1.1 oki struct ite_softc *ip;
582 1.4 oki int unit = UNIT(dev);
583 1.4 oki
584 1.4 oki /* XXX check whether when call from grf.c */
585 1.12 minoura if (unit < 0 || unit >= ite_cd.cd_ndevs ||
586 1.12 minoura (ip = getitesp(unit)) == NULL)
587 1.4 oki return;
588 1.1 oki
589 1.1 oki ip->flags &= ~ITE_INITED;
590 1.1 oki iteinit(dev);
591 1.1 oki }
592 1.1 oki
593 1.49 isaki void
594 1.38 chs ite_reset(struct ite_softc *ip)
595 1.1 oki {
596 1.1 oki int i;
597 1.1 oki
598 1.1 oki ip->curx = 0;
599 1.1 oki ip->cury = 0;
600 1.1 oki ip->attribute = 0;
601 1.1 oki ip->save_curx = 0;
602 1.1 oki ip->save_cury = 0;
603 1.1 oki ip->save_attribute = 0;
604 1.1 oki ip->ap = ip->argbuf;
605 1.1 oki ip->emul_level = EMUL_VT300_8;
606 1.1 oki ip->eightbit_C1 = 0;
607 1.1 oki ip->top_margin = 0;
608 1.1 oki ip->bottom_margin = ip->rows - 1;
609 1.1 oki ip->inside_margins = 0; /* origin mode == absolute */
610 1.1 oki ip->linefeed_newline = 0;
611 1.1 oki ip->auto_wrap = 1;
612 1.1 oki ip->cursor_appmode = 0;
613 1.1 oki ip->keypad_appmode = 0;
614 1.1 oki ip->imode = 0;
615 1.1 oki ip->key_repeat = 1;
616 1.1 oki ip->G0 = CSET_ASCII;
617 1.1 oki ip->G1 = CSET_JIS1983;
618 1.1 oki ip->G2 = CSET_JISKANA;
619 1.1 oki ip->G3 = CSET_JIS1990;
620 1.1 oki ip->GL = &ip->G0;
621 1.1 oki ip->GR = &ip->G1;
622 1.1 oki ip->save_GL = 0;
623 1.1 oki ip->save_char = 0;
624 1.1 oki ip->fgcolor = 7;
625 1.1 oki ip->bgcolor = 0;
626 1.1 oki for (i = 0; i < ip->cols; i++)
627 1.1 oki ip->tabs[i] = ((i & 7) == 0);
628 1.1 oki /* XXX clear screen */
629 1.1 oki SUBR_CLEAR(ip, 0, 0, ip->rows, ip->cols);
630 1.1 oki attrclr(ip, 0, 0, ip->rows, ip->cols);
631 1.1 oki }
632 1.1 oki
633 1.1 oki /* Used in console at startup only */
634 1.1 oki int
635 1.49 isaki ite_cnfilter(u_char c)
636 1.1 oki {
637 1.1 oki static u_char mod = 0;
638 1.1 oki struct key key;
639 1.1 oki u_char code, up, mask;
640 1.16 minoura int s;
641 1.1 oki
642 1.1 oki up = c & 0x80 ? 1 : 0;
643 1.1 oki c &= 0x7f;
644 1.1 oki code = 0;
645 1.1 oki
646 1.1 oki s = spltty();
647 1.1 oki
648 1.1 oki mask = 0;
649 1.1 oki if (c >= KBD_LEFT_ALT && !(c >= 0x63 && c <= 0x6c)) { /* 0x63: F1, 0x6c:F10 */
650 1.1 oki switch (c) {
651 1.1 oki case KBD_LEFT_SHIFT:
652 1.1 oki mask = KBD_MOD_SHIFT;
653 1.1 oki break;
654 1.1 oki
655 1.1 oki case KBD_LEFT_ALT:
656 1.1 oki mask = KBD_MOD_LALT;
657 1.1 oki break;
658 1.1 oki
659 1.1 oki case KBD_RIGHT_ALT:
660 1.1 oki mask = KBD_MOD_RALT;
661 1.1 oki break;
662 1.1 oki
663 1.1 oki case KBD_LEFT_META:
664 1.1 oki mask = KBD_MOD_LMETA;
665 1.1 oki break;
666 1.1 oki
667 1.1 oki case KBD_RIGHT_META:
668 1.1 oki mask = KBD_MOD_RMETA;
669 1.1 oki break;
670 1.1 oki
671 1.49 isaki case KBD_CAPS_LOCK:
672 1.1 oki /*
673 1.1 oki * capslock already behaves `right', don't need to
674 1.1 oki * keep track of the state in here.
675 1.1 oki */
676 1.1 oki mask = KBD_MOD_CAPS;
677 1.1 oki break;
678 1.1 oki
679 1.1 oki case KBD_CTRL:
680 1.1 oki mask = KBD_MOD_CTRL;
681 1.1 oki break;
682 1.1 oki
683 1.1 oki case KBD_RECONNECT:
684 1.1 oki /* ite got 0xff */
685 1.1 oki if (up)
686 1.1 oki kbd_setLED();
687 1.1 oki break;
688 1.1 oki }
689 1.1 oki if (mask & KBD_MOD_CAPS) {
690 1.1 oki if (!up) {
691 1.1 oki mod ^= KBD_MOD_CAPS;
692 1.1 oki kbdled ^= LED_CAPS_LOCK;
693 1.1 oki kbd_setLED();
694 1.1 oki }
695 1.1 oki } else if (up)
696 1.1 oki mod &= ~mask;
697 1.1 oki else mod |= mask;
698 1.49 isaki splx(s);
699 1.1 oki return -1;
700 1.1 oki }
701 1.1 oki
702 1.1 oki if (up) {
703 1.1 oki splx(s);
704 1.1 oki return -1;
705 1.1 oki }
706 1.1 oki
707 1.1 oki /* translate modifiers */
708 1.1 oki if (mod & KBD_MOD_SHIFT) {
709 1.1 oki if (mod & KBD_MOD_ALT)
710 1.1 oki key = kbdmap.alt_shift_keys[c];
711 1.50 isaki else
712 1.1 oki key = kbdmap.shift_keys[c];
713 1.1 oki } else if (mod & KBD_MOD_ALT)
714 1.1 oki key = kbdmap.alt_keys[c];
715 1.1 oki else {
716 1.1 oki key = kbdmap.keys[c];
717 1.1 oki /* if CAPS and key is CAPable (no pun intended) */
718 1.1 oki if ((mod & KBD_MOD_CAPS) && (key.mode & KBD_MODE_CAPS))
719 1.1 oki key = kbdmap.shift_keys[c];
720 1.1 oki }
721 1.1 oki code = key.code;
722 1.1 oki
723 1.1 oki /* if string return */
724 1.1 oki if (key.mode & (KBD_MODE_STRING | KBD_MODE_KPAD)) {
725 1.1 oki splx(s);
726 1.1 oki return -1;
727 1.1 oki }
728 1.1 oki /* handle dead keys */
729 1.1 oki if (key.mode & KBD_MODE_DEAD) {
730 1.1 oki splx(s);
731 1.1 oki return -1;
732 1.1 oki }
733 1.1 oki if (mod & KBD_MOD_CTRL)
734 1.1 oki code &= 0x1f;
735 1.1 oki if (mod & KBD_MOD_META)
736 1.1 oki code |= 0x80;
737 1.1 oki
738 1.1 oki /* do console mapping. */
739 1.1 oki code = code == '\r' ? '\n' : code;
740 1.1 oki
741 1.1 oki splx(s);
742 1.1 oki return (code);
743 1.1 oki }
744 1.1 oki
745 1.1 oki /* And now the old stuff. */
746 1.49 isaki inline static void
747 1.38 chs itesendch(int ch)
748 1.1 oki {
749 1.24 minoura (*kbd_tty->t_linesw->l_rint)(ch, kbd_tty);
750 1.1 oki }
751 1.1 oki
752 1.1 oki
753 1.1 oki void
754 1.49 isaki ite_filter(u_char c)
755 1.1 oki {
756 1.1 oki static u_short mod = 0;
757 1.38 chs unsigned char code, *str;
758 1.1 oki u_short up, mask;
759 1.1 oki struct key key;
760 1.1 oki int s, i;
761 1.1 oki
762 1.44 thorpej if (!kbd_ite || !(kbd_tty = ite_tty[device_unit(&kbd_ite->device)]))
763 1.1 oki return;
764 1.1 oki
765 1.1 oki /* have to make sure we're at spltty in here */
766 1.49 isaki s = spltty();
767 1.1 oki
768 1.1 oki up = c & 0x80 ? 1 : 0;
769 1.1 oki c &= 0x7f;
770 1.1 oki code = 0;
771 1.50 isaki
772 1.1 oki mask = 0;
773 1.1 oki if (c >= KBD_LEFT_ALT &&
774 1.1 oki !(c >= 0x63 && c <= 0x6c)) { /* 0x63: F1, 0x6c:F10 */
775 1.1 oki switch (c) {
776 1.1 oki case KBD_LEFT_SHIFT:
777 1.1 oki mask = KBD_MOD_SHIFT;
778 1.1 oki break;
779 1.1 oki
780 1.1 oki case KBD_LEFT_ALT:
781 1.1 oki mask = KBD_MOD_LALT;
782 1.1 oki break;
783 1.49 isaki
784 1.1 oki case KBD_RIGHT_ALT:
785 1.1 oki mask = KBD_MOD_RALT;
786 1.1 oki break;
787 1.49 isaki
788 1.1 oki case KBD_LEFT_META:
789 1.1 oki mask = KBD_MOD_LMETA;
790 1.1 oki break;
791 1.1 oki
792 1.1 oki case KBD_RIGHT_META:
793 1.1 oki mask = KBD_MOD_RMETA;
794 1.1 oki break;
795 1.1 oki
796 1.1 oki case KBD_CAPS_LOCK:
797 1.1 oki /*
798 1.1 oki * capslock already behaves `right', don't need to keep
799 1.1 oki * track of the state in here.
800 1.1 oki */
801 1.1 oki mask = KBD_MOD_CAPS;
802 1.1 oki break;
803 1.1 oki
804 1.1 oki case KBD_CTRL:
805 1.1 oki mask = KBD_MOD_CTRL;
806 1.1 oki break;
807 1.1 oki
808 1.1 oki case KBD_OPT1:
809 1.1 oki mask = KBD_MOD_OPT1;
810 1.1 oki break;
811 1.1 oki
812 1.1 oki case KBD_OPT2:
813 1.1 oki mask = KBD_MOD_OPT2;
814 1.1 oki break;
815 1.1 oki
816 1.1 oki case KBD_RECONNECT:
817 1.1 oki if (up) { /* ite got 0xff */
818 1.1 oki kbd_setLED();
819 1.1 oki }
820 1.1 oki break;
821 1.1 oki }
822 1.1 oki
823 1.1 oki if (mask & KBD_MOD_CAPS) {
824 1.1 oki if (!up) {
825 1.1 oki mod ^= KBD_MOD_CAPS;
826 1.1 oki kbdled ^= LED_CAPS_LOCK;
827 1.1 oki kbd_setLED();
828 1.1 oki }
829 1.1 oki } else if (up) {
830 1.1 oki mod &= ~mask;
831 1.1 oki } else mod |= mask;
832 1.1 oki
833 1.1 oki /*
834 1.1 oki * return even if it wasn't a modifier key, the other
835 1.1 oki * codes up here are either special (like reset warning),
836 1.1 oki * or not yet defined
837 1.1 oki */
838 1.49 isaki splx(s);
839 1.1 oki return;
840 1.1 oki }
841 1.1 oki
842 1.1 oki if (up) {
843 1.49 isaki splx(s);
844 1.1 oki return;
845 1.1 oki }
846 1.1 oki
847 1.1 oki /*
848 1.1 oki * intercept LAlt-LMeta-F1 here to switch back to original ascii-keymap.
849 1.1 oki * this should probably be configurable..
850 1.1 oki */
851 1.16 minoura if (mod == (KBD_MOD_LALT|KBD_MOD_LMETA) && c == 0x63) {
852 1.27 wiz memcpy(&kbdmap, &ascii_kbdmap, sizeof(struct kbdmap));
853 1.49 isaki splx(s);
854 1.1 oki return;
855 1.1 oki }
856 1.1 oki
857 1.1 oki /* translate modifiers */
858 1.1 oki if (mod & KBD_MOD_SHIFT) {
859 1.1 oki if (mod & KBD_MOD_ALT)
860 1.1 oki key = kbdmap.alt_shift_keys[c];
861 1.50 isaki else
862 1.1 oki key = kbdmap.shift_keys[c];
863 1.1 oki } else if (mod & KBD_MOD_ALT)
864 1.1 oki key = kbdmap.alt_keys[c];
865 1.1 oki else {
866 1.1 oki key = kbdmap.keys[c];
867 1.1 oki /* if CAPS and key is CAPable (no pun intended) */
868 1.1 oki if ((mod & KBD_MOD_CAPS) && (key.mode & KBD_MODE_CAPS))
869 1.1 oki key = kbdmap.shift_keys[c];
870 1.1 oki else if ((mod & KBD_MOD_OPT2) && (key.mode & KBD_MODE_KPAD))
871 1.1 oki key = kbdmap.shift_keys[c];
872 1.1 oki }
873 1.1 oki code = key.code;
874 1.50 isaki
875 1.1 oki /* handle dead keys */
876 1.1 oki if (key.mode & KBD_MODE_DEAD) {
877 1.49 isaki splx(s);
878 1.1 oki return;
879 1.1 oki }
880 1.50 isaki /* if not string, apply META and CTRL modifiers */
881 1.50 isaki if (! (key.mode & KBD_MODE_STRING)
882 1.1 oki && (!(key.mode & KBD_MODE_KPAD) ||
883 1.1 oki (kbd_ite && !kbd_ite->keypad_appmode))) {
884 1.1 oki if ((mod & KBD_MOD_CTRL) &&
885 1.1 oki (code == ' ' || (code >= '@' && code <= 'z')))
886 1.1 oki code &= 0x1f;
887 1.1 oki if (mod & KBD_MOD_META)
888 1.1 oki code |= 0x80;
889 1.1 oki } else if ((key.mode & KBD_MODE_KPAD) &&
890 1.1 oki (kbd_ite && kbd_ite->keypad_appmode)) {
891 1.36 jdolecek static const char * const in = "0123456789-+.\r()/*";
892 1.36 jdolecek static const char * const out = "pqrstuvwxymlnMPQRS";
893 1.36 jdolecek char *cp = strchr(in, code);
894 1.1 oki
895 1.50 isaki /*
896 1.1 oki * keypad-appmode sends SS3 followed by the above
897 1.1 oki * translated character
898 1.1 oki */
899 1.49 isaki (*kbd_tty->t_linesw->l_rint)(27, kbd_tty);
900 1.49 isaki (*kbd_tty->t_linesw->l_rint)('O', kbd_tty);
901 1.49 isaki (*kbd_tty->t_linesw->l_rint)(out[cp - in], kbd_tty);
902 1.1 oki splx(s);
903 1.1 oki return;
904 1.1 oki } else {
905 1.1 oki /* *NO* I don't like this.... */
906 1.1 oki static u_char app_cursor[] =
907 1.1 oki {
908 1.1 oki 3, 27, 'O', 'A',
909 1.1 oki 3, 27, 'O', 'B',
910 1.1 oki 3, 27, 'O', 'C',
911 1.1 oki 3, 27, 'O', 'D'};
912 1.1 oki
913 1.1 oki str = kbdmap.strings + code;
914 1.50 isaki /*
915 1.1 oki * if this is a cursor key, AND it has the default
916 1.1 oki * keymap setting, AND we're in app-cursor mode, switch
917 1.1 oki * to the above table. This is *nasty* !
918 1.1 oki */
919 1.1 oki if (c >= 0x3b && c <= 0x3e && kbd_ite->cursor_appmode
920 1.27 wiz && !memcmp(str, "\x03\x1b[", 3) &&
921 1.36 jdolecek strchr("ABCD", str[3]))
922 1.1 oki str = app_cursor + 4 * (str[3] - 'A');
923 1.1 oki
924 1.50 isaki /*
925 1.1 oki * using a length-byte instead of 0-termination allows
926 1.1 oki * to embed \0 into strings, although this is not used
927 1.1 oki * in the default keymap
928 1.1 oki */
929 1.1 oki for (i = *str++; i; i--)
930 1.49 isaki (*kbd_tty->t_linesw->l_rint)(*str++, kbd_tty);
931 1.1 oki splx(s);
932 1.1 oki return;
933 1.1 oki }
934 1.24 minoura (*kbd_tty->t_linesw->l_rint)(code, kbd_tty);
935 1.1 oki
936 1.1 oki splx(s);
937 1.1 oki return;
938 1.1 oki }
939 1.1 oki
940 1.1 oki /* helper functions, makes the code below more readable */
941 1.49 isaki inline static void
942 1.40 he ite_sendstr(struct ite_softc *ip, const char *str)
943 1.1 oki {
944 1.1 oki while (*str)
945 1.49 isaki itesendch(*str++);
946 1.1 oki }
947 1.1 oki
948 1.49 isaki inline static void
949 1.38 chs alignment_display(struct ite_softc *ip)
950 1.1 oki {
951 1.1 oki int i, j;
952 1.1 oki
953 1.1 oki for (j = 0; j < ip->rows; j++)
954 1.1 oki for (i = 0; i < ip->cols; i++)
955 1.1 oki SUBR_PUTC(ip, 'E', j, i, ATTR_NOR);
956 1.1 oki attrclr(ip, 0, 0, ip->rows, ip->cols);
957 1.1 oki }
958 1.1 oki
959 1.49 isaki inline static void
960 1.38 chs snap_cury(struct ite_softc *ip)
961 1.1 oki {
962 1.1 oki if (ip->inside_margins) {
963 1.1 oki if (ip->cury < ip->top_margin)
964 1.1 oki ip->cury = ip->top_margin;
965 1.1 oki if (ip->cury > ip->bottom_margin)
966 1.1 oki ip->cury = ip->bottom_margin;
967 1.1 oki }
968 1.1 oki }
969 1.1 oki
970 1.49 isaki inline static void
971 1.38 chs ite_dnchar(struct ite_softc *ip, int n)
972 1.1 oki {
973 1.1 oki n = min(n, ip->cols - ip->curx);
974 1.1 oki if (n < ip->cols - ip->curx) {
975 1.1 oki SUBR_SCROLL(ip, ip->cury, ip->curx + n, n, SCROLL_LEFT);
976 1.1 oki attrmov(ip, ip->cury, ip->curx + n, ip->cury, ip->curx,
977 1.1 oki 1, ip->cols - ip->curx - n);
978 1.1 oki attrclr(ip, ip->cury, ip->cols - n, 1, n);
979 1.1 oki }
980 1.1 oki while (n-- > 0)
981 1.1 oki SUBR_PUTC(ip, ' ', ip->cury, ip->cols - n - 1, ATTR_NOR);
982 1.1 oki }
983 1.1 oki
984 1.49 isaki static void
985 1.38 chs ite_inchar(struct ite_softc *ip, int n)
986 1.1 oki {
987 1.1 oki int c = ip->save_char;
988 1.1 oki ip->save_char = 0;
989 1.1 oki n = min(n, ip->cols - ip->curx);
990 1.1 oki if (n < ip->cols - ip->curx) {
991 1.1 oki SUBR_SCROLL(ip, ip->cury, ip->curx, n, SCROLL_RIGHT);
992 1.1 oki attrmov(ip, ip->cury, ip->curx, ip->cury, ip->curx + n,
993 1.1 oki 1, ip->cols - ip->curx - n);
994 1.1 oki attrclr(ip, ip->cury, ip->curx, 1, n);
995 1.1 oki }
996 1.1 oki while (n--)
997 1.1 oki SUBR_PUTC(ip, ' ', ip->cury, ip->curx + n, ATTR_NOR);
998 1.1 oki ip->save_char = c;
999 1.1 oki }
1000 1.1 oki
1001 1.49 isaki inline static void
1002 1.38 chs ite_clrtoeol(struct ite_softc *ip)
1003 1.1 oki {
1004 1.1 oki int y = ip->cury, x = ip->curx;
1005 1.1 oki if (ip->cols - x > 0) {
1006 1.1 oki SUBR_CLEAR(ip, y, x, 1, ip->cols - x);
1007 1.1 oki attrclr(ip, y, x, 1, ip->cols - x);
1008 1.1 oki }
1009 1.1 oki }
1010 1.1 oki
1011 1.49 isaki inline static void
1012 1.38 chs ite_clrtobol(struct ite_softc *ip)
1013 1.1 oki {
1014 1.1 oki int y = ip->cury, x = min(ip->curx + 1, ip->cols);
1015 1.1 oki SUBR_CLEAR(ip, y, 0, 1, x);
1016 1.1 oki attrclr(ip, y, 0, 1, x);
1017 1.1 oki }
1018 1.1 oki
1019 1.49 isaki inline static void
1020 1.38 chs ite_clrline(struct ite_softc *ip)
1021 1.1 oki {
1022 1.1 oki int y = ip->cury;
1023 1.1 oki SUBR_CLEAR(ip, y, 0, 1, ip->cols);
1024 1.1 oki attrclr(ip, y, 0, 1, ip->cols);
1025 1.1 oki }
1026 1.1 oki
1027 1.49 isaki inline static void
1028 1.38 chs ite_clrtoeos(struct ite_softc *ip)
1029 1.1 oki {
1030 1.1 oki ite_clrtoeol(ip);
1031 1.1 oki if (ip->cury < ip->rows - 1) {
1032 1.1 oki SUBR_CLEAR(ip, ip->cury + 1, 0, ip->rows - 1 - ip->cury, ip->cols);
1033 1.1 oki attrclr(ip, ip->cury, 0, ip->rows - ip->cury, ip->cols);
1034 1.1 oki }
1035 1.1 oki }
1036 1.1 oki
1037 1.49 isaki inline static void
1038 1.38 chs ite_clrtobos(struct ite_softc *ip)
1039 1.1 oki {
1040 1.1 oki ite_clrtobol(ip);
1041 1.1 oki if (ip->cury > 0) {
1042 1.1 oki SUBR_CLEAR(ip, 0, 0, ip->cury, ip->cols);
1043 1.1 oki attrclr(ip, 0, 0, ip->cury, ip->cols);
1044 1.1 oki }
1045 1.1 oki }
1046 1.1 oki
1047 1.49 isaki inline static void
1048 1.38 chs ite_clrscreen(struct ite_softc *ip)
1049 1.1 oki {
1050 1.1 oki SUBR_CLEAR(ip, 0, 0, ip->rows, ip->cols);
1051 1.1 oki attrclr(ip, 0, 0, ip->rows, ip->cols);
1052 1.1 oki }
1053 1.1 oki
1054 1.1 oki
1055 1.1 oki
1056 1.49 isaki inline static void
1057 1.38 chs ite_dnline(struct ite_softc *ip, int n)
1058 1.1 oki {
1059 1.1 oki /*
1060 1.1 oki * interesting.. if the cursor is outside the scrolling
1061 1.1 oki * region, this command is simply ignored..
1062 1.1 oki */
1063 1.1 oki if (ip->cury < ip->top_margin || ip->cury > ip->bottom_margin)
1064 1.1 oki return;
1065 1.1 oki
1066 1.1 oki n = min(n, ip->bottom_margin + 1 - ip->cury);
1067 1.1 oki if (n <= ip->bottom_margin - ip->cury) {
1068 1.1 oki SUBR_SCROLL(ip, ip->cury + n, 0, n, SCROLL_UP);
1069 1.1 oki attrmov(ip, ip->cury + n, 0, ip->cury, 0,
1070 1.1 oki ip->bottom_margin + 1 - ip->cury - n, ip->cols);
1071 1.1 oki }
1072 1.1 oki SUBR_CLEAR(ip, ip->bottom_margin - n + 1, 0, n, ip->cols);
1073 1.1 oki attrclr(ip, ip->bottom_margin - n + 1, 0, n, ip->cols);
1074 1.1 oki }
1075 1.1 oki
1076 1.49 isaki inline static void
1077 1.38 chs ite_inline(struct ite_softc *ip, int n)
1078 1.1 oki {
1079 1.1 oki /*
1080 1.1 oki * interesting.. if the cursor is outside the scrolling
1081 1.1 oki * region, this command is simply ignored..
1082 1.1 oki */
1083 1.1 oki if (ip->cury < ip->top_margin || ip->cury > ip->bottom_margin)
1084 1.1 oki return;
1085 1.1 oki
1086 1.1 oki if (n <= 0)
1087 1.1 oki n = 1;
1088 1.1 oki else n = min(n, ip->bottom_margin + 1 - ip->cury);
1089 1.1 oki if (n <= ip->bottom_margin - ip->cury) {
1090 1.1 oki SUBR_SCROLL(ip, ip->cury, 0, n, SCROLL_DOWN);
1091 1.1 oki attrmov(ip, ip->cury, 0, ip->cury + n, 0,
1092 1.1 oki ip->bottom_margin + 1 - ip->cury - n, ip->cols);
1093 1.1 oki }
1094 1.1 oki SUBR_CLEAR(ip, ip->cury, 0, n, ip->cols);
1095 1.1 oki attrclr(ip, ip->cury, 0, n, ip->cols);
1096 1.1 oki ip->curx = 0;
1097 1.1 oki }
1098 1.1 oki
1099 1.49 isaki inline static void
1100 1.38 chs ite_index(struct ite_softc *ip)
1101 1.1 oki {
1102 1.1 oki ++ip->cury;
1103 1.1 oki if ((ip->cury == ip->bottom_margin+1) || (ip->cury == ip->rows)) {
1104 1.1 oki ip->cury--;
1105 1.1 oki SUBR_SCROLL(ip, ip->top_margin + 1, 0, 1, SCROLL_UP);
1106 1.1 oki ite_clrline(ip);
1107 1.1 oki }
1108 1.1 oki /*clr_attr(ip, ATTR_INV);*/
1109 1.1 oki }
1110 1.1 oki
1111 1.49 isaki inline static void
1112 1.38 chs ite_lf(struct ite_softc *ip)
1113 1.1 oki {
1114 1.1 oki ++ip->cury;
1115 1.1 oki if (ip->cury > ip->bottom_margin) {
1116 1.1 oki ip->cury--;
1117 1.1 oki SUBR_SCROLL(ip, ip->top_margin + 1, 0, 1, SCROLL_UP);
1118 1.1 oki ite_clrline(ip);
1119 1.1 oki }
1120 1.1 oki /* SUBR_CURSOR(ip, MOVE_CURSOR);*/
1121 1.1 oki /*clr_attr(ip, ATTR_INV);*/
1122 1.1 oki /* reset character set ... thanks for mohta. */
1123 1.1 oki ip->G0 = CSET_ASCII;
1124 1.1 oki ip->G1 = CSET_JIS1983;
1125 1.1 oki ip->G2 = CSET_JISKANA;
1126 1.1 oki ip->G3 = CSET_JIS1990;
1127 1.1 oki ip->GL = &ip->G0;
1128 1.1 oki ip->GR = &ip->G1;
1129 1.1 oki ip->save_GL = 0;
1130 1.1 oki ip->save_char = 0;
1131 1.1 oki }
1132 1.1 oki
1133 1.49 isaki inline static void
1134 1.38 chs ite_crlf(struct ite_softc *ip)
1135 1.1 oki {
1136 1.1 oki ip->curx = 0;
1137 1.1 oki ite_lf (ip);
1138 1.1 oki }
1139 1.1 oki
1140 1.49 isaki inline static void
1141 1.38 chs ite_cr(struct ite_softc *ip)
1142 1.1 oki {
1143 1.1 oki if (ip->curx) {
1144 1.1 oki ip->curx = 0;
1145 1.1 oki }
1146 1.1 oki }
1147 1.1 oki
1148 1.49 isaki inline static void
1149 1.38 chs ite_rlf(struct ite_softc *ip)
1150 1.1 oki {
1151 1.1 oki ip->cury--;
1152 1.1 oki if ((ip->cury < 0) || (ip->cury == ip->top_margin - 1)) {
1153 1.1 oki ip->cury++;
1154 1.1 oki SUBR_SCROLL(ip, ip->top_margin, 0, 1, SCROLL_DOWN);
1155 1.1 oki ite_clrline(ip);
1156 1.1 oki }
1157 1.1 oki clr_attr(ip, ATTR_INV);
1158 1.1 oki }
1159 1.1 oki
1160 1.49 isaki inline static int
1161 1.38 chs atoi(const char *cp)
1162 1.1 oki {
1163 1.1 oki int n;
1164 1.1 oki
1165 1.1 oki for (n = 0; *cp && *cp >= '0' && *cp <= '9'; cp++)
1166 1.1 oki n = n * 10 + *cp - '0';
1167 1.1 oki return n;
1168 1.1 oki }
1169 1.1 oki
1170 1.49 isaki inline static int
1171 1.38 chs ite_argnum(struct ite_softc *ip)
1172 1.1 oki {
1173 1.1 oki char ch;
1174 1.1 oki int n;
1175 1.1 oki
1176 1.1 oki /* convert argument string into number */
1177 1.1 oki if (ip->ap == ip->argbuf)
1178 1.1 oki return 1;
1179 1.1 oki ch = *ip->ap;
1180 1.1 oki *ip->ap = 0;
1181 1.49 isaki n = atoi(ip->argbuf);
1182 1.1 oki *ip->ap = ch;
1183 1.1 oki
1184 1.1 oki return n;
1185 1.1 oki }
1186 1.1 oki
1187 1.49 isaki inline static int
1188 1.38 chs ite_zargnum(struct ite_softc *ip)
1189 1.1 oki {
1190 1.1 oki char ch;
1191 1.1 oki int n;
1192 1.1 oki
1193 1.1 oki /* convert argument string into number */
1194 1.1 oki if (ip->ap == ip->argbuf)
1195 1.1 oki return 0;
1196 1.1 oki ch = *ip->ap;
1197 1.1 oki *ip->ap = 0; /* terminate string */
1198 1.49 isaki n = atoi(ip->argbuf);
1199 1.1 oki *ip->ap = ch;
1200 1.50 isaki
1201 1.1 oki return n; /* don't "n ? n : 1" here, <CSI>0m != <CSI>1m ! */
1202 1.1 oki }
1203 1.1 oki
1204 1.1 oki void
1205 1.49 isaki ite_putstr(const u_char *s, int len, dev_t dev)
1206 1.1 oki {
1207 1.1 oki struct ite_softc *ip;
1208 1.1 oki int i;
1209 1.1 oki
1210 1.1 oki ip = getitesp(dev);
1211 1.1 oki
1212 1.1 oki /* XXX avoid problems */
1213 1.1 oki if ((ip->flags & (ITE_ACTIVE|ITE_INGRF)) != ITE_ACTIVE)
1214 1.1 oki return;
1215 1.1 oki
1216 1.1 oki SUBR_CURSOR(ip, START_CURSOROPT);
1217 1.1 oki for (i = 0; i < len; i++)
1218 1.1 oki if (s[i])
1219 1.1 oki iteputchar(s[i], ip);
1220 1.1 oki SUBR_CURSOR(ip, END_CURSOROPT);
1221 1.1 oki }
1222 1.1 oki
1223 1.49 isaki void
1224 1.38 chs iteputchar(int c, struct ite_softc *ip)
1225 1.1 oki {
1226 1.1 oki int n, x, y;
1227 1.1 oki char *cp;
1228 1.1 oki
1229 1.1 oki if (c >= 0x20 && ip->escape) {
1230 1.1 oki switch (ip->escape) {
1231 1.1 oki
1232 1.1 oki case ESC:
1233 1.1 oki switch (c) {
1234 1.1 oki /* first 7bit equivalents for the 8bit control characters */
1235 1.50 isaki
1236 1.1 oki case 'D':
1237 1.1 oki c = IND;
1238 1.1 oki ip->escape = 0;
1239 1.1 oki break; /* and fall into the next switch below (same for all `break') */
1240 1.1 oki
1241 1.1 oki case 'E':
1242 1.1 oki /* next line */
1243 1.1 oki c = NEL;
1244 1.1 oki ip->escape = 0;
1245 1.1 oki break;
1246 1.1 oki
1247 1.1 oki case 'H':
1248 1.1 oki /* set TAB at current col */
1249 1.1 oki c = HTS;
1250 1.1 oki ip->escape = 0;
1251 1.1 oki break;
1252 1.1 oki
1253 1.1 oki case 'M':
1254 1.1 oki /* reverse index */
1255 1.1 oki c = RI;
1256 1.1 oki ip->escape = 0;
1257 1.1 oki break;
1258 1.1 oki
1259 1.1 oki case 'N':
1260 1.1 oki /* single shift G2 */
1261 1.1 oki c = SS2;
1262 1.1 oki ip->escape = 0;
1263 1.1 oki break;
1264 1.1 oki
1265 1.1 oki case 'O':
1266 1.1 oki /* single shift G3 */
1267 1.1 oki c = SS3;
1268 1.1 oki ip->escape = 0;
1269 1.1 oki break;
1270 1.1 oki
1271 1.1 oki case 'P':
1272 1.1 oki /* DCS detected */
1273 1.1 oki c = DCS;
1274 1.1 oki ip->escape = 0;
1275 1.1 oki break;
1276 1.1 oki
1277 1.1 oki case '[':
1278 1.1 oki c = CSI;
1279 1.1 oki ip->escape = 0;
1280 1.1 oki break;
1281 1.1 oki
1282 1.1 oki case '\\':
1283 1.1 oki /* String Terminator */
1284 1.1 oki c = ST;
1285 1.1 oki ip->escape = 0;
1286 1.1 oki break;
1287 1.1 oki
1288 1.1 oki case ']':
1289 1.1 oki c = OSC;
1290 1.1 oki ip->escape = 0;
1291 1.1 oki break;
1292 1.1 oki
1293 1.1 oki case '^':
1294 1.1 oki c = PM;
1295 1.1 oki ip->escape = 0;
1296 1.1 oki break;
1297 1.1 oki
1298 1.1 oki case '_':
1299 1.1 oki c = APC;
1300 1.1 oki ip->escape = 0;
1301 1.1 oki break;
1302 1.1 oki
1303 1.1 oki
1304 1.1 oki /* introduces 7/8bit control */
1305 1.1 oki case ' ':
1306 1.1 oki /* can be followed by either F or G */
1307 1.1 oki ip->escape = ' ';
1308 1.1 oki break;
1309 1.1 oki
1310 1.1 oki
1311 1.50 isaki /* a lot of character set selections, not yet used...
1312 1.1 oki 94-character sets: */
1313 1.1 oki case '(': /* G0 */
1314 1.1 oki case ')': /* G1 */
1315 1.1 oki ip->escape = c;
1316 1.1 oki return;
1317 1.1 oki
1318 1.1 oki case '*': /* G2 */
1319 1.1 oki case '+': /* G3 */
1320 1.1 oki case 'B': /* ASCII */
1321 1.1 oki case 'A': /* ISO latin 1 */
1322 1.1 oki case '<': /* user preferred suplemental */
1323 1.1 oki case '0': /* dec special graphics */
1324 1.1 oki
1325 1.1 oki /* 96-character sets: */
1326 1.1 oki case '-': /* G1 */
1327 1.1 oki case '.': /* G2 */
1328 1.1 oki case '/': /* G3 */
1329 1.1 oki
1330 1.1 oki /* national character sets: */
1331 1.1 oki case '4': /* dutch */
1332 1.1 oki case '5':
1333 1.1 oki case 'C': /* finnish */
1334 1.1 oki case 'R': /* french */
1335 1.1 oki case 'Q': /* french canadian */
1336 1.1 oki case 'K': /* german */
1337 1.1 oki case 'Y': /* italian */
1338 1.1 oki case '6': /* norwegian/danish */
1339 1.1 oki /* note: %5 and %6 are not supported (two chars..) */
1340 1.1 oki
1341 1.1 oki ip->escape = 0;
1342 1.1 oki /* just ignore for now */
1343 1.1 oki return;
1344 1.1 oki
1345 1.1 oki /* 94-multibyte character sets designate */
1346 1.1 oki case '$':
1347 1.1 oki ip->escape = '$';
1348 1.1 oki return;
1349 1.1 oki
1350 1.1 oki /* locking shift modes */
1351 1.1 oki case '`':
1352 1.1 oki ip->GR = &ip->G1;
1353 1.1 oki ip->escape = 0;
1354 1.1 oki return;
1355 1.1 oki
1356 1.1 oki case 'n':
1357 1.1 oki ip->GL = &ip->G2;
1358 1.1 oki ip->escape = 0;
1359 1.1 oki return;
1360 1.1 oki
1361 1.1 oki case '}':
1362 1.1 oki ip->GR = &ip->G2;
1363 1.1 oki ip->escape = 0;
1364 1.1 oki return;
1365 1.1 oki
1366 1.1 oki case 'o':
1367 1.1 oki ip->GL = &ip->G3;
1368 1.1 oki ip->escape = 0;
1369 1.1 oki return;
1370 1.1 oki
1371 1.1 oki case '|':
1372 1.1 oki ip->GR = &ip->G3;
1373 1.1 oki ip->escape = 0;
1374 1.1 oki return;
1375 1.1 oki
1376 1.1 oki case '~':
1377 1.1 oki ip->GR = &ip->G1;
1378 1.1 oki ip->escape = 0;
1379 1.1 oki return;
1380 1.1 oki
1381 1.1 oki /* font width/height control */
1382 1.1 oki case '#':
1383 1.1 oki ip->escape = '#';
1384 1.1 oki return;
1385 1.1 oki
1386 1.1 oki case 'c':
1387 1.1 oki /* hard terminal reset .. */
1388 1.49 isaki ite_reset(ip);
1389 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1390 1.1 oki ip->escape = 0;
1391 1.1 oki return;
1392 1.1 oki
1393 1.1 oki
1394 1.1 oki case '7':
1395 1.1 oki /* save cursor */
1396 1.1 oki ip->save_curx = ip->curx;
1397 1.1 oki ip->save_cury = ip->cury;
1398 1.1 oki ip->save_attribute = ip->attribute;
1399 1.1 oki ip->sc_om = ip->inside_margins;
1400 1.1 oki ip->sc_G0 = ip->G0;
1401 1.1 oki ip->sc_G1 = ip->G1;
1402 1.1 oki ip->sc_G2 = ip->G2;
1403 1.1 oki ip->sc_G3 = ip->G3;
1404 1.1 oki ip->sc_GL = ip->GL;
1405 1.1 oki ip->sc_GR = ip->GR;
1406 1.1 oki ip->escape = 0;
1407 1.1 oki return;
1408 1.1 oki
1409 1.1 oki case '8':
1410 1.1 oki /* restore cursor */
1411 1.1 oki ip->curx = ip->save_curx;
1412 1.1 oki ip->cury = ip->save_cury;
1413 1.1 oki ip->attribute = ip->save_attribute;
1414 1.1 oki ip->inside_margins = ip->sc_om;
1415 1.1 oki ip->G0 = ip->sc_G0;
1416 1.1 oki ip->G1 = ip->sc_G1;
1417 1.1 oki ip->G2 = ip->sc_G2;
1418 1.1 oki ip->G3 = ip->sc_G3;
1419 1.1 oki ip->GL = ip->sc_GL;
1420 1.1 oki ip->GR = ip->sc_GR;
1421 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1422 1.1 oki ip->escape = 0;
1423 1.1 oki return;
1424 1.1 oki
1425 1.1 oki case '=':
1426 1.1 oki /* keypad application mode */
1427 1.1 oki ip->keypad_appmode = 1;
1428 1.1 oki ip->escape = 0;
1429 1.1 oki return;
1430 1.1 oki
1431 1.1 oki case '>':
1432 1.1 oki /* keypad numeric mode */
1433 1.1 oki ip->keypad_appmode = 0;
1434 1.1 oki ip->escape = 0;
1435 1.1 oki return;
1436 1.1 oki
1437 1.1 oki case 'Z': /* request ID */
1438 1.1 oki if (ip->emul_level == EMUL_VT100)
1439 1.49 isaki ite_sendstr(ip, "\033[61;0c"); /* XXX not clean */
1440 1.1 oki else
1441 1.49 isaki ite_sendstr(ip, "\033[63;0c"); /* XXX not clean */
1442 1.1 oki ip->escape = 0;
1443 1.1 oki return;
1444 1.1 oki
1445 1.1 oki /* default catch all for not recognized ESC sequences */
1446 1.1 oki default:
1447 1.1 oki ip->escape = 0;
1448 1.1 oki return;
1449 1.1 oki }
1450 1.1 oki break;
1451 1.1 oki
1452 1.1 oki
1453 1.1 oki case '(': /* designate G0 */
1454 1.1 oki switch (c) {
1455 1.1 oki case 'B': /* USASCII */
1456 1.1 oki ip->G0 = CSET_ASCII;
1457 1.1 oki ip->escape = 0;
1458 1.1 oki return;
1459 1.1 oki case 'I':
1460 1.1 oki ip->G0 = CSET_JISKANA;
1461 1.1 oki ip->escape = 0;
1462 1.1 oki return;
1463 1.1 oki case 'J':
1464 1.1 oki ip->G0 = CSET_JISROMA;
1465 1.1 oki ip->escape = 0;
1466 1.1 oki return;
1467 1.1 oki case 'A': /* British or ISO-Latin-1 */
1468 1.1 oki case 'H': /* Swedish */
1469 1.1 oki case 'K': /* German */
1470 1.1 oki case 'R': /* French */
1471 1.1 oki case 'Y': /* Italian */
1472 1.1 oki case 'Z': /* Spanish */
1473 1.1 oki default:
1474 1.1 oki /* not supported */
1475 1.1 oki ip->escape = 0;
1476 1.1 oki return;
1477 1.1 oki }
1478 1.1 oki
1479 1.1 oki case ')': /* designate G1 */
1480 1.1 oki ip->escape = 0;
1481 1.1 oki return;
1482 1.1 oki
1483 1.1 oki case '$': /* 94-multibyte character set */
1484 1.1 oki switch (c) {
1485 1.1 oki case '@':
1486 1.1 oki ip->G0 = CSET_JIS1978;
1487 1.1 oki ip->escape = 0;
1488 1.1 oki return;
1489 1.1 oki case 'B':
1490 1.1 oki ip->G0 = CSET_JIS1983;
1491 1.1 oki ip->escape = 0;
1492 1.1 oki return;
1493 1.1 oki case 'D':
1494 1.1 oki ip->G0 = CSET_JIS1990;
1495 1.1 oki ip->escape = 0;
1496 1.1 oki return;
1497 1.1 oki default:
1498 1.1 oki /* not supported */
1499 1.1 oki ip->escape = 0;
1500 1.1 oki return;
1501 1.1 oki }
1502 1.1 oki
1503 1.1 oki case ' ':
1504 1.1 oki switch (c) {
1505 1.1 oki case 'F':
1506 1.1 oki ip->eightbit_C1 = 0;
1507 1.1 oki ip->escape = 0;
1508 1.1 oki return;
1509 1.1 oki
1510 1.1 oki case 'G':
1511 1.1 oki ip->eightbit_C1 = 1;
1512 1.1 oki ip->escape = 0;
1513 1.1 oki return;
1514 1.1 oki
1515 1.1 oki default:
1516 1.1 oki /* not supported */
1517 1.1 oki ip->escape = 0;
1518 1.1 oki return;
1519 1.1 oki }
1520 1.1 oki break;
1521 1.1 oki
1522 1.1 oki case '#':
1523 1.1 oki switch (c) {
1524 1.1 oki case '5':
1525 1.1 oki /* single height, single width */
1526 1.1 oki ip->escape = 0;
1527 1.1 oki return;
1528 1.1 oki
1529 1.1 oki case '6':
1530 1.1 oki /* double width, single height */
1531 1.1 oki ip->escape = 0;
1532 1.1 oki return;
1533 1.1 oki
1534 1.1 oki case '3':
1535 1.1 oki /* top half */
1536 1.1 oki ip->escape = 0;
1537 1.1 oki return;
1538 1.1 oki
1539 1.1 oki case '4':
1540 1.1 oki /* bottom half */
1541 1.1 oki ip->escape = 0;
1542 1.1 oki return;
1543 1.1 oki
1544 1.1 oki case '8':
1545 1.1 oki /* screen alignment pattern... */
1546 1.49 isaki alignment_display(ip);
1547 1.1 oki ip->escape = 0;
1548 1.1 oki return;
1549 1.1 oki
1550 1.1 oki default:
1551 1.1 oki ip->escape = 0;
1552 1.1 oki return;
1553 1.1 oki }
1554 1.1 oki break;
1555 1.1 oki
1556 1.1 oki
1557 1.1 oki
1558 1.1 oki case CSI:
1559 1.1 oki /* the biggie... */
1560 1.1 oki switch (c) {
1561 1.1 oki case '0': case '1': case '2': case '3': case '4':
1562 1.1 oki case '5': case '6': case '7': case '8': case '9':
1563 1.1 oki case ';': case '\"': case '$': case '>':
1564 1.1 oki if (ip->ap < ip->argbuf + MAX_ARGSIZE)
1565 1.1 oki *ip->ap++ = c;
1566 1.1 oki return;
1567 1.1 oki
1568 1.1 oki case 'p':
1569 1.1 oki *ip->ap = 0;
1570 1.1 oki if (!strncmp(ip->argbuf, "61\"", 3))
1571 1.1 oki ip->emul_level = EMUL_VT100;
1572 1.1 oki else if (!strncmp(ip->argbuf, "63;1\"", 5)
1573 1.1 oki || !strncmp(ip->argbuf, "62;1\"", 5))
1574 1.1 oki ip->emul_level = EMUL_VT300_7;
1575 1.1 oki else
1576 1.1 oki ip->emul_level = EMUL_VT300_8;
1577 1.1 oki ip->escape = 0;
1578 1.1 oki return;
1579 1.1 oki
1580 1.1 oki
1581 1.1 oki case '?':
1582 1.1 oki *ip->ap = 0;
1583 1.1 oki ip->escape = '?';
1584 1.1 oki ip->ap = ip->argbuf;
1585 1.1 oki return;
1586 1.1 oki
1587 1.1 oki
1588 1.1 oki case 'c':
1589 1.1 oki /* device attributes */
1590 1.1 oki *ip->ap = 0;
1591 1.1 oki if (ip->argbuf[0] == '>') {
1592 1.49 isaki ite_sendstr(ip, "\033[>24;0;0;0c");
1593 1.1 oki } else
1594 1.1 oki switch (ite_zargnum(ip)) {
1595 1.1 oki case 0:
1596 1.1 oki /* primary DA request, send primary DA response */
1597 1.1 oki if (ip->emul_level == EMUL_VT100)
1598 1.49 isaki ite_sendstr(ip, "\033[?1;1c");
1599 1.1 oki else
1600 1.49 isaki ite_sendstr(ip, "\033[63;0c");
1601 1.1 oki break;
1602 1.1 oki }
1603 1.1 oki ip->escape = 0;
1604 1.1 oki return;
1605 1.1 oki
1606 1.1 oki case 'n':
1607 1.1 oki switch (ite_zargnum(ip)) {
1608 1.1 oki case 5:
1609 1.49 isaki ite_sendstr(ip, "\033[0n"); /* no malfunction */
1610 1.1 oki break;
1611 1.1 oki case 6:
1612 1.1 oki /* cursor position report */
1613 1.50 isaki sprintf(ip->argbuf, "\033[%d;%dR",
1614 1.1 oki ip->cury + 1, ip->curx + 1);
1615 1.49 isaki ite_sendstr(ip, ip->argbuf);
1616 1.1 oki break;
1617 1.1 oki }
1618 1.1 oki ip->escape = 0;
1619 1.1 oki return;
1620 1.1 oki
1621 1.1 oki
1622 1.1 oki case 'x':
1623 1.1 oki switch (ite_zargnum(ip)) {
1624 1.1 oki case 0:
1625 1.1 oki /* Fake some terminal parameters. */
1626 1.49 isaki ite_sendstr(ip, "\033[2;1;1;112;112;1;0x");
1627 1.1 oki break;
1628 1.1 oki case 1:
1629 1.49 isaki ite_sendstr(ip, "\033[3;1;1;112;112;1;0x");
1630 1.1 oki break;
1631 1.1 oki }
1632 1.1 oki ip->escape = 0;
1633 1.1 oki return;
1634 1.1 oki
1635 1.1 oki
1636 1.1 oki case 'g':
1637 1.1 oki /* clear tabs */
1638 1.1 oki switch (ite_zargnum(ip)) {
1639 1.1 oki case 0:
1640 1.1 oki if (ip->curx < ip->cols)
1641 1.1 oki ip->tabs[ip->curx] = 0;
1642 1.1 oki break;
1643 1.1 oki case 3:
1644 1.1 oki for (n = 0; n < ip->cols; n++)
1645 1.1 oki ip->tabs[n] = 0;
1646 1.1 oki break;
1647 1.1 oki
1648 1.1 oki default:
1649 1.1 oki /* ignore */
1650 1.1 oki break;
1651 1.1 oki }
1652 1.1 oki ip->escape = 0;
1653 1.1 oki return;
1654 1.1 oki
1655 1.1 oki
1656 1.1 oki case 'h': /* set mode */
1657 1.1 oki case 'l': /* reset mode */
1658 1.49 isaki n = ite_zargnum(ip);
1659 1.1 oki switch (n) {
1660 1.1 oki case 4:
1661 1.1 oki ip->imode = (c == 'h'); /* insert/replace mode */
1662 1.1 oki break;
1663 1.1 oki case 20:
1664 1.1 oki ip->linefeed_newline = (c == 'h');
1665 1.1 oki break;
1666 1.1 oki }
1667 1.1 oki ip->escape = 0;
1668 1.1 oki return;
1669 1.1 oki
1670 1.1 oki
1671 1.1 oki case 'M':
1672 1.1 oki /* delete line */
1673 1.49 isaki ite_dnline(ip, ite_argnum(ip));
1674 1.1 oki ip->escape = 0;
1675 1.1 oki return;
1676 1.1 oki
1677 1.1 oki
1678 1.1 oki case 'L':
1679 1.1 oki /* insert line */
1680 1.49 isaki ite_inline(ip, ite_argnum(ip));
1681 1.1 oki ip->escape = 0;
1682 1.1 oki return;
1683 1.1 oki
1684 1.1 oki
1685 1.1 oki case 'P':
1686 1.1 oki /* delete char */
1687 1.49 isaki ite_dnchar(ip, ite_argnum(ip));
1688 1.1 oki ip->escape = 0;
1689 1.1 oki return;
1690 1.1 oki
1691 1.1 oki
1692 1.1 oki case '@':
1693 1.1 oki /* insert char(s) */
1694 1.49 isaki ite_inchar(ip, ite_argnum(ip));
1695 1.1 oki ip->escape = 0;
1696 1.1 oki return;
1697 1.1 oki
1698 1.1 oki case '!':
1699 1.1 oki /* soft terminal reset */
1700 1.1 oki ip->escape = 0; /* XXX */
1701 1.1 oki return;
1702 1.1 oki
1703 1.1 oki case 'G':
1704 1.50 isaki /* this one was *not* in my vt320 manual but in
1705 1.1 oki a vt320 termcap entry.. who is right?
1706 1.1 oki It's supposed to set the horizontal cursor position. */
1707 1.1 oki *ip->ap = 0;
1708 1.49 isaki x = atoi(ip->argbuf);
1709 1.49 isaki if (x)
1710 1.49 isaki x--;
1711 1.1 oki ip->curx = min(x, ip->cols - 1);
1712 1.1 oki ip->escape = 0;
1713 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1714 1.49 isaki clr_attr(ip, ATTR_INV);
1715 1.1 oki return;
1716 1.1 oki
1717 1.1 oki
1718 1.1 oki case 'd':
1719 1.1 oki /* same thing here, this one's for setting the absolute
1720 1.1 oki vertical cursor position. Not documented... */
1721 1.1 oki *ip->ap = 0;
1722 1.49 isaki y = atoi(ip->argbuf);
1723 1.49 isaki if (y)
1724 1.49 isaki y--;
1725 1.1 oki if (ip->inside_margins)
1726 1.1 oki y += ip->top_margin;
1727 1.1 oki ip->cury = min(y, ip->rows - 1);
1728 1.1 oki ip->escape = 0;
1729 1.1 oki snap_cury(ip);
1730 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1731 1.49 isaki clr_attr(ip, ATTR_INV);
1732 1.1 oki return;
1733 1.1 oki
1734 1.1 oki
1735 1.1 oki case 'H':
1736 1.1 oki case 'f':
1737 1.1 oki *ip->ap = 0;
1738 1.49 isaki y = atoi(ip->argbuf);
1739 1.1 oki x = 0;
1740 1.36 jdolecek cp = strchr(ip->argbuf, ';');
1741 1.1 oki if (cp)
1742 1.49 isaki x = atoi(cp + 1);
1743 1.49 isaki if (x)
1744 1.49 isaki x--;
1745 1.49 isaki if (y)
1746 1.49 isaki y--;
1747 1.1 oki if (ip->inside_margins)
1748 1.1 oki y += ip->top_margin;
1749 1.1 oki ip->cury = min(y, ip->rows - 1);
1750 1.1 oki ip->curx = min(x, ip->cols - 1);
1751 1.1 oki ip->escape = 0;
1752 1.1 oki snap_cury(ip);
1753 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1754 1.49 isaki /*clr_attr(ip, ATTR_INV);*/
1755 1.1 oki return;
1756 1.1 oki
1757 1.1 oki case 'A':
1758 1.1 oki /* cursor up */
1759 1.49 isaki n = ite_argnum(ip);
1760 1.1 oki n = ip->cury - (n ? n : 1);
1761 1.49 isaki if (n < 0)
1762 1.49 isaki n = 0;
1763 1.1 oki if (ip->inside_margins)
1764 1.1 oki n = max(ip->top_margin, n);
1765 1.1 oki else if (n == ip->top_margin - 1)
1766 1.1 oki /* allow scrolling outside region, but don't scroll out
1767 1.1 oki of active region without explicit CUP */
1768 1.1 oki n = ip->top_margin;
1769 1.1 oki ip->cury = n;
1770 1.1 oki ip->escape = 0;
1771 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1772 1.49 isaki clr_attr(ip, ATTR_INV);
1773 1.1 oki return;
1774 1.1 oki
1775 1.1 oki case 'B':
1776 1.1 oki /* cursor down */
1777 1.49 isaki n = ite_argnum(ip);
1778 1.1 oki n = ip->cury + (n ? n : 1);
1779 1.1 oki n = min(ip->rows - 1, n);
1780 1.1 oki #if 0
1781 1.1 oki if (ip->inside_margins)
1782 1.1 oki #endif
1783 1.1 oki n = min(ip->bottom_margin, n);
1784 1.1 oki #if 0
1785 1.1 oki else if (n == ip->bottom_margin + 1)
1786 1.1 oki /* allow scrolling outside region, but don't scroll out
1787 1.1 oki of active region without explicit CUP */
1788 1.1 oki n = ip->bottom_margin;
1789 1.1 oki #endif
1790 1.1 oki ip->cury = n;
1791 1.1 oki ip->escape = 0;
1792 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1793 1.49 isaki clr_attr(ip, ATTR_INV);
1794 1.1 oki return;
1795 1.1 oki
1796 1.1 oki case 'C':
1797 1.1 oki /* cursor forward */
1798 1.49 isaki n = ite_argnum(ip);
1799 1.1 oki n = n ? n : 1;
1800 1.1 oki ip->curx = min(ip->curx + n, ip->cols - 1);
1801 1.1 oki ip->escape = 0;
1802 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1803 1.49 isaki clr_attr(ip, ATTR_INV);
1804 1.1 oki return;
1805 1.1 oki
1806 1.1 oki case 'D':
1807 1.1 oki /* cursor backward */
1808 1.49 isaki n = ite_argnum(ip);
1809 1.1 oki n = n ? n : 1;
1810 1.1 oki n = ip->curx - n;
1811 1.1 oki ip->curx = n >= 0 ? n : 0;
1812 1.1 oki ip->escape = 0;
1813 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
1814 1.49 isaki clr_attr(ip, ATTR_INV);
1815 1.1 oki return;
1816 1.1 oki
1817 1.1 oki
1818 1.1 oki case 'J':
1819 1.1 oki /* erase screen */
1820 1.1 oki *ip->ap = 0;
1821 1.49 isaki n = ite_zargnum(ip);
1822 1.1 oki if (n == 0)
1823 1.1 oki ite_clrtoeos(ip);
1824 1.1 oki else if (n == 1)
1825 1.1 oki ite_clrtobos(ip);
1826 1.1 oki else if (n == 2)
1827 1.1 oki ite_clrscreen(ip);
1828 1.1 oki ip->escape = 0;
1829 1.1 oki return;
1830 1.1 oki
1831 1.1 oki
1832 1.1 oki case 'K':
1833 1.1 oki /* erase line */
1834 1.49 isaki n = ite_zargnum(ip);
1835 1.1 oki if (n == 0)
1836 1.1 oki ite_clrtoeol(ip);
1837 1.1 oki else if (n == 1)
1838 1.1 oki ite_clrtobol(ip);
1839 1.1 oki else if (n == 2)
1840 1.1 oki ite_clrline(ip);
1841 1.1 oki ip->escape = 0;
1842 1.1 oki return;
1843 1.1 oki
1844 1.1 oki case 'S':
1845 1.1 oki /* scroll up */
1846 1.49 isaki n = ite_zargnum(ip);
1847 1.1 oki if (n <= 0)
1848 1.1 oki n = 1;
1849 1.1 oki else if (n > ip->rows-1)
1850 1.1 oki n = ip->rows-1;
1851 1.1 oki SUBR_SCROLL(ip, ip->rows-1, 0, n, SCROLL_UP);
1852 1.1 oki ip->escape = 0;
1853 1.1 oki return;
1854 1.1 oki
1855 1.1 oki case 'T':
1856 1.1 oki /* scroll down */
1857 1.49 isaki n = ite_zargnum(ip);
1858 1.1 oki if (n <= 0)
1859 1.1 oki n = 1;
1860 1.1 oki else if (n > ip->rows-1)
1861 1.1 oki n = ip->rows-1;
1862 1.1 oki SUBR_SCROLL(ip, 0, 0, n, SCROLL_DOWN);
1863 1.1 oki ip->escape = 0;
1864 1.1 oki return;
1865 1.1 oki
1866 1.1 oki case 'X':
1867 1.1 oki /* erase character */
1868 1.1 oki n = ite_argnum(ip) - 1;
1869 1.1 oki n = min(n, ip->cols - 1 - ip->curx);
1870 1.1 oki for (; n >= 0; n--) {
1871 1.1 oki attrclr(ip, ip->cury, ip->curx + n, 1, 1);
1872 1.1 oki SUBR_PUTC(ip, ' ', ip->cury, ip->curx + n, ATTR_NOR);
1873 1.1 oki }
1874 1.1 oki ip->escape = 0;
1875 1.1 oki return;
1876 1.1 oki
1877 1.1 oki
1878 1.1 oki case '}': case '`':
1879 1.1 oki /* status line control */
1880 1.1 oki ip->escape = 0;
1881 1.1 oki return;
1882 1.1 oki
1883 1.1 oki case 'r':
1884 1.1 oki /* set scrolling region */
1885 1.1 oki ip->escape = 0;
1886 1.1 oki *ip->ap = 0;
1887 1.49 isaki x = atoi(ip->argbuf);
1888 1.1 oki x = x ? x : 1;
1889 1.1 oki y = ip->rows;
1890 1.36 jdolecek cp = strchr(ip->argbuf, ';');
1891 1.1 oki if (cp) {
1892 1.49 isaki y = atoi(cp + 1);
1893 1.1 oki y = y ? y : ip->rows;
1894 1.1 oki }
1895 1.1 oki if (y <= x)
1896 1.1 oki return;
1897 1.1 oki x--;
1898 1.1 oki y--;
1899 1.1 oki ip->top_margin = min(x, ip->rows - 2);
1900 1.1 oki ip->bottom_margin = min(y, ip->rows - 1);
1901 1.1 oki if (ip->inside_margins) {
1902 1.1 oki ip->cury = ip->top_margin;
1903 1.1 oki } else
1904 1.1 oki ip->cury = 0;
1905 1.1 oki ip->curx = 0;
1906 1.1 oki return;
1907 1.1 oki
1908 1.1 oki
1909 1.1 oki case 'm':
1910 1.1 oki /* big attribute setter/resetter */
1911 1.1 oki {
1912 1.40 he char *c_p;
1913 1.1 oki *ip->ap = 0;
1914 1.1 oki /* kludge to make CSIm work (== CSI0m) */
1915 1.1 oki if (ip->ap == ip->argbuf)
1916 1.1 oki ip->ap++;
1917 1.40 he for (c_p = ip->argbuf; c_p < ip->ap; ) {
1918 1.40 he switch (*c_p) {
1919 1.1 oki case 0:
1920 1.1 oki case '0':
1921 1.49 isaki clr_attr(ip, ATTR_ALL);
1922 1.1 oki ip->fgcolor = 7;
1923 1.1 oki ip->bgcolor = 0;
1924 1.40 he c_p++;
1925 1.1 oki break;
1926 1.1 oki
1927 1.1 oki case '1':
1928 1.49 isaki set_attr(ip, ATTR_BOLD);
1929 1.40 he c_p++;
1930 1.1 oki break;
1931 1.1 oki
1932 1.1 oki case '2':
1933 1.40 he switch (c_p[1]) {
1934 1.1 oki case '2':
1935 1.49 isaki clr_attr(ip, ATTR_BOLD);
1936 1.40 he c_p += 2;
1937 1.1 oki break;
1938 1.1 oki
1939 1.1 oki case '4':
1940 1.49 isaki clr_attr(ip, ATTR_UL);
1941 1.40 he c_p += 2;
1942 1.1 oki break;
1943 1.1 oki
1944 1.1 oki case '5':
1945 1.49 isaki clr_attr(ip, ATTR_BLINK);
1946 1.40 he c_p += 2;
1947 1.1 oki break;
1948 1.1 oki
1949 1.1 oki case '7':
1950 1.49 isaki clr_attr(ip, ATTR_INV);
1951 1.40 he c_p += 2;
1952 1.1 oki break;
1953 1.1 oki
1954 1.1 oki default:
1955 1.40 he c_p++;
1956 1.1 oki break;
1957 1.1 oki }
1958 1.1 oki break;
1959 1.1 oki
1960 1.1 oki case '3':
1961 1.40 he switch (c_p[1]) {
1962 1.1 oki case '0': case '1': case '2': case '3':
1963 1.1 oki case '4': case '5': case '6': case '7':
1964 1.1 oki /* foreground colors */
1965 1.40 he ip->fgcolor = c_p[1] - '0';
1966 1.40 he c_p += 2;
1967 1.1 oki break;
1968 1.1 oki default:
1969 1.40 he c_p++;
1970 1.1 oki break;
1971 1.1 oki }
1972 1.1 oki break;
1973 1.1 oki
1974 1.1 oki case '4':
1975 1.40 he switch (c_p[1]) {
1976 1.1 oki case '0': case '1': case '2': case '3':
1977 1.1 oki case '4': case '5': case '6': case '7':
1978 1.1 oki /* background colors */
1979 1.40 he ip->bgcolor = c_p[1] - '0';
1980 1.40 he c_p += 2;
1981 1.1 oki break;
1982 1.1 oki default:
1983 1.49 isaki set_attr(ip, ATTR_UL);
1984 1.40 he c_p++;
1985 1.1 oki break;
1986 1.1 oki }
1987 1.1 oki break;
1988 1.1 oki
1989 1.1 oki case '5':
1990 1.49 isaki set_attr(ip, ATTR_BLINK);
1991 1.40 he c_p++;
1992 1.1 oki break;
1993 1.1 oki
1994 1.1 oki case '7':
1995 1.49 isaki set_attr(ip, ATTR_INV);
1996 1.40 he c_p++;
1997 1.1 oki break;
1998 1.1 oki
1999 1.1 oki default:
2000 1.40 he c_p++;
2001 1.1 oki break;
2002 1.1 oki }
2003 1.1 oki }
2004 1.1 oki
2005 1.1 oki }
2006 1.1 oki ip->escape = 0;
2007 1.1 oki return;
2008 1.1 oki
2009 1.1 oki
2010 1.1 oki case 'u':
2011 1.1 oki /* DECRQTSR */
2012 1.49 isaki ite_sendstr(ip, "\033P\033\\");
2013 1.1 oki ip->escape = 0;
2014 1.1 oki return;
2015 1.1 oki
2016 1.1 oki default:
2017 1.1 oki ip->escape = 0;
2018 1.1 oki return;
2019 1.1 oki }
2020 1.1 oki break;
2021 1.1 oki
2022 1.1 oki
2023 1.1 oki
2024 1.1 oki case '?': /* CSI ? */
2025 1.1 oki switch (c) {
2026 1.1 oki case '0': case '1': case '2': case '3': case '4':
2027 1.1 oki case '5': case '6': case '7': case '8': case '9':
2028 1.1 oki case ';': case '\"': case '$':
2029 1.1 oki /* Don't fill the last character; it's needed. */
2030 1.1 oki /* XXX yeah, where ?? */
2031 1.1 oki if (ip->ap < ip->argbuf + MAX_ARGSIZE - 1)
2032 1.1 oki *ip->ap++ = c;
2033 1.1 oki return;
2034 1.1 oki
2035 1.1 oki
2036 1.1 oki case 'n':
2037 1.1 oki /* Terminal Reports */
2038 1.1 oki *ip->ap = 0;
2039 1.1 oki if (ip->ap == &ip->argbuf[2]) {
2040 1.1 oki if (!strncmp(ip->argbuf, "15", 2))
2041 1.1 oki /* printer status: no printer */
2042 1.49 isaki ite_sendstr(ip, "\033[13n");
2043 1.1 oki
2044 1.1 oki else if (!strncmp(ip->argbuf, "25", 2))
2045 1.1 oki /* udk status */
2046 1.49 isaki ite_sendstr(ip, "\033[20n");
2047 1.1 oki
2048 1.1 oki else if (!strncmp(ip->argbuf, "26", 2))
2049 1.1 oki /* keyboard dialect: US */
2050 1.49 isaki ite_sendstr(ip, "\033[27;1n");
2051 1.1 oki }
2052 1.1 oki ip->escape = 0;
2053 1.1 oki return;
2054 1.1 oki
2055 1.1 oki
2056 1.1 oki case 'h': /* set dec private modes */
2057 1.1 oki case 'l': /* reset dec private modes */
2058 1.49 isaki n = ite_zargnum(ip);
2059 1.1 oki switch (n) {
2060 1.1 oki case 1:
2061 1.1 oki /* CKM - cursor key mode */
2062 1.1 oki ip->cursor_appmode = (c == 'h');
2063 1.1 oki break;
2064 1.1 oki
2065 1.1 oki case 3:
2066 1.1 oki /* 132/80 columns (132 == 'h') */
2067 1.1 oki break;
2068 1.1 oki
2069 1.1 oki case 4: /* smooth scroll */
2070 1.1 oki break;
2071 1.1 oki
2072 1.1 oki case 5:
2073 1.1 oki /* light background (=='h') /dark background(=='l') */
2074 1.1 oki break;
2075 1.1 oki
2076 1.1 oki case 6: /* origin mode */
2077 1.1 oki ip->inside_margins = (c == 'h');
2078 1.1 oki #if 0
2079 1.1 oki ip->curx = 0;
2080 1.1 oki ip->cury = ip->inside_margins ? ip->top_margin : 0;
2081 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
2082 1.1 oki #endif
2083 1.1 oki break;
2084 1.1 oki
2085 1.1 oki case 7: /* auto wraparound */
2086 1.1 oki ip->auto_wrap = (c == 'h');
2087 1.1 oki break;
2088 1.1 oki
2089 1.1 oki case 8: /* keyboard repeat */
2090 1.1 oki ip->key_repeat = (c == 'h');
2091 1.1 oki break;
2092 1.1 oki
2093 1.1 oki case 20: /* newline mode */
2094 1.1 oki ip->linefeed_newline = (c == 'h');
2095 1.1 oki break;
2096 1.1 oki
2097 1.1 oki case 25: /* cursor on/off */
2098 1.1 oki SUBR_CURSOR(ip, (c == 'h') ? DRAW_CURSOR : ERASE_CURSOR);
2099 1.1 oki break;
2100 1.1 oki }
2101 1.1 oki ip->escape = 0;
2102 1.1 oki return;
2103 1.1 oki
2104 1.1 oki case 'K':
2105 1.1 oki /* selective erase in line */
2106 1.1 oki case 'J':
2107 1.1 oki /* selective erase in display */
2108 1.1 oki
2109 1.1 oki default:
2110 1.1 oki ip->escape = 0;
2111 1.1 oki return;
2112 1.1 oki }
2113 1.1 oki break;
2114 1.1 oki
2115 1.1 oki
2116 1.1 oki default:
2117 1.1 oki ip->escape = 0;
2118 1.1 oki return;
2119 1.1 oki }
2120 1.1 oki }
2121 1.1 oki
2122 1.1 oki switch (c) {
2123 1.1 oki case 0x00: /* NUL */
2124 1.1 oki case 0x01: /* SOH */
2125 1.1 oki case 0x02: /* STX */
2126 1.1 oki case 0x03: /* ETX */
2127 1.1 oki case 0x04: /* EOT */
2128 1.1 oki case 0x05: /* ENQ */
2129 1.1 oki case 0x06: /* ACK */
2130 1.1 oki break;
2131 1.1 oki
2132 1.1 oki case BEL:
2133 1.1 oki #if NBELL > 0
2134 1.44 thorpej if (kbd_ite && ite_tty[device_unit(&kbd_ite->device)])
2135 1.1 oki opm_bell();
2136 1.1 oki #endif
2137 1.1 oki break;
2138 1.1 oki
2139 1.1 oki case BS:
2140 1.1 oki if (--ip->curx < 0)
2141 1.1 oki ip->curx = 0;
2142 1.1 oki else
2143 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
2144 1.1 oki break;
2145 1.1 oki
2146 1.1 oki case HT:
2147 1.1 oki for (n = ip->curx + 1; n < ip->cols; n++) {
2148 1.1 oki if (ip->tabs[n]) {
2149 1.1 oki ip->curx = n;
2150 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
2151 1.1 oki break;
2152 1.1 oki }
2153 1.1 oki }
2154 1.1 oki break;
2155 1.1 oki
2156 1.1 oki case VT: /* VT is treated like LF */
2157 1.1 oki case FF: /* so is FF */
2158 1.1 oki case LF:
2159 1.50 isaki /* cr->crlf distinction is done here, on output,
2160 1.1 oki not on input! */
2161 1.1 oki if (ip->linefeed_newline)
2162 1.49 isaki ite_crlf(ip);
2163 1.1 oki else
2164 1.49 isaki ite_lf(ip);
2165 1.1 oki break;
2166 1.1 oki
2167 1.1 oki case CR:
2168 1.49 isaki ite_cr(ip);
2169 1.1 oki break;
2170 1.1 oki
2171 1.1 oki
2172 1.1 oki case SO:
2173 1.1 oki ip->GL = &ip->G1;
2174 1.1 oki break;
2175 1.1 oki
2176 1.1 oki case SI:
2177 1.1 oki ip->GL = &ip->G0;
2178 1.1 oki break;
2179 1.1 oki
2180 1.1 oki case 0x10: /* DLE */
2181 1.1 oki case 0x11: /* DC1/XON */
2182 1.1 oki case 0x12: /* DC2 */
2183 1.1 oki case 0x13: /* DC3/XOFF */
2184 1.1 oki case 0x14: /* DC4 */
2185 1.1 oki case 0x15: /* NAK */
2186 1.1 oki case 0x16: /* SYN */
2187 1.1 oki case 0x17: /* ETB */
2188 1.1 oki break;
2189 1.1 oki
2190 1.1 oki case CAN:
2191 1.1 oki ip->escape = 0; /* cancel any escape sequence in progress */
2192 1.1 oki break;
2193 1.1 oki
2194 1.1 oki case 0x19: /* EM */
2195 1.1 oki break;
2196 1.1 oki
2197 1.1 oki case SUB:
2198 1.1 oki ip->escape = 0; /* dito, but see below */
2199 1.1 oki /* should also display a reverse question mark!! */
2200 1.1 oki break;
2201 1.1 oki
2202 1.1 oki case ESC:
2203 1.1 oki ip->escape = ESC;
2204 1.1 oki break;
2205 1.1 oki
2206 1.1 oki case 0x1c: /* FS */
2207 1.1 oki case 0x1d: /* GS */
2208 1.1 oki case 0x1e: /* RS */
2209 1.1 oki case 0x1f: /* US */
2210 1.1 oki break;
2211 1.1 oki
2212 1.1 oki /* now it gets weird.. 8bit control sequences.. */
2213 1.1 oki case IND: /* index: move cursor down, scroll */
2214 1.49 isaki ite_index(ip);
2215 1.1 oki break;
2216 1.1 oki
2217 1.1 oki case NEL: /* next line. next line, first pos. */
2218 1.49 isaki ite_crlf(ip);
2219 1.1 oki break;
2220 1.1 oki
2221 1.1 oki case HTS: /* set horizontal tab */
2222 1.1 oki if (ip->curx < ip->cols)
2223 1.1 oki ip->tabs[ip->curx] = 1;
2224 1.1 oki break;
2225 1.1 oki
2226 1.1 oki case RI: /* reverse index */
2227 1.49 isaki ite_rlf(ip);
2228 1.1 oki break;
2229 1.1 oki
2230 1.1 oki case SS2: /* go into G2 for one character */
2231 1.1 oki ip->save_GL = ip->GR; /* GL XXX EUC */
2232 1.1 oki ip->GR = &ip->G2; /* GL XXX */
2233 1.1 oki break;
2234 1.1 oki
2235 1.1 oki case SS3: /* go into G3 for one character */
2236 1.1 oki ip->save_GL = ip->GR; /* GL XXX EUC */
2237 1.1 oki ip->GR = &ip->G3; /* GL XXX */
2238 1.1 oki break;
2239 1.1 oki
2240 1.1 oki case DCS: /* device control string introducer */
2241 1.1 oki ip->escape = DCS;
2242 1.1 oki ip->ap = ip->argbuf;
2243 1.1 oki break;
2244 1.1 oki
2245 1.1 oki case CSI: /* control sequence introducer */
2246 1.1 oki ip->escape = CSI;
2247 1.1 oki ip->ap = ip->argbuf;
2248 1.1 oki break;
2249 1.1 oki
2250 1.1 oki case ST: /* string terminator */
2251 1.1 oki /* ignore, if not used as terminator */
2252 1.1 oki break;
2253 1.1 oki
2254 1.1 oki case OSC: /* introduces OS command. Ignore everything upto ST */
2255 1.1 oki ip->escape = OSC;
2256 1.1 oki break;
2257 1.1 oki
2258 1.1 oki case PM: /* privacy message, ignore everything upto ST */
2259 1.1 oki ip->escape = PM;
2260 1.1 oki break;
2261 1.1 oki
2262 1.1 oki case APC: /* application program command, ignore everything upto ST */
2263 1.1 oki ip->escape = APC;
2264 1.1 oki break;
2265 1.1 oki
2266 1.1 oki case DEL:
2267 1.1 oki break;
2268 1.1 oki
2269 1.1 oki default:
2270 1.1 oki if (!ip->save_char && (*((c & 0x80) ? ip->GR : ip->GL) & CSET_MULTI)) {
2271 1.1 oki ip->save_char = c;
2272 1.1 oki break;
2273 1.1 oki }
2274 1.1 oki if (ip->imode)
2275 1.1 oki ite_inchar(ip, ip->save_char ? 2 : 1);
2276 1.1 oki iteprecheckwrap(ip);
2277 1.1 oki #ifdef DO_WEIRD_ATTRIBUTES
2278 1.1 oki if ((ip->attribute & ATTR_INV) || attrtest(ip, ATTR_INV)) {
2279 1.1 oki attrset(ip, ATTR_INV);
2280 1.1 oki SUBR_PUTC(ip, c, ip->cury, ip->curx, ATTR_INV);
2281 1.1 oki }
2282 1.1 oki else
2283 1.1 oki SUBR_PUTC(ip, c, ip->cury, ip->curx, ATTR_NOR);
2284 1.1 oki #else
2285 1.1 oki SUBR_PUTC(ip, c, ip->cury, ip->curx, ip->attribute);
2286 1.1 oki #endif
2287 1.1 oki /* SUBR_CURSOR(ip, DRAW_CURSOR);*/
2288 1.1 oki itecheckwrap(ip);
2289 1.1 oki if (ip->save_char) {
2290 1.1 oki itecheckwrap(ip);
2291 1.1 oki ip->save_char = 0;
2292 1.1 oki }
2293 1.1 oki if (ip->save_GL) {
2294 1.1 oki /*
2295 1.1 oki * reset single shift
2296 1.1 oki */
2297 1.1 oki ip->GR = ip->save_GL;
2298 1.1 oki ip->save_GL = 0;
2299 1.1 oki }
2300 1.1 oki break;
2301 1.1 oki }
2302 1.1 oki }
2303 1.1 oki
2304 1.49 isaki static void
2305 1.38 chs iteprecheckwrap(struct ite_softc *ip)
2306 1.1 oki {
2307 1.1 oki if (ip->auto_wrap && ip->curx + (ip->save_char ? 1 : 0) == ip->cols) {
2308 1.1 oki ip->curx = 0;
2309 1.1 oki clr_attr(ip, ATTR_INV);
2310 1.1 oki if (++ip->cury >= ip->bottom_margin + 1) {
2311 1.1 oki ip->cury = ip->bottom_margin;
2312 1.1 oki /*SUBR_CURSOR(ip, MOVE_CURSOR);*/
2313 1.1 oki SUBR_SCROLL(ip, ip->top_margin + 1, 0, 1, SCROLL_UP);
2314 1.1 oki ite_clrtoeol(ip);
2315 1.1 oki } /*else
2316 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);*/
2317 1.1 oki }
2318 1.1 oki }
2319 1.1 oki
2320 1.49 isaki static void
2321 1.38 chs itecheckwrap(struct ite_softc *ip)
2322 1.1 oki {
2323 1.1 oki #if 0
2324 1.1 oki if (++ip->curx == ip->cols) {
2325 1.1 oki if (ip->auto_wrap) {
2326 1.1 oki ip->curx = 0;
2327 1.1 oki clr_attr(ip, ATTR_INV);
2328 1.1 oki if (++ip->cury >= ip->bottom_margin + 1) {
2329 1.1 oki ip->cury = ip->bottom_margin;
2330 1.1 oki SUBR_CURSOR(ip, MOVE_CURSOR);
2331 1.1 oki SUBR_SCROLL(ip, ip->top_margin + 1, 0, 1, SCROLL_UP);
2332 1.1 oki ite_clrtoeol(ip);
2333 1.1 oki return;
2334 1.1 oki }
2335 1.1 oki } else
2336 1.1 oki /* stay there if no autowrap.. */
2337 1.1 oki ip->curx--;
2338 1.1 oki }
2339 1.1 oki #else
2340 1.1 oki if (ip->curx < ip->cols) {
2341 1.1 oki ip->curx++;
2342 1.1 oki /*SUBR_CURSOR(ip, MOVE_CURSOR);*/
2343 1.1 oki }
2344 1.1 oki #endif
2345 1.1 oki }
2346 1.1 oki
2347 1.1 oki #endif
2348 1.1 oki
2349 1.14 minoura #if NITE > 0 && NKBD > 0
2350 1.14 minoura
2351 1.1 oki /*
2352 1.1 oki * Console functions
2353 1.1 oki */
2354 1.1 oki #include <dev/cons.h>
2355 1.38 chs extern void kbdenable(int);
2356 1.38 chs extern int kbdcngetc(void);
2357 1.1 oki
2358 1.1 oki /*
2359 1.1 oki * Return a priority in consdev->cn_pri field highest wins. This function
2360 1.1 oki * is called before any devices have been probed.
2361 1.1 oki */
2362 1.49 isaki void
2363 1.38 chs itecnprobe(struct consdev *cd)
2364 1.1 oki {
2365 1.2 oki int maj;
2366 1.1 oki
2367 1.1 oki /* locate the major number */
2368 1.29 gehenna maj = cdevsw_lookup_major(&ite_cdevsw);
2369 1.1 oki
2370 1.50 isaki /*
2371 1.1 oki * return priority of the best ite (already picked from attach)
2372 1.1 oki * or CN_DEAD.
2373 1.1 oki */
2374 1.1 oki if (con_itesoftc.grf == NULL)
2375 1.1 oki cd->cn_pri = CN_DEAD;
2376 1.1 oki else {
2377 1.1 oki con_itesoftc.flags = (ITE_ALIVE|ITE_CONSOLE);
2378 1.14 minoura /*
2379 1.14 minoura * hardcode the minor number.
2380 1.14 minoura * currently we support only one ITE, it is enough for now.
2381 1.14 minoura */
2382 1.14 minoura con_itesoftc.isw = &itesw[0];
2383 1.1 oki cd->cn_pri = CN_INTERNAL;
2384 1.14 minoura cd->cn_dev = makedev(maj, 0);
2385 1.1 oki }
2386 1.1 oki
2387 1.1 oki }
2388 1.1 oki
2389 1.49 isaki void
2390 1.38 chs itecninit(struct consdev *cd)
2391 1.1 oki {
2392 1.1 oki struct ite_softc *ip;
2393 1.1 oki
2394 1.1 oki ip = getitesp(cd->cn_dev);
2395 1.1 oki iteinit(cd->cn_dev); /* init console unit */
2396 1.1 oki ip->flags |= ITE_ACTIVE | ITE_ISCONS;
2397 1.14 minoura kbdenable(0);
2398 1.14 minoura mfp_send_usart(0x49);
2399 1.1 oki }
2400 1.1 oki
2401 1.1 oki /*
2402 1.1 oki * itecnfinish() is called in ite_init() when the device is
2403 1.1 oki * being probed in the normal fasion, thus we can finish setting
2404 1.1 oki * up this ite now that the system is more functional.
2405 1.1 oki */
2406 1.49 isaki void
2407 1.38 chs itecnfinish(struct ite_softc *ip)
2408 1.1 oki {
2409 1.1 oki static int done;
2410 1.1 oki
2411 1.1 oki if (done)
2412 1.1 oki return;
2413 1.1 oki done = 1;
2414 1.1 oki }
2415 1.1 oki
2416 1.1 oki /*ARGSUSED*/
2417 1.49 isaki int
2418 1.38 chs itecngetc(dev_t dev)
2419 1.1 oki {
2420 1.38 chs int c;
2421 1.1 oki
2422 1.1 oki do {
2423 1.14 minoura c = kbdcngetc();
2424 1.16 minoura c = ite_cnfilter(c);
2425 1.1 oki } while (c == -1);
2426 1.1 oki return (c);
2427 1.1 oki }
2428 1.1 oki
2429 1.49 isaki void
2430 1.38 chs itecnputc(dev_t dev, int c)
2431 1.1 oki {
2432 1.1 oki static int paniced = 0;
2433 1.1 oki struct ite_softc *ip = getitesp(dev);
2434 1.1 oki char ch = c;
2435 1.14 minoura #ifdef ITE_KERNEL_ATTR
2436 1.14 minoura short save_attribute;
2437 1.14 minoura #endif
2438 1.1 oki
2439 1.1 oki if (panicstr && !paniced &&
2440 1.1 oki (ip->flags & (ITE_ACTIVE|ITE_INGRF)) != ITE_ACTIVE) {
2441 1.1 oki (void) iteon(dev, 3);
2442 1.1 oki paniced = 1;
2443 1.1 oki }
2444 1.14 minoura #ifdef ITE_KERNEL_ATTR
2445 1.14 minoura save_attribute = ip->attribute;
2446 1.14 minoura ip->attribute = ITE_KERNEL_ATTR;
2447 1.14 minoura #endif
2448 1.1 oki ite_putstr(&ch, 1, dev);
2449 1.14 minoura #ifdef ITE_KERNEL_ATTR
2450 1.14 minoura ip->attribute = save_attribute;
2451 1.14 minoura #endif
2452 1.1 oki }
2453 1.14 minoura #endif
2454