annotate src/specifier.h @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents e7ef97881643
children 943eaba38521
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 /* Generic specifier list implementation
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 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
9 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 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
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
24 #ifndef INCLUDED_specifier_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
25 #define INCLUDED_specifier_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 MAGIC SPECIFIERS
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 Magic specifiers are used to provide fallback values for window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 system provided specifications, reflecting user preferences on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 window system, such as default fonts, colors, scrollbar thickness
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 A magic specifier consists of two specifier objects. The first one
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 behaves like a normal specifier in all senses. The second one, a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 ghost specifier, is a fallback value for the first one, and contains
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 values provided by window system, resources etc. which reflect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 default settings for values being specified.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 A magic specifier has an "ultimate" fallback value, as any usual
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 specifier does. This value, an inst-list, is stored in the fallback
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 slot of the ghost specifier object.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 Ghost specifiers have the following properties:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 - Have back pointers to their parent specifiers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 - Do not have instance data. Instead, they share parent's instance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 data.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 - Have the same methods structure pointer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 - Share parent's caching scheme.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 - Store fallback value instead of their parents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 Ghost specifiers normally are not modifiable at the lisp level, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 only used to supply fallback instance values. They are accessible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 via (specifier-fallback), but are read-only. Although, under
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 certain rare conditions, modification of ghost objects is allowed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 This behavior is controlled by the global variable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 Vunlock_ghost_specifiers. It is not exposed to lisp, and is set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 during calls to lisp functions which initialize global, device and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 frame defaults, such as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 init-{global,frame,device}-{faces,toolbars,etc}.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 Thus, values supplied by resources or other means of a window system
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 stored in externally unmodifiable ghost objects. Regular lisp code
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 may thus freely modify the normal part of a magic specifier, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 removing a specification for a particular domain causes the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 specification to consider ghost-provided fallback values, or its own
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 fallback value.
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 Rules of conduct for magic specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 -------------------------------------
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 1. recompute_*() functions always operate on the whole specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 when passed only a ghost object, by substituting it with their
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 parent bodily object.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 2. All specifier methods, except for instantiate method, are passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 the bodily object of the magic specifier. Instantiate method is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 passed the specifier being instantiated.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 3. Only bodily objects are passed to set_specifier_caching function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 and only these may be cached.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 4. All specifiers are added to Vall_specifiers list, both bodily and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 ghost. The pair of objects is always removed from the list at the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 same time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 extern const struct struct_description specifier_methods_description;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 struct specifier_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
90 const char *name;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 Lisp_Object predicate_symbol;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 /* Implementation specific methods: */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 /* Create method: Initialize specifier data. Optional. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 void (*create_method) (Lisp_Object specifier);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 /* Mark method: Mark any lisp object within specifier data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 structure. Not required if no specifier data are Lisp_Objects. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 void (*mark_method) (Lisp_Object specifier);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 /* Equal method: Compare two specifiers. This is called after
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 ensuring that the two specifiers are of the same type, and have
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 the same specs. Quit is inhibited during the call so it is safe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 to call internal_equal().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 If this function is not present, specifiers considered equal when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 the above conditions are met, i.e. as if the method returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 non-zero. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 int (*equal_method) (Lisp_Object sp1, Lisp_Object sp2, int depth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 /* Hash method: Hash specifier instance data. This has to hash only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 data structure of the specifier, as specs are hashed by the core
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 code.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 If this function is not present, hashing behaves as if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 returned zero. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 unsigned long (*hash_method) (Lisp_Object specifier, int depth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 /* Validate method: Given an instantiator, verify that it's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 valid for this specifier type. If not, signal an error.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 If this function is not present, all instantiators are considered
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 valid. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 void (*validate_method) (Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
127
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
128 /* Copy method: Given an instantiator, copy the bits that we need to
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
129 for this specifier type.
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
130
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
131 If this function is not present, then Fcopy_tree is used. */
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
132 Lisp_Object (*copy_instantiator_method) (Lisp_Object instantiator);
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
133
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 /* Validate-matchspec method: Given a matchspec, verify that it's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 valid for this specifier type. If not, signal an error.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 If this function is not present, *no* matchspecs are considered
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 valid. Note that this differs from validate_method(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 void (*validate_matchspec_method) (Lisp_Object matchspec);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 /* Instantiate method: Return SPECIFIER instance in DOMAIN,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 specified by INSTANTIATOR. MATCHSPEC specifies an additional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 constraints on the instance value (see the docstring for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 Fspecifier_matching_instance function). MATCHSPEC is passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 Qunbound when no matching constraints are imposed. The method is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 called via call_with_suspended_errors(), so allowed to eval
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 safely.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 DEPTH is a lisp integer denoting current depth of instantiation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 calls. This parameter should be passed as the initial depth value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 to functions which also instantiate specifiers (of which I can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 name specifier_instance) to avoid creating "external"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 specification loops.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
155 This method must presume that both INSTANTIATOR and MATCHSPEC are
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 already validated by the corresponding validate_* methods, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 may abort if they are invalid.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 Return value is an instance, which is returned immediately to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 caller, or Qunbound to continue instantiation lookup chain.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 If this function is not present, INSTANTIATOR is used as the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 specifier instance. This is the usual case for "simple"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 specifiers, like integer and boolean. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 Lisp_Object (*instantiate_method) (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 Lisp_Object matchspec,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 Lisp_Object domain,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 Lisp_Object depth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 /* Going-to-add method: Called when an instantiator is about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 to be added to a specifier. This function can specify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 that different instantiators should be used instead by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 returning an inst-list (possibly containing zero elements).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 If the instantiator is fine as-is, return Qt. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 instantiator has been copied with copy-tree, so feel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 free to reuse parts of it to create a new instantiator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 The tag-set, however, is not copied and is not canonicalized
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 (that will be done on the result of this function). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 Lisp_Object (*going_to_add_method) (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 Lisp_Object locale,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 Lisp_Object tag_set,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 Lisp_Object instantiator);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 /* After-change method: Called when the SPECIFIER has just been
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 changed in LOCALE. The method is called upon:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 * Removing and adding specs to/from the specifier;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 * Changing the specifier fallback.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 #### The method may have called more than once per each specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 change.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 #### Do not still know if this can safely eval. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 void (*after_change_method) (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 Lisp_Object locale);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 const struct lrecord_description *extra_description;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 int extra_data_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 struct Lisp_Specifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 struct specifier_methods *methods;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 /* we keep a chained list of all current specifiers, for GC cleanup
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 purposes. Do NOT mark through this, or specifiers will never
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 be GC'd. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 Lisp_Object next_specifier;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 /* This is a straight list of instantiators. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 Lisp_Object global_specs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 /* These are all assoc lists where the key is the type of object the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 list represents (buffer, window, etc.) and the associated list is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 the actual list of instantiators. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 Lisp_Object device_specs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 Lisp_Object frame_specs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 /* window_specs is actually a key-assoc weak list. See specifier.c
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 for an explanation of why (it boils down to the fact that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 dead windows can become live again through window configurations).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 Lisp_Object window_specs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 Lisp_Object buffer_specs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 struct specifier_caching *caching;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 /* This can be either nil, for a plain, non-magic specifier object,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 t for the normal part of the magic specifier, or #<specifier> for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 the ghost part of the magic specifier, a pointer to its parent
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 object */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 Lisp_Object magic_parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 /* Fallback value. For magic specifiers, it is a pointer to the ghost. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 Lisp_Object fallback;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 /* type-specific extra data attached to a specifier */
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 452
diff changeset
238 max_align_t data[1];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 };
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
240 typedef struct Lisp_Specifier Lisp_Specifier;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
242 DECLARE_LRECORD (specifier, Lisp_Specifier);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
243 #define XSPECIFIER(x) XRECORD (x, specifier, Lisp_Specifier)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 #define XSETSPECIFIER(x, p) XSETRECORD (x, p, specifier)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 456
diff changeset
245 #define wrap_specifier(p) wrap_record (p, specifier)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 #define SPECIFIERP(x) RECORDP (x, specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 #define CHECK_SPECIFIER(x) CHECK_RECORD (x, specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 #define CONCHECK_SPECIFIER(x) CONCHECK_RECORD (x, specifier)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 /***** Calling a specifier method *****/
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 RAW_SPECMETH(sp, m) ((sp)->methods->m##_method)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 #define HAS_SPECMETH_P(sp, m) (!!RAW_SPECMETH (sp, m))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 #define SPECMETH(sp, m, args) (((sp)->methods->m##_method) args)
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 /* Call a void-returning specifier method, if it exists. */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
257 #define MAYBE_SPECMETH(sp, m, args) do { \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
258 Lisp_Specifier *maybe_specmeth_sp = (sp); \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
259 if (HAS_SPECMETH_P (maybe_specmeth_sp, m)) \
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
260 SPECMETH (maybe_specmeth_sp, m, args); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 } while (0)
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 /***** Defining new specifier types *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 452
diff changeset
265 #define specifier_data_offset offsetof (Lisp_Specifier, data)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 extern const struct lrecord_description specifier_empty_extra_description[];
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 #ifdef ERROR_CHECK_TYPECHECK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 #define DECLARE_SPECIFIER_TYPE(type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 extern struct specifier_methods * type##_specifier_methods; \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
271 INLINE_HEADER struct type##_specifier * \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
272 error_check_##type##_specifier_data (Lisp_Specifier *sp); \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
273 INLINE_HEADER struct type##_specifier * \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
274 error_check_##type##_specifier_data (Lisp_Specifier *sp) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 if (SPECIFIERP (sp->magic_parent)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 assert (SPECIFIER_TYPE_P (sp, type)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 sp = XSPECIFIER (sp->magic_parent); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 assert (NILP (sp->magic_parent) || EQ (sp->magic_parent, Qt)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 assert (SPECIFIER_TYPE_P (sp, type)); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 return (struct type##_specifier *) sp->data; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 } \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
286 INLINE_HEADER Lisp_Specifier * \
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
287 error_check_##type##_specifier_type (Lisp_Object obj); \
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
288 INLINE_HEADER Lisp_Specifier * \
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
289 error_check_##type##_specifier_type (Lisp_Object obj) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
290 { \
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
291 Lisp_Specifier *sp = XSPECIFIER (obj); \
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
292 assert (SPECIFIER_TYPE_P (sp, type)); \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
293 return sp; \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
294 } \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 DECLARE_NOTHING
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 #else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
297 #define DECLARE_SPECIFIER_TYPE(type) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 extern struct specifier_methods * type##_specifier_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 #endif /* ERROR_CHECK_TYPECHECK */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
301 #define DEFINE_SPECIFIER_TYPE(type) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 struct specifier_methods * type##_specifier_methods
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
304 #define INITIALIZE_SPECIFIER_TYPE(type, obj_name, pred_sym) do { \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
305 type##_specifier_methods = xnew_and_zero (struct specifier_methods); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
306 type##_specifier_methods->name = obj_name; \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
307 type##_specifier_methods->extra_description = \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
308 specifier_empty_extra_description; \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
309 defsymbol_nodump (&type##_specifier_methods->predicate_symbol, pred_sym); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
310 add_entry_to_specifier_type_list (Q##type, type##_specifier_methods); \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
311 dump_add_root_struct_ptr (&type##_specifier_methods, \
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 444
diff changeset
312 &specifier_methods_description); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
315 #define REINITIALIZE_SPECIFIER_TYPE(type) do { \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 staticpro_nodump (&type##_specifier_methods->predicate_symbol); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 #define INITIALIZE_SPECIFIER_TYPE_WITH_DATA(type, obj_name, pred_sym) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 INITIALIZE_SPECIFIER_TYPE (type, obj_name, pred_sym); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 type##_specifier_methods->extra_data_size = \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 sizeof (struct type##_specifier); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 type##_specifier_methods->extra_description = \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 type##_specifier_description; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 /* Declare that specifier-type TYPE has method METH; used in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 initialization routines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 #define SPECIFIER_HAS_METHOD(type, meth) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 (type##_specifier_methods->meth##_method = type##_##meth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 /***** Macros for accessing specifier types *****/
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 SPECIFIER_TYPE_P(sp, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 ((sp)->methods == type##_specifier_methods)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 /* Any of the two of the magic spec */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 #define MAGIC_SPECIFIER_P(sp) (!NILP((sp)->magic_parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 /* Normal part of the magic specifier */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 #define BODILY_SPECIFIER_P(sp) EQ ((sp)->magic_parent, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 /* Ghost part of the magic specifier */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 #define GHOST_SPECIFIER_P(sp) SPECIFIERP((sp)->magic_parent)
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 GHOST_SPECIFIER(sp) XSPECIFIER ((sp)->fallback)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 #ifdef ERROR_CHECK_TYPECHECK
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 # define SPECIFIER_TYPE_DATA(sp, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 error_check_##type##_specifier_data (sp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 # define SPECIFIER_TYPE_DATA(sp, type) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 ((struct type##_specifier *) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 (GHOST_SPECIFIER_P(sp) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 ? XSPECIFIER((sp)->magic_parent)->data \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 : (sp)->data))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
358 #ifdef ERROR_CHECK_TYPECHECK
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
359 # define XSPECIFIER_TYPE(x, type) \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
360 error_check_##type##_specifier_type (x)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
361 # define XSETSPECIFIER_TYPE(x, p, type) do \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
362 { \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
363 XSETSPECIFIER (x, p); \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
364 assert (SPECIFIER_TYPEP (XSPECIFIER(x), type)); \
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
365 } while (0)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
366 #else
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
367 # define XSPECIFIER_TYPE(x, type) XSPECIFIER (x)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
368 # define XSETSPECIFIER_TYPE(x, p, type) XSETSPECIFIER (x, p)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
369 #endif /* ERROR_CHECK_TYPE_CHECK */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
371 #define SPECIFIER_TYPEP(x, type) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 (SPECIFIERP (x) && SPECIFIER_TYPE_P (XSPECIFIER (x), type))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 #define CHECK_SPECIFIER_TYPE(x, type) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 CHECK_SPECIFIER (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 if (!SPECIFIER_TYPE_P (XSPECIFIER (x), type)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 dead_wrong_type_argument \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 (type##_specifier_methods->predicate_symbol, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 #define CONCHECK_SPECIFIER_TYPE(x, type) do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 CONCHECK_SPECIFIER (x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 if (!(SPECIFIER_TYPEP (x, type))) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 x = wrong_type_argument \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 (type##_specifier_methods->predicate_symbol, x); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 /***** Miscellaneous structures *****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 enum spec_locale_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 LOCALE_GLOBAL,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 LOCALE_DEVICE,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 LOCALE_FRAME,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 LOCALE_WINDOW,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 LOCALE_BUFFER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 enum spec_add_meth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 SPEC_PREPEND,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 SPEC_APPEND,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 SPEC_REMOVE_TAG_SET_PREPEND,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 SPEC_REMOVE_TAG_SET_APPEND,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 SPEC_REMOVE_LOCALE,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 SPEC_REMOVE_LOCALE_TYPE,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 SPEC_REMOVE_ALL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 struct specifier_caching
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 int offset_into_struct_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 void (*value_changed_in_window) (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 Lisp_Object oldval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 int offset_into_struct_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 void (*value_changed_in_frame) (Lisp_Object specifier, struct frame *f,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 Lisp_Object oldval);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
416 int always_recompute;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
419 /* #### get image instances out of domains! */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
420
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
421 /* #### I think the following should abort() rather than return nil
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
422 when an invalid domain is given; much more likely we'll catch design
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
423 errors early. --ben */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
424
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
425 /* This turns out to be used heavily so we make it a macro to make it
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
426 inline. Also, the majority of the time the object will turn out to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
427 be a window so we move it from being checked last to being checked
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
428 first. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
429 #define DOMAIN_DEVICE(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
430 (WINDOWP (obj) ? WINDOW_DEVICE (XWINDOW (obj)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
431 : (FRAMEP (obj) ? FRAME_DEVICE (XFRAME (obj)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
432 : (DEVICEP (obj) ? obj \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
433 : (IMAGE_INSTANCEP (obj) ? image_instance_device (obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
434 : Qnil))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
435
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
436 #define DOMAIN_FRAME(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
437 (WINDOWP (obj) ? WINDOW_FRAME (XWINDOW (obj)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
438 : (FRAMEP (obj) ? obj \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
439 : (IMAGE_INSTANCEP (obj) ? image_instance_frame (obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
440 : Qnil)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
441
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
442 #define DOMAIN_WINDOW(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
443 (WINDOWP (obj) ? obj \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
444 : (IMAGE_INSTANCEP (obj) ? image_instance_window (obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
445 : Qnil))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
446
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
447 #define DOMAIN_LIVE_P(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
448 (WINDOWP (obj) ? WINDOW_LIVE_P (XWINDOW (obj)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
449 : (FRAMEP (obj) ? FRAME_LIVE_P (XFRAME (obj)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
450 : (DEVICEP (obj) ? DEVICE_LIVE_P (XDEVICE (obj)) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
451 : (IMAGE_INSTANCEP (obj) ? image_instance_live_p (obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
452 : 0))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
453
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
454 #define DOMAIN_XDEVICE(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
455 (XDEVICE (DOMAIN_DEVICE (obj)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
456 #define DOMAIN_XFRAME(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
457 (XFRAME (DOMAIN_FRAME (obj)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
458 #define DOMAIN_XWINDOW(obj) \
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
459 (XWINDOW (DOMAIN_WINDOW (obj)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
460
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 EXFUN (Fcopy_specifier, 6);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 EXFUN (Fmake_specifier, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 EXFUN (Fset_specifier_dirty_flag, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 EXFUN (Fspecifier_instance, 4);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 EXFUN (Fvalid_specifier_locale_p, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 extern Lisp_Object Qfallback, Qnatnum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 Lisp_Object make_magic_specifier (Lisp_Object type);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 Lisp_Object decode_locale_list (Lisp_Object locale);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 extern enum spec_add_meth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 decode_how_to_add_specification (Lisp_Object how_to_add);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 Lisp_Object decode_specifier_tag_set (Lisp_Object tag_set);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
474 Lisp_Object decode_domain (Lisp_Object domain);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 void add_entry_to_specifier_type_list (Lisp_Object symbol,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 struct specifier_methods *meths);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 void set_specifier_caching (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 int struct_window_offset,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 void (*value_changed_in_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 Lisp_Object oldval),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 int struct_frame_offset,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 void (*value_changed_in_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 (Lisp_Object specifier, struct frame *f,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
486 Lisp_Object oldval),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
487 int always_recompute);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 void set_specifier_fallback (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 Lisp_Object fallback);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 void recompute_all_cached_specifiers_in_window (struct window *w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 void recompute_all_cached_specifiers_in_frame (struct frame *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 /* Counterparts of Fadd_spec_to_specifier and Fremove_specifier, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 operate directly on ghost objects given a magic specifier. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 void add_spec_to_ghost_specifier (Lisp_Object specifier, Lisp_Object instantiator,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 Lisp_Object locale, Lisp_Object tag_set,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 Lisp_Object how_to_add);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 void remove_ghost_specifier (Lisp_Object specifier, Lisp_Object locale,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 Lisp_Object tag_set, Lisp_Object exact_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 int unlock_ghost_specifiers_protected (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 void cleanup_specifiers (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 void prune_specifiers (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 void setup_device_initial_specifier_tags (struct device *d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 void kill_specifier_buffer_locals (Lisp_Object buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 DECLARE_SPECIFIER_TYPE (generic);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 #define XGENERIC_SPECIFIER(x) XSPECIFIER_TYPE (x, generic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 #define XSETGENERIC_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, generic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 #define GENERIC_SPECIFIERP(x) SPECIFIER_TYPEP (x, generic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 #define CHECK_GENERIC_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, generic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 #define CONCHECK_GENERIC_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, generic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 DECLARE_SPECIFIER_TYPE (integer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 #define XINTEGER_SPECIFIER(x) XSPECIFIER_TYPE (x, integer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 #define XSETINTEGER_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, integer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 #define INTEGER_SPECIFIERP(x) SPECIFIER_TYPEP (x, integer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 #define CHECK_INTEGER_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, integer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 #define CONCHECK_INTEGER_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, integer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 DECLARE_SPECIFIER_TYPE (natnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 #define XNATNUM_SPECIFIER(x) XSPECIFIER_TYPE (x, natnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 #define XSETNATNUM_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, natnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 #define NATNUM_SPECIFIERP(x) SPECIFIER_TYPEP (x, natnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 #define CHECK_NATNUM_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, natnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 #define CONCHECK_NATNUM_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, natnum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 DECLARE_SPECIFIER_TYPE (boolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 #define XBOOLEAN_SPECIFIER(x) XSPECIFIER_TYPE (x, boolean)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 #define XSETBOOLEAN_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, boolean)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 #define BOOLEAN_SPECIFIERP(x) SPECIFIER_TYPEP (x, boolean)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 #define CHECK_BOOLEAN_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, boolean)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 #define CONCHECK_BOOLEAN_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, boolean)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 DECLARE_SPECIFIER_TYPE (display_table);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 #define XDISPLAYTABLE_SPECIFIER(x) XSPECIFIER_TYPE (x, display_table)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 #define XSETDISPLAYTABLE_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, display_table)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 #define DISPLAYTABLE_SPECIFIERP(x) SPECIFIER_TYPEP (x, display_table)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 #define CHECK_DISPLAYTABLE_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, display_table)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 #define CONCHECK_DISPLAYTABLE_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, display_table)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
543 #endif /* INCLUDED_specifier_h_ */