typo
[unix-history] / usr / src / usr.bin / window / wwinschar.c
CommitLineData
bc28423e 1#ifndef lint
d069a508 2static char *sccsid = "@(#)wwinschar.c 3.11 83/12/02";
bc28423e
EW
3#endif
4
5#include "ww.h"
e908bfac 6#include "tt.h"
bc28423e 7
f2a77fe1 8wwinschar(w, row, col, c)
bc28423e 9register struct ww *w;
14f251df 10short c;
bc28423e 11{
14f251df 12 register i;
14f251df 13 int nvis;
bc28423e 14
19f9784c
EW
15 /*
16 * First, shift the line.
17 */
14f251df
EW
18 {
19 register union ww_char *p, *q;
20
f2a77fe1 21 p = &w->ww_buf[row][w->ww_b.r];
14f251df 22 q = p - 1;
f2a77fe1 23 for (i = w->ww_b.r - col; --i > 0;)
14f251df
EW
24 *--p = *--q;
25 q->c_w = c;
26 }
19f9784c
EW
27
28 /*
29 * If can't see it, just return.
30 */
f2a77fe1
EW
31 if (row < w->ww_i.t || row >= w->ww_i.b
32 || w->ww_i.r <= 0 || w->ww_i.r <= col)
14f251df 33 return;
19f9784c 34
f2a77fe1
EW
35 if (col < w->ww_i.l)
36 col = w->ww_i.l;
19f9784c
EW
37
38 /*
39 * Now find out how much is actually changed, and fix wwns.
40 */
14f251df
EW
41 {
42 register union ww_char *buf;
43 register char *win;
44 register union ww_char *ns;
45 register char *smap;
d069a508 46 char touched;
14f251df
EW
47
48 nvis = 0;
f2a77fe1 49 smap = &wwsmap[row][col];
d069a508
EW
50 for (i = col; i < w->ww_i.r && *smap++ != w->ww_index; i++)
51 ;
52 if (i >= w->ww_i.r)
14f251df 53 return;
d069a508
EW
54 col = i;
55 buf = w->ww_buf[row];
56 win = w->ww_win[row];
57 ns = wwns[row];
58 smap = &wwsmap[row][i];
59 touched = wwtouched[row];
60 for (; i < w->ww_i.r; i++) {
61 if (*smap++ != w->ww_index)
62 continue;
63 touched = 1;
64 if (win[i])
65 ns[i].c_w =
66 buf[i].c_w ^ win[i] << WWC_MSHIFT;
67 else {
14f251df 68 nvis++;
d069a508 69 ns[i] = buf[i];
bc28423e 70 }
d069a508
EW
71 }
72 wwtouched[row] = touched;
bc28423e 73 }
19f9784c
EW
74
75 /*
76 * Can/Should we use delete character?
77 */
3130283e 78 if (tt.tt_hasinsert && nvis > (wwncol - col) / 2) {
14f251df
EW
79 register union ww_char *p, *q;
80
3130283e
EW
81 tt.tt_ninsert = 1;
82 tt.tt_nmodes = c >> WWC_MSHIFT & tt.tt_availmodes;
f2a77fe1 83 (*tt.tt_move)(row, col);
14f251df 84 (*tt.tt_putc)(c & WWC_CMASK);
3130283e 85 tt.tt_ninsert = 0;
14f251df 86
f2a77fe1 87 p = &wwos[row][wwncol];
14f251df 88 q = p - 1;
f2a77fe1 89 for (i = wwncol - col; --i > 0;)
14f251df
EW
90 *--p = *--q;
91 q->c_w = c;
92 }
bc28423e 93}