comparison src/device.h @ 872:79c6ff3eef26

[xemacs-hg @ 2002-06-20 21:18:01 by ben] font changes etc.; some 21.4 changes mule/mule-msw-init-late.el: Specify charset->windows-registry conversion. mule/mule-x-init.el: Delete extra mule font additions here. Put them in faces.c. cl-macs.el: Document better. font-lock.el: Move Lisp function regexp to lisp-mode.el. lisp-mode.el: Various indentation fixes: Handle flet functions better. Handle argument lists in defuns and flets. Handle quoted lists, e.g. property lists -- don't indent like function calls. Distinguish between lambdas and other lists. lisp-mode.el: Handle this form. faces.el, font-menu.el, font.el, gtk-faces.el, msw-faces.el, msw-font-menu.el, x-faces.el, x-init.el: Major overhaul of face-handling code: -- Fix lots of bogus code in msw-faces.el, msw-font-menu.el, font-menu.el that was "truenaming" font specs -- i.e. in the process of frobbing a particular field in a general user-specified font spec with wildcarded fields, sticking in particular values for all the remaining wildcarded fields. This bug was rampant everywhere except in x-faces.el (the oldest and only correctly written code). This also means that we need to work with font names at all times and not font instances, because a font instance is essentially a truenamed font. -- Total rewrite of extremely junky code in msw-faces.el. Work with names as well as font instances, and return names; stop truenaming when canonicalizing and frobbing; fix handling of the combined style field, i.e. weight/slant (also fixed in font.el). -- Totally rewrite the frobbing functions in faces.el. This time, we frob all the instantiators rather than just computing a single instance value and working backwards. That way, e.g., `bold' will work for all charsets that have bold available, rather than only for whatever charset was part of the computed font instance (another example of the truename virus). Also fix up code to look at the fallbacks (all of them) when no global value present, so we don't need to put something in the global value. Intelligently handle a request to frob a buffer locale, rather than signalling an error. When frobbing instantiators, try hard to figure out what device type is associated with them, and frob each according to its own proper device type. Correctly handle inheritance vectors given as instantiators. Preserve existing tags when putting back frobbed instantiators. Extract out general specifier-frobbing code into specifier.el. Document everything cleanly. Do lots of other things better, etc. -- Don't duplicatively set a global specification for the default font -- it's already in the fallback and we no longer need a default global specification present. Delete various code in x-faces.el and msw-faces.el that duplicated the lists of fonts in faces.c. -- init-global-faces was not being called at all under MS Windows! Major bogosity. That caused device-specific values to get stuck into all the fonts, making it very hard to change them -- setting global specs caused nothing to happen. -- Correct weight names in font.el. -- Lots more font fixups in objects*.c. Printer.el: Warning fix. specifier.el: Add more args to map-specifier. Add various "heuristic" specifier functions to aid in creation of specifier-munging code such as in faces.el. subr.el: New functions. lwlib.c: Fix warning. config.inc.samp: Clean up, add args to control fastcall (not yet supported! the changes needed are in another ws of mine), profile support, vc6 support, union-type. xemacs.dsp, xemacs.mak: Semi-major overhaul. Fix bug where dump-id was always getting recomputed, forcing a redump even when nothing changed. Add support for fastcall. Support edit-and-continue (on by default) with vc6. Use incremental linking when doing a debug compilation. Add support for profiling. Consolidate the various debug flags. Partial support for "batch-compiling" -- compiling many files on a single invocation of the compiler. Doesn't seem to help that much for me, so it's not finished or enabled by default. Remove HAVE_MSW_C_DIRED, we always do. Correct some sloppy use of directories. s/cygwin32.h: Allow pdump to work under Cygwin (mmap is broken, so need to undefine HAVE_MMAP). s/win32-common.h, s/windowsnt.h: Support for fastcall. Add WIN32_ANY for identifying all Win32 variants (Cygwin, native, MinGW). Both of these are properly used in another ws. alloc.c, balloon-x.c, buffer.c, bytecode.c, callint.c, cm.c, cmdloop.c, cmds.c, console-gtk.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console-x.h, console.c, console.h, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, device.h, devslots.h, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, editfns.c, emacs.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, extents.c, extents.h, faces.c, fileio.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gui-gtk.c, gui-msw.c, gui-x.c, gui.c, gutter.c, input-method-xlib.c, intl-encap-win32.c, intl-win32.c, keymap.c, lisp.h, macros.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h, minibuf.c, mule-charset.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-msw.h, objects-tty.c, objects-tty.h, objects-x.c, objects-x.h, objects.c, objects.h, postgresql.c, print.c, process.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, select-gtk.c, select-msw.c, select-x.c, select.c, signal.c, sound.c, specifier.c, symbols.c, syntax.c, sysdep.c, syssignal.h, syswindows.h, toolbar-common.c, toolbar-gtk.c, toolbar-msw.c, toolbar-x.c, toolbar.c, unicode.c, window.c, window.h: The following are the major changes made: (1) Separation of various header files into an external and an internal version, similar to the existing separation of process.h and procimpl.h. Eventually this should be done for all Lisp objects. The external version has the same name as currently; the internal adds -impl. The external file has XFOO() macros for objects, but the structure is opaque and defined only in the internal file. It's now reasonable to move all prototypes in lisp.h into the appropriate external file, and this should be done. Currently, separation has been done on extents.h, objects*.h, console.h, device.h, frame.h, and window.h. For c/d/f/w, the most basic properties are available in the external header file, with the macros resolving to functions. In the internal header file, the macros are redefined to directly access the structure. Also, the global MARK_FOO_CHANGED macros have been made into functions so that they can be accessed without needing to include lots of -impl headers -- they are used in almost exclusively in non-time-critical functions, and take up enough time that the function overhead will be negligible. Similarly, the function overhead from making the basic properties mentioned above into functions is negligible, and code that does heavy accessing of c/d/f/w structures inevitably ends up needing the internal header files, anyway. (2) More face changes. -- Major rewrite of objects-msw.c. Now handles wildcard specs properly, rather than "truenaming" (or even worse, signalling an error, which previously happened with some of the fallbacks if you tried to use them in make-font-instance!). -- Split charset matching of fonts into two stages -- one to find a font specifically designed for a particular charset (by examining its registry), the second to find a Unicode font that can support the charset. This needs to proceed as two complete, separate instantiations in order to work properly (otherwise many of the fonts in the HELLO page look wrong). This should also make it easy to support iso10646 (Unicode) fonts under X. -- All default values for fonts are now completely specified in the fallbacks. Stuff from mule-x-init.el has all been moved here, merged with the existing specs, and totally rethought so you get sensible results. (HELLO now looks much better!). -- Generalize the "default X/GTK device" stuff into a per-device-type "default device". -- Add mswindows-{set-}charset-registry. In time, charset<->code-page conversion functions will be removed. -- Wrap protective code around calls to compute device specifier tags, and do this computation before calling the face initialization code because the latter may need these tags to be correctly updated. (3) Other changes. EmacsFrame.c, glyphs-msw.c, eval.c, gui-x.c, intl-encap-win32.c, search.c, signal.c, toolbar-msw.c, unicode.c: Warning fixes. config.h.in: #undefs meant to be frobbed by configure *MUST* go inside of #ifndef WIN32_NO_CONFIGURE, and everything else *MUST* go outside! eval.c: Let detailed backtraces be detailed. specifier.c: Don't override user's print-string-length/print-length settings. glyphs.c: New function image-instance-instantiator. config.h.in, sysdep.c: Changes for fastcall. sysdep.c, nt.c: Fix up a previous botched patch that tried to add support for both EEXIST and EACCES. IF THE BOTCHED PATCH WENT INTO 21.4, THIS FIXUP NEEDS TO GO IN, TOO. search.c: Fix *evil* crash due to incorrect synching of syntax-cache code with 21.1. THIS SHOULD GO INTO 21.4.
author ben
date Thu, 20 Jun 2002 21:19:10 +0000
parents 84762348c6f9
children e22b0213b713
comparison
equal deleted inserted replaced
871:732270854293 872:79c6ff3eef26
1 /* Define device-object for XEmacs. 1 /* Define device-object for XEmacs.
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. 2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
3 Copyright (C) 1995 Ben Wing 3 Copyright (C) 1995, 2002 Ben Wing
4 Copyright (C) 1995 Sun Microsystems 4 Copyright (C) 1995 Sun Microsystems
5 5
6 This file is part of XEmacs. 6 This file is part of XEmacs.
7 7
8 XEmacs is free software; you can redistribute it and/or modify it 8 XEmacs is free software; you can redistribute it and/or modify it
27 #ifndef INCLUDED_device_h_ 27 #ifndef INCLUDED_device_h_
28 #define INCLUDED_device_h_ 28 #define INCLUDED_device_h_
29 29
30 #include "console.h" 30 #include "console.h"
31 31
32 /* This should really be in redisplay.h but by putting it here we 32 struct device;
33 won't have to ensure that redisplay.h is always included before
34 this file. */
35 struct pixel_to_glyph_translation_cache
36 {
37 unsigned int valid :1;
38 struct frame *frame;
39 int low_x_coord, high_x_coord, col, obj_x;
40 int low_y_coord, high_y_coord, row, obj_y;
41 struct window *w;
42 Charbpos charpos;
43 Charbpos closest;
44 Charcount modeline_closest;
45 Lisp_Object obj1, obj2;
46 int retval;
47 };
48
49 #define DEVICE_TYPE_NAME(d) ((d)->devmeths->name)
50 #define DEVICE_TYPE(d) ((d)->devmeths->symbol)
51 #define DEVICE_IMPL_FLAG(d, f) CONMETH_IMPL_FLAG ((d)->devmeths, (f))
52 #define DEVICE_SPECIFIC_FRAME_PROPS(d) \
53 ((d)->devmeths->device_specific_frame_props)
54
55 /******** Accessing / calling a device method *********/
56
57 #define HAS_DEVMETH_P(d, m) HAS_CONTYPE_METH_P ((d)->devmeths, m)
58 #define DEVMETH(d, m, args) CONTYPE_METH ((d)->devmeths, m, args)
59 #define MAYBE_DEVMETH(d, m, args) MAYBE_CONTYPE_METH ((d)->devmeths, m, args)
60 #define DEVMETH_OR_GIVEN(d, m, args, given) \
61 CONTYPE_METH_OR_GIVEN((d)->devmeths, m, args, given)
62 #define MAYBE_INT_DEVMETH(d, m, args) \
63 MAYBE_INT_CONTYPE_METH ((d)->devmeths, m, args)
64 #define MAYBE_LISP_DEVMETH(d, m, args) \
65 MAYBE_LISP_CONTYPE_METH ((d)->devmeths, m, args)
66
67 struct device
68 {
69 struct lcrecord_header header;
70
71 /* Methods for this device's console. This can also be retrieved
72 through device->console, but it's faster this way. */
73 struct console_methods *devmeths;
74
75 /* A structure of auxiliary data specific to the device type.
76 struct x_device is used for X window frames; defined in console-x.h
77 struct tty_device is used to TTY's; defined in console-tty.h */
78 void *device_data;
79
80 /* redisplay flags */
81 unsigned int buffers_changed :1;
82 unsigned int clip_changed :1;
83 unsigned int extents_changed :1;
84 unsigned int faces_changed :1;
85 unsigned int frame_changed :1;
86 unsigned int glyphs_changed :1;
87 unsigned int subwindows_changed :1;
88 unsigned int subwindows_state_changed :1;
89 unsigned int icon_changed :1;
90 unsigned int menubar_changed :1;
91 unsigned int modeline_changed :1;
92 unsigned int point_changed :1;
93 unsigned int size_changed :1;
94 unsigned int gutter_changed :1;
95 unsigned int toolbar_changed :1;
96 unsigned int windows_changed :1;
97 unsigned int windows_structure_changed :1;
98
99 unsigned int locked :1;
100
101 /* Cache information about last pixel position translated to a
102 glyph. The law of locality applies very heavily here so caching
103 the value leads to a significant win. At the moment this is
104 really X specific but once we have generic mouse support it won't
105 be. */
106 struct pixel_to_glyph_translation_cache pixel_to_glyph_cache;
107
108 /* Output baud rate of device; used for redisplay decisions. */
109 int baud_rate;
110
111 /* sound flags */
112 unsigned int on_console_p :1;
113 unsigned int connected_to_nas_p :1;
114
115 #define MARKED_SLOT(x) Lisp_Object x
116 #include "devslots.h"
117
118 /* File descriptors for input and output. Much of the time
119 (but not always) these will be the same. For an X device,
120 these both hold the file descriptor of the socket used
121 to communicate with the X server. For a TTY device, these
122 may or may not be the same and point to the terminal that
123 is used for I/O. */
124 int infd, outfd;
125
126 /* infd and outfd are moved outside HAVE_UNIXOID_EVENT_LOOP conditionals,
127 because Win32, presumably the first port which does not use select()
128 polling, DOES have handles for a console device. -- kkm */
129
130 #ifdef HAVE_UNIXOID_EVENT_LOOP
131 /* holds some data necessary for SIGIO control. Perhaps this should
132 be inside of device_data; but it is used for both TTY's and X
133 device. Perhaps it should be conditionalized on SIGIO; but
134 this requires including syssignal.h. */
135 int old_fcntl_owner;
136 #endif
137 };
138 33
139 DECLARE_LRECORD (device, struct device); 34 DECLARE_LRECORD (device, struct device);
140 #define XDEVICE(x) XRECORD (x, device, struct device) 35 #define XDEVICE(x) XRECORD (x, device, struct device)
141 #define wrap_device(p) wrap_record (p, device) 36 #define wrap_device(p) wrap_record (p, device)
142 #define DEVICEP(x) RECORDP (x, device) 37 #define DEVICEP(x) RECORDP (x, device)
143 #define CHECK_DEVICE(x) CHECK_RECORD (x, device) 38 #define CHECK_DEVICE(x) CHECK_RECORD (x, device)
144 #define CONCHECK_DEVICE(x) CONCHECK_RECORD (x, device) 39 #define CONCHECK_DEVICE(x) CONCHECK_RECORD (x, device)
40
41 /* Basic properties available to non-privileged users; redefined in
42 device-impl.h */
43
44 int device_live_p (struct device *d);
45 Lisp_Object device_console (struct device *d);
46 Lisp_Object device_frame_list (struct device *d);
47
48 #define DEVICE_LIVE_P(d) device_live_p (d)
49 #define DEVICE_CONSOLE(d) device_console (d)
50 #define DEVICE_FRAME_LIST(d) device_frame_list (d)
51
52 #define DEVICE_XCONSOLE(d) XCONSOLE (DEVICE_CONSOLE (d))
53
54 #define XDEVICE_CONSOLE(d) DEVICE_CONSOLE (XDEVICE (d))
55 #define XDEVICE_XCONSOLE(d) XCONSOLE (XDEVICE_XCONSOLE (d))
145 56
146 #define CHECK_LIVE_DEVICE(x) do { \ 57 #define CHECK_LIVE_DEVICE(x) do { \
147 CHECK_DEVICE (x); \ 58 CHECK_DEVICE (x); \
148 if (! DEVICE_LIVE_P (XDEVICE (x))) \ 59 if (! DEVICE_LIVE_P (XDEVICE (x))) \
149 dead_wrong_type_argument (Qdevice_live_p, (x)); \ 60 dead_wrong_type_argument (Qdevice_live_p, (x)); \
151 #define CONCHECK_LIVE_DEVICE(x) do { \ 62 #define CONCHECK_LIVE_DEVICE(x) do { \
152 CONCHECK_DEVICE (x); \ 63 CONCHECK_DEVICE (x); \
153 if (! DEVICE_LIVE_P (XDEVICE (x))) \ 64 if (! DEVICE_LIVE_P (XDEVICE (x))) \
154 x = wrong_type_argument (Qdevice_live_p, (x)); \ 65 x = wrong_type_argument (Qdevice_live_p, (x)); \
155 } while (0) 66 } while (0)
156
157 #define DEVICE_TYPE_P(d, type) EQ (DEVICE_TYPE (d), Q##type)
158
159 #ifdef ERROR_CHECK_TYPES
160 DECLARE_INLINE_HEADER (
161 struct device *
162 error_check_device_type (struct device *d, Lisp_Object sym)
163 )
164 {
165 assert (EQ (DEVICE_TYPE (d), sym));
166 return d;
167 }
168 # define DEVICE_TYPE_DATA(d, type) \
169 ((struct type##_device *) error_check_device_type (d, Q##type)->device_data)
170 #else
171 # define DEVICE_TYPE_DATA(d, type) \
172 ((struct type##_device *) (d)->device_data)
173 #endif
174
175 #define CHECK_DEVICE_TYPE(x, type) \
176 do { \
177 CHECK_DEVICE (x); \
178 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
179 type))) \
180 dead_wrong_type_argument \
181 (type##_console_methods->predicate_symbol, x); \
182 } while (0)
183 #define CONCHECK_DEVICE_TYPE(x, type) \
184 do { \
185 CONCHECK_DEVICE (x); \
186 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
187 type))) \
188 x = wrong_type_argument \
189 (type##_console_methods->predicate_symbol, x); \
190 } while (0)
191
192 #define DEVICE_DISPLAY_P(dev) \
193 (DEVICE_LIVE_P (dev) && \
194 !DEVICE_IMPL_FLAG (dev, XDEVIMPF_IS_A_PRINTER))
195
196 #define CHECK_DISPLAY_DEVICE(dev) \
197 do { \
198 CHECK_DEVICE (dev); \
199 if (!(DEVICEP (dev) \
200 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
201 dead_wrong_type_argument (Qdisplay, dev); \
202 } while (0)
203
204 #define CONCHECK_DISPLAY_DEVICE(dev) \
205 do { \
206 CONCHECK_DEVICE (dev); \
207 if (!(DEVICEP (dev) \
208 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
209 wrong_type_argument (Qdisplay, dev); \
210 } while (0)
211
212 #define DEVICE_PRINTER_P(dev) \
213 (DEVICE_LIVE_P (dev) && !DEVICE_DISPLAY_P (dev))
214
215 #define CHECK_PRINTER_DEVICE(dev) \
216 do { \
217 CHECK_DEVICE (dev); \
218 if (!(DEVICEP (dev) \
219 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
220 dead_wrong_type_argument (Qprinter, dev); \
221 } while (0)
222
223 #define CONCHECK_PRINTER_DEVICE(dev) \
224 do { \
225 CONCHECK_DEVICE (dev); \
226 if (!(DEVICEP (dev) \
227 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
228 wrong_type_argument (Qprinter, dev); \
229 } while (0)
230
231 /* #### These should be in the device-*.h files but there are
232 too many places where the abstraction is broken. Need to
233 fix. */
234
235 #define DEVICE_X_P(dev) CONSOLE_TYPESYM_X_P (DEVICE_TYPE (dev))
236 #define CHECK_X_DEVICE(z) CHECK_DEVICE_TYPE (z, x)
237 #define CONCHECK_X_DEVICE(z) CONCHECK_DEVICE_TYPE (z, x)
238
239 #define DEVICE_GTK_P(dev) CONSOLE_TYPESYM_GTK_P (DEVICE_TYPE (dev))
240 #define CHECK_GTK_DEVICE(z) CHECK_DEVICE_TYPE (z, gtk)
241 #define CONCHECK_GTK_DEVICE(z) CONCHECK_DEVICE_TYPE (z, gtk)
242
243 #define DEVICE_MSWINDOWS_P(dev) CONSOLE_TYPESYM_MSWINDOWS_P (DEVICE_TYPE (dev))
244 #define CHECK_MSWINDOWS_DEVICE(z) CHECK_DEVICE_TYPE (z, mswindows)
245 #define CONCHECK_MSWINDOWS_DEVICE(z) CONCHECK_DEVICE_TYPE (z, mswindows)
246
247 #define DEVICE_TTY_P(dev) CONSOLE_TYPESYM_TTY_P (DEVICE_TYPE (dev))
248 #define CHECK_TTY_DEVICE(z) CHECK_DEVICE_TYPE (z, tty)
249 #define CONCHECK_TTY_DEVICE(z) CONCHECK_DEVICE_TYPE (z, tty)
250
251 #define DEVICE_STREAM_P(dev) CONSOLE_TYPESYM_STREAM_P (DEVICE_TYPE (dev))
252 #define CHECK_STREAM_DEVICE(z) CHECK_DEVICE_TYPE (z, stream)
253 #define CONCHECK_STREAM_DEVICE(z) CONCHECK_DEVICE_TYPE (z, stream)
254
255 #define DEVICE_WIN_P(dev) CONSOLE_TYPESYM_WIN_P (DEVICE_TYPE (dev))
256
257 EXFUN (Fdevice_console, 1);
258 EXFUN (Fdevice_name, 1);
259 EXFUN (Ffind_device, 2);
260 EXFUN (Fmake_device, 3);
261 EXFUN (Fselected_device, 1);
262
263 extern Lisp_Object Qcreate_device_hook, Qdelete_device_hook, Qgrayscale;
264 extern Lisp_Object Qinit_post_tty_win, Qmono, Vdefault_x_device, Vdefault_gtk_device;
265 extern Lisp_Object Vdevice_class_list;
266
267 int valid_device_class_p (Lisp_Object class);
268
269 #define DEVICE_LIVE_P(d) (!EQ (DEVICE_TYPE (d), Qdead))
270
271 #define DEVICE_REDISPLAY_INFO(d) ((d)->redisplay_info)
272
273 #define DEVICE_NAME(d) ((d)->name)
274 #define DEVICE_CLASS(d) ((d)->device_class)
275 /* Catch people attempting to set this. */
276 #define DEVICE_SELECTED_FRAME(d) NON_LVALUE ((d)->selected_frame)
277 #define DEVICE_FRAME_WITH_FOCUS_REAL(d) ((d)->frame_with_focus_real)
278 #define DEVICE_FRAME_WITH_FOCUS_FOR_HOOKS(d) ((d)->frame_with_focus_for_hooks)
279 #define DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS(d) \
280 ((d)->frame_that_ought_to_have_focus)
281 #define DEVICE_USER_DEFINED_TAGS(d) ((d)->user_defined_tags)
282 #define DEVICE_FRAME_LIST(d) ((d)->frame_list)
283 #define DEVICE_CONNECTION(d) ((d)->connection)
284 #define DEVICE_CANON_CONNECTION(d) ((d)->canon_connection)
285 #define DEVICE_CONSOLE(d) ((d)->console)
286 #define DEVICE_BAUD_RATE(d) ((d)->baud_rate)
287 #define DEVICE_INFD(d) ((d)->infd)
288 #define DEVICE_OUTFD(d) ((d)->outfd)
289 #define DEVICE_OLD_FCNTL_OWNER(d) ((d)->old_fcntl_owner)
290 #define DEVICE_ON_CONSOLE_P(d) ((d)->on_console_p)
291 #define DEVICE_CONNECTED_TO_NAS_P(d) ((d)->connected_to_nas_p)
292
293 #define LOCK_DEVICE(d) ((void) ((d)->locked = 1))
294 #define UNLOCK_DEVICE(d) ((void) ((d)->locked = 0))
295
296 #define INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE(d) \
297 ((void) ((d)->pixel_to_glyph_cache.valid = 0))
298
299 #define INVALIDATE_PIXEL_TO_GLYPH_CACHE do { \
300 Lisp_Object IPTGC_devcons, IPTGC_concons; \
301 DEVICE_LOOP_NO_BREAK (IPTGC_devcons, IPTGC_concons) \
302 INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE (XDEVICE (XCAR (IPTGC_devcons))); \
303 } while (0)
304
305 #define MARK_DEVICE_FACES_CHANGED(d) \
306 ((void) (faces_changed = (d)->faces_changed = 1))
307
308 #define MARK_DEVICE_GLYPHS_CHANGED(d) \
309 ((void) (glyphs_changed = (d)->glyphs_changed = 1))
310
311 #define MARK_DEVICE_SUBWINDOWS_CHANGED(d) \
312 ((void) (subwindows_changed = (d)->subwindows_changed = 1))
313
314 #define MARK_DEVICE_SUBWINDOWS_STATE_CHANGED(d) \
315 ((void) (subwindows_state_changed = (d)->subwindows_state_changed = 1))
316
317 #define MARK_DEVICE_TOOLBARS_CHANGED(d) \
318 ((void) (toolbar_changed = (d)->toolbar_changed = 1))
319
320 #define MARK_DEVICE_GUTTERS_CHANGED(d) \
321 ((void) (gutter_changed = (d)->gutter_changed = 1))
322
323 #define MARK_DEVICE_SIZE_CHANGED(d) \
324 ((void) (size_changed = (d)->size_changed = 1))
325
326 #define MARK_DEVICE_FRAMES_FACES_CHANGED(d) do { \
327 struct device *mdffc_d = (d); \
328 Lisp_Object frmcons; \
329 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
330 XFRAME (XCAR (frmcons))->faces_changed = 1; \
331 MARK_DEVICE_FACES_CHANGED (mdffc_d); \
332 } while (0)
333
334 #define MARK_DEVICE_FRAMES_GLYPHS_CHANGED(d) do { \
335 struct device *mdffc_d = (d); \
336 Lisp_Object frmcons; \
337 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
338 XFRAME (XCAR (frmcons))->glyphs_changed = 1; \
339 MARK_DEVICE_GLYPHS_CHANGED (mdffc_d); \
340 } while (0)
341
342 #define MARK_DEVICE_FRAME_CHANGED(d) \
343 ((void) (frame_changed = (d)->frame_changed = 1))
344
345 #define MARK_DEVICE_WINDOWS_CHANGED(d) \
346 ((void) (windows_changed = (d)->windows_changed = 1))
347
348 #define MARK_DEVICE_WINDOWS_STRUCTURE_CHANGED(d) \
349 ((void) (windows_structure_changed = (d)->windows_structure_changed = 1))
350 67
351 /* #### unify this with DOMAIN_DEVICE once the latter has image instances 68 /* #### unify this with DOMAIN_DEVICE once the latter has image instances
352 expunged from it. */ 69 expunged from it. */
353 /* This turns out to be used heavily so we make it a macro to make it 70 /* This turns out to be used heavily so we make it a macro to make it
354 inline. Also, the majority of the time the object will turn out to 71 inline. Also, the majority of the time the object will turn out to
369 LIST_LOOP (frmcons, DEVICE_FRAME_LIST (d)) 86 LIST_LOOP (frmcons, DEVICE_FRAME_LIST (d))
370 #define CONSOLE_FRAME_LOOP_NO_BREAK(frmcons, devcons, con) \ 87 #define CONSOLE_FRAME_LOOP_NO_BREAK(frmcons, devcons, con) \
371 CONSOLE_DEVICE_LOOP (devcons, con) \ 88 CONSOLE_DEVICE_LOOP (devcons, con) \
372 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons))) 89 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
373 90
91 EXFUN (Fdevice_console, 1);
92 EXFUN (Fdevice_name, 1);
93 EXFUN (Ffind_device, 2);
94 EXFUN (Fmake_device, 3);
95 EXFUN (Fselected_device, 1);
96
97 extern Lisp_Object Qcreate_device_hook, Qdelete_device_hook, Qgrayscale;
98 extern Lisp_Object Qinit_post_tty_win, Qmono;
99 extern Lisp_Object Vdevice_class_list;
100
101 int valid_device_class_p (Lisp_Object class);
102
374 void select_device_1 (Lisp_Object); 103 void select_device_1 (Lisp_Object);
375 struct device *decode_device (Lisp_Object); 104 struct device *decode_device (Lisp_Object);
376 void handle_asynch_device_change (void); 105 void handle_asynch_device_change (void);
377 void call_critical_lisp_code (struct device *d, Lisp_Object function, 106 Lisp_Object call_critical_lisp_code (struct device *d, Lisp_Object function,
378 Lisp_Object object); 107 Lisp_Object object);
379 void delete_device_internal (struct device *d, int force, 108 void delete_device_internal (struct device *d, int force,
380 int called_from_delete_console, 109 int called_from_delete_console,
381 int from_io_error); 110 int from_io_error);
382 void io_error_delete_device (Lisp_Object device); 111 void io_error_delete_device (Lisp_Object device);
383 Lisp_Object find_nonminibuffer_frame_not_on_device (Lisp_Object device); 112 Lisp_Object find_nonminibuffer_frame_not_on_device (Lisp_Object device);
384 void set_device_selected_frame (struct device *d, Lisp_Object frame); 113 void set_device_selected_frame (struct device *d, Lisp_Object frame);
385 Lisp_Object domain_device_type (Lisp_Object domain); 114 Lisp_Object domain_device_type (Lisp_Object domain);
386 int window_system_pixelated_geometry (Lisp_Object domain); 115 int window_system_pixelated_geometry (Lisp_Object domain);
387 116
117 Lisp_Object get_default_device (Lisp_Object type);
118 void set_default_device (Lisp_Object type, Lisp_Object device);
119 void clear_default_devices (void);
120
388 #endif /* INCLUDED_device_h_ */ 121 #endif /* INCLUDED_device_h_ */