freebsd-dev/sys/teken/teken_subr.h
Ed Schouten 0abe3145c3 Make ^L with cons25 and origin mode bit more sane.
Even though cons25 normally doesn't support origin regions, this
emulator does allow you to do it. It makes more sense to blank only the
origin region when emitting ^L instead of blanking the entire screen.
Apart from that, we should always place the cursor inside the origin
region, which doesn't happen right now.
2010-08-09 18:07:15 +00:00

1309 lines
30 KiB
C

/*-
* Copyright (c) 2008-2009 Ed Schouten <ed@FreeBSD.org>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* $FreeBSD$
*/
static void teken_subr_cursor_up(teken_t *, unsigned int);
static void teken_subr_erase_line(teken_t *, unsigned int);
static void teken_subr_regular_character(teken_t *, teken_char_t);
static void teken_subr_reset_to_initial_state(teken_t *);
static void teken_subr_save_cursor(teken_t *);
static inline int
teken_tab_isset(teken_t *t, unsigned int col)
{
unsigned int b, o;
if (col >= T_NUMCOL)
return ((col % 8) == 0);
b = col / (sizeof(unsigned int) * 8);
o = col % (sizeof(unsigned int) * 8);
return (t->t_tabstops[b] & (1 << o));
}
static inline void
teken_tab_clear(teken_t *t, unsigned int col)
{
unsigned int b, o;
if (col >= T_NUMCOL)
return;
b = col / (sizeof(unsigned int) * 8);
o = col % (sizeof(unsigned int) * 8);
t->t_tabstops[b] &= ~(1 << o);
}
static inline void
teken_tab_set(teken_t *t, unsigned int col)
{
unsigned int b, o;
if (col >= T_NUMCOL)
return;
b = col / (sizeof(unsigned int) * 8);
o = col % (sizeof(unsigned int) * 8);
t->t_tabstops[b] |= 1 << o;
}
static void
teken_tab_default(teken_t *t)
{
unsigned int i;
memset(&t->t_tabstops, 0, T_NUMCOL / 8);
for (i = 8; i < T_NUMCOL; i += 8)
teken_tab_set(t, i);
}
static void
teken_subr_do_scroll(teken_t *t, int amount)
{
teken_rect_t tr;
teken_pos_t tp;
teken_assert(t->t_cursor.tp_row <= t->t_winsize.tp_row);
teken_assert(t->t_scrollreg.ts_end <= t->t_winsize.tp_row);
teken_assert(amount != 0);
/* Copy existing data 1 line up. */
if (amount > 0) {
/* Scroll down. */
/* Copy existing data up. */
if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
tr.tr_begin.tp_row = t->t_scrollreg.ts_begin + amount;
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_row = t->t_scrollreg.ts_end;
tr.tr_end.tp_col = t->t_winsize.tp_col;
tp.tp_row = t->t_scrollreg.ts_begin;
tp.tp_col = 0;
teken_funcs_copy(t, &tr, &tp);
tr.tr_begin.tp_row = t->t_scrollreg.ts_end - amount;
} else {
tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
}
/* Clear the last lines. */
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_row = t->t_scrollreg.ts_end;
tr.tr_end.tp_col = t->t_winsize.tp_col;
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
} else {
/* Scroll up. */
amount = -amount;
/* Copy existing data down. */
if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_row = t->t_scrollreg.ts_end - amount;
tr.tr_end.tp_col = t->t_winsize.tp_col;
tp.tp_row = t->t_scrollreg.ts_begin + amount;
tp.tp_col = 0;
teken_funcs_copy(t, &tr, &tp);
tr.tr_end.tp_row = t->t_scrollreg.ts_begin + amount;
} else {
tr.tr_end.tp_row = t->t_scrollreg.ts_end;
}
/* Clear the first lines. */
tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_col = t->t_winsize.tp_col;
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
}
static ssize_t
teken_subr_do_cpr(teken_t *t, unsigned int cmd, char response[16])
{
switch (cmd) {
case 5: /* Operating status. */
strcpy(response, "0n");
return (2);
case 6: { /* Cursor position. */
int len;
len = snprintf(response, 16, "%u;%uR",
(t->t_cursor.tp_row - t->t_originreg.ts_begin) + 1,
t->t_cursor.tp_col + 1);
if (len >= 16)
return (-1);
return (len);
}
case 15: /* Printer status. */
strcpy(response, "13n");
return (3);
case 25: /* UDK status. */
strcpy(response, "20n");
return (3);
case 26: /* Keyboard status. */
strcpy(response, "27;1n");
return (5);
default:
teken_printf("Unknown DSR\n");
return (-1);
}
}
static void
teken_subr_alignment_test(teken_t *t)
{
teken_rect_t tr;
t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
t->t_scrollreg.ts_begin = 0;
t->t_scrollreg.ts_end = t->t_winsize.tp_row;
t->t_originreg = t->t_scrollreg;
t->t_stateflags &= ~(TS_WRAPPED|TS_ORIGIN);
teken_funcs_cursor(t);
tr.tr_begin.tp_row = 0;
tr.tr_begin.tp_col = 0;
tr.tr_end = t->t_winsize;
teken_funcs_fill(t, &tr, 'E', &t->t_defattr);
}
static void
teken_subr_backspace(teken_t *t)
{
if (t->t_stateflags & TS_CONS25) {
if (t->t_cursor.tp_col == 0) {
if (t->t_cursor.tp_row == t->t_originreg.ts_begin)
return;
t->t_cursor.tp_row--;
t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
} else {
t->t_cursor.tp_col--;
}
} else {
if (t->t_cursor.tp_col == 0)
return;
t->t_cursor.tp_col--;
t->t_stateflags &= ~TS_WRAPPED;
}
teken_funcs_cursor(t);
}
static void
teken_subr_bell(teken_t *t)
{
teken_funcs_bell(t);
}
static void
teken_subr_carriage_return(teken_t *t)
{
t->t_cursor.tp_col = 0;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_backward(teken_t *t, unsigned int ncols)
{
if (ncols > t->t_cursor.tp_col)
t->t_cursor.tp_col = 0;
else
t->t_cursor.tp_col -= ncols;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_backward_tabulation(teken_t *t, unsigned int ntabs)
{
do {
/* Stop when we've reached the beginning of the line. */
if (t->t_cursor.tp_col == 0)
break;
t->t_cursor.tp_col--;
/* Tab marker set. */
if (teken_tab_isset(t, t->t_cursor.tp_col))
ntabs--;
} while (ntabs > 0);
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_down(teken_t *t, unsigned int nrows)
{
if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end)
t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
else
t->t_cursor.tp_row += nrows;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_forward(teken_t *t, unsigned int ncols)
{
if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
else
t->t_cursor.tp_col += ncols;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_forward_tabulation(teken_t *t, unsigned int ntabs)
{
do {
/* Stop when we've reached the end of the line. */
if (t->t_cursor.tp_col == t->t_winsize.tp_col - 1)
break;
t->t_cursor.tp_col++;
/* Tab marker set. */
if (teken_tab_isset(t, t->t_cursor.tp_col))
ntabs--;
} while (ntabs > 0);
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_next_line(teken_t *t, unsigned int ncols)
{
t->t_cursor.tp_col = 0;
teken_subr_cursor_down(t, ncols);
}
static void
teken_subr_cursor_position(teken_t *t, unsigned int row, unsigned int col)
{
t->t_cursor.tp_row = t->t_originreg.ts_begin + row - 1;
if (row >= t->t_originreg.ts_end)
t->t_cursor.tp_row = t->t_originreg.ts_end - 1;
t->t_cursor.tp_col = col - 1;
if (t->t_cursor.tp_col >= t->t_winsize.tp_col)
t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_cursor_position_report(teken_t *t, unsigned int cmd)
{
char response[18] = "\x1B[";
ssize_t len;
len = teken_subr_do_cpr(t, cmd, response + 2);
if (len < 0)
return;
teken_funcs_respond(t, response, len + 2);
}
static void
teken_subr_cursor_previous_line(teken_t *t, unsigned int ncols)
{
t->t_cursor.tp_col = 0;
teken_subr_cursor_up(t, ncols);
}
static void
teken_subr_cursor_up(teken_t *t, unsigned int nrows)
{
if (t->t_scrollreg.ts_begin + nrows >= t->t_cursor.tp_row)
t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
else
t->t_cursor.tp_row -= nrows;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_delete_character(teken_t *t, unsigned int ncols)
{
teken_rect_t tr;
tr.tr_begin.tp_row = t->t_cursor.tp_row;
tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
tr.tr_end.tp_col = t->t_winsize.tp_col;
if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
tr.tr_begin.tp_col = t->t_cursor.tp_col;
} else {
/* Copy characters to the left. */
tr.tr_begin.tp_col = t->t_cursor.tp_col + ncols;
teken_funcs_copy(t, &tr, &t->t_cursor);
tr.tr_begin.tp_col = t->t_winsize.tp_col - ncols;
}
/* Blank trailing columns. */
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
static void
teken_subr_delete_line(teken_t *t, unsigned int nrows)
{
teken_rect_t tr;
/* Ignore if outside scrolling region. */
if (t->t_cursor.tp_row < t->t_scrollreg.ts_begin ||
t->t_cursor.tp_row >= t->t_scrollreg.ts_end)
return;
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_row = t->t_scrollreg.ts_end;
tr.tr_end.tp_col = t->t_winsize.tp_col;
if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
tr.tr_begin.tp_row = t->t_cursor.tp_row;
} else {
teken_pos_t tp;
/* Copy rows up. */
tr.tr_begin.tp_row = t->t_cursor.tp_row + nrows;
tp.tp_row = t->t_cursor.tp_row;
tp.tp_col = 0;
teken_funcs_copy(t, &tr, &tp);
tr.tr_begin.tp_row = t->t_scrollreg.ts_end - nrows;
}
/* Blank trailing rows. */
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
static void
teken_subr_device_control_string(teken_t *t)
{
teken_printf("Unsupported device control string\n");
t->t_stateflags |= TS_INSTRING;
}
static void
teken_subr_device_status_report(teken_t *t, unsigned int cmd)
{
char response[19] = "\x1B[?";
ssize_t len;
len = teken_subr_do_cpr(t, cmd, response + 3);
if (len < 0)
return;
teken_funcs_respond(t, response, len + 3);
}
static void
teken_subr_double_height_double_width_line_top(teken_t *t __unused)
{
teken_printf("double height double width top\n");
}
static void
teken_subr_double_height_double_width_line_bottom(teken_t *t __unused)
{
teken_printf("double height double width bottom\n");
}
static void
teken_subr_erase_character(teken_t *t, unsigned int ncols)
{
teken_rect_t tr;
tr.tr_begin = t->t_cursor;
tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
tr.tr_end.tp_col = t->t_winsize.tp_col;
else
tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
static void
teken_subr_erase_display(teken_t *t, unsigned int mode)
{
teken_rect_t r;
r.tr_begin.tp_col = 0;
r.tr_end.tp_col = t->t_winsize.tp_col;
switch (mode) {
case 1: /* Erase from the top to the cursor. */
teken_subr_erase_line(t, 1);
/* Erase lines above. */
if (t->t_cursor.tp_row == 0)
return;
r.tr_begin.tp_row = 0;
r.tr_end.tp_row = t->t_cursor.tp_row;
break;
case 2: /* Erase entire display. */
r.tr_begin.tp_row = 0;
r.tr_end.tp_row = t->t_winsize.tp_row;
break;
default: /* Erase from cursor to the bottom. */
teken_subr_erase_line(t, 0);
/* Erase lines below. */
if (t->t_cursor.tp_row == t->t_winsize.tp_row - 1)
return;
r.tr_begin.tp_row = t->t_cursor.tp_row + 1;
r.tr_end.tp_row = t->t_winsize.tp_row;
break;
}
teken_funcs_fill(t, &r, BLANK, &t->t_curattr);
}
static void
teken_subr_erase_line(teken_t *t, unsigned int mode)
{
teken_rect_t r;
r.tr_begin.tp_row = t->t_cursor.tp_row;
r.tr_end.tp_row = t->t_cursor.tp_row + 1;
switch (mode) {
case 1: /* Erase from the beginning of the line to the cursor. */
r.tr_begin.tp_col = 0;
r.tr_end.tp_col = t->t_cursor.tp_col + 1;
break;
case 2: /* Erase entire line. */
r.tr_begin.tp_col = 0;
r.tr_end.tp_col = t->t_winsize.tp_col;
break;
default: /* Erase from cursor to the end of the line. */
r.tr_begin.tp_col = t->t_cursor.tp_col;
r.tr_end.tp_col = t->t_winsize.tp_col;
break;
}
teken_funcs_fill(t, &r, BLANK, &t->t_curattr);
}
static void
teken_subr_g0_scs_special_graphics(teken_t *t __unused)
{
t->t_scs[0] = teken_scs_special_graphics;
}
static void
teken_subr_g0_scs_uk_national(teken_t *t __unused)
{
t->t_scs[0] = teken_scs_uk_national;
}
static void
teken_subr_g0_scs_us_ascii(teken_t *t __unused)
{
t->t_scs[0] = teken_scs_us_ascii;
}
static void
teken_subr_g1_scs_special_graphics(teken_t *t __unused)
{
t->t_scs[1] = teken_scs_special_graphics;
}
static void
teken_subr_g1_scs_uk_national(teken_t *t __unused)
{
t->t_scs[1] = teken_scs_uk_national;
}
static void
teken_subr_g1_scs_us_ascii(teken_t *t __unused)
{
t->t_scs[1] = teken_scs_us_ascii;
}
static void
teken_subr_horizontal_position_absolute(teken_t *t, unsigned int col)
{
t->t_cursor.tp_col = col - 1;
if (t->t_cursor.tp_col >= t->t_winsize.tp_col)
t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_horizontal_tab(teken_t *t)
{
if (t->t_stateflags & TS_CONS25) {
teken_subr_cursor_forward_tabulation(t, 1);
} else {
teken_rect_t tr;
tr.tr_begin = t->t_cursor;
teken_subr_cursor_forward_tabulation(t, 1);
tr.tr_end.tp_row = tr.tr_begin.tp_row + 1;
tr.tr_end.tp_col = t->t_cursor.tp_col;
/* Blank region that we skipped. */
if (tr.tr_end.tp_col > tr.tr_begin.tp_col)
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
}
static void
teken_subr_horizontal_tab_set(teken_t *t)
{
teken_tab_set(t, t->t_cursor.tp_col);
}
static void
teken_subr_index(teken_t *t)
{
if (t->t_cursor.tp_row < t->t_scrollreg.ts_end - 1) {
t->t_cursor.tp_row++;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
} else {
teken_subr_do_scroll(t, 1);
}
}
static void
teken_subr_insert_character(teken_t *t, unsigned int ncols)
{
teken_rect_t tr;
tr.tr_begin = t->t_cursor;
tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
tr.tr_end.tp_col = t->t_winsize.tp_col;
} else {
teken_pos_t tp;
/* Copy characters to the right. */
tr.tr_end.tp_col = t->t_winsize.tp_col - ncols;
tp.tp_row = t->t_cursor.tp_row;
tp.tp_col = t->t_cursor.tp_col + ncols;
teken_funcs_copy(t, &tr, &tp);
tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
}
/* Blank current location. */
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
static void
teken_subr_insert_line(teken_t *t, unsigned int nrows)
{
teken_rect_t tr;
/* Ignore if outside scrolling region. */
if (t->t_cursor.tp_row < t->t_scrollreg.ts_begin ||
t->t_cursor.tp_row >= t->t_scrollreg.ts_end)
return;
tr.tr_begin.tp_row = t->t_cursor.tp_row;
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_col = t->t_winsize.tp_col;
if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
tr.tr_end.tp_row = t->t_scrollreg.ts_end;
} else {
teken_pos_t tp;
/* Copy lines down. */
tr.tr_end.tp_row = t->t_scrollreg.ts_end - nrows;
tp.tp_row = t->t_cursor.tp_row + nrows;
tp.tp_col = 0;
teken_funcs_copy(t, &tr, &tp);
tr.tr_end.tp_row = t->t_cursor.tp_row + nrows;
}
/* Blank current location. */
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
}
static void
teken_subr_keypad_application_mode(teken_t *t)
{
teken_funcs_param(t, TP_KEYPADAPP, 1);
}
static void
teken_subr_keypad_numeric_mode(teken_t *t)
{
teken_funcs_param(t, TP_KEYPADAPP, 0);
}
static void
teken_subr_newline(teken_t *t)
{
t->t_cursor.tp_row++;
if (t->t_cursor.tp_row >= t->t_scrollreg.ts_end) {
teken_subr_do_scroll(t, 1);
t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
}
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_newpage(teken_t *t)
{
if (t->t_stateflags & TS_CONS25) {
teken_rect_t tr;
/* Clear screen. */
tr.tr_begin.tp_row = t->t_originreg.ts_begin;
tr.tr_begin.tp_col = 0;
tr.tr_end.tp_row = t->t_originreg.ts_end;
tr.tr_end.tp_col = t->t_winsize.tp_col;
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
/* Cursor at top left. */
t->t_cursor.tp_row = t->t_originreg.ts_begin;
t->t_cursor.tp_col = 0;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
} else {
teken_subr_newline(t);
}
}
static void
teken_subr_next_line(teken_t *t)
{
t->t_cursor.tp_col = 0;
teken_subr_newline(t);
}
static void
teken_subr_operating_system_command(teken_t *t)
{
teken_printf("Unsupported operating system command\n");
t->t_stateflags |= TS_INSTRING;
}
static void
teken_subr_pan_down(teken_t *t, unsigned int nrows)
{
teken_subr_do_scroll(t, (int)nrows);
}
static void
teken_subr_pan_up(teken_t *t, unsigned int nrows)
{
teken_subr_do_scroll(t, -(int)nrows);
}
static void
teken_subr_primary_device_attributes(teken_t *t, unsigned int request)
{
if (request == 0) {
const char response[] = "\x1B[?1;2c";
teken_funcs_respond(t, response, sizeof response - 1);
} else {
teken_printf("Unknown DA1\n");
}
}
static void
teken_subr_do_putchar(teken_t *t, const teken_pos_t *tp, teken_char_t c,
int width)
{
if (t->t_stateflags & TS_INSERT &&
tp->tp_col < t->t_winsize.tp_col - width) {
teken_rect_t ctr;
teken_pos_t ctp;
/* Insert mode. Move existing characters to the right. */
ctr.tr_begin = *tp;
ctr.tr_end.tp_row = tp->tp_row + 1;
ctr.tr_end.tp_col = t->t_winsize.tp_col - width;
ctp.tp_row = tp->tp_row;
ctp.tp_col = tp->tp_col + width;
teken_funcs_copy(t, &ctr, &ctp);
}
if (width == 2 && tp->tp_col + 1 < t->t_winsize.tp_col) {
teken_pos_t tp2;
/*
* Store a space behind double width characters before
* actually printing them. This prevents artifacts when
* the consumer doesn't render it using double width
* glyphs.
*/
tp2.tp_row = tp->tp_row;
tp2.tp_col = tp->tp_col + 1;
teken_funcs_putchar(t, &tp2, BLANK, &t->t_curattr);
}
teken_funcs_putchar(t, tp, c, &t->t_curattr);
}
static void
teken_subr_regular_character(teken_t *t, teken_char_t c)
{
int width;
if (t->t_stateflags & TS_8BIT) {
if (!(t->t_stateflags & TS_CONS25) && (c <= 0x1b || c == 0x7f))
return;
c = teken_scs_process(t, c);
width = 1;
} else {
c = teken_scs_process(t, c);
width = teken_wcwidth(c);
/* XXX: Don't process zero-width characters yet. */
if (width <= 0)
return;
}
if (t->t_stateflags & TS_CONS25) {
teken_subr_do_putchar(t, &t->t_cursor, c, width);
t->t_cursor.tp_col += width;
if (t->t_cursor.tp_col >= t->t_winsize.tp_col) {
if (t->t_cursor.tp_row == t->t_scrollreg.ts_end - 1) {
/* Perform scrolling. */
teken_subr_do_scroll(t, 1);
} else {
/* No scrolling needed. */
if (t->t_cursor.tp_row <
t->t_winsize.tp_row - 1)
t->t_cursor.tp_row++;
}
t->t_cursor.tp_col = 0;
}
} else if (t->t_cursor.tp_col == t->t_winsize.tp_col - 1 &&
(t->t_stateflags & (TS_WRAPPED|TS_AUTOWRAP)) ==
(TS_WRAPPED|TS_AUTOWRAP)) {
teken_pos_t tp;
/* Perform line wrapping. */
if (t->t_cursor.tp_row == t->t_scrollreg.ts_end - 1) {
/* Perform scrolling. */
teken_subr_do_scroll(t, 1);
tp.tp_row = t->t_scrollreg.ts_end - 1;
} else {
/* No scrolling needed. */
tp.tp_row = t->t_cursor.tp_row + 1;
if (tp.tp_row == t->t_winsize.tp_row) {
/*
* Corner case: regular character
* outside scrolling region, but at the
* bottom of the screen.
*/
teken_subr_do_putchar(t, &t->t_cursor,
c, width);
return;
}
}
tp.tp_col = 0;
teken_subr_do_putchar(t, &tp, c, width);
t->t_cursor.tp_row = tp.tp_row;
t->t_cursor.tp_col = width;
t->t_stateflags &= ~TS_WRAPPED;
} else {
/* No line wrapping needed. */
teken_subr_do_putchar(t, &t->t_cursor, c, width);
t->t_cursor.tp_col += width;
if (t->t_cursor.tp_col >= t->t_winsize.tp_col) {
t->t_stateflags |= TS_WRAPPED;
t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
} else {
t->t_stateflags &= ~TS_WRAPPED;
}
}
teken_funcs_cursor(t);
}
static void
teken_subr_reset_dec_mode(teken_t *t, unsigned int cmd)
{
switch (cmd) {
case 1: /* Cursor keys mode. */
t->t_stateflags &= ~TS_CURSORKEYS;
break;
case 2: /* DECANM: ANSI/VT52 mode. */
teken_printf("DECRST VT52\n");
break;
case 3: /* 132 column mode. */
teken_funcs_param(t, TP_132COLS, 0);
teken_subr_reset_to_initial_state(t);
break;
case 5: /* Inverse video. */
teken_printf("DECRST inverse video\n");
break;
case 6: /* Origin mode. */
t->t_stateflags &= ~TS_ORIGIN;
t->t_originreg.ts_begin = 0;
t->t_originreg.ts_end = t->t_winsize.tp_row;
t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
break;
case 7: /* Autowrap mode. */
t->t_stateflags &= ~TS_AUTOWRAP;
break;
case 8: /* Autorepeat mode. */
teken_funcs_param(t, TP_AUTOREPEAT, 0);
break;
case 25: /* Hide cursor. */
teken_funcs_param(t, TP_SHOWCURSOR, 0);
break;
case 40: /* Disallow 132 columns. */
teken_printf("DECRST allow 132\n");
break;
case 45: /* Disable reverse wraparound. */
teken_printf("DECRST reverse wraparound\n");
break;
case 47: /* Switch to alternate buffer. */
teken_printf("Switch to alternate buffer\n");
break;
case 1000: /* Mouse input. */
teken_funcs_param(t, TP_MOUSE, 0);
break;
default:
teken_printf("Unknown DECRST: %u\n", cmd);
}
}
static void
teken_subr_reset_mode(teken_t *t, unsigned int cmd)
{
switch (cmd) {
case 4:
t->t_stateflags &= ~TS_INSERT;
break;
default:
teken_printf("Unknown reset mode: %u\n", cmd);
}
}
static void
teken_subr_do_reset(teken_t *t)
{
t->t_curattr = t->t_defattr;
t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
t->t_scrollreg.ts_begin = 0;
t->t_scrollreg.ts_end = t->t_winsize.tp_row;
t->t_originreg = t->t_scrollreg;
t->t_stateflags &= TS_8BIT|TS_CONS25;
t->t_stateflags |= TS_AUTOWRAP;
t->t_scs[0] = teken_scs_us_ascii;
t->t_scs[1] = teken_scs_us_ascii;
t->t_curscs = 0;
teken_subr_save_cursor(t);
teken_tab_default(t);
}
static void
teken_subr_reset_to_initial_state(teken_t *t)
{
teken_subr_do_reset(t);
teken_subr_erase_display(t, 2);
teken_funcs_param(t, TP_SHOWCURSOR, 1);
teken_funcs_cursor(t);
}
static void
teken_subr_restore_cursor(teken_t *t)
{
t->t_cursor = t->t_saved_cursor;
t->t_curattr = t->t_saved_curattr;
t->t_scs[t->t_curscs] = t->t_saved_curscs;
t->t_stateflags &= ~TS_WRAPPED;
/* Get out of origin mode when the cursor is moved outside. */
if (t->t_cursor.tp_row < t->t_originreg.ts_begin ||
t->t_cursor.tp_row >= t->t_originreg.ts_end) {
t->t_stateflags &= ~TS_ORIGIN;
t->t_originreg.ts_begin = 0;
t->t_originreg.ts_end = t->t_winsize.tp_row;
}
teken_funcs_cursor(t);
}
static void
teken_subr_reverse_index(teken_t *t)
{
if (t->t_cursor.tp_row > t->t_scrollreg.ts_begin) {
t->t_cursor.tp_row--;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
} else {
teken_subr_do_scroll(t, -1);
}
}
static void
teken_subr_save_cursor(teken_t *t)
{
t->t_saved_cursor = t->t_cursor;
t->t_saved_curattr = t->t_curattr;
t->t_saved_curscs = t->t_scs[t->t_curscs];
}
static void
teken_subr_secondary_device_attributes(teken_t *t, unsigned int request)
{
if (request == 0) {
const char response[] = "\x1B[>0;10;0c";
teken_funcs_respond(t, response, sizeof response - 1);
} else {
teken_printf("Unknown DA2\n");
}
}
static void
teken_subr_set_dec_mode(teken_t *t, unsigned int cmd)
{
switch (cmd) {
case 1: /* Cursor keys mode. */
t->t_stateflags |= TS_CURSORKEYS;
break;
case 2: /* DECANM: ANSI/VT52 mode. */
teken_printf("DECSET VT52\n");
break;
case 3: /* 132 column mode. */
teken_funcs_param(t, TP_132COLS, 1);
teken_subr_reset_to_initial_state(t);
break;
case 5: /* Inverse video. */
teken_printf("DECSET inverse video\n");
break;
case 6: /* Origin mode. */
t->t_stateflags |= TS_ORIGIN;
t->t_originreg = t->t_scrollreg;
t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
t->t_cursor.tp_col = 0;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
break;
case 7: /* Autowrap mode. */
t->t_stateflags |= TS_AUTOWRAP;
break;
case 8: /* Autorepeat mode. */
teken_funcs_param(t, TP_AUTOREPEAT, 1);
break;
case 25: /* Display cursor. */
teken_funcs_param(t, TP_SHOWCURSOR, 1);
break;
case 40: /* Allow 132 columns. */
teken_printf("DECSET allow 132\n");
break;
case 45: /* Enable reverse wraparound. */
teken_printf("DECSET reverse wraparound\n");
break;
case 47: /* Switch to alternate buffer. */
teken_printf("Switch away from alternate buffer\n");
break;
case 1000: /* Mouse input. */
teken_funcs_param(t, TP_MOUSE, 1);
break;
default:
teken_printf("Unknown DECSET: %u\n", cmd);
}
}
static void
teken_subr_set_mode(teken_t *t, unsigned int cmd)
{
switch (cmd) {
case 4:
teken_printf("Insert mode\n");
t->t_stateflags |= TS_INSERT;
break;
default:
teken_printf("Unknown set mode: %u\n", cmd);
}
}
static void
teken_subr_set_graphic_rendition(teken_t *t, unsigned int ncmds,
unsigned int cmds[])
{
unsigned int i, n;
/* No attributes means reset. */
if (ncmds == 0) {
t->t_curattr = t->t_defattr;
return;
}
for (i = 0; i < ncmds; i++) {
n = cmds[i];
switch (n) {
case 0: /* Reset. */
t->t_curattr = t->t_defattr;
break;
case 1: /* Bold. */
t->t_curattr.ta_format |= TF_BOLD;
break;
case 4: /* Underline. */
t->t_curattr.ta_format |= TF_UNDERLINE;
break;
case 5: /* Blink. */
t->t_curattr.ta_format |= TF_BLINK;
break;
case 7: /* Reverse. */
t->t_curattr.ta_format |= TF_REVERSE;
break;
case 22: /* Remove bold. */
t->t_curattr.ta_format &= ~TF_BOLD;
break;
case 24: /* Remove underline. */
t->t_curattr.ta_format &= ~TF_UNDERLINE;
break;
case 25: /* Remove blink. */
t->t_curattr.ta_format &= ~TF_BLINK;
break;
case 27: /* Remove reverse. */
t->t_curattr.ta_format &= ~TF_REVERSE;
break;
case 30: /* Set foreground color: black */
case 31: /* Set foreground color: red */
case 32: /* Set foreground color: green */
case 33: /* Set foreground color: brown */
case 34: /* Set foreground color: blue */
case 35: /* Set foreground color: magenta */
case 36: /* Set foreground color: cyan */
case 37: /* Set foreground color: white */
t->t_curattr.ta_fgcolor = n - 30;
break;
case 38: /* Set foreground color: 256 color mode */
if (i + 2 >= ncmds || cmds[i + 1] != 5)
continue;
t->t_curattr.ta_fgcolor = cmds[i + 2];
i += 2;
break;
case 39: /* Set default foreground color. */
t->t_curattr.ta_fgcolor = t->t_defattr.ta_fgcolor;
break;
case 40: /* Set background color: black */
case 41: /* Set background color: red */
case 42: /* Set background color: green */
case 43: /* Set background color: brown */
case 44: /* Set background color: blue */
case 45: /* Set background color: magenta */
case 46: /* Set background color: cyan */
case 47: /* Set background color: white */
t->t_curattr.ta_bgcolor = n - 40;
break;
case 48: /* Set background color: 256 color mode */
if (i + 2 >= ncmds || cmds[i + 1] != 5)
continue;
t->t_curattr.ta_bgcolor = cmds[i + 2];
i += 2;
break;
case 49: /* Set default background color. */
t->t_curattr.ta_bgcolor = t->t_defattr.ta_bgcolor;
break;
case 90: /* Set bright foreground color: black */
case 91: /* Set bright foreground color: red */
case 92: /* Set bright foreground color: green */
case 93: /* Set bright foreground color: brown */
case 94: /* Set bright foreground color: blue */
case 95: /* Set bright foreground color: magenta */
case 96: /* Set bright foreground color: cyan */
case 97: /* Set bright foreground color: white */
t->t_curattr.ta_fgcolor = n - 90 + 8;
break;
case 100: /* Set bright background color: black */
case 101: /* Set bright background color: red */
case 102: /* Set bright background color: green */
case 103: /* Set bright background color: brown */
case 104: /* Set bright background color: blue */
case 105: /* Set bright background color: magenta */
case 106: /* Set bright background color: cyan */
case 107: /* Set bright background color: white */
t->t_curattr.ta_bgcolor = n - 100 + 8;
break;
default:
teken_printf("unsupported attribute %u\n", n);
}
}
}
static void
teken_subr_set_top_and_bottom_margins(teken_t *t, unsigned int top,
unsigned int bottom)
{
/* Adjust top row number. */
if (top > 0)
top--;
/* Adjust bottom row number. */
if (bottom == 0 || bottom > t->t_winsize.tp_row)
bottom = t->t_winsize.tp_row;
/* Invalid arguments. */
if (top >= bottom - 1) {
top = 0;
bottom = t->t_winsize.tp_row;
}
/* Apply scrolling region. */
t->t_scrollreg.ts_begin = top;
t->t_scrollreg.ts_end = bottom;
if (t->t_stateflags & TS_ORIGIN)
t->t_originreg = t->t_scrollreg;
/* Home cursor to the top left of the scrolling region. */
t->t_cursor.tp_row = t->t_originreg.ts_begin;
t->t_cursor.tp_col = 0;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}
static void
teken_subr_single_height_double_width_line(teken_t *t __unused)
{
teken_printf("single height double width???\n");
}
static void
teken_subr_single_height_single_width_line(teken_t *t __unused)
{
teken_printf("single height single width???\n");
}
static void
teken_subr_string_terminator(teken_t *t __unused)
{
/*
* Strings are already terminated in teken_input_char() when ^[
* is inserted.
*/
}
static void
teken_subr_tab_clear(teken_t *t, unsigned int cmd)
{
switch (cmd) {
case 0:
teken_tab_clear(t, t->t_cursor.tp_col);
break;
case 3:
memset(&t->t_tabstops, 0, T_NUMCOL / 8);
break;
}
}
static void
teken_subr_vertical_position_absolute(teken_t *t, unsigned int row)
{
t->t_cursor.tp_row = t->t_originreg.ts_begin + row - 1;
if (row >= t->t_originreg.ts_end)
t->t_cursor.tp_row = t->t_originreg.ts_end - 1;
t->t_stateflags &= ~TS_WRAPPED;
teken_funcs_cursor(t);
}