should free token_str if not used
[unix-history] / usr / src / usr.bin / window / wwclreol.c
CommitLineData
a43a8870 1#ifndef lint
2012dbdd 2static char *sccsid = "@(#)wwclreol.c 3.12 84/01/06";
a43a8870
EW
3#endif
4
5#include "ww.h"
e908bfac 6#include "tt.h"
a43a8870
EW
7
8/*
9 * Clear w to the end of line.
10 * If cleared is true, then the screen line has already been cleared
11 * previously.
12 */
f2a77fe1 13wwclreol1(w, row, col, cleared)
a43a8870 14register struct ww *w;
f2a77fe1 15int row, col;
14f251df 16char cleared;
a43a8870
EW
17{
18 register i;
2012dbdd 19 int gain;
a43a8870 20
19f9784c
EW
21 /*
22 * Clear the buffer right off
23 */
24 {
25 register union ww_char *buf;
26
f2a77fe1
EW
27 buf = &w->ww_buf[row][col];
28 for (i = w->ww_b.r - col; --i >= 0;)
a43a8870 29 buf++->c_w = ' ';
a43a8870 30 }
19f9784c
EW
31
32 /*
33 * If can't see it, just return.
34 */
f2a77fe1
EW
35 if (row < w->ww_i.t || row >= w->ww_i.b
36 || w->ww_i.r <= 0 || w->ww_i.r <= col)
19f9784c
EW
37 return;
38
f2a77fe1
EW
39 if (col < w->ww_i.l)
40 col = w->ww_i.l;
19f9784c
EW
41
42 /*
43 * Now find out how much is actually cleared, and fix wwns.
44 */
2012dbdd 45 if (cleared) {
19f9784c
EW
46 register union ww_char *s;
47 register char *smap, *win;
19f9784c 48
2012dbdd
EW
49 i = col;
50 smap = &wwsmap[row][i];
51 s = &wwns[row][i];
52 win = &w->ww_win[row][i];
53 for (i = w->ww_i.r - i; --i >= 0;) {
54 if (*smap++ != w->ww_index)
55 continue;
56 s++->c_w = ' ' | *win++ << WWC_MSHIFT;
57 }
58 } else {
59 register union ww_char *s;
60 register char *smap, *win;
61 int ntouched = 0;
62
d069a508
EW
63 i = col;
64 smap = &wwsmap[row][i];
04d70db4 65 s = wwns[row];
d069a508 66 win = w->ww_win[row];
2012dbdd 67 gain = 0;
d069a508 68 for (; i < w->ww_i.r; i++) {
19f9784c 69 if (*smap++ != w->ww_index) {
2012dbdd
EW
70 if (s[i].c_w != ' ')
71 gain--;
04d70db4 72 } else if (win[i] == 0) {
04d70db4 73 if (s[i].c_w != ' ') {
2012dbdd
EW
74 gain++;
75 ntouched++;
04d70db4
EW
76 s[i].c_w = ' ';
77 }
2012dbdd
EW
78 } else {
79 short c = ' ' | win[i] << WWC_MSHIFT;
80 if (s[i].c_w == c)
81 gain--;
82 else {
83 s[i].c_w = c;
84 ntouched++;
85 }
86 }
a43a8870 87 }
2012dbdd
EW
88 s += i;
89 for (i = wwncol - i; --i >= 0;)
90 if (s++->c_w != ' ')
91 gain--;
92 if (ntouched > 0)
04d70db4 93 wwtouched[row] |= WWU_TOUCHED;
a43a8870 94 }
19f9784c
EW
95
96 /*
97 * Can/Should we use clear eol?
98 */
2012dbdd 99 if (!cleared && tt.tt_clreol != 0 && gain > 4) {
19f9784c
EW
100 register union ww_char *s;
101
a43a8870 102 /* clear to the end */
f2a77fe1 103 (*tt.tt_move)(row, col);
a43a8870 104 (*tt.tt_clreol)();
f2a77fe1
EW
105 s = &wwos[row][col];
106 for (i = wwncol - col; --i >= 0;)
a43a8870
EW
107 s++->c_w = ' ';
108 }
109}