1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348 |
- /*-
- * 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$
- */
- 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 __unused, unsigned int style __unused)
- {
- /* TODO */
- /*
- * 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 | TS_CONS25KEYS;
- 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)
- {
- unsigned int max_repetitions;
- max_repetitions = t->t_winsize.tp_row * t->t_winsize.tp_col;
- if (rpts > max_repetitions)
- rpts = max_repetitions;
- for (; t->t_last != 0 && rpts > 0; rpts--)
- teken_subr_regular_character(t, t->t_last);
- }
|