sys/dev/syscons/teken/teken_subr.h

   1 /*-
   2  * Copyright (c) 2008-2009 Ed Schouten <ed@FreeBSD.org>
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  24  * SUCH DAMAGE.
  25  *
  26  * $FreeBSD$
  27  */
  28
  29 static void teken_subr_cursor_up(teken_t *, unsigned int);
  30 static void teken_subr_erase_line(teken_t *, unsigned int);
  31 static void teken_subr_regular_character(teken_t *, teken_char_t);
  32 static void teken_subr_reset_to_initial_state(teken_t *);
  33 static void teken_subr_save_cursor(teken_t *);
  34
  35 static inline int
  36 teken_tab_isset(teken_t *t, unsigned int col)
  37 {
  38         unsigned int b, o;
  39
  40         if (col >= T_NUMCOL)
  41                 return ((col % 8) == 0);
  42
  43         b = col / (sizeof(unsigned int) * 8);
  44         o = col % (sizeof(unsigned int) * 8);
  45
  46         return (t->t_tabstops[b] & (1 << o));
  47 }
  48
  49 static inline void
  50 teken_tab_clear(teken_t *t, unsigned int col)
  51 {
  52         unsigned int b, o;
  53
  54         if (col >= T_NUMCOL)
  55                 return;
  56
  57         b = col / (sizeof(unsigned int) * 8);
  58         o = col % (sizeof(unsigned int) * 8);
  59
  60         t->t_tabstops[b] &= ~(1 << o);
  61 }
  62
  63 static inline void
  64 teken_tab_set(teken_t *t, unsigned int col)
  65 {
  66         unsigned int b, o;
  67
  68         if (col >= T_NUMCOL)
  69                 return;
  70
  71         b = col / (sizeof(unsigned int) * 8);
  72         o = col % (sizeof(unsigned int) * 8);
  73
  74         t->t_tabstops[b] |= 1 << o;
  75 }
  76
  77 static void
  78 teken_tab_default(teken_t *t)
  79 {
  80         unsigned int i;
  81
  82         memset(&t->t_tabstops, 0, T_NUMCOL / 8);
  83
  84         for (i = 8; i < T_NUMCOL; i += 8)
  85                 teken_tab_set(t, i);
  86 }
  87
  88 static void
  89 teken_subr_do_scroll(teken_t *t, int amount)
  90 {
  91         teken_rect_t tr;
  92         teken_pos_t tp;
  93
  94         teken_assert(t->t_cursor.tp_row <= t->t_winsize.tp_row);
  95         teken_assert(t->t_scrollreg.ts_end <= t->t_winsize.tp_row);
  96         teken_assert(amount != 0);
  97
  98         /* Copy existing data 1 line up. */
  99         if (amount > 0) {
 100                 /* Scroll down. */
 101
 102                 /* Copy existing data up. */
 103                 if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
 104                         tr.tr_begin.tp_row = t->t_scrollreg.ts_begin + amount;
 105                         tr.tr_begin.tp_col = 0;
 106                         tr.tr_end.tp_row = t->t_scrollreg.ts_end;
 107                         tr.tr_end.tp_col = t->t_winsize.tp_col;
 108                         tp.tp_row = t->t_scrollreg.ts_begin;
 109                         tp.tp_col = 0;
 110                         teken_funcs_copy(t, &tr, &tp);
 111
 112                         tr.tr_begin.tp_row = t->t_scrollreg.ts_end - amount;
 113                 } else {
 114                         tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
 115                 }
 116
 117                 /* Clear the last lines. */
 118                 tr.tr_begin.tp_col = 0;
 119                 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
 120                 tr.tr_end.tp_col = t->t_winsize.tp_col;
 121                 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 122         } else {
 123                 /* Scroll up. */
 124                 amount = -amount;
 125
 126                 /* Copy existing data down. */
 127                 if (t->t_scrollreg.ts_begin + amount < t->t_scrollreg.ts_end) {
 128                         tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
 129                         tr.tr_begin.tp_col = 0;
 130                         tr.tr_end.tp_row = t->t_scrollreg.ts_end - amount;
 131                         tr.tr_end.tp_col = t->t_winsize.tp_col;
 132                         tp.tp_row = t->t_scrollreg.ts_begin + amount;
 133                         tp.tp_col = 0;
 134                         teken_funcs_copy(t, &tr, &tp);
 135
 136                         tr.tr_end.tp_row = t->t_scrollreg.ts_begin + amount;
 137                 } else {
 138                         tr.tr_end.tp_row = t->t_scrollreg.ts_end;
 139                 }
 140
 141                 /* Clear the first lines. */
 142                 tr.tr_begin.tp_row = t->t_scrollreg.ts_begin;
 143                 tr.tr_begin.tp_col = 0;
 144                 tr.tr_end.tp_col = t->t_winsize.tp_col;
 145                 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 146         }
 147 }
 148
 149 static ssize_t
 150 teken_subr_do_cpr(teken_t *t, unsigned int cmd, char response[16])
 151 {
 152
 153         switch (cmd) {
 154         case 5: /* Operating status. */
 155                 strcpy(response, "0n");
 156                 return (2);
 157         case 6: { /* Cursor position. */
 158                 int len;
 159
 160                 len = snprintf(response, 16, "%u;%uR",
 161                     (t->t_cursor.tp_row - t->t_originreg.ts_begin) + 1,
 162                     t->t_cursor.tp_col + 1);
 163
 164                 if (len >= 16)
 165                         return (-1);
 166                 return (len);
 167         }
 168         case 15: /* Printer status. */
 169                 strcpy(response, "13n");
 170                 return (3);
 171         case 25: /* UDK status. */
 172                 strcpy(response, "20n");
 173                 return (3);
 174         case 26: /* Keyboard status. */
 175                 strcpy(response, "27;1n");
 176                 return (5);
 177         default:
 178                 teken_printf("Unknown DSR\n");
 179                 return (-1);
 180         }
 181 }
 182
 183 static void
 184 teken_subr_alignment_test(teken_t *t)
 185 {
 186         teken_rect_t tr;
 187
 188         t->t_scrollreg.ts_begin = 0;
 189         t->t_scrollreg.ts_end = t->t_winsize.tp_row;
 190
 191         t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
 192         t->t_stateflags &= ~TS_WRAPPED;
 193         teken_funcs_cursor(t);
 194
 195         tr.tr_begin.tp_row = 0;
 196         tr.tr_begin.tp_col = 0;
 197         tr.tr_end = t->t_winsize;
 198         teken_funcs_fill(t, &tr, 'E', &t->t_defattr);
 199 }
 200
 201 static void
 202 teken_subr_backspace(teken_t *t)
 203 {
 204
 205 #ifdef TEKEN_XTERM
 206         if (t->t_cursor.tp_col == 0)
 207                 return;
 208
 209         t->t_cursor.tp_col--;
 210         t->t_stateflags &= ~TS_WRAPPED;
 211 #else /* !TEKEN_XTERM */
 212         if (t->t_cursor.tp_col == 0) {
 213                 if (t->t_cursor.tp_row == t->t_originreg.ts_begin)
 214                         return;
 215                 t->t_cursor.tp_row--;
 216                 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
 217         } else {
 218                 t->t_cursor.tp_col--;
 219         }
 220 #endif /* TEKEN_XTERM */
 221
 222         teken_funcs_cursor(t);
 223 }
 224
 225 static void
 226 teken_subr_bell(teken_t *t)
 227 {
 228
 229         teken_funcs_bell(t);
 230 }
 231
 232 static void
 233 teken_subr_carriage_return(teken_t *t)
 234 {
 235
 236         t->t_cursor.tp_col = 0;
 237         t->t_stateflags &= ~TS_WRAPPED;
 238         teken_funcs_cursor(t);
 239 }
 240
 241 static void
 242 teken_subr_cursor_backward(teken_t *t, unsigned int ncols)
 243 {
 244
 245         if (ncols > t->t_cursor.tp_col)
 246                 t->t_cursor.tp_col = 0;
 247         else
 248                 t->t_cursor.tp_col -= ncols;
 249         t->t_stateflags &= ~TS_WRAPPED;
 250         teken_funcs_cursor(t);
 251 }
 252
 253 static void
 254 teken_subr_cursor_backward_tabulation(teken_t *t, unsigned int ntabs)
 255 {
 256
 257         do {
 258                 /* Stop when we've reached the beginning of the line. */
 259                 if (t->t_cursor.tp_col == 0)
 260                         break;
 261
 262                 t->t_cursor.tp_col--;
 263
 264                 /* Tab marker set. */
 265                 if (teken_tab_isset(t, t->t_cursor.tp_col))
 266                         ntabs--;
 267         } while (ntabs > 0);
 268
 269         teken_funcs_cursor(t);
 270 }
 271
 272 static void
 273 teken_subr_cursor_down(teken_t *t, unsigned int nrows)
 274 {
 275
 276         if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end)
 277                 t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
 278         else
 279                 t->t_cursor.tp_row += nrows;
 280         t->t_stateflags &= ~TS_WRAPPED;
 281         teken_funcs_cursor(t);
 282 }
 283
 284 static void
 285 teken_subr_cursor_forward(teken_t *t, unsigned int ncols)
 286 {
 287
 288         if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
 289                 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
 290         else
 291                 t->t_cursor.tp_col += ncols;
 292         t->t_stateflags &= ~TS_WRAPPED;
 293         teken_funcs_cursor(t);
 294 }
 295
 296 static void
 297 teken_subr_cursor_forward_tabulation(teken_t *t, unsigned int ntabs)
 298 {
 299
 300         do {
 301                 /* Stop when we've reached the end of the line. */
 302                 if (t->t_cursor.tp_col == t->t_winsize.tp_col - 1)
 303                         break;
 304
 305                 t->t_cursor.tp_col++;
 306
 307                 /* Tab marker set. */
 308                 if (teken_tab_isset(t, t->t_cursor.tp_col))
 309                         ntabs--;
 310         } while (ntabs > 0);
 311
 312         teken_funcs_cursor(t);
 313 }
 314
 315 static void
 316 teken_subr_cursor_next_line(teken_t *t, unsigned int ncols)
 317 {
 318
 319         t->t_cursor.tp_col = 0;
 320         teken_subr_cursor_down(t, ncols);
 321 }
 322
 323 static void
 324 teken_subr_cursor_position(teken_t *t, unsigned int row, unsigned int col)
 325 {
 326
 327         t->t_cursor.tp_row = t->t_originreg.ts_begin + row - 1;
 328         if (row >= t->t_originreg.ts_end)
 329                 t->t_cursor.tp_row = t->t_originreg.ts_end - 1;
 330
 331         t->t_cursor.tp_col = col - 1;
 332         if (t->t_cursor.tp_col >= t->t_winsize.tp_col)
 333                 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
 334
 335         t->t_stateflags &= ~TS_WRAPPED;
 336         teken_funcs_cursor(t);
 337 }
 338
 339 static void
 340 teken_subr_cursor_position_report(teken_t *t, unsigned int cmd)
 341 {
 342         char response[18] = "\x1B[";
 343         ssize_t len;
 344
 345         len = teken_subr_do_cpr(t, cmd, response + 2);
 346         if (len < 0)
 347                 return;
 348
 349         teken_funcs_respond(t, response, len + 2);
 350 }
 351
 352 static void
 353 teken_subr_cursor_previous_line(teken_t *t, unsigned int ncols)
 354 {
 355
 356         t->t_cursor.tp_col = 0;
 357         teken_subr_cursor_up(t, ncols);
 358 }
 359
 360 static void
 361 teken_subr_cursor_up(teken_t *t, unsigned int nrows)
 362 {
 363
 364         if (t->t_scrollreg.ts_begin + nrows >= t->t_cursor.tp_row)
 365                 t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
 366         else
 367                 t->t_cursor.tp_row -= nrows;
 368         t->t_stateflags &= ~TS_WRAPPED;
 369         teken_funcs_cursor(t);
 370 }
 371
 372 static void
 373 teken_subr_delete_character(teken_t *t, unsigned int ncols)
 374 {
 375         teken_rect_t tr;
 376
 377         tr.tr_begin.tp_row = t->t_cursor.tp_row;
 378         tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
 379         tr.tr_end.tp_col = t->t_winsize.tp_col;
 380
 381         if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
 382                 tr.tr_begin.tp_col = t->t_cursor.tp_col;
 383         } else {
 384                 /* Copy characters to the left. */
 385                 tr.tr_begin.tp_col = t->t_cursor.tp_col + ncols;
 386                 teken_funcs_copy(t, &tr, &t->t_cursor);
 387
 388                 tr.tr_begin.tp_col = t->t_winsize.tp_col - ncols;
 389         }
 390
 391         /* Blank trailing columns. */
 392         teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 393 }
 394
 395 static void
 396 teken_subr_delete_line(teken_t *t, unsigned int nrows)
 397 {
 398         teken_rect_t tr;
 399
 400         tr.tr_begin.tp_col = 0;
 401         tr.tr_end.tp_row = t->t_scrollreg.ts_end;
 402         tr.tr_end.tp_col = t->t_winsize.tp_col;
 403
 404         if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
 405                 tr.tr_begin.tp_row = t->t_cursor.tp_row;
 406         } else {
 407                 teken_pos_t tp;
 408
 409                 /* Copy rows up. */
 410                 tr.tr_begin.tp_row = t->t_cursor.tp_row + nrows;
 411                 tp.tp_row = t->t_cursor.tp_row;
 412                 tp.tp_col = 0;
 413                 teken_funcs_copy(t, &tr, &tp);
 414
 415                 tr.tr_begin.tp_row = t->t_scrollreg.ts_end - nrows;
 416         }
 417
 418         /* Blank trailing rows. */
 419         teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 420 }
 421
 422 static void
 423 teken_subr_device_control_string(teken_t *t __unused)
 424 {
 425
 426         teken_printf("device control string???\n");
 427 }
 428
 429 static void
 430 teken_subr_device_status_report(teken_t *t, unsigned int cmd)
 431 {
 432         char response[19] = "\x1B[?";
 433         ssize_t len;
 434
 435         len = teken_subr_do_cpr(t, cmd, response + 3);
 436         if (len < 0)
 437                 return;
 438
 439         teken_funcs_respond(t, response, len + 3);
 440 }
 441
 442 static void
 443 teken_subr_double_height_double_width_line_top(teken_t *t __unused)
 444 {
 445
 446         teken_printf("double height double width top\n");
 447 }
 448
 449 static void
 450 teken_subr_double_height_double_width_line_bottom(teken_t *t __unused)
 451 {
 452
 453         teken_printf("double height double width bottom\n");
 454 }
 455
 456 static void
 457 teken_subr_erase_character(teken_t *t, unsigned int ncols)
 458 {
 459         teken_rect_t tr;
 460
 461         tr.tr_begin = t->t_cursor;
 462         tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
 463
 464         if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col)
 465                 tr.tr_end.tp_col = t->t_winsize.tp_col;
 466         else
 467                 tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
 468
 469         teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 470 }
 471
 472 static void
 473 teken_subr_erase_display(teken_t *t, unsigned int mode)
 474 {
 475         teken_rect_t r;
 476
 477         r.tr_begin.tp_col = 0;
 478         r.tr_end.tp_col = t->t_winsize.tp_col;
 479
 480         switch (mode) {
 481         case 1: /* Erase from the top to the cursor. */
 482                 teken_subr_erase_line(t, 1);
 483
 484                 /* Erase lines above. */
 485                 if (t->t_cursor.tp_row == 0)
 486                         return;
 487                 r.tr_begin.tp_row = 0;
 488                 r.tr_end.tp_row = t->t_cursor.tp_row;
 489                 break;
 490         case 2: /* Erase entire display. */
 491                 r.tr_begin.tp_row = 0;
 492                 r.tr_end.tp_row = t->t_winsize.tp_row;
 493                 break;
 494         default: /* Erase from cursor to the bottom. */
 495                 teken_subr_erase_line(t, 0);
 496
 497                 /* Erase lines below. */
 498                 if (t->t_cursor.tp_row == t->t_winsize.tp_row - 1)
 499                         return;
 500                 r.tr_begin.tp_row = t->t_cursor.tp_row + 1;
 501                 r.tr_end.tp_row = t->t_winsize.tp_row;
 502                 break;
 503         }
 504
 505         teken_funcs_fill(t, &r, BLANK, &t->t_curattr);
 506 }
 507
 508 static void
 509 teken_subr_erase_line(teken_t *t, unsigned int mode)
 510 {
 511         teken_rect_t r;
 512
 513         r.tr_begin.tp_row = t->t_cursor.tp_row;
 514         r.tr_end.tp_row = t->t_cursor.tp_row + 1;
 515
 516         switch (mode) {
 517         case 1: /* Erase from the beginning of the line to the cursor. */
 518                 r.tr_begin.tp_col = 0;
 519                 r.tr_end.tp_col = t->t_cursor.tp_col + 1;
 520                 break;
 521         case 2: /* Erase entire line. */
 522                 r.tr_begin.tp_col = 0;
 523                 r.tr_end.tp_col = t->t_winsize.tp_col;
 524                 break;
 525         default: /* Erase from cursor to the end of the line. */
 526                 r.tr_begin.tp_col = t->t_cursor.tp_col;
 527                 r.tr_end.tp_col = t->t_winsize.tp_col;
 528                 break;
 529         }
 530
 531         teken_funcs_fill(t, &r, BLANK, &t->t_curattr);
 532 }
 533
 534 static void
 535 teken_subr_g0_scs_special_graphics(teken_t *t __unused)
 536 {
 537
 538         teken_scs_set(t, 0, teken_scs_special_graphics);
 539 }
 540
 541 static void
 542 teken_subr_g0_scs_uk_national(teken_t *t __unused)
 543 {
 544
 545         teken_scs_set(t, 0, teken_scs_uk_national);
 546 }
 547
 548 static void
 549 teken_subr_g0_scs_us_ascii(teken_t *t __unused)
 550 {
 551
 552         teken_scs_set(t, 0, teken_scs_us_ascii);
 553 }
 554
 555 static void
 556 teken_subr_g1_scs_special_graphics(teken_t *t __unused)
 557 {
 558
 559         teken_scs_set(t, 1, teken_scs_special_graphics);
 560 }
 561
 562 static void
 563 teken_subr_g1_scs_uk_national(teken_t *t __unused)
 564 {
 565
 566         teken_scs_set(t, 1, teken_scs_uk_national);
 567 }
 568
 569 static void
 570 teken_subr_g1_scs_us_ascii(teken_t *t __unused)
 571 {
 572
 573         teken_scs_set(t, 1, teken_scs_us_ascii);
 574 }
 575
 576 static void
 577 teken_subr_horizontal_position_absolute(teken_t *t, unsigned int col)
 578 {
 579
 580         t->t_cursor.tp_col = col - 1;
 581         if (t->t_cursor.tp_col >= t->t_winsize.tp_col)
 582                 t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
 583
 584         t->t_stateflags &= ~TS_WRAPPED;
 585         teken_funcs_cursor(t);
 586 }
 587
 588 static void
 589 teken_subr_horizontal_tab(teken_t *t)
 590 {
 591 #ifdef TEKEN_XTERM
 592         teken_rect_t tr;
 593
 594         tr.tr_begin = t->t_cursor;
 595         teken_subr_cursor_forward_tabulation(t, 1);
 596         tr.tr_end.tp_row = tr.tr_begin.tp_row + 1;
 597         tr.tr_end.tp_col = t->t_cursor.tp_col;
 598
 599         /* Blank region that we skipped. */
 600         if (tr.tr_end.tp_col > tr.tr_begin.tp_col)
 601                 teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 602 #else /* !TEKEN_XTERM */
 603
 604         teken_subr_cursor_forward_tabulation(t, 1);
 605 #endif /* TEKEN_XTERM */
 606 }
 607
 608 static void
 609 teken_subr_horizontal_tab_set(teken_t *t)
 610 {
 611
 612         teken_tab_set(t, t->t_cursor.tp_col);
 613 }
 614
 615 static void
 616 teken_subr_index(teken_t *t)
 617 {
 618
 619         if (t->t_cursor.tp_row < t->t_scrollreg.ts_end - 1) {
 620                 t->t_cursor.tp_row++;
 621                 t->t_stateflags &= ~TS_WRAPPED;
 622                 teken_funcs_cursor(t);
 623         } else {
 624                 teken_subr_do_scroll(t, 1);
 625         }
 626 }
 627
 628 static void
 629 teken_subr_insert_character(teken_t *t, unsigned int ncols)
 630 {
 631         teken_rect_t tr;
 632
 633         tr.tr_begin = t->t_cursor;
 634         tr.tr_end.tp_row = t->t_cursor.tp_row + 1;
 635
 636         if (t->t_cursor.tp_col + ncols >= t->t_winsize.tp_col) {
 637                 tr.tr_end.tp_col = t->t_winsize.tp_col;
 638         } else {
 639                 teken_pos_t tp;
 640
 641                 /* Copy characters to the right. */
 642                 tr.tr_end.tp_col = t->t_winsize.tp_col - ncols;
 643                 tp.tp_row = t->t_cursor.tp_row;
 644                 tp.tp_col = t->t_cursor.tp_col + ncols;
 645                 teken_funcs_copy(t, &tr, &tp);
 646
 647                 tr.tr_end.tp_col = t->t_cursor.tp_col + ncols;
 648         }
 649
 650         /* Blank current location. */
 651         teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 652 }
 653
 654 static void
 655 teken_subr_insert_line(teken_t *t, unsigned int nrows)
 656 {
 657         teken_rect_t tr;
 658
 659         tr.tr_begin.tp_row = t->t_cursor.tp_row;
 660         tr.tr_begin.tp_col = 0;
 661         tr.tr_end.tp_col = t->t_winsize.tp_col;
 662
 663         if (t->t_cursor.tp_row + nrows >= t->t_scrollreg.ts_end) {
 664                 tr.tr_end.tp_row = t->t_scrollreg.ts_end;
 665         } else {
 666                 teken_pos_t tp;
 667
 668                 /* Copy lines down. */
 669                 tr.tr_end.tp_row = t->t_scrollreg.ts_end - nrows;
 670                 tp.tp_row = t->t_cursor.tp_row + nrows;
 671                 tp.tp_col = 0;
 672                 teken_funcs_copy(t, &tr, &tp);
 673
 674                 tr.tr_end.tp_row = t->t_cursor.tp_row + nrows;
 675         }
 676
 677         /* Blank current location. */
 678         teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 679 }
 680
 681 static void
 682 teken_subr_keypad_application_mode(teken_t *t)
 683 {
 684
 685         teken_funcs_param(t, TP_KEYPADAPP, 1);
 686 }
 687
 688 static void
 689 teken_subr_keypad_numeric_mode(teken_t *t)
 690 {
 691
 692         teken_funcs_param(t, TP_KEYPADAPP, 0);
 693 }
 694
 695 static void
 696 teken_subr_newline(teken_t *t)
 697 {
 698
 699         t->t_cursor.tp_row++;
 700
 701         if (t->t_cursor.tp_row >= t->t_scrollreg.ts_end) {
 702                 teken_subr_do_scroll(t, 1);
 703                 t->t_cursor.tp_row = t->t_scrollreg.ts_end - 1;
 704         }
 705
 706         t->t_stateflags &= ~TS_WRAPPED;
 707         teken_funcs_cursor(t);
 708 }
 709
 710 static void
 711 teken_subr_newpage(teken_t *t)
 712 {
 713 #ifdef TEKEN_XTERM
 714
 715         teken_subr_newline(t);
 716 #else /* !TEKEN_XTERM */
 717         teken_rect_t tr;
 718
 719         tr.tr_begin.tp_row = tr.tr_begin.tp_col = 0;
 720         tr.tr_end = t->t_winsize;
 721         teken_funcs_fill(t, &tr, BLANK, &t->t_curattr);
 722
 723         t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
 724         teken_funcs_cursor(t);
 725 #endif /* TEKEN_XTERM */
 726 }
 727
 728 static void
 729 teken_subr_next_line(teken_t *t)
 730 {
 731
 732         t->t_cursor.tp_col = 0;
 733         teken_subr_newline(t);
 734 }
 735
 736 static void
 737 teken_subr_pan_down(teken_t *t, unsigned int nrows)
 738 {
 739
 740         teken_subr_do_scroll(t, (int)nrows);
 741 }
 742
 743 static void
 744 teken_subr_pan_up(teken_t *t, unsigned int nrows)
 745 {
 746
 747         teken_subr_do_scroll(t, -(int)nrows);
 748 }
 749
 750 static void
 751 teken_subr_primary_device_attributes(teken_t *t, unsigned int request)
 752 {
 753
 754         if (request == 0) {
 755                 const char response[] = "\x1B[?1;2c";
 756
 757                 teken_funcs_respond(t, response, sizeof response - 1);
 758         } else {
 759                 teken_printf("Unknown DA1\n");
 760         }
 761 }
 762
 763 static void
 764 teken_subr_do_putchar(teken_t *t, const teken_pos_t *tp, teken_char_t c,
 765     int width)
 766 {
 767
 768         if (t->t_stateflags & TS_INSERT &&
 769             tp->tp_col < t->t_winsize.tp_col - width) {
 770                 teken_rect_t ctr;
 771                 teken_pos_t ctp;
 772
 773                 /* Insert mode. Move existing characters to the right. */
 774                 ctr.tr_begin = *tp;
 775                 ctr.tr_end.tp_row = tp->tp_row + 1;
 776                 ctr.tr_end.tp_col = t->t_winsize.tp_col - width;
 777                 ctp.tp_row = tp->tp_row;
 778                 ctp.tp_col = tp->tp_col + width;
 779                 teken_funcs_copy(t, &ctr, &ctp);
 780         }
 781
 782         teken_funcs_putchar(t, tp, c, &t->t_curattr);
 783 }
 784
 785 static void
 786 teken_subr_regular_character(teken_t *t, teken_char_t c)
 787 {
 788         int width;
 789
 790         c = teken_scs_process(t, c);
 791
 792         /* XXX: Don't process zero-width characters yet. */
 793         width = teken_wcwidth(c);
 794         if (width <= 0)
 795                 return;
 796
 797 #ifdef TEKEN_XTERM
 798         if (t->t_cursor.tp_col == t->t_winsize.tp_col - 1 &&
 799             (t->t_stateflags & (TS_WRAPPED|TS_AUTOWRAP)) ==
 800             (TS_WRAPPED|TS_AUTOWRAP)) {
 801                 teken_pos_t tp;
 802
 803                 /* Perform line wrapping. */
 804
 805                 if (t->t_cursor.tp_row == t->t_scrollreg.ts_end - 1) {
 806                         /* Perform scrolling. */
 807                         teken_subr_do_scroll(t, 1);
 808                         tp.tp_row = t->t_scrollreg.ts_end - 1;
 809                 } else {
 810                         /* No scrolling needed. */
 811                         tp.tp_row = t->t_cursor.tp_row + 1;
 812                         if (tp.tp_row == t->t_winsize.tp_row) {
 813                                 /*
 814                                  * Corner case: regular character
 815                                  * outside scrolling region, but at the
 816                                  * bottom of the screen.
 817                                  */
 818                                 teken_subr_do_putchar(t, &t->t_cursor,
 819                                     c, width);
 820                                 return;
 821                         }
 822                 }
 823
 824                 tp.tp_col = 0;
 825                 teken_subr_do_putchar(t, &tp, c, width);
 826
 827                 t->t_cursor.tp_row = tp.tp_row;
 828                 t->t_cursor.tp_col = width;
 829                 t->t_stateflags &= ~TS_WRAPPED;
 830         } else {
 831                 /* No line wrapping needed. */
 832                 teken_subr_do_putchar(t, &t->t_cursor, c, width);
 833                 t->t_cursor.tp_col += width;
 834
 835                 if (t->t_cursor.tp_col >= t->t_winsize.tp_col) {
 836                         t->t_stateflags |= TS_WRAPPED;
 837                         t->t_cursor.tp_col = t->t_winsize.tp_col - 1;
 838                 } else {
 839                         t->t_stateflags &= ~TS_WRAPPED;
 840                 }
 841         }
 842 #else /* !TEKEN_XTERM */
 843         teken_subr_do_putchar(t, &t->t_cursor, c, width);
 844         t->t_cursor.tp_col += width;
 845
 846         if (t->t_cursor.tp_col >= t->t_winsize.tp_col) {
 847                 if (t->t_cursor.tp_row == t->t_scrollreg.ts_end - 1) {
 848                         /* Perform scrolling. */
 849                         teken_subr_do_scroll(t, 1);
 850                 } else {
 851                         /* No scrolling needed. */
 852                         if (t->t_cursor.tp_row < t->t_winsize.tp_row - 1)
 853                                 t->t_cursor.tp_row++;
 854                 }
 855                 t->t_cursor.tp_col = 0;
 856         }
 857 #endif /* TEKEN_XTERM */
 858
 859         teken_funcs_cursor(t);
 860 }
 861
 862 static void
 863 teken_subr_reset_dec_mode(teken_t *t, unsigned int cmd)
 864 {
 865
 866         switch (cmd) {
 867         case 1: /* Cursor keys mode. */
 868                 teken_funcs_param(t, TP_CURSORKEYS, 0);
 869                 break;
 870         case 2: /* DECANM: ANSI/VT52 mode. */
 871                 teken_printf("DECRST VT52\n");
 872                 break;
 873         case 3: /* 132 column mode. */
 874                 teken_funcs_param(t, TP_132COLS, 0);
 875                 teken_subr_reset_to_initial_state(t);
 876                 break;
 877         case 5: /* Inverse video. */
 878                 teken_printf("DECRST inverse video\n");
 879                 break;
 880         case 6: /* Origin mode. */
 881                 t->t_stateflags &= ~TS_ORIGIN;
 882                 t->t_originreg.ts_begin = 0;
 883                 t->t_originreg.ts_end = t->t_winsize.tp_row;
 884                 t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
 885                 t->t_stateflags &= ~TS_WRAPPED;
 886                 teken_funcs_cursor(t);
 887                 break;
 888         case 7: /* Autowrap mode. */
 889                 t->t_stateflags &= ~TS_AUTOWRAP;
 890                 break;
 891         case 8: /* Autorepeat mode. */
 892                 teken_funcs_param(t, TP_AUTOREPEAT, 0);
 893                 break;
 894         case 25: /* Hide cursor. */
 895                 teken_funcs_param(t, TP_SHOWCURSOR, 0);
 896                 break;
 897         case 40: /* Disallow 132 columns. */
 898                 teken_printf("DECRST allow 132\n");
 899                 break;
 900         case 45: /* Disable reverse wraparound. */
 901                 teken_printf("DECRST reverse wraparound\n");
 902                 break;
 903         case 47: /* Switch to alternate buffer. */
 904                 teken_printf("Switch to alternate buffer\n");
 905                 break;
 906         default:
 907                 teken_printf("Unknown DECRST: %u\n", cmd);
 908         }
 909 }
 910
 911 static void
 912 teken_subr_reset_mode(teken_t *t, unsigned int cmd)
 913 {
 914
 915         switch (cmd) {
 916         case 4:
 917                 t->t_stateflags &= ~TS_INSERT;
 918                 break;
 919         default:
 920                 teken_printf("Unknown reset mode: %u\n", cmd);
 921         }
 922 }
 923
 924 static void
 925 teken_subr_do_reset(teken_t *t)
 926 {
 927
 928         t->t_curattr = t->t_defattr;
 929         t->t_cursor.tp_row = t->t_cursor.tp_col = 0;
 930         t->t_stateflags = TS_AUTOWRAP;
 931
 932         teken_scs_set(t, 0, teken_scs_us_ascii);
 933         teken_scs_set(t, 1, teken_scs_us_ascii);
 934         teken_scs_switch(t, 0);
 935
 936         teken_subr_save_cursor(t);
 937         teken_tab_default(t);
 938 }
 939
 940 static void
 941 teken_subr_reset_to_initial_state(teken_t *t)
 942 {
 943
 944         teken_subr_do_reset(t);
 945         teken_subr_erase_display(t, 2);
 946         teken_funcs_param(t, TP_SHOWCURSOR, 1);
 947         teken_funcs_cursor(t);
 948 }
 949
 950 static void
 951 teken_subr_restore_cursor(teken_t *t)
 952 {
 953
 954         t->t_cursor = t->t_saved_cursor;
 955         t->t_curattr = t->t_saved_curattr;
 956         t->t_stateflags &= ~TS_WRAPPED;
 957         teken_scs_restore(t);
 958         teken_funcs_cursor(t);
 959 }
 960
 961 static void
 962 teken_subr_reverse_index(teken_t *t)
 963 {
 964
 965         if (t->t_cursor.tp_row > t->t_scrollreg.ts_begin) {
 966                 t->t_cursor.tp_row--;
 967                 t->t_stateflags &= ~TS_WRAPPED;
 968                 teken_funcs_cursor(t);
 969         } else {
 970                 teken_subr_do_scroll(t, -1);
 971         }
 972 }
 973
 974 static void
 975 teken_subr_save_cursor(teken_t *t)
 976 {
 977
 978         t->t_saved_cursor = t->t_cursor;
 979         t->t_saved_curattr = t->t_curattr;
 980         teken_scs_save(t);
 981 }
 982
 983 static void
 984 teken_subr_secondary_device_attributes(teken_t *t, unsigned int request)
 985 {
 986
 987         if (request == 0) {
 988                 const char response[] = "\x1B[>0;10;0c";
 989                 teken_funcs_respond(t, response, sizeof response - 1);
 990         } else {
 991                 teken_printf("Unknown DA2\n");
 992         }
 993 }
 994
 995 static void
 996 teken_subr_set_dec_mode(teken_t *t, unsigned int cmd)
 997 {
 998
 999         switch (cmd) {
1000         case 1: /* Cursor keys mode. */
1001                 teken_funcs_param(t, TP_CURSORKEYS, 1);
1002                 break;
1003         case 2: /* DECANM: ANSI/VT52 mode. */
1004                 teken_printf("DECSET VT52\n");
1005                 break;
1006         case 3: /* 132 column mode. */
1007                 teken_funcs_param(t, TP_132COLS, 1);
1008                 teken_subr_reset_to_initial_state(t);
1009                 break;
1010         case 5: /* Inverse video. */
1011                 teken_printf("DECSET inverse video\n");
1012                 break;
1013         case 6: /* Origin mode. */
1014                 t->t_stateflags |= TS_ORIGIN;
1015                 t->t_originreg = t->t_scrollreg;
1016                 t->t_cursor.tp_row = t->t_scrollreg.ts_begin;
1017                 t->t_cursor.tp_col = 0;
1018                 t->t_stateflags &= ~TS_WRAPPED;
1019                 teken_funcs_cursor(t);
1020                 break;
1021         case 7: /* Autowrap mode. */
1022                 t->t_stateflags |= TS_AUTOWRAP;
1023                 break;
1024         case 8: /* Autorepeat mode. */
1025                 teken_funcs_param(t, TP_AUTOREPEAT, 1);
1026                 break;
1027         case 25: /* Display cursor. */
1028                 teken_funcs_param(t, TP_SHOWCURSOR, 1);
1029                 break;
1030         case 40: /* Allow 132 columns. */
1031                 teken_printf("DECSET allow 132\n");
1032                 break;
1033         case 45: /* Enable reverse wraparound. */
1034                 teken_printf("DECSET reverse wraparound\n");
1035                 break;
1036         case 47: /* Switch to alternate buffer. */
1037                 teken_printf("Switch away from alternate buffer\n");
1038                 break;
1039         default:
1040                 teken_printf("Unknown DECSET: %u\n", cmd);
1041         }
1042 }
1043
1044 static void
1045 teken_subr_set_mode(teken_t *t, unsigned int cmd)
1046 {
1047
1048         switch (cmd) {
1049         case 4:
1050                 teken_printf("Insert mode\n");
1051                 t->t_stateflags |= TS_INSERT;
1052                 break;
1053         default:
1054                 teken_printf("Unknown set mode: %u\n", cmd);
1055         }
1056 }
1057
1058 static void
1059 teken_subr_set_graphic_rendition(teken_t *t, unsigned int ncmds,
1060     unsigned int cmds[])
1061 {
1062         unsigned int i, n;
1063
1064         /* No attributes means reset. */
1065         if (ncmds == 0) {
1066                 t->t_curattr = t->t_defattr;
1067                 return;
1068         }
1069
1070         for (i = 0; i < ncmds; i++) {
1071                 n = cmds[i];
1072
1073                 switch (n) {
1074                 case 0: /* Reset. */
1075                         t->t_curattr = t->t_defattr;
1076                         break;
1077                 case 1: /* Bold. */
1078                         t->t_curattr.ta_format |= TF_BOLD;
1079                         break;
1080                 case 4: /* Underline. */
1081                         t->t_curattr.ta_format |= TF_UNDERLINE;
1082                         break;
1083                 case 5: /* Blink. */
1084                         t->t_curattr.ta_format |= TF_BLINK;
1085                         break;
1086                 case 7: /* Reverse. */
1087                         t->t_curattr.ta_format |= TF_REVERSE;
1088                         break;
1089                 case 22: /* Remove bold. */
1090                         t->t_curattr.ta_format &= ~TF_BOLD;
1091                         break;
1092                 case 24: /* Remove underline. */
1093                         t->t_curattr.ta_format &= ~TF_UNDERLINE;
1094                         break;
1095                 case 25: /* Remove blink. */
1096                         t->t_curattr.ta_format &= ~TF_BLINK;
1097                         break;
1098                 case 27: /* Remove reverse. */
1099                         t->t_curattr.ta_format &= ~TF_REVERSE;
1100                         break;
1101                 case 30: /* Set foreground color: black */
1102                 case 31: /* Set foreground color: red */
1103                 case 32: /* Set foreground color: green */
1104                 case 33: /* Set foreground color: brown */
1105                 case 34: /* Set foreground color: blue */
1106                 case 35: /* Set foreground color: magenta */
1107                 case 36: /* Set foreground color: cyan */
1108                 case 37: /* Set foreground color: white */
1109                         t->t_curattr.ta_fgcolor = n - 30;
1110                         break;
1111                 case 39: /* Set default foreground color. */
1112                         t->t_curattr.ta_fgcolor = t->t_defattr.ta_fgcolor;
1113                         break;
1114                 case 40: /* Set background color: black */
1115                 case 41: /* Set background color: red */
1116                 case 42: /* Set background color: green */
1117                 case 43: /* Set background color: brown */
1118                 case 44: /* Set background color: blue */
1119                 case 45: /* Set background color: magenta */
1120                 case 46: /* Set background color: cyan */
1121                 case 47: /* Set background color: white */
1122                         t->t_curattr.ta_bgcolor = n - 40;
1123                         break;
1124                 case 49: /* Set default background color. */
1125                         t->t_curattr.ta_bgcolor = t->t_defattr.ta_bgcolor;
1126                         break;
1127                 default:
1128                         teken_printf("unsupported attribute %u\n", n);
1129                 }
1130         }
1131 }
1132
1133 static void
1134 teken_subr_set_top_and_bottom_margins(teken_t *t, unsigned int top,
1135     unsigned int bottom)
1136 {
1137
1138         /* Adjust top row number. */
1139         if (top > 0)
1140                 top--;
1141         /* Adjust bottom row number. */
1142         if (bottom == 0 || bottom > t->t_winsize.tp_row)
1143                 bottom = t->t_winsize.tp_row;
1144
1145         /* Invalid arguments. */
1146         if (top >= bottom - 1) {
1147                 top = 0;
1148                 bottom = t->t_winsize.tp_row;
1149         }
1150
1151         t->t_scrollreg.ts_begin = top;
1152         t->t_scrollreg.ts_end = bottom;
1153         if (t->t_stateflags & TS_ORIGIN) {
1154                 /* XXX: home cursor? */
1155                 t->t_originreg = t->t_scrollreg;
1156                 t->t_cursor.tp_row = t->t_originreg.ts_begin;
1157                 t->t_cursor.tp_col = 0;
1158                 t->t_stateflags &= ~TS_WRAPPED;
1159                 teken_funcs_cursor(t);
1160         }
1161 }
1162
1163 static void
1164 teken_subr_single_height_double_width_line(teken_t *t __unused)
1165 {
1166
1167         teken_printf("single height double width???\n");
1168 }
1169
1170 static void
1171 teken_subr_single_height_single_width_line(teken_t *t __unused)
1172 {
1173
1174         teken_printf("single height single width???\n");
1175 }
1176
1177 static void
1178 teken_subr_string_terminator(teken_t *t __unused)
1179 {
1180
1181         teken_printf("string terminator???\n");
1182 }
1183
1184 static void
1185 teken_subr_tab_clear(teken_t *t, unsigned int cmd)
1186 {
1187
1188         switch (cmd) {
1189         case 0:
1190                 teken_tab_clear(t, t->t_cursor.tp_col);
1191                 break;
1192         case 3:
1193                 memset(&t->t_tabstops, 0, T_NUMCOL / 8);
1194                 break;
1195         }
1196 }
1197
1198 static void
1199 teken_subr_vertical_position_absolute(teken_t *t, unsigned int row)
1200 {
1201
1202         t->t_cursor.tp_row = t->t_originreg.ts_begin + row - 1;
1203         if (row >= t->t_originreg.ts_end)
1204                 t->t_cursor.tp_row = t->t_originreg.ts_end - 1;
1205
1206
1207         t->t_stateflags &= ~TS_WRAPPED;
1208         teken_funcs_cursor(t);
1209 }