dispnew.c 57.5 KB
Newer Older
Jim Blandy's avatar
Jim Blandy committed
1
/* Updating of data structures for redisplay.
Jim Blandy's avatar
Jim Blandy committed
2
   Copyright (C) 1985, 1986, 1987, 1988, 1990, 1992 Free Software Foundation, Inc.
Jim Blandy's avatar
Jim Blandy committed
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */


#include <signal.h>

#include "config.h"
#include <stdio.h>
#include <ctype.h>

#include "termchar.h"
#include "termopts.h"
#include "cm.h"
#include "lisp.h"
#include "dispextern.h"
#include "buffer.h"
Jim Blandy's avatar
Jim Blandy committed
33
#include "frame.h"
Jim Blandy's avatar
Jim Blandy committed
34 35 36 37 38
#include "window.h"
#include "commands.h"
#include "disptab.h"
#include "indent.h"

Jim Blandy's avatar
Jim Blandy committed
39 40 41
#include "systerm.h"
#include "systime.h"

Jim Blandy's avatar
Jim Blandy committed
42 43 44 45 46 47 48 49 50 51 52 53 54 55
#ifdef HAVE_X_WINDOWS
#include "xterm.h"
#endif	/* HAVE_X_WINDOWS */

#define max(a, b) ((a) > (b) ? (a) : (b))
#define min(a, b) ((a) < (b) ? (a) : (b))

#ifndef PENDING_OUTPUT_COUNT
/* Get number of chars of output now in the buffer of a stdio stream.
   This ought to be built in in stdio, but it isn't.
   Some s- files override this because their stdio internals differ.  */
#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_ptr - (FILE)->_base)
#endif

Jim Blandy's avatar
Jim Blandy committed
56
/* Nonzero upon entry to redisplay means do not assume anything about
Jim Blandy's avatar
Jim Blandy committed
57
   current contents of actual terminal frame; clear and redraw it.  */
Jim Blandy's avatar
Jim Blandy committed
58

Jim Blandy's avatar
Jim Blandy committed
59
int frame_garbaged;
Jim Blandy's avatar
Jim Blandy committed
60 61 62 63 64 65 66 67 68 69

/* Nonzero means last display completed.  Zero means it was preempted. */

int display_completed;

/* Lisp variable visible-bell; enables use of screen-flash
   instead of audible bell.  */

int visible_bell;

Jim Blandy's avatar
Jim Blandy committed
70
/* Invert the color of the whole frame, at a low level.  */
Jim Blandy's avatar
Jim Blandy committed
71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98

int inverse_video;

/* Line speed of the terminal.  */

int baud_rate;

/* nil or a symbol naming the window system under which emacs is
   running ('x is the only current possibility).  */

Lisp_Object Vwindow_system;

/* Version number of X windows: 10, 11 or nil.  */
Lisp_Object Vwindow_system_version;

/* Vector of glyph definitions.  Indexed by glyph number,
   the contents are a string which is how to output the glyph.

   If Vglyph_table is nil, a glyph is output by using its low 8 bits
   as a character code.  */

Lisp_Object Vglyph_table;

/* Display table to use for vectors that don't specify their own.  */

Lisp_Object Vstandard_display_table;

/* Nonzero means reading single-character input with prompt
Jim Blandy's avatar
Jim Blandy committed
99 100 101
   so put cursor on minibuffer after the prompt.
   positive means at end of text in echo area;
   negative means at beginning of line.  */
Jim Blandy's avatar
Jim Blandy committed
102 103
int cursor_in_echo_area;

Jim Blandy's avatar
Jim Blandy committed
104 105
/* The currently selected frame.
   In a single-frame version, this variable always remains 0.  */
Jim Blandy's avatar
Jim Blandy committed
106

Jim Blandy's avatar
Jim Blandy committed
107
FRAME_PTR selected_frame;
Jim Blandy's avatar
Jim Blandy committed
108

Jim Blandy's avatar
Jim Blandy committed
109 110 111 112
/* A frame which is not just a minibuffer, or 0 if there are no such
   frames.  This is usually the most recent such frame that was
   selected.  In a single-frame version, this variable always remains 0.  */
FRAME_PTR last_nonminibuf_frame;
Jim Blandy's avatar
Jim Blandy committed
113

Jim Blandy's avatar
Jim Blandy committed
114
/* In a single-frame version, the information that would otherwise
115 116 117 118 119 120
   exist inside frame objects lives in the following structure instead.

   NOTE: the_only_frame is not checked for garbage collection; don't
   store collectable objects in any of its fields!

   You're not/The only frame in town/...  */
Jim Blandy's avatar
Jim Blandy committed
121

Jim Blandy's avatar
Jim Blandy committed
122 123
#ifndef MULTI_FRAME
struct frame the_only_frame;
Jim Blandy's avatar
Jim Blandy committed
124
#endif
Jim Blandy's avatar
Jim Blandy committed
125 126

/* This is a vector, made larger whenever it isn't large enough,
Jim Blandy's avatar
Jim Blandy committed
127 128 129
   which is used inside `update_frame' to hold the old contents
   of the FRAME_PHYS_LINES of the frame being updated.  */
struct frame_glyphs **ophys_lines;
Jim Blandy's avatar
Jim Blandy committed
130 131 132 133 134 135 136 137 138 139 140
/* Length of vector currently allocated.  */
int ophys_lines_length;

FILE *termscript;	/* Stdio stream being used for copy of all output.  */

struct cm Wcm;		/* Structure for info on cursor positioning */

extern short ospeed;	/* Output speed (from sg_ospeed) */

int delayed_size_change;  /* 1 means SIGWINCH happened when not safe.  */

Jim Blandy's avatar
Jim Blandy committed
141
#ifdef MULTI_FRAME
Jim Blandy's avatar
Jim Blandy committed
142

Jim Blandy's avatar
Jim Blandy committed
143 144 145 146
DEFUN ("redraw-frame", Fredraw_frame, Sredraw_frame, 1, 1, 0,
  "Clear frame FRAME and output again what is supposed to appear on it.")
  (frame)
     Lisp_Object frame;
Jim Blandy's avatar
Jim Blandy committed
147
{
Jim Blandy's avatar
Jim Blandy committed
148
  FRAME_PTR f;
Jim Blandy's avatar
Jim Blandy committed
149

Jim Blandy's avatar
Jim Blandy committed
150 151 152
  CHECK_LIVE_FRAME (frame, 0);
  f = XFRAME (frame);
  update_begin (f);
Jim Blandy's avatar
Jim Blandy committed
153
  /*  set_terminal_modes (); */
Jim Blandy's avatar
Jim Blandy committed
154
  clear_frame ();
155
  clear_frame_records (f);
Jim Blandy's avatar
Jim Blandy committed
156
  update_end (f);
Jim Blandy's avatar
Jim Blandy committed
157 158 159 160
  fflush (stdout);
  windows_or_buffers_changed++;
  /* Mark all windows as INaccurate,
     so that every window will have its redisplay done.  */
Jim Blandy's avatar
Jim Blandy committed
161 162
  mark_window_display_accurate (FRAME_ROOT_WINDOW (f), 0);
  f->garbaged = 0;
Jim Blandy's avatar
Jim Blandy committed
163 164 165 166
  return Qnil;
}

DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "",
Jim Blandy's avatar
Jim Blandy committed
167
  "Redraw all frames marked as having their images garbled.")
Jim Blandy's avatar
Jim Blandy committed
168 169
  ()
{
Jim Blandy's avatar
Jim Blandy committed
170
  Lisp_Object frame, tail;
Jim Blandy's avatar
Jim Blandy committed
171

Jim Blandy's avatar
Jim Blandy committed
172
  for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr)
Jim Blandy's avatar
Jim Blandy committed
173
    {
Jim Blandy's avatar
Jim Blandy committed
174 175 176
      frame = XCONS (tail)->car;
      if (XFRAME (frame)->garbaged && XFRAME (frame)->visible)
	Fredraw_frame (frame);
Jim Blandy's avatar
Jim Blandy committed
177 178 179 180
    }
  return Qnil;
}

Jim Blandy's avatar
Jim Blandy committed
181 182
redraw_frame (f)
     FRAME_PTR f;
Jim Blandy's avatar
Jim Blandy committed
183
{
Jim Blandy's avatar
Jim Blandy committed
184 185 186
  Lisp_Object frame;
  XSET (frame, Lisp_Frame, f);
  Fredraw_frame (frame);
Jim Blandy's avatar
Jim Blandy committed
187 188
}

Jim Blandy's avatar
Jim Blandy committed
189
#else /* not MULTI_FRAME */
Jim Blandy's avatar
Jim Blandy committed
190 191 192 193 194 195 196

DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, 0,
  "Clear screen and output again what is supposed to appear on it.")
  ()
{
  update_begin (0);
  set_terminal_modes ();
Jim Blandy's avatar
Jim Blandy committed
197
  clear_frame ();
Jim Blandy's avatar
Jim Blandy committed
198 199
  update_end (0);
  fflush (stdout);
Jim Blandy's avatar
Jim Blandy committed
200
  clear_frame_records (0);
Jim Blandy's avatar
Jim Blandy committed
201 202 203
  windows_or_buffers_changed++;
  /* Mark all windows as INaccurate,
     so that every window will have its redisplay done.  */
204
  mark_window_display_accurate (FRAME_ROOT_WINDOW (0));
Jim Blandy's avatar
Jim Blandy committed
205 206 207
  return Qnil;
}

Jim Blandy's avatar
Jim Blandy committed
208
#endif /* not MULTI_FRAME */
Jim Blandy's avatar
Jim Blandy committed
209

Jim Blandy's avatar
Jim Blandy committed
210 211 212
static struct frame_glyphs *
make_frame_glyphs (frame, empty)
     register FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
213 214 215
     int empty;
{
  register int i;
Jim Blandy's avatar
Jim Blandy committed
216 217 218 219
  register width = FRAME_WIDTH (frame);
  register height = FRAME_HEIGHT (frame);
  register struct frame_glyphs *new =
    (struct frame_glyphs *) xmalloc (sizeof (struct frame_glyphs));
Jim Blandy's avatar
Jim Blandy committed
220

Jim Blandy's avatar
Jim Blandy committed
221
  SET_GLYPHS_FRAME (new, frame);
Jim Blandy's avatar
Jim Blandy committed
222 223 224 225 226 227 228 229 230 231
  new->height = height;
  new->width = width;
  new->used = (int *) xmalloc (height * sizeof (int));
  new->glyphs = (GLYPH **) xmalloc (height * sizeof (GLYPH *));
  new->highlight = (char *) xmalloc (height * sizeof (char));
  new->enable = (char *) xmalloc (height * sizeof (char));
  bzero (new->enable, height * sizeof (char));
  new->bufp = (int *) xmalloc (height * sizeof (int));

#ifdef HAVE_X_WINDOWS
232
  if (FRAME_X_P (frame))
Jim Blandy's avatar
Jim Blandy committed
233 234 235 236 237 238 239 240 241 242 243 244 245 246
    {
      new->nruns = (int *) xmalloc (height * sizeof (int));
      new->face_list
	= (struct run **) xmalloc (height * sizeof (struct run *));
      new->top_left_x = (short *) xmalloc (height * sizeof (short));
      new->top_left_y = (short *) xmalloc (height * sizeof (short));
      new->pix_width = (short *) xmalloc (height * sizeof (short));
      new->pix_height = (short *) xmalloc (height * sizeof (short));
    }
#endif

  if (empty)
    {
      /* Make the buffer used by decode_mode_spec.  This buffer is also
Jim Blandy's avatar
Jim Blandy committed
247
         used as temporary storage when updating the frame.  See scroll.c. */
Jim Blandy's avatar
Jim Blandy committed
248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266
      unsigned int total_glyphs = (width + 2) * sizeof (GLYPH);

      new->total_contents = (GLYPH *) xmalloc (total_glyphs);
      bzero (new->total_contents, total_glyphs);
    }
  else
    {
      unsigned int total_glyphs = height * (width + 2) * sizeof (GLYPH);

      new->total_contents = (GLYPH *) xmalloc (total_glyphs);
      bzero (new->total_contents, total_glyphs);
      for (i = 0; i < height; i++)
	new->glyphs[i] = new->total_contents + i * (width + 2) + 1;
    }

  return new;
}

static void
Jim Blandy's avatar
Jim Blandy committed
267 268 269
free_frame_glyphs (frame, glyphs)
     FRAME_PTR frame;
     struct frame_glyphs *glyphs;
Jim Blandy's avatar
Jim Blandy committed
270 271 272 273 274 275 276 277 278 279 280
{
  if (glyphs->total_contents)
    free (glyphs->total_contents);

  free (glyphs->used);
  free (glyphs->glyphs);
  free (glyphs->highlight);
  free (glyphs->enable);
  free (glyphs->bufp);

#ifdef HAVE_X_WINDOWS
281
  if (FRAME_X_P (frame))
Jim Blandy's avatar
Jim Blandy committed
282 283 284 285 286 287 288 289 290 291 292 293 294 295
    {
      free (glyphs->nruns);
      free (glyphs->face_list);
      free (glyphs->top_left_x);
      free (glyphs->top_left_y);
      free (glyphs->pix_width);
      free (glyphs->pix_height);
    }
#endif

  free (glyphs);
}

static void
Jim Blandy's avatar
Jim Blandy committed
296 297
remake_frame_glyphs (frame)
     FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
298
{
Jim Blandy's avatar
Jim Blandy committed
299 300 301 302 303 304 305 306 307 308 309
  if (FRAME_CURRENT_GLYPHS (frame))
    free_frame_glyphs (frame, FRAME_CURRENT_GLYPHS (frame));
  if (FRAME_DESIRED_GLYPHS (frame))
    free_frame_glyphs (frame, FRAME_DESIRED_GLYPHS (frame));
  if (FRAME_TEMP_GLYPHS (frame))
    free_frame_glyphs (frame, FRAME_TEMP_GLYPHS (frame));

  if (FRAME_MESSAGE_BUF (frame))
    FRAME_MESSAGE_BUF (frame)
      = (char *) xrealloc (FRAME_MESSAGE_BUF (frame),
			   FRAME_WIDTH (frame) + 1);
Jim Blandy's avatar
Jim Blandy committed
310
  else
Jim Blandy's avatar
Jim Blandy committed
311 312
    FRAME_MESSAGE_BUF (frame)
      = (char *) xmalloc (FRAME_WIDTH (frame) + 1);
Jim Blandy's avatar
Jim Blandy committed
313

Jim Blandy's avatar
Jim Blandy committed
314 315 316 317
  FRAME_CURRENT_GLYPHS (frame) = make_frame_glyphs (frame, 0);
  FRAME_DESIRED_GLYPHS (frame) = make_frame_glyphs (frame, 0);
  FRAME_TEMP_GLYPHS (frame) = make_frame_glyphs (frame, 1);
  SET_FRAME_GARBAGED (frame);
Jim Blandy's avatar
Jim Blandy committed
318 319
}

