annotate src/device.h @ 859:84762348c6f9

[xemacs-hg @ 2002-06-01 08:06:46 by ben] fix process problems etc. process.el: Insert before, not after, point. buffer.c: Fix bug noted by someone. console-tty.h, device.h, emacs.c, filelock.c, nt.c, process-nt.c, process-unix.c, process.c, redisplay-tty.c, sysdep.c, sysproc.h, win32.c: Redo problem with syssignal.h/sysproc.h dependence noted by Didier -- rather than require one included before the other (error-prone), just include syssignal.h from sysproc.h where it's needed. inline.c: Include sysfile.h due to inline funs in that header. extents.c: Fix bug noted by Andrew Cohen <cohen@andy.bu.edu>. process-unix.c: Fix other bug noted by Andrew Cohen <cohen@andy.bu.edu>. process.c: Add process-has-separate-stderr-p, used by call-process-internal.
author ben
date Sat, 01 Jun 2002 08:06:55 +0000
parents 6728e641994e
children 79c6ff3eef26
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Define device-object for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1995 Ben Wing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 Copyright (C) 1995 Sun Microsystems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 /* Written by Chuck Thompson and Ben Wing. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
27 #ifndef INCLUDED_device_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
28 #define INCLUDED_device_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #include "console.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 /* This should really be in redisplay.h but by putting it here we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 won't have to ensure that redisplay.h is always included before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 this file. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 struct pixel_to_glyph_translation_cache
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 unsigned int valid :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 int low_x_coord, high_x_coord, col, obj_x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 int low_y_coord, high_y_coord, row, obj_y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 struct window *w;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
42 Charbpos charpos;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
43 Charbpos closest;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 Charcount modeline_closest;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 Lisp_Object obj1, obj2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 #define DEVICE_TYPE_NAME(d) ((d)->devmeths->name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #define DEVICE_TYPE(d) ((d)->devmeths->symbol)
545
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
51 #define DEVICE_IMPL_FLAG(d, f) CONMETH_IMPL_FLAG ((d)->devmeths, (f))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 #define DEVICE_SPECIFIC_FRAME_PROPS(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 ((d)->devmeths->device_specific_frame_props)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 /******** Accessing / calling a device method *********/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 #define HAS_DEVMETH_P(d, m) HAS_CONTYPE_METH_P ((d)->devmeths, m)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 #define DEVMETH(d, m, args) CONTYPE_METH ((d)->devmeths, m, args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #define MAYBE_DEVMETH(d, m, args) MAYBE_CONTYPE_METH ((d)->devmeths, m, args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 #define DEVMETH_OR_GIVEN(d, m, args, given) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 CONTYPE_METH_OR_GIVEN((d)->devmeths, m, args, given)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 #define MAYBE_INT_DEVMETH(d, m, args) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 MAYBE_INT_CONTYPE_METH ((d)->devmeths, m, args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 #define MAYBE_LISP_DEVMETH(d, m, args) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 MAYBE_LISP_CONTYPE_METH ((d)->devmeths, m, args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 struct device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 /* Methods for this device's console. This can also be retrieved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 through device->console, but it's faster this way. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 struct console_methods *devmeths;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 /* A structure of auxiliary data specific to the device type.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 struct x_device is used for X window frames; defined in console-x.h
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 struct tty_device is used to TTY's; defined in console-tty.h */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 void *device_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 /* redisplay flags */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 unsigned int buffers_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 unsigned int clip_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 unsigned int extents_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 unsigned int faces_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 unsigned int frame_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 unsigned int glyphs_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 unsigned int subwindows_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 unsigned int subwindows_state_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 unsigned int icon_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 unsigned int menubar_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 unsigned int modeline_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 unsigned int point_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 unsigned int size_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 unsigned int gutter_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 unsigned int toolbar_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 unsigned int windows_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 unsigned int windows_structure_changed :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 unsigned int locked :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 /* Cache information about last pixel position translated to a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 glyph. The law of locality applies very heavily here so caching
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 the value leads to a significant win. At the moment this is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 really X specific but once we have generic mouse support it won't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 be. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 struct pixel_to_glyph_translation_cache pixel_to_glyph_cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 /* Output baud rate of device; used for redisplay decisions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 int baud_rate;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 /* sound flags */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 unsigned int on_console_p :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 unsigned int connected_to_nas_p :1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 545
diff changeset
115 #define MARKED_SLOT(x) Lisp_Object x
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 545
diff changeset
116 #include "devslots.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 /* File descriptors for input and output. Much of the time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 (but not always) these will be the same. For an X device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 these both hold the file descriptor of the socket used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 to communicate with the X server. For a TTY device, these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 may or may not be the same and point to the terminal that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 is used for I/O. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 int infd, outfd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 /* infd and outfd are moved outside HAVE_UNIXOID_EVENT_LOOP conditionals,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 because Win32, presumably the first port which does not use select()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 polling, DOES have handles for a console device. -- kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 #ifdef HAVE_UNIXOID_EVENT_LOOP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 /* holds some data necessary for SIGIO control. Perhaps this should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 be inside of device_data; but it is used for both TTY's and X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 device. Perhaps it should be conditionalized on SIGIO; but
859
84762348c6f9 [xemacs-hg @ 2002-06-01 08:06:46 by ben]
ben
parents: 826
diff changeset
134 this requires including syssignal.h. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 int old_fcntl_owner;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 DECLARE_LRECORD (device, struct device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 #define XDEVICE(x) XRECORD (x, device, struct device)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 545
diff changeset
141 #define wrap_device(p) wrap_record (p, device)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 #define DEVICEP(x) RECORDP (x, device)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 #define CHECK_DEVICE(x) CHECK_RECORD (x, device)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 #define CONCHECK_DEVICE(x) CONCHECK_RECORD (x, device)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 #define CHECK_LIVE_DEVICE(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 CHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 if (! DEVICE_LIVE_P (XDEVICE (x))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 dead_wrong_type_argument (Qdevice_live_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 #define CONCHECK_LIVE_DEVICE(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 CONCHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 if (! DEVICE_LIVE_P (XDEVICE (x))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 x = wrong_type_argument (Qdevice_live_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 #define DEVICE_TYPE_P(d, type) EQ (DEVICE_TYPE (d), Q##type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
159 #ifdef ERROR_CHECK_TYPES
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
160 DECLARE_INLINE_HEADER (
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
161 struct device *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 error_check_device_type (struct device *d, Lisp_Object sym)
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
163 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 assert (EQ (DEVICE_TYPE (d), sym));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 return d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 # define DEVICE_TYPE_DATA(d, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 ((struct type##_device *) error_check_device_type (d, Q##type)->device_data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 # define DEVICE_TYPE_DATA(d, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 ((struct type##_device *) (d)->device_data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 #define CHECK_DEVICE_TYPE(x, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 CHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 type))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 dead_wrong_type_argument \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 (type##_console_methods->predicate_symbol, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 #define CONCHECK_DEVICE_TYPE(x, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 CONCHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 type))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 x = wrong_type_argument \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 (type##_console_methods->predicate_symbol, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
192 #define DEVICE_DISPLAY_P(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
193 (DEVICE_LIVE_P (dev) && \
545
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
194 !DEVICE_IMPL_FLAG (dev, XDEVIMPF_IS_A_PRINTER))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
195
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
196 #define CHECK_DISPLAY_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
197 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
198 CHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
199 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
200 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
201 dead_wrong_type_argument (Qdisplay, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
202 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
203
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
204 #define CONCHECK_DISPLAY_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
205 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
206 CONCHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
207 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
208 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
209 wrong_type_argument (Qdisplay, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
210 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
211
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
212 #define DEVICE_PRINTER_P(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
213 (DEVICE_LIVE_P (dev) && !DEVICE_DISPLAY_P (dev))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
214
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
215 #define CHECK_PRINTER_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
216 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
217 CHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
218 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
219 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
220 dead_wrong_type_argument (Qprinter, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
221 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
222
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
223 #define CONCHECK_PRINTER_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
224 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
225 CONCHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
226 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
227 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
228 wrong_type_argument (Qprinter, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
229 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
230
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 /* #### These should be in the device-*.h files but there are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 too many places where the abstraction is broken. Need to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 fix. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 #define DEVICE_X_P(dev) CONSOLE_TYPESYM_X_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 #define CHECK_X_DEVICE(z) CHECK_DEVICE_TYPE (z, x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 #define CONCHECK_X_DEVICE(z) CONCHECK_DEVICE_TYPE (z, x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
239 #define DEVICE_GTK_P(dev) CONSOLE_TYPESYM_GTK_P (DEVICE_TYPE (dev))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
240 #define CHECK_GTK_DEVICE(z) CHECK_DEVICE_TYPE (z, gtk)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
241 #define CONCHECK_GTK_DEVICE(z) CONCHECK_DEVICE_TYPE (z, gtk)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
242
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 #define DEVICE_MSWINDOWS_P(dev) CONSOLE_TYPESYM_MSWINDOWS_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 #define CHECK_MSWINDOWS_DEVICE(z) CHECK_DEVICE_TYPE (z, mswindows)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 #define CONCHECK_MSWINDOWS_DEVICE(z) CONCHECK_DEVICE_TYPE (z, mswindows)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 #define DEVICE_TTY_P(dev) CONSOLE_TYPESYM_TTY_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 #define CHECK_TTY_DEVICE(z) CHECK_DEVICE_TYPE (z, tty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 #define CONCHECK_TTY_DEVICE(z) CONCHECK_DEVICE_TYPE (z, tty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 #define DEVICE_STREAM_P(dev) CONSOLE_TYPESYM_STREAM_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 #define CHECK_STREAM_DEVICE(z) CHECK_DEVICE_TYPE (z, stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 #define CONCHECK_STREAM_DEVICE(z) CONCHECK_DEVICE_TYPE (z, stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 #define DEVICE_WIN_P(dev) CONSOLE_TYPESYM_WIN_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 EXFUN (Fdevice_console, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 EXFUN (Fdevice_name, 1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
259 EXFUN (Ffind_device, 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 EXFUN (Fmake_device, 3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 EXFUN (Fselected_device, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 extern Lisp_Object Qcreate_device_hook, Qdelete_device_hook, Qgrayscale;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
264 extern Lisp_Object Qinit_post_tty_win, Qmono, Vdefault_x_device, Vdefault_gtk_device;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 extern Lisp_Object Vdevice_class_list;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 int valid_device_class_p (Lisp_Object class);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 #define DEVICE_LIVE_P(d) (!EQ (DEVICE_TYPE (d), Qdead))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 #define DEVICE_REDISPLAY_INFO(d) ((d)->redisplay_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 #define DEVICE_NAME(d) ((d)->name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 #define DEVICE_CLASS(d) ((d)->device_class)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 /* Catch people attempting to set this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 #define DEVICE_SELECTED_FRAME(d) NON_LVALUE ((d)->selected_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 #define DEVICE_FRAME_WITH_FOCUS_REAL(d) ((d)->frame_with_focus_real)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 #define DEVICE_FRAME_WITH_FOCUS_FOR_HOOKS(d) ((d)->frame_with_focus_for_hooks)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 #define DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 ((d)->frame_that_ought_to_have_focus)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 #define DEVICE_USER_DEFINED_TAGS(d) ((d)->user_defined_tags)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 #define DEVICE_FRAME_LIST(d) ((d)->frame_list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 #define DEVICE_CONNECTION(d) ((d)->connection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 #define DEVICE_CANON_CONNECTION(d) ((d)->canon_connection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 #define DEVICE_CONSOLE(d) ((d)->console)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 #define DEVICE_BAUD_RATE(d) ((d)->baud_rate)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 #define DEVICE_INFD(d) ((d)->infd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 #define DEVICE_OUTFD(d) ((d)->outfd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 #define DEVICE_OLD_FCNTL_OWNER(d) ((d)->old_fcntl_owner)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 #define DEVICE_ON_CONSOLE_P(d) ((d)->on_console_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 #define DEVICE_CONNECTED_TO_NAS_P(d) ((d)->connected_to_nas_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 #define LOCK_DEVICE(d) ((void) ((d)->locked = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 #define UNLOCK_DEVICE(d) ((void) ((d)->locked = 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 #define INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 ((void) ((d)->pixel_to_glyph_cache.valid = 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 #define INVALIDATE_PIXEL_TO_GLYPH_CACHE do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 Lisp_Object IPTGC_devcons, IPTGC_concons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 DEVICE_LOOP_NO_BREAK (IPTGC_devcons, IPTGC_concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE (XDEVICE (XCAR (IPTGC_devcons))); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 #define MARK_DEVICE_FACES_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 ((void) (faces_changed = (d)->faces_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 #define MARK_DEVICE_GLYPHS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 ((void) (glyphs_changed = (d)->glyphs_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 #define MARK_DEVICE_SUBWINDOWS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 ((void) (subwindows_changed = (d)->subwindows_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 #define MARK_DEVICE_SUBWINDOWS_STATE_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 ((void) (subwindows_state_changed = (d)->subwindows_state_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 #define MARK_DEVICE_TOOLBARS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 ((void) (toolbar_changed = (d)->toolbar_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 #define MARK_DEVICE_GUTTERS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 ((void) (gutter_changed = (d)->gutter_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 #define MARK_DEVICE_SIZE_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 ((void) (size_changed = (d)->size_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 #define MARK_DEVICE_FRAMES_FACES_CHANGED(d) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 struct device *mdffc_d = (d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 Lisp_Object frmcons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 XFRAME (XCAR (frmcons))->faces_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 MARK_DEVICE_FACES_CHANGED (mdffc_d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 #define MARK_DEVICE_FRAMES_GLYPHS_CHANGED(d) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 struct device *mdffc_d = (d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 Lisp_Object frmcons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 XFRAME (XCAR (frmcons))->glyphs_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 MARK_DEVICE_GLYPHS_CHANGED (mdffc_d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 #define MARK_DEVICE_FRAME_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 ((void) (frame_changed = (d)->frame_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 #define MARK_DEVICE_WINDOWS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 ((void) (windows_changed = (d)->windows_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 #define MARK_DEVICE_WINDOWS_STRUCTURE_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 ((void) (windows_structure_changed = (d)->windows_structure_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
351 /* #### unify this with DOMAIN_DEVICE once the latter has image instances
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
352 expunged from it. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 /* This turns out to be used heavily so we make it a macro to make it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 inline. Also, the majority of the time the object will turn out to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 be a window so we move it from being checked last to being checked
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 first. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 #define DFW_DEVICE(obj) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 (WINDOWP (obj) ? WINDOW_DEVICE (XWINDOW (obj)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 : (FRAMEP (obj) ? FRAME_DEVICE (XFRAME (obj)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 : (DEVICEP (obj) ? obj \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 : Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 /* NO_BREAK means that "break" doesn't do what you think it does!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 Use goto instead. "continue" is OK, though. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 #define DEVICE_LOOP_NO_BREAK(devcons, concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 CONSOLE_LOOP (concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 CONSOLE_DEVICE_LOOP (devcons, XCONSOLE (XCAR (concons)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 #define DEVICE_FRAME_LOOP(frmcons, d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 LIST_LOOP (frmcons, DEVICE_FRAME_LIST (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 #define CONSOLE_FRAME_LOOP_NO_BREAK(frmcons, devcons, con) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 CONSOLE_DEVICE_LOOP (devcons, con) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 void select_device_1 (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 struct device *decode_device (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 void handle_asynch_device_change (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 void call_critical_lisp_code (struct device *d, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 Lisp_Object object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 void delete_device_internal (struct device *d, int force,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 int called_from_delete_console,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 int from_io_error);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 void io_error_delete_device (Lisp_Object device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 Lisp_Object find_nonminibuffer_frame_not_on_device (Lisp_Object device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 void set_device_selected_frame (struct device *d, Lisp_Object frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 Lisp_Object domain_device_type (Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 int window_system_pixelated_geometry (Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
388 #endif /* INCLUDED_device_h_ */