1 /*
2 * Copyright (c) 1983, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * This code is derived from software contributed to Berkeley by
6 * Edward Wang at The University of California, Berkeley.
7 *
8 * %sccs.include.redist.c%
9 */
10
11 #ifndef lint
12 static char sccsid[] = "@(#)wwdelete.c 8.1 (Berkeley) 06/06/93";
13 #endif /* not lint */
14
15 #include "ww.h"
16
17 /*
18 * Pull w free from the cover list.
19 */
wwdelete(w)20 wwdelete(w)
21 register struct ww *w;
22 {
23 register i;
24
25 for (i = w->ww_i.t; i < w->ww_i.b; i++) {
26 register j;
27 register char *smap = wwsmap[i];
28 register union ww_char *ns = wwns[i];
29 register int nchanged = 0;
30
31 for (j = w->ww_i.l; j < w->ww_i.r; j++)
32 if (smap[j] == w->ww_index) {
33 smap[j] = WWX_NOBODY;
34 ns[j].c_w = ' ';
35 nchanged++;
36 }
37 if (nchanged > 0)
38 wwtouched[i] |= WWU_TOUCHED;
39 }
40
41 {
42 register struct ww *wp;
43
44 for (wp = w->ww_forw; wp != &wwhead; wp = wp->ww_forw)
45 wp->ww_order--;
46 }
47
48 if (w->ww_forw != &wwhead)
49 wwdelete1(w->ww_forw,
50 w->ww_i.t, w->ww_i.b, w->ww_i.l, w->ww_i.r);
51
52 w->ww_back->ww_forw = w->ww_forw;
53 w->ww_forw->ww_back = w->ww_back;
54 w->ww_forw = w->ww_back = 0;
55 }
56
wwdelete1(w,t,b,l,r)57 wwdelete1(w, t, b, l, r)
58 register struct ww *w;
59 {
60 int i;
61 int tt, bb, ll, rr;
62 char hasglass;
63
64 again:
65 hasglass = 0;
66 tt = MAX(t, w->ww_i.t);
67 bb = MIN(b, w->ww_i.b);
68 ll = MAX(l, w->ww_i.l);
69 rr = MIN(r, w->ww_i.r);
70 if (tt >= bb || ll >= rr) {
71 if ((w = w->ww_forw) == &wwhead)
72 return;
73 goto again;
74 }
75 for (i = tt; i < bb; i++) {
76 register j;
77 register char *smap = wwsmap[i];
78 register union ww_char *ns = wwns[i];
79 register char *win = w->ww_win[i];
80 register union ww_char *buf = w->ww_buf[i];
81 int nvis = w->ww_nvis[i];
82 int nchanged = 0;
83
84 for (j = ll; j < rr; j++) {
85 if (smap[j] != WWX_NOBODY)
86 continue;
87 if (win[j] & WWM_GLS) {
88 hasglass = 1;
89 continue;
90 }
91 smap[j] = w->ww_index;
92 ns[j].c_w = buf[j].c_w ^ win[j] << WWC_MSHIFT;
93 nchanged++;
94 if (win[j] == 0)
95 nvis++;
96 }
97 if (nchanged > 0)
98 wwtouched[i] |= WWU_TOUCHED;
99 w->ww_nvis[i] = nvis;
100 }
101 if ((w = w->ww_forw) == &wwhead)
102 return;
103 if (hasglass)
104 goto again;
105 if (tt > t)
106 wwdelete1(w, t, tt, l, r);
107 if (bb < b)
108 wwdelete1(w, bb, b, l, r);
109 if (ll > l)
110 wwdelete1(w, tt, bb, l, ll);
111 if (rr < r)
112 wwdelete1(w, tt, bb, rr, r);
113 }
114