Jim Blandy's avatar
Jim Blandy committed
320
/* Return the hash code of contents of line VPOS in frame-matrix M.  */
Jim Blandy's avatar
Jim Blandy committed
321 322 323

static int
line_hash_code (m, vpos)
Jim Blandy's avatar
Jim Blandy committed
324
     register struct frame_glyphs *m;
Jim Blandy's avatar
Jim Blandy committed
325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369
     int vpos;
{
  register GLYPH *body, *end;
  register int h = 0;

  if (!m->enable[vpos])
    return 0;

  /* Give all lighlighted lines the same hash code
     so as to encourage scrolling to leave them in place.  */
  if (m->highlight[vpos])
    return -1;

  body = m->glyphs[vpos];

  if (must_write_spaces)
    while (1)
      {
	GLYPH g = *body++;

	if (g == 0)
	  break;
	h = (((h << 4) + (h >> 24)) & 0x0fffffff) + g - SPACEGLYPH;
      }
  else
    while (1)
      {
	GLYPH g = *body++;

	if (g == 0)
	  break;
	h = (((h << 4) + (h >> 24)) & 0x0fffffff) + g;
      }

  if (h)
    return h;
  return 1;
}

/* Return number of characters in line in M at vpos VPOS,
   except don't count leading and trailing spaces
   unless the terminal requires those to be explicitly output.  */

static unsigned int
line_draw_cost (m, vpos)
Jim Blandy's avatar
Jim Blandy committed
370
     struct frame_glyphs *m;
Jim Blandy's avatar
Jim Blandy committed
371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412
     int vpos;
{
  register GLYPH *beg = m->glyphs[vpos];
  register GLYPH *end = m->glyphs[vpos] + m->used[vpos];
  register int i;
  register int tlen = GLYPH_TABLE_LENGTH;
  register Lisp_Object *tbase = GLYPH_TABLE_BASE;

  /* Ignore trailing and leading spaces if we can.  */
  if (!must_write_spaces)
    {
      while ((end != beg) && (*end == SPACEGLYPH))
	--end;
      if (end == beg)
	return (0); /* All blank line. */

      while (*beg == SPACEGLYPH)
	++beg;
    }

  /* If we don't have a glyph-table, each glyph is one character,
     so return the number of glyphs.  */
  if (tbase == 0)
    return end - beg;

  /* Otherwise, scan the glyphs and accumulate their total size in I.  */
  i = 0;
  while ((beg <= end) && *beg)
    {
      register GLYPH g = *beg++;

      if (GLYPH_SIMPLE_P (tbase, tlen, g))
	i += 1;
      else
	i += GLYPH_LENGTH (tbase, g);
    }
  return i;
}

/* The functions on this page are the interface from xdisp.c to redisplay.

   The only other interface into redisplay is through setting
Jim Blandy's avatar
Jim Blandy committed
413 414
   FRAME_CURSOR_X (frame) and FRAME_CURSOR_Y (frame)
   and SET_FRAME_GARBAGED (frame).  */
Jim Blandy's avatar
Jim Blandy committed
415 416 417

/* cancel_line eliminates any request to display a line at position `vpos' */

Jim Blandy's avatar
Jim Blandy committed
418
cancel_line (vpos, frame)
Jim Blandy's avatar
Jim Blandy committed
419
     int vpos;
Jim Blandy's avatar
Jim Blandy committed
420
     register FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
421
{
Jim Blandy's avatar
Jim Blandy committed
422
  FRAME_DESIRED_GLYPHS (frame)->enable[vpos] = 0;
Jim Blandy's avatar
Jim Blandy committed
423 424
}

Jim Blandy's avatar
Jim Blandy committed
425 426
clear_frame_records (frame)
     register FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
427
{
Jim Blandy's avatar
Jim Blandy committed
428
  bzero (FRAME_CURRENT_GLYPHS (frame)->enable, FRAME_HEIGHT (frame));
Jim Blandy's avatar
Jim Blandy committed
429 430 431 432 433
}

/* Prepare to display on line VPOS starting at HPOS within it.  */

void
Jim Blandy's avatar
Jim Blandy committed
434 435
get_display_line (frame, vpos, hpos)
     register FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
436 437 438
     int vpos;
     register int hpos;
{
Jim Blandy's avatar
Jim Blandy committed
439 440
  register struct frame_glyphs *glyphs;
  register struct frame_glyphs *desired_glyphs = FRAME_DESIRED_GLYPHS (frame);
Jim Blandy's avatar
Jim Blandy committed
441 442
  register GLYPH *p;

Jim Blandy's avatar
Jim Blandy committed
443
  if (vpos < 0 || (! FRAME_VISIBLE_P (frame)))
Jim Blandy's avatar
Jim Blandy committed
444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500
    abort ();

  if ((desired_glyphs->enable[vpos]) && desired_glyphs->used[vpos] > hpos)
    abort ();

  if (! desired_glyphs->enable[vpos])
    {
      desired_glyphs->used[vpos] = 0;
      desired_glyphs->highlight[vpos] = 0;
      desired_glyphs->enable[vpos] = 1;
    }

  if (hpos > desired_glyphs->used[vpos])
    {
      GLYPH *g = desired_glyphs->glyphs[vpos] + desired_glyphs->used[vpos];
      GLYPH *end = desired_glyphs->glyphs[vpos] + hpos;

      desired_glyphs->used[vpos] = hpos;
      while (g != end)
	*g++ = SPACEGLYPH;
    }
}

/* Like bcopy except never gets confused by overlap.  */

void
safe_bcopy (from, to, size)
     char *from, *to;
     int size;
{
  register char *endf;
  register char *endt;

  if (size == 0)
    return;

  /* If destination is higher in memory, and overlaps source zone,
     copy from the end.  */
  if (from < to && from + size > to)
    {
      endf = from + size;
      endt = to + size;

      /* If TO - FROM is large, then we should break the copy into
	 nonoverlapping chunks of TO - FROM bytes each.  However, if
	 TO - FROM is small, then the bcopy function call overhead
	 makes this not worth it.  The crossover point could be about
	 anywhere.  Since I don't think the obvious copy loop is ever
	 too bad, I'm trying to err in its favor.  */
      if (to - from < 64)
	{
	  do
	    *--endt = *--endf;
	  while (endf != from);
	}
      else
	{
Jim Blandy's avatar
Jim Blandy committed
501 502
	  /* Since TO - FROM >= 64, the overlap is less than SIZE,
	     so we can always safely do this loop once.  */
Jim Blandy's avatar
Jim Blandy committed
503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550
	  while (endt > to)
	    {
	      endt -= (to - from);
	      endf -= (to - from);

	      bcopy (endf, endt, to - from);
	    }
	  
	  /* If TO - FROM wasn't a multiple of SIZE, there will be a
	     little left over.  The amount left over is
	     (endt + (to - from)) - to, which is endt - from.  */
	  bcopy (from, to, endt - from);
	}
    }
  else
    bcopy (from, to, size);
}     

