git.chise.org Git - chise/xemacs-chise.git.1/blob - src/redisplay.h

   1 /* Redisplay data structures.
   2    Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
   3    Copyright (C) 1996 Chuck Thompson.
   4    Copyright (C) 1995, 1996 Ben Wing.
   5
   6 This file is part of XEmacs.
   7
   8 XEmacs is free software; you can redistribute it and/or modify it
   9 under the terms of the GNU General Public License as published by the
  10 Free Software Foundation; either version 2, or (at your option) any
  11 later version.
  12
  13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with XEmacs; see the file COPYING.  If not, write to
  20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21 Boston, MA 02111-1307, USA.  */
  22
  23 /* Synched up with: Not in FSF. */
  24
  25 #ifndef _XEMACS_REDISPLAY_H_
  26 #define _XEMACS_REDISPLAY_H_
  27
  28 /* Redisplay DASSERT types */
  29 #define DB_DISP_POS             1
  30 #define DB_DISP_TEXT_LAYOUT     2
  31 #define DB_DISP_REDISPLAY       4
  32
  33 /* These are the possible return values from pixel_to_glyph_translation. */
  34 #define OVER_MODELINE           0
  35 #define OVER_TEXT               1
  36 #define OVER_OUTSIDE            2
  37 #define OVER_NOTHING            3
  38 #define OVER_BORDER             4
  39 #define OVER_TOOLBAR            5
  40 #define OVER_V_DIVIDER          6
  41
  42 #define NO_BLOCK        -1
  43
  44 /* Imagine that the text in the buffer is displayed on a piece of paper
  45    the width of the frame and very very tall.  The line start cache is
  46    an array of struct line_start_cache's, describing the start and
  47    end buffer positions for a contiguous set of lines on that piece
  48    of paper. */
  49
  50 typedef struct line_start_cache line_start_cache;
  51 struct line_start_cache
  52 {
  53   Bufpos start, end;
  54   int height;
  55 };
  56
  57 typedef struct
  58 {
  59   Dynarr_declare (line_start_cache);
  60 } line_start_cache_dynarr;
  61
  62 /* The possible types of runes.
  63
  64    #### The Lisp_Glyph type is broken.  There should instead be a pixmap
  65    type.  Currently the device-specific output routines have to worry
  66    about whether the glyph is textual or not, etc.  For Mule this is
  67    a big problem because you might need multiple fonts to display the
  68    text.  It also eliminates optimizations that could come from glumping
  69    the text of multiple text glyphs together -- this makes displaying
  70    binary files (with lots of control chars, etc.) very very slow. */
  71
  72 #define RUNE_BLANK      0
  73 #define RUNE_CHAR       1
  74 #define RUNE_DGLYPH     2
  75 #define RUNE_HLINE      3
  76 #define RUNE_VLINE      4
  77
  78 #define CURSOR_ON       0
  79 #define CURSOR_OFF      1
  80 #define NO_CURSOR       2
  81 #define NEXT_CURSOR     3
  82 #define IGNORE_CURSOR   4
  83
  84 #define DEFAULT_INDEX   (face_index) 0
  85 #define MODELINE_INDEX  (face_index) 1
  86
  87 /* A rune is a single display element, such as a printable character
  88    or pixmap.  Any single character in a buffer has one or more runes
  89    (or zero, if the character is invisible) corresponding to it.
  90    (Printable characters typically have one rune associated with them,
  91    but control characters have two -- a ^ and a letter -- and other
  92    non-printing characters (those displayed in octal) have four. */
  93
  94 typedef struct rune rune;
  95 struct rune
  96 {
  97   face_index findex;            /* face rune is displayed with.  The
  98                                    face_index is an index into a
  99                                    window-specific array of face cache
 100                                    elements.  Each face cache element
 101                                    corresponds to one "merged face"
 102                                    (the result of merging all the
 103                                    faces that overlap the rune) and
 104                                    contains the instance values for
 105                                    each of the face properties in this
 106                                    particular window. */
 107
 108   short xpos;                   /* horizontal starting position in pixels */
 109   short width;                  /* pixel width of rune */
 110
 111
 112   Bufpos bufpos;                /* buffer position this rune is displaying;
 113                                    for the modeline, the value here is a
 114                                    Charcount, but who's looking? */
 115   Bufpos endpos;                /* if set this rune covers a range of pos */
 116                                 /* #### Chuck, what does it mean for a rune
 117                                    to cover a range of pos?  I don't get
 118                                    this. */
 119   unsigned int cursor_type :3;  /* is this rune covered by the cursor? */
 120   unsigned int type :3;         /* type of rune object */
 121
 122   union                         /* Information specific to the type of rune */
 123   {
 124     /* DGLYPH */
 125     struct
 126     {
 127       Lisp_Object glyph;
 128       Lisp_Object extent;       /* extent rune is attached to, if any.
 129                                    If this is a rune in the modeline
 130                                    then this might be nil. */
 131
 132       int xoffset;              /* Number of pixels that need to be
 133                                    chopped off the left of the glyph.
 134                                    This has the effect of shifting the
 135                                    glyph to the left while still clipping
 136                                    at XPOS. */
 137     } dglyph;
 138
 139     /* CHAR */
 140     struct
 141     {
 142       Emchar ch;                /* Character of this rune. */
 143     } chr;
 144
 145     /* HLINE */
 146     struct
 147     {
 148       int thickness;            /* how thick to make hline */
 149       int yoffset;              /* how far down from top of line to put top */
 150     } hline;
 151   } object;                     /* actual rune object */
 152 };
 153
 154 typedef struct
 155 {
 156   Dynarr_declare (rune);
 157 } rune_dynarr;
 158
 159 /* These must have distinct values.  Note that the ordering actually
 160    represents priority levels.  TEXT has the lowest priority level. */
 161 enum display_type
 162 {
 163   TEXT,
 164   LEFT_OUTSIDE_MARGIN,
 165   LEFT_INSIDE_MARGIN,
 166   RIGHT_INSIDE_MARGIN,
 167   RIGHT_OUTSIDE_MARGIN,
 168   OVERWRITE
 169 };
 170
 171 /* A display block represents a run of text on a single line.
 172    Apparently there is only one display block per line for each
 173    of the types listed in `enum display_type'.
 174
 175    A display block consists mostly of an array of runes, one per
 176    atomic display element (printable character, pixmap, etc.). */
 177
 178 /* #### Yuckity yuckity yuck yuck yuck yuck yuck!!
 179
 180    Chuck, I think you should redo this.  It should not be the
 181    responsibility of the device-specific code to worry about
 182    the different faces.  The generic stuff in redisplay-output.c
 183    should glump things up into sub-blocks, each of which
 184    corresponds to a single pixmap or a single run of text in
 185    the same font.
 186
 187    It might still make sense for the device-specific output routine
 188    to get passed an entire display line.  That way, it can make
 189    calls to XDrawText() (which draws multiple runs of single-font
 190    data) instead of XDrawString().  The reason for this is to
 191    reduce the amount of X traffic, which will help things significantly
 192    on a slow line. */
 193
 194 typedef struct display_block display_block;
 195 struct display_block
 196 {
 197   enum display_type type;       /* type of display block */
 198
 199   int start_pos;                /* starting pixel position of block */
 200   int end_pos;                  /* ending pixel position of block */
 201
 202   rune_dynarr *runes;           /* Dynamic array of runes */
 203 };
 204
 205 typedef struct
 206 {
 207   Dynarr_declare (display_block);
 208 } display_block_dynarr;
 209
 210 typedef struct layout_bounds_type
 211 {
 212   int left_out;
 213   int left_in;
 214   int left_white;
 215   int right_white;
 216   int right_in;
 217   int right_out;
 218 } layout_bounds;
 219
 220 typedef struct glyph_block glyph_block;
 221 struct glyph_block
 222 {
 223   Lisp_Object glyph;
 224   Lisp_Object extent;
 225   /* The rest are only used by margin routines. */
 226   face_index findex;
 227   int active;
 228   int width;
 229 };
 230
 231 typedef struct
 232 {
 233   Dynarr_declare (glyph_block);
 234 } glyph_block_dynarr;
 235
 236 typedef struct display_line display_line;
 237 struct display_line
 238 {
 239   short ypos;                           /* vertical position in pixels
 240                                            of the baseline for this line. */
 241   unsigned short ascent, descent;       /* maximum values for this line.
 242                                            The ascent is the number of
 243                                            pixels above the baseline, and
 244                                            the descent is the number of
 245                                            pixels below the baseline.
 246                                            The descent includes the baseline
 247                                            pixel-row itself, I think. */
 248   unsigned short clip;                  /* amount of bottom of line to clip
 249                                            in pixels.*/
 250   Bufpos bufpos;                        /* first buffer position on line */
 251   Bufpos end_bufpos;                    /* last buffer position on line */
 252   Charcount offset;                     /* adjustment to bufpos vals */
 253   Charcount num_chars;                  /* # of chars on line
 254                                            including expansion of tabs
 255                                            and control chars */
 256   int cursor_elt;                       /* rune block of TEXT display
 257                                            block cursor is at or -1 */
 258   char used_prop_data;                  /* can't incrementally update if line
 259                                            used propagation data */
 260
 261   layout_bounds bounds;                 /* line boundary positions */
 262
 263   char modeline;                        /* t if this line is a modeline */
 264
 265   /* Dynamic array of display blocks */
 266   display_block_dynarr *display_blocks;
 267
 268   /* Dynamic arrays of left and right glyph blocks */
 269   glyph_block_dynarr *left_glyphs;
 270   glyph_block_dynarr *right_glyphs;
 271 };
 272
 273 #define DISPLAY_LINE_HEIGHT(dl) \
 274 (dl->ascent + dl->descent - dl->clip)
 275 #define DISPLAY_LINE_YPOS(dl) \
 276 (dl->ypos - dl->ascent)
 277
 278 typedef struct
 279 {
 280   Dynarr_declare (display_line);
 281 } display_line_dynarr;
 282
 283 /* It could be argued that the following two structs belong in
 284    extents.h, but they're only used by redisplay and it simplifies
 285    the header files to put them here. */
 286
 287 typedef struct
 288 {
 289   Dynarr_declare (EXTENT);
 290 } EXTENT_dynarr;
 291
 292 struct font_metric_info
 293 {
 294   int width;
 295   int height;                   /* always ascent + descent; for convenience */
 296   int ascent;
 297   int descent;
 298
 299   int proportional_p;
 300 };
 301
 302 /* NOTE NOTE NOTE: Currently the positions in an extent fragment
 303    structure are Bytind's, not Bufpos's.  This could change. */
 304
 305 struct extent_fragment
 306 {
 307   Lisp_Object object; /* buffer or string */
 308   struct frame *frm;
 309   Bytind pos, end;
 310   EXTENT_dynarr *extents;
 311   glyph_block_dynarr *begin_glyphs, *end_glyphs;
 312   unsigned int invisible:1;
 313   unsigned int invisible_ellipses:1;
 314   unsigned int previously_invisible:1;
 315   unsigned int invisible_ellipses_already_displayed:1;
 316 };
 317
 318 \f
 319 /*************************************************************************/
 320 /*                              change flags                             */
 321 /*************************************************************************/
 322
 323 /* Quick flags to signal redisplay.  redisplay() sets them all to 0
 324    when it finishes.  If none of them are set when it starts, it
 325    assumes that nothing needs to be done.  Functions that make a change
 326    that is (potentially) visible on the screen should set the
 327    appropriate flag.
 328
 329    If any of these flags are set, redisplay will look more carefully
 330    to see if anything has really changed. */
 331
 332 /* non-nil if the contents of a buffer have changed since the last time
 333    redisplay completed */
 334 extern int buffers_changed;
 335 extern int buffers_changed_set;
 336
 337 /* Nonzero if head_clip or tail_clip of a buffer has changed
 338  since last redisplay that finished */
 339 extern int clip_changed;
 340 extern int clip_changed_set;
 341
 342 /* non-nil if any extent has changed since the last time redisplay completed */
 343 extern int extents_changed;
 344 extern int extents_changed_set;
 345
 346 /* non-nil if any face has changed since the last time redisplay completed */
 347 extern int faces_changed;
 348
 349 /* Nonzero means one or more frames have been marked as garbaged */
 350 extern int frame_changed;
 351
 352 /* True if any of the builtin display glyphs (continuation,
 353    hscroll, control-arrow, etc) is in need of updating
 354    somewhere. */
 355 extern int glyphs_changed;
 356 extern int glyphs_changed_set;
 357
 358 /* True if any displayed subwindow is in need of updating
 359    somewhere. */
 360 extern int subwindows_changed;
 361 extern int subwindows_changed_set;
 362
 363 /* True if an icon is in need of updating somewhere. */
 364 extern int icon_changed;
 365 extern int icon_changed_set;
 366
 367 /* True if a menubar is in need of updating somewhere. */
 368 extern int menubar_changed;
 369 extern int menubar_changed_set;
 370
 371 /* true iff we should redraw the modelines on the next redisplay */
 372 extern int modeline_changed;
 373 extern int modeline_changed_set;
 374
 375 /* non-nil if point has changed in some buffer since the last time
 376    redisplay completed */
 377 extern int point_changed;
 378 extern int point_changed_set;
 379
 380 /* non-nil if some frame has changed its size */
 381 extern int size_changed;
 382
 383 /* non-nil if some device has signaled that it wants to change size */
 384 extern int asynch_device_change_pending;
 385
 386 /* non-nil if any toolbar has changed */
 387 extern int toolbar_changed;
 388 extern int toolbar_changed_set;
 389
 390 /* non-nil if any window has changed since the last time redisplay completed */
 391 extern int windows_changed;
 392
 393 /* non-nil if any frame's window structure has changed since the last
 394    time redisplay completed */
 395 extern int windows_structure_changed;
 396
 397 /* These macros can be relatively expensive.  Since they are often
 398    called numerous times between each call to redisplay, we keep track
 399    if each has already been called and don't bother doing most of the
 400    work if it is currently set. */
 401
 402 #define MARK_TYPE_CHANGED(object) do {                          \
 403   if (!object##_changed_set) {                                  \
 404     Lisp_Object MTC_devcons, MTC_concons;                       \
 405     DEVICE_LOOP_NO_BREAK (MTC_devcons, MTC_concons)             \
 406       {                                                         \
 407         Lisp_Object MTC_frmcons;                                \
 408         struct device *MTC_d = XDEVICE (XCAR (MTC_devcons));    \
 409         DEVICE_FRAME_LOOP (MTC_frmcons, MTC_d)                  \
 410           {                                                     \
 411             struct frame *MTC_f = XFRAME (XCAR (MTC_frmcons));  \
 412             MTC_f->object##_changed = 1;                        \
 413             MTC_f->modiff++;                                    \
 414           }                                                     \
 415         MTC_d->object##_changed = 1;                            \
 416       }                                                         \
 417     object##_changed = 1;                                       \
 418     object##_changed_set = 1; }                                 \
 419   }  while (0)
 420
 421 #define MARK_BUFFERS_CHANGED MARK_TYPE_CHANGED (buffers)
 422 #define MARK_CLIP_CHANGED MARK_TYPE_CHANGED (clip)
 423 #define MARK_EXTENTS_CHANGED MARK_TYPE_CHANGED (extents)
 424 #define MARK_ICON_CHANGED MARK_TYPE_CHANGED (icon)
 425 #define MARK_MENUBAR_CHANGED MARK_TYPE_CHANGED (menubar)
 426 #define MARK_MODELINE_CHANGED MARK_TYPE_CHANGED (modeline)
 427 #define MARK_POINT_CHANGED MARK_TYPE_CHANGED (point)
 428 #define MARK_TOOLBAR_CHANGED MARK_TYPE_CHANGED (toolbar)
 429 #define MARK_GLYPHS_CHANGED MARK_TYPE_CHANGED (glyphs)
 430 #define MARK_SUBWINDOWS_CHANGED MARK_TYPE_CHANGED (subwindows)
 431
 432 /* Anytime a console, device or frame is added or deleted we need to reset
 433    these flags. */
 434 #define RESET_CHANGED_SET_FLAGS         \
 435   do {                                  \
 436     buffers_changed_set = 0;            \
 437     clip_changed_set = 0;               \
 438     extents_changed_set = 0;            \
 439     icon_changed_set = 0;               \
 440     menubar_changed_set = 0;            \
 441     modeline_changed_set = 0;           \
 442     point_changed_set = 0;              \
 443     toolbar_changed_set = 0;            \
 444     glyphs_changed_set = 0;             \
 445     subwindows_changed_set = 0;         \
 446   } while (0)
 447
 448 \f
 449 /*************************************************************************/
 450 /*                       redisplay global variables                      */
 451 /*************************************************************************/
 452
 453 /* redisplay structure used by various utility routines. */
 454 extern display_line_dynarr *cmotion_display_lines;
 455
 456 /* Nonzero means truncate lines in all windows less wide than the frame. */
 457 extern int truncate_partial_width_windows;
 458
 459 /* Nonzero if we're in a display critical section. */
 460 extern int in_display;
 461
 462 /* Nonzero means no need to redraw the entire frame on resuming
 463    a suspended Emacs.  This is useful on terminals with multiple pages,
 464    where one page is used for Emacs and another for all else. */
 465 extern int no_redraw_on_reenter;
 466
 467 /* Nonzero means flash the frame instead of ringing the bell.  */
 468 extern int visible_bell;
 469
 470 /* Thickness of shadow border around 3D modelines. */
 471 extern Lisp_Object Vmodeline_shadow_thickness;
 472
 473 /* Scroll if point lands on the bottom line and that line is partially
 474    clipped. */
 475 extern int scroll_on_clipped_lines;
 476
 477 extern Lisp_Object Vglobal_mode_string;
 478
 479 /* The following two variables are defined in emacs.c and are used
 480    to convey information discovered on the command line way early
 481    (before *anything* is initialized). */
 482
 483 /* If non-zero, a window-system was specified on the command line.
 484    Defined in emacs.c. */
 485 extern int display_arg;
 486
 487 /* Type of display specified.  Defined in emacs.c. */
 488 extern CONST char *display_use;
 489
 490 /* Nonzero means reading single-character input with prompt
 491    so put cursor on minibuffer after the prompt.  */
 492
 493 extern int cursor_in_echo_area;
 494
 495 extern Lisp_Object Qbar_cursor, Qcursor_in_echo_area, Vwindow_system;
 496
 497 \f
 498 /*************************************************************************/
 499 /*                     redisplay exported functions                      */
 500 /*************************************************************************/
 501 EXFUN (Fredraw_frame, 2);
 502
 503 int redisplay_text_width_string (struct window *w, int findex,
 504                                  Bufbyte *nonreloc, Lisp_Object reloc,
 505                                  Bytecount offset, Bytecount len);
 506 int redisplay_frame_text_width_string (struct frame *f,
 507                                        Lisp_Object face,
 508                                        Bufbyte *nonreloc,
 509                                        Lisp_Object reloc,
 510                                        Bytecount offset, Bytecount len);
 511 void redisplay (void);
 512 struct display_block *get_display_block_from_line (struct display_line *dl,
 513                                                    enum display_type type);
 514 layout_bounds calculate_display_line_boundaries (struct window *w,
 515                                                  int modeline);
 516 Bufpos point_at_center (struct window *w, int type, Bufpos start,
 517                         Bufpos point);
 518 int line_at_center (struct window *w, int type, Bufpos start, Bufpos point);
 519 int window_half_pixpos (struct window *w);
 520 void redisplay_echo_area (void);
 521 void free_display_structs (struct window_mirror *mir);
 522 Bufbyte *generate_formatted_string (struct window *w, Lisp_Object format_str,
 523                                     Lisp_Object result_str, face_index findex,
 524                                     int type);
 525 int real_current_modeline_height (struct window *w);
 526 int pixel_to_glyph_translation (struct frame *f, int x_coord,
 527                                 int y_coord, int *col, int *row,
 528                                 int *obj_x, int *obj_y,
 529                                 struct window **w, Bufpos *bufpos,
 530                                 Bufpos *closest, Charcount *modeline_closest,
 531                                 Lisp_Object *obj1, Lisp_Object *obj2);
 532 void glyph_to_pixel_translation (struct window *w, int char_x,
 533                                  int char_y, int *pix_x, int *pix_y);
 534 void mark_redisplay (void (*) (Lisp_Object));
 535 int point_in_line_start_cache (struct window *w, Bufpos point,
 536                                int min_past);
 537 int point_would_be_visible (struct window *w, Bufpos startp,
 538                     Bufpos point);
 539 Bufpos start_of_last_line (struct window *w, Bufpos startp);
 540 Bufpos end_of_last_line (struct window *w, Bufpos startp);
 541 Bufpos start_with_line_at_pixpos (struct window *w, Bufpos point,
 542                                   int pixpos);
 543 Bufpos start_with_point_on_display_line (struct window *w, Bufpos point,
 544                                          int line);
 545 int redisplay_variable_changed (Lisp_Object sym, Lisp_Object *val,
 546                                 Lisp_Object in_object, int flags);
 547 void redisplay_glyph_changed (Lisp_Object glyph, Lisp_Object property,
 548                               Lisp_Object locale);
 549
 550 #ifdef MEMORY_USAGE_STATS
 551 int compute_display_line_dynarr_usage (display_line_dynarr *dyn,
 552                                        struct overhead_stats *ovstats);
 553 int compute_line_start_cache_dynarr_usage (line_start_cache_dynarr *dyn,
 554                                            struct overhead_stats *ovstats);
 555 #endif
 556
 557
 558 /* defined in redisplay-output.c */
 559 int get_next_display_block (layout_bounds bounds,
 560                             display_block_dynarr *dba, int start_pos,
 561                             int *next_start);
 562 void redisplay_output_subwindow (struct window *w, struct display_line *dl,
 563                                  Lisp_Object image_instance, int xpos,
 564                                  int xoffset, int start_pixpos, int width,
 565                                  face_index findex, int cursor_start,
 566                                  int cursor_width, int cursor_height);
 567 void redisplay_unmap_subwindows_maybe (struct frame* f, int x, int y, int width, int height);
 568 void redisplay_clear_region (Lisp_Object window, face_index findex, int x,
 569                              int y, int width, int height);
 570 void redisplay_clear_bottom_of_window (struct window *w,
 571                                        display_line_dynarr *ddla,
 572                                        int min_start, int max_end);
 573 void redisplay_update_line (struct window *w, int first_line,
 574                             int last_line, int update_values);
 575 void redisplay_output_window (struct window *w);
 576 int redisplay_move_cursor (struct window *w, Bufpos new_point,
 577                            int no_output_end);
 578 void redisplay_redraw_cursor (struct frame *f, int run_begin_end_meths);
 579 void output_display_line (struct window *w, display_line_dynarr *cdla,
 580                           display_line_dynarr *ddla, int line,
 581                           int force_start, int force_end);
 582
 583 #endif /* _XEMACS_REDISPLAY_H_ */