This means we can finally do things like VT100 box drawing when using Syscons (8-bit characters). As far as I know, the only remaining issue is the absense of proper escape sequences for special keyboard characters (cursor, F1 to F12, etc) and xterm emulation should be ready for general use. Enabling xterm would have the following advantages: - Easier possible migration to Unicode. cons25 termcap entries are very 8-bit centric. They use things like CP437 characters for box drawing, etc. - Better support for SSH'ing to other operating systems/devices. Most switches use VT100-style admin interfaces. - Reduced bandwidth, because applications can now use things like scrolling regions. - You can finally use applications like dtach(1) on both the console and inside an xterm.
1233 lines
27 KiB
C
1233 lines
27 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_scrollreg.ts_begin = 0;
|
|
t->t_scrollreg.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);
|
|
|
|
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;
|
|
|
|
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 __unused)
|
|
{
|
|
|
|
teken_printf("device control string???\n");
|
|
}
|
|
|
|
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)
|
|
{
|
|
|
|
teken_scs_set(t, 0, teken_scs_special_graphics);
|
|
}
|
|
|
|
static void
|
|
teken_subr_g0_scs_uk_national(teken_t *t __unused)
|
|
{
|
|
|
|
teken_scs_set(t, 0, teken_scs_uk_national);
|
|
}
|
|
|
|
static void
|
|
teken_subr_g0_scs_us_ascii(teken_t *t __unused)
|
|
{
|
|
|
|
teken_scs_set(t, 0, teken_scs_us_ascii);
|
|
}
|
|
|
|
static void
|
|
teken_subr_g1_scs_special_graphics(teken_t *t __unused)
|
|
{
|
|
|
|
teken_scs_set(t, 1, teken_scs_special_graphics);
|
|
}
|
|
|
|
static void
|
|
teken_subr_g1_scs_uk_national(teken_t *t __unused)
|
|
{
|
|
|
|
teken_scs_set(t, 1, teken_scs_uk_national);
|
|
}
|
|
|
|
static void
|
|
teken_subr_g1_scs_us_ascii(teken_t *t __unused)
|
|
{
|
|
|
|
teken_scs_set(t, 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;
|
|
|
|
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;
|
|
|
|
tr.tr_begin.tp_row = tr.tr_begin.tp_col = 0;
|
|
tr.tr_end = t->t_winsize;
|
|
teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
|
|
|
|
t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
|
|
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_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. */
|
|
teken_funcs_param(t, TP_CURSORKEYS, 0);
|
|
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;
|
|
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;
|
|
|
|
teken_scs_set(t, 0, teken_scs_us_ascii);
|
|
teken_scs_set(t, 1, teken_scs_us_ascii);
|
|
teken_scs_switch(t, 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_stateflags &= ~TS_WRAPPED;
|
|
teken_scs_restore(t);
|
|
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;
|
|
teken_scs_save(t);
|
|
}
|
|
|
|
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. */
|
|
teken_funcs_param(t, TP_CURSORKEYS, 1);
|
|
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;
|
|
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 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 49: /* Set default background color. */
|
|
t->t_curattr.ta_bgcolor = t->t_defattr.ta_bgcolor;
|
|
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;
|
|
}
|
|
|
|
t->t_scrollreg.ts_begin = top;
|
|
t->t_scrollreg.ts_end = bottom;
|
|
if (t->t_stateflags & TS_ORIGIN) {
|
|
/* XXX: home cursor? */
|
|
t->t_originreg = t->t_scrollreg;
|
|
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)
|
|
{
|
|
|
|
teken_printf("string terminator???\n");
|
|
}
|
|
|
|
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);
|
|
}
|