#if 0
void
safe_bcopy (from, to, size)
     char *from, *to;
     int size;
{
  register char *endf;
  register char *endt;

  if (size == 0)
    return;

  /* If destination is higher in memory, and overlaps source zone,
     copy from the end. */
  if (from < to && from + size > to)
    {
      endf = from + size;
      endt = to + size;

      do
	*--endt = *--endf;
      while (endf != from);

      return;
    }

  bcopy (from, to, size);
}
#endif

Jim Blandy's avatar
Jim Blandy committed
551
/* Rotate a vector of SIZE bytes right, by DISTANCE bytes.
Jim Blandy's avatar
Jim Blandy committed
552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574
   DISTANCE may be negative.  */

static void
rotate_vector (vector, size, distance)
     char *vector;
     int size;
     int distance;
{
  char *temp = (char *) alloca (size);

  if (distance < 0)
    distance += size;

  bcopy (vector, temp + distance, size - distance);
  bcopy (vector + size - distance, temp, distance);
  bcopy (temp, vector, size);
}

/* Scroll lines from vpos FROM up to but not including vpos END
   down by AMOUNT lines (AMOUNT may be negative).
   Returns nonzero if done, zero if terminal cannot scroll them.  */

int
Jim Blandy's avatar
Jim Blandy committed
575 576
scroll_frame_lines (frame, from, end, amount)
     register FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
577 578 579
     int from, end, amount;
{
  register int i;
Jim Blandy's avatar
Jim Blandy committed
580 581
  register struct frame_glyphs *current_frame
    = FRAME_CURRENT_GLYPHS (frame);
Jim Blandy's avatar
Jim Blandy committed
582 583 584 585 586 587 588 589 590

  if (!line_ins_del_ok)
    return 0;

  if (amount == 0)
    return 1;

  if (amount > 0)
    {
Jim Blandy's avatar
Jim Blandy committed
591
      update_begin (frame);
Jim Blandy's avatar
Jim Blandy committed
592 593 594 595 596 597
      set_terminal_window (end + amount);
      if (!scroll_region_ok)
	ins_del_lines (end, -amount);
      ins_del_lines (from, amount);
      set_terminal_window (0);

Jim Blandy's avatar
Jim Blandy committed
598
      rotate_vector (current_frame->glyphs + from,
Jim Blandy's avatar
Jim Blandy committed
599 600 601
		     sizeof (GLYPH *) * (end + amount - from),
		     amount * sizeof (GLYPH *));

Jim Blandy's avatar
Jim Blandy committed
602 603 604
      safe_bcopy (current_frame->used + from,
		  current_frame->used + from + amount,
		  (end - from) * sizeof current_frame->used[0]);
Jim Blandy's avatar
Jim Blandy committed
605

Jim Blandy's avatar
Jim Blandy committed
606 607 608
      safe_bcopy (current_frame->highlight + from,
		  current_frame->highlight + from + amount,
		  (end - from) * sizeof current_frame->highlight[0]);
Jim Blandy's avatar
Jim Blandy committed
609

Jim Blandy's avatar
Jim Blandy committed
610 611 612
      safe_bcopy (current_frame->enable + from,
		  current_frame->enable + from + amount,
		  (end - from) * sizeof current_frame->enable[0]);
Jim Blandy's avatar
Jim Blandy committed
613 614 615

      /* Mark the lines made empty by scrolling as enabled, empty and
	 normal video.  */
Jim Blandy's avatar
Jim Blandy committed
616 617 618 619
      bzero (current_frame->used + from,
	     amount * sizeof current_frame->used[0]);
      bzero (current_frame->highlight + from,
	     amount * sizeof current_frame->highlight[0]);
Jim Blandy's avatar
Jim Blandy committed
620 621
      for (i = from; i < from + amount; i++)
	{
Jim Blandy's avatar
Jim Blandy committed
622 623
	  current_frame->glyphs[i][0] = '\0';
	  current_frame->enable[i] = 1;
Jim Blandy's avatar
Jim Blandy committed
624 625
	}

Jim Blandy's avatar
Jim Blandy committed
626 627 628
      safe_bcopy (current_frame->bufp + from,
		  current_frame->bufp + from + amount,
		  (end - from) * sizeof current_frame->bufp[0]);
Jim Blandy's avatar
Jim Blandy committed
629 630

#ifdef HAVE_X_WINDOWS
631
      if (FRAME_X_P (frame))
Jim Blandy's avatar
Jim Blandy committed
632
	{
Jim Blandy's avatar
Jim Blandy committed
633 634 635
	  safe_bcopy (current_frame->nruns + from,
		      current_frame->nruns + from + amount,
		      (end - from) * sizeof current_frame->nruns[0]);
Jim Blandy's avatar
Jim Blandy committed
636

Jim Blandy's avatar
Jim Blandy committed
637 638 639
	  safe_bcopy (current_frame->face_list + from,
		      current_frame->face_list + from + amount,
		      (end - from) * sizeof current_frame->face_list[0]);
Jim Blandy's avatar
Jim Blandy committed
640

Jim Blandy's avatar
Jim Blandy committed
641 642 643
	  safe_bcopy (current_frame->top_left_x + from,
		      current_frame->top_left_x + from + amount,
		      (end - from) * sizeof current_frame->top_left_x[0]);
Jim Blandy's avatar
Jim Blandy committed
644

Jim Blandy's avatar
Jim Blandy committed
645 646 647
	  safe_bcopy (current_frame->top_left_y + from,
		      current_frame->top_left_y + from + amount,
		      (end - from) * sizeof current_frame->top_left_y[0]);
Jim Blandy's avatar
Jim Blandy committed
648

Jim Blandy's avatar
Jim Blandy committed
649 650 651
	  safe_bcopy (current_frame->pix_width + from,
		      current_frame->pix_width + from + amount,
		      (end - from) * sizeof current_frame->pix_width[0]);
Jim Blandy's avatar
Jim Blandy committed
652

Jim Blandy's avatar
Jim Blandy committed
653 654 655
	  safe_bcopy (current_frame->pix_height + from,
		      current_frame->pix_height + from + amount,
		      (end - from) * sizeof current_frame->pix_height[0]);
Jim Blandy's avatar
Jim Blandy committed
656 657 658
	}
#endif				/* HAVE_X_WINDOWS */

Jim Blandy's avatar
Jim Blandy committed
659
      update_end (frame);
Jim Blandy's avatar
Jim Blandy committed
660 661 662
    }
  if (amount < 0)
    {
Jim Blandy's avatar
Jim Blandy committed
663
      update_begin (frame);
Jim Blandy's avatar
Jim Blandy committed
664 665 666 667 668 669
      set_terminal_window (end);
      ins_del_lines (from + amount, amount);
      if (!scroll_region_ok)
	ins_del_lines (end + amount, -amount);
      set_terminal_window (0);

Jim Blandy's avatar
Jim Blandy committed
670
      rotate_vector (current_frame->glyphs + from + amount,
Jim Blandy's avatar
Jim Blandy committed
671 672 673
		     sizeof (GLYPH *) * (end - from - amount),
		     amount * sizeof (GLYPH *));

Jim Blandy's avatar
Jim Blandy committed
674 675 676
      safe_bcopy (current_frame->used + from,
		  current_frame->used + from + amount,
		  (end - from) * sizeof current_frame->used[0]);
Jim Blandy's avatar
Jim Blandy committed
677

Jim Blandy's avatar
Jim Blandy committed
678 679 680
      safe_bcopy (current_frame->highlight + from,
		  current_frame->highlight + from + amount,
		  (end - from) * sizeof current_frame->highlight[0]);
Jim Blandy's avatar
Jim Blandy committed
681

Jim Blandy's avatar
Jim Blandy committed
682 683 684
      safe_bcopy (current_frame->enable + from,
		  current_frame->enable + from + amount,
		  (end - from) * sizeof current_frame->enable[0]);
Jim Blandy's avatar
Jim Blandy committed
685 686 687

      /* Mark the lines made empty by scrolling as enabled, empty and
	 normal video.  */
Jim Blandy's avatar
Jim Blandy committed
688 689 690 691
      bzero (current_frame->used + end + amount,
	     - amount * sizeof current_frame->used[0]);
      bzero (current_frame->highlight + end + amount,
	     - amount * sizeof current_frame->highlight[0]);
Jim Blandy's avatar
Jim Blandy committed
692 693
      for (i = end + amount; i < end; i++)
	{
Jim Blandy's avatar
Jim Blandy committed
694 695
	  current_frame->glyphs[i][0] = '\0';
	  current_frame->enable[i] = 1;
Jim Blandy's avatar
Jim Blandy committed
696 697
	}

Jim Blandy's avatar
Jim Blandy committed
698 699 700
      safe_bcopy (current_frame->bufp + from,
		  current_frame->bufp + from + amount,
		  (end - from) * sizeof current_frame->bufp[0]);
Jim Blandy's avatar
Jim Blandy committed
701 702

#ifdef HAVE_X_WINDOWS
703
      if (FRAME_X_P (frame))
Jim Blandy's avatar
Jim Blandy committed
704
	{
Jim Blandy's avatar
Jim Blandy committed
705 706 707
	  safe_bcopy (current_frame->nruns + from,
		      current_frame->nruns + from + amount,
		      (end - from) * sizeof current_frame->nruns[0]);
Jim Blandy's avatar
Jim Blandy committed
708

Jim Blandy's avatar
Jim Blandy committed
709 710 711
	  safe_bcopy (current_frame->face_list + from,
		      current_frame->face_list + from + amount,
		      (end - from) * sizeof current_frame->face_list[0]);
Jim Blandy's avatar
Jim Blandy committed
712

Jim Blandy's avatar
Jim Blandy committed
713 714 715
	  safe_bcopy (current_frame->top_left_x + from,
		      current_frame->top_left_x + from + amount,
		      (end - from) * sizeof current_frame->top_left_x[0]);
Jim Blandy's avatar
Jim Blandy committed
716

Jim Blandy's avatar
Jim Blandy committed
717 718 719
	  safe_bcopy (current_frame->top_left_y + from,
		      current_frame->top_left_y + from + amount,
		      (end - from) * sizeof current_frame->top_left_y[0]);
Jim Blandy's avatar
Jim Blandy committed
720

Jim Blandy's avatar
Jim Blandy committed
721 722 723
	  safe_bcopy (current_frame->pix_width + from,
		      current_frame->pix_width + from + amount,
		      (end - from) * sizeof current_frame->pix_width[0]);
Jim Blandy's avatar
Jim Blandy committed
724

Jim Blandy's avatar
Jim Blandy committed
725 726 727
	  safe_bcopy (current_frame->pix_height + from,
		      current_frame->pix_height + from + amount,
		      (end - from) * sizeof current_frame->pix_height[0]);
Jim Blandy's avatar
Jim Blandy committed
728 729 730
	}
#endif				/* HAVE_X_WINDOWS */

Jim Blandy's avatar
Jim Blandy committed
731
      update_end (frame);
Jim Blandy's avatar
Jim Blandy committed
732 733 734 735
    }
  return 1;
}

