annotate src/devslots.h @ 5940:c608d4b0b75e cygwin64 tip

rescue lost branch from 64bit.backup
author Henry Thompson <ht@markup.co.uk>
date Thu, 16 Dec 2021 18:48:58 +0000
parents 308d34e9f07d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
1 /* Definitions of marked slots in consoles
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
2 Copyright (C) 1990, 1992, 1993 Free Software Foundation, Inc.
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 617
diff changeset
3 Copyright (C) 2002 Ben Wing.
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
4
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
5 This file is part of XEmacs.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
6
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5176
diff changeset
7 XEmacs is free software: you can redistribute it and/or modify it
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5176
diff changeset
9 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5176
diff changeset
10 option) any later version.
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
11
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
15 for more details.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
16
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5176
diff changeset
18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
19
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
20 /* Synched up with: Not in FSF. */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
21
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
22 /* We define the Lisp_Objects in the device structure in a separate file
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
23 because there are numerous places we want to iterate over them, such
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
24 as when defining them in the structure, initializing them, or marking
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
25 them.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
26
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
27 To use, define MARKED_SLOT before including this file. No need to
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
28 undefine; that happens automatically. */
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
29
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
30 /* Name of this device, for resourcing and printing purposes.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
31 If not explicitly given, it's initialized in a device-specific
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
32 manner. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
33 MARKED_SLOT (name)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
34
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
35 /* What this device is connected to */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
36 MARKED_SLOT (connection)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
37
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
38 /* A canonical name for the connection that is used to determine
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
39 whether `make-device' is being called on an existing device. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
40 MARKED_SLOT (canon_connection)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
41
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
42 /* List of frames on this device. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
43 MARKED_SLOT (frame_list)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
44
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
45 /* The console this device is on. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
46 MARKED_SLOT (console)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
47
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
48 /* Frame which is "currently selected". This is what `selected-frame'
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
49 returns and is the default frame for many operations. This may
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
50 not be the same as frame_with_focus `select-frame' changes the
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
51 selected_frame but not the frame_with_focus. However, eventually
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
52 either the two values will be the same, or frame_with_focus will
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
53 be nil: right before waiting for an event, the focus is changed
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
54 to point to the selected_frame if XEmacs currently has the focus
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
55 on this device. Note that frame_with_focus may be nil (none of the
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
56 frames on this device have the window-system focus), but
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
57 selected_frame will never be nil if there are any frames on
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
58 the device. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
59 MARKED_SLOT (selected_frame)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
60 /* Frame that currently contains the window-manager focus, or none.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
61 Note that we've split frame_with_focus into two variables.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
62 frame_with_focus_real is the value we use most of the time,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
63 but frame_with_focus_for_hooks is used for running the select-frame-hook
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
64 and deselect-frame-hook. We do this because we split the focus handling
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
65 into two parts: one part (deals with drawing the solid/box cursor)
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
66 runs as soon as a focus event is received the other (running the
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
67 hooks) runs after any pending sit-for/sleep-for/accept-process-output
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
68 calls are done. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
69 MARKED_SLOT (frame_with_focus_real)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
70 MARKED_SLOT (frame_with_focus_for_hooks)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
71 /* If we have recently issued a request to change the focus as a
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
72 result of select-frame having been called, the following variable
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
73 records the frame we are trying to focus on. The reason for this
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
74 is that the window manager may not grant our request to change
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
75 the focus (so we can't just change frame_with_focus), and we don't
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
76 want to keep sending requests again and again to the window manager.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
77 This variable is reset whenever a focus-change event is seen. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
78 MARKED_SLOT (frame_that_ought_to_have_focus)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
79
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
80 /* Color class of this device. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
81 MARKED_SLOT (device_class)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
82
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
83 /* Alist of values for user-defined tags in this device. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
84 MARKED_SLOT (user_defined_tags)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
85
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
86 /* Hash tables for device-specific objects (fonts, colors, etc).
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
87 These are key-weak hash tables (or hash tables containing key-weak
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
88 hash tables) so that they disappear when the key goes away. */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
89
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
90 /* This is a simple key-weak hash table hashing color names to
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
91 instances. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
92 MARKED_SLOT (color_instance_cache)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
93
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
94 /* This is a simple key-weak hash table hashing font names to
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
95 instances. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
96 MARKED_SLOT (font_instance_cache)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
97
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
98 #ifdef MULE
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
99 /* This is a bi-level cache, where the hash table in this slot here
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
100 indexes charset objects to key-weak hash tables, which in turn
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
101 index font names to more specific font names that match the
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
102 given charset's registry. This speeds up the horrendously
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
103 slow XListFonts() operation that needs to be done in order
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
104 to determine an appropriate font. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
105 MARKED_SLOT (charset_font_cache_stage_1)
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 617
diff changeset
106
5176
8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor*
Ben Wing <ben@xemacs.org>
parents: 1204
diff changeset
107 /* Similar cache for stage 2, if it exists. See fontcolor.c. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
108 MARKED_SLOT (charset_font_cache_stage_2)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
109 #endif
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
110
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
111 /* This is a bi-level cache, where the hash table in this slot here
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
112 indexes image-instance-type masks (there are currently 6
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
113 image-instance types and thus 64 possible masks) to key-weak hash
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
114 tables like the one for colors. */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 872
diff changeset
115 MARKED_SLOT (image_instance_cache)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
116
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents:
diff changeset
117 #undef MARKED_SLOT