GCOV - Varnish Cache


/*-
 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
 *
 * 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: head/sys/teken/teken_subr.h 333995 2018-05-21 20:35:16Z dumbbell $
 */

static void teken_subr_cursor_up(teken_t *, unsigned int);
static void teken_subr_erase_line(const 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(const 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] & (1U << 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] &= ~(1U << 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] |= 1U << 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(const 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(const 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(const 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)
{

        row = (row - 1) + t->t_originreg.ts_begin;
        t->t_cursor.tp_row = row < t->t_originreg.ts_end ?
            row : t->t_originreg.ts_end - 1;

        col--;
        t->t_cursor.tp_col = col < t->t_winsize.tp_col ?
            col : t->t_winsize.tp_col - 1;

        t->t_stateflags &= ~TS_WRAPPED;
        teken_funcs_cursor(t);
}

static void
teken_subr_cursor_position_report(const 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_set_cursor_style(teken_t *t, unsigned int style)
{

        /* TODO */
        (void)t;
        (void)style;

        /*
         * CSI Ps SP q
         *   Set cursor style (DECSCUSR), VT520.
         *     Ps = 0  -> blinking block.
         *     Ps = 1  -> blinking block (default).
         *     Ps = 2  -> steady block.
         *     Ps = 3  -> blinking underline.
         *     Ps = 4  -> steady underline.
         *     Ps = 5  -> blinking bar (xterm).
         *     Ps = 6  -> steady bar (xterm).
         */
}

static void
teken_subr_delete_character(const 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(const 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(const 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(const teken_t *t)
{

        (void)t;
        teken_printf("double height double width top\n");
}

static void
teken_subr_double_height_double_width_line_bottom(const teken_t *t)
{

        (void)t;
        teken_printf("double height double width bottom\n");
}

static void
teken_subr_erase_character(const 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(const 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(const 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)
{

        t->t_scs[0] = teken_scs_special_graphics;
}

static void
teken_subr_g0_scs_uk_national(teken_t *t)
{

        t->t_scs[0] = teken_scs_uk_national;
}

static void
teken_subr_g0_scs_us_ascii(teken_t *t)
{

        t->t_scs[0] = teken_scs_us_ascii;
}

static void
teken_subr_g1_scs_special_graphics(teken_t *t)
{

        t->t_scs[1] = teken_scs_special_graphics;
}

static void
teken_subr_g1_scs_uk_national(teken_t *t)
{

        t->t_scs[1] = teken_scs_uk_national;
}

static void
teken_subr_g1_scs_us_ascii(teken_t *t)
{

        t->t_scs[1] = teken_scs_us_ascii;
}

static void
teken_subr_horizontal_position_absolute(teken_t *t, unsigned int col)
{

        col--;
        t->t_cursor.tp_col = col < t->t_winsize.tp_col ?
            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)
{

        teken_subr_cursor_forward_tabulation(t, 1);
}

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(const 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(const 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(const teken_t *t)
{

        teken_funcs_param(t, TP_KEYPADAPP, 1);
}

static void
teken_subr_keypad_numeric_mode(const 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(const teken_t *t, unsigned int nrows)
{

        teken_subr_do_scroll(t, (int)nrows);
}

static void
teken_subr_pan_up(const teken_t *t, unsigned int nrows)
{

        teken_subr_do_scroll(t, -(int)nrows);
}

static void
teken_subr_primary_device_attributes(const 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)
{

        t->t_last = c;
        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);
        }

        teken_funcs_putchar(t, tp, c, &t->t_curattr);

        if (width == 2 && tp->tp_col + 1 < t->t_winsize.tp_col) {
                teken_pos_t tp2;
                teken_attr_t attr;

                /* Print second half of CJK fullwidth character. */
                tp2.tp_row = tp->tp_row;
                tp2.tp_col = tp->tp_col + 1;
                attr = t->t_curattr;
                attr.ta_format |= TF_CJK_RIGHT;
                teken_funcs_putchar(t, &tp2, c, &attr);
        }
}

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_stateflags & TS_AUTOWRAP &&
            ((t->t_stateflags & TS_WRAPPED &&
            t->t_cursor.tp_col + 1 == t->t_winsize.tp_col) ||
            t->t_cursor.tp_col + width > t->t_winsize.tp_col)) {
                teken_pos_t tp;

                /*
                 * Perform line wrapping, if:
                 * - Autowrapping is enabled, and
                 *   - We're in the wrapped state at the last column, or
                 *   - The character to be printed does not fit anymore.
                 */
                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_resize(teken_t *t)
{

        t->t_scrollreg.ts_begin = 0;
        t->t_scrollreg.ts_end = t->t_winsize.tp_row;
        t->t_originreg = t->t_scrollreg;
}

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(const 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,
    const 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(const teken_t *t)
{

        (void)t;
        teken_printf("single height double width???\n");
}

static void
teken_subr_single_height_single_width_line(const teken_t *t)
{

        (void)t;
        teken_printf("single height single width???\n");
}

static void
teken_subr_string_terminator(const teken_t *t)
{

        (void)t;
        /*
         * 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;
        default:
                break;
        }
}

static void
teken_subr_vertical_position_absolute(teken_t *t, unsigned int row)
{

        row = (row - 1) + t->t_originreg.ts_begin;
        t->t_cursor.tp_row = row < t->t_originreg.ts_end ?
            row : t->t_originreg.ts_end - 1;

        t->t_stateflags &= ~TS_WRAPPED;
        teken_funcs_cursor(t);
}

static void
teken_subr_repeat_last_graphic_char(teken_t *t, unsigned int rpts)
{

        for (; t->t_last != 0 && rpts > 0; rpts--)
                teken_subr_regular_character(t, t->t_last);
}


		varnish-cache/bin/varnishtest/teken_subr.h
0		/*-
1		* SPDX-License-Identifier: BSD-2-Clause-FreeBSD
2		*
3		* Copyright (c) 2008-2009 Ed Schouten <ed@FreeBSD.org>
4		* All rights reserved.
5		*
6		* Redistribution and use in source and binary forms, with or without
7		* modification, are permitted provided that the following conditions
8		* are met:
9		* 1. Redistributions of source code must retain the above copyright
10		* notice, this list of conditions and the following disclaimer.
11		* 2. Redistributions in binary form must reproduce the above copyright
12		* notice, this list of conditions and the following disclaimer in the
13		* documentation and/or other materials provided with the distribution.
14		*
15		* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16		* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17		* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18		* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19		* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20		* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21		* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22		* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23		* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24		* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25		* SUCH DAMAGE.
26		*
27		* $FreeBSD: head/sys/teken/teken_subr.h 333995 2018-05-21 20:35:16Z dumbbell $
28		*/
29
30		static void teken_subr_cursor_up(teken_t *, unsigned int);
31		static void teken_subr_erase_line(const teken_t *, unsigned int);
32		static void teken_subr_regular_character(teken_t *, teken_char_t);
33		static void teken_subr_reset_to_initial_state(teken_t *);
34		static void teken_subr_save_cursor(teken_t *);
35
36		static inline int
37	1444	teken_tab_isset(const teken_t *t, unsigned int col)
38		{
39		unsigned int b, o;
40
41	1444	if (col >= T_NUMCOL)
42	0	return ((col % 8) == 0);
43
44	1444	b = col / (sizeof(unsigned int) * 8);
45	1444	o = col % (sizeof(unsigned int) * 8);
46
47	1444	return (t->t_tabstops[b] & (1U << o));
48	1444	}
49
50		static inline void
51	52	teken_tab_clear(teken_t *t, unsigned int col)
52		{
53		unsigned int b, o;
54
55	52	if (col >= T_NUMCOL)
56	0	return;
57
58	52	b = col / (sizeof(unsigned int) * 8);
59	52	o = col % (sizeof(unsigned int) * 8);
60
61	52	t->t_tabstops[b] &= ~(1U << o);
62	52	}
63
64		static inline void
65	9732	teken_tab_set(teken_t *t, unsigned int col)
66		{
67		unsigned int b, o;
68
69	9732	if (col >= T_NUMCOL)
70	0	return;
71
72	9732	b = col / (sizeof(unsigned int) * 8);
73	9732	o = col % (sizeof(unsigned int) * 8);
74
75	9732	t->t_tabstops[b] \|= 1U << o;
76	9732	}
77
78		static void
79	496	teken_tab_default(teken_t *t)
80		{
81		unsigned int i;
82
83	496	memset(t->t_tabstops, 0, T_NUMCOL / 8);
84
85	9920	for (i = 8; i < T_NUMCOL; i += 8)
86	9424	teken_tab_set(t, i);
87	496	}
88
89		static void
90	1697	teken_subr_do_scroll(const teken_t *t, int amount)
91		{
92		teken_rect_t tr;
93		teken_pos_t tp;
94
95	1697	teken_assert(t->t_cursor.tp_row <= t->t_winsize.tp_row);
96	1697	teken_assert(t->t_scrollreg.ts_end <= t->t_winsize.tp_row);
97	1697	teken_assert(amount != 0);
98
99		/* Copy existing data 1 line up. */
100	1697	if (amount > 0) {
101		/* Scroll down. */
102
103		/* Copy existing data up. */
104	1181	if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
105	1181	tr.tr_begin.tp_row = t->t_scrollreg.ts_begin + amount;
106	1181	tr.tr_begin.tp_col = 0;
107	1181	tr.tr_end.tp_row = t->t_scrollreg.ts_end;
108	1181	tr.tr_end.tp_col = t->t_winsize.tp_col;
109	1181	tp.tp_row = t->t_scrollreg.ts_begin;
110	1181	tp.tp_col = 0;
111	1181	teken_funcs_copy(t, &tr, &tp);
112
113	1181	tr.tr_begin.tp_row = t->t_scrollreg.ts_end - amount;
114	1181	} else {
115	0	tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
116		}
117
118		/* Clear the last lines. */
119	1181	tr.tr_begin.tp_col = 0;
120	1181	tr.tr_end.tp_row = t->t_scrollreg.ts_end;
121	1181	tr.tr_end.tp_col = t->t_winsize.tp_col;
122	1181	teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
123	1181	} else {
124		/* Scroll up. */
125	516	amount = -amount;
126
127		/* Copy existing data down. */
128	516	if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
129	516	tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
130	516	tr.tr_begin.tp_col = 0;
131	516	tr.tr_end.tp_row = t->t_scrollreg.ts_end - amount;
132	516	tr.tr_end.tp_col = t->t_winsize.tp_col;
133	516	tp.tp_row = t->t_scrollreg.ts_begin + amount;
134	516	tp.tp_col = 0;
135	516	teken_funcs_copy(t, &tr, &tp);
136
137	516	tr.tr_end.tp_row = t->t_scrollreg.ts_begin + amount;
138	516	} else {
139	0	tr.tr_end.tp_row = t->t_scrollreg.ts_end;
140		}
141
142		/* Clear the first lines. */
143	516	tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
144	516	tr.tr_begin.tp_col = 0;
145	516	tr.tr_end.tp_col = t->t_winsize.tp_col;
146	516	teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
147		}
148	1697	}
149
150		static ssize_t
151	24	teken_subr_do_cpr(const teken_t *t, unsigned int cmd, char response[16])
152		{
153
154	24	switch (cmd) {
155		case 5: /* Operating status. */
156	4	strcpy(response, "0n");
157	4	return (2);
158		case 6: { /* Cursor position. */
159		int len;
160
161	8	len = snprintf(response, 16, "%u;%uR",
162	4	(t->t_cursor.tp_row - t->t_originreg.ts_begin) + 1,
163	4	t->t_cursor.tp_col + 1);
164
165	4	if (len >= 16)
166	0	return (-1);
167	4	return (len);
168		}
169		case 15: /* Printer status. */
170	4	strcpy(response, "13n");
171	4	return (3);
172		case 25: /* UDK status. */
173	4	strcpy(response, "20n");
174	4	return (3);
175		case 26: /* Keyboard status. */
176	8	strcpy(response, "27;1n");
177	8	return (5);
178		default:
179		teken_printf("Unknown DSR\n");
180	0	return (-1);
181		}
182	24	}
183
184		static void
185	8	teken_subr_alignment_test(teken_t *t)
186		{
187		teken_rect_t tr;
188
189	8	t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
190	8	t->t_scrollreg.ts_begin = 0;
191	8	t->t_scrollreg.ts_end = t->t_winsize.tp_row;
192	8	t->t_originreg = t->t_scrollreg;
193	8	t->t_stateflags &= ~(TS_WRAPPED\|TS_ORIGIN);
194	8	teken_funcs_cursor(t);
195
196	8	tr.tr_begin.tp_row = 0;
197	8	tr.tr_begin.tp_col = 0;
198	8	tr.tr_end = t->t_winsize;
199	8	teken_funcs_fill(t, &tr, 'E', &t->t_defattr);
200	8	}
201
202		static void
203	1892	teken_subr_backspace(teken_t *t)
204		{
205
206	1892	if (t->t_stateflags & TS_CONS25) {
207	8	if (t->t_cursor.tp_col == 0) {
208	8	if (t->t_cursor.tp_row == t->t_originreg.ts_begin)
209	4	return;
210	4	t->t_cursor.tp_row--;
211	4	t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
212	4	} else {
213	0	t->t_cursor.tp_col--;
214		}
215	4	} else {
216	1884	if (t->t_cursor.tp_col == 0)
217	4	return;
218
219	1880	t->t_cursor.tp_col--;
220	1880	t->t_stateflags &= ~TS_WRAPPED;
221		}
222
223	1884	teken_funcs_cursor(t);
224	1892	}
225
226		static void
227	12	teken_subr_bell(const teken_t *t)
228		{
229
230	12	teken_funcs_bell(t);
231	12	}
232
233		static void
234	4447	teken_subr_carriage_return(teken_t *t)
235		{
236
237	4447	t->t_cursor.tp_col = 0;
238	4447	t->t_stateflags &= ~TS_WRAPPED;
239	4447	teken_funcs_cursor(t);
240	4447	}
241
242		static void
243	3056	teken_subr_cursor_backward(teken_t *t, unsigned int ncols)
244		{
245
246	3056	if (ncols > t->t_cursor.tp_col)
247	8	t->t_cursor.tp_col = 0;
248		else
249	3048	t->t_cursor.tp_col -= ncols;
250	3056	t->t_stateflags &= ~TS_WRAPPED;
251	3056	teken_funcs_cursor(t);
252	3056	}
253
254		static void
255	4	teken_subr_cursor_backward_tabulation(teken_t *t, unsigned int ntabs)
256		{
257
258	4	do {
259		/* Stop when we've reached the beginning of the line. */
260	36	if (t->t_cursor.tp_col == 0)
261	0	break;
262
263	36	t->t_cursor.tp_col--;
264
265		/* Tab marker set. */
266	36	if (teken_tab_isset(t, t->t_cursor.tp_col))
267	8	ntabs--;
268	36	} while (ntabs > 0);
269
270	4	teken_funcs_cursor(t);
271	4	}
272
273		static void
274	1091	teken_subr_cursor_down(teken_t *t, unsigned int nrows)
275		{
276
277	1091	if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end)
278	44	t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
279		else
280	1047	t->t_cursor.tp_row += nrows;
281	1091	t->t_stateflags &= ~TS_WRAPPED;
282	1091	teken_funcs_cursor(t);
283	1091	}
284
285		static void
286	3474	teken_subr_cursor_forward(teken_t *t, unsigned int ncols)
287		{
288
289	3474	if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
290	36	t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
291		else
292	3438	t->t_cursor.tp_col += ncols;
293	3474	t->t_stateflags &= ~TS_WRAPPED;
294	3474	teken_funcs_cursor(t);
295	3474	}
296
297		static void
298	304	teken_subr_cursor_forward_tabulation(teken_t *t, unsigned int ntabs)
299		{
300
301	304	do {
302		/* Stop when we've reached the end of the line. */
303	1508	if (t->t_cursor.tp_col == t->t_winsize.tp_col - 1)
304	100	break;
305
306	1408	t->t_cursor.tp_col++;
307
308		/* Tab marker set. */
309	1408	if (teken_tab_isset(t, t->t_cursor.tp_col))
310	204	ntabs--;
311	1408	} while (ntabs > 0);
312
313	304	teken_funcs_cursor(t);
314	304	}
315
316		static void
317	4	teken_subr_cursor_next_line(teken_t *t, unsigned int ncols)
318		{
319
320	4	t->t_cursor.tp_col = 0;
321	4	teken_subr_cursor_down(t, ncols);
322	4	}
323
324		static void
325	7199	teken_subr_cursor_position(teken_t *t, unsigned int row, unsigned int col)
326		{
327
328	7199	row = (row - 1) + t->t_originreg.ts_begin;
329	7199	t->t_cursor.tp_row = row < t->t_originreg.ts_end ?
330	7199	row : t->t_originreg.ts_end - 1;
331
332	7199	col--;
333	7199	t->t_cursor.tp_col = col < t->t_winsize.tp_col ?
334	7199	col : t->t_winsize.tp_col - 1;
335
336	7199	t->t_stateflags &= ~TS_WRAPPED;
337	7199	teken_funcs_cursor(t);
338	7199	}
339
340		static void
341	20	teken_subr_cursor_position_report(const teken_t *t, unsigned int cmd)
342		{
343	20	char response[18] = "\x1B[";
344		ssize_t len;
345
346	20	len = teken_subr_do_cpr(t, cmd, response + 2);
347	20	if (len < 0)
348	0	return;
349
350	20	teken_funcs_respond(t, response, len + 2);
351	20	}
352
353		static void
354	4	teken_subr_cursor_previous_line(teken_t *t, unsigned int ncols)
355		{
356
357	4	t->t_cursor.tp_col = 0;
358	4	teken_subr_cursor_up(t, ncols);
359	4	}
360
361		static void
362	121	teken_subr_cursor_up(teken_t *t, unsigned int nrows)
363		{
364
365	121	if (t->t_scrollreg.ts_begin + nrows >= t->t_cursor.tp_row)
366	44	t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
367		else
368	77	t->t_cursor.tp_row -= nrows;
369	121	t->t_stateflags &= ~TS_WRAPPED;
370	121	teken_funcs_cursor(t);
371	121	}
372
373		static void
374	0	teken_subr_set_cursor_style(teken_t *t, unsigned int style)
375		{
376
377		/* TODO */
378	0	(void)t;
379	0	(void)style;
380
381		/*
382		* CSI Ps SP q
383		* Set cursor style (DECSCUSR), VT520.
384		* Ps = 0 -> blinking block.
385		* Ps = 1 -> blinking block (default).
386		* Ps = 2 -> steady block.
387		* Ps = 3 -> blinking underline.
388		* Ps = 4 -> steady underline.
389		* Ps = 5 -> blinking bar (xterm).
390		* Ps = 6 -> steady bar (xterm).
391		*/
392	0	}
393
394		static void
395	392	teken_subr_delete_character(const teken_t *t, unsigned int ncols)
396		{
397		teken_rect_t tr;
398
399	392	tr.tr_begin.tp_row = t->t_cursor.tp_row;
400	392	tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
401	392	tr.tr_end.tp_col = t->t_winsize.tp_col;
402
403	392	if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
404	0	tr.tr_begin.tp_col = t->t_cursor.tp_col;
405	0	} else {
406		/* Copy characters to the left. */
407	392	tr.tr_begin.tp_col = t->t_cursor.tp_col + ncols;
408	392	teken_funcs_copy(t, &tr, &t->t_cursor);
409
410	392	tr.tr_begin.tp_col = t->t_winsize.tp_col - ncols;
411		}
412
413		/* Blank trailing columns. */
414	392	teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
415	392	}
416
417		static void
418	194	teken_subr_delete_line(const teken_t *t, unsigned int nrows)
419		{
420		teken_rect_t tr;
421
422		/* Ignore if outside scrolling region. */
423	194	if (t->t_cursor.tp_row < t->t_scrollreg.ts_begin \|\|
424	194	t->t_cursor.tp_row >= t->t_scrollreg.ts_end)
425	0	return;
426
427	194	tr.tr_begin.tp_col = 0;
428	194	tr.tr_end.tp_row = t->t_scrollreg.ts_end;
429	194	tr.tr_end.tp_col = t->t_winsize.tp_col;
430
431	194	if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
432	24	tr.tr_begin.tp_row = t->t_cursor.tp_row;
433	24	} else {
434		teken_pos_t tp;
435
436		/* Copy rows up. */
437	170	tr.tr_begin.tp_row = t->t_cursor.tp_row + nrows;
438	170	tp.tp_row = t->t_cursor.tp_row;
439	170	tp.tp_col = 0;
440	170	teken_funcs_copy(t, &tr, &tp);
441
442	170	tr.tr_begin.tp_row = t->t_scrollreg.ts_end - nrows;
443		}
444
445		/* Blank trailing rows. */
446	194	teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
447	194	}
448
449		static void
450	4	teken_subr_device_control_string(teken_t *t)
451		{
452
453		teken_printf("Unsupported device control string\n");
454	4	t->t_stateflags \|= TS_INSTRING;
455	4	}
456
457		static void
458	4	teken_subr_device_status_report(const teken_t *t, unsigned int cmd)
459		{
460	4	char response[19] = "\x1B[?";
461		ssize_t len;
462
463	4	len = teken_subr_do_cpr(t, cmd, response + 3);
464	4	if (len < 0)
465	0	return;
466
467	4	teken_funcs_respond(t, response, len + 3);
468	4	}
469
470		static void
471	68	teken_subr_double_height_double_width_line_top(const teken_t *t)
472		{
473
474	68	(void)t;
475		teken_printf("double height double width top\n");
476	68	}
477
478		static void
479	68	teken_subr_double_height_double_width_line_bottom(const teken_t *t)
480		{
481
482	68	(void)t;
483		teken_printf("double height double width bottom\n");
484	68	}
485
486		static void
487	4	teken_subr_erase_character(const teken_t *t, unsigned int ncols)
488		{
489		teken_rect_t tr;
490
491	4	tr.tr_begin = t->t_cursor;
492	4	tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
493
494	4	if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
495	0	tr.tr_end.tp_col = t->t_winsize.tp_col;
496		else
497	4	tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
498
499	4	teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);