Jim Blandy's avatar
Jim Blandy committed
736
/* After updating a window W that isn't the full frame wide,
Jim Blandy's avatar
Jim Blandy committed
737
   copy all the columns that W does not occupy
Jim Blandy's avatar
Jim Blandy committed
738 739
   into the FRAME_DESIRED_GLYPHS (frame) from the FRAME_PHYS_GLYPHS (frame)
   so that update_frame will not change those columns.  */
Jim Blandy's avatar
Jim Blandy committed
740 741 742 743 744

preserve_other_columns (w)
     struct window *w;
{
  register int vpos;
Jim Blandy's avatar
Jim Blandy committed
745 746
  register struct frame_glyphs *current_frame, *desired_frame;
  register FRAME_PTR frame = XFRAME (w->frame);
Jim Blandy's avatar
Jim Blandy committed
747 748 749 750
  int start = XFASTINT (w->left);
  int end = XFASTINT (w->left) + XFASTINT (w->width);
  int bot = XFASTINT (w->top) + XFASTINT (w->height);

Jim Blandy's avatar
Jim Blandy committed
751 752
  current_frame = FRAME_CURRENT_GLYPHS (frame);
  desired_frame = FRAME_DESIRED_GLYPHS (frame);
Jim Blandy's avatar
Jim Blandy committed
753 754 755

  for (vpos = XFASTINT (w->top); vpos < bot; vpos++)
    {
Jim Blandy's avatar
Jim Blandy committed
756
      if (current_frame->enable[vpos] && desired_frame->enable[vpos])
Jim Blandy's avatar
Jim Blandy committed
757 758 759 760 761
	{
	  if (start > 0)
	    {
	      int len;

Jim Blandy's avatar
Jim Blandy committed
762 763 764 765 766
	      bcopy (current_frame->glyphs[vpos],
		     desired_frame->glyphs[vpos], start);
	      len = min (start, current_frame->used[vpos]);
	      if (desired_frame->used[vpos] < len)
		desired_frame->used[vpos] = len;
Jim Blandy's avatar
Jim Blandy committed
767
	    }
Jim Blandy's avatar
Jim Blandy committed
768 769
	  if (current_frame->used[vpos] > end
	      && desired_frame->used[vpos] < current_frame->used[vpos])
Jim Blandy's avatar
Jim Blandy committed
770
	    {
Jim Blandy's avatar
Jim Blandy committed
771 772
	      while (desired_frame->used[vpos] < end)
		desired_frame->glyphs[vpos][desired_frame->used[vpos]++]
Jim Blandy's avatar
Jim Blandy committed
773
		  = SPACEGLYPH;
Jim Blandy's avatar
Jim Blandy committed
774 775 776 777
	      bcopy (current_frame->glyphs[vpos] + end,
		     desired_frame->glyphs[vpos] + end,
		     current_frame->used[vpos] - end);
	      desired_frame->used[vpos] = current_frame->used[vpos];
Jim Blandy's avatar
Jim Blandy committed
778 779 780 781 782 783 784
	    }
	}
    }
}

