2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 * Copyright (c) 2008-2009 Ed Schouten <ed@FreeBSD.org>
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 static void teken_subr_cursor_up(teken_t *, unsigned int);
32 static void teken_subr_erase_line(teken_t *, unsigned int);
33 static void teken_subr_regular_character(teken_t *, teken_char_t);
34 static void teken_subr_reset_to_initial_state(teken_t *);
35 static void teken_subr_save_cursor(teken_t *);
38 teken_tab_isset(teken_t *t, unsigned int col)
43 return ((col % 8) == 0);
45 b = col / (sizeof(unsigned int) * 8);
46 o = col % (sizeof(unsigned int) * 8);
48 return (t->t_tabstops[b] & (1 << o));
52 teken_tab_clear(teken_t *t, unsigned int col)
59 b = col / (sizeof(unsigned int) * 8);
60 o = col % (sizeof(unsigned int) * 8);
62 t->t_tabstops[b] &= ~(1 << o);
66 teken_tab_set(teken_t *t, unsigned int col)
73 b = col / (sizeof(unsigned int) * 8);
74 o = col % (sizeof(unsigned int) * 8);
76 t->t_tabstops[b] |= 1 << o;
80 teken_tab_default(teken_t *t)
84 memset(&t->t_tabstops, 0, T_NUMCOL / 8);
86 for (i = 8; i < T_NUMCOL; i += 8)
91 teken_subr_do_scroll(teken_t *t, int amount)
96 teken_assert(t->t_cursor.tp_row <= t->t_winsize.tp_row);
97 teken_assert(t->t_scrollreg.ts_end <= t->t_winsize.tp_row);
98 teken_assert(amount != 0);
100 /* Copy existing data 1 line up. */
104 /* Copy existing data up. */
105 if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
106 tr.tr_begin.tp_row = t->t_scrollreg.ts_begin + amount;
107 tr.tr_begin.tp_col = 0;
108 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
109 tr.tr_end.tp_col = t->t_winsize.tp_col;
110 tp.tp_row = t->t_scrollreg.ts_begin;
112 teken_funcs_copy(t, &tr, &tp);
114 tr.tr_begin.tp_row = t->t_scrollreg.ts_end - amount;
116 tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
119 /* Clear the last lines. */
120 tr.tr_begin.tp_col = 0;
121 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
122 tr.tr_end.tp_col = t->t_winsize.tp_col;
123 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
128 /* Copy existing data down. */
129 if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
130 tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
131 tr.tr_begin.tp_col = 0;
132 tr.tr_end.tp_row = t->t_scrollreg.ts_end - amount;
133 tr.tr_end.tp_col = t->t_winsize.tp_col;
134 tp.tp_row = t->t_scrollreg.ts_begin + amount;
136 teken_funcs_copy(t, &tr, &tp);
138 tr.tr_end.tp_row = t->t_scrollreg.ts_begin + amount;
140 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
143 /* Clear the first lines. */
144 tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
145 tr.tr_begin.tp_col = 0;
146 tr.tr_end.tp_col = t->t_winsize.tp_col;
147 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
152 teken_subr_do_cpr(teken_t *t, unsigned int cmd, char response[16])
156 case 5: /* Operating status. */
157 strcpy(response, "0n");
159 case 6: { /* Cursor position. */
162 len = snprintf(response, 16, "%u;%uR",
163 (t->t_cursor.tp_row - t->t_originreg.ts_begin) + 1,
164 t->t_cursor.tp_col + 1);
170 case 15: /* Printer status. */
171 strcpy(response, "13n");
173 case 25: /* UDK status. */
174 strcpy(response, "20n");
176 case 26: /* Keyboard status. */
177 strcpy(response, "27;1n");
180 teken_printf("Unknown DSR\n");
186 teken_subr_alignment_test(teken_t *t)
190 t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
191 t->t_scrollreg.ts_begin = 0;
192 t->t_scrollreg.ts_end = t->t_winsize.tp_row;
193 t->t_originreg = t->t_scrollreg;
194 t->t_stateflags &= ~(TS_WRAPPED|TS_ORIGIN);
195 teken_funcs_cursor(t);
197 tr.tr_begin.tp_row = 0;
198 tr.tr_begin.tp_col = 0;
199 tr.tr_end = t->t_winsize;
200 teken_funcs_fill(t, &tr, 'E', &t->t_defattr);
204 teken_subr_backspace(teken_t *t)
207 if (t->t_stateflags & TS_CONS25) {
208 if (t->t_cursor.tp_col == 0) {
209 if (t->t_cursor.tp_row == t->t_originreg.ts_begin)
211 t->t_cursor.tp_row--;
212 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
214 t->t_cursor.tp_col--;
217 if (t->t_cursor.tp_col == 0)
220 t->t_cursor.tp_col--;
221 t->t_stateflags &= ~TS_WRAPPED;
224 teken_funcs_cursor(t);
228 teken_subr_bell(teken_t *t)
235 teken_subr_carriage_return(teken_t *t)
238 t->t_cursor.tp_col = 0;
239 t->t_stateflags &= ~TS_WRAPPED;
240 teken_funcs_cursor(t);
244 teken_subr_cursor_backward(teken_t *t, unsigned int ncols)
247 if (ncols > t->t_cursor.tp_col)
248 t->t_cursor.tp_col = 0;
250 t->t_cursor.tp_col -= ncols;
251 t->t_stateflags &= ~TS_WRAPPED;
252 teken_funcs_cursor(t);
256 teken_subr_cursor_backward_tabulation(teken_t *t, unsigned int ntabs)
260 /* Stop when we've reached the beginning of the line. */
261 if (t->t_cursor.tp_col == 0)
264 t->t_cursor.tp_col--;
266 /* Tab marker set. */
267 if (teken_tab_isset(t, t->t_cursor.tp_col))
271 teken_funcs_cursor(t);
275 teken_subr_cursor_down(teken_t *t, unsigned int nrows)
278 if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end)
279 t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
281 t->t_cursor.tp_row += nrows;
282 t->t_stateflags &= ~TS_WRAPPED;
283 teken_funcs_cursor(t);
287 teken_subr_cursor_forward(teken_t *t, unsigned int ncols)
290 if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
291 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
293 t->t_cursor.tp_col += ncols;
294 t->t_stateflags &= ~TS_WRAPPED;
295 teken_funcs_cursor(t);
299 teken_subr_cursor_forward_tabulation(teken_t *t, unsigned int ntabs)
303 /* Stop when we've reached the end of the line. */
304 if (t->t_cursor.tp_col == t->t_winsize.tp_col - 1)
307 t->t_cursor.tp_col++;
309 /* Tab marker set. */
310 if (teken_tab_isset(t, t->t_cursor.tp_col))
314 teken_funcs_cursor(t);
318 teken_subr_cursor_next_line(teken_t *t, unsigned int ncols)
321 t->t_cursor.tp_col = 0;
322 teken_subr_cursor_down(t, ncols);
326 teken_subr_cursor_position(teken_t *t, unsigned int row, unsigned int col)
329 row = row - 1 + t->t_originreg.ts_begin;
330 t->t_cursor.tp_row = row < t->t_originreg.ts_end ?
331 row : t->t_originreg.ts_end - 1;
334 t->t_cursor.tp_col = col < t->t_winsize.tp_col ?
335 col : t->t_winsize.tp_col - 1;
337 t->t_stateflags &= ~TS_WRAPPED;
338 teken_funcs_cursor(t);
342 teken_subr_cursor_position_report(teken_t *t, unsigned int cmd)
344 char response[18] = "\x1B[";
347 len = teken_subr_do_cpr(t, cmd, response + 2);
351 teken_funcs_respond(t, response, len + 2);
355 teken_subr_cursor_previous_line(teken_t *t, unsigned int ncols)
358 t->t_cursor.tp_col = 0;
359 teken_subr_cursor_up(t, ncols);
363 teken_subr_cursor_up(teken_t *t, unsigned int nrows)
366 if (t->t_scrollreg.ts_begin + nrows >= t->t_cursor.tp_row)
367 t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
369 t->t_cursor.tp_row -= nrows;
370 t->t_stateflags &= ~TS_WRAPPED;
371 teken_funcs_cursor(t);
375 teken_subr_delete_character(teken_t *t, unsigned int ncols)
379 tr.tr_begin.tp_row = t->t_cursor.tp_row;
380 tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
381 tr.tr_end.tp_col = t->t_winsize.tp_col;
383 if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
384 tr.tr_begin.tp_col = t->t_cursor.tp_col;
386 /* Copy characters to the left. */
387 tr.tr_begin.tp_col = t->t_cursor.tp_col + ncols;
388 teken_funcs_copy(t, &tr, &t->t_cursor);
390 tr.tr_begin.tp_col = t->t_winsize.tp_col - ncols;
393 /* Blank trailing columns. */
394 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
398 teken_subr_delete_line(teken_t *t, unsigned int nrows)
402 /* Ignore if outside scrolling region. */
403 if (t->t_cursor.tp_row < t->t_scrollreg.ts_begin ||
404 t->t_cursor.tp_row >= t->t_scrollreg.ts_end)
407 tr.tr_begin.tp_col = 0;
408 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
409 tr.tr_end.tp_col = t->t_winsize.tp_col;
411 if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
412 tr.tr_begin.tp_row = t->t_cursor.tp_row;
417 tr.tr_begin.tp_row = t->t_cursor.tp_row + nrows;
418 tp.tp_row = t->t_cursor.tp_row;
420 teken_funcs_copy(t, &tr, &tp);
422 tr.tr_begin.tp_row = t->t_scrollreg.ts_end - nrows;
425 /* Blank trailing rows. */
426 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
430 teken_subr_device_control_string(teken_t *t)
433 teken_printf("Unsupported device control string\n");
434 t->t_stateflags |= TS_INSTRING;
438 teken_subr_device_status_report(teken_t *t, unsigned int cmd)
440 char response[19] = "\x1B[?";
443 len = teken_subr_do_cpr(t, cmd, response + 3);
447 teken_funcs_respond(t, response, len + 3);
451 teken_subr_double_height_double_width_line_top(teken_t *t __unused)
454 teken_printf("double height double width top\n");
458 teken_subr_double_height_double_width_line_bottom(teken_t *t __unused)
461 teken_printf("double height double width bottom\n");
465 teken_subr_erase_character(teken_t *t, unsigned int ncols)
469 tr.tr_begin = t->t_cursor;
470 tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
472 if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
473 tr.tr_end.tp_col = t->t_winsize.tp_col;
475 tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
477 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
481 teken_subr_erase_display(teken_t *t, unsigned int mode)
485 r.tr_begin.tp_col = 0;
486 r.tr_end.tp_col = t->t_winsize.tp_col;
489 case 1: /* Erase from the top to the cursor. */
490 teken_subr_erase_line(t, 1);
492 /* Erase lines above. */
493 if (t->t_cursor.tp_row == 0)
495 r.tr_begin.tp_row = 0;
496 r.tr_end.tp_row = t->t_cursor.tp_row;
498 case 2: /* Erase entire display. */
499 r.tr_begin.tp_row = 0;
500 r.tr_end.tp_row = t->t_winsize.tp_row;
502 default: /* Erase from cursor to the bottom. */
503 teken_subr_erase_line(t, 0);
505 /* Erase lines below. */
506 if (t->t_cursor.tp_row == t->t_winsize.tp_row - 1)
508 r.tr_begin.tp_row = t->t_cursor.tp_row + 1;
509 r.tr_end.tp_row = t->t_winsize.tp_row;
513 teken_funcs_fill(t, &r, BLANK, &t->t_curattr);
517 teken_subr_erase_line(teken_t *t, unsigned int mode)
521 r.tr_begin.tp_row = t->t_cursor.tp_row;
522 r.tr_end.tp_row = t->t_cursor.tp_row + 1;
525 case 1: /* Erase from the beginning of the line to the cursor. */
526 r.tr_begin.tp_col = 0;
527 r.tr_end.tp_col = t->t_cursor.tp_col + 1;
529 case 2: /* Erase entire line. */
530 r.tr_begin.tp_col = 0;
531 r.tr_end.tp_col = t->t_winsize.tp_col;
533 default: /* Erase from cursor to the end of the line. */
534 r.tr_begin.tp_col = t->t_cursor.tp_col;
535 r.tr_end.tp_col = t->t_winsize.tp_col;
539 teken_funcs_fill(t, &r, BLANK, &t->t_curattr);
543 teken_subr_g0_scs_special_graphics(teken_t *t __unused)
546 t->t_scs[0] = teken_scs_special_graphics;
550 teken_subr_g0_scs_uk_national(teken_t *t __unused)
553 t->t_scs[0] = teken_scs_uk_national;
557 teken_subr_g0_scs_us_ascii(teken_t *t __unused)
560 t->t_scs[0] = teken_scs_us_ascii;
564 teken_subr_g1_scs_special_graphics(teken_t *t __unused)
567 t->t_scs[1] = teken_scs_special_graphics;
571 teken_subr_g1_scs_uk_national(teken_t *t __unused)
574 t->t_scs[1] = teken_scs_uk_national;
578 teken_subr_g1_scs_us_ascii(teken_t *t __unused)
581 t->t_scs[1] = teken_scs_us_ascii;
585 teken_subr_horizontal_position_absolute(teken_t *t, unsigned int col)
589 t->t_cursor.tp_col = col < t->t_winsize.tp_col ?
590 col : t->t_winsize.tp_col - 1;
592 t->t_stateflags &= ~TS_WRAPPED;
593 teken_funcs_cursor(t);
597 teken_subr_horizontal_tab(teken_t *t)
600 teken_subr_cursor_forward_tabulation(t, 1);
604 teken_subr_horizontal_tab_set(teken_t *t)
607 teken_tab_set(t, t->t_cursor.tp_col);
611 teken_subr_index(teken_t *t)
614 if (t->t_cursor.tp_row < t->t_scrollreg.ts_end - 1) {
615 t->t_cursor.tp_row++;
616 t->t_stateflags &= ~TS_WRAPPED;
617 teken_funcs_cursor(t);
619 teken_subr_do_scroll(t, 1);
624 teken_subr_insert_character(teken_t *t, unsigned int ncols)
628 tr.tr_begin = t->t_cursor;
629 tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
631 if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
632 tr.tr_end.tp_col = t->t_winsize.tp_col;
636 /* Copy characters to the right. */
637 tr.tr_end.tp_col = t->t_winsize.tp_col - ncols;
638 tp.tp_row = t->t_cursor.tp_row;
639 tp.tp_col = t->t_cursor.tp_col + ncols;
640 teken_funcs_copy(t, &tr, &tp);
642 tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
645 /* Blank current location. */
646 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
650 teken_subr_insert_line(teken_t *t, unsigned int nrows)
654 /* Ignore if outside scrolling region. */
655 if (t->t_cursor.tp_row < t->t_scrollreg.ts_begin ||
656 t->t_cursor.tp_row >= t->t_scrollreg.ts_end)
659 tr.tr_begin.tp_row = t->t_cursor.tp_row;
660 tr.tr_begin.tp_col = 0;
661 tr.tr_end.tp_col = t->t_winsize.tp_col;
663 if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
664 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
668 /* Copy lines down. */
669 tr.tr_end.tp_row = t->t_scrollreg.ts_end - nrows;
670 tp.tp_row = t->t_cursor.tp_row + nrows;
672 teken_funcs_copy(t, &tr, &tp);
674 tr.tr_end.tp_row = t->t_cursor.tp_row + nrows;
677 /* Blank current location. */
678 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
682 teken_subr_keypad_application_mode(teken_t *t)
685 teken_funcs_param(t, TP_KEYPADAPP, 1);
689 teken_subr_keypad_numeric_mode(teken_t *t)
692 teken_funcs_param(t, TP_KEYPADAPP, 0);
696 teken_subr_newline(teken_t *t)
699 t->t_cursor.tp_row++;
701 if (t->t_cursor.tp_row >= t->t_scrollreg.ts_end) {
702 teken_subr_do_scroll(t, 1);
703 t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
706 t->t_stateflags &= ~TS_WRAPPED;
707 teken_funcs_cursor(t);
711 teken_subr_newpage(teken_t *t)
714 if (t->t_stateflags & TS_CONS25) {
718 tr.tr_begin.tp_row = t->t_originreg.ts_begin;
719 tr.tr_begin.tp_col = 0;
720 tr.tr_end.tp_row = t->t_originreg.ts_end;
721 tr.tr_end.tp_col = t->t_winsize.tp_col;
722 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
724 /* Cursor at top left. */
725 t->t_cursor.tp_row = t->t_originreg.ts_begin;
726 t->t_cursor.tp_col = 0;
727 t->t_stateflags &= ~TS_WRAPPED;
728 teken_funcs_cursor(t);
730 teken_subr_newline(t);
735 teken_subr_next_line(teken_t *t)
738 t->t_cursor.tp_col = 0;
739 teken_subr_newline(t);
743 teken_subr_operating_system_command(teken_t *t)
746 teken_printf("Unsupported operating system command\n");
747 t->t_stateflags |= TS_INSTRING;
751 teken_subr_pan_down(teken_t *t, unsigned int nrows)
754 teken_subr_do_scroll(t, (int)nrows);
758 teken_subr_pan_up(teken_t *t, unsigned int nrows)
761 teken_subr_do_scroll(t, -(int)nrows);
765 teken_subr_primary_device_attributes(teken_t *t, unsigned int request)
769 const char response[] = "\x1B[?1;2c";
771 teken_funcs_respond(t, response, sizeof response - 1);
773 teken_printf("Unknown DA1\n");
778 teken_subr_do_putchar(teken_t *t, const teken_pos_t *tp, teken_char_t c,
782 if (t->t_stateflags & TS_INSERT &&
783 tp->tp_col < t->t_winsize.tp_col - width) {
787 /* Insert mode. Move existing characters to the right. */
789 ctr.tr_end.tp_row = tp->tp_row + 1;
790 ctr.tr_end.tp_col = t->t_winsize.tp_col - width;
791 ctp.tp_row = tp->tp_row;
792 ctp.tp_col = tp->tp_col + width;
793 teken_funcs_copy(t, &ctr, &ctp);
796 teken_funcs_putchar(t, tp, c, &t->t_curattr);
798 if (width == 2 && tp->tp_col + 1 < t->t_winsize.tp_col) {
802 /* Print second half of CJK fullwidth character. */
803 tp2.tp_row = tp->tp_row;
804 tp2.tp_col = tp->tp_col + 1;
806 attr.ta_format |= TF_CJK_RIGHT;
807 teken_funcs_putchar(t, &tp2, c, &attr);
812 teken_subr_regular_character(teken_t *t, teken_char_t c)
816 if (t->t_stateflags & TS_8BIT) {
817 if (!(t->t_stateflags & TS_CONS25) && (c <= 0x1b || c == 0x7f))
819 c = teken_scs_process(t, c);
822 c = teken_scs_process(t, c);
823 width = teken_wcwidth(c);
824 /* XXX: Don't process zero-width characters yet. */
829 if (t->t_stateflags & TS_CONS25) {
830 teken_subr_do_putchar(t, &t->t_cursor, c, width);
831 t->t_cursor.tp_col += width;
833 if (t->t_cursor.tp_col >= t->t_winsize.tp_col) {
834 if (t->t_cursor.tp_row == t->t_scrollreg.ts_end - 1) {
835 /* Perform scrolling. */
836 teken_subr_do_scroll(t, 1);
838 /* No scrolling needed. */
839 if (t->t_cursor.tp_row <
840 t->t_winsize.tp_row - 1)
841 t->t_cursor.tp_row++;
843 t->t_cursor.tp_col = 0;
845 } else if (t->t_stateflags & TS_AUTOWRAP &&
846 ((t->t_stateflags & TS_WRAPPED &&
847 t->t_cursor.tp_col + 1 == t->t_winsize.tp_col) ||
848 t->t_cursor.tp_col + width > t->t_winsize.tp_col)) {
852 * Perform line wrapping, if:
853 * - Autowrapping is enabled, and
854 * - We're in the wrapped state at the last column, or
855 * - The character to be printed does not fit anymore.
857 if (t->t_cursor.tp_row == t->t_scrollreg.ts_end - 1) {
858 /* Perform scrolling. */
859 teken_subr_do_scroll(t, 1);
860 tp.tp_row = t->t_scrollreg.ts_end - 1;
862 /* No scrolling needed. */
863 tp.tp_row = t->t_cursor.tp_row + 1;
864 if (tp.tp_row == t->t_winsize.tp_row) {
866 * Corner case: regular character
867 * outside scrolling region, but at the
868 * bottom of the screen.
870 teken_subr_do_putchar(t, &t->t_cursor,
877 teken_subr_do_putchar(t, &tp, c, width);
879 t->t_cursor.tp_row = tp.tp_row;
880 t->t_cursor.tp_col = width;
881 t->t_stateflags &= ~TS_WRAPPED;
883 /* No line wrapping needed. */
884 teken_subr_do_putchar(t, &t->t_cursor, c, width);
885 t->t_cursor.tp_col += width;
887 if (t->t_cursor.tp_col >= t->t_winsize.tp_col) {
888 t->t_stateflags |= TS_WRAPPED;
889 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
891 t->t_stateflags &= ~TS_WRAPPED;
895 teken_funcs_cursor(t);
899 teken_subr_reset_dec_mode(teken_t *t, unsigned int cmd)
903 case 1: /* Cursor keys mode. */
904 t->t_stateflags &= ~TS_CURSORKEYS;
906 case 2: /* DECANM: ANSI/VT52 mode. */
907 teken_printf("DECRST VT52\n");
909 case 3: /* 132 column mode. */
910 teken_funcs_param(t, TP_132COLS, 0);
911 teken_subr_reset_to_initial_state(t);
913 case 5: /* Inverse video. */
914 teken_printf("DECRST inverse video\n");
916 case 6: /* Origin mode. */
917 t->t_stateflags &= ~TS_ORIGIN;
918 t->t_originreg.ts_begin = 0;
919 t->t_originreg.ts_end = t->t_winsize.tp_row;
920 t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
921 t->t_stateflags &= ~TS_WRAPPED;
922 teken_funcs_cursor(t);
924 case 7: /* Autowrap mode. */
925 t->t_stateflags &= ~TS_AUTOWRAP;
927 case 8: /* Autorepeat mode. */
928 teken_funcs_param(t, TP_AUTOREPEAT, 0);
930 case 25: /* Hide cursor. */
931 teken_funcs_param(t, TP_SHOWCURSOR, 0);
933 case 40: /* Disallow 132 columns. */
934 teken_printf("DECRST allow 132\n");
936 case 45: /* Disable reverse wraparound. */
937 teken_printf("DECRST reverse wraparound\n");
939 case 47: /* Switch to alternate buffer. */
940 teken_printf("Switch to alternate buffer\n");
942 case 1000: /* Mouse input. */
943 teken_funcs_param(t, TP_MOUSE, 0);
946 teken_printf("Unknown DECRST: %u\n", cmd);
951 teken_subr_reset_mode(teken_t *t, unsigned int cmd)
956 t->t_stateflags &= ~TS_INSERT;
959 teken_printf("Unknown reset mode: %u\n", cmd);
964 teken_subr_do_resize(teken_t *t)
967 t->t_scrollreg.ts_begin = 0;
968 t->t_scrollreg.ts_end = t->t_winsize.tp_row;
969 t->t_originreg = t->t_scrollreg;
973 teken_subr_do_reset(teken_t *t)
976 t->t_curattr = t->t_defattr;
977 t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
978 t->t_scrollreg.ts_begin = 0;
979 t->t_scrollreg.ts_end = t->t_winsize.tp_row;
980 t->t_originreg = t->t_scrollreg;
981 t->t_stateflags &= TS_8BIT|TS_CONS25;
982 t->t_stateflags |= TS_AUTOWRAP;
984 t->t_scs[0] = teken_scs_us_ascii;
985 t->t_scs[1] = teken_scs_us_ascii;
988 teken_subr_save_cursor(t);
989 teken_tab_default(t);
993 teken_subr_reset_to_initial_state(teken_t *t)
996 teken_subr_do_reset(t);
997 teken_subr_erase_display(t, 2);
998 teken_funcs_param(t, TP_SHOWCURSOR, 1);
999 teken_funcs_cursor(t);
1003 teken_subr_restore_cursor(teken_t *t)
1006 t->t_cursor = t->t_saved_cursor;
1007 t->t_curattr = t->t_saved_curattr;
1008 t->t_scs[t->t_curscs] = t->t_saved_curscs;
1009 t->t_stateflags &= ~TS_WRAPPED;
1011 /* Get out of origin mode when the cursor is moved outside. */
1012 if (t->t_cursor.tp_row < t->t_originreg.ts_begin ||
1013 t->t_cursor.tp_row >= t->t_originreg.ts_end) {
1014 t->t_stateflags &= ~TS_ORIGIN;
1015 t->t_originreg.ts_begin = 0;
1016 t->t_originreg.ts_end = t->t_winsize.tp_row;
1019 teken_funcs_cursor(t);
1023 teken_subr_reverse_index(teken_t *t)
1026 if (t->t_cursor.tp_row > t->t_scrollreg.ts_begin) {
1027 t->t_cursor.tp_row--;
1028 t->t_stateflags &= ~TS_WRAPPED;
1029 teken_funcs_cursor(t);
1031 teken_subr_do_scroll(t, -1);
1036 teken_subr_save_cursor(teken_t *t)
1039 t->t_saved_cursor = t->t_cursor;
1040 t->t_saved_curattr = t->t_curattr;
1041 t->t_saved_curscs = t->t_scs[t->t_curscs];
1045 teken_subr_secondary_device_attributes(teken_t *t, unsigned int request)
1049 const char response[] = "\x1B[>0;10;0c";
1050 teken_funcs_respond(t, response, sizeof response - 1);
1052 teken_printf("Unknown DA2\n");
1057 teken_subr_set_dec_mode(teken_t *t, unsigned int cmd)
1061 case 1: /* Cursor keys mode. */
1062 t->t_stateflags |= TS_CURSORKEYS;
1064 case 2: /* DECANM: ANSI/VT52 mode. */
1065 teken_printf("DECSET VT52\n");
1067 case 3: /* 132 column mode. */
1068 teken_funcs_param(t, TP_132COLS, 1);
1069 teken_subr_reset_to_initial_state(t);
1071 case 5: /* Inverse video. */
1072 teken_printf("DECSET inverse video\n");
1074 case 6: /* Origin mode. */
1075 t->t_stateflags |= TS_ORIGIN;
1076 t->t_originreg = t->t_scrollreg;
1077 t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
1078 t->t_cursor.tp_col = 0;
1079 t->t_stateflags &= ~TS_WRAPPED;
1080 teken_funcs_cursor(t);
1082 case 7: /* Autowrap mode. */
1083 t->t_stateflags |= TS_AUTOWRAP;
1085 case 8: /* Autorepeat mode. */
1086 teken_funcs_param(t, TP_AUTOREPEAT, 1);
1088 case 25: /* Display cursor. */
1089 teken_funcs_param(t, TP_SHOWCURSOR, 1);
1091 case 40: /* Allow 132 columns. */
1092 teken_printf("DECSET allow 132\n");
1094 case 45: /* Enable reverse wraparound. */
1095 teken_printf("DECSET reverse wraparound\n");
1097 case 47: /* Switch to alternate buffer. */
1098 teken_printf("Switch away from alternate buffer\n");
1100 case 1000: /* Mouse input. */
1101 teken_funcs_param(t, TP_MOUSE, 1);
1104 teken_printf("Unknown DECSET: %u\n", cmd);
1109 teken_subr_set_mode(teken_t *t, unsigned int cmd)
1114 teken_printf("Insert mode\n");
1115 t->t_stateflags |= TS_INSERT;
1118 teken_printf("Unknown set mode: %u\n", cmd);
1123 teken_subr_set_graphic_rendition(teken_t *t, unsigned int ncmds,
1124 unsigned int cmds[])
1128 /* No attributes means reset. */
1130 t->t_curattr = t->t_defattr;
1134 for (i = 0; i < ncmds; i++) {
1138 case 0: /* Reset. */
1139 t->t_curattr = t->t_defattr;
1142 t->t_curattr.ta_format |= TF_BOLD;
1144 case 4: /* Underline. */
1145 t->t_curattr.ta_format |= TF_UNDERLINE;
1147 case 5: /* Blink. */
1148 t->t_curattr.ta_format |= TF_BLINK;
1150 case 7: /* Reverse. */
1151 t->t_curattr.ta_format |= TF_REVERSE;
1153 case 22: /* Remove bold. */
1154 t->t_curattr.ta_format &= ~TF_BOLD;
1156 case 24: /* Remove underline. */
1157 t->t_curattr.ta_format &= ~TF_UNDERLINE;
1159 case 25: /* Remove blink. */
1160 t->t_curattr.ta_format &= ~TF_BLINK;
1162 case 27: /* Remove reverse. */
1163 t->t_curattr.ta_format &= ~TF_REVERSE;
1165 case 30: /* Set foreground color: black */
1166 case 31: /* Set foreground color: red */
1167 case 32: /* Set foreground color: green */
1168 case 33: /* Set foreground color: brown */
1169 case 34: /* Set foreground color: blue */
1170 case 35: /* Set foreground color: magenta */
1171 case 36: /* Set foreground color: cyan */
1172 case 37: /* Set foreground color: white */
1173 t->t_curattr.ta_fgcolor = n - 30;
1175 case 38: /* Set foreground color: 256 color mode */
1176 if (i + 2 >= ncmds || cmds[i + 1] != 5)
1178 t->t_curattr.ta_fgcolor = cmds[i + 2];
1181 case 39: /* Set default foreground color. */
1182 t->t_curattr.ta_fgcolor = t->t_defattr.ta_fgcolor;
1184 case 40: /* Set background color: black */
1185 case 41: /* Set background color: red */
1186 case 42: /* Set background color: green */
1187 case 43: /* Set background color: brown */
1188 case 44: /* Set background color: blue */
1189 case 45: /* Set background color: magenta */
1190 case 46: /* Set background color: cyan */
1191 case 47: /* Set background color: white */
1192 t->t_curattr.ta_bgcolor = n - 40;
1194 case 48: /* Set background color: 256 color mode */
1195 if (i + 2 >= ncmds || cmds[i + 1] != 5)
1197 t->t_curattr.ta_bgcolor = cmds[i + 2];
1200 case 49: /* Set default background color. */
1201 t->t_curattr.ta_bgcolor = t->t_defattr.ta_bgcolor;
1203 case 90: /* Set bright foreground color: black */
1204 case 91: /* Set bright foreground color: red */
1205 case 92: /* Set bright foreground color: green */
1206 case 93: /* Set bright foreground color: brown */
1207 case 94: /* Set bright foreground color: blue */
1208 case 95: /* Set bright foreground color: magenta */
1209 case 96: /* Set bright foreground color: cyan */
1210 case 97: /* Set bright foreground color: white */
1211 t->t_curattr.ta_fgcolor = n - 90 + 8;
1213 case 100: /* Set bright background color: black */
1214 case 101: /* Set bright background color: red */
1215 case 102: /* Set bright background color: green */
1216 case 103: /* Set bright background color: brown */
1217 case 104: /* Set bright background color: blue */
1218 case 105: /* Set bright background color: magenta */
1219 case 106: /* Set bright background color: cyan */
1220 case 107: /* Set bright background color: white */
1221 t->t_curattr.ta_bgcolor = n - 100 + 8;
1224 teken_printf("unsupported attribute %u\n", n);
1230 teken_subr_set_top_and_bottom_margins(teken_t *t, unsigned int top,
1231 unsigned int bottom)
1234 /* Adjust top row number. */
1237 /* Adjust bottom row number. */
1238 if (bottom == 0 || bottom > t->t_winsize.tp_row)
1239 bottom = t->t_winsize.tp_row;
1241 /* Invalid arguments. */
1242 if (top >= bottom - 1) {
1244 bottom = t->t_winsize.tp_row;
1247 /* Apply scrolling region. */
1248 t->t_scrollreg.ts_begin = top;
1249 t->t_scrollreg.ts_end = bottom;
1250 if (t->t_stateflags & TS_ORIGIN)
1251 t->t_originreg = t->t_scrollreg;
1253 /* Home cursor to the top left of the scrolling region. */
1254 t->t_cursor.tp_row = t->t_originreg.ts_begin;
1255 t->t_cursor.tp_col = 0;
1256 t->t_stateflags &= ~TS_WRAPPED;
1257 teken_funcs_cursor(t);
1261 teken_subr_single_height_double_width_line(teken_t *t __unused)
1264 teken_printf("single height double width???\n");
1268 teken_subr_single_height_single_width_line(teken_t *t __unused)
1271 teken_printf("single height single width???\n");
1275 teken_subr_string_terminator(teken_t *t __unused)
1279 * Strings are already terminated in teken_input_char() when ^[
1285 teken_subr_tab_clear(teken_t *t, unsigned int cmd)
1290 teken_tab_clear(t, t->t_cursor.tp_col);
1293 memset(&t->t_tabstops, 0, T_NUMCOL / 8);
1299 teken_subr_vertical_position_absolute(teken_t *t, unsigned int row)
1302 row = row - 1 + t->t_originreg.ts_begin;
1303 t->t_cursor.tp_row = row < t->t_originreg.ts_end ?
1304 row : t->t_originreg.ts_end - 1;
1306 t->t_stateflags &= ~TS_WRAPPED;
1307 teken_funcs_cursor(t);