annotate src/dispextern.h @ 5064:e1843fccd1f2

(read_avail_input): Don't set nread to -1 if we loop around in the loop that calls read.
author Richard M. Stallman <rms@gnu.org>
date Thu, 18 Nov 1993 09:45:27 +0000
parents b9e5a869b33e
children 2c6d3ba470bb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Interface definitions for display code.
2961
e94a593c3952 Updated copyright years.
Jim Blandy <jimb@redhat.com>
parents: 2724
diff changeset
2 Copyright (C) 1985, 1993 Free Software Foundation, Inc.
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 /* Nonzero means last display completed and cursor is really at
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 cursX, cursY. Zero means it was preempted. */
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 extern int display_completed;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #ifdef HAVE_X_WINDOWS
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
25 #include <X11/Xlib.h>
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
26
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
27 struct face
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
28 {
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
29 /* If this is non-zero, it is a GC we can use without modification
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
30 to represent this face. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
31 GC gc;
2724
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
32
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
33 /* If we have ever called get_cached_face on this face structure,
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
34 here is the index in face_vector of the face it returned. It
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
35 might not be valid any more, but it's a good place to start
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
36 looking; get_cached_face tries to use this to avoid searching
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
37 all of face_vector. */
56a657acd984 * dispextern.h (struct face): Add cached_index member.
Jim Blandy <jimb@redhat.com>
parents: 2395
diff changeset
38 int cached_index;
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
39
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
40 /* Pixel value for foreground color. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
41 int foreground;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
42
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
43 /* Pixel value for background color. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
44 int background;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
45
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
46 /* Font used for this face. */
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
47 XFontStruct *font;
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
48
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
49 /* Background stipple or bitmap used for this face. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
50 Pixmap stipple;
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
51
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
52 /* Pixmap_depth. */
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
53 unsigned int pixmap_w, pixmap_h;
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
54
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
55 /* Whether or not to underline text in this face. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
56 char underline;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
57 };
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
58
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
59 /* Let's stop using this and get rid of it. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
60 typedef struct face *FACE;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
61
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
62 #define NORMAL_FACE ((struct face *) 0)
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
63
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
64 #define FACE_HAS_GC(f) ((f)->gc)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
65 #define FACE_GC(f) ((f)->gc)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
66 #define FACE_FOREGROUND(f) ((f)->foreground)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
67 #define FACE_BACKGROUND(f) ((f)->background)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
68 #define FACE_FONT(f) ((f)->font)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
69 #define FACE_STIPPLE(f) ((f)->stipple)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
70 #define FACE_UNDERLINE_P(f) ((f)->underline)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
71
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
72 #else /* Not X */
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
73
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
74 typedef int FACE;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
75
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
76 #define NORMAL_FACE 0x0
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
77 #define HIGHLIGHT_FACE 0x1
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
78 #define UNDERLINE_FACE 0x2
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
79 #define HIGHLIGHT_UNDERLINE_FACE 0x3
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
80
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
81 #define FACE_HIGHLIGHT(f) ((f) & 0x1)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
82 #define FACE_UNDERLINE(f) ((f) & 0x2)
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
83 #endif /* Not X */
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
84
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
86 /* This structure is used for the actual display of text on a frame.
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 There are two instantiations of it: the glyphs currently displayed,
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 and the glyphs we desire to display. The latter object is generated
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
90 from buffers being displayed. */
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
92 struct frame_glyphs
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 {
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
94 #ifdef MULTI_FRAME
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
95 struct frame *frame; /* Frame these glyphs belong to. */
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
96 #endif /* MULTI_FRAME */
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 int height;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 int width;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
100 /* Contents of the frame.
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
101 glyphs[V][H] is the glyph at position V, H.
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
102 Note that glyphs[V][-1],
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
103 glyphs[V][used[V]],
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
104 and glyphs[V][frame_width] are always '\0'. */
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 GLYPH **glyphs;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 /* long vector from which the strings in `glyphs' are taken. */
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 GLYPH *total_contents;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
109 /* When representing a desired frame,
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
110 enable[n] == 0 means that line n is same as current frame.
1649
c3225b867171 * dispextern.h (struct frame_glyphs): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1510
diff changeset
111 Between updates, all lines should be disabled.
764
bb24f1180bb6 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
112 When representing current frame contents,
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
113 enable[n] == 0 means that line n is blank. */
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
114 char *enable;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
115
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
116 /* Everything on line n after column used[n] is considered blank. */
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
117 int *used;
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 328
diff changeset
118
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 /* highlight[n] != 0 iff line n is highlighted. */
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 char *highlight;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
122 /* Buffer offset of this line's first char. */
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 int *bufp;
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 #ifdef HAVE_X_WINDOWS
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
126 /* Pixel position of top left corner of line. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
127 short *top_left_x;
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 short *top_left_y;
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
129
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
130 /* Pixel width of line. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
131 short *pix_width;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
132
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
133 /* Pixel height of line. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
134 short *pix_height;
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
135
2395
aec61f55a84d (struct face): New fields pixmap_h, pixmap_w.
Richard M. Stallman <rms@gnu.org>
parents: 1780
diff changeset
136 /* Largest font ascent on this line. */
1409
7fd1c810daca * dispextern.h: New element of frame structure `max_ascent'.
Joseph Arceneaux <jla@gnu.org>
parents: 764
diff changeset
137 short *max_ascent;
247
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 #endif /* HAVE_X_WINDOWS */
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 };
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140
8b9aa51c8a69 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 extern void get_display_line ();
1510
2fd5263590ea * dispextern.h (sit_for): Declare this extern.
Jim Blandy <jimb@redhat.com>
parents: 1409
diff changeset
142 extern Lisp_Object sit_for ();