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