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