annotate src/device.h @ 678:8e8a7b205142

[xemacs-hg @ 2001-11-29 17:00:38 by youngs] 2001-11-28 Steve Youngs <youngs@xemacs.org> * package-get.el (package-get-locate-index-file): Also search the core etc/ directory for the package index file if it can't be found in ~/.xemacs/.
author youngs
date Thu, 29 Nov 2001 17:00:39 +0000
parents fdefd0186b75
children e38acbeb1cae
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;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 617
diff changeset
42 Charbpos charbpos;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 this requires including syssignal.h and systty.h. */
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)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 #define XSETDEVICE(x, p) XSETRECORD (x, p, device)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 545
diff changeset
142 #define wrap_device(p) wrap_record (p, device)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 #define DEVICEP(x) RECORDP (x, device)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 #define CHECK_DEVICE(x) CHECK_RECORD (x, device)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 #define CONCHECK_DEVICE(x) CONCHECK_RECORD (x, device)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 #define CHECK_LIVE_DEVICE(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 CHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 if (! DEVICE_LIVE_P (XDEVICE (x))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 dead_wrong_type_argument (Qdevice_live_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 #define CONCHECK_LIVE_DEVICE(x) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 CONCHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 if (! DEVICE_LIVE_P (XDEVICE (x))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 x = wrong_type_argument (Qdevice_live_p, (x)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 #define DEVICE_TYPE_P(d, type) EQ (DEVICE_TYPE (d), Q##type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 #ifdef ERROR_CHECK_TYPECHECK
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
161 INLINE_HEADER 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);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
163 INLINE_HEADER struct device *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 error_check_device_type (struct device *d, Lisp_Object sym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 assert (EQ (DEVICE_TYPE (d), sym));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 return d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 # define DEVICE_TYPE_DATA(d, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 ((struct type##_device *) error_check_device_type (d, Q##type)->device_data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 # define DEVICE_TYPE_DATA(d, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 ((struct type##_device *) (d)->device_data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 #define CHECK_DEVICE_TYPE(x, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 CHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 type))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 dead_wrong_type_argument \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 (type##_console_methods->predicate_symbol, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 #define CONCHECK_DEVICE_TYPE(x, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 CONCHECK_DEVICE (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 if (!(DEVICEP (x) && DEVICE_TYPE_P (XDEVICE (x), \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 type))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 x = wrong_type_argument \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 (type##_console_methods->predicate_symbol, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
193 #define DEVICE_DISPLAY_P(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
194 (DEVICE_LIVE_P (dev) && \
545
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
195 !DEVICE_IMPL_FLAG (dev, XDEVIMPF_IS_A_PRINTER))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
196
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
197 #define CHECK_DISPLAY_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
198 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
199 CHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
200 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
201 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
202 dead_wrong_type_argument (Qdisplay, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
203 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
204
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
205 #define CONCHECK_DISPLAY_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
206 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
207 CONCHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
208 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
209 && DEVICE_DISPLAY_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
210 wrong_type_argument (Qdisplay, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
211 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
212
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
213 #define DEVICE_PRINTER_P(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
214 (DEVICE_LIVE_P (dev) && !DEVICE_DISPLAY_P (dev))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
215
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
216 #define CHECK_PRINTER_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
217 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
218 CHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
219 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
220 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
221 dead_wrong_type_argument (Qprinter, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
222 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
223
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
224 #define CONCHECK_PRINTER_DEVICE(dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
225 do { \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
226 CONCHECK_DEVICE (dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
227 if (!(DEVICEP (dev) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
228 && DEVICE_PRINTER_P (XDEVICE (dev)))) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
229 wrong_type_argument (Qprinter, dev); \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
230 } while (0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
231
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 /* #### These should be in the device-*.h files but there are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 too many places where the abstraction is broken. Need to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 fix. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 #define DEVICE_X_P(dev) CONSOLE_TYPESYM_X_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 #define CHECK_X_DEVICE(z) CHECK_DEVICE_TYPE (z, x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 #define CONCHECK_X_DEVICE(z) CONCHECK_DEVICE_TYPE (z, x)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
240 #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
241 #define CHECK_GTK_DEVICE(z) CHECK_DEVICE_TYPE (z, gtk)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
242 #define CONCHECK_GTK_DEVICE(z) CONCHECK_DEVICE_TYPE (z, gtk)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
243
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 #define DEVICE_MSWINDOWS_P(dev) CONSOLE_TYPESYM_MSWINDOWS_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 #define CHECK_MSWINDOWS_DEVICE(z) CHECK_DEVICE_TYPE (z, mswindows)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 #define CONCHECK_MSWINDOWS_DEVICE(z) CONCHECK_DEVICE_TYPE (z, mswindows)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 #define DEVICE_TTY_P(dev) CONSOLE_TYPESYM_TTY_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 #define CHECK_TTY_DEVICE(z) CHECK_DEVICE_TYPE (z, tty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 #define CONCHECK_TTY_DEVICE(z) CONCHECK_DEVICE_TYPE (z, tty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 #define DEVICE_STREAM_P(dev) CONSOLE_TYPESYM_STREAM_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 #define CHECK_STREAM_DEVICE(z) CHECK_DEVICE_TYPE (z, stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 #define CONCHECK_STREAM_DEVICE(z) CONCHECK_DEVICE_TYPE (z, stream)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 #define DEVICE_WIN_P(dev) CONSOLE_TYPESYM_WIN_P (DEVICE_TYPE (dev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 EXFUN (Fdevice_console, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 EXFUN (Fdevice_name, 1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
260 EXFUN (Ffind_device, 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 EXFUN (Fmake_device, 3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 EXFUN (Fselected_device, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 extern Lisp_Object Qcreate_device_hook, Qdelete_device_hook, Qgrayscale;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 442
diff changeset
265 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
266 extern Lisp_Object Vdevice_class_list;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 int valid_device_class_p (Lisp_Object class);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 #define DEVICE_LIVE_P(d) (!EQ (DEVICE_TYPE (d), Qdead))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 #define DEVICE_REDISPLAY_INFO(d) ((d)->redisplay_info)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 #define DEVICE_NAME(d) ((d)->name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 #define DEVICE_CLASS(d) ((d)->device_class)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 /* Catch people attempting to set this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 #define DEVICE_SELECTED_FRAME(d) NON_LVALUE ((d)->selected_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 #define DEVICE_FRAME_WITH_FOCUS_REAL(d) ((d)->frame_with_focus_real)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 #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
280 #define DEVICE_FRAME_THAT_OUGHT_TO_HAVE_FOCUS(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 ((d)->frame_that_ought_to_have_focus)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 #define DEVICE_USER_DEFINED_TAGS(d) ((d)->user_defined_tags)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 #define DEVICE_FRAME_LIST(d) ((d)->frame_list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 #define DEVICE_CONNECTION(d) ((d)->connection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 #define DEVICE_CANON_CONNECTION(d) ((d)->canon_connection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 #define DEVICE_CONSOLE(d) ((d)->console)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 #define DEVICE_BAUD_RATE(d) ((d)->baud_rate)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 #define DEVICE_INFD(d) ((d)->infd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 #define DEVICE_OUTFD(d) ((d)->outfd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 #define DEVICE_OLD_FCNTL_OWNER(d) ((d)->old_fcntl_owner)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 #define DEVICE_ON_CONSOLE_P(d) ((d)->on_console_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 #define DEVICE_CONNECTED_TO_NAS_P(d) ((d)->connected_to_nas_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 #define LOCK_DEVICE(d) ((void) ((d)->locked = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 #define UNLOCK_DEVICE(d) ((void) ((d)->locked = 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 #define INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 ((void) ((d)->pixel_to_glyph_cache.valid = 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 #define INVALIDATE_PIXEL_TO_GLYPH_CACHE do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 Lisp_Object IPTGC_devcons, IPTGC_concons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 DEVICE_LOOP_NO_BREAK (IPTGC_devcons, IPTGC_concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 INVALIDATE_DEVICE_PIXEL_TO_GLYPH_CACHE (XDEVICE (XCAR (IPTGC_devcons))); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 #define MARK_DEVICE_FACES_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 ((void) (faces_changed = (d)->faces_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 #define MARK_DEVICE_GLYPHS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 ((void) (glyphs_changed = (d)->glyphs_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 #define MARK_DEVICE_SUBWINDOWS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 ((void) (subwindows_changed = (d)->subwindows_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 #define MARK_DEVICE_SUBWINDOWS_STATE_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 ((void) (subwindows_state_changed = (d)->subwindows_state_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 #define MARK_DEVICE_TOOLBARS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 ((void) (toolbar_changed = (d)->toolbar_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 #define MARK_DEVICE_GUTTERS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 ((void) (gutter_changed = (d)->gutter_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 #define MARK_DEVICE_SIZE_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 ((void) (size_changed = (d)->size_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 #define MARK_DEVICE_FRAMES_FACES_CHANGED(d) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 struct device *mdffc_d = (d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 Lisp_Object frmcons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 XFRAME (XCAR (frmcons))->faces_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 MARK_DEVICE_FACES_CHANGED (mdffc_d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 #define MARK_DEVICE_FRAMES_GLYPHS_CHANGED(d) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 struct device *mdffc_d = (d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 Lisp_Object frmcons; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 DEVICE_FRAME_LOOP (frmcons, mdffc_d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 XFRAME (XCAR (frmcons))->glyphs_changed = 1; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 MARK_DEVICE_GLYPHS_CHANGED (mdffc_d); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 #define MARK_DEVICE_FRAME_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 ((void) (frame_changed = (d)->frame_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 #define MARK_DEVICE_WINDOWS_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 ((void) (windows_changed = (d)->windows_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 #define MARK_DEVICE_WINDOWS_STRUCTURE_CHANGED(d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 ((void) (windows_structure_changed = (d)->windows_structure_changed = 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
352 /* #### unify this with DOMAIN_DEVICE once the latter has image instances
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
353 expunged from it. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 /* 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
355 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
356 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
357 first. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 #define DFW_DEVICE(obj) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 (WINDOWP (obj) ? WINDOW_DEVICE (XWINDOW (obj)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 : (FRAMEP (obj) ? FRAME_DEVICE (XFRAME (obj)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 : (DEVICEP (obj) ? obj \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 : Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 /* 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
365 Use goto instead. "continue" is OK, though. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 #define DEVICE_LOOP_NO_BREAK(devcons, concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 CONSOLE_LOOP (concons) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 CONSOLE_DEVICE_LOOP (devcons, XCONSOLE (XCAR (concons)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 #define DEVICE_FRAME_LOOP(frmcons, d) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 LIST_LOOP (frmcons, DEVICE_FRAME_LIST (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 #define CONSOLE_FRAME_LOOP_NO_BREAK(frmcons, devcons, con) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 CONSOLE_DEVICE_LOOP (devcons, con) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 void select_device_1 (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 struct device *decode_device (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 void handle_asynch_device_change (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 void call_critical_lisp_code (struct device *d, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 Lisp_Object object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 void delete_device_internal (struct device *d, int force,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 int called_from_delete_console,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 int from_io_error);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 void io_error_delete_device (Lisp_Object device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 Lisp_Object find_nonminibuffer_frame_not_on_device (Lisp_Object device);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 void set_device_selected_frame (struct device *d, Lisp_Object frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 Lisp_Object domain_device_type (Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 int window_system_pixelated_geometry (Lisp_Object domain);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
389 #endif /* INCLUDED_device_h_ */