Mercurial > hg > xemacs-beta

comparison src/objects.h @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children ac2d302a0011
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 /* Generic object functions.
2 Copyright (C) 1995 Board of Trustees, University of Illinois.
3 Copyright (C) 1995, 1996 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 _XEMACS_OBJECTS_H_
25 #define _XEMACS_OBJECTS_H_
26
27 #include "specifier.h"
28
29 void finalose (void *ptr);
30
31 /*****************************************************************************
32 * Color Specifier Object *
33 *****************************************************************************/
34
35 struct color_specifier
36 {
37 Lisp_Object face; /* face this is attached to, or nil */
38 Lisp_Object face_property; /* property of that face */
39 };
40
41 #define COLOR_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, color))
42 #define COLOR_SPECIFIER_FACE(g) (COLOR_SPECIFIER_DATA (g)->face)
43 #define COLOR_SPECIFIER_FACE_PROPERTY(g) \
44 (COLOR_SPECIFIER_DATA (g)->face_property)
45
46 DECLARE_SPECIFIER_TYPE (color);
47 extern Lisp_Object Qcolor;
48 #define XCOLOR_SPECIFIER(x) XSPECIFIER_TYPE (x, color)
49 #define XSETCOLOR_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, color)
50 #define COLOR_SPECIFIERP(x) SPECIFIER_TYPEP (x, color)
51 #define CHECK_COLOR_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, color)
52 #define CONCHECK_COLOR_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, color)
53
54 void set_color_attached_to (Lisp_Object obj, Lisp_Object face,
55 Lisp_Object property);
56
57 /*****************************************************************************
58 * Font Specifier Object *
59 *****************************************************************************/
60
61 struct font_specifier
62 {
63 Lisp_Object face; /* face this is attached to, or nil */
64 Lisp_Object face_property; /* property of that face */
65 };
66
67 #define FONT_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, font))
68 #define FONT_SPECIFIER_FACE(g) (FONT_SPECIFIER_DATA (g)->face)
69 #define FONT_SPECIFIER_FACE_PROPERTY(g) \
70 (FONT_SPECIFIER_DATA (g)->face_property)
71
72 DECLARE_SPECIFIER_TYPE (font);
73 extern Lisp_Object Qfont;
74 #define XFONT_SPECIFIER(x) XSPECIFIER_TYPE (x, font)
75 #define XSETFONT_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, font)
76 #define FONT_SPECIFIERP(x) SPECIFIER_TYPEP (x, font)
77 #define CHECK_FONT_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, font)
78 #define CONCHECK_FONT_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, font)
79
80 void set_font_attached_to (Lisp_Object obj, Lisp_Object face,
81 Lisp_Object property);
82
83 /*****************************************************************************
84 * Face Boolean Specifier Object *
85 *****************************************************************************/
86
87 struct face_boolean_specifier
88 {
89 Lisp_Object face; /* face this is attached to, or nil */
90 Lisp_Object face_property; /* property of that face */
91 };
92
93 #define FACE_BOOLEAN_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, face_boolean))
94 #define FACE_BOOLEAN_SPECIFIER_FACE(g) (FACE_BOOLEAN_SPECIFIER_DATA (g)->face)
95 #define FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY(g) \
96 (FACE_BOOLEAN_SPECIFIER_DATA (g)->face_property)
97
98 DECLARE_SPECIFIER_TYPE (face_boolean);
99 extern Lisp_Object Qface_boolean;
100 #define XFACE_BOOLEAN_SPECIFIER(x) XSPECIFIER_TYPE (x, face_boolean)
101 #define XSETFACE_BOOLEAN_SPECIFIER(x, p) \
102 XSETSPECIFIER_TYPE (x, p, face_boolean)
103 #define FACE_BOOLEAN_SPECIFIERP(x) SPECIFIER_TYPEP (x, face_boolean)
104 #define CHECK_FACE_BOOLEAN_SPECIFIER(x) \
105 CHECK_SPECIFIER_TYPE (x, face_boolean)
106 #define CONCHECK_FACE_BOOLEAN_SPECIFIER(x) \
107 CONCHECK_SPECIFIER_TYPE (x, face_boolean)
108
109 void set_face_boolean_attached_to (Lisp_Object obj, Lisp_Object face,
110 Lisp_Object property);
111
112 /****************************************************************************
113 * Color Instance Object *
114 ****************************************************************************/
115
116 DECLARE_LRECORD (color_instance, struct Lisp_Color_Instance);
117 #define XCOLOR_INSTANCE(x) \
118 XRECORD (x, color_instance, struct Lisp_Color_Instance)
119 #define XSETCOLOR_INSTANCE(x, p) XSETRECORD (x, p, color_instance)
120 #define COLOR_INSTANCEP(x) RECORDP (x, color_instance)
121 #define GC_COLOR_INSTANCEP(x) GC_RECORDP (x, color_instance)
122 #define CHECK_COLOR_INSTANCE(x) CHECK_RECORD (x, color_instance)
123 #define CONCHECK_COLOR_INSTANCE(x) CONCHECK_RECORD (x, color_instance)
124
125 Lisp_Object Fmake_color_instance (Lisp_Object name, Lisp_Object device,
126 Lisp_Object no_error);
127 Lisp_Object Fcolor_instance_p (Lisp_Object obj);
128 Lisp_Object Fcolor_instance_name (Lisp_Object obj);
129
130 extern Lisp_Object Vthe_null_color_instance;
131
132 struct Lisp_Color_Instance
133 {
134 struct lcrecord_header header;
135 Lisp_Object name;
136 Lisp_Object device;
137
138 /* console-type-specific data */
139 void *data;
140 };
141
142 #define COLOR_INSTANCE_NAME(c) ((c)->name)
143 #define COLOR_INSTANCE_DEVICE(c) ((c)->device)
144
145 /****************************************************************************
146 * Font Instance Object *
147 ****************************************************************************/
148
149 DECLARE_LRECORD (font_instance, struct Lisp_Font_Instance);
150 #define XFONT_INSTANCE(x) XRECORD (x, font_instance, struct Lisp_Font_Instance)
151 #define XSETFONT_INSTANCE(x, p) XSETRECORD (x, p, font_instance)
152 #define FONT_INSTANCEP(x) RECORDP (x, font_instance)
153 #define GC_FONT_INSTANCEP(x) GC_RECORDP (x, font_instance)
154 #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance)
155 #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance)
156
157 int font_spec_matches_charset (struct device *d, Lisp_Object charset,
158 CONST Bufbyte *nonreloc,
159 Lisp_Object reloc, Bytecount offset,
160 Bytecount length);
161
162 Lisp_Object Fmake_font_instance (Lisp_Object name, Lisp_Object device,
163 Lisp_Object no_error);
164 Lisp_Object Ffont_instance_p (Lisp_Object obj);
165 Lisp_Object Ffont_instance_name (Lisp_Object obj);
166 Lisp_Object Ffont_instance_truename (Lisp_Object obj);
167
168 extern Lisp_Object Vthe_null_font_instance;
169
170 struct Lisp_Font_Instance
171 {
172 struct lcrecord_header header;
173 Lisp_Object name;
174 Lisp_Object device;
175
176 unsigned short ascent; /* extracted from `font', or made up */
177 unsigned short descent;
178 unsigned short width;
179 unsigned short height;
180 char proportional_p;
181
182 /* console-type-specific data */
183 void *data;
184 };
185
186 #define FONT_INSTANCE_NAME(f) ((f)->name)
187 #define FONT_INSTANCE_DEVICE(f) ((f)->device)
188
189 #define FONT_INSTANCE_WIDTH(f) ((f)->width)
190 #define FONT_INSTANCE_HEIGHT(f) ((f)->height)
191 #define FONT_INSTANCE_ASCENT(f) ((f)->ascent)
192 #define FONT_INSTANCE_DESCENT(f) ((f)->descent)
193
194 #endif /* _XEMACS_OBJECTS_H_ */