|
872
|
1 /* Define device-object for XEmacs.
|
|
|
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
|
|
|
3 Copyright (C) 1995, 2002 Ben Wing
|
|
|
4 Copyright (C) 1995 Sun Microsystems
|
|
|
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 /* Written by Chuck Thompson and Ben Wing. */
|
|
|
26
|
|
|
27 #ifndef INCLUDED_device_impl_h_
|
|
|
28 #define INCLUDED_device_impl_h_
|
|
|
29
|
|
|
30 #include "console-impl.h"
|
|
|
31 #include "device.h"
|
|
|
32
|
|
|
33 /* This should really be in redisplay.h but by putting it here we
|
|
|
34 won't have to ensure that redisplay.h is always included before
|
|
|
35 this file. */
|
|
|
36 struct pixel_to_glyph_translation_cache
|
|
|
37 {
|
|
|
38 unsigned int valid :1;
|
|
|
39 struct frame *frame;
|
|
|
40 int low_x_coord, high_x_coord, col, obj_x;
|
|
|
41 int low_y_coord, high_y_coord, row, obj_y;
|
|
|
42 struct window *w;
|
|
|
43 Charbpos charpos;
|
|
|
44 Charbpos closest;
|
|
|
45 Charcount modeline_closest;
|
|
|
46 Lisp_Object obj1, obj2;
|
|
|
47 int retval;
|
|
|
48 };
|
|
|
49
|
|
|
50 /* Less public: */
|
|
|
51 #define DEVICE_TYPE_NAME(d) ((d)->devmeths->name)
|
|
|
52 #define DEVICE_IMPL_FLAG(d, f) CONMETH_IMPL_FLAG ((d)->devmeths, (f))
|
|
|
53 #define DEVICE_SPECIFIC_FRAME_PROPS(d) \
|
|
|
54 ((d)->devmeths->device_specific_frame_props)
|
|
|
55
|
|
|
56 /* More public: */
|
|
|
57 #define DEVICE_TYPE(d) ((d)->devmeths->symbol)
|
|
|
58 #define XDEVICE_TYPE(d) DEVICE_TYPE (XDEVICE (d))
|
|
|
59
|
|
|
60 /******** Accessing / calling a device method *********/
|
|
|
61
|
|
|
62 #define HAS_DEVMETH_P(d, m) HAS_CONTYPE_METH_P ((d)->devmeths, m)
|
|
|
63 #define DEVMETH(d, m, args) CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
64 #define MAYBE_DEVMETH(d, m, args) MAYBE_CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
65 #define DEVMETH_OR_GIVEN(d, m, args, given) \
|
|
|
66 CONTYPE_METH_OR_GIVEN((d)->devmeths, m, args, given)
|
|
|
67 #define MAYBE_INT_DEVMETH(d, m, args) \
|
|
|
68 MAYBE_INT_CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
69 #define MAYBE_LISP_DEVMETH(d, m, args) \
|
|
|
70 MAYBE_LISP_CONTYPE_METH ((d)->devmeths, m, args)
|
|
|
71
|
|
|
72 struct device
|
|
|
73 {
|
|
2720
|
74 #ifdef MC_ALLOC
|
|
|
75 struct lrecord_header header;
|
|
|
76 #else /* MC_ALLOC */
|
|
872
|
77 struct lcrecord_header header;
|
|
2720
|
78 #endif /* MC_ALLOC */
|
|
872
|
79
|
|
|
80 /* Methods for this device's console. This can also be retrieved
|
|
|
81 through device->console, but it's faster this way. */
|
|
|
82 struct console_methods *devmeths;
|
|
|
83
|
|
1204
|
84 /* Duplicates devmeths->symbol. See comment in struct console. */
|
|
934
|
85 enum console_variant devtype;
|
|
|
86
|
|
872
|
87 /* A structure of auxiliary data specific to the device type.
|
|
|
88 struct x_device is used for X window frames; defined in console-x.h
|
|
|
89 struct tty_device is used to TTY's; defined in console-tty.h */
|
|
|
90 void *device_data;
|
|
|
91
|
|
|
92 /* redisplay flags */
|
|
|
93 unsigned int buffers_changed :1;
|
|
|
94 unsigned int clip_changed :1;
|
|
|
95 unsigned int extents_changed :1;
|
|
|
96 unsigned int faces_changed :1;
|
|
|
97 unsigned int frame_changed :1;
|
|
905
|
98 unsigned int frame_layout_changed :1; /* The layout of frame
|
|
|
99 elements has changed. */
|
|
872
|
100 unsigned int glyphs_changed :1;
|
|
|
101 unsigned int subwindows_changed :1;
|
|
|
102 unsigned int subwindows_state_changed :1;
|
|
|
103 unsigned int icon_changed :1;
|
|
|
104 unsigned int menubar_changed :1;
|
|
|
105 unsigned int modeline_changed :1;
|
|
|
106 unsigned int point_changed :1;
|
|
|
107 unsigned int size_changed :1;
|
|
|
108 unsigned int gutter_changed :1;
|
|
|
109 unsigned int toolbar_changed :1;
|
|
|
110 unsigned int windows_changed :1;
|
|
|
111 unsigned int windows_structure_changed :1;
|
|
|
112
|
|
|
113 unsigned int locked :1;
|
|
|
114
|
|
|
115 /* Cache information about last pixel position translated to a
|
|
|
116 glyph. The law of locality applies very heavily here so caching
|
|
|
117 the value leads to a significant win. At the moment this is
|
|
|
118 really X specific but once we have generic mouse support it won't
|
|
|
119 be. */
|
|
|
120 struct pixel_to_glyph_translation_cache pixel_to_glyph_cache;
|
|
|
121
|
|
|
122 /* Output baud rate of device; used for redisplay decisions. */
|
|
|
123 int baud_rate;
|
|
|
124
|
|
|
125 /* sound flags */
|
|
|
126 unsigned int on_console_p :1;
|
|
|
127 unsigned int connected_to_nas_p :1;
|
|
|
128
|
|
1204
|
129 #define MARKED_SLOT(x) Lisp_Object x;
|
|
872
|
130 #include "devslots.h"
|
|
|
131
|
|
|
132 /* File descriptors for input and output. Much of the time
|
|
|
133 (but not always) these will be the same. For an X device,
|
|
|
134 these both hold the file descriptor of the socket used
|
|
|
135 to communicate with the X server. For a TTY device, these
|
|
|
136 may or may not be the same and point to the terminal that
|
|
|
137 is used for I/O. */
|
|
|
138 int infd, outfd;
|
|
|
139
|
|
|
140 /* infd and outfd are moved outside HAVE_UNIXOID_EVENT_LOOP conditionals,
|
|
|
141 because Win32, presumably the first port which does not use select()
|
|
|
142 polling, DOES have handles for a console device. -- kkm */
|
|
|
143
|
|
|
144 #ifdef HAVE_UNIXOID_EVENT_LOOP
|
|
|
145 /* holds some data necessary for SIGIO control. Perhaps this should
|
|
|
146 be inside of device_data; but it is used for both TTY's and X
|
|
|
147 device. Perhaps it should be conditionalized on SIGIO; but
|
|
|
148 this requires including syssignal.h. */
|
|
|
149 int old_fcntl_owner;
|
|
|
150 #endif
|
|
|
151 };
|
|
|
152
|
|
|
153 /* Redefine basic properties more efficiently */
|
|
|
154
|
|
|
155 #undef DEVICE_LIVE_P
|
|
|
156 #define DEVICE_LIVE_P(d) (!EQ (DEVICE_TYPE (d), Qdead))
|
|
|
157 #undef DEVICE_CONSOLE
|
|
|
158 #define DEVICE_CONSOLE(d) ((d)->console)
|
|
|
159 #undef DEVICE_FRAME_LIST
|
|
|
160 #define DEVICE_FRAME_LIST(d) ((d)->frame_list)
|
|
|
161
|
|
|
162 #define DEVICE_TYPE_P(d, type) EQ (DEVICE_TYPE (d), Q##type)
|
|
|
163
|
|
|
164 #ifdef ERROR_CHECK_TYPES
|
|
|
165 DECLARE_INLINE_HEADER (
|
|
|
166 struct device *
|
|
|
167 error_check_device_type (struct device *d, Lisp_Object sym)
|
|
|
168 )
|
|
|
169 {
|
|
|
170 assert (EQ (DEVICE_TYPE (d), sym));
|
|
|
171 return d;
|
|
|
172 }
|
|
|
173 # define DEVICE_TYPE_DATA(d, type) \
|
|
|
174 ((struct type##_device *) error_check_device_type (d, Q##type)->device_data)
|
|
|
175 #else
|
|
|
176 # define DEVICE_TYPE_DATA(d, type) \
|
|
|
177 ((struct type##_device *) (d)->device_data)
|
|
|
178 #endif
|
|
|
179
|
|
|
180 #define CHECK_DEVICE_TYPE(x, type) \
|
|
|
181 do { \
|
|
|
182 CHECK_DEVICE (x); \
|
|
|
183 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
|
|
|
184 type))) \
|
|
|
185 dead_wrong_type_argument \
|
|
|
186 (type##_console_methods->predicate_symbol, x); \
|
|
|
187 } while (0)
|
|
|
188 #define CONCHECK_DEVICE_TYPE(x, type) \
|
|
|
189 do { \
|
|
|
190 CONCHECK_DEVICE (x); \
|
|
|
191 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
|
|
|
192 type))) \
|
|
|
193 x = wrong_type_argument \
|
|
|
194 (type##_console_methods->predicate_symbol, x); \
|
|
|
195 } while (0)
|
|
|
196
|
|
|
197 #define DEVICE_DISPLAY_P(dev) \
|
|
|
198 (DEVICE_LIVE_P (dev) && \
|
|
|
199 !DEVICE_IMPL_FLAG (dev, XDEVIMPF_IS_A_PRINTER))
|
|
|
200
|
|
|
201 #define CHECK_DISPLAY_DEVICE(dev) \
|
|
|
202 do { \
|
|
|
203 CHECK_DEVICE (dev); \
|
|
|
204 if (!(DEVICEP (dev) \
|
|
|
205 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
|
|
|
206 dead_wrong_type_argument (Qdisplay, dev); \
|
|
|
207 } while (0)
|
|
|
208
|
|
|
209 #define CONCHECK_DISPLAY_DEVICE(dev) \
|
|
|
210 do { \
|
|
|
211 CONCHECK_DEVICE (dev); \
|
|
|
212 if (!(DEVICEP (dev) \
|
|
|
213 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
|
|
|
214 wrong_type_argument (Qdisplay, dev); \
|
|
|
215 } while (0)
|
|
|
216
|
|
|
217 #define DEVICE_PRINTER_P(dev) \
|
|
|
218 (DEVICE_LIVE_P (dev) && !DEVICE_DISPLAY_P (dev))
|
|
|
219
|
|
|
220 #define CHECK_PRINTER_DEVICE(dev) \
|
|
|
221 do { \
|
|
|
222 CHECK_DEVICE (dev); \
|
|
|
223 if (!(DEVICEP (dev) \
|
|
|
224 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
|
|
|
225 dead_wrong_type_argument (Qprinter, dev); \
|
|
|
226 } while (0)
|
|
|
227
|
|
|
228 #define CONCHECK_PRINTER_DEVICE(dev) \
|
|
|
229 do { \
|
|
|
230 CONCHECK_DEVICE (dev); \
|
|
|
231 if (!(DEVICEP (dev) \
|
|
|
232 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
|
|
|
233 wrong_type_argument (Qprinter, dev); \
|
|
|
234 } while (0)
|
|
|
235
|
|
|
236 /* #### These should be in the device-*.h files but there are
|
|
|
237 too many places where the abstraction is broken. Need to
|
|
|
238 fix. */
|
|
|
239
|
|
|
240 #define DEVICE_X_P(dev) CONSOLE_TYPESYM_X_P (DEVICE_TYPE (dev))
|
|
|
241 #define CHECK_X_DEVICE(z) CHECK_DEVICE_TYPE (z, x)
|
|
|
242 #define CONCHECK_X_DEVICE(z) CONCHECK_DEVICE_TYPE (z, x)
|
|
|
243
|
|
|
244 #define DEVICE_GTK_P(dev) CONSOLE_TYPESYM_GTK_P (DEVICE_TYPE (dev))
|
|
|
245 #define CHECK_GTK_DEVICE(z) CHECK_DEVICE_TYPE (z, gtk)
|
|
|
246 #define CONCHECK_GTK_DEVICE(z) CONCHECK_DEVICE_TYPE (z, gtk)
|
|
|
247
|
|
|
248 #define DEVICE_MSWINDOWS_P(dev) CONSOLE_TYPESYM_MSWINDOWS_P (DEVICE_TYPE (dev))
|
|
|
249 #define CHECK_MSWINDOWS_DEVICE(z) CHECK_DEVICE_TYPE (z, mswindows)
|
|
|
250 #define CONCHECK_MSWINDOWS_DEVICE(z) CONCHECK_DEVICE_TYPE (z, mswindows)
|
|
|
251
|
|
|
252 #define DEVICE_TTY_P(dev) CONSOLE_TYPESYM_TTY_P (DEVICE_TYPE (dev))
|
|
|
253 #define CHECK_TTY_DEVICE(z) CHECK_DEVICE_TYPE (z, tty)
|
|
|
254 #define CONCHECK_TTY_DEVICE(z) CONCHECK_DEVICE_TYPE (z, tty)
|
|
|
255
|
|
|
256 #define DEVICE_STREAM_P(dev) CONSOLE_TYPESYM_STREAM_P (DEVICE_TYPE (dev))
|
|
|
257 #define CHECK_STREAM_DEVICE(z) CHECK_DEVICE_TYPE (z, stream)
|
|
|
258 #define CONCHECK_STREAM_DEVICE(z) CONCHECK_DEVICE_TYPE (z, stream)
|
|
|
259
|
|
|
260 #define DEVICE_WIN_P(dev) CONSOLE_TYPESYM_WIN_P (DEVICE_TYPE (dev))
|
|
|
261
|
|
|
262 #define DEVICE_REDISPLAY_INFO(d) ((d)->redisplay_info)
|
|
|
263
|
|
|
264 #define DEVICE_NAME(d) ((d)->name)
|
|
|
265 #define DEVICE_CLASS(d) ((d)->device_class)
|
|
|
266 /* Catch people attempting to set this. */
|
|
|
267 #define DEVICE_SELECTED_FRAME(d) NON_LVALUE ((d)->selected_frame)
|
|
|
268 #define DEVICE_FRAME_WITH_FOCUS_REAL(d) ((d)->frame_with_focus_real)
|
|
|
269 #define DEVICE_FRAME_WITH_FOCUS_FOR_HOOKS(d) ((d)->frame_with_focus_for_hooks)
|
|
|
270 #define DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS(d) \
|
|
|
271 ((d)->frame_that_ought_to_have_focus)
|
|
|
272 #define DEVICE_USER_DEFINED_TAGS(d) ((d)->user_defined_tags)
|
|
|
273 #define DEVICE_CONNECTION(d) ((d)->connection)
|
|
|
274 #define DEVICE_CANON_CONNECTION(d) ((d)->canon_connection)
|
|
|
275 #define DEVICE_BAUD_RATE(d) ((d)->baud_rate)
|
|
|
276 #define DEVICE_INFD(d) ((d)->infd)
|
|
|
277 #define DEVICE_OUTFD(d) ((d)->outfd)
|
|
|
278 #define DEVICE_OLD_FCNTL_OWNER(d) ((d)->old_fcntl_owner)
|
|
|
279 #define DEVICE_ON_CONSOLE_P(d) ((d)->on_console_p)
|
|
|
280 #define DEVICE_CONNECTED_TO_NAS_P(d) ((d)->connected_to_nas_p)
|
|
|
281
|
|
|
282 #define LOCK_DEVICE(d) ((void) ((d)->locked = 1))
|
|
|
283 #define UNLOCK_DEVICE(d) ((void) ((d)->locked = 0))
|
|
|
284
|
|
|
285 #define INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE(d) \
|
|
|
286 ((void) ((d)->pixel_to_glyph_cache.valid = 0))
|
|
|
287
|
|
|
288 #define INVALIDATE_PIXEL_TO_GLYPH_CACHE do { \
|
|
|
289 Lisp_Object IPTGC_devcons, IPTGC_concons; \
|
|
|
290 DEVICE_LOOP_NO_BREAK (IPTGC_devcons, IPTGC_concons) \
|
|
|
291 INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE (XDEVICE (XCAR (IPTGC_devcons))); \
|
|
|
292 } while (0)
|
|
|
293
|
|
|
294 #define MARK_DEVICE_FACES_CHANGED(d) \
|
|
|
295 ((void) (faces_changed = (d)->faces_changed = 1))
|
|
|
296
|
|
|
297 #define MARK_DEVICE_GLYPHS_CHANGED(d) \
|
|
|
298 ((void) (glyphs_changed = (d)->glyphs_changed = 1))
|
|
|
299
|
|
|
300 #define MARK_DEVICE_SUBWINDOWS_CHANGED(d) \
|
|
|
301 ((void) (subwindows_changed = (d)->subwindows_changed = 1))
|
|
|
302
|
|
|
303 #define MARK_DEVICE_SUBWINDOWS_STATE_CHANGED(d) \
|
|
|
304 ((void) (subwindows_state_changed = (d)->subwindows_state_changed = 1))
|
|
|
305
|
|
|
306 #define MARK_DEVICE_TOOLBARS_CHANGED(d) \
|
|
|
307 ((void) (toolbar_changed = (d)->toolbar_changed = 1))
|
|
|
308
|
|
|
309 #define MARK_DEVICE_GUTTERS_CHANGED(d) \
|
|
|
310 ((void) (gutter_changed = (d)->gutter_changed = 1))
|
|
|
311
|
|
|
312 #define MARK_DEVICE_SIZE_CHANGED(d) \
|
|
|
313 ((void) (size_changed = (d)->size_changed = 1))
|
|
|
314
|
|
|
315 #define MARK_DEVICE_FRAMES_FACES_CHANGED(d) do { \
|
|
|
316 struct device *mdffc_d = (d); \
|
|
|
317 Lisp_Object frmcons; \
|
|
|
318 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
|
|
|
319 XFRAME (XCAR (frmcons))->faces_changed = 1; \
|
|
|
320 MARK_DEVICE_FACES_CHANGED (mdffc_d); \
|
|
|
321 } while (0)
|
|
|
322
|
|
|
323 #define MARK_DEVICE_FRAMES_GLYPHS_CHANGED(d) do { \
|
|
|
324 struct device *mdffc_d = (d); \
|
|
|
325 Lisp_Object frmcons; \
|
|
|
326 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
|
|
|
327 XFRAME (XCAR (frmcons))->glyphs_changed = 1; \
|
|
|
328 MARK_DEVICE_GLYPHS_CHANGED (mdffc_d); \
|
|
|
329 } while (0)
|
|
|
330
|
|
|
331 #define MARK_DEVICE_FRAME_CHANGED(d) \
|
|
|
332 ((void) (frame_changed = (d)->frame_changed = 1))
|
|
|
333
|
|
905
|
334 #define MARK_DEVICE_FRAME_LAYOUT_CHANGED(d) \
|
|
|
335 ((void) (frame_layout_changed = (d)->frame_layout_changed = 1))
|
|
|
336
|
|
872
|
337 #define MARK_DEVICE_WINDOWS_CHANGED(d) \
|
|
|
338 ((void) (windows_changed = (d)->windows_changed = 1))
|
|
|
339
|
|
|
340 #define MARK_DEVICE_WINDOWS_STRUCTURE_CHANGED(d) \
|
|
|
341 ((void) (windows_structure_changed = (d)->windows_structure_changed = 1))
|
|
|
342
|
|
|
343 #endif /* INCLUDED_device_impl_h_ */
|
