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