Commit | Line | Data |
---|---|---|
c2f5bfd6 KH |
1 | /* font.h -- Interface definition for font handling. |
2 | Copyright (C) 2006 Free Software Foundation, Inc. | |
3 | Copyright (C) 2006 | |
4 | National Institute of Advanced Industrial Science and Technology (AIST) | |
5 | Registration Number H13PRO009 | |
6 | ||
7 | This file is part of GNU Emacs. | |
8 | ||
9 | GNU Emacs is free software; you can redistribute it and/or modify | |
10 | it under the terms of the GNU General Public License as published by | |
11 | the Free Software Foundation; either version 2, or (at your option) | |
12 | any later version. | |
13 | ||
14 | GNU Emacs is distributed in the hope that it will be useful, | |
15 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 | GNU General Public License for more details. | |
18 | ||
19 | You should have received a copy of the GNU General Public License | |
20 | along with GNU Emacs; see the file COPYING. If not, write to | |
21 | the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
22 | Boston, MA 02110-1301, USA. */ | |
23 | ||
24 | #ifndef EMACS_FONT_H | |
25 | #define EMACS_FONT_H | |
26 | ||
27 | #include "ccl.h" | |
28 | ||
29 | /* We have three types of Lisp objects related to font. | |
30 | ||
31 | FONT-SPEC | |
32 | ||
33 | Vector (length FONT_SPEC_MAX) of font properties. Some | |
34 | properties can be left unspecified (i.e. nil). Emacs asks | |
35 | font-drivers to find a font by FONT-SPEC. A fontset entry | |
36 | specifies requisite properties whereas a face specifies just | |
37 | preferable properties. This object is fully modifiable by | |
38 | Lisp. | |
39 | ||
40 | FONT-ENTITY | |
41 | ||
42 | Vector (length FONT_ENTITY_MAX) of fully specified font | |
43 | properties that a font-driver returns upon a request of | |
44 | FONT-SPEC. | |
45 | ||
46 | Note: Only the method `list' of a font-driver can create this | |
47 | object, and should never be modified by Lisp. In that sense, | |
48 | it may be cleaner to implement it as a Lisp object of a new | |
49 | type (e.g. struct Lisp_Font). | |
50 | ||
51 | FONT-OBJECT | |
52 | ||
53 | Lisp object of type Lisp_Misc_Save_Value encapsulating a | |
54 | pointer to "struct font". This corresponds to an opened font. | |
55 | ||
56 | Note: The note for FONT-ENTITY also applies to this. | |
57 | */ | |
58 | ||
59 | ||
60 | struct font_driver; | |
61 | struct font; | |
62 | ||
63 | /* An enumerator for each font property. This is used as an index to | |
64 | the vector of FONT-SPEC and FONT-ENTITY. | |
65 | ||
66 | Note: The order is important and should not be changed. */ | |
67 | ||
68 | enum font_property_index | |
69 | { | |
70 | /* FONT-TYPE is a symbol indicating a font backend; currently `x', | |
db9b8a15 JR |
71 | `xft', `ftx', `freetype' are available on X and gdi on Windows. |
72 | For Windows, we `bdf' and `uniscribe' backends are in progress. | |
73 | For Mac OS X, we need `atm'. */ | |
c2f5bfd6 KH |
74 | FONT_TYPE_INDEX, |
75 | ||
76 | /* FONT-FOUNDRY is a foundry name (symbol). */ | |
77 | FONT_FOUNDRY_INDEX, | |
78 | ||
79 | /* FONT-FAMILY is a family name (symbol). */ | |
80 | FONT_FAMILY_INDEX, | |
81 | ||
82 | /* FONT-ADSTYLE is an additional style name (symbol). */ | |
83 | FONT_ADSTYLE_INDEX, | |
84 | ||
85 | /* FONT-REGISTRY is a combination of a charset-registry and | |
86 | charset0encoding name (symbol). */ | |
87 | FONT_REGISTRY_INDEX, | |
88 | ||
89 | /* FONT-WEIGHT is a numeric value of weight (e.g. medium, bold) of | |
90 | the font. The value is what defined by FC_WEIGHT_* in | |
91 | fontconfig. */ | |
92 | FONT_WEIGHT_INDEX, | |
93 | ||
94 | /* FONT-SLANT is a numeric value of slant (e.g. r, i, o) of the | |
95 | font. The value is what defined by FC_SLANT_* in | |
96 | fontconfig plus 100. */ | |
97 | FONT_SLANT_INDEX, | |
98 | ||
99 | /* FONT-WIDTH is a numeric value of setwidth (e.g. normal, | |
100 | condensed) of the font. The value is what defined by | |
101 | FC_WIDTH_* in fontconfig. */ | |
102 | FONT_WIDTH_INDEX, | |
103 | ||
104 | /* FONT-SIZE is a size of the font. If integer, it is a pixel | |
105 | size. For a font-spec, the value can be float specifying a | |
106 | point size. For a font-entity, the value can be zero meaning | |
107 | that the font is scalable. */ | |
108 | FONT_SIZE_INDEX, | |
109 | ||
110 | /* In a font-spec, the value is an alist of extra information of a | |
111 | font such as name, OpenType features, and language coverage. | |
112 | In a font-entity, the value is an extra infomation for | |
113 | identifying a font (font-driver dependent). */ | |
114 | FONT_EXTRA_INDEX, /* alist alist */ | |
115 | ||
116 | /* This value is the length of font-spec vector. */ | |
117 | FONT_SPEC_MAX, | |
118 | ||
119 | /* The followings are used only for a font-entity. */ | |
120 | ||
121 | /* Frame on which the font is found. The value is nil if the font | |
122 | can be opend on any frame. */ | |
123 | FONT_FRAME_INDEX = FONT_SPEC_MAX, | |
124 | ||
4b4836de KH |
125 | /* List of font-objects opened from the font-entity. The value is |
126 | nil if no font can be opened for this font-entity. */ | |
c2f5bfd6 KH |
127 | FONT_OBJLIST_INDEX, |
128 | ||
129 | /* This value is the length of font-entity vector. */ | |
130 | FONT_ENTITY_MAX | |
131 | }; | |
132 | ||
a46bb06e | 133 | extern Lisp_Object QCspacing, QCdpi, QCscalable, QCotf, QClanguage, QCscript; |
c2f5bfd6 | 134 | |
3223c449 | 135 | /* Important character set symbols. */ |
32d497b1 | 136 | extern Lisp_Object Qiso8859_1, Qiso10646_1, Qunicode_bmp, Qunicode_sip; |
3223c449 | 137 | |
c2f5bfd6 KH |
138 | extern Lisp_Object null_string; |
139 | extern Lisp_Object null_vector; | |
140 | ||
141 | /* Structure for an opened font. We can safely cast this structure to | |
4fe8e188 | 142 | "struct font_info". */ |
c2f5bfd6 KH |
143 | |
144 | struct font | |
145 | { | |
146 | struct font_info font; | |
147 | ||
148 | /* From which font-entity the font is opened. */ | |
149 | Lisp_Object entity; | |
150 | ||
151 | /* By which pixel size the font is opened. */ | |
152 | int pixel_size; | |
153 | ||
154 | /* Font-driver for the font. */ | |
155 | struct font_driver *driver; | |
156 | ||
c6666169 KH |
157 | /* Symbol of font font; x, ttf, pcf, etc, */ |
158 | Lisp_Object format; | |
159 | ||
c2f5bfd6 KH |
160 | /* File name of the font, or NULL if the font is not associated with |
161 | a file. */ | |
162 | char *file_name; | |
163 | ||
64c9fe54 KH |
164 | /* Charset to encode a character code into a glyph code of the font. |
165 | -1 means that the font doesn't require this information to encode | |
166 | a character. */ | |
c2f5bfd6 KH |
167 | int encoding_charset; |
168 | ||
169 | /* Charset to check if a character code is supported by the font. | |
170 | -1 means that the contents of the font must be looked up to | |
64c9fe54 | 171 | determine it. */ |
e2a3f5b2 | 172 | int repertory_charset; |
c2f5bfd6 KH |
173 | |
174 | /* Minimum glyph width (in pixels). */ | |
175 | int min_width; | |
176 | ||
177 | /* Ascent and descent of the font (in pixels). */ | |
178 | int ascent, descent; | |
179 | ||
e2873d13 KH |
180 | /* 1 iff the font is scalable. */ |
181 | int scalable; | |
182 | ||
c2f5bfd6 KH |
183 | /* There will be more to this structure, but they are private to a |
184 | font-driver. */ | |
185 | }; | |
186 | ||
f8657b39 KH |
187 | enum font_spacing |
188 | { | |
189 | FONT_SPACING_PROPORTIONAL = 0, | |
190 | FONT_SPACING_DUAL = 90, | |
191 | FONT_SPACING_MONO = 100, | |
192 | FONT_SPACING_CHARCELL = 110 | |
193 | }; | |
194 | ||
c2f5bfd6 KH |
195 | struct font_metrics |
196 | { | |
197 | short lbearing, rbearing, width, ascent, descent; | |
198 | }; | |
199 | ||
200 | struct font_bitmap | |
201 | { | |
5a74d0e5 | 202 | int bits_per_pixel; |
c2f5bfd6 KH |
203 | int rows; |
204 | int width; | |
205 | int pitch; | |
206 | unsigned char *buffer; | |
207 | int left; | |
208 | int top; | |
209 | int advance; | |
210 | void *extra; | |
211 | }; | |
212 | ||
213 | /* Predicates to check various font-related objects. */ | |
214 | ||
215 | #define FONTP(x) \ | |
216 | (VECTORP (x) && (ASIZE (x) == FONT_SPEC_MAX || ASIZE (x) == FONT_ENTITY_MAX)) | |
217 | #define FONT_SPEC_P(x) \ | |
218 | (VECTORP (x) && ASIZE (x) == FONT_SPEC_MAX) | |
219 | #define FONT_ENTITY_P(x) \ | |
220 | (VECTORP (x) && ASIZE (x) == FONT_ENTITY_MAX) | |
221 | #define FONT_OBJECT_P(x) \ | |
222 | (XTYPE (x) == Lisp_Misc && XMISCTYPE (x) == Lisp_Misc_Save_Value) | |
223 | ||
4b4836de KH |
224 | #define FONT_ENTITY_NOT_LOADABLE(entity) \ |
225 | EQ (AREF (entity, FONT_OBJLIST_INDEX), Qt) | |
226 | ||
227 | #define FONT_ENTITY_SET_NOT_LOADABLE(entity) \ | |
228 | ASET (entity, FONT_OBJLIST_INDEX, Qt) | |
229 | ||
c2f5bfd6 KH |
230 | |
231 | /* Check macros for various font-related objects. */ | |
232 | ||
233 | #define CHECK_FONT(x) \ | |
234 | do { if (! FONTP (x)) x = wrong_type_argument (Qfont, x); } while (0) | |
235 | #define CHECK_FONT_SPEC(x) \ | |
236 | do { if (! FONT_SPEC_P (x)) x = wrong_type_argument (Qfont, x); } while (0) | |
237 | #define CHECK_FONT_ENTITY(x) \ | |
238 | do { if (! FONT_ENTITY_P (x)) x = wrong_type_argument (Qfont, x); } while (0) | |
239 | #define CHECK_FONT_OBJECT(x) \ | |
240 | do { if (! FONT_OBJECT_P (x)) x = wrong_type_argument (Qfont, x); } while (0) | |
241 | ||
242 | #define CHECK_FONT_GET_OBJECT(x, font) \ | |
243 | do { \ | |
244 | if (! FONT_OBJECT_P (x)) x = wrong_type_argument (Qfont, x); \ | |
245 | if (! XSAVE_VALUE (x)->pointer) error ("Font already closed"); \ | |
246 | font = XSAVE_VALUE (x)->pointer; \ | |
247 | } while (0) | |
248 | ||
f8657b39 KH |
249 | /* Ignore the difference of font pixel sizes less than or equal to |
250 | this value. */ | |
251 | #define FONT_PIXEL_SIZE_QUANTUM 1 | |
252 | ||
c2f5bfd6 KH |
253 | struct face; |
254 | struct composition; | |
255 | ||
256 | /* Macros for lispy glyph-string. */ | |
257 | #define LGSTRING_FONT(lgs) AREF (AREF ((lgs), 0), 0) | |
4b4836de KH |
258 | #define LGSTRING_WIDTH(lgs) XINT (AREF (AREF ((lgs), 0), 1)) |
259 | #define LGSTRING_LBEARING(lgs) XINT (AREF (AREF ((lgs), 0), 2)) | |
260 | #define LGSTRING_RBEARING(lgs) XINT (AREF (AREF ((lgs), 0), 3)) | |
261 | #define LGSTRING_ASCENT(lgs) XINT (AREF (AREF ((lgs), 0), 4)) | |
262 | #define LGSTRING_DESCENT(lgs) XINT (AREF (AREF ((lgs), 0), 5)) | |
263 | #define LGSTRING_SET_FONT(lgs, val) \ | |
264 | ASET (AREF ((lgs), 0), 0, (val)) | |
265 | #define LGSTRING_SET_WIDTH(lgs, val) \ | |
266 | ASET (AREF ((lgs), 0), 1, make_number (val)) | |
267 | #define LGSTRING_SET_LBEARING(lgs, val) \ | |
268 | ASET (AREF ((lgs), 0), 2, make_number (val)) | |
269 | #define LGSTRING_SET_RBEARING(lgs, val) \ | |
270 | ASET (AREF ((lgs), 0), 3, make_number (val)) | |
271 | #define LGSTRING_SET_ASCENT(lgs, val) \ | |
272 | ASET (AREF ((lgs), 0), 4, make_number (val)) | |
273 | #define LGSTRING_SET_DESCENT(lgs, val) \ | |
274 | ASET (AREF ((lgs), 0), 5, make_number (val)) | |
c2f5bfd6 KH |
275 | |
276 | #define LGSTRING_LENGTH(lgs) (ASIZE ((lgs)) - 1) | |
277 | #define LGSTRING_GLYPH(lgs, idx) AREF ((lgs), (idx) + 1) | |
4b4836de KH |
278 | #define LGSTRING_SET_GLYPH(lgs, idx, val) ASET ((lgs), (idx) + 1, (val)) |
279 | ||
52b95de4 KH |
280 | /* Vector size of Lispy glyph. */ |
281 | #define LGLYPH_SIZE 10 | |
4b4836de KH |
282 | #define LGLYPH_FROM(g) XINT (AREF ((g), 0)) |
283 | #define LGLYPH_TO(g) XINT (AREF ((g), 1)) | |
284 | #define LGLYPH_CHAR(g) XINT (AREF ((g), 2)) | |
285 | #define LGLYPH_CODE(g) XINT (AREF ((g), 3)) | |
286 | #define LGLYPH_WIDTH(g) XINT (AREF ((g), 4)) | |
287 | #define LGLYPH_LBEARING(g) XINT (AREF ((g), 5)) | |
288 | #define LGLYPH_RBEARING(g) XINT (AREF ((g), 6)) | |
289 | #define LGLYPH_ASCENT(g) XINT (AREF ((g), 7)) | |
290 | #define LGLYPH_DESCENT(g) XINT (AREF ((g), 8)) | |
291 | #define LGLYPH_ADJUSTMENT(g) AREF ((g), 9) | |
292 | #define LGLYPH_SET_FROM(g, val) ASET ((g), 0, make_number (val)) | |
293 | #define LGLYPH_SET_TO(g, val) ASET ((g), 1, make_number (val)) | |
294 | #define LGLYPH_SET_CHAR(g, val) ASET ((g), 2, make_number (val)) | |
295 | #define LGLYPH_SET_CODE(g, val) ASET ((g), 3, make_number (val)) | |
296 | #define LGLYPH_SET_WIDTH(g, val) ASET ((g), 4, make_number (val)) | |
297 | #define LGLYPH_SET_LBEARING(g, val) ASET ((g), 5, make_number (val)) | |
298 | #define LGLYPH_SET_RBEARING(g, val) ASET ((g), 6, make_number (val)) | |
299 | #define LGLYPH_SET_ASCENT(g, val) ASET ((g), 7, make_number (val)) | |
300 | #define LGLYPH_SET_DESCENT(g, val) ASET ((g), 8, make_number (val)) | |
301 | #define LGLYPH_SET_ADJUSTMENT(g, val) ASET ((g), 9, (val)) | |
33b27f57 | 302 | |
0bd4cc79 KH |
303 | #define LGLYPH_XOFF(g) (VECTORP (LGLYPH_ADJUSTMENT (g)) \ |
304 | ? XINT (AREF (LGLYPH_ADJUSTMENT (g), 0)) : 0) | |
305 | #define LGLYPH_YOFF(g) (VECTORP (LGLYPH_ADJUSTMENT (g)) \ | |
306 | ? XINT (AREF (LGLYPH_ADJUSTMENT (g), 1)) : 0) | |
307 | #define LGLYPH_WADJUST(g) (VECTORP (LGLYPH_ADJUSTMENT (g)) \ | |
308 | ? XINT (AREF (LGLYPH_ADJUSTMENT (g), 2)) : 0) | |
c2f5bfd6 KH |
309 | |
310 | #define FONT_INVALID_CODE 0xFFFFFFFF | |
311 | ||
217caa37 KH |
312 | /* Font driver. Members specified as "optional" can be NULL. */ |
313 | ||
c2f5bfd6 KH |
314 | struct font_driver |
315 | { | |
316 | /* Symbol indicating the type of the font-driver. */ | |
317 | Lisp_Object type; | |
318 | ||
69ea039a | 319 | /* Return a cache of font-entities on frame F. The cache must be a |
c2f5bfd6 | 320 | cons whose cdr part is the actual cache area. */ |
69ea039a | 321 | Lisp_Object (*get_cache) P_ ((FRAME_PTR F)); |
c2f5bfd6 | 322 | |
dc377380 KH |
323 | /* List fonts exactly matching with FONT_SPEC on FRAME. The value |
324 | is a vector of font-entities. This is the sole API that | |
325 | allocates font-entities. */ | |
c2f5bfd6 KH |
326 | Lisp_Object (*list) P_ ((Lisp_Object frame, Lisp_Object font_spec)); |
327 | ||
dc377380 KH |
328 | /* Return a font entity most closely maching with FONT_SPEC on |
329 | FRAME. The closeness is detemined by the font backend, thus | |
330 | `face-font-selection-order' is ignored here. */ | |
331 | Lisp_Object (*match) P_ ((Lisp_Object frame, Lisp_Object font_spec)); | |
332 | ||
217caa37 KH |
333 | /* Optional. |
334 | List available families. The value is a list of family names | |
335 | (symbols). */ | |
c2f5bfd6 KH |
336 | Lisp_Object (*list_family) P_ ((Lisp_Object frame)); |
337 | ||
217caa37 KH |
338 | /* Optional (if FONT_EXTRA_INDEX is not Lisp_Save_Value). |
339 | Free FONT_EXTRA_INDEX field of FONT_ENTITY. */ | |
c2f5bfd6 KH |
340 | void (*free_entity) P_ ((Lisp_Object font_entity)); |
341 | ||
342 | /* Open a font specified by FONT_ENTITY on frame F. If the font is | |
343 | scalable, open it with PIXEL_SIZE. */ | |
344 | struct font *(*open) P_ ((FRAME_PTR f, Lisp_Object font_entity, | |
345 | int pixel_size)); | |
346 | ||
347 | /* Close FONT on frame F. */ | |
348 | void (*close) P_ ((FRAME_PTR f, struct font *font)); | |
349 | ||
217caa37 KH |
350 | /* Optional (if FACE->extra is not used). |
351 | Prepare FACE for displaying characters by FONT on frame F by | |
352 | storing some data in FACE->extra. If successful, return 0. | |
353 | Otherwise, return -1. */ | |
c2f5bfd6 KH |
354 | int (*prepare_face) P_ ((FRAME_PTR f, struct face *face)); |
355 | ||
217caa37 KH |
356 | /* Optional. |
357 | Done FACE for displaying characters by FACE->font on frame F. */ | |
c2f5bfd6 KH |
358 | void (*done_face) P_ ((FRAME_PTR f, struct face *face)); |
359 | ||
217caa37 KH |
360 | /* Optional. |
361 | If FONT_ENTITY has a glyph for character C (Unicode code point), | |
362 | return 1. If not, return 0. If a font must be opened to check | |
363 | it, return -1. */ | |
c2f5bfd6 KH |
364 | int (*has_char) P_ ((Lisp_Object entity, int c)); |
365 | ||
217caa37 KH |
366 | /* Return a glyph code of FONT for characer C (Unicode code point). |
367 | If FONT doesn't have such a glyph, return FONT_INVALID_CODE. */ | |
c2f5bfd6 KH |
368 | unsigned (*encode_char) P_ ((struct font *font, int c)); |
369 | ||
ef5e1a96 KH |
370 | /* Computate the total metrics of the NGLYPHS glyphs specified by |
371 | the font FONT and the sequence of glyph codes CODE, and store the | |
372 | result in METRICS. */ | |
c2f5bfd6 KH |
373 | int (*text_extents) P_ ((struct font *font, |
374 | unsigned *code, int nglyphs, | |
375 | struct font_metrics *metrics)); | |
376 | ||
217caa37 KH |
377 | /* Optional. |
378 | Draw glyphs between FROM and TO of S->char2b at (X Y) pixel | |
c2f5bfd6 KH |
379 | position of frame F with S->FACE and S->GC. If WITH_BACKGROUND |
380 | is nonzero, fill the background in advance. It is assured that | |
381 | WITH_BACKGROUND is zero when (FROM > 0 || TO < S->nchars). */ | |
382 | int (*draw) P_ ((struct glyph_string *s, int from, int to, | |
383 | int x, int y, int with_background)); | |
384 | ||
217caa37 KH |
385 | /* Optional. |
386 | Store bitmap data for glyph-code CODE of FONT in BITMAP. It is | |
387 | intended that this method is callled from the other font-driver | |
388 | for actual drawing. */ | |
c2f5bfd6 KH |
389 | int (*get_bitmap) P_ ((struct font *font, unsigned code, |
390 | struct font_bitmap *bitmap, | |
391 | int bits_per_pixel)); | |
392 | ||
217caa37 KH |
393 | /* Optional. |
394 | Free bitmap data in BITMAP. */ | |
c2f5bfd6 KH |
395 | void (*free_bitmap) P_ ((struct font *font, struct font_bitmap *bitmap)); |
396 | ||
217caa37 KH |
397 | /* Optional. |
398 | Return an outline data for glyph-code CODE of FONT. The format | |
399 | of the outline data depends on the font-driver. */ | |
c2f5bfd6 KH |
400 | void *(*get_outline) P_ ((struct font *font, unsigned code)); |
401 | ||
217caa37 KH |
402 | /* Optional. |
403 | Free OUTLINE (that is obtained by the above method). */ | |
c2f5bfd6 KH |
404 | void (*free_outline) P_ ((struct font *font, void *outline)); |
405 | ||
217caa37 KH |
406 | /* Optional. |
407 | Get coordinates of the INDEXth anchor point of the glyph whose | |
c2f5bfd6 | 408 | code is CODE. Store the coordinates in *X and *Y. Return 0 if |
217caa37 | 409 | the operations was successfull. Otherwise return -1. */ |
c2f5bfd6 KH |
410 | int (*anchor_point) P_ ((struct font *font, unsigned code, int index, |
411 | int *x, int *y)); | |
412 | ||
217caa37 KH |
413 | /* Optional. |
414 | Return a list describing which scripts/languages FONT | |
c2f5bfd6 KH |
415 | supports by which GSUB/GPOS features of OpenType tables. */ |
416 | Lisp_Object (*otf_capability) P_ ((struct font *font)); | |
417 | ||
217caa37 | 418 | /* Optional. |
b6c8772a KH |
419 | Apply FONT's OTF-FEATURES to the glyph string. |
420 | ||
421 | FEATURES specifies which OTF features to apply in this format: | |
422 | (SCRIPT LANGSYS GSUB-FEATURE GPOS-FEATURE) | |
423 | See the documentation of `font-drive-otf' for the detail. | |
c2f5bfd6 KH |
424 | |
425 | This method applies the specified features to the codes in the | |
426 | elements of GSTRING-IN (between FROMth and TOth). The output | |
427 | codes are stored in GSTRING-OUT at the IDXth element and the | |
428 | following elements. | |
429 | ||
430 | Return the number of output codes. If none of the features are | |
431 | applicable to the input data, return 0. If GSTRING-OUT is too | |
432 | short, return -1. */ | |
b6c8772a | 433 | int (*otf_drive) P_ ((struct font *font, Lisp_Object features, |
c2f5bfd6 | 434 | Lisp_Object gstring_in, int from, int to, |
e2873d13 | 435 | Lisp_Object gstring_out, int idx, int alternate_subst)); |
5a74d0e5 KH |
436 | |
437 | /* Optional. | |
438 | Make the font driver ready for frame F. Usually this function | |
439 | makes some data specific to F and store it in F by calling | |
440 | font_put_frame_data (). */ | |
441 | int (*start_for_frame) P_ ((FRAME_PTR f)); | |
442 | ||
443 | /* Optional. | |
444 | End using the driver for frame F. Usually this function free | |
445 | some data stored for F. */ | |
446 | int (*end_for_frame) P_ ((FRAME_PTR f)); | |
4b4836de KH |
447 | |
448 | /* Optional. | |
449 | Shape text in LGSTRING. */ | |
450 | Lisp_Object (*shape) P_ ((Lisp_Object lgstring)); | |
c2f5bfd6 KH |
451 | }; |
452 | ||
453 | ||
5a74d0e5 KH |
454 | /* Chain of font drivers. There's one global font driver list |
455 | (font_driver_list in font.c). In addition, each frame has it's own | |
456 | font driver list at FRAME_PTR->font_driver_list. */ | |
457 | ||
c2f5bfd6 KH |
458 | struct font_driver_list |
459 | { | |
5a74d0e5 KH |
460 | /* 1 iff this driver is currently used. It is igonred in the global |
461 | font driver list.*/ | |
484ca464 | 462 | int on; |
5a74d0e5 | 463 | /* Pointer to the font driver. */ |
c2f5bfd6 | 464 | struct font_driver *driver; |
5a74d0e5 | 465 | /* Pointer to the next element of the chain. */ |
c2f5bfd6 KH |
466 | struct font_driver_list *next; |
467 | }; | |
468 | ||
5a74d0e5 KH |
469 | |
470 | /* Chain of arbitrary data specific to each font driver. Each frame | |
471 | has it's own font data list at FRAME_PTR->font_data_list. */ | |
472 | ||
473 | struct font_data_list | |
474 | { | |
475 | /* Pointer to the font driver. */ | |
476 | struct font_driver *driver; | |
477 | /* Data specific to the font driver. */ | |
478 | void *data; | |
479 | /* Pointer to the next element of the chain. */ | |
480 | struct font_data_list *next; | |
481 | }; | |
482 | ||
c2f5bfd6 KH |
483 | extern int enable_font_backend; |
484 | ||
485 | EXFUN (Ffont_spec, MANY); | |
4b4836de | 486 | EXFUN (Ffont_get, 2); |
8d3251f2 | 487 | EXFUN (Flist_fonts, 4); |
484ca464 | 488 | EXFUN (Fclear_font_cache, 0); |
8bb2f20f | 489 | EXFUN (Ffont_xlfd_name, 1); |
c2f5bfd6 | 490 | |
4b4836de KH |
491 | extern int font_registry_charsets P_ ((Lisp_Object, struct charset **, |
492 | struct charset **)); | |
c2f5bfd6 KH |
493 | extern Lisp_Object font_symbolic_weight P_ ((Lisp_Object font)); |
494 | extern Lisp_Object font_symbolic_slant P_ ((Lisp_Object font)); | |
495 | extern Lisp_Object font_symbolic_width P_ ((Lisp_Object font)); | |
496 | ||
217caa37 KH |
497 | extern int font_match_p P_ ((Lisp_Object spec, Lisp_Object entity)); |
498 | ||
c2f5bfd6 | 499 | extern Lisp_Object font_find_object P_ ((struct font *font)); |
217caa37 KH |
500 | extern Lisp_Object font_get_name P_ ((Lisp_Object font_object)); |
501 | extern Lisp_Object font_get_spec P_ ((Lisp_Object font_object)); | |
502 | extern Lisp_Object font_get_frame P_ ((Lisp_Object font_object)); | |
c2f5bfd6 KH |
503 | extern int font_has_char P_ ((FRAME_PTR, Lisp_Object, int)); |
504 | extern unsigned font_encode_char P_ ((Lisp_Object, int)); | |
505 | ||
506 | extern int font_set_lface_from_name P_ ((FRAME_PTR f, | |
507 | Lisp_Object lface, | |
508 | Lisp_Object fontname, | |
509 | int force_p, int may_fail_p)); | |
510 | extern Lisp_Object font_find_for_lface P_ ((FRAME_PTR f, Lisp_Object *lface, | |
4b4836de | 511 | Lisp_Object spec, int c)); |
b6c8772a KH |
512 | extern Lisp_Object font_open_for_lface P_ ((FRAME_PTR f, Lisp_Object entity, |
513 | Lisp_Object *lface, | |
514 | Lisp_Object spec)); | |
c2f5bfd6 KH |
515 | extern void font_load_for_face P_ ((FRAME_PTR f, struct face *face)); |
516 | extern void font_prepare_for_face P_ ((FRAME_PTR f, struct face *face)); | |
517 | extern Lisp_Object font_open_by_name P_ ((FRAME_PTR f, char *name)); | |
64c9fe54 | 518 | extern void font_close_object (FRAME_PTR f, Lisp_Object font_object); |
c2f5bfd6 KH |
519 | |
520 | extern Lisp_Object intern_downcase P_ ((char *str, int len)); | |
521 | extern void font_update_sort_order P_ ((int *order)); | |
522 | ||
64c9fe54 KH |
523 | extern void font_merge_old_spec P_ ((Lisp_Object name, Lisp_Object family, |
524 | Lisp_Object registry, Lisp_Object spec)); | |
c2f5bfd6 KH |
525 | |
526 | ||
a46bb06e | 527 | extern int font_parse_xlfd P_ ((char *name, Lisp_Object font)); |
c2f5bfd6 KH |
528 | extern int font_unparse_xlfd P_ ((Lisp_Object font, int pixel_size, |
529 | char *name, int bytes)); | |
a46bb06e | 530 | extern int font_parse_fcname P_ ((char *name, Lisp_Object font)); |
217caa37 KH |
531 | extern int font_unparse_fcname P_ ((Lisp_Object font, int pixel_size, |
532 | char *name, int bytes)); | |
c2f5bfd6 KH |
533 | extern void register_font_driver P_ ((struct font_driver *driver, FRAME_PTR f)); |
534 | extern void free_font_driver_list P_ ((FRAME_PTR f)); | |
dc377380 | 535 | extern Lisp_Object font_update_drivers P_ ((FRAME_PTR f, Lisp_Object list)); |
0bd4cc79 KH |
536 | extern Lisp_Object font_at P_ ((int c, EMACS_INT pos, struct face *face, |
537 | struct window *w, Lisp_Object object)); | |
c2f5bfd6 | 538 | |
4b4836de KH |
539 | extern struct font *font_prepare_composition P_ ((struct composition *cmp, |
540 | FRAME_PTR f)); | |
c2f5bfd6 | 541 | |
17484ddc JR |
542 | extern Lisp_Object font_put_extra P_ ((Lisp_Object font, Lisp_Object prop, |
543 | Lisp_Object val)); | |
c2f5bfd6 | 544 | |
5a74d0e5 KH |
545 | extern int font_put_frame_data P_ ((FRAME_PTR f, |
546 | struct font_driver *driver, | |
547 | void *data)); | |
548 | extern void *font_get_frame_data P_ ((FRAME_PTR f, | |
549 | struct font_driver *driver)); | |
550 | ||
c2f5bfd6 KH |
551 | #ifdef HAVE_FREETYPE |
552 | extern struct font_driver ftfont_driver; | |
553 | #endif /* HAVE_FREETYPE */ | |
554 | #ifdef HAVE_X_WINDOWS | |
555 | extern struct font_driver xfont_driver; | |
556 | extern struct font_driver ftxfont_driver; | |
557 | #ifdef HAVE_XFT | |
558 | extern struct font_driver xftfont_driver; | |
559 | #endif /* HAVE_XFT */ | |
560 | #endif /* HAVE_X_WINDOWS */ | |
561 | #ifdef WINDOWSNT | |
562 | extern struct font_driver w32font_driver; | |
563 | #endif /* WINDOWSNT */ | |
564 | #ifdef MAC_OS | |
565 | extern struct font_driver atmfont_driver; | |
566 | #endif /* MAC_OS */ | |
567 | ||
568 | #endif /* not EMACS_FONT_H */ | |
885b7d09 MB |
569 | |
570 | /* arch-tag: 3b7260c3-5bec-4d6b-a0db-95c1b431b1a2 | |
571 | (do not change this comment) */ |