#if 0

Jim Blandy's avatar
Jim Blandy committed
785
/* If window w does not need to be updated and isn't the full frame wide,
Jim Blandy's avatar
Jim Blandy committed
786
 copy all the columns that w does occupy
Jim Blandy's avatar
Jim Blandy committed
787 788
 into the FRAME_DESIRED_LINES (frame) from the FRAME_PHYS_LINES (frame)
 so that update_frame will not change those columns.
Jim Blandy's avatar
Jim Blandy committed
789 790 791 792 793 794 795

 Have not been able to figure out how to use this correctly.  */

preserve_my_columns (w)
     struct window *w;
{
  register int vpos, fin;
Jim Blandy's avatar
Jim Blandy committed
796 797
  register struct frame_glyphs *l1, *l2;
  register FRAME_PTR frame = XFRAME (w->frame);
Jim Blandy's avatar
Jim Blandy committed
798 799 800 801 802 803
  int start = XFASTINT (w->left);
  int end = XFASTINT (w->left) + XFASTINT (w->width);
  int bot = XFASTINT (w->top) + XFASTINT (w->height);

  for (vpos = XFASTINT (w->top); vpos < bot; vpos++)
    {
Jim Blandy's avatar
Jim Blandy committed
804 805
      if ((l1 = FRAME_DESIRED_GLYPHS (frame)->glyphs[vpos + 1])
	  && (l2 = FRAME_PHYS_GLYPHS (frame)->glyphs[vpos + 1]))
Jim Blandy's avatar
Jim Blandy committed
806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829
	{
	  if (l2->length > start && l1->length < l2->length)
	    {
	      fin = l2->length;
	      if (fin > end) fin = end;
	      while (l1->length < start)
		l1->body[l1->length++] = ' ';
	      bcopy (l2->body + start, l1->body + start, fin - start);
	      l1->length = fin;
	    }
	}
    }
}

#endif

/* On discovering that the redisplay for a window was no good,
   cancel the columns of that window, so that when the window is
   displayed over again get_display_line will not complain.  */

cancel_my_columns (w)
     struct window *w;
{
  register int vpos;
Jim Blandy's avatar
Jim Blandy committed
830 831
  register struct frame_glyphs *desired_glyphs =
    FRAME_DESIRED_GLYPHS (XFRAME (w->frame));
Jim Blandy's avatar
Jim Blandy committed
832 833 834 835 836 837 838 839 840
  register int start = XFASTINT (w->left);
  register int bot = XFASTINT (w->top) + XFASTINT (w->height);

  for (vpos = XFASTINT (w->top); vpos < bot; vpos++)
    if (desired_glyphs->enable[vpos]
	&& desired_glyphs->used[vpos] >= start)
      desired_glyphs->used[vpos] = start;
}

Jim Blandy's avatar
Jim Blandy committed
841
/* These functions try to perform directly and immediately on the frame
Jim Blandy's avatar
Jim Blandy committed
842 843 844
   the necessary output for one change in the buffer.
   They may return 0 meaning nothing was done if anything is difficult,
   or 1 meaning the output was performed properly.
Jim Blandy's avatar
Jim Blandy committed
845
   They assume that the frame was up to date before the buffer
Jim Blandy's avatar
Jim Blandy committed
846 847 848 849 850 851 852
   change being displayed.  THey make various other assumptions too;
   see command_loop_1 where these are called.  */

int
direct_output_for_insert (g)
     int g;
{
Jim Blandy's avatar
Jim Blandy committed
853 854 855
  register FRAME_PTR frame = selected_frame;
  register struct frame_glyphs *current_frame
    = FRAME_CURRENT_GLYPHS (frame);
Jim Blandy's avatar
Jim Blandy committed
856 857 858 859 860 861 862 863

#ifndef COMPILER_REGISTER_BUG
  register
#endif /* COMPILER_REGISTER_BUG */
    struct window *w = XWINDOW (selected_window);
#ifndef COMPILER_REGISTER_BUG
  register
#endif /* COMPILER_REGISTER_BUG */
Jim Blandy's avatar
Jim Blandy committed
864
    int hpos = FRAME_CURSOR_X (frame);
Jim Blandy's avatar
Jim Blandy committed
865 866 867
#ifndef COMPILER_REGISTER_BUG
  register
#endif /* COMPILER_REGISTER_BUG */
Jim Blandy's avatar
Jim Blandy committed
868
    int vpos = FRAME_CURSOR_Y (frame);
Jim Blandy's avatar
Jim Blandy committed
869 870 871 872 873 874 875 876

  /* Give up if about to continue line */
  if (hpos - XFASTINT (w->left) + 1 + 1 >= XFASTINT (w->width)

  /* Avoid losing if cursor is in invisible text off left margin */
      || (XINT (w->hscroll) && hpos == XFASTINT (w->left))
    
  /* Give up if cursor outside window (in minibuf, probably) */
Jim Blandy's avatar
Jim Blandy committed
877 878
      || FRAME_CURSOR_Y (frame) < XFASTINT (w->top)
      || FRAME_CURSOR_Y (frame) >= XFASTINT (w->top) + XFASTINT (w->height)
Jim Blandy's avatar
Jim Blandy committed
879

Jim Blandy's avatar
Jim Blandy committed
880
  /* Give up if cursor not really at FRAME_CURSOR_X, FRAME_CURSOR_Y */
Jim Blandy's avatar
Jim Blandy committed
881 882 883 884 885 886 887 888 889
      || !display_completed

  /* Give up if buffer appears in two places.  */
      || buffer_shared > 1

  /* Give up if w is minibuffer and a message is being displayed there */
      || (MINI_WINDOW_P (w) && echo_area_glyphs))
    return 0;

Jim Blandy's avatar
Jim Blandy committed
890
  current_frame->glyphs[vpos][hpos] = g;
Jim Blandy's avatar
Jim Blandy committed
891 892 893 894 895 896 897
  unchanged_modified = MODIFF;
  beg_unchanged = GPT - BEG;
  XFASTINT (w->last_point) = point;
  XFASTINT (w->last_point_x) = hpos;
  XFASTINT (w->last_modified) = MODIFF;

  reassert_line_highlight (0, vpos);
Jim Blandy's avatar
Jim Blandy committed
898
  write_glyphs (&current_frame->glyphs[vpos][hpos], 1);
Jim Blandy's avatar
Jim Blandy committed
899
  fflush (stdout);
Jim Blandy's avatar
Jim Blandy committed
900 901
  ++FRAME_CURSOR_X (frame);
  if (hpos == current_frame->used[vpos])
Jim Blandy's avatar
Jim Blandy committed
902
    {
Jim Blandy's avatar
Jim Blandy committed
903 904
      current_frame->used[vpos] = hpos + 1;
      current_frame->glyphs[vpos][hpos + 1] = 0;
Jim Blandy's avatar
Jim Blandy committed
905 906 907 908 909 910 911 912 913
    }

  return 1;
}

