refresh.c revision 1.119 1 1.119 blymn /* $NetBSD: refresh.c,v 1.119 2022/04/12 07:03:04 blymn Exp $ */
2 1.8 mikel
3 1.1 cgd /*
4 1.7 cgd * Copyright (c) 1981, 1993, 1994
5 1.5 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.58 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 cgd * may be used to endorse or promote products derived from this software
17 1.1 cgd * without specific prior written permission.
18 1.1 cgd *
19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 cgd * SUCH DAMAGE.
30 1.1 cgd */
31 1.1 cgd
32 1.8 mikel #include <sys/cdefs.h>
33 1.1 cgd #ifndef lint
34 1.8 mikel #if 0
35 1.7 cgd static char sccsid[] = "@(#)refresh.c 8.7 (Berkeley) 8/13/94";
36 1.8 mikel #else
37 1.119 blymn __RCSID("$NetBSD: refresh.c,v 1.119 2022/04/12 07:03:04 blymn Exp $");
38 1.8 mikel #endif
39 1.11 mrg #endif /* not lint */
40 1.1 cgd
41 1.81 roy #include <poll.h>
42 1.38 matt #include <stdlib.h>
43 1.4 mycroft #include <string.h>
44 1.113 mrg #include <assert.h>
45 1.1 cgd
46 1.7 cgd #include "curses.h"
47 1.15 blymn #include "curses_private.h"
48 1.7 cgd
49 1.110 blymn static void domvcur(WINDOW *, int, int, int, int);
50 1.91 roy static void putattr(__LDATA *);
51 1.91 roy static void putattr_out(__LDATA *);
52 1.91 roy static int putch(__LDATA *, __LDATA *, int, int);
53 1.91 roy static int putchbr(__LDATA *, __LDATA *, __LDATA *, int, int);
54 1.65 blymn static int makech(int);
55 1.65 blymn static void quickch(void);
56 1.65 blymn static void scrolln(int, int, int, int, int);
57 1.65 blymn
58 1.86 roy static int _wnoutrefresh(WINDOW *, int, int, int, int, int, int);
59 1.65 blymn
60 1.95 uwe static int celleq(__LDATA *, __LDATA *);
61 1.95 uwe static int lineeq(__LDATA *, __LDATA *, size_t);
62 1.55 dsl
63 1.85 roy #define CHECK_INTERVAL 5 /* Change N lines before checking typeahead */
64 1.85 roy
65 1.17 blymn #ifndef _CURSES_USE_MACROS
66 1.17 blymn
67 1.17 blymn /*
68 1.17 blymn * refresh --
69 1.17 blymn * Make the current screen look like "stdscr" over the area covered by
70 1.17 blymn * stdscr.
71 1.17 blymn */
72 1.17 blymn int
73 1.17 blymn refresh(void)
74 1.17 blymn {
75 1.83 roy
76 1.17 blymn return wrefresh(stdscr);
77 1.17 blymn }
78 1.17 blymn
79 1.17 blymn #endif
80 1.17 blymn
81 1.4 mycroft /*
82 1.23 jdc * wnoutrefresh --
83 1.23 jdc * Add the contents of "win" to the virtual window.
84 1.23 jdc */
85 1.23 jdc int
86 1.23 jdc wnoutrefresh(WINDOW *win)
87 1.23 jdc {
88 1.83 roy
89 1.115 rin __CTRACE(__CTRACE_REFRESH,
90 1.115 rin "wnoutrefresh: win %p, begy %d, begx %d, maxy %d, maxx %d\n",
91 1.115 rin win, win->begy, win->begx, win->maxy, win->maxx);
92 1.50 jdc
93 1.86 roy return _wnoutrefresh(win, 0, 0, win->begy, win->begx,
94 1.86 roy win->maxy, win->maxx);
95 1.44 blymn }
96 1.44 blymn
97 1.50 jdc /*
98 1.50 jdc * pnoutrefresh --
99 1.50 jdc * Add the contents of "pad" to the virtual window.
100 1.50 jdc */
101 1.50 jdc int
102 1.50 jdc pnoutrefresh(WINDOW *pad, int pbegy, int pbegx, int sbegy, int sbegx,
103 1.83 roy int smaxy, int smaxx)
104 1.50 jdc {
105 1.50 jdc int pmaxy, pmaxx;
106 1.50 jdc
107 1.64 jdc __CTRACE(__CTRACE_REFRESH, "pnoutrefresh: pad %p, flags 0x%08x\n",
108 1.64 jdc pad, pad->flags);
109 1.64 jdc __CTRACE(__CTRACE_REFRESH,
110 1.64 jdc "pnoutrefresh: (%d, %d), (%d, %d), (%d, %d)\n",
111 1.64 jdc pbegy, pbegx, sbegy, sbegx, smaxy, smaxx);
112 1.50 jdc
113 1.50 jdc /* SUS says if these are negative, they should be treated as zero */
114 1.50 jdc if (pbegy < 0)
115 1.50 jdc pbegy = 0;
116 1.50 jdc if (pbegx < 0)
117 1.50 jdc pbegx = 0;
118 1.50 jdc if (sbegy < 0)
119 1.50 jdc sbegy = 0;
120 1.50 jdc if (sbegx < 0)
121 1.50 jdc sbegx = 0;
122 1.50 jdc
123 1.86 roy /* Calculate rectangle on pad - used by _wnoutrefresh */
124 1.50 jdc pmaxy = pbegy + smaxy - sbegy + 1;
125 1.50 jdc pmaxx = pbegx + smaxx - sbegx + 1;
126 1.50 jdc
127 1.50 jdc /* Check rectangle fits in pad */
128 1.50 jdc if (pmaxy > pad->maxy - pad->begy)
129 1.50 jdc pmaxy = pad->maxy - pad->begy;
130 1.50 jdc if (pmaxx > pad->maxx - pad->begx)
131 1.50 jdc pmaxx = pad->maxx - pad->begx;
132 1.65 blymn
133 1.50 jdc if (smaxy - sbegy < 0 || smaxx - sbegx < 0 )
134 1.50 jdc return ERR;
135 1.50 jdc
136 1.86 roy return _wnoutrefresh(pad,
137 1.50 jdc pad->begy + pbegy, pad->begx + pbegx, pad->begy + sbegy,
138 1.50 jdc pad->begx + sbegx, pmaxy, pmaxx);
139 1.50 jdc }
140 1.44 blymn
141 1.44 blymn /*
142 1.86 roy * _wnoutrefresh --
143 1.65 blymn * Does the grunt work for wnoutrefresh to the given screen.
144 1.50 jdc * Copies the part of the window given by the rectangle
145 1.50 jdc * (begy, begx) to (maxy, maxx) at screen position (wbegy, wbegx).
146 1.44 blymn */
147 1.86 roy static int
148 1.86 roy _wnoutrefresh(WINDOW *win, int begy, int begx, int wbegy, int wbegx,
149 1.86 roy int maxy, int maxx)
150 1.44 blymn {
151 1.86 roy SCREEN *screen = win->screen;
152 1.79 blymn short sy, wy, wx, y_off, x_off, mx, dy_off, dx_off, endy;
153 1.105 uwe int newy, newx;
154 1.79 blymn __LINE *wlp, *vlp, *dwlp;
155 1.79 blymn WINDOW *sub_win, *orig, *swin, *dwin;
156 1.23 jdc
157 1.64 jdc __CTRACE(__CTRACE_REFRESH, "_wnoutrefresh: win %p, flags 0x%08x\n",
158 1.64 jdc win, win->flags);
159 1.64 jdc __CTRACE(__CTRACE_REFRESH,
160 1.64 jdc "_wnoutrefresh: (%d, %d), (%d, %d), (%d, %d)\n",
161 1.56 jdc begy, begx, wbegy, wbegx, maxy, maxx);
162 1.23 jdc
163 1.44 blymn if (screen->curwin)
164 1.57 jdc return OK;
165 1.57 jdc
166 1.79 blymn swin = dwin = win;
167 1.79 blymn if (win->flags & __ISDERWIN)
168 1.79 blymn swin = win->orig;
169 1.79 blymn
170 1.57 jdc /*
171 1.57 jdc * Recurse through any sub-windows, mark as dirty lines on the parent
172 1.57 jdc * window that are dirty on the sub-window and clear the dirty flag on
173 1.57 jdc * the sub-window.
174 1.57 jdc */
175 1.79 blymn if (dwin->orig == 0) {
176 1.79 blymn orig = dwin;
177 1.79 blymn for (sub_win = dwin->nextp; sub_win != orig;
178 1.57 jdc sub_win = sub_win->nextp) {
179 1.79 blymn if (sub_win->flags & __ISDERWIN)
180 1.79 blymn continue;
181 1.64 jdc __CTRACE(__CTRACE_REFRESH,
182 1.64 jdc "wnout_refresh: win %p, sub_win %p\n",
183 1.57 jdc orig, sub_win);
184 1.57 jdc for (sy = 0; sy < sub_win->maxy; sy++) {
185 1.74 jdc if (sub_win->alines[sy]->flags & __ISDIRTY) {
186 1.71 roy orig->alines[sy + sub_win->begy - orig->begy]->flags
187 1.65 blymn |= __ISDIRTY;
188 1.71 roy sub_win->alines[sy]->flags
189 1.65 blymn &= ~__ISDIRTY;
190 1.57 jdc }
191 1.78 blymn if (sub_win->alines[sy]->flags & __ISFORCED) {
192 1.78 blymn orig->alines[sy + sub_win->begy - orig->begy]->flags
193 1.78 blymn |= __ISFORCED;
194 1.78 blymn sub_win->alines[sy]->flags
195 1.78 blymn &= ~__ISFORCED;
196 1.78 blymn }
197 1.57 jdc }
198 1.57 jdc }
199 1.57 jdc }
200 1.50 jdc
201 1.50 jdc /* Check that cursor position on "win" is valid for "__virtscr" */
202 1.105 uwe newy = wbegy + dwin->cury - begy;
203 1.105 uwe newx = wbegx + dwin->curx - begx;
204 1.105 uwe if (begy <= dwin->cury && dwin->cury < maxy
205 1.105 uwe && 0 <= newy && newy < screen->__virtscr->maxy)
206 1.105 uwe screen->__virtscr->cury = newy;
207 1.105 uwe if (begx <= dwin->curx && dwin->curx < maxx
208 1.105 uwe && 0 <= newx && newx < screen->__virtscr->maxx)
209 1.105 uwe screen->__virtscr->curx = newx;
210 1.23 jdc
211 1.23 jdc /* Copy the window flags from "win" to "__virtscr" */
212 1.79 blymn if (dwin->flags & __CLEAROK) {
213 1.79 blymn if (dwin->flags & __FULLWIN)
214 1.44 blymn screen->__virtscr->flags |= __CLEAROK;
215 1.79 blymn dwin->flags &= ~__CLEAROK;
216 1.33 mycroft }
217 1.44 blymn screen->__virtscr->flags &= ~__LEAVEOK;
218 1.79 blymn screen->__virtscr->flags |= dwin->flags;
219 1.23 jdc
220 1.79 blymn if ((dwin->flags & __ISDERWIN) != 0)
221 1.79 blymn endy = begy + maxy;
222 1.79 blymn else
223 1.79 blymn endy = maxy;
224 1.79 blymn
225 1.79 blymn for (wy = begy, y_off = wbegy, dy_off = 0; wy < endy &&
226 1.83 roy y_off < screen->__virtscr->maxy; wy++, y_off++, dy_off++)
227 1.83 roy {
228 1.79 blymn wlp = swin->alines[wy];
229 1.79 blymn dwlp = dwin->alines[dy_off];
230 1.23 jdc #ifdef DEBUG
231 1.64 jdc __CTRACE(__CTRACE_REFRESH,
232 1.64 jdc "_wnoutrefresh: wy %d\tf %d\tl %d\tflags %x\n",
233 1.57 jdc wy, *wlp->firstchp, *wlp->lastchp, wlp->flags);
234 1.79 blymn
235 1.108 blymn char *_wintype;
236 1.108 blymn
237 1.108 blymn if ((dwin->flags & __ISDERWIN) != 0)
238 1.108 blymn _wintype = "derwin";
239 1.108 blymn else
240 1.108 blymn _wintype = "dwin";
241 1.108 blymn
242 1.108 blymn __CTRACE(__CTRACE_REFRESH,
243 1.115 rin "_wnoutrefresh: %s wy %d\tf %d\tl %d\tflags %x\n",
244 1.115 rin _wintype, dy_off, *dwlp->firstchp, *dwlp->lastchp,
245 1.115 rin dwlp->flags);
246 1.108 blymn __CTRACE(__CTRACE_REFRESH,
247 1.115 rin "_wnoutrefresh: %s maxx %d\tch_off %d wlp %p\n",
248 1.115 rin _wintype, dwin->maxx, dwin->ch_off, wlp);
249 1.23 jdc #endif
250 1.79 blymn if (((wlp->flags & (__ISDIRTY | __ISFORCED)) == 0) &&
251 1.79 blymn ((dwlp->flags & (__ISDIRTY | __ISFORCED)) == 0))
252 1.33 mycroft continue;
253 1.109 blymn __CTRACE(__CTRACE_REFRESH,
254 1.115 rin "_wnoutrefresh: line y_off %d (dy_off %d) is dirty\n",
255 1.115 rin y_off, dy_off);
256 1.109 blymn
257 1.109 blymn wlp = swin->alines[wy];
258 1.71 roy vlp = screen->__virtscr->alines[y_off];
259 1.33 mycroft
260 1.79 blymn if ((*wlp->firstchp < maxx + swin->ch_off &&
261 1.79 blymn *wlp->lastchp >= swin->ch_off) ||
262 1.79 blymn ((((dwin->flags & __ISDERWIN) != 0) &&
263 1.79 blymn (*dwlp->firstchp < dwin->maxx + dwin->ch_off &&
264 1.83 roy *dwlp->lastchp >= dwin->ch_off))))
265 1.83 roy {
266 1.57 jdc /* Set start column */
267 1.57 jdc wx = begx;
268 1.57 jdc x_off = wbegx;
269 1.79 blymn dx_off = 0;
270 1.79 blymn /*
271 1.79 blymn * if a derwin then source change pointers aren't
272 1.79 blymn * relevant.
273 1.79 blymn */
274 1.79 blymn if ((dwin->flags & __ISDERWIN) != 0)
275 1.79 blymn mx = wx + maxx;
276 1.79 blymn else {
277 1.79 blymn if (*wlp->firstchp - swin->ch_off > 0) {
278 1.79 blymn wx += *wlp->firstchp - swin->ch_off;
279 1.79 blymn x_off += *wlp->firstchp - swin->ch_off;
280 1.79 blymn }
281 1.79 blymn mx = maxx;
282 1.79 blymn if (mx > *wlp->lastchp - swin->ch_off + 1)
283 1.79 blymn mx = *dwlp->lastchp - dwin->ch_off + 1;
284 1.87 roy if (x_off + (mx - wx) > screen->__virtscr->maxx)
285 1.87 roy mx -= (x_off + maxx) -
286 1.87 roy screen->__virtscr->maxx;
287 1.79 blymn }
288 1.79 blymn
289 1.23 jdc /* Copy line from "win" to "__virtscr". */
290 1.57 jdc while (wx < mx) {
291 1.64 jdc __CTRACE(__CTRACE_REFRESH,
292 1.64 jdc "_wnoutrefresh: copy from %d, "
293 1.119 blymn "%d to %d, %d: '%s', 0x%x",
294 1.77 jdc wy, wx, y_off, x_off,
295 1.77 jdc unctrl(wlp->line[wx].ch),
296 1.77 jdc wlp->line[wx].attr);
297 1.115 rin __CTRACE(__CTRACE_REFRESH,
298 1.115 rin " (curdest %s, 0x%x)",
299 1.109 blymn unctrl(vlp->line[x_off].ch),
300 1.109 blymn vlp->line[x_off].attr);
301 1.63 jdc /* Copy character */
302 1.63 jdc vlp->line[x_off].ch = wlp->line[wx].ch;
303 1.63 jdc /* Copy attributes */
304 1.33 mycroft vlp->line[x_off].attr = wlp->line[wx].attr;
305 1.118 blymn #ifdef HAVE_WCHAR
306 1.118 blymn vlp->line[x_off].wcols = wlp->line[wx].wcols;
307 1.118 blymn #endif /* HAVE_WCHAR */
308 1.79 blymn if (win->flags & __ISDERWIN) {
309 1.79 blymn dwlp->line[dx_off].ch =
310 1.79 blymn wlp->line[wx].ch;
311 1.83 roy dwlp->line[dx_off].attr =
312 1.79 blymn wlp->line[wx].attr;
313 1.118 blymn #ifdef HAVE_WCHAR
314 1.118 blymn dwlp->line[dx_off].wcols =
315 1.118 blymn wlp->line[wx].wcols;
316 1.118 blymn #endif /* HAVE_WCHAR */
317 1.79 blymn }
318 1.79 blymn
319 1.65 blymn #ifdef HAVE_WCHAR
320 1.119 blymn if (wlp->line[wx].ch == win->bch) {
321 1.65 blymn vlp->line[x_off].ch = win->bch;
322 1.118 blymn vlp->line[x_off].wcols = win->wcols;
323 1.65 blymn if (_cursesi_copy_nsp(win->bnsp,
324 1.65 blymn &vlp->line[x_off])
325 1.65 blymn == ERR)
326 1.65 blymn return ERR;
327 1.79 blymn if (win->flags & __ISDERWIN) {
328 1.79 blymn dwlp->line[dx_off].ch =
329 1.79 blymn win->bch;
330 1.118 blymn dwlp->line[dx_off].wcols =
331 1.118 blymn win->wcols;
332 1.79 blymn if (_cursesi_copy_nsp(win->bnsp,
333 1.79 blymn &dwlp->line[dx_off])
334 1.83 roy == ERR)
335 1.79 blymn return ERR;
336 1.79 blymn }
337 1.65 blymn }
338 1.65 blymn #endif /* HAVE_WCHAR */
339 1.119 blymn __CTRACE(__CTRACE_REFRESH, " = '%s', 0x%x\n",
340 1.77 jdc unctrl(vlp->line[x_off].ch),
341 1.77 jdc vlp->line[x_off].attr);
342 1.119 blymn wx++; /* XXX should be + wcols, need to properly set continuation flag on multi-col */
343 1.57 jdc x_off++;
344 1.79 blymn dx_off++;
345 1.23 jdc }
346 1.23 jdc
347 1.23 jdc /* Set flags on "__virtscr" and unset on "win". */
348 1.33 mycroft if (wlp->flags & __ISPASTEOL)
349 1.33 mycroft vlp->flags |= __ISPASTEOL;
350 1.23 jdc else
351 1.33 mycroft vlp->flags &= ~__ISPASTEOL;
352 1.33 mycroft if (wlp->flags & __ISDIRTY)
353 1.33 mycroft vlp->flags |= __ISDIRTY;
354 1.78 blymn if (wlp->flags & __ISFORCED)
355 1.78 blymn vlp->flags |= __ISFORCED;
356 1.23 jdc
357 1.23 jdc #ifdef DEBUG
358 1.64 jdc __CTRACE(__CTRACE_REFRESH,
359 1.64 jdc "win: firstch = %d, lastch = %d\n",
360 1.33 mycroft *wlp->firstchp, *wlp->lastchp);
361 1.79 blymn if (win->flags & __ISDERWIN) {
362 1.79 blymn __CTRACE(__CTRACE_REFRESH,
363 1.79 blymn "derwin: fistch = %d, lastch = %d\n",
364 1.79 blymn *dwlp->firstchp, *dwlp->lastchp);
365 1.79 blymn }
366 1.23 jdc #endif
367 1.23 jdc /* Set change pointers on "__virtscr". */
368 1.33 mycroft if (*vlp->firstchp >
369 1.78 blymn *wlp->firstchp + wbegx - win->ch_off)
370 1.78 blymn *vlp->firstchp =
371 1.78 blymn *wlp->firstchp + wbegx - win->ch_off;
372 1.33 mycroft if (*vlp->lastchp <
373 1.78 blymn *wlp->lastchp + wbegx - win->ch_off)
374 1.78 blymn *vlp->lastchp =
375 1.78 blymn *wlp->lastchp + wbegx - win->ch_off;
376 1.79 blymn
377 1.79 blymn if (win->flags & __ISDERWIN) {
378 1.83 roy if (*vlp->firstchp >
379 1.83 roy *dwlp->firstchp + wbegx - dwin->ch_off)
380 1.83 roy {
381 1.79 blymn *vlp->firstchp =
382 1.79 blymn *dwlp->firstchp + wbegx
383 1.79 blymn - dwin->ch_off;
384 1.79 blymn vlp->flags |= __ISDIRTY;
385 1.79 blymn }
386 1.79 blymn
387 1.79 blymn if (*vlp->lastchp <
388 1.83 roy *dwlp->lastchp + wbegx - dwin->ch_off)
389 1.83 roy {
390 1.79 blymn *vlp->lastchp = *dwlp->lastchp
391 1.79 blymn + wbegx - dwin->ch_off;
392 1.79 blymn vlp->flags |= __ISDIRTY;
393 1.79 blymn }
394 1.79 blymn }
395 1.79 blymn
396 1.64 jdc __CTRACE(__CTRACE_REFRESH,
397 1.64 jdc "__virtscr: firstch = %d, lastch = %d\n",
398 1.33 mycroft *vlp->firstchp, *vlp->lastchp);
399 1.50 jdc /*
400 1.78 blymn * Unset change pointers only if a window and we
401 1.78 blymn * are not forcing a redraw. A pad can be displayed
402 1.78 blymn * again without any of the contents changing.
403 1.50 jdc */
404 1.78 blymn if ((!(win->flags & __ISPAD)) ||
405 1.83 roy ((wlp->flags & __ISFORCED) == __ISFORCED))
406 1.83 roy {
407 1.50 jdc /* Set change pointers on "win". */
408 1.50 jdc if (*wlp->firstchp >= win->ch_off)
409 1.50 jdc *wlp->firstchp = maxx + win->ch_off;
410 1.50 jdc if (*wlp->lastchp < maxx + win->ch_off)
411 1.50 jdc *wlp->lastchp = win->ch_off;
412 1.57 jdc if ((*wlp->lastchp < *wlp->firstchp) ||
413 1.57 jdc (*wlp->firstchp >= maxx + win->ch_off) ||
414 1.57 jdc (*wlp->lastchp <= win->ch_off)) {
415 1.64 jdc __CTRACE(__CTRACE_REFRESH,
416 1.64 jdc "_wnoutrefresh: "
417 1.64 jdc "line %d notdirty\n", wy);
418 1.80 jdc wlp->flags &= ~(__ISDIRTY | __ISFORCED);
419 1.50 jdc }
420 1.23 jdc }
421 1.23 jdc }
422 1.23 jdc }
423 1.55 dsl return OK;
424 1.23 jdc }
425 1.23 jdc
426 1.23 jdc /*
427 1.4 mycroft * wrefresh --
428 1.50 jdc * Make the current screen look like "win" over the area covered by
429 1.4 mycroft * win.
430 1.4 mycroft */
431 1.4 mycroft int
432 1.17 blymn wrefresh(WINDOW *win)
433 1.1 cgd {
434 1.44 blymn int retval;
435 1.79 blymn int pbegx, pbegy;
436 1.45 blymn
437 1.64 jdc __CTRACE(__CTRACE_REFRESH, "wrefresh: win %p\n", win);
438 1.50 jdc
439 1.44 blymn _cursesi_screen->curwin = (win == _cursesi_screen->curscr);
440 1.79 blymn if (!_cursesi_screen->curwin) {
441 1.79 blymn pbegx = pbegy = 0;
442 1.79 blymn if ((win->flags & __ISDERWIN) == __ISDERWIN) {
443 1.79 blymn pbegx = win->derx;
444 1.79 blymn pbegy = win->dery;
445 1.79 blymn __CTRACE(__CTRACE_REFRESH, "wrefresh: derwin, begy = %d, begx = %x\n",
446 1.79 blymn pbegy, pbegx);
447 1.79 blymn }
448 1.86 roy retval = _wnoutrefresh(win, pbegy, pbegx, win->begy, win->begx,
449 1.86 roy win->maxy, win->maxx);
450 1.79 blymn } else
451 1.23 jdc retval = OK;
452 1.23 jdc if (retval == OK) {
453 1.23 jdc retval = doupdate();
454 1.55 dsl if (!(win->flags & __LEAVEOK)) {
455 1.24 jdc win->cury = max(0, curscr->cury - win->begy);
456 1.24 jdc win->curx = max(0, curscr->curx - win->begx);
457 1.24 jdc }
458 1.23 jdc }
459 1.43 blymn _cursesi_screen->curwin = 0;
460 1.83 roy return retval;
461 1.50 jdc }
462 1.50 jdc
463 1.50 jdc /*
464 1.50 jdc * prefresh --
465 1.50 jdc * Make the current screen look like "pad" over the area coverd by
466 1.50 jdc * the specified area of pad.
467 1.50 jdc */
468 1.50 jdc int
469 1.50 jdc prefresh(WINDOW *pad, int pbegy, int pbegx, int sbegy, int sbegx,
470 1.65 blymn int smaxy, int smaxx)
471 1.50 jdc {
472 1.50 jdc int retval;
473 1.50 jdc
474 1.64 jdc __CTRACE(__CTRACE_REFRESH, "prefresh: pad %p, flags 0x%08x\n",
475 1.64 jdc pad, pad->flags);
476 1.59 jdc /* Retain values in case pechochar() is called. */
477 1.59 jdc pad->pbegy = pbegy;
478 1.59 jdc pad->pbegx = pbegx;
479 1.59 jdc pad->sbegy = sbegy;
480 1.59 jdc pad->sbegx = sbegx;
481 1.59 jdc pad->smaxy = smaxy;
482 1.59 jdc pad->smaxx = smaxx;
483 1.50 jdc
484 1.50 jdc /* Use pnoutrefresh() to avoid duplicating code here */
485 1.50 jdc retval = pnoutrefresh(pad, pbegy, pbegx, sbegy, sbegx, smaxy, smaxx);
486 1.50 jdc if (retval == OK) {
487 1.50 jdc retval = doupdate();
488 1.55 dsl if (!(pad->flags & __LEAVEOK)) {
489 1.103 uwe pad->cury = max(0, pbegy + (curscr->cury - sbegy));
490 1.103 uwe pad->curx = max(0, pbegx + (curscr->curx - sbegx));
491 1.50 jdc }
492 1.50 jdc }
493 1.83 roy return retval;
494 1.23 jdc }
495 1.23 jdc
496 1.23 jdc /*
497 1.23 jdc * doupdate --
498 1.23 jdc * Make the current screen look like the virtual window "__virtscr".
499 1.23 jdc */
500 1.23 jdc int
501 1.23 jdc doupdate(void)
502 1.23 jdc {
503 1.23 jdc WINDOW *win;
504 1.78 blymn __LINE *wlp, *vlp;
505 1.23 jdc short wy;
506 1.85 roy int dnum, was_cleared, changed;
507 1.9 phil
508 1.9 phil /* Check if we need to restart ... */
509 1.43 blymn if (_cursesi_screen->endwin)
510 1.9 phil __restartwin();
511 1.7 cgd
512 1.43 blymn if (_cursesi_screen->curwin)
513 1.23 jdc win = curscr;
514 1.23 jdc else
515 1.44 blymn win = _cursesi_screen->__virtscr;
516 1.23 jdc
517 1.4 mycroft /* Initialize loop parameters. */
518 1.43 blymn _cursesi_screen->ly = curscr->cury;
519 1.43 blymn _cursesi_screen->lx = curscr->curx;
520 1.1 cgd wy = 0;
521 1.1 cgd
522 1.65 blymn if (!_cursesi_screen->curwin) {
523 1.5 cgd for (wy = 0; wy < win->maxy; wy++) {
524 1.71 roy wlp = win->alines[wy];
525 1.116 rin if (wlp->flags & __ISDIRTY)
526 1.116 rin wlp->hash = __hash_line(wlp->line, win->maxx);
527 1.5 cgd }
528 1.65 blymn }
529 1.5 cgd
530 1.78 blymn was_cleared = 0;
531 1.43 blymn if ((win->flags & __CLEAROK) || (curscr->flags & __CLEAROK) ||
532 1.83 roy _cursesi_screen->curwin)
533 1.83 roy {
534 1.23 jdc if (curscr->wattr & __COLOR)
535 1.23 jdc __unsetattr(0);
536 1.72 roy tputs(clear_screen, 0, __cputchar);
537 1.43 blymn _cursesi_screen->ly = 0;
538 1.43 blymn _cursesi_screen->lx = 0;
539 1.43 blymn if (!_cursesi_screen->curwin) {
540 1.23 jdc curscr->flags &= ~__CLEAROK;
541 1.23 jdc curscr->cury = 0;
542 1.23 jdc curscr->curx = 0;
543 1.23 jdc werase(curscr);
544 1.1 cgd }
545 1.119 blymn __touchwin(win, 0);
546 1.5 cgd win->flags &= ~__CLEAROK;
547 1.78 blymn /* note we cleared for later */
548 1.78 blymn was_cleared = 1;
549 1.1 cgd }
550 1.72 roy if (!cursor_address) {
551 1.5 cgd if (win->curx != 0)
552 1.39 itojun __cputchar('\n');
553 1.43 blymn if (!_cursesi_screen->curwin)
554 1.1 cgd werase(curscr);
555 1.1 cgd }
556 1.64 jdc __CTRACE(__CTRACE_REFRESH, "doupdate: (%p): curwin = %d\n", win,
557 1.65 blymn _cursesi_screen->curwin);
558 1.64 jdc __CTRACE(__CTRACE_REFRESH, "doupdate: \tfirstch\tlastch\n");
559 1.5 cgd
560 1.43 blymn if (!_cursesi_screen->curwin) {
561 1.5 cgd /*
562 1.5 cgd * Invoke quickch() only if more than a quarter of the lines
563 1.5 cgd * in the window are dirty.
564 1.5 cgd */
565 1.5 cgd for (wy = 0, dnum = 0; wy < win->maxy; wy++)
566 1.71 roy if (win->alines[wy]->flags & __ISDIRTY)
567 1.5 cgd dnum++;
568 1.5 cgd if (!__noqch && dnum > (int) win->maxy / 4)
569 1.23 jdc quickch();
570 1.5 cgd }
571 1.5 cgd
572 1.5 cgd #ifdef DEBUG
573 1.11 mrg {
574 1.11 mrg int i, j;
575 1.11 mrg
576 1.64 jdc __CTRACE(__CTRACE_REFRESH,
577 1.64 jdc "#####################################\n");
578 1.65 blymn __CTRACE(__CTRACE_REFRESH,
579 1.65 blymn "stdscr(%p)-curscr(%p)-__virtscr(%p)\n",
580 1.65 blymn stdscr, curscr, _cursesi_screen->__virtscr);
581 1.5 cgd for (i = 0; i < curscr->maxy; i++) {
582 1.64 jdc __CTRACE(__CTRACE_REFRESH, "C: %d:", i);
583 1.64 jdc __CTRACE(__CTRACE_REFRESH, " 0x%x \n",
584 1.71 roy curscr->alines[i]->hash);
585 1.7 cgd for (j = 0; j < curscr->maxx; j++)
586 1.64 jdc __CTRACE(__CTRACE_REFRESH, "%c",
587 1.71 roy curscr->alines[i]->line[j].ch);
588 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
589 1.64 jdc __CTRACE(__CTRACE_REFRESH, " attr:");
590 1.7 cgd for (j = 0; j < curscr->maxx; j++)
591 1.64 jdc __CTRACE(__CTRACE_REFRESH, " %x",
592 1.71 roy curscr->alines[i]->line[j].attr);
593 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
594 1.118 blymn #ifdef HAVE_WCHAR
595 1.118 blymn __CTRACE(__CTRACE_REFRESH, " wcols:");
596 1.118 blymn for (j = 0; j < curscr->maxx; j++)
597 1.118 blymn __CTRACE(__CTRACE_REFRESH, " %d",
598 1.118 blymn curscr->alines[i]->line[j].wcols);
599 1.118 blymn __CTRACE(__CTRACE_REFRESH, "\n");
600 1.118 blymn #endif /* HAVE_WCHAR */
601 1.64 jdc __CTRACE(__CTRACE_REFRESH, "W: %d:", i);
602 1.64 jdc __CTRACE(__CTRACE_REFRESH, " 0x%x \n",
603 1.71 roy win->alines[i]->hash);
604 1.64 jdc __CTRACE(__CTRACE_REFRESH, " 0x%x ",
605 1.71 roy win->alines[i]->flags);
606 1.23 jdc for (j = 0; j < win->maxx; j++)
607 1.64 jdc __CTRACE(__CTRACE_REFRESH, "%c",
608 1.71 roy win->alines[i]->line[j].ch);
609 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
610 1.64 jdc __CTRACE(__CTRACE_REFRESH, " attr:");
611 1.23 jdc for (j = 0; j < win->maxx; j++)
612 1.64 jdc __CTRACE(__CTRACE_REFRESH, " %x",
613 1.71 roy win->alines[i]->line[j].attr);
614 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
615 1.65 blymn #ifdef HAVE_WCHAR
616 1.118 blymn __CTRACE(__CTRACE_REFRESH, " wcols:");
617 1.118 blymn for (j = 0; j < win->maxx; j++)
618 1.118 blymn __CTRACE(__CTRACE_REFRESH, " %d",
619 1.118 blymn win->alines[i]->line[j].wcols);
620 1.118 blymn __CTRACE(__CTRACE_REFRESH, "\n");
621 1.65 blymn __CTRACE(__CTRACE_REFRESH, " nsp:");
622 1.65 blymn for (j = 0; j < curscr->maxx; j++)
623 1.65 blymn __CTRACE(__CTRACE_REFRESH, " %p",
624 1.71 roy win->alines[i]->line[j].nsp);
625 1.65 blymn __CTRACE(__CTRACE_REFRESH, "\n");
626 1.65 blymn __CTRACE(__CTRACE_REFRESH, " bnsp:");
627 1.65 blymn for (j = 0; j < curscr->maxx; j++)
628 1.65 blymn __CTRACE(__CTRACE_REFRESH, " %p",
629 1.65 blymn win->bnsp);
630 1.65 blymn __CTRACE(__CTRACE_REFRESH, "\n");
631 1.65 blymn #endif /* HAVE_WCHAR */
632 1.5 cgd }
633 1.11 mrg }
634 1.65 blymn #endif /* DEBUG */
635 1.5 cgd
636 1.85 roy changed = 0;
637 1.5 cgd for (wy = 0; wy < win->maxy; wy++) {
638 1.71 roy wlp = win->alines[wy];
639 1.78 blymn vlp = _cursesi_screen->__virtscr->alines[win->begy + wy];
640 1.114 rin /* XXX: remove this */
641 1.64 jdc __CTRACE(__CTRACE_REFRESH,
642 1.64 jdc "doupdate: wy %d\tf: %d\tl:%d\tflags %x\n",
643 1.64 jdc wy, *wlp->firstchp, *wlp->lastchp, wlp->flags);
644 1.43 blymn if (!_cursesi_screen->curwin)
645 1.71 roy curscr->alines[wy]->hash = wlp->hash;
646 1.84 roy if (wlp->flags & __ISDIRTY || wlp->flags & __ISFORCED) {
647 1.65 blymn __CTRACE(__CTRACE_REFRESH,
648 1.65 blymn "doupdate: [ISDIRTY]wy:%d\tf:%d\tl:%d\n", wy,
649 1.65 blymn *wlp->firstchp, *wlp->lastchp);
650 1.78 blymn /*
651 1.83 roy * We have just cleared so don't force an update
652 1.83 roy * otherwise we spray neeedless blanks to a cleared
653 1.119 blymn * screen. That is, unless, we are using color,
654 1.119 blymn * in this case we need to force the background
655 1.119 blymn * color to default.
656 1.83 roy */
657 1.119 blymn if ((was_cleared == 1) && (__using_color == 0))
658 1.78 blymn win->alines[wy]->flags &= ~__ISFORCED;
659 1.78 blymn
660 1.23 jdc if (makech(wy) == ERR)
661 1.83 roy return ERR;
662 1.1 cgd else {
663 1.33 mycroft if (*wlp->firstchp >= 0)
664 1.33 mycroft *wlp->firstchp = win->maxx;
665 1.33 mycroft if (*wlp->lastchp < win->maxx)
666 1.78 blymn *wlp->lastchp = win->ch_off;
667 1.33 mycroft if (*wlp->lastchp < *wlp->firstchp) {
668 1.64 jdc __CTRACE(__CTRACE_REFRESH,
669 1.64 jdc "doupdate: line %d notdirty\n", wy);
670 1.78 blymn wlp->flags &= ~(__ISDIRTY | __ISFORCED);
671 1.5 cgd }
672 1.85 roy
673 1.85 roy /* Check if we have input after
674 1.85 roy * changing N lines. */
675 1.85 roy if (_cursesi_screen->checkfd != -1 &&
676 1.85 roy ++changed == CHECK_INTERVAL)
677 1.85 roy {
678 1.85 roy struct pollfd fds[1];
679 1.85 roy
680 1.85 roy /* If we have input, abort. */
681 1.85 roy fds[0].fd = _cursesi_screen->checkfd;
682 1.85 roy fds[0].events = POLLIN;
683 1.85 roy if (poll(fds, 1, 0) > 0)
684 1.85 roy goto cleanup;
685 1.85 roy changed = 0;
686 1.85 roy }
687 1.1 cgd }
688 1.78 blymn }
689 1.78 blymn
690 1.78 blymn /*
691 1.78 blymn * virtscr is now synced for the line, unset the change
692 1.78 blymn * pointers.
693 1.78 blymn */
694 1.78 blymn if (*vlp->firstchp >= 0)
695 1.78 blymn *vlp->firstchp = _cursesi_screen->__virtscr->maxx;
696 1.78 blymn if (*vlp->lastchp <= _cursesi_screen->__virtscr->maxx)
697 1.78 blymn *vlp->lastchp = 0;
698 1.5 cgd
699 1.65 blymn __CTRACE(__CTRACE_REFRESH, "\t%d\t%d\n",
700 1.64 jdc *wlp->firstchp, *wlp->lastchp);
701 1.1 cgd }
702 1.7 cgd
703 1.64 jdc __CTRACE(__CTRACE_REFRESH, "doupdate: ly=%d, lx=%d\n",
704 1.64 jdc _cursesi_screen->ly, _cursesi_screen->lx);
705 1.1 cgd
706 1.43 blymn if (_cursesi_screen->curwin)
707 1.84 roy domvcur(win, _cursesi_screen->ly, _cursesi_screen->lx,
708 1.70 yamt win->cury, win->curx);
709 1.1 cgd else {
710 1.5 cgd if (win->flags & __LEAVEOK) {
711 1.43 blymn curscr->cury = _cursesi_screen->ly;
712 1.43 blymn curscr->curx = _cursesi_screen->lx;
713 1.4 mycroft } else {
714 1.84 roy domvcur(win, _cursesi_screen->ly, _cursesi_screen->lx,
715 1.43 blymn win->cury, win->curx);
716 1.23 jdc curscr->cury = win->cury;
717 1.23 jdc curscr->curx = win->curx;
718 1.1 cgd }
719 1.1 cgd }
720 1.23 jdc
721 1.81 roy cleanup:
722 1.28 mycroft /* Don't leave the screen with attributes set. */
723 1.28 mycroft __unsetattr(0);
724 1.119 blymn __do_color_init = 0;
725 1.65 blymn #ifdef DEBUG
726 1.65 blymn #ifdef HAVE_WCHAR
727 1.65 blymn {
728 1.65 blymn int i, j;
729 1.65 blymn
730 1.65 blymn __CTRACE(__CTRACE_REFRESH,
731 1.65 blymn "***********after*****************\n");
732 1.65 blymn __CTRACE(__CTRACE_REFRESH,
733 1.65 blymn "stdscr(%p)-curscr(%p)-__virtscr(%p)\n",
734 1.65 blymn stdscr, curscr, _cursesi_screen->__virtscr);
735 1.65 blymn for (i = 0; i < curscr->maxy; i++) {
736 1.65 blymn for (j = 0; j < curscr->maxx; j++)
737 1.65 blymn __CTRACE(__CTRACE_REFRESH,
738 1.118 blymn "[%d,%d](%x,%x,%d,%p)-(%x,%x,%d,%p)\n",
739 1.65 blymn i, j,
740 1.71 roy curscr->alines[i]->line[j].ch,
741 1.71 roy curscr->alines[i]->line[j].attr,
742 1.118 blymn curscr->alines[i]->line[j].wcols,
743 1.71 roy curscr->alines[i]->line[j].nsp,
744 1.71 roy _cursesi_screen->__virtscr->alines[i]->line[j].ch,
745 1.71 roy _cursesi_screen->__virtscr->alines[i]->line[j].attr,
746 1.118 blymn _cursesi_screen->__virtscr->alines[i]->line[j].wcols,
747 1.71 roy _cursesi_screen->__virtscr->alines[i]->line[j].nsp);
748 1.65 blymn }
749 1.65 blymn }
750 1.65 blymn #endif /* HAVE_WCHAR */
751 1.65 blymn #endif /* DEBUG */
752 1.60 christos return fflush(_cursesi_screen->outfd) == EOF ? ERR : OK;
753 1.1 cgd }
754 1.1 cgd
755 1.91 roy static void
756 1.91 roy putattr(__LDATA *nsp)
757 1.91 roy {
758 1.91 roy attr_t off, on;
759 1.91 roy
760 1.91 roy __CTRACE(__CTRACE_REFRESH,
761 1.119 blymn "putattr: have attr %08x, need attr %08x\n",
762 1.91 roy curscr->wattr
763 1.91 roy #ifndef HAVE_WCHAR
764 1.91 roy & __ATTRIBUTES
765 1.91 roy #else
766 1.91 roy & WA_ATTRIBUTES
767 1.91 roy #endif
768 1.91 roy , nsp->attr
769 1.91 roy #ifndef HAVE_WCHAR
770 1.91 roy & __ATTRIBUTES
771 1.91 roy #else
772 1.91 roy & WA_ATTRIBUTES
773 1.91 roy #endif
774 1.91 roy );
775 1.91 roy
776 1.91 roy off = (~nsp->attr & curscr->wattr)
777 1.91 roy #ifndef HAVE_WCHAR
778 1.91 roy & __ATTRIBUTES
779 1.91 roy #else
780 1.91 roy & WA_ATTRIBUTES
781 1.91 roy #endif
782 1.91 roy ;
783 1.91 roy
784 1.91 roy /*
785 1.91 roy * Unset attributes as appropriate. Unset first
786 1.91 roy * so that the relevant attributes can be reset
787 1.91 roy * (because 'me' unsets 'mb', 'md', 'mh', 'mk',
788 1.91 roy * 'mp' and 'mr'). Check to see if we also turn off
789 1.91 roy * standout, attributes and colour.
790 1.91 roy */
791 1.91 roy if (off & __TERMATTR && exit_attribute_mode != NULL) {
792 1.91 roy tputs(exit_attribute_mode, 0, __cputchar);
793 1.91 roy curscr->wattr &= __mask_me;
794 1.91 roy off &= __mask_me;
795 1.91 roy }
796 1.91 roy
797 1.91 roy /*
798 1.91 roy * Exit underscore mode if appropriate.
799 1.91 roy * Check to see if we also turn off standout,
800 1.91 roy * attributes and colour.
801 1.91 roy */
802 1.91 roy if (off & __UNDERSCORE && exit_underline_mode != NULL) {
803 1.91 roy tputs(exit_underline_mode, 0, __cputchar);
804 1.91 roy curscr->wattr &= __mask_ue;
805 1.91 roy off &= __mask_ue;
806 1.91 roy }
807 1.91 roy
808 1.91 roy /*
809 1.91 roy * Exit standout mode as appropriate.
810 1.91 roy * Check to see if we also turn off underscore,
811 1.91 roy * attributes and colour.
812 1.91 roy * XXX
813 1.91 roy * Should use uc if so/se not available.
814 1.91 roy */
815 1.91 roy if (off & __STANDOUT && exit_standout_mode != NULL) {
816 1.91 roy tputs(exit_standout_mode, 0, __cputchar);
817 1.91 roy curscr->wattr &= __mask_se;
818 1.91 roy off &= __mask_se;
819 1.91 roy }
820 1.91 roy
821 1.91 roy if (off & __ALTCHARSET && exit_alt_charset_mode != NULL) {
822 1.91 roy tputs(exit_alt_charset_mode, 0, __cputchar);
823 1.91 roy curscr->wattr &= ~__ALTCHARSET;
824 1.91 roy }
825 1.91 roy
826 1.91 roy /* Set/change colour as appropriate. */
827 1.91 roy if (__using_color)
828 1.91 roy __set_color(curscr, nsp->attr & __COLOR);
829 1.91 roy
830 1.91 roy on = (nsp->attr & ~curscr->wattr)
831 1.91 roy #ifndef HAVE_WCHAR
832 1.91 roy & __ATTRIBUTES
833 1.91 roy #else
834 1.91 roy & WA_ATTRIBUTES
835 1.91 roy #endif
836 1.91 roy ;
837 1.91 roy
838 1.91 roy /*
839 1.91 roy * Enter standout mode if appropriate.
840 1.91 roy */
841 1.91 roy if (on & __STANDOUT &&
842 1.91 roy enter_standout_mode != NULL &&
843 1.91 roy exit_standout_mode != NULL)
844 1.91 roy {
845 1.91 roy tputs(enter_standout_mode, 0, __cputchar);
846 1.91 roy curscr->wattr |= __STANDOUT;
847 1.91 roy }
848 1.91 roy
849 1.91 roy /*
850 1.91 roy * Enter underscore mode if appropriate.
851 1.91 roy * XXX
852 1.91 roy * Should use uc if us/ue not available.
853 1.91 roy */
854 1.91 roy if (on & __UNDERSCORE &&
855 1.91 roy enter_underline_mode != NULL &&
856 1.91 roy exit_underline_mode != NULL)
857 1.91 roy {
858 1.91 roy tputs(enter_underline_mode, 0, __cputchar);
859 1.91 roy curscr->wattr |= __UNDERSCORE;
860 1.91 roy }
861 1.91 roy
862 1.91 roy /*
863 1.91 roy * Set other attributes as appropriate.
864 1.91 roy */
865 1.91 roy if (exit_attribute_mode != NULL) {
866 1.91 roy if (on & __BLINK && enter_blink_mode != NULL)
867 1.91 roy {
868 1.91 roy tputs(enter_blink_mode, 0, __cputchar);
869 1.91 roy curscr->wattr |= __BLINK;
870 1.91 roy }
871 1.91 roy if (on & __BOLD && enter_bold_mode != NULL)
872 1.91 roy {
873 1.91 roy tputs(enter_bold_mode, 0, __cputchar);
874 1.91 roy curscr->wattr |= __BOLD;
875 1.91 roy }
876 1.91 roy if (on & __DIM && enter_dim_mode != NULL)
877 1.91 roy {
878 1.91 roy tputs(enter_dim_mode, 0, __cputchar);
879 1.91 roy curscr->wattr |= __DIM;
880 1.91 roy }
881 1.91 roy if (on & __BLANK && enter_secure_mode != NULL)
882 1.91 roy {
883 1.91 roy tputs(enter_secure_mode, 0, __cputchar);
884 1.91 roy curscr->wattr |= __BLANK;
885 1.91 roy }
886 1.91 roy if (on & __PROTECT && enter_protected_mode != NULL)
887 1.91 roy {
888 1.91 roy tputs(enter_protected_mode, 0, __cputchar);
889 1.91 roy curscr->wattr |= __PROTECT;
890 1.91 roy }
891 1.91 roy if (on & __REVERSE && enter_reverse_mode != NULL)
892 1.91 roy {
893 1.91 roy tputs(enter_reverse_mode, 0, __cputchar);
894 1.91 roy curscr->wattr |= __REVERSE;
895 1.91 roy }
896 1.91 roy #ifdef HAVE_WCHAR
897 1.91 roy if (on & WA_TOP && enter_top_hl_mode != NULL)
898 1.91 roy {
899 1.91 roy tputs(enter_top_hl_mode, 0, __cputchar);
900 1.91 roy curscr->wattr |= WA_TOP;
901 1.91 roy }
902 1.91 roy if (on & WA_LOW && enter_low_hl_mode != NULL)
903 1.91 roy {
904 1.91 roy tputs(enter_low_hl_mode, 0, __cputchar);
905 1.91 roy curscr->wattr |= WA_LOW;
906 1.91 roy }
907 1.91 roy if (on & WA_LEFT && enter_left_hl_mode != NULL)
908 1.91 roy {
909 1.91 roy tputs(enter_left_hl_mode, 0, __cputchar);
910 1.91 roy curscr->wattr |= WA_LEFT;
911 1.91 roy }
912 1.91 roy if (on & WA_RIGHT && enter_right_hl_mode != NULL)
913 1.91 roy {
914 1.91 roy tputs(enter_right_hl_mode, 0, __cputchar);
915 1.91 roy curscr->wattr |= WA_RIGHT;
916 1.91 roy }
917 1.91 roy if (on & WA_HORIZONTAL && enter_horizontal_hl_mode != NULL)
918 1.91 roy {
919 1.91 roy tputs(enter_horizontal_hl_mode, 0, __cputchar);
920 1.91 roy curscr->wattr |= WA_HORIZONTAL;
921 1.91 roy }
922 1.91 roy if (on & WA_VERTICAL && enter_vertical_hl_mode != NULL)
923 1.91 roy {
924 1.91 roy tputs(enter_vertical_hl_mode, 0, __cputchar);
925 1.91 roy curscr->wattr |= WA_VERTICAL;
926 1.91 roy }
927 1.91 roy #endif /* HAVE_WCHAR */
928 1.91 roy }
929 1.91 roy
930 1.91 roy /* Enter/exit altcharset mode as appropriate. */
931 1.91 roy if (on & __ALTCHARSET && enter_alt_charset_mode != NULL &&
932 1.91 roy exit_alt_charset_mode != NULL) {
933 1.91 roy tputs(enter_alt_charset_mode, 0, __cputchar);
934 1.91 roy curscr->wattr |= __ALTCHARSET;
935 1.91 roy }
936 1.91 roy }
937 1.91 roy
938 1.91 roy static void
939 1.91 roy putattr_out(__LDATA *nsp)
940 1.91 roy {
941 1.91 roy
942 1.91 roy if (underline_char &&
943 1.91 roy ((nsp->attr & __STANDOUT) || (nsp->attr & __UNDERSCORE)))
944 1.91 roy {
945 1.91 roy __cputchar('\b');
946 1.91 roy tputs(underline_char, 0, __cputchar);
947 1.91 roy }
948 1.91 roy }
949 1.91 roy
950 1.90 roy static int
951 1.90 roy putch(__LDATA *nsp, __LDATA *csp, int wy, int wx)
952 1.90 roy {
953 1.90 roy
954 1.91 roy if (csp != NULL)
955 1.91 roy putattr(nsp);
956 1.91 roy
957 1.90 roy if (!_cursesi_screen->curwin && csp) {
958 1.90 roy csp->attr = nsp->attr;
959 1.90 roy csp->ch = nsp->ch;
960 1.90 roy #ifdef HAVE_WCHAR
961 1.90 roy if (_cursesi_copy_nsp(nsp->nsp, csp) == ERR)
962 1.90 roy return ERR;
963 1.118 blymn csp->wcols = nsp->wcols;
964 1.90 roy #endif /* HAVE_WCHAR */
965 1.90 roy }
966 1.90 roy
967 1.90 roy #ifndef HAVE_WCHAR
968 1.90 roy __cputchar((int)nsp->ch);
969 1.90 roy #else
970 1.118 blymn if (nsp->wcols <= 0)
971 1.91 roy goto out;
972 1.119 blymn
973 1.119 blymn if (((_cursesi_screen->nca & nsp->attr) == 0) && (__using_color == 1) &&
974 1.119 blymn csp == NULL)
975 1.119 blymn __set_color(curscr, nsp->attr & __COLOR);
976 1.90 roy __cputwchar((int)nsp->ch);
977 1.90 roy __CTRACE(__CTRACE_REFRESH,
978 1.119 blymn "putch: (%d,%d)putwchar(0x%x)\n", wy, wx - 1, nsp->ch);
979 1.90 roy
980 1.90 roy /* Output non-spacing characters for the cell. */
981 1.90 roy __cursesi_putnsp(nsp->nsp, wy, wx);
982 1.91 roy out:
983 1.90 roy #endif /* HAVE_WCHAR */
984 1.90 roy
985 1.91 roy if (csp != NULL)
986 1.91 roy putattr_out(nsp);
987 1.90 roy return OK;
988 1.90 roy }
989 1.90 roy
990 1.90 roy static int
991 1.90 roy putchbr(__LDATA *nsp, __LDATA *csp, __LDATA *psp, int wy, int wx)
992 1.90 roy {
993 1.90 roy int error, cw, pcw;
994 1.90 roy
995 1.90 roy /* Can safely print to bottom right corner. */
996 1.90 roy if (!auto_right_margin)
997 1.90 roy return putch(nsp, csp, wy, wx);
998 1.90 roy
999 1.90 roy /* Disable auto margins temporarily. */
1000 1.90 roy if (enter_am_mode && exit_am_mode) {
1001 1.102 roy tputs(exit_am_mode, 0, __cputchar);
1002 1.102 roy error = putch(nsp, csp, wy, wx);
1003 1.90 roy tputs(enter_am_mode, 0, __cputchar);
1004 1.90 roy return error;
1005 1.90 roy }
1006 1.90 roy
1007 1.106 roy /* We need to insert characters. */
1008 1.90 roy #ifdef HAVE_WCHAR
1009 1.118 blymn cw = nsp->wcols;
1010 1.118 blymn pcw = psp->wcols;
1011 1.106 roy if (cw < 1 || pcw < 1)
1012 1.90 roy return ERR; /* Nothing to insert */
1013 1.90 roy
1014 1.106 roy /* When inserting a wide character, we need something other than
1015 1.90 roy * insert_character. */
1016 1.90 roy if (pcw > 1 &&
1017 1.90 roy !(parm_ich != NULL ||
1018 1.90 roy (enter_insert_mode != NULL && exit_insert_mode != NULL)))
1019 1.90 roy return ERR;
1020 1.90 roy #else
1021 1.90 roy cw = pcw = 1;
1022 1.90 roy #endif /* HAVE_WCHAR */
1023 1.90 roy
1024 1.90 roy /* Write the corner character at wx - pcw. */
1025 1.90 roy __mvcur(wy, wx, wy, wx - pcw, 1);
1026 1.90 roy if (putch(nsp, csp, wy, wx) == ERR)
1027 1.90 roy return ERR;
1028 1.90 roy
1029 1.90 roy /* Move cursor back. */
1030 1.90 roy __mvcur(wy, wx - pcw + cw, wy, wx - cw, 1);
1031 1.90 roy
1032 1.91 roy putattr(psp);
1033 1.91 roy
1034 1.90 roy /* Enter insert mode. */
1035 1.90 roy if (pcw == 1 && insert_character != NULL)
1036 1.90 roy tputs(insert_character, 0, __cputchar);
1037 1.90 roy else if (parm_ich != NULL)
1038 1.90 roy tputs(tiparm(parm_ich, (long)pcw), 0, __cputchar);
1039 1.90 roy else if (enter_insert_mode != NULL && exit_insert_mode != NULL)
1040 1.90 roy tputs(enter_insert_mode, 0, __cputchar);
1041 1.90 roy else
1042 1.90 roy return ERR;
1043 1.90 roy
1044 1.90 roy /* Insert the old character back. */
1045 1.90 roy error = putch(psp, NULL, wy, wx - pcw);
1046 1.90 roy
1047 1.90 roy /* Exit insert mode. */
1048 1.90 roy if (insert_character != NULL || parm_ich != NULL)
1049 1.90 roy ;
1050 1.90 roy else if (enter_insert_mode != NULL && exit_insert_mode != NULL)
1051 1.90 roy tputs(exit_insert_mode, 0, __cputchar);
1052 1.90 roy
1053 1.91 roy putattr_out(psp);
1054 1.91 roy
1055 1.90 roy return error;
1056 1.90 roy }
1057 1.90 roy
1058 1.1 cgd /*
1059 1.4 mycroft * makech --
1060 1.4 mycroft * Make a change on the screen.
1061 1.1 cgd */
1062 1.4 mycroft static int
1063 1.65 blymn makech(int wy)
1064 1.1 cgd {
1065 1.23 jdc WINDOW *win;
1066 1.119 blymn static __LDATA blank, space;
1067 1.119 blymn __LDATA *nsp, *csp, *cp, *cep, *fsp, *tld;
1068 1.78 blymn __LINE *wlp;
1069 1.66 blymn size_t clsp, nlsp; /* Last space in lines. */
1070 1.118 blymn int lch, wx, owx, chw;
1071 1.72 roy const char *ce;
1072 1.23 jdc attr_t lspc; /* Last space colour */
1073 1.119 blymn attr_t battr; /* background attribute bits */
1074 1.119 blymn attr_t attr_mask; /* attributes mask */
1075 1.5 cgd
1076 1.8 mikel #ifdef __GNUC__
1077 1.23 jdc nlsp = lspc = 0; /* XXX gcc -Wuninitialized */
1078 1.8 mikel #endif
1079 1.43 blymn if (_cursesi_screen->curwin)
1080 1.23 jdc win = curscr;
1081 1.23 jdc else
1082 1.23 jdc win = __virtscr;
1083 1.119 blymn
1084 1.119 blymn blank.ch = win->bch;
1085 1.119 blymn blank.attr = win->battr;
1086 1.65 blymn #ifdef HAVE_WCHAR
1087 1.65 blymn if (_cursesi_copy_nsp(win->bnsp, &blank) == ERR)
1088 1.65 blymn return ERR;
1089 1.118 blymn blank.wcols = win->wcols;
1090 1.119 blymn attr_mask = WA_ATTRIBUTES;
1091 1.119 blymn
1092 1.119 blymn space.ch = (wchar_t) btowc((int) ' ');
1093 1.119 blymn space.nsp = NULL;
1094 1.119 blymn space.wcols = 1;
1095 1.119 blymn space.attr = WA_NORMAL;
1096 1.119 blymn #else
1097 1.119 blymn space.ch = ' ';
1098 1.119 blymn space.attr = A_NORMAL;
1099 1.119 blymn attr_mask = A_ATTRIBUTES;
1100 1.65 blymn #endif /* HAVE_WCHAR */
1101 1.119 blymn battr = win->battr & attr_mask;
1102 1.119 blymn
1103 1.65 blymn #ifdef DEBUG
1104 1.65 blymn #if HAVE_WCHAR
1105 1.65 blymn {
1106 1.65 blymn int x;
1107 1.65 blymn __LDATA *lp, *vlp;
1108 1.65 blymn
1109 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1110 1.65 blymn "[makech-before]wy=%d,curscr(%p)-__virtscr(%p)\n",
1111 1.65 blymn wy, curscr, __virtscr);
1112 1.65 blymn for (x = 0; x < curscr->maxx; x++) {
1113 1.71 roy lp = &curscr->alines[wy]->line[x];
1114 1.71 roy vlp = &__virtscr->alines[wy]->line[x];
1115 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1116 1.118 blymn "[%d,%d](%x,%x,%d,%x,%x,%d,%p)-"
1117 1.118 blymn "(%x,%x,%d,%x,%x,%d,%p)\n",
1118 1.118 blymn wy, x, lp->ch, lp->attr, lp->wcols,
1119 1.118 blymn win->bch, win->battr, win->wcols, lp->nsp,
1120 1.118 blymn vlp->ch, vlp->attr, vlp->wcols,
1121 1.118 blymn win->bch, win->battr, win->wcols, vlp->nsp);
1122 1.65 blymn }
1123 1.65 blymn }
1124 1.65 blymn #endif /* HAVE_WCHAR */
1125 1.65 blymn #endif /* DEBUG */
1126 1.119 blymn
1127 1.5 cgd /* Is the cursor still on the end of the last line? */
1128 1.71 roy if (wy > 0 && curscr->alines[wy - 1]->flags & __ISPASTEOL) {
1129 1.84 roy domvcur(win, _cursesi_screen->ly, _cursesi_screen->lx,
1130 1.43 blymn _cursesi_screen->ly + 1, 0);
1131 1.43 blymn _cursesi_screen->ly++;
1132 1.43 blymn _cursesi_screen->lx = 0;
1133 1.5 cgd }
1134 1.78 blymn wlp = win->alines[wy];
1135 1.71 roy wx = *win->alines[wy]->firstchp;
1136 1.5 cgd if (wx < 0)
1137 1.5 cgd wx = 0;
1138 1.11 mrg else
1139 1.11 mrg if (wx >= win->maxx)
1140 1.11 mrg return (OK);
1141 1.71 roy lch = *win->alines[wy]->lastchp;
1142 1.1 cgd if (lch < 0)
1143 1.83 roy return OK;
1144 1.11 mrg else
1145 1.11 mrg if (lch >= (int) win->maxx)
1146 1.11 mrg lch = win->maxx - 1;
1147 1.1 cgd
1148 1.65 blymn if (_cursesi_screen->curwin) {
1149 1.5 cgd csp = ␣
1150 1.65 blymn __CTRACE(__CTRACE_REFRESH, "makech: csp is blank\n");
1151 1.65 blymn } else {
1152 1.71 roy csp = &curscr->alines[wy]->line[wx];
1153 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1154 1.65 blymn "makech: csp is on curscr:(%d,%d)\n", wy, wx);
1155 1.65 blymn }
1156 1.1 cgd
1157 1.90 roy nsp = fsp = &win->alines[wy]->line[wx];
1158 1.119 blymn
1159 1.65 blymn #ifdef DEBUG
1160 1.83 roy if (_cursesi_screen->curwin)
1161 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1162 1.65 blymn "makech: nsp is at curscr:(%d,%d)\n", wy, wx);
1163 1.65 blymn else
1164 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1165 1.65 blymn "makech: nsp is at __virtscr:(%d,%d)\n", wy, wx);
1166 1.65 blymn #endif /* DEBUG */
1167 1.119 blymn
1168 1.119 blymn /*
1169 1.119 blymn * Work out if we can use a clear to end of line. If we are
1170 1.119 blymn * using color then we can only erase the line if the terminal
1171 1.119 blymn * can erase to the background color.
1172 1.119 blymn */
1173 1.119 blymn if (clr_eol && !_cursesi_screen->curwin && (!(__using_color)
1174 1.119 blymn || (__using_color && back_color_erase))) {
1175 1.71 roy cp = &win->alines[wy]->line[win->maxx - 1];
1176 1.119 blymn #ifdef HAVE_WCHAR
1177 1.119 blymn while ((celleq(cp, &space) == 1) &&
1178 1.65 blymn #else
1179 1.119 blymn while (cp->ch == space.ch &&
1180 1.119 blymn #endif /* HAVE_WCHAR */
1181 1.119 blymn ((cp->attr & attr_mask) == battr)) {
1182 1.71 roy if (cp-- <= win->alines[wy]->line)
1183 1.1 cgd break;
1184 1.119 blymn }
1185 1.119 blymn
1186 1.119 blymn #ifdef HAVE_WCHAR
1187 1.119 blymn if ((cp->wflags & WCA_CONTINUATION) == WCA_CONTINUATION)
1188 1.119 blymn cp--;
1189 1.65 blymn #endif /* HAVE_WCHAR */
1190 1.119 blymn
1191 1.71 roy if (win->alines[wy]->line > cp)
1192 1.42 blymn nlsp = 0;
1193 1.66 blymn else
1194 1.71 roy nlsp = cp - win->alines[wy]->line;
1195 1.1 cgd }
1196 1.119 blymn
1197 1.119 blymn ce = clr_eol;
1198 1.1 cgd
1199 1.1 cgd while (wx <= lch) {
1200 1.65 blymn __CTRACE(__CTRACE_REFRESH, "makech: wx=%d,lch=%d\n", wx, lch);
1201 1.119 blymn #ifdef HAVE_WCHAR
1202 1.119 blymn __CTRACE(__CTRACE_REFRESH, "makech: farnarkle: flags 0x%x, wflags 0x%x, color_init %d, celleq %d\n",
1203 1.119 blymn wlp->flags, nsp->wflags, __do_color_init, celleq(nsp, csp));
1204 1.118 blymn __CTRACE(__CTRACE_REFRESH, "makech: nsp=(%x,%x,%d,%x,%x,%d,%p)\n",
1205 1.118 blymn nsp->ch, nsp->attr, nsp->wcols, win->bch, win->battr,
1206 1.118 blymn win->wcols, nsp->nsp);
1207 1.118 blymn __CTRACE(__CTRACE_REFRESH, "makech: csp=(%x,%x,%d,%x,%x,%d,%p)\n",
1208 1.118 blymn csp->ch, csp->attr, csp->wcols, win->bch, win->battr,
1209 1.118 blymn win->wcols, csp->nsp);
1210 1.98 uwe #endif
1211 1.78 blymn if (!(wlp->flags & __ISFORCED) &&
1212 1.98 uwe #ifdef HAVE_WCHAR
1213 1.118 blymn ((nsp->wflags & WCA_CONTINUATION) != WCA_CONTINUATION) &&
1214 1.98 uwe #endif
1215 1.98 uwe celleq(nsp, csp))
1216 1.83 roy {
1217 1.65 blymn if (wx <= lch) {
1218 1.98 uwe while (wx <= lch && celleq(nsp, csp)) {
1219 1.118 blymn #ifdef HAVE_WCHAR
1220 1.118 blymn wx += nsp->wcols;
1221 1.118 blymn #else
1222 1.118 blymn wx++;
1223 1.118 blymn #endif
1224 1.65 blymn nsp++;
1225 1.65 blymn if (!_cursesi_screen->curwin)
1226 1.65 blymn ++csp;
1227 1.65 blymn }
1228 1.65 blymn continue;
1229 1.65 blymn }
1230 1.65 blymn break;
1231 1.65 blymn }
1232 1.98 uwe
1233 1.84 roy domvcur(win, _cursesi_screen->ly, _cursesi_screen->lx, wy, wx);
1234 1.5 cgd
1235 1.64 jdc __CTRACE(__CTRACE_REFRESH, "makech: 1: wx = %d, ly= %d, "
1236 1.119 blymn "lx = %d, newy = %d, newx = %d, lch = %d\n",
1237 1.119 blymn wx, _cursesi_screen->ly, _cursesi_screen->lx, wy, wx, lch);
1238 1.43 blymn _cursesi_screen->ly = wy;
1239 1.43 blymn _cursesi_screen->lx = wx;
1240 1.118 blymn owx = wx;
1241 1.92 uwe while (wx <= lch &&
1242 1.100 uwe ((wlp->flags & __ISFORCED) || !celleq(nsp, csp)))
1243 1.83 roy {
1244 1.119 blymn if ((ce != NULL) && (wx >= nlsp) &&
1245 1.119 blymn (nsp->ch == space.ch) &&
1246 1.119 blymn (__do_color_init == 1 || nsp->attr == space.attr))
1247 1.83 roy {
1248 1.4 mycroft /* Check for clear to end-of-line. */
1249 1.71 roy cep = &curscr->alines[wy]->line[win->maxx - 1];
1250 1.119 blymn while (cep->ch == blank.ch && cep->attr == battr)
1251 1.5 cgd if (cep-- <= csp)
1252 1.4 mycroft break;
1253 1.119 blymn if (cep >= (curscr->alines[wy]->line + win->begx * __LDATASIZE))
1254 1.78 blymn clsp = cep - curscr->alines[wy]->line -
1255 1.119 blymn win->begx * __LDATASIZE;
1256 1.78 blymn else
1257 1.78 blymn clsp = 0;
1258 1.64 jdc __CTRACE(__CTRACE_REFRESH,
1259 1.119 blymn "makech: clsp = %zu, nlsp = %zu, strlen(ce) = %ld\n",
1260 1.119 blymn clsp, nlsp, strlen(ce));
1261 1.78 blymn __CTRACE(__CTRACE_REFRESH,
1262 1.78 blymn "makech: line = %p, cep = %p, begx = %u\n",
1263 1.78 blymn curscr->alines[wy]->line, cep, win->begx);
1264 1.119 blymn
1265 1.119 blymn /*
1266 1.119 blymn * work out how to clear the line. If:
1267 1.119 blymn * - clear len is greater than clear_to_eol len
1268 1.119 blymn * - background char == ' '
1269 1.119 blymn * - we are not at EOL
1270 1.119 blymn * - using color and term can erase to
1271 1.119 blymn * background color
1272 1.119 blymn * - if we are at the bottom of the window
1273 1.119 blymn * (to prevent a scroll)
1274 1.119 blymn * then emit the ce string.
1275 1.119 blymn */
1276 1.119 blymn if (((((clsp - nlsp > strlen(ce)) ||
1277 1.119 blymn (__do_color_init && back_color_erase)) &&
1278 1.119 blymn (clsp != win->maxx * __LDATASIZE)) ||
1279 1.119 blymn (wy == win->maxy - 1)) &&
1280 1.119 blymn (!(__using_color) ||
1281 1.119 blymn (__using_color && back_color_erase)))
1282 1.83 roy {
1283 1.119 blymn if(wlp->line[wx].attr & win->screen->nca) {
1284 1.119 blymn __unsetattr(0);
1285 1.119 blymn } else if (__using_color &&
1286 1.119 blymn ((__do_color_init == 1) ||
1287 1.47 jdc ((lspc & __COLOR) !=
1288 1.119 blymn (curscr->wattr & __COLOR)))) {
1289 1.47 jdc __set_color(curscr, lspc &
1290 1.47 jdc __COLOR);
1291 1.119 blymn }
1292 1.88 christos tputs(ce, 0, __cputchar);
1293 1.43 blymn _cursesi_screen->lx = wx + win->begx;
1294 1.5 cgd while (wx++ <= clsp) {
1295 1.119 blymn csp->attr = blank.attr;
1296 1.119 blymn csp->ch = blank.ch;
1297 1.119 blymn #ifdef HAVE_WCHAR
1298 1.119 blymn if (_cursesi_copy_nsp(blank.nsp, csp) == ERR)
1299 1.119 blymn return ERR;
1300 1.65 blymn #endif /* HAVE_WCHAR */
1301 1.119 blymn csp->wcols = blank.wcols;
1302 1.113 mrg assert(csp != &blank);
1303 1.5 cgd csp++;
1304 1.5 cgd }
1305 1.83 roy return OK;
1306 1.1 cgd }
1307 1.4 mycroft ce = NULL;
1308 1.4 mycroft }
1309 1.4 mycroft
1310 1.90 roy #ifdef HAVE_WCHAR
1311 1.118 blymn chw = nsp->wcols;
1312 1.106 roy if (chw < 0)
1313 1.107 roy chw = 0; /* match putch() */
1314 1.90 roy #else
1315 1.90 roy chw = 1;
1316 1.90 roy #endif /* HAVE_WCHAR */
1317 1.118 blymn owx = wx;
1318 1.90 roy if (wx + chw >= win->maxx &&
1319 1.91 roy wy == win->maxy - 1 && !_cursesi_screen->curwin)
1320 1.91 roy {
1321 1.89 roy if (win->flags & __ENDLINE)
1322 1.89 roy __unsetattr(1);
1323 1.89 roy if (!(win->flags & __SCROLLWIN)) {
1324 1.90 roy int e;
1325 1.90 roy
1326 1.90 roy if (win->flags & __SCROLLOK)
1327 1.90 roy e = putch(nsp, csp, wy, wx);
1328 1.90 roy else
1329 1.90 roy e = putchbr(nsp, csp,
1330 1.90 roy nsp == fsp ? NULL : nsp - 1,
1331 1.90 roy wy, wx);
1332 1.90 roy if (e == ERR)
1333 1.90 roy return ERR;
1334 1.7 cgd }
1335 1.90 roy if (wx + chw < curscr->maxx) {
1336 1.89 roy domvcur(win,
1337 1.89 roy _cursesi_screen->ly, wx,
1338 1.89 roy (int)(win->maxy - 1),
1339 1.89 roy (int)(win->maxx - 1));
1340 1.89 roy }
1341 1.89 roy _cursesi_screen->ly = win->maxy - 1;
1342 1.89 roy _cursesi_screen->lx = win->maxx - 1;
1343 1.89 roy return OK;
1344 1.65 blymn }
1345 1.90 roy if (wx + chw < win->maxx || wy < win->maxy - 1 ||
1346 1.83 roy !(win->flags & __SCROLLWIN))
1347 1.83 roy {
1348 1.119 blymn tld = nsp;
1349 1.119 blymn if (celleq(&blank, nsp))
1350 1.119 blymn tld = ␣
1351 1.119 blymn
1352 1.119 blymn if (putch(tld, csp, wy, wx) == ERR)
1353 1.90 roy return ERR;
1354 1.113 mrg if (!_cursesi_screen->curwin) {
1355 1.113 mrg assert(csp != &blank);
1356 1.113 mrg csp++;
1357 1.113 mrg }
1358 1.91 roy } else {
1359 1.91 roy putattr(nsp);
1360 1.91 roy putattr_out(nsp);
1361 1.1 cgd }
1362 1.90 roy wx += chw;
1363 1.118 blymn nsp += chw;
1364 1.64 jdc __CTRACE(__CTRACE_REFRESH,
1365 1.64 jdc "makech: 2: wx = %d, lx = %d\n",
1366 1.64 jdc wx, _cursesi_screen->lx);
1367 1.5 cgd }
1368 1.43 blymn if (_cursesi_screen->lx == wx) /* If no change. */
1369 1.4 mycroft break;
1370 1.118 blymn
1371 1.118 blymn /*
1372 1.118 blymn * We need to work out if the cursor has been put in the
1373 1.118 blymn * middle of a wide character so check if curx is between
1374 1.118 blymn * where we were and where we are and we are on the right
1375 1.118 blymn * line. If so, move the cursor now.
1376 1.118 blymn */
1377 1.118 blymn if ((wy == win->cury) && (wx > win->curx) &&
1378 1.118 blymn (owx < win->curx)) {
1379 1.118 blymn _cursesi_screen->lx = win->curx;
1380 1.118 blymn domvcur(win, _cursesi_screen->ly, wx,
1381 1.118 blymn _cursesi_screen->ly, _cursesi_screen->lx);
1382 1.118 blymn } else
1383 1.118 blymn _cursesi_screen->lx = wx;
1384 1.118 blymn
1385 1.72 roy if (_cursesi_screen->lx >= COLS && auto_right_margin)
1386 1.43 blymn _cursesi_screen->lx = COLS - 1;
1387 1.11 mrg else
1388 1.11 mrg if (wx >= win->maxx) {
1389 1.84 roy domvcur(win,
1390 1.84 roy _cursesi_screen->ly,
1391 1.43 blymn _cursesi_screen->lx,
1392 1.43 blymn _cursesi_screen->ly,
1393 1.84 roy (int)(win->maxx - 1));
1394 1.43 blymn _cursesi_screen->lx = win->maxx - 1;
1395 1.11 mrg }
1396 1.64 jdc __CTRACE(__CTRACE_REFRESH, "makech: 3: wx = %d, lx = %d\n",
1397 1.64 jdc wx, _cursesi_screen->lx);
1398 1.1 cgd }
1399 1.65 blymn #ifdef DEBUG
1400 1.65 blymn #if HAVE_WCHAR
1401 1.65 blymn {
1402 1.65 blymn int x;
1403 1.65 blymn __LDATA *lp, *vlp;
1404 1.65 blymn
1405 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1406 1.65 blymn "makech-after: curscr(%p)-__virtscr(%p)\n",
1407 1.65 blymn curscr, __virtscr );
1408 1.65 blymn for (x = 0; x < curscr->maxx; x++) {
1409 1.71 roy lp = &curscr->alines[wy]->line[x];
1410 1.71 roy vlp = &__virtscr->alines[wy]->line[x];
1411 1.65 blymn __CTRACE(__CTRACE_REFRESH,
1412 1.118 blymn "[%d,%d](%x,%x,%d,%x,%x,%d,%p)-"
1413 1.118 blymn "(%x,%x,%d,%x,%x,%d,%p)\n",
1414 1.118 blymn wy, x, lp->ch, lp->attr, lp->wcols,
1415 1.118 blymn win->bch, win->battr, win->wcols, lp->nsp,
1416 1.118 blymn vlp->ch, vlp->attr, vlp->wcols,
1417 1.118 blymn win->bch, win->battr, win->wcols, vlp->nsp);
1418 1.65 blymn }
1419 1.65 blymn }
1420 1.65 blymn #endif /* HAVE_WCHAR */
1421 1.65 blymn #endif /* DEBUG */
1422 1.7 cgd
1423 1.83 roy return OK;
1424 1.1 cgd }
1425 1.1 cgd
1426 1.1 cgd /*
1427 1.4 mycroft * domvcur --
1428 1.19 jdc * Do a mvcur, leaving attributes if necessary.
1429 1.1 cgd */
1430 1.4 mycroft static void
1431 1.110 blymn domvcur(WINDOW *win, int oy, int ox, int ny, int nx)
1432 1.4 mycroft {
1433 1.83 roy
1434 1.112 rin __CTRACE(__CTRACE_REFRESH, "domvcur: (%d,%d)=>(%d,%d) win %p\n",
1435 1.111 blymn oy, ox, ny, nx, win );
1436 1.84 roy
1437 1.23 jdc __unsetattr(1);
1438 1.84 roy
1439 1.84 roy /* Don't move the cursor unless we need to. */
1440 1.84 roy if (oy == ny && ox == nx) {
1441 1.84 roy /* Check EOL. */
1442 1.84 roy if (!(win->alines[oy]->flags & __ISPASTEOL))
1443 1.84 roy return;
1444 1.84 roy }
1445 1.84 roy
1446 1.84 roy /* Clear EOL flags. */
1447 1.84 roy win->alines[oy]->flags &= ~__ISPASTEOL;
1448 1.84 roy win->alines[ny]->flags &= ~__ISPASTEOL;
1449 1.84 roy
1450 1.5 cgd __mvcur(oy, ox, ny, nx, 1);
1451 1.5 cgd }
1452 1.5 cgd
1453 1.5 cgd /*
1454 1.5 cgd * Quickch() attempts to detect a pattern in the change of the window
1455 1.7 cgd * in order to optimize the change, e.g., scroll n lines as opposed to
1456 1.5 cgd * repainting the screen line by line.
1457 1.5 cgd */
1458 1.5 cgd
1459 1.46 christos static __LDATA buf[128];
1460 1.82 roy static unsigned int last_hash;
1461 1.46 christos static size_t last_hash_len;
1462 1.46 christos #define BLANKSIZE (sizeof(buf) / sizeof(buf[0]))
1463 1.46 christos
1464 1.5 cgd static void
1465 1.23 jdc quickch(void)
1466 1.5 cgd {
1467 1.23 jdc #define THRESH (int) __virtscr->maxy / 4
1468 1.5 cgd
1469 1.10 perry __LINE *clp, *tmp1, *tmp2;
1470 1.11 mrg int bsize, curs, curw, starts, startw, i, j;
1471 1.11 mrg int n, target, cur_period, bot, top, sc_region;
1472 1.119 blymn unsigned int blank_hash, found;
1473 1.22 jdc attr_t bcolor;
1474 1.5 cgd
1475 1.8 mikel #ifdef __GNUC__
1476 1.11 mrg curs = curw = starts = startw = 0; /* XXX gcc -Wuninitialized */
1477 1.8 mikel #endif
1478 1.7 cgd /*
1479 1.5 cgd * Find how many lines from the top of the screen are unchanged.
1480 1.5 cgd */
1481 1.83 roy for (top = 0; top < __virtscr->maxy; top++) {
1482 1.71 roy if (__virtscr->alines[top]->flags & __ISDIRTY &&
1483 1.71 roy (__virtscr->alines[top]->hash != curscr->alines[top]->hash ||
1484 1.101 uwe !lineeq(__virtscr->alines[top]->line,
1485 1.101 uwe curscr->alines[top]->line,
1486 1.119 blymn (size_t) __virtscr->maxx))) {
1487 1.5 cgd break;
1488 1.119 blymn } else
1489 1.71 roy __virtscr->alines[top]->flags &= ~__ISDIRTY;
1490 1.83 roy }
1491 1.11 mrg /*
1492 1.11 mrg * Find how many lines from bottom of screen are unchanged.
1493 1.11 mrg */
1494 1.83 roy for (bot = __virtscr->maxy - 1; bot >= 0; bot--) {
1495 1.71 roy if (__virtscr->alines[bot]->flags & __ISDIRTY &&
1496 1.71 roy (__virtscr->alines[bot]->hash != curscr->alines[bot]->hash ||
1497 1.101 uwe !lineeq(__virtscr->alines[bot]->line,
1498 1.101 uwe curscr->alines[bot]->line,
1499 1.119 blymn (size_t) __virtscr->maxx))) {
1500 1.5 cgd break;
1501 1.119 blymn } else
1502 1.71 roy __virtscr->alines[bot]->flags &= ~__ISDIRTY;
1503 1.83 roy }
1504 1.23 jdc
1505 1.23 jdc /*
1506 1.23 jdc * Work round an xterm bug where inserting lines causes all the
1507 1.23 jdc * inserted lines to be covered with the background colour we
1508 1.23 jdc * set on the first line (even if we unset it for subsequent
1509 1.23 jdc * lines).
1510 1.23 jdc */
1511 1.71 roy bcolor = __virtscr->alines[min(top,
1512 1.23 jdc __virtscr->maxy - 1)]->line[0].attr & __COLOR;
1513 1.23 jdc for (i = top + 1, j = 0; i < bot; i++) {
1514 1.71 roy if ((__virtscr->alines[i]->line[0].attr & __COLOR) != bcolor) {
1515 1.71 roy bcolor = __virtscr->alines[i]->line[__virtscr->maxx].
1516 1.23 jdc attr & __COLOR;
1517 1.23 jdc j = i - top;
1518 1.23 jdc } else
1519 1.23 jdc break;
1520 1.23 jdc }
1521 1.23 jdc top += j;
1522 1.5 cgd
1523 1.5 cgd #ifdef NO_JERKINESS
1524 1.5 cgd /*
1525 1.5 cgd * If we have a bottom unchanged region return. Scrolling the
1526 1.5 cgd * bottom region up and then back down causes a screen jitter.
1527 1.5 cgd * This will increase the number of characters sent to the screen
1528 1.5 cgd * but it looks better.
1529 1.5 cgd */
1530 1.23 jdc if (bot < __virtscr->maxy - 1)
1531 1.5 cgd return;
1532 1.11 mrg #endif /* NO_JERKINESS */
1533 1.5 cgd
1534 1.5 cgd /*
1535 1.5 cgd * Search for the largest block of text not changed.
1536 1.5 cgd * Invariants of the loop:
1537 1.23 jdc * - Startw is the index of the beginning of the examined block in
1538 1.23 jdc * __virtscr.
1539 1.11 mrg * - Starts is the index of the beginning of the examined block in
1540 1.23 jdc * curscr.
1541 1.7 cgd * - Curw is the index of one past the end of the exmined block in
1542 1.23 jdc * __virtscr.
1543 1.23 jdc * - Curs is the index of one past the end of the exmined block in
1544 1.5 cgd * curscr.
1545 1.5 cgd * - bsize is the current size of the examined block.
1546 1.11 mrg */
1547 1.23 jdc
1548 1.119 blymn found = 0;
1549 1.5 cgd for (bsize = bot - top; bsize >= THRESH; bsize--) {
1550 1.5 cgd for (startw = top; startw <= bot - bsize; startw++)
1551 1.83 roy for (starts = top; starts <= bot - bsize; starts++) {
1552 1.119 blymn /* for (curw = startw, curs = starts;
1553 1.11 mrg curs < starts + bsize; curw++, curs++)
1554 1.71 roy if (__virtscr->alines[curw]->hash !=
1555 1.71 roy curscr->alines[curs]->hash)
1556 1.32 mycroft break;
1557 1.32 mycroft if (curs != starts + bsize)
1558 1.119 blymn continue;*/
1559 1.32 mycroft for (curw = startw, curs = starts;
1560 1.65 blymn curs < starts + bsize; curw++, curs++)
1561 1.96 uwe if (!lineeq(__virtscr->alines[curw]->line,
1562 1.101 uwe curscr->alines[curs]->line,
1563 1.119 blymn (size_t) __virtscr->maxx)) {
1564 1.119 blymn found = 1;
1565 1.5 cgd break;
1566 1.119 blymn }
1567 1.119 blymn if ((curs == starts + bsize) && (found == 1)) {
1568 1.5 cgd goto done;
1569 1.119 blymn }
1570 1.5 cgd }
1571 1.5 cgd }
1572 1.11 mrg done:
1573 1.22 jdc
1574 1.119 blymn __CTRACE(__CTRACE_REFRESH, "quickch:bsize=%d, THRESH=%d, starts=%d, "
1575 1.119 blymn "startw=%d, curw=%d, curs=%d, top=%d, bot=%d\n",
1576 1.119 blymn bsize, THRESH, starts, startw, curw, curs, top, bot);
1577 1.119 blymn
1578 1.5 cgd /* Did not find anything */
1579 1.7 cgd if (bsize < THRESH)
1580 1.5 cgd return;
1581 1.5 cgd
1582 1.7 cgd /*
1583 1.7 cgd * Make sure that there is no overlap between the bottom and top
1584 1.5 cgd * regions and the middle scrolled block.
1585 1.5 cgd */
1586 1.5 cgd if (bot < curs)
1587 1.5 cgd bot = curs - 1;
1588 1.5 cgd if (top > starts)
1589 1.5 cgd top = starts;
1590 1.5 cgd
1591 1.5 cgd n = startw - starts;
1592 1.5 cgd
1593 1.5 cgd #ifdef DEBUG
1594 1.64 jdc __CTRACE(__CTRACE_REFRESH, "#####################################\n");
1595 1.119 blymn __CTRACE(__CTRACE_REFRESH, "quickch: n = %d\n", n);
1596 1.11 mrg for (i = 0; i < curscr->maxy; i++) {
1597 1.64 jdc __CTRACE(__CTRACE_REFRESH, "C: %d:", i);
1598 1.71 roy __CTRACE(__CTRACE_REFRESH, " 0x%x \n", curscr->alines[i]->hash);
1599 1.11 mrg for (j = 0; j < curscr->maxx; j++)
1600 1.64 jdc __CTRACE(__CTRACE_REFRESH, "%c",
1601 1.71 roy curscr->alines[i]->line[j].ch);
1602 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
1603 1.64 jdc __CTRACE(__CTRACE_REFRESH, " attr:");
1604 1.11 mrg for (j = 0; j < curscr->maxx; j++)
1605 1.64 jdc __CTRACE(__CTRACE_REFRESH, " %x",
1606 1.71 roy curscr->alines[i]->line[j].attr);
1607 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
1608 1.64 jdc __CTRACE(__CTRACE_REFRESH, "W: %d:", i);
1609 1.64 jdc __CTRACE(__CTRACE_REFRESH, " 0x%x \n",
1610 1.71 roy __virtscr->alines[i]->hash);
1611 1.64 jdc __CTRACE(__CTRACE_REFRESH, " 0x%x ",
1612 1.71 roy __virtscr->alines[i]->flags);
1613 1.23 jdc for (j = 0; j < __virtscr->maxx; j++)
1614 1.64 jdc __CTRACE(__CTRACE_REFRESH, "%c",
1615 1.71 roy __virtscr->alines[i]->line[j].ch);
1616 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
1617 1.64 jdc __CTRACE(__CTRACE_REFRESH, " attr:");
1618 1.23 jdc for (j = 0; j < __virtscr->maxx; j++)
1619 1.64 jdc __CTRACE(__CTRACE_REFRESH, " %x",
1620 1.71 roy __virtscr->alines[i]->line[j].attr);
1621 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
1622 1.11 mrg }
1623 1.7 cgd #endif
1624 1.7 cgd
1625 1.65 blymn #ifndef HAVE_WCHAR
1626 1.119 blymn if (buf[0].ch != curscr->bch) {
1627 1.46 christos for (i = 0; i < BLANKSIZE; i++) {
1628 1.119 blymn buf[i].ch = curscr->bch;
1629 1.46 christos buf[i].attr = 0;
1630 1.46 christos }
1631 1.5 cgd }
1632 1.65 blymn #else
1633 1.119 blymn if (buf[0].ch != curscr->bch) {
1634 1.118 blymn for (i = 0; i < BLANKSIZE; i++) { /* XXXX: BLANKSIZE may not be valid if wcols > 1 */
1635 1.119 blymn buf[i].ch = curscr->bch;
1636 1.65 blymn if (_cursesi_copy_nsp(curscr->bnsp, &buf[i]) == ERR)
1637 1.65 blymn return;
1638 1.65 blymn buf[i].attr = 0;
1639 1.118 blymn buf[i].wcols = curscr->wcols;
1640 1.65 blymn }
1641 1.65 blymn }
1642 1.65 blymn #endif /* HAVE_WCHAR */
1643 1.46 christos
1644 1.46 christos if (__virtscr->maxx != last_hash_len) {
1645 1.46 christos blank_hash = 0;
1646 1.46 christos for (i = __virtscr->maxx; i > BLANKSIZE; i -= BLANKSIZE) {
1647 1.61 dsl blank_hash = __hash_more(buf, sizeof(buf), blank_hash);
1648 1.46 christos }
1649 1.46 christos blank_hash = __hash_more((char *)(void *)buf,
1650 1.46 christos i * sizeof(buf[0]), blank_hash);
1651 1.46 christos /* cache result in static data - screen width doesn't change often */
1652 1.46 christos last_hash_len = __virtscr->maxx;
1653 1.46 christos last_hash = blank_hash;
1654 1.46 christos } else
1655 1.46 christos blank_hash = last_hash;
1656 1.5 cgd
1657 1.5 cgd /*
1658 1.5 cgd * Perform the rotation to maintain the consistency of curscr.
1659 1.5 cgd * This is hairy since we are doing an *in place* rotation.
1660 1.5 cgd * Invariants of the loop:
1661 1.5 cgd * - I is the index of the current line.
1662 1.5 cgd * - Target is the index of the target of line i.
1663 1.5 cgd * - Tmp1 points to current line (i).
1664 1.5 cgd * - Tmp2 and points to target line (target);
1665 1.7 cgd * - Cur_period is the index of the end of the current period.
1666 1.5 cgd * (see below).
1667 1.5 cgd *
1668 1.5 cgd * There are 2 major issues here that make this rotation non-trivial:
1669 1.5 cgd * 1. Scrolling in a scrolling region bounded by the top
1670 1.5 cgd * and bottom regions determined (whose size is sc_region).
1671 1.7 cgd * 2. As a result of the use of the mod function, there may be a
1672 1.5 cgd * period introduced, i.e., 2 maps to 4, 4 to 6, n-2 to 0, and
1673 1.5 cgd * 0 to 2, which then causes all odd lines not to be rotated.
1674 1.7 cgd * To remedy this, an index of the end ( = beginning) of the
1675 1.7 cgd * current 'period' is kept, cur_period, and when it is reached,
1676 1.7 cgd * the next period is started from cur_period + 1 which is
1677 1.5 cgd * guaranteed not to have been reached since that would mean that
1678 1.5 cgd * all records would have been reached. (think about it...).
1679 1.7 cgd *
1680 1.5 cgd * Lines in the rotation can have 3 attributes which are marked on the
1681 1.5 cgd * line so that curscr is consistent with the visual screen.
1682 1.5 cgd * 1. Not dirty -- lines inside the scrolled block, top region or
1683 1.5 cgd * bottom region.
1684 1.7 cgd * 2. Blank lines -- lines in the differential of the scrolling
1685 1.7 cgd * region adjacent to top and bot regions
1686 1.5 cgd * depending on scrolling direction.
1687 1.5 cgd * 3. Dirty line -- all other lines are marked dirty.
1688 1.5 cgd */
1689 1.5 cgd sc_region = bot - top + 1;
1690 1.5 cgd i = top;
1691 1.71 roy tmp1 = curscr->alines[top];
1692 1.5 cgd cur_period = top;
1693 1.5 cgd for (j = top; j <= bot; j++) {
1694 1.5 cgd target = (i - top + n + sc_region) % sc_region + top;
1695 1.71 roy tmp2 = curscr->alines[target];
1696 1.71 roy curscr->alines[target] = tmp1;
1697 1.5 cgd /* Mark block as clean and blank out scrolled lines. */
1698 1.71 roy clp = curscr->alines[target];
1699 1.64 jdc __CTRACE(__CTRACE_REFRESH,
1700 1.64 jdc "quickch: n=%d startw=%d curw=%d i = %d target=%d ",
1701 1.11 mrg n, startw, curw, i, target);
1702 1.7 cgd if ((target >= startw && target < curw) || target < top
1703 1.83 roy || target > bot)
1704 1.83 roy {
1705 1.64 jdc __CTRACE(__CTRACE_REFRESH, " notdirty\n");
1706 1.71 roy __virtscr->alines[target]->flags &= ~__ISDIRTY;
1707 1.11 mrg } else
1708 1.11 mrg if ((n > 0 && target >= top && target < top + n) ||
1709 1.83 roy (n < 0 && target <= bot && target > bot + n))
1710 1.83 roy {
1711 1.65 blymn if (clp->hash != blank_hash ||
1712 1.96 uwe !lineeq(clp->line, clp->line + 1,
1713 1.97 uwe (__virtscr->maxx - 1)) ||
1714 1.96 uwe !celleq(clp->line, buf))
1715 1.83 roy {
1716 1.65 blymn for (i = __virtscr->maxx;
1717 1.65 blymn i > BLANKSIZE;
1718 1.46 christos i -= BLANKSIZE) {
1719 1.65 blymn (void) memcpy(clp->line + i -
1720 1.46 christos BLANKSIZE, buf, sizeof(buf));
1721 1.46 christos }
1722 1.115 rin (void)memcpy(clp->line, buf,
1723 1.115 rin i * sizeof(buf[0]));
1724 1.64 jdc __CTRACE(__CTRACE_REFRESH,
1725 1.64 jdc " blanked out: dirty\n");
1726 1.11 mrg clp->hash = blank_hash;
1727 1.35 mycroft __touchline(__virtscr, target, 0, (int) __virtscr->maxx - 1);
1728 1.11 mrg } else {
1729 1.64 jdc __CTRACE(__CTRACE_REFRESH,
1730 1.64 jdc " -- blank line already: dirty\n");
1731 1.35 mycroft __touchline(__virtscr, target, 0, (int) __virtscr->maxx - 1);
1732 1.11 mrg }
1733 1.5 cgd } else {
1734 1.64 jdc __CTRACE(__CTRACE_REFRESH, " -- dirty\n");
1735 1.115 rin __touchline(__virtscr, target, 0,
1736 1.115 rin (int)__virtscr->maxx - 1);
1737 1.5 cgd }
1738 1.5 cgd if (target == cur_period) {
1739 1.5 cgd i = target + 1;
1740 1.71 roy tmp1 = curscr->alines[i];
1741 1.5 cgd cur_period = i;
1742 1.5 cgd } else {
1743 1.5 cgd tmp1 = tmp2;
1744 1.5 cgd i = target;
1745 1.5 cgd }
1746 1.5 cgd }
1747 1.5 cgd #ifdef DEBUG
1748 1.64 jdc __CTRACE(__CTRACE_REFRESH, "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\n");
1749 1.11 mrg for (i = 0; i < curscr->maxy; i++) {
1750 1.64 jdc __CTRACE(__CTRACE_REFRESH, "C: %d:", i);
1751 1.11 mrg for (j = 0; j < curscr->maxx; j++)
1752 1.64 jdc __CTRACE(__CTRACE_REFRESH, "%c",
1753 1.71 roy curscr->alines[i]->line[j].ch);
1754 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
1755 1.64 jdc __CTRACE(__CTRACE_REFRESH, "W: %d:", i);
1756 1.23 jdc for (j = 0; j < __virtscr->maxx; j++)
1757 1.64 jdc __CTRACE(__CTRACE_REFRESH, "%c",
1758 1.71 roy __virtscr->alines[i]->line[j].ch);
1759 1.64 jdc __CTRACE(__CTRACE_REFRESH, "\n");
1760 1.11 mrg }
1761 1.5 cgd #endif
1762 1.23 jdc if (n != 0)
1763 1.23 jdc scrolln(starts, startw, curs, bot, top);
1764 1.5 cgd }
1765 1.5 cgd
1766 1.5 cgd /*
1767 1.7 cgd * scrolln --
1768 1.7 cgd * Scroll n lines, where n is starts - startw.
1769 1.5 cgd */
1770 1.11 mrg static void /* ARGSUSED */
1771 1.83 roy scrolln(int starts, int startw, int curs, int bot, int top)
1772 1.5 cgd {
1773 1.11 mrg int i, oy, ox, n;
1774 1.5 cgd
1775 1.5 cgd oy = curscr->cury;
1776 1.5 cgd ox = curscr->curx;
1777 1.5 cgd n = starts - startw;
1778 1.5 cgd
1779 1.7 cgd /*
1780 1.7 cgd * XXX
1781 1.7 cgd * The initial tests that set __noqch don't let us reach here unless
1782 1.41 jdc * we have either cs + ho + SF/sf/SR/sr, or AL + DL. SF/sf and SR/sr
1783 1.7 cgd * scrolling can only shift the entire scrolling region, not just a
1784 1.7 cgd * part of it, which means that the quickch() routine is going to be
1785 1.41 jdc * sadly disappointed in us if we don't have cs as well.
1786 1.7 cgd *
1787 1.41 jdc * If cs, ho and SF/sf are set, can use the scrolling region. Because
1788 1.41 jdc * the cursor position after cs is undefined, we need ho which gives us
1789 1.7 cgd * the ability to move to somewhere without knowledge of the current
1790 1.7 cgd * location of the cursor. Still call __mvcur() anyway, to update its
1791 1.7 cgd * idea of where the cursor is.
1792 1.7 cgd *
1793 1.7 cgd * When the scrolling region has been set, the cursor has to be at the
1794 1.7 cgd * last line of the region to make the scroll happen.
1795 1.7 cgd *
1796 1.7 cgd * Doing SF/SR or AL/DL appears faster on the screen than either sf/sr
1797 1.41 jdc * or AL/DL, and, some terminals have AL/DL, sf/sr, and cs, but not
1798 1.7 cgd * SF/SR. So, if we're scrolling almost all of the screen, try and use
1799 1.7 cgd * AL/DL, otherwise use the scrolling region. The "almost all" is a
1800 1.7 cgd * shameless hack for vi.
1801 1.7 cgd */
1802 1.5 cgd if (n > 0) {
1803 1.72 roy if (change_scroll_region != NULL && cursor_home != NULL &&
1804 1.72 roy (parm_index != NULL ||
1805 1.72 roy ((parm_insert_line == NULL || parm_delete_line == NULL ||
1806 1.41 jdc top > 3 || bot + 3 < __virtscr->maxy) &&
1807 1.72 roy scroll_forward != NULL)))
1808 1.72 roy {
1809 1.75 roy tputs(tiparm(change_scroll_region, top, bot),
1810 1.72 roy 0, __cputchar);
1811 1.7 cgd __mvcur(oy, ox, 0, 0, 1);
1812 1.72 roy tputs(cursor_home, 0, __cputchar);
1813 1.7 cgd __mvcur(0, 0, bot, 0, 1);
1814 1.72 roy if (parm_index != NULL)
1815 1.75 roy tputs(tiparm(parm_index, n),
1816 1.72 roy 0, __cputchar);
1817 1.7 cgd else
1818 1.7 cgd for (i = 0; i < n; i++)
1819 1.72 roy tputs(scroll_forward, 0, __cputchar);
1820 1.75 roy tputs(tiparm(change_scroll_region,
1821 1.83 roy 0, (int)__virtscr->maxy - 1), 0, __cputchar);
1822 1.7 cgd __mvcur(bot, 0, 0, 0, 1);
1823 1.72 roy tputs(cursor_home, 0, __cputchar);
1824 1.7 cgd __mvcur(0, 0, oy, ox, 1);
1825 1.7 cgd return;
1826 1.7 cgd }
1827 1.7 cgd
1828 1.7 cgd /* Scroll up the block. */
1829 1.72 roy if (parm_index != NULL && top == 0) {
1830 1.7 cgd __mvcur(oy, ox, bot, 0, 1);
1831 1.75 roy tputs(tiparm(parm_index, n), 0, __cputchar);
1832 1.7 cgd } else
1833 1.72 roy if (parm_delete_line != NULL) {
1834 1.11 mrg __mvcur(oy, ox, top, 0, 1);
1835 1.75 roy tputs(tiparm(parm_delete_line, n),
1836 1.72 roy 0, __cputchar);
1837 1.11 mrg } else
1838 1.72 roy if (delete_line != NULL) {
1839 1.11 mrg __mvcur(oy, ox, top, 0, 1);
1840 1.11 mrg for (i = 0; i < n; i++)
1841 1.83 roy tputs(delete_line, 0,
1842 1.83 roy __cputchar);
1843 1.11 mrg } else
1844 1.72 roy if (scroll_forward != NULL && top == 0) {
1845 1.11 mrg __mvcur(oy, ox, bot, 0, 1);
1846 1.11 mrg for (i = 0; i < n; i++)
1847 1.72 roy tputs(scroll_forward, 0,
1848 1.41 jdc __cputchar);
1849 1.11 mrg } else
1850 1.11 mrg abort();
1851 1.5 cgd
1852 1.7 cgd /* Push down the bottom region. */
1853 1.5 cgd __mvcur(top, 0, bot - n + 1, 0, 1);
1854 1.72 roy if (parm_insert_line != NULL)
1855 1.75 roy tputs(tiparm(parm_insert_line, n), 0, __cputchar);
1856 1.83 roy else {
1857 1.83 roy if (insert_line != NULL) {
1858 1.11 mrg for (i = 0; i < n; i++)
1859 1.72 roy tputs(insert_line, 0, __cputchar);
1860 1.83 roy } else
1861 1.11 mrg abort();
1862 1.83 roy }
1863 1.5 cgd __mvcur(bot - n + 1, 0, oy, ox, 1);
1864 1.5 cgd } else {
1865 1.7 cgd /*
1866 1.7 cgd * !!!
1867 1.7 cgd * n < 0
1868 1.7 cgd *
1869 1.41 jdc * If cs, ho and SR/sr are set, can use the scrolling region.
1870 1.7 cgd * See the above comments for details.
1871 1.7 cgd */
1872 1.72 roy if (change_scroll_region != NULL && cursor_home != NULL &&
1873 1.72 roy (parm_rindex != NULL ||
1874 1.72 roy ((parm_insert_line == NULL || parm_delete_line == NULL ||
1875 1.72 roy top > 3 ||
1876 1.72 roy bot + 3 < __virtscr->maxy) && scroll_reverse != NULL)))
1877 1.72 roy {
1878 1.75 roy tputs(tiparm(change_scroll_region, top, bot),
1879 1.72 roy 0, __cputchar);
1880 1.7 cgd __mvcur(oy, ox, 0, 0, 1);
1881 1.72 roy tputs(cursor_home, 0, __cputchar);
1882 1.7 cgd __mvcur(0, 0, top, 0, 1);
1883 1.7 cgd
1884 1.72 roy if (parm_rindex != NULL)
1885 1.75 roy tputs(tiparm(parm_rindex, -n),
1886 1.72 roy 0, __cputchar);
1887 1.7 cgd else
1888 1.7 cgd for (i = n; i < 0; i++)
1889 1.72 roy tputs(scroll_reverse, 0, __cputchar);
1890 1.75 roy tputs(tiparm(change_scroll_region,
1891 1.73 roy 0, (int) __virtscr->maxy - 1), 0, __cputchar);
1892 1.7 cgd __mvcur(top, 0, 0, 0, 1);
1893 1.72 roy tputs(cursor_home, 0, __cputchar);
1894 1.7 cgd __mvcur(0, 0, oy, ox, 1);
1895 1.7 cgd return;
1896 1.7 cgd }
1897 1.7 cgd
1898 1.7 cgd /* Preserve the bottom lines. */
1899 1.7 cgd __mvcur(oy, ox, bot + n + 1, 0, 1);
1900 1.72 roy if (parm_rindex != NULL && bot == __virtscr->maxy)
1901 1.75 roy tputs(tiparm(parm_rindex, -n), 0, __cputchar);
1902 1.83 roy else {
1903 1.72 roy if (parm_delete_line != NULL)
1904 1.75 roy tputs(tiparm(parm_delete_line, -n),
1905 1.72 roy 0, __cputchar);
1906 1.83 roy else {
1907 1.72 roy if (delete_line != NULL)
1908 1.11 mrg for (i = n; i < 0; i++)
1909 1.72 roy tputs(delete_line,
1910 1.72 roy 0, __cputchar);
1911 1.83 roy else {
1912 1.72 roy if (scroll_reverse != NULL &&
1913 1.41 jdc bot == __virtscr->maxy)
1914 1.11 mrg for (i = n; i < 0; i++)
1915 1.72 roy tputs(scroll_reverse, 0,
1916 1.41 jdc __cputchar);
1917 1.11 mrg else
1918 1.11 mrg abort();
1919 1.83 roy }
1920 1.83 roy }
1921 1.83 roy }
1922 1.7 cgd /* Scroll the block down. */
1923 1.5 cgd __mvcur(bot + n + 1, 0, top, 0, 1);
1924 1.72 roy if (parm_insert_line != NULL)
1925 1.75 roy tputs(tiparm(parm_insert_line, -n), 0, __cputchar);
1926 1.5 cgd else
1927 1.72 roy if (insert_line != NULL)
1928 1.11 mrg for (i = n; i < 0; i++)
1929 1.72 roy tputs(insert_line, 0, __cputchar);
1930 1.11 mrg else
1931 1.11 mrg abort();
1932 1.5 cgd __mvcur(top, 0, oy, ox, 1);
1933 1.19 jdc }
1934 1.19 jdc }
1935 1.19 jdc
1936 1.19 jdc /*
1937 1.23 jdc * __unsetattr --
1938 1.19 jdc * Unset attributes on curscr. Leave standout, attribute and colour
1939 1.41 jdc * modes if necessary (!ms). Always leave altcharset (xterm at least
1940 1.19 jdc * ignores a cursor move if we don't).
1941 1.19 jdc */
1942 1.23 jdc void /* ARGSUSED */
1943 1.23 jdc __unsetattr(int checkms)
1944 1.19 jdc {
1945 1.19 jdc int isms;
1946 1.19 jdc
1947 1.83 roy if (checkms) {
1948 1.83 roy if (!move_standout_mode)
1949 1.19 jdc isms = 1;
1950 1.83 roy else
1951 1.19 jdc isms = 0;
1952 1.83 roy } else
1953 1.19 jdc isms = 1;
1954 1.64 jdc __CTRACE(__CTRACE_REFRESH,
1955 1.64 jdc "__unsetattr: checkms = %d, ms = %s, wattr = %08x\n",
1956 1.72 roy checkms, move_standout_mode ? "TRUE" : "FALSE", curscr->wattr);
1957 1.65 blymn
1958 1.20 jdc /*
1959 1.65 blymn * Don't leave the screen in standout mode (check against ms). Check
1960 1.27 mycroft * to see if we also turn off underscore, attributes and colour.
1961 1.20 jdc */
1962 1.19 jdc if (curscr->wattr & __STANDOUT && isms) {
1963 1.72 roy tputs(exit_standout_mode, 0, __cputchar);
1964 1.41 jdc curscr->wattr &= __mask_se;
1965 1.19 jdc }
1966 1.20 jdc /*
1967 1.41 jdc * Don't leave the screen in underscore mode (check against ms).
1968 1.26 jdc * Check to see if we also turn off attributes. Assume that we
1969 1.26 jdc * also turn off colour.
1970 1.20 jdc */
1971 1.19 jdc if (curscr->wattr & __UNDERSCORE && isms) {
1972 1.72 roy tputs(exit_underline_mode, 0, __cputchar);
1973 1.41 jdc curscr->wattr &= __mask_ue;
1974 1.19 jdc }
1975 1.20 jdc /*
1976 1.41 jdc * Don't leave the screen with attributes set (check against ms).
1977 1.26 jdc * Assume that also turn off colour.
1978 1.20 jdc */
1979 1.20 jdc if (curscr->wattr & __TERMATTR && isms) {
1980 1.72 roy tputs(exit_attribute_mode, 0, __cputchar);
1981 1.41 jdc curscr->wattr &= __mask_me;
1982 1.19 jdc }
1983 1.41 jdc /* Don't leave the screen with altcharset set (don't check ms). */
1984 1.19 jdc if (curscr->wattr & __ALTCHARSET) {
1985 1.72 roy tputs(exit_alt_charset_mode, 0, __cputchar);
1986 1.19 jdc curscr->wattr &= ~__ALTCHARSET;
1987 1.19 jdc }
1988 1.41 jdc /* Don't leave the screen with colour set (check against ms). */
1989 1.47 jdc if (__using_color && isms)
1990 1.47 jdc __unset_color(curscr);
1991 1.1 cgd }
1992 1.65 blymn
1993 1.117 uwe /* compare two cells on screen, must have the same foreground/background,
1994 1.119 blymn * and for wide characters the same sequence of non-spacing characters
1995 1.119 blymn */
1996 1.95 uwe static int
1997 1.95 uwe celleq(__LDATA *x, __LDATA *y)
1998 1.65 blymn {
1999 1.119 blymn #ifdef HAVE_WCHAR
2000 1.65 blymn nschar_t *xnp = x->nsp, *ynp = y->nsp;
2001 1.119 blymn #endif /* HAVE_WCHAR */
2002 1.93 uwe int ret = ( x->ch == y->ch ) && ( x->attr == y->attr );
2003 1.65 blymn
2004 1.119 blymn #ifdef HAVE_WCHAR
2005 1.83 roy if (!ret)
2006 1.65 blymn return 0;
2007 1.119 blymn
2008 1.83 roy if (!xnp && !ynp)
2009 1.65 blymn return 1;
2010 1.119 blymn
2011 1.83 roy if ((xnp && !ynp) || (!xnp && ynp))
2012 1.65 blymn return 0;
2013 1.65 blymn
2014 1.83 roy while (xnp && ynp) {
2015 1.83 roy if (xnp->ch != ynp->ch)
2016 1.65 blymn return 0;
2017 1.65 blymn xnp = xnp->next;
2018 1.65 blymn ynp = ynp->next;
2019 1.65 blymn }
2020 1.119 blymn
2021 1.83 roy return !xnp && !ynp;
2022 1.119 blymn #else
2023 1.119 blymn return ret;
2024 1.119 blymn #endif /* HAVE_WCHAR */
2025 1.65 blymn }
2026 1.65 blymn
2027 1.65 blymn /* compare two line segments */
2028 1.95 uwe static int
2029 1.95 uwe lineeq(__LDATA *xl, __LDATA *yl, size_t len)
2030 1.65 blymn {
2031 1.65 blymn int i = 0;
2032 1.65 blymn __LDATA *xp = xl, *yp = yl;
2033 1.65 blymn
2034 1.83 roy for (i = 0; i < len; i++, xp++, yp++) {
2035 1.95 uwe if (!celleq(xp, yp))
2036 1.65 blymn return 0;
2037 1.65 blymn }
2038 1.65 blymn return 1;
2039 1.65 blymn }
2040 1.65 blymn
2041 1.119 blymn #ifdef HAVE_WCHAR
2042 1.65 blymn /*
2043 1.65 blymn * Output the non-spacing characters associated with the given character
2044 1.65 blymn * cell to the screen.
2045 1.65 blymn */
2046 1.65 blymn
2047 1.65 blymn void
2048 1.65 blymn __cursesi_putnsp(nschar_t *nsp, const int wy, const int wx)
2049 1.65 blymn {
2050 1.65 blymn nschar_t *p;
2051 1.65 blymn
2052 1.66 blymn /* this shuts up gcc warnings about wx and wy not being used */
2053 1.66 blymn if (wx > wy) {
2054 1.66 blymn }
2055 1.66 blymn
2056 1.65 blymn p = nsp;
2057 1.65 blymn while (p != NULL) {
2058 1.83 roy __cputwchar((int)p->ch);
2059 1.65 blymn __CTRACE(__CTRACE_REFRESH,
2060 1.115 rin "_cursesi_putnsp: (%d,%d) non-spacing putwchar(0x%x)\n",
2061 1.115 rin wy, wx - 1, p->ch);
2062 1.65 blymn p = p->next;
2063 1.65 blymn }
2064 1.65 blymn }
2065 1.65 blymn
2066 1.65 blymn #endif /* HAVE_WCHAR */
2067