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