int
direct_output_forward_char (n)
     int n;
{
Jim Blandy's avatar
Jim Blandy committed
914
  register FRAME_PTR frame = selected_frame;
Jim Blandy's avatar
Jim Blandy committed
915 916
  register struct window *w = XWINDOW (selected_window);

Jim Blandy's avatar
Jim Blandy committed
917 918
  /* Avoid losing if cursor is in invisible text off left margin
     or about to go off either side of window.  */
Jim Blandy's avatar
Jim Blandy committed
919
  if ((FRAME_CURSOR_X (frame) == XFASTINT (w->left)
Jim Blandy's avatar
Jim Blandy committed
920 921
       && (XINT (w->hscroll) || n < 0))
      || (n > 0
Jim Blandy's avatar
Jim Blandy committed
922
	  && (FRAME_CURSOR_X (frame) + 1
Jim Blandy's avatar
Jim Blandy committed
923
	      >= (XFASTINT (w->left) + XFASTINT (w->width)
Jim Blandy's avatar
Jim Blandy committed
924
		  - (XFASTINT (w->width) < FRAME_WIDTH (frame))
Jim Blandy's avatar
Jim Blandy committed
925
		  - 1))))
Jim Blandy's avatar
Jim Blandy committed
926 927
    return 0;

Jim Blandy's avatar
Jim Blandy committed
928 929
  FRAME_CURSOR_X (frame) += n;
  XFASTINT (w->last_point_x) = FRAME_CURSOR_X (frame);
Jim Blandy's avatar
Jim Blandy committed
930
  XFASTINT (w->last_point) = point;
Jim Blandy's avatar
Jim Blandy committed
931
  cursor_to (FRAME_CURSOR_Y (frame), FRAME_CURSOR_X (frame));
Jim Blandy's avatar
Jim Blandy committed
932 933 934 935 936 937
  fflush (stdout);
  return 1;
}

static void update_line ();

Jim Blandy's avatar
Jim Blandy committed
938
/* Update frame F based on the data in FRAME_DESIRED_GLYPHS.
Jim Blandy's avatar
Jim Blandy committed
939 940 941 942
   Value is nonzero if redisplay stopped due to pending input.
   FORCE nonzero means do not stop for pending input.  */

int
Jim Blandy's avatar
Jim Blandy committed
943 944
update_frame (f, force, inhibit_hairy_id)
     FRAME_PTR f;
Jim Blandy's avatar
Jim Blandy committed
945 946 947
     int force;
     int inhibit_hairy_id;
{
Jim Blandy's avatar
Jim Blandy committed
948 949
  register struct frame_glyphs *current_frame = FRAME_CURRENT_GLYPHS (f);
  register struct frame_glyphs *desired_frame = FRAME_DESIRED_GLYPHS (f);
Jim Blandy's avatar
Jim Blandy committed
950 951 952 953 954 955 956 957
  register int i;
  int pause;
  int preempt_count = baud_rate / 2400 + 1;
  extern input_pending;
#ifdef HAVE_X_WINDOWS
  register int downto, leftmost;
#endif

Jim Blandy's avatar
Jim Blandy committed
958
  if (FRAME_HEIGHT (f) == 0) abort (); /* Some bug zeros some core */
Jim Blandy's avatar
Jim Blandy committed
959 960 961 962 963 964 965 966

  detect_input_pending ();
  if (input_pending && !force)
    {
      pause = 1;
      goto do_pause;
    }

Jim Blandy's avatar
Jim Blandy committed
967
  update_begin (f);
Jim Blandy's avatar
Jim Blandy committed
968 969 970 971

  if (!line_ins_del_ok)
    inhibit_hairy_id = 1;

Jim Blandy's avatar
Jim Blandy committed
972 973
  /* See if any of the desired lines are enabled; don't compute for
     i/d line if just want cursor motion. */
Jim Blandy's avatar
Jim Blandy committed
974 975
  for (i = 0; i < FRAME_HEIGHT (f); i++)
    if (desired_frame->enable[i])
Jim Blandy's avatar
Jim Blandy committed
976 977 978
      break;

  /* Try doing i/d line, if not yet inhibited.  */
Jim Blandy's avatar
Jim Blandy committed
979 980
  if (!inhibit_hairy_id && i < FRAME_HEIGHT (f))
    force |= scrolling (f);
Jim Blandy's avatar
Jim Blandy committed
981 982 983

  /* Update the individual lines as needed.  Do bottom line first.  */

Jim Blandy's avatar
Jim Blandy committed
984 985
  if (desired_frame->enable[FRAME_HEIGHT (f) - 1])
    update_line (f, FRAME_HEIGHT (f) - 1);
Jim Blandy's avatar
Jim Blandy committed
986 987

#ifdef HAVE_X_WINDOWS
988
  if (FRAME_X_P (f))
Jim Blandy's avatar
Jim Blandy committed
989
    {
Jim Blandy's avatar
Jim Blandy committed
990 991
      leftmost = downto = f->display.x->internal_border_width;
      if (desired_frame->enable[0])
Jim Blandy's avatar
Jim Blandy committed
992
	{
Jim Blandy's avatar
Jim Blandy committed
993 994 995 996 997 998
	  current_frame->top_left_x[FRAME_HEIGHT (f) - 1] = leftmost;
	  current_frame->top_left_y[FRAME_HEIGHT (f) - 1]
	    = PIXEL_HEIGHT (f) - f->display.x->internal_border_width
	      - LINE_HEIGHT(f, FRAME_HEIGHT (f) - 1);
	  current_frame->top_left_x[0] = leftmost;
	  current_frame->top_left_y[0] = downto;
Jim Blandy's avatar
Jim Blandy committed
999 1000 1001 1002 1003
	}
    }
#endif /* HAVE_X_WINDOWS */

  /* Now update the rest of the lines. */
Jim Blandy's avatar
Jim Blandy committed
1004
  for (i = 0; i < FRAME_HEIGHT (f) - 1 && (force || !input_pending); i++)
Jim Blandy's avatar
Jim Blandy committed
1005
    {
Jim Blandy's avatar
Jim Blandy committed
1006
      if (desired_frame->enable[i])
Jim Blandy's avatar
Jim Blandy committed
1007
	{
1008
	  if (FRAME_TERMCAP_P (f))
Jim Blandy's avatar
Jim Blandy committed
1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020
	    {
	      /* Flush out every so many lines.
		 Also flush out if likely to have more than 1k buffered
		 otherwise.   I'm told that some telnet connections get
		 really screwed by more than 1k output at once.  */
	      int outq = PENDING_OUTPUT_COUNT (stdout);
	      if (outq > 900
		  || (outq > 20 && ((i - 1) % preempt_count == 0)))
		{
		  fflush (stdout);
		  if (preempt_count == 1)
		    {
Jim Blandy's avatar
Jim Blandy committed
1021 1022
#ifdef EMACS_OUTQSIZE
		      if (EMACS_OUTQSIZE (0, &outq) < 0)
Jim Blandy's avatar
Jim Blandy committed
1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034
			/* Probably not a tty.  Ignore the error and reset
			 * the outq count. */
			outq = PENDING_OUTPUT_COUNT (stdout);
#endif
		      outq *= 10;
		      sleep (outq / baud_rate);
		    }
		}
	      if ((i - 1) % preempt_count == 0)
		detect_input_pending ();
	    }

Jim Blandy's avatar
Jim Blandy committed
1035
	  update_line (f, i);
Jim Blandy's avatar
Jim Blandy committed
1036
#ifdef HAVE_X_WINDOWS
1037
	  if (FRAME_X_P (f))
Jim Blandy's avatar
Jim Blandy committed
1038
	    {
Jim Blandy's avatar
Jim Blandy committed
1039 1040
	      current_frame->top_left_y[i] = downto;
	      current_frame->top_left_x[i] = leftmost;
Jim Blandy's avatar
Jim Blandy committed
1041 1042 1043 1044
	    }
#endif /* HAVE_X_WINDOWS */
	}

Jim Blandy's avatar
Jim Blandy committed
1045
#ifdef HAVE_X_WINDOWS
1046
      if (FRAME_X_P (f))
Jim Blandy's avatar
Jim Blandy committed
1047
	downto += LINE_HEIGHT(f, i);
Jim Blandy's avatar
Jim Blandy committed
1048
#endif
Jim Blandy's avatar
Jim Blandy committed
1049
    }
Jim Blandy's avatar
Jim Blandy committed
1050
  pause = (i < FRAME_HEIGHT (f) - 1) ? i : 0;
Jim Blandy's avatar
Jim Blandy committed
1051 1052 1053 1054

  /* Now just clean up termcap drivers and set cursor, etc.  */
  if (!pause)
    {
Jim Blandy's avatar
Jim Blandy committed
1055 1056
      if (cursor_in_echo_area)
	{
Jim Blandy's avatar
Jim Blandy committed
1057
	  if (f == selected_frame
Jim Blandy's avatar
Jim Blandy committed
1058
	      && cursor_in_echo_area < 0)
Jim Blandy's avatar
Jim Blandy committed
1059 1060 1061 1062
	    cursor_to (FRAME_HEIGHT (f) - 1, 0);
	  else if (f == selected_frame
		   && ! current_frame->enable[FRAME_HEIGHT (f) - 1])
	    cursor_to (FRAME_HEIGHT (f) - 1, 0);
Jim Blandy's avatar
Jim Blandy committed
1063
	  else
Jim Blandy's avatar
Jim Blandy committed
1064 1065 1066
	    cursor_to (FRAME_HEIGHT (f) - 1,
		       min (FRAME_WIDTH (f) - 1,
			    current_frame->used[FRAME_HEIGHT (f) - 1]));
Jim Blandy's avatar
Jim Blandy committed
1067
	}
Jim Blandy's avatar
Jim Blandy committed
1068
      else
Jim Blandy's avatar
Jim Blandy committed
1069 1070
	cursor_to (FRAME_CURSOR_Y (f), max (min (FRAME_CURSOR_X (f),
						  FRAME_WIDTH (f) - 1), 0));
Jim Blandy's avatar
Jim Blandy committed
1071 1072
    }

Jim Blandy's avatar
Jim Blandy committed
1073
  update_end (f);
Jim Blandy's avatar
Jim Blandy committed
1074 1075 1076 1077 1078 1079 1080 1081

  if (termscript)
    fflush (termscript);
  fflush (stdout);

  /* Here if output is preempted because input is detected.  */
 do_pause:

Jim Blandy's avatar
Jim Blandy committed
1082
  if (FRAME_HEIGHT (f) == 0) abort (); /* Some bug zeros some core */
Jim Blandy's avatar
Jim Blandy committed
1083 1084
  display_completed = !pause;

Jim Blandy's avatar
Jim Blandy committed
1085
  bzero (desired_frame->enable, FRAME_HEIGHT (f));
Jim Blandy's avatar
Jim Blandy committed
1086 1087 1088 1089 1090 1091 1092 1093 1094
  return pause;
}

