|
872
|
1 /* Generic object functions -- header implementation.
|
|
|
2 Copyright (C) 1995 Board of Trustees, University of Illinois.
|
|
|
3 Copyright (C) 1995, 1996, 2002 Ben Wing.
|
|
|
4
|
|
|
5 This file is part of XEmacs.
|
|
|
6
|
|
|
7 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 under the terms of the GNU General Public License as published by the
|
|
|
9 Free Software Foundation; either version 2, or (at your option) any
|
|
|
10 later version.
|
|
|
11
|
|
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
15 for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with XEmacs; see the file COPYING. If not, write to
|
|
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
20 Boston, MA 02111-1307, USA. */
|
|
|
21
|
|
|
22 /* Synched up with: Not in FSF. */
|
|
|
23
|
|
|
24 #ifndef INCLUDED_objects_impl_h_
|
|
|
25 #define INCLUDED_objects_impl_h_
|
|
|
26
|
|
|
27 #include "specifier.h"
|
|
|
28 #include "objects.h"
|
|
|
29
|
|
|
30 /*****************************************************************************
|
|
|
31 * Color Specifier Object *
|
|
|
32 *****************************************************************************/
|
|
|
33
|
|
|
34 struct color_specifier
|
|
|
35 {
|
|
|
36 Lisp_Object face; /* face this is attached to, or nil */
|
|
|
37 Lisp_Object face_property; /* property of that face */
|
|
|
38 };
|
|
|
39
|
|
|
40 #define COLOR_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, color)
|
|
|
41 #define COLOR_SPECIFIER_FACE(g) (COLOR_SPECIFIER_DATA (g)->face)
|
|
|
42 #define COLOR_SPECIFIER_FACE_PROPERTY(g) \
|
|
|
43 (COLOR_SPECIFIER_DATA (g)->face_property)
|
|
|
44
|
|
|
45 DECLARE_SPECIFIER_TYPE (color);
|
|
|
46 #define XCOLOR_SPECIFIER(x) XSPECIFIER_TYPE (x, color)
|
|
|
47 #define COLOR_SPECIFIERP(x) SPECIFIER_TYPEP (x, color)
|
|
|
48 #define CHECK_COLOR_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, color)
|
|
|
49 #define CONCHECK_COLOR_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, color)
|
|
|
50
|
|
|
51 /*****************************************************************************
|
|
|
52 * Font Specifier Object *
|
|
|
53 *****************************************************************************/
|
|
|
54
|
|
|
55 struct font_specifier
|
|
|
56 {
|
|
|
57 Lisp_Object face; /* face this is attached to, or nil */
|
|
|
58 Lisp_Object face_property; /* property of that face */
|
|
|
59 };
|
|
|
60
|
|
|
61 #define FONT_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, font)
|
|
|
62 #define FONT_SPECIFIER_FACE(g) (FONT_SPECIFIER_DATA (g)->face)
|
|
|
63 #define FONT_SPECIFIER_FACE_PROPERTY(g) \
|
|
|
64 (FONT_SPECIFIER_DATA (g)->face_property)
|
|
|
65
|
|
|
66 DECLARE_SPECIFIER_TYPE (font);
|
|
|
67 #define XFONT_SPECIFIER(x) XSPECIFIER_TYPE (x, font)
|
|
|
68 #define FONT_SPECIFIERP(x) SPECIFIER_TYPEP (x, font)
|
|
|
69 #define CHECK_FONT_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, font)
|
|
|
70 #define CONCHECK_FONT_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, font)
|
|
|
71
|
|
|
72 /*****************************************************************************
|
|
|
73 * Face Boolean Specifier Object *
|
|
|
74 *****************************************************************************/
|
|
|
75
|
|
|
76 struct face_boolean_specifier
|
|
|
77 {
|
|
|
78 Lisp_Object face; /* face this is attached to, or nil */
|
|
|
79 Lisp_Object face_property; /* property of that face */
|
|
|
80 };
|
|
|
81
|
|
|
82 #define FACE_BOOLEAN_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, face_boolean)
|
|
|
83 #define FACE_BOOLEAN_SPECIFIER_FACE(g) (FACE_BOOLEAN_SPECIFIER_DATA (g)->face)
|
|
|
84 #define FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY(g) \
|
|
|
85 (FACE_BOOLEAN_SPECIFIER_DATA (g)->face_property)
|
|
|
86
|
|
|
87 DECLARE_SPECIFIER_TYPE (face_boolean);
|
|
|
88 extern Lisp_Object Qface_boolean;
|
|
|
89 #define XFACE_BOOLEAN_SPECIFIER(x) XSPECIFIER_TYPE (x, face_boolean)
|
|
|
90 #define FACE_BOOLEAN_SPECIFIERP(x) SPECIFIER_TYPEP (x, face_boolean)
|
|
|
91 #define CHECK_FACE_BOOLEAN_SPECIFIER(x) \
|
|
|
92 CHECK_SPECIFIER_TYPE (x, face_boolean)
|
|
|
93 #define CONCHECK_FACE_BOOLEAN_SPECIFIER(x) \
|
|
|
94 CONCHECK_SPECIFIER_TYPE (x, face_boolean)
|
|
|
95
|
|
|
96 /****************************************************************************
|
|
|
97 * Color Instance Object *
|
|
|
98 ****************************************************************************/
|
|
|
99
|
|
|
100 struct Lisp_Color_Instance
|
|
|
101 {
|
|
2720
|
102 #ifdef MC_ALLOC
|
|
|
103 struct lrecord_header header;
|
|
|
104 #else /* MC_ALLOC */
|
|
872
|
105 struct lcrecord_header header;
|
|
2720
|
106 #endif /* MC_ALLOC */
|
|
872
|
107 Lisp_Object name;
|
|
|
108 Lisp_Object device;
|
|
|
109
|
|
1204
|
110 /* See comment in struct console about console variants. */
|
|
934
|
111 enum console_variant color_instance_type;
|
|
|
112
|
|
872
|
113 /* console-type-specific data */
|
|
|
114 void *data;
|
|
|
115 };
|
|
|
116
|
|
|
117 #define COLOR_INSTANCE_NAME(c) ((c)->name)
|
|
|
118 #define COLOR_INSTANCE_DEVICE(c) ((c)->device)
|
|
|
119
|
|
|
120 /****************************************************************************
|
|
|
121 * Font Instance Object *
|
|
|
122 ****************************************************************************/
|
|
|
123
|
|
|
124 struct Lisp_Font_Instance
|
|
|
125 {
|
|
2720
|
126 #ifdef MC_ALLOC
|
|
|
127 struct lrecord_header header;
|
|
|
128 #else /* MC_ALLOC */
|
|
872
|
129 struct lcrecord_header header;
|
|
2720
|
130 #endif /* MC_ALLOC */
|
|
872
|
131 Lisp_Object name; /* the instantiator used to create the font instance */
|
|
|
132 Lisp_Object truename; /* used by the device-specific methods; we need to
|
|
|
133 call them to get the truename (#### in reality,
|
|
|
134 they all probably just store the truename here
|
|
|
135 if they know it, and nil otherwise; we should
|
|
|
136 check this and enforce it as a general policy) */
|
|
|
137 Lisp_Object device;
|
|
|
138
|
|
1204
|
139 /* See comment in struct console about console variants. */
|
|
934
|
140 enum console_variant font_instance_type;
|
|
|
141
|
|
872
|
142 unsigned short ascent; /* extracted from `font', or made up */
|
|
|
143 unsigned short descent;
|
|
|
144 unsigned short width;
|
|
|
145 unsigned short height;
|
|
|
146 int proportional_p;
|
|
|
147
|
|
|
148 /* console-type-specific data */
|
|
|
149 void *data;
|
|
|
150 };
|
|
|
151
|
|
|
152 #define FONT_INSTANCE_NAME(f) ((f)->name)
|
|
|
153 #define FONT_INSTANCE_TRUENAME(f) ((f)->name)
|
|
|
154 #define FONT_INSTANCE_DEVICE(f) ((f)->device)
|
|
|
155 #define FONT_INSTANCE_ASCENT(f) ((f)->ascent)
|
|
|
156 #define FONT_INSTANCE_DESCENT(f) ((f)->descent)
|
|
|
157 #define FONT_INSTANCE_WIDTH(f) ((f)->width)
|
|
|
158 #define FONT_INSTANCE_HEIGHT(f) ((f)->height)
|
|
|
159
|
|
|
160 #define XFONT_INSTANCE_NAME(f) FONT_INSTANCE_NAME (XFONT_INSTANCE (f))
|
|
|
161 #define XFONT_INSTANCE_TRUENAME(f) FONT_INSTANCE_TRUENAME (XFONT_INSTANCE (f))
|
|
|
162 #define XFONT_INSTANCE_DEVICE(f) FONT_INSTANCE_DEVICE (XFONT_INSTANCE (f))
|
|
|
163 #define XFONT_INSTANCE_ASCENT(f) FONT_INSTANCE_ASCENT (XFONT_INSTANCE (f))
|
|
|
164 #define XFONT_INSTANCE_DESCENT(f) FONT_INSTANCE_DESCENT (XFONT_INSTANCE (f))
|
|
|
165 #define XFONT_INSTANCE_WIDTH(f) FONT_INSTANCE_WIDTH (XFONT_INSTANCE (f))
|
|
|
166 #define XFONT_INSTANCE_HEIGHT(f) FONT_INSTANCE_HEIGHT (XFONT_INSTANCE (f))
|
|
|
167
|
|
|
168 #endif /* INCLUDED_objects_impl_h_ */
|
