1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause
3 *
4 * Copyright (c) 2009, 2013 The FreeBSD Foundation
5 *
6 * This software was developed by Ed Schouten under sponsorship from the
7 * FreeBSD Foundation.
8 *
9 * Portions of this software were developed by Oleksandr Rybalko
10 * under sponsorship from the FreeBSD Foundation.
11 *
12 * Redistribution and use in source and binary forms, with or without
13 * modification, are permitted provided that the following conditions
14 * are met:
15 * 1. Redistributions of source code must retain the above copyright
16 * notice, this list of conditions and the following disclaimer.
17 * 2. Redistributions in binary form must reproduce the above copyright
18 * notice, this list of conditions and the following disclaimer in the
19 * documentation and/or other materials provided with the distribution.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33
34 #include <sys/cdefs.h>
35 #include <sys/param.h>
36 #include <sys/systm.h>
37 #include <sys/kernel.h>
38 #include <sys/lock.h>
39 #include <sys/malloc.h>
40 #include <sys/mutex.h>
41 #include <sys/reboot.h>
42
43 #include <dev/vt/vt.h>
44
45 static MALLOC_DEFINE(M_VTBUF, "vtbuf", "vt buffer");
46
47 #define VTBUF_LOCK(vb) mtx_lock_spin(&(vb)->vb_lock)
48 #define VTBUF_UNLOCK(vb) mtx_unlock_spin(&(vb)->vb_lock)
49
50 #define POS_INDEX(c, r) (((r) << 12) + (c))
51 #define POS_COPY(d, s) do { \
52 (d).tp_col = (s).tp_col; \
53 (d).tp_row = (s).tp_row; \
54 } while (0)
55
56 #ifndef SC_NO_CUTPASTE
57 static int vtbuf_htw(const struct vt_buf *vb, int row);
58 static int vtbuf_wth(const struct vt_buf *vb, int row);
59 static int vtbuf_in_this_range(int begin, int test, int end, int sz);
60 #endif
61
62 /*
63 * line4
64 * line5 <--- curroffset (terminal output to that line)
65 * line0
66 * line1 <--- roffset (history display from that point)
67 * line2
68 * line3
69 */
70 int
vthistory_seek(struct vt_buf * vb,int offset,int whence)71 vthistory_seek(struct vt_buf *vb, int offset, int whence)
72 {
73 int diff, top, bottom, roffset;
74
75 /* No scrolling if not enabled. */
76 if ((vb->vb_flags & VBF_SCROLL) == 0) {
77 if (vb->vb_roffset != vb->vb_curroffset) {
78 vb->vb_roffset = vb->vb_curroffset;
79 return (0xffff);
80 }
81 return (0); /* No changes */
82 }
83
84 /* "top" may be a negative integer. */
85 bottom = vb->vb_curroffset;
86 top = (vb->vb_flags & VBF_HISTORY_FULL) ?
87 bottom + vb->vb_scr_size.tp_row - vb->vb_history_size :
88 0;
89
90 roffset = 0; /* Make gcc happy. */
91 switch (whence) {
92 case VHS_SET:
93 if (offset < 0)
94 offset = 0;
95 roffset = top + offset;
96 break;
97 case VHS_CUR:
98 /*
99 * Operate on copy of offset value, since it temporary
100 * can be bigger than amount of rows in buffer.
101 */
102 roffset = vb->vb_roffset;
103 if (roffset >= bottom + vb->vb_scr_size.tp_row)
104 roffset -= vb->vb_history_size;
105
106 roffset += offset;
107 roffset = MAX(roffset, top);
108 roffset = MIN(roffset, bottom);
109
110 if (roffset < 0)
111 roffset = vb->vb_history_size + roffset;
112
113 break;
114 case VHS_END:
115 /* Go to current offset. */
116 roffset = vb->vb_curroffset;
117 break;
118 }
119
120 diff = vb->vb_roffset != roffset;
121 vb->vb_roffset = roffset;
122
123 return (diff);
124 }
125
126 void
vthistory_addlines(struct vt_buf * vb,int offset)127 vthistory_addlines(struct vt_buf *vb, int offset)
128 {
129 #ifndef SC_NO_CUTPASTE
130 int cur, sz;
131 #endif
132
133 vb->vb_curroffset += offset;
134 if (vb->vb_curroffset + vb->vb_scr_size.tp_row >= vb->vb_history_size) {
135 vb->vb_flags |= VBF_HISTORY_FULL;
136 vb->vb_curroffset %= vb->vb_history_size;
137 }
138 if ((vb->vb_flags & VBF_SCROLL) == 0) {
139 vb->vb_roffset = vb->vb_curroffset;
140 }
141
142 #ifndef SC_NO_CUTPASTE
143 sz = vb->vb_history_size;
144 cur = vb->vb_roffset + vb->vb_scr_size.tp_row + sz - 1;
145 if (vtbuf_in_this_range(cur, vb->vb_mark_start.tp_row, cur + offset, sz) ||
146 vtbuf_in_this_range(cur, vb->vb_mark_end.tp_row, cur + offset, sz)) {
147 /* clear screen selection */
148 vb->vb_mark_start.tp_row = vb->vb_mark_end.tp_row;
149 vb->vb_mark_start.tp_col = vb->vb_mark_end.tp_col;
150 }
151 #endif
152 }
153
154 void
vthistory_getpos(const struct vt_buf * vb,unsigned int * offset)155 vthistory_getpos(const struct vt_buf *vb, unsigned int *offset)
156 {
157
158 *offset = vb->vb_roffset;
159 }
160
161 #ifndef SC_NO_CUTPASTE /* Only mouse support use it now. */
162 /* Translate history row to current view row number. */
163 static int
vtbuf_htw(const struct vt_buf * vb,int row)164 vtbuf_htw(const struct vt_buf *vb, int row)
165 {
166
167 /*
168 * total 1000 rows.
169 * History offset roffset winrow
170 * 205 200 ((205 - 200 + 1000) % 1000) = 5
171 * 90 990 ((90 - 990 + 1000) % 1000) = 100
172 */
173 return ((row - vb->vb_roffset + vb->vb_history_size) %
174 vb->vb_history_size);
175 }
176
177 /* Translate current view row number to history row. */
178 static int
vtbuf_wth(const struct vt_buf * vb,int row)179 vtbuf_wth(const struct vt_buf *vb, int row)
180 {
181
182 return ((vb->vb_roffset + row) % vb->vb_history_size);
183 }
184
185 /*
186 * Test if an index in a circular buffer is within a range.
187 *
188 * begin - start index
189 * end - end index
190 * test - test index
191 * sz - size of circular buffer when it turns over
192 */
193 static int
vtbuf_in_this_range(int begin,int test,int end,int sz)194 vtbuf_in_this_range(int begin, int test, int end, int sz)
195 {
196
197 begin %= sz;
198 end %= sz;
199
200 /* check for inversion */
201 if (begin > end)
202 return (test >= begin || test < end);
203 else
204 return (test >= begin && test < end);
205 }
206 #endif
207
208 int
vtbuf_iscursor(const struct vt_buf * vb,int row,int col)209 vtbuf_iscursor(const struct vt_buf *vb, int row, int col)
210 {
211 #ifndef SC_NO_CUTPASTE
212 int sc, sr, sz, ec, er, tmp;
213 #endif
214
215 if ((vb->vb_flags & (VBF_CURSOR|VBF_SCROLL)) == VBF_CURSOR &&
216 (vb->vb_cursor.tp_row == row) && (vb->vb_cursor.tp_col == col))
217 return (1);
218
219 #ifndef SC_NO_CUTPASTE
220 /* Mark cut/paste region. */
221 if (vb->vb_mark_start.tp_col == vb->vb_mark_end.tp_col &&
222 vb->vb_mark_start.tp_row == vb->vb_mark_end.tp_row)
223 return (0);
224
225 sc = vb->vb_mark_start.tp_col;
226 sr = vb->vb_mark_start.tp_row;
227 ec = vb->vb_mark_end.tp_col;
228 er = vb->vb_mark_end.tp_row;
229
230 /*
231 * Information about if the selection was made bottom-top or
232 * top-bottom is lost due to modulo arithmetics and needs to
233 * be recovered:
234 */
235 sz = vb->vb_history_size;
236 tmp = (sz + er - sr) % sz;
237 row = vtbuf_wth(vb, row);
238
239 /* Swap start and end if start > end */
240 if ((2 * tmp) > sz || (tmp == 0 && sc > ec)) {
241 tmp = sc; sc = ec; ec = tmp;
242 tmp = sr; sr = er; er = tmp;
243 }
244
245 if (vtbuf_in_this_range(POS_INDEX(sc, sr), POS_INDEX(col, row),
246 POS_INDEX(ec, er), POS_INDEX(0, sz)))
247 return (1);
248 #endif
249
250 return (0);
251 }
252
253 void
vtbuf_lock(struct vt_buf * vb)254 vtbuf_lock(struct vt_buf *vb)
255 {
256
257 VTBUF_LOCK(vb);
258 }
259
260 void
vtbuf_unlock(struct vt_buf * vb)261 vtbuf_unlock(struct vt_buf *vb)
262 {
263
264 VTBUF_UNLOCK(vb);
265 }
266
267 void
vtbuf_dirty(struct vt_buf * vb,const term_rect_t * area)268 vtbuf_dirty(struct vt_buf *vb, const term_rect_t *area)
269 {
270
271 if (vb->vb_dirtyrect.tr_begin.tp_row > area->tr_begin.tp_row)
272 vb->vb_dirtyrect.tr_begin.tp_row = area->tr_begin.tp_row;
273 if (vb->vb_dirtyrect.tr_begin.tp_col > area->tr_begin.tp_col)
274 vb->vb_dirtyrect.tr_begin.tp_col = area->tr_begin.tp_col;
275 if (vb->vb_dirtyrect.tr_end.tp_row < area->tr_end.tp_row)
276 vb->vb_dirtyrect.tr_end.tp_row = area->tr_end.tp_row;
277 if (vb->vb_dirtyrect.tr_end.tp_col < area->tr_end.tp_col)
278 vb->vb_dirtyrect.tr_end.tp_col = area->tr_end.tp_col;
279 }
280
281 static inline void
vtbuf_dirty_cell(struct vt_buf * vb,const term_pos_t * p)282 vtbuf_dirty_cell(struct vt_buf *vb, const term_pos_t *p)
283 {
284 term_rect_t area;
285
286 area.tr_begin = *p;
287 area.tr_end.tp_row = p->tp_row + 1;
288 area.tr_end.tp_col = p->tp_col + 1;
289 vtbuf_dirty(vb, &area);
290 }
291
292 static void
vtbuf_make_undirty(struct vt_buf * vb)293 vtbuf_make_undirty(struct vt_buf *vb)
294 {
295
296 vb->vb_dirtyrect.tr_begin = vb->vb_scr_size;
297 vb->vb_dirtyrect.tr_end.tp_row = vb->vb_dirtyrect.tr_end.tp_col = 0;
298 }
299
300 void
vtbuf_undirty(struct vt_buf * vb,term_rect_t * r)301 vtbuf_undirty(struct vt_buf *vb, term_rect_t *r)
302 {
303
304 *r = vb->vb_dirtyrect;
305 vtbuf_make_undirty(vb);
306 }
307
308 void
vtbuf_copy(struct vt_buf * vb,const term_rect_t * r,const term_pos_t * p2)309 vtbuf_copy(struct vt_buf *vb, const term_rect_t *r, const term_pos_t *p2)
310 {
311 const term_pos_t *p1 = &r->tr_begin;
312 term_rect_t area;
313 unsigned int rows, cols;
314 int pr, rdiff;
315
316 KASSERT(r->tr_begin.tp_row < vb->vb_scr_size.tp_row,
317 ("vtbuf_copy begin.tp_row %d must be less than screen width %d",
318 r->tr_begin.tp_row, vb->vb_scr_size.tp_row));
319 KASSERT(r->tr_begin.tp_col < vb->vb_scr_size.tp_col,
320 ("vtbuf_copy begin.tp_col %d must be less than screen height %d",
321 r->tr_begin.tp_col, vb->vb_scr_size.tp_col));
322
323 KASSERT(r->tr_end.tp_row <= vb->vb_scr_size.tp_row,
324 ("vtbuf_copy end.tp_row %d must be less than screen width %d",
325 r->tr_end.tp_row, vb->vb_scr_size.tp_row));
326 KASSERT(r->tr_end.tp_col <= vb->vb_scr_size.tp_col,
327 ("vtbuf_copy end.tp_col %d must be less than screen height %d",
328 r->tr_end.tp_col, vb->vb_scr_size.tp_col));
329
330 KASSERT(p2->tp_row < vb->vb_scr_size.tp_row,
331 ("vtbuf_copy tp_row %d must be less than screen width %d",
332 p2->tp_row, vb->vb_scr_size.tp_row));
333 KASSERT(p2->tp_col < vb->vb_scr_size.tp_col,
334 ("vtbuf_copy tp_col %d must be less than screen height %d",
335 p2->tp_col, vb->vb_scr_size.tp_col));
336
337 rows = r->tr_end.tp_row - r->tr_begin.tp_row;
338 rdiff = r->tr_begin.tp_row - p2->tp_row;
339 cols = r->tr_end.tp_col - r->tr_begin.tp_col;
340 if (r->tr_begin.tp_row > p2->tp_row && r->tr_begin.tp_col == 0 &&
341 r->tr_end.tp_col == vb->vb_scr_size.tp_col && /* Full row. */
342 (rows + rdiff) == vb->vb_scr_size.tp_row && /* Whole screen. */
343 rdiff > 0) { /* Only forward direction. Do not eat history. */
344 vthistory_addlines(vb, rdiff);
345 } else if (p2->tp_row < p1->tp_row) {
346 /* Handle overlapping copies of line segments. */
347 /* Move data up. */
348 for (pr = 0; pr < rows; pr++)
349 memmove(
350 &VTBUF_FIELD(vb, p2->tp_row + pr, p2->tp_col),
351 &VTBUF_FIELD(vb, p1->tp_row + pr, p1->tp_col),
352 cols * sizeof(term_char_t));
353 } else {
354 /* Move data down. */
355 for (pr = rows - 1; pr >= 0; pr--)
356 memmove(
357 &VTBUF_FIELD(vb, p2->tp_row + pr, p2->tp_col),
358 &VTBUF_FIELD(vb, p1->tp_row + pr, p1->tp_col),
359 cols * sizeof(term_char_t));
360 }
361
362 area.tr_begin = *p2;
363 area.tr_end.tp_row = MIN(p2->tp_row + rows, vb->vb_scr_size.tp_row);
364 area.tr_end.tp_col = MIN(p2->tp_col + cols, vb->vb_scr_size.tp_col);
365 vtbuf_dirty(vb, &area);
366 }
367
368 static void
vtbuf_do_fill(struct vt_buf * vb,const term_rect_t * r,term_char_t c)369 vtbuf_do_fill(struct vt_buf *vb, const term_rect_t *r, term_char_t c)
370 {
371 unsigned int pr, pc;
372 term_char_t *row;
373
374 for (pr = r->tr_begin.tp_row; pr < r->tr_end.tp_row; pr++) {
375 row = vb->vb_rows[(vb->vb_curroffset + pr) %
376 VTBUF_MAX_HEIGHT(vb)];
377 for (pc = r->tr_begin.tp_col; pc < r->tr_end.tp_col; pc++) {
378 row[pc] = c;
379 }
380 }
381 }
382
383 void
vtbuf_fill(struct vt_buf * vb,const term_rect_t * r,term_char_t c)384 vtbuf_fill(struct vt_buf *vb, const term_rect_t *r, term_char_t c)
385 {
386
387 KASSERT(r->tr_begin.tp_row < vb->vb_scr_size.tp_row,
388 ("vtbuf_fill begin.tp_row %d must be < screen height %d",
389 r->tr_begin.tp_row, vb->vb_scr_size.tp_row));
390 KASSERT(r->tr_begin.tp_col < vb->vb_scr_size.tp_col,
391 ("vtbuf_fill begin.tp_col %d must be < screen width %d",
392 r->tr_begin.tp_col, vb->vb_scr_size.tp_col));
393
394 KASSERT(r->tr_end.tp_row <= vb->vb_scr_size.tp_row,
395 ("vtbuf_fill end.tp_row %d must be <= screen height %d",
396 r->tr_end.tp_row, vb->vb_scr_size.tp_row));
397 KASSERT(r->tr_end.tp_col <= vb->vb_scr_size.tp_col,
398 ("vtbuf_fill end.tp_col %d must be <= screen width %d",
399 r->tr_end.tp_col, vb->vb_scr_size.tp_col));
400
401 vtbuf_do_fill(vb, r, c);
402 vtbuf_dirty(vb, r);
403 }
404
405 static void
vtbuf_init_rows(struct vt_buf * vb)406 vtbuf_init_rows(struct vt_buf *vb)
407 {
408 int r;
409
410 vb->vb_history_size = MAX(vb->vb_history_size, vb->vb_scr_size.tp_row);
411
412 for (r = 0; r < vb->vb_history_size; r++)
413 vb->vb_rows[r] = &vb->vb_buffer[r * vb->vb_scr_size.tp_col];
414 }
415
416 static void
vtbuf_do_clearhistory(struct vt_buf * vb)417 vtbuf_do_clearhistory(struct vt_buf *vb)
418 {
419 term_rect_t rect;
420 const teken_attr_t *a;
421 term_char_t ch;
422
423 a = teken_get_curattr(&vb->vb_terminal->tm_emulator);
424 ch = TCOLOR_FG(a->ta_fgcolor) | TCOLOR_BG(a->ta_bgcolor);
425
426 rect.tr_begin.tp_row = rect.tr_begin.tp_col = 0;
427 rect.tr_end.tp_col = vb->vb_scr_size.tp_col;
428 rect.tr_end.tp_row = vb->vb_history_size;
429
430 vtbuf_do_fill(vb, &rect, VTBUF_SPACE_CHAR(ch));
431 }
432
433 static void
vtbuf_reset_scrollback(struct vt_buf * vb)434 vtbuf_reset_scrollback(struct vt_buf *vb)
435 {
436 vb->vb_roffset = 0;
437 vb->vb_curroffset = 0;
438 vb->vb_mark_start.tp_row = 0;
439 vb->vb_mark_start.tp_col = 0;
440 vb->vb_mark_end.tp_row = 0;
441 vb->vb_mark_end.tp_col = 0;
442 }
443
444 void
vtbuf_init_early(struct vt_buf * vb)445 vtbuf_init_early(struct vt_buf *vb)
446 {
447 vb->vb_flags |= VBF_CURSOR;
448 vtbuf_reset_scrollback(vb);
449 vtbuf_init_rows(vb);
450 vtbuf_do_clearhistory(vb);
451 vtbuf_make_undirty(vb);
452 if ((vb->vb_flags & VBF_MTX_INIT) == 0) {
453 mtx_init(&vb->vb_lock, "vtbuf", NULL, MTX_SPIN);
454 vb->vb_flags |= VBF_MTX_INIT;
455 }
456 }
457
458 void
vtbuf_init(struct vt_buf * vb,const term_pos_t * p)459 vtbuf_init(struct vt_buf *vb, const term_pos_t *p)
460 {
461 int sz;
462
463 vb->vb_scr_size = *p;
464 vb->vb_history_size = VBF_DEFAULT_HISTORY_SIZE;
465
466 if ((vb->vb_flags & VBF_STATIC) == 0) {
467 sz = vb->vb_history_size * p->tp_col * sizeof(term_char_t);
468 vb->vb_buffer = malloc(sz, M_VTBUF, M_WAITOK | M_ZERO);
469
470 sz = vb->vb_history_size * sizeof(term_char_t *);
471 vb->vb_rows = malloc(sz, M_VTBUF, M_WAITOK | M_ZERO);
472 }
473
474 vtbuf_init_early(vb);
475 }
476
477 void
vtbuf_clearhistory(struct vt_buf * vb)478 vtbuf_clearhistory(struct vt_buf *vb)
479 {
480 VTBUF_LOCK(vb);
481 vtbuf_do_clearhistory(vb);
482 vtbuf_reset_scrollback(vb);
483 vb->vb_flags &= ~VBF_HISTORY_FULL;
484 VTBUF_UNLOCK(vb);
485 }
486
487 void
vtbuf_sethistory_size(struct vt_buf * vb,unsigned int size)488 vtbuf_sethistory_size(struct vt_buf *vb, unsigned int size)
489 {
490 term_pos_t p;
491
492 /* With same size */
493 p.tp_row = vb->vb_scr_size.tp_row;
494 p.tp_col = vb->vb_scr_size.tp_col;
495 vtbuf_grow(vb, &p, size);
496 }
497
498 void
vtbuf_grow(struct vt_buf * vb,const term_pos_t * p,unsigned int history_size)499 vtbuf_grow(struct vt_buf *vb, const term_pos_t *p, unsigned int history_size)
500 {
501 term_char_t *old, *new, **rows, **oldrows, **copyrows, *row, *oldrow;
502 unsigned int w, h, c, r, old_history_size;
503 size_t bufsize, rowssize;
504 int history_full;
505 const teken_attr_t *a;
506 term_char_t ch;
507
508 a = teken_get_curattr(&vb->vb_terminal->tm_emulator);
509 ch = TCOLOR_FG(a->ta_fgcolor) | TCOLOR_BG(a->ta_bgcolor);
510
511 history_size = MAX(history_size, p->tp_row);
512
513 /* Allocate new buffer. */
514 bufsize = history_size * p->tp_col * sizeof(term_char_t);
515 new = malloc(bufsize, M_VTBUF, M_WAITOK | M_ZERO);
516 rowssize = history_size * sizeof(term_pos_t *);
517 rows = malloc(rowssize, M_VTBUF, M_WAITOK | M_ZERO);
518
519 /* Toggle it. */
520 VTBUF_LOCK(vb);
521 old = vb->vb_flags & VBF_STATIC ? NULL : vb->vb_buffer;
522 oldrows = vb->vb_flags & VBF_STATIC ? NULL : vb->vb_rows;
523 copyrows = vb->vb_rows;
524
525 w = vb->vb_scr_size.tp_col;
526 h = vb->vb_scr_size.tp_row;
527 old_history_size = vb->vb_history_size;
528 history_full = vb->vb_flags & VBF_HISTORY_FULL ||
529 vb->vb_curroffset + h >= history_size;
530
531 vb->vb_history_size = history_size;
532 vb->vb_buffer = new;
533 vb->vb_rows = rows;
534 vb->vb_flags &= ~VBF_STATIC;
535 vb->vb_scr_size = *p;
536 vtbuf_init_rows(vb);
537
538 /*
539 * Copy rows to the new buffer. The first row in the history
540 * is back to index 0, ie. the new buffer doesn't cycle.
541 */
542 if (history_size > old_history_size) {
543 for (r = 0; r < old_history_size; r++) {
544 row = rows[r];
545
546 /* Compute the corresponding row in the old buffer. */
547 if (history_full)
548 /*
549 * The buffer is full, the "top" row is
550 * the one just after the viewable area
551 * (curroffset + viewable height) in the
552 * cycling buffer. The corresponding row
553 * is computed from this top row.
554 */
555 oldrow = copyrows[
556 (vb->vb_curroffset + h + r) %
557 old_history_size];
558 else
559 /*
560 * The buffer is not full, therefore,
561 * we didn't cycle already. The
562 * corresponding rows are the same in
563 * both buffers.
564 */
565 oldrow = copyrows[r];
566
567 memmove(row, oldrow,
568 MIN(p->tp_col, w) * sizeof(term_char_t));
569
570 /*
571 * XXX VTBUF_SPACE_CHAR(TERMINAL_NORM_ATTR) will
572 * extended lines of kernel text using the wrong
573 * background color.
574 */
575 for (c = MIN(p->tp_col, w); c < p->tp_col; c++) {
576 row[c] = VTBUF_SPACE_CHAR(ch);
577 }
578 }
579
580 /* Fill remaining rows. */
581 for (r = old_history_size; r < history_size; r++) {
582 row = rows[r];
583 for (c = MIN(p->tp_col, w); c < p->tp_col; c++) {
584 row[c] = VTBUF_SPACE_CHAR(ch);
585 }
586 }
587
588 vb->vb_flags &= ~VBF_HISTORY_FULL;
589
590 /*
591 * If the screen is already filled (there are non-visible lines
592 * above the current viewable area), adjust curroffset to the
593 * new viewable area.
594 *
595 * If the old buffer was full, set curroffset to the
596 * <h>th most recent line of history in the new, non-cycled
597 * buffer. Otherwise, it didn't cycle, so the old curroffset
598 * is the same in the new buffer.
599 */
600 if (history_full)
601 vb->vb_curroffset = old_history_size - h;
602 } else {
603 /*
604 * (old_history_size - history_size) lines of history are
605 * dropped.
606 */
607 for (r = 0; r < history_size; r++) {
608 row = rows[r];
609
610 /*
611 * Compute the corresponding row in the old buffer.
612 *
613 * See the equivalent if{} block above for an
614 * explanation.
615 */
616 if (history_full)
617 oldrow = copyrows[
618 (vb->vb_curroffset + h + r +
619 (old_history_size - history_size)) %
620 old_history_size];
621 else
622 oldrow = copyrows[r];
623
624 memmove(row, oldrow,
625 MIN(p->tp_col, w) * sizeof(term_char_t));
626
627 /*
628 * XXX VTBUF_SPACE_CHAR(TERMINAL_NORM_ATTR) will
629 * extended lines of kernel text using the wrong
630 * background color.
631 */
632 for (c = MIN(p->tp_col, w); c < p->tp_col; c++) {
633 row[c] = VTBUF_SPACE_CHAR(ch);
634 }
635 }
636
637 if (history_full) {
638 vb->vb_curroffset = history_size - h;
639 vb->vb_flags |= VBF_HISTORY_FULL;
640 }
641 }
642
643 vb->vb_roffset = vb->vb_curroffset;
644
645 /* Adjust cursor position. */
646 if (vb->vb_cursor.tp_col > p->tp_col - 1)
647 /*
648 * Move cursor to the last column, in case its previous
649 * position is outside of the new screen area.
650 */
651 vb->vb_cursor.tp_col = p->tp_col - 1;
652
653 if (vb->vb_curroffset > 0 || vb->vb_cursor.tp_row > p->tp_row - 1)
654 /* Move cursor to the last line on the screen. */
655 vb->vb_cursor.tp_row = p->tp_row - 1;
656
657 VTBUF_UNLOCK(vb);
658
659 /* Deallocate old buffer. */
660 free(old, M_VTBUF);
661 free(oldrows, M_VTBUF);
662 }
663
664 void
vtbuf_putchar(struct vt_buf * vb,const term_pos_t * p,term_char_t c)665 vtbuf_putchar(struct vt_buf *vb, const term_pos_t *p, term_char_t c)
666 {
667 term_char_t *row;
668
669 KASSERT(p->tp_row < vb->vb_scr_size.tp_row,
670 ("vtbuf_putchar tp_row %d must be less than screen width %d",
671 p->tp_row, vb->vb_scr_size.tp_row));
672 KASSERT(p->tp_col < vb->vb_scr_size.tp_col,
673 ("vtbuf_putchar tp_col %d must be less than screen height %d",
674 p->tp_col, vb->vb_scr_size.tp_col));
675
676 row = vb->vb_rows[(vb->vb_curroffset + p->tp_row) %
677 VTBUF_MAX_HEIGHT(vb)];
678 if (row[p->tp_col] != c) {
679 row[p->tp_col] = c;
680 vtbuf_dirty_cell(vb, p);
681 }
682 }
683
684 void
vtbuf_cursor_position(struct vt_buf * vb,const term_pos_t * p)685 vtbuf_cursor_position(struct vt_buf *vb, const term_pos_t *p)
686 {
687 if (vb->vb_flags & VBF_CURSOR) {
688 vtbuf_dirty_cell(vb, &vb->vb_cursor);
689 vb->vb_cursor = *p;
690 vtbuf_dirty_cell(vb, &vb->vb_cursor);
691 } else {
692 vb->vb_cursor = *p;
693 }
694 }
695
696 #ifndef SC_NO_CUTPASTE
697 static void
vtbuf_flush_mark(struct vt_buf * vb)698 vtbuf_flush_mark(struct vt_buf *vb)
699 {
700 term_rect_t area;
701 int s, e;
702
703 /* Notify renderer to update marked region. */
704 if ((vb->vb_mark_start.tp_col != vb->vb_mark_end.tp_col) ||
705 (vb->vb_mark_start.tp_row != vb->vb_mark_end.tp_row)) {
706 s = vtbuf_htw(vb, vb->vb_mark_start.tp_row);
707 e = vtbuf_htw(vb, vb->vb_mark_end.tp_row);
708
709 area.tr_begin.tp_col = 0;
710 area.tr_begin.tp_row = MIN(s, e);
711
712 area.tr_end.tp_col = vb->vb_scr_size.tp_col;
713 area.tr_end.tp_row = MAX(s, e) + 1;
714
715 VTBUF_LOCK(vb);
716 vtbuf_dirty(vb, &area);
717 VTBUF_UNLOCK(vb);
718 }
719 }
720
721 int
vtbuf_get_marked_len(struct vt_buf * vb)722 vtbuf_get_marked_len(struct vt_buf *vb)
723 {
724 int ei, si, sz;
725 term_pos_t s, e;
726
727 /* Swap according to window coordinates. */
728 if (POS_INDEX(vtbuf_htw(vb, vb->vb_mark_start.tp_row),
729 vb->vb_mark_start.tp_col) >
730 POS_INDEX(vtbuf_htw(vb, vb->vb_mark_end.tp_row),
731 vb->vb_mark_end.tp_col)) {
732 POS_COPY(e, vb->vb_mark_start);
733 POS_COPY(s, vb->vb_mark_end);
734 } else {
735 POS_COPY(s, vb->vb_mark_start);
736 POS_COPY(e, vb->vb_mark_end);
737 }
738
739 si = s.tp_row * vb->vb_scr_size.tp_col + s.tp_col;
740 ei = e.tp_row * vb->vb_scr_size.tp_col + e.tp_col;
741
742 /* Number symbols and number of rows to inject \r */
743 sz = ei - si + (1 + e.tp_row - s.tp_row);
744
745 return (sz * sizeof(term_char_t));
746 }
747
748 static bool
tchar_is_word_separator(term_char_t ch)749 tchar_is_word_separator(term_char_t ch)
750 {
751 /* List of unicode word separator characters: */
752 switch (TCHAR_CHARACTER(ch)) {
753 case 0x0020: /* SPACE */
754 case 0x180E: /* MONGOLIAN VOWEL SEPARATOR */
755 case 0x2002: /* EN SPACE (nut) */
756 case 0x2003: /* EM SPACE (mutton) */
757 case 0x2004: /* THREE-PER-EM SPACE (thick space) */
758 case 0x2005: /* FOUR-PER-EM SPACE (mid space) */
759 case 0x2006: /* SIX-PER-EM SPACE */
760 case 0x2008: /* PUNCTUATION SPACE */
761 case 0x2009: /* THIN SPACE */
762 case 0x200A: /* HAIR SPACE */
763 case 0x200B: /* ZERO WIDTH SPACE */
764 case 0x3000: /* IDEOGRAPHIC SPACE */
765 return (true);
766 default:
767 return (false);
768 }
769 }
770
771 void
vtbuf_extract_marked(struct vt_buf * vb,term_char_t * buf,int sz,int mark)772 vtbuf_extract_marked(struct vt_buf *vb, term_char_t *buf, int sz, int mark)
773 {
774 int i, j, r, c, cs, ce;
775 term_pos_t s, e;
776
777 /* Swap according to window coordinates. */
778 if (POS_INDEX(vtbuf_htw(vb, vb->vb_mark_start.tp_row),
779 vb->vb_mark_start.tp_col) >
780 POS_INDEX(vtbuf_htw(vb, vb->vb_mark_end.tp_row),
781 vb->vb_mark_end.tp_col)) {
782 POS_COPY(e, vb->vb_mark_start);
783 POS_COPY(s, vb->vb_mark_end);
784 } else {
785 POS_COPY(s, vb->vb_mark_start);
786 POS_COPY(e, vb->vb_mark_end);
787 }
788
789 i = 0;
790 for (r = s.tp_row; r <= e.tp_row; r++) {
791 cs = (r == s.tp_row)?s.tp_col:0;
792 ce = (r == e.tp_row)?e.tp_col:vb->vb_scr_size.tp_col;
793
794 /* Copy characters from terminal window. */
795 j = i;
796 for (c = cs; c < ce; c++)
797 buf[i++] = vb->vb_rows[r][c];
798
799 /* For all rows, but the last one. */
800 if (r != e.tp_row || mark == VTB_MARK_ROW) {
801 /* Trim trailing word separators, if any. */
802 for (; i != j; i--) {
803 if (!tchar_is_word_separator(buf[i - 1]))
804 break;
805 }
806 /* Add newline character as expected by TTY. */
807 buf[i++] = '\r';
808 }
809 }
810 /* Zero rest of expected buffer size, if any. */
811 while ((i * sizeof(buf[0])) < sz)
812 buf[i++] = '\0';
813
814 MPASS((i * sizeof(buf[0])) == sz);
815 }
816
817 int
vtbuf_set_mark(struct vt_buf * vb,int type,int col,int row)818 vtbuf_set_mark(struct vt_buf *vb, int type, int col, int row)
819 {
820 term_char_t *r;
821 int i;
822
823 switch (type) {
824 case VTB_MARK_END: /* B1 UP */
825 if (vb->vb_mark_last != VTB_MARK_MOVE)
826 return (0);
827 /* FALLTHROUGH */
828 case VTB_MARK_MOVE:
829 case VTB_MARK_EXTEND:
830 vtbuf_flush_mark(vb); /* Clean old mark. */
831 vb->vb_mark_end.tp_col = col;
832 vb->vb_mark_end.tp_row = vtbuf_wth(vb, row);
833 break;
834 case VTB_MARK_START:
835 vtbuf_flush_mark(vb); /* Clean old mark. */
836 vb->vb_mark_start.tp_col = col;
837 vb->vb_mark_start.tp_row = vtbuf_wth(vb, row);
838 /* Start again, so clear end point. */
839 vb->vb_mark_end.tp_col = col;
840 vb->vb_mark_end.tp_row = vtbuf_wth(vb, row);
841 break;
842 case VTB_MARK_WORD:
843 vtbuf_flush_mark(vb); /* Clean old mark. */
844 vb->vb_mark_start.tp_row = vb->vb_mark_end.tp_row =
845 vtbuf_wth(vb, row);
846 r = vb->vb_rows[vb->vb_mark_start.tp_row];
847 for (i = col; i >= 0; i --) {
848 if (tchar_is_word_separator(r[i])) {
849 vb->vb_mark_start.tp_col = i + 1;
850 break;
851 }
852 }
853 /* No space - word extends to beginning of line. */
854 if (i == -1)
855 vb->vb_mark_start.tp_col = 0;
856 for (i = col; i < vb->vb_scr_size.tp_col; i++) {
857 if (tchar_is_word_separator(r[i])) {
858 vb->vb_mark_end.tp_col = i;
859 break;
860 }
861 }
862 /* No space - word extends to end of line. */
863 if (i == vb->vb_scr_size.tp_col)
864 vb->vb_mark_end.tp_col = i;
865
866 if (vb->vb_mark_start.tp_col > vb->vb_mark_end.tp_col)
867 vb->vb_mark_start.tp_col = vb->vb_mark_end.tp_col;
868 break;
869 case VTB_MARK_ROW:
870 vtbuf_flush_mark(vb); /* Clean old mark. */
871 vb->vb_mark_start.tp_col = 0;
872 vb->vb_mark_end.tp_col = vb->vb_scr_size.tp_col;
873 vb->vb_mark_start.tp_row = vb->vb_mark_end.tp_row =
874 vtbuf_wth(vb, row);
875 break;
876 case VTB_MARK_NONE:
877 vb->vb_mark_last = type;
878 /* FALLTHROUGH */
879 default:
880 /* panic? */
881 return (0);
882 }
883
884 vb->vb_mark_last = type;
885 /* Draw new marked region. */
886 vtbuf_flush_mark(vb);
887 return (1);
888 }
889 #endif
890
891 void
vtbuf_cursor_visibility(struct vt_buf * vb,int yes)892 vtbuf_cursor_visibility(struct vt_buf *vb, int yes)
893 {
894 int oflags, nflags;
895
896 oflags = vb->vb_flags;
897 if (yes)
898 vb->vb_flags |= VBF_CURSOR;
899 else
900 vb->vb_flags &= ~VBF_CURSOR;
901 nflags = vb->vb_flags;
902
903 if (oflags != nflags)
904 vtbuf_dirty_cell(vb, &vb->vb_cursor);
905 }
906
907 void
vtbuf_scroll_mode(struct vt_buf * vb,int yes)908 vtbuf_scroll_mode(struct vt_buf *vb, int yes)
909 {
910 int oflags, nflags;
911
912 VTBUF_LOCK(vb);
913 oflags = vb->vb_flags;
914 if (yes)
915 vb->vb_flags |= VBF_SCROLL;
916 else
917 vb->vb_flags &= ~VBF_SCROLL;
918 nflags = vb->vb_flags;
919
920 if (oflags != nflags)
921 vtbuf_dirty_cell(vb, &vb->vb_cursor);
922 VTBUF_UNLOCK(vb);
923 }
924