/* Called when about to quit, to check for doing so
   at an improper time.  */

void
quit_error_check ()
{
Jim Blandy's avatar
Jim Blandy committed
1095
  if (FRAME_DESIRED_GLYPHS (selected_frame) == 0)
Jim Blandy's avatar
Jim Blandy committed
1096
    return;
Jim Blandy's avatar
Jim Blandy committed
1097
  if (FRAME_DESIRED_GLYPHS (selected_frame)->enable[0])
Jim Blandy's avatar
Jim Blandy committed
1098
    abort ();
Jim Blandy's avatar
Jim Blandy committed
1099
  if (FRAME_DESIRED_GLYPHS (selected_frame)->enable[FRAME_HEIGHT (selected_frame) - 1])
Jim Blandy's avatar
Jim Blandy committed
1100 1101 1102 1103 1104 1105 1106
    abort ();
}

/* Decide what insert/delete line to do, and do it */

extern void scrolling_1 ();

Jim Blandy's avatar
Jim Blandy committed
1107 1108
scrolling (frame)
     FRAME_PTR frame;
Jim Blandy's avatar
Jim Blandy committed
1109 1110 1111 1112
{
  int unchanged_at_top, unchanged_at_bottom;
  int window_size;
  int changed_lines;
Jim Blandy's avatar
Jim Blandy committed
1113 1114 1115
  int *old_hash = (int *) alloca (FRAME_HEIGHT (frame) * sizeof (int));
  int *new_hash = (int *) alloca (FRAME_HEIGHT (frame) * sizeof (int));
  int *draw_cost = (int *) alloca (FRAME_HEIGHT (frame) * sizeof (int));
Jim Blandy's avatar
Jim Blandy committed
1116
  register int i;
Jim Blandy's avatar
Jim Blandy committed
1117 1118 1119
  int free_at_end_vpos = FRAME_HEIGHT (frame);
  register struct frame_glyphs *current_frame = FRAME_CURRENT_GLYPHS (frame);
  register struct frame_glyphs *desired_frame = FRAME_DESIRED_GLYPHS (frame);
Jim Blandy's avatar
Jim Blandy committed
1120 1121 1122 1123 1124 1125 1126 1127

  /* Compute hash codes of all the lines.
     Also calculate number of changed lines,
     number of unchanged lines at the beginning,
     and number of unchanged lines at the end.  */

  changed_lines = 0;
  unchanged_at_top = 0;
Jim Blandy's avatar
Jim Blandy committed
1128 1129
  unchanged_at_bottom = FRAME_HEIGHT (frame);
  for (i = 0; i < FRAME_HEIGHT (frame); i++)
Jim Blandy's avatar
Jim Blandy committed
1130 1131
    {
      /* Give up on this scrolling if some old lines are not enabled.  */
Jim Blandy's avatar
Jim Blandy committed
1132
      if (!current_frame->enable[i])
Jim Blandy's avatar
Jim Blandy committed
1133
	return 0;
Jim Blandy's avatar
Jim Blandy committed
1134 1135
      old_hash[i] = line_hash_code (current_frame, i);
      if (! desired_frame->enable[i])
Jim Blandy's avatar
Jim Blandy committed
1136 1137
	new_hash[i] = old_hash[i];
      else
Jim Blandy's avatar
Jim Blandy committed
1138
	new_hash[i] = line_hash_code (desired_frame, i);
Jim Blandy's avatar
Jim Blandy committed
1139 1140 1141 1142

      if (old_hash[i] != new_hash[i])
	{
	  changed_lines++;
Jim Blandy's avatar
Jim Blandy committed
1143
	  unchanged_at_bottom = FRAME_HEIGHT (frame) - i - 1;
Jim Blandy's avatar
Jim Blandy committed