|
428
|
1 /* Define device-object for XEmacs.
|
|
|
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
|
|
872
|
3 Copyright (C) 1995, 2002 Ben Wing
|
|
428
|
4 Copyright (C) 1995 Sun Microsystems
|
|
|
5
|
|
|
6 This file is part of XEmacs.
|
|
|
7
|
|
|
8 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
9 under the terms of the GNU General Public License as published by the
|
|
|
10 Free Software Foundation; either version 2, or (at your option) any
|
|
|
11 later version.
|
|
|
12
|
|
|
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
16 for more details.
|
|
|
17
|
|
|
18 You should have received a copy of the GNU General Public License
|
|
|
19 along with XEmacs; see the file COPYING. If not, write to
|
|
|
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
21 Boston, MA 02111-1307, USA. */
|
|
|
22
|
|
|
23 /* Synched up with: Not in FSF. */
|
|
|
24
|
|
|
25 /* Written by Chuck Thompson and Ben Wing. */
|
|
|
26
|
|
440
|
27 #ifndef INCLUDED_device_h_
|
|
|
28 #define INCLUDED_device_h_
|
|
428
|
29
|
|
|
30 #include "console.h"
|
|
|
31
|
|
872
|
32 struct device;
|
|
428
|
33
|
|
|
34 DECLARE_LRECORD (device, struct device);
|
|
|
35 #define XDEVICE(x) XRECORD (x, device, struct device)
|
|
617
|
36 #define wrap_device(p) wrap_record (p, device)
|
|
428
|
37 #define DEVICEP(x) RECORDP (x, device)
|
|
|
38 #define CHECK_DEVICE(x) CHECK_RECORD (x, device)
|
|
|
39 #define CONCHECK_DEVICE(x) CONCHECK_RECORD (x, device)
|
|
|
40
|
|
872
|
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))
|
|
|
56
|
|
428
|
57 #define CHECK_LIVE_DEVICE(x) do { \
|
|
|
58 CHECK_DEVICE (x); \
|
|
|
59 if (! DEVICE_LIVE_P (XDEVICE (x))) \
|
|
|
60 dead_wrong_type_argument (Qdevice_live_p, (x)); \
|
|
|
61 } while (0)
|
|
|
62 #define CONCHECK_LIVE_DEVICE(x) do { \
|
|
|
63 CONCHECK_DEVICE (x); \
|
|
|
64 if (! DEVICE_LIVE_P (XDEVICE (x))) \
|
|
|
65 x = wrong_type_argument (Qdevice_live_p, (x)); \
|
|
|
66 } while (0)
|
|
|
67
|
|
442
|
68 /* #### unify this with DOMAIN_DEVICE once the latter has image instances
|
|
|
69 expunged from it. */
|
|
428
|
70 /* This turns out to be used heavily so we make it a macro to make it
|
|
|
71 inline. Also, the majority of the time the object will turn out to
|
|
|
72 be a window so we move it from being checked last to being checked
|
|
|
73 first. */
|
|
|
74 #define DFW_DEVICE(obj) \
|
|
|
75 (WINDOWP (obj) ? WINDOW_DEVICE (XWINDOW (obj)) \
|
|
|
76 : (FRAMEP (obj) ? FRAME_DEVICE (XFRAME (obj)) \
|
|
|
77 : (DEVICEP (obj) ? obj \
|
|
|
78 : Qnil)))
|
|
|
79
|
|
|
80 /* NO_BREAK means that "break" doesn't do what you think it does!
|
|
|
81 Use goto instead. "continue" is OK, though. */
|
|
|
82 #define DEVICE_LOOP_NO_BREAK(devcons, concons) \
|
|
|
83 CONSOLE_LOOP (concons) \
|
|
|
84 CONSOLE_DEVICE_LOOP (devcons, XCONSOLE (XCAR (concons)))
|
|
|
85 #define DEVICE_FRAME_LOOP(frmcons, d) \
|
|
|
86 LIST_LOOP (frmcons, DEVICE_FRAME_LIST (d))
|
|
|
87 #define CONSOLE_FRAME_LOOP_NO_BREAK(frmcons, devcons, con) \
|
|
|
88 CONSOLE_DEVICE_LOOP (devcons, con) \
|
|
|
89 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
|
|
|
90
|
|
872
|
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
|
|
1204
|
101 int valid_device_class_p (Lisp_Object class_);
|
|
872
|
102
|
|
428
|
103 void select_device_1 (Lisp_Object);
|
|
|
104 struct device *decode_device (Lisp_Object);
|
|
|
105 void handle_asynch_device_change (void);
|
|
872
|
106 Lisp_Object call_critical_lisp_code (struct device *d, Lisp_Object function,
|
|
|
107 Lisp_Object object);
|
|
428
|
108 void delete_device_internal (struct device *d, int force,
|
|
|
109 int called_from_delete_console,
|
|
|
110 int from_io_error);
|
|
|
111 void io_error_delete_device (Lisp_Object device);
|
|
|
112 Lisp_Object find_nonminibuffer_frame_not_on_device (Lisp_Object device);
|
|
|
113 void set_device_selected_frame (struct device *d, Lisp_Object frame);
|
|
|
114 Lisp_Object domain_device_type (Lisp_Object domain);
|
|
|
115 int window_system_pixelated_geometry (Lisp_Object domain);
|
|
|
116
|
|
872
|
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
|
|
440
|
121 #endif /* INCLUDED_device_h_ */
|
