1 /* Generic object functions.
2 Copyright (C) 1995 Board of Trustees, University of Illinois.
3 Copyright (C) 1995, 1996 Ben Wing.
5 This file is part of SXEmacs
7 SXEmacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 SXEmacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21 /* Synched up with: Not in FSF. */
23 #ifndef INCLUDED_objects_h_
24 #define INCLUDED_objects_h_
26 #include "specifier.h"
28 void finalose(void *ptr);
30 /*****************************************************************************
31 * Color Specifier Object *
32 *****************************************************************************/
34 struct color_specifier {
35 Lisp_Object face; /* face this is attached to, or nil */
36 Lisp_Object face_property; /* property of that face */
39 #define COLOR_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, color)
40 #define COLOR_SPECIFIER_FACE(g) (COLOR_SPECIFIER_DATA (g)->face)
41 #define COLOR_SPECIFIER_FACE_PROPERTY(g) \
42 (COLOR_SPECIFIER_DATA (g)->face_property)
44 DECLARE_SPECIFIER_TYPE(color);
45 #define XCOLOR_SPECIFIER(x) XSPECIFIER_TYPE (x, color)
46 #define XSETCOLOR_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, 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)
51 void set_color_attached_to(Lisp_Object obj, Lisp_Object face,
52 Lisp_Object property);
54 /*****************************************************************************
55 * Font Specifier Object *
56 *****************************************************************************/
58 struct font_specifier {
59 Lisp_Object face; /* face this is attached to, or nil */
60 Lisp_Object face_property; /* property of that face */
63 #define FONT_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, font)
64 #define FONT_SPECIFIER_FACE(g) (FONT_SPECIFIER_DATA (g)->face)
65 #define FONT_SPECIFIER_FACE_PROPERTY(g) \
66 (FONT_SPECIFIER_DATA (g)->face_property)
68 DECLARE_SPECIFIER_TYPE(font);
69 #define XFONT_SPECIFIER(x) XSPECIFIER_TYPE (x, font)
70 #define XSETFONT_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, font)
71 #define FONT_SPECIFIERP(x) SPECIFIER_TYPEP (x, font)
72 #define CHECK_FONT_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, font)
73 #define CONCHECK_FONT_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, font)
75 void set_font_attached_to(Lisp_Object obj, Lisp_Object face,
76 Lisp_Object property);
78 /*****************************************************************************
79 * Face Boolean Specifier Object *
80 *****************************************************************************/
82 struct face_boolean_specifier {
83 Lisp_Object face; /* face this is attached to, or nil */
84 Lisp_Object face_property; /* property of that face */
87 #define FACE_BOOLEAN_SPECIFIER_DATA(g) SPECIFIER_TYPE_DATA (g, face_boolean)
88 #define FACE_BOOLEAN_SPECIFIER_FACE(g) (FACE_BOOLEAN_SPECIFIER_DATA (g)->face)
89 #define FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY(g) \
90 (FACE_BOOLEAN_SPECIFIER_DATA (g)->face_property)
92 DECLARE_SPECIFIER_TYPE(face_boolean);
93 extern Lisp_Object Qface_boolean;
94 #define XFACE_BOOLEAN_SPECIFIER(x) XSPECIFIER_TYPE (x, face_boolean)
95 #define XSETFACE_BOOLEAN_SPECIFIER(x, p) \
96 XSETSPECIFIER_TYPE (x, p, face_boolean)
97 #define FACE_BOOLEAN_SPECIFIERP(x) SPECIFIER_TYPEP (x, face_boolean)
98 #define CHECK_FACE_BOOLEAN_SPECIFIER(x) \
99 CHECK_SPECIFIER_TYPE (x, face_boolean)
100 #define CONCHECK_FACE_BOOLEAN_SPECIFIER(x) \
101 CONCHECK_SPECIFIER_TYPE (x, face_boolean)
103 void set_face_boolean_attached_to(Lisp_Object obj, Lisp_Object face,
104 Lisp_Object property);
106 /****************************************************************************
107 * Color Instance Object *
108 ****************************************************************************/
110 EXFUN(Fmake_color_instance, 3);
112 extern Lisp_Object Vthe_null_color_instance;
114 struct Lisp_Color_Instance {
115 struct lcrecord_header header;
119 /* console-type-specific data */
123 DECLARE_LRECORD(color_instance, Lisp_Color_Instance);
124 #define XCOLOR_INSTANCE(x) XRECORD (x, color_instance, Lisp_Color_Instance)
125 #define XSETCOLOR_INSTANCE(x, p) XSETRECORD (x, p, color_instance)
126 #define COLOR_INSTANCEP(x) RECORDP (x, color_instance)
127 #define CHECK_COLOR_INSTANCE(x) CHECK_RECORD (x, color_instance)
128 #define CONCHECK_COLOR_INSTANCE(x) CONCHECK_RECORD (x, color_instance)
130 #define COLOR_INSTANCE_NAME(c) ((c)->name)
131 #define COLOR_INSTANCE_DEVICE(c) ((c)->device)
133 /****************************************************************************
134 * Font Instance Object *
135 ****************************************************************************/
137 DECLARE_LRECORD(font_instance, Lisp_Font_Instance);
138 #define XFONT_INSTANCE(x) XRECORD (x, font_instance, Lisp_Font_Instance)
139 #define XSETFONT_INSTANCE(x, p) XSETRECORD (x, p, font_instance)
140 #define FONT_INSTANCEP(x) RECORDP (x, font_instance)
141 #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance)
142 #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance)
145 int font_spec_matches_charset(struct device *d, Lisp_Object charset,
146 const Bufbyte * nonreloc,
147 Lisp_Object reloc, Bytecount offset,
151 EXFUN(Fmake_font_instance, 3);
152 EXFUN(Ffont_instance_name, 1);
153 EXFUN(Ffont_instance_p, 1);
154 EXFUN(Ffont_instance_truename, 1);
156 extern Lisp_Object Vthe_null_font_instance;
158 struct Lisp_Font_Instance {
159 struct lcrecord_header header;
163 unsigned short ascent; /* extracted from `font', or made up */
164 unsigned short descent;
165 unsigned short width;
166 unsigned short height;
169 /* console-type-specific data */
173 #define FONT_INSTANCE_NAME(f) ((f)->name)
174 #define FONT_INSTANCE_DEVICE(f) ((f)->device)
175 #define FONT_INSTANCE_ASCENT(f) ((f)->ascent)
176 #define FONT_INSTANCE_DESCENT(f) ((f)->descent)
177 #define FONT_INSTANCE_WIDTH(f) ((f)->width)
178 #define FONT_INSTANCE_HEIGHT(f) ((f)->height)
180 #endif /* INCLUDED_objects_h_ */