Mercurial > emacs
comparison src/w32font.c @ 90869:9a1ccf2dfd96
New file for w32 font backend.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Thu, 31 May 2007 01:04:13 +0000 |
parents | |
children | 82b86c925f88 |
comparison
equal
deleted
inserted
replaced
90868:cda1d64776fb | 90869:9a1ccf2dfd96 |
---|---|
1 /* Font backend for the Microsoft W32 API. | |
2 Copyright (C) 2007 Free Software Foundation, Inc. | |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
19 Boston, MA 02110-1301, USA. */ | |
20 | |
21 #include <config.h> | |
22 #include <windows.h> | |
23 | |
24 #include "lisp.h" | |
25 #include "w32term.h" | |
26 #include "frame.h" | |
27 #include "dispextern.h" | |
28 #include "character.h" | |
29 #include "charset.h" | |
30 #include "fontset.h" | |
31 #include "font.h" | |
32 | |
33 /* The actual structure for a w32 font, that can be cast to struct font. */ | |
34 struct w32font_info | |
35 { | |
36 struct font font; | |
37 TEXTMETRIC metrics; | |
38 /* Unicode subset bitfield. See MSDN documentation for FONTSIGNATURE. */ | |
39 DWORD *subranges; | |
40 }; | |
41 | |
42 extern struct font_driver w32font_driver; | |
43 | |
44 Lisp_Object Qw32; | |
45 static Lisp_Object Qmodern, Qswiss, Qroman, Qdecorative, Qscript, Qunknown; | |
46 | |
47 static void fill_in_logfont P_ ((FRAME_PTR f, LOGFONT *logfont, | |
48 Lisp_Object font_spec)); | |
49 | |
50 static void set_fonts_frame P_ ((Lisp_Object fontlist, Lisp_Object frame)); | |
51 | |
52 static int unicode_range_for_char (unsigned c); | |
53 | |
54 static void list_all_matching_fonts P_ ((Lisp_Object frame, | |
55 LOGFONT *font_match_pattern, | |
56 Lisp_Object* list)); | |
57 | |
58 /* From old font code in w32fns.c */ | |
59 char * w32_to_x_charset P_ ((int charset, char * matching)); | |
60 | |
61 static Lisp_Object w32_registry P_ ((LONG w32_charset)); | |
62 | |
63 /* EnumFontFamiliesEx callbacks. */ | |
64 static int CALLBACK add_font_entity_to_list P_ ((ENUMLOGFONTEX *, | |
65 NEWTEXTMETRICEX *, | |
66 DWORD, LPARAM)); | |
67 static int CALLBACK add_one_font_entity_to_list P_ ((ENUMLOGFONTEX *, | |
68 NEWTEXTMETRICEX *, | |
69 DWORD, LPARAM)); | |
70 static int CALLBACK add_font_name_to_list P_ ((ENUMLOGFONTEX *, | |
71 NEWTEXTMETRICEX *, | |
72 DWORD, LPARAM)); | |
73 | |
74 /* W32 API functions only available on some versions of Windows */ | |
75 typedef DWORD (*GETGLYPHINDICES) (HDC, wchar_t *, int, LPWORD, DWORD); | |
76 typedef BOOL (*GETTEXTEXTENTPTI) (HDC, LPWORD, int, LPSIZE); | |
77 static GETGLYPHINDICES get_glyph_indices_fn = NULL; | |
78 static GETTEXTEXTENTPTI get_text_extent_pointi_fn = NULL; | |
79 /* MingW headers only define this when _WIN32_WINNT >= 0x0500, but we | |
80 target older versions. */ | |
81 #define GGI_MARK_NONEXISTING_GLYPHS 1 | |
82 | |
83 static int | |
84 memq_no_quit (elt, list) | |
85 Lisp_Object elt, list; | |
86 { | |
87 while (CONSP (list) && ! EQ (XCAR (list), elt)) | |
88 list = XCDR (list); | |
89 return (CONSP (list)); | |
90 } | |
91 | |
92 /* w32 implementation of get_cache for font backend. | |
93 Return a cache of font-entities on FRAME. The cache must be a | |
94 cons whose cdr part is the actual cache area. */ | |
95 static Lisp_Object w32font_get_cache (Lisp_Object frame) | |
96 { | |
97 struct w32_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (XFRAME (frame)); | |
98 | |
99 return (dpyinfo->name_list_element); | |
100 } | |
101 | |
102 /* w32 implementation of list for font backend. | |
103 List fonts exactly matching with FONT_SPEC on FRAME. The value | |
104 is a vector of font-entities. This is the sole API that | |
105 allocates font-entities. */ | |
106 static Lisp_Object w32font_list (Lisp_Object frame, Lisp_Object font_spec) | |
107 { | |
108 Lisp_Object list = Qnil; | |
109 LOGFONT font_match_pattern; | |
110 HDC dc; | |
111 FRAME_PTR f = XFRAME (frame); | |
112 | |
113 bzero (&font_match_pattern, sizeof (font_match_pattern)); | |
114 fill_in_logfont (f, &font_match_pattern, font_spec); | |
115 | |
116 | |
117 if (font_match_pattern.lfFaceName[0] == '\0') | |
118 { | |
119 /* EnumFontFamiliesEx does not take other fields into account if | |
120 font name is blank, so need to use two passes. */ | |
121 list_all_matching_fonts (frame, &font_match_pattern, &list); | |
122 } | |
123 else | |
124 { | |
125 dc = get_frame_dc (f); | |
126 | |
127 EnumFontFamiliesEx (dc, &font_match_pattern, | |
128 (FONTENUMPROC) add_font_entity_to_list, | |
129 (LPARAM) &list, 0); | |
130 release_frame_dc (f, dc); | |
131 } | |
132 | |
133 set_fonts_frame (list, frame); | |
134 | |
135 return list; | |
136 } | |
137 | |
138 /* w32 implementation of match for font backend. | |
139 Return a font entity most closely matching with FONT_SPEC on | |
140 FRAME. The closeness is detemined by the font backend, thus | |
141 `face-font-selection-order' is ignored here. */ | |
142 static Lisp_Object w32font_match (Lisp_Object frame, Lisp_Object font_spec) | |
143 { | |
144 Lisp_Object list = Qnil; | |
145 LOGFONT font_match_pattern; | |
146 HDC dc; | |
147 FRAME_PTR f = XFRAME (frame); | |
148 | |
149 bzero (&font_match_pattern, sizeof (font_match_pattern)); | |
150 fill_in_logfont (f, &font_match_pattern, font_spec); | |
151 | |
152 dc = get_frame_dc (f); | |
153 | |
154 EnumFontFamiliesEx (dc, &font_match_pattern, | |
155 (FONTENUMPROC) add_one_font_entity_to_list, | |
156 (LPARAM) &list, 0); | |
157 release_frame_dc (f, dc); | |
158 | |
159 set_fonts_frame (list, frame); | |
160 | |
161 return NILP (list) ? Qnil : XCAR (list); | |
162 } | |
163 | |
164 | |
165 /* w32 implementation of list_family for font backend. | |
166 List available families. The value is a list of family names | |
167 (symbols). */ | |
168 static Lisp_Object w32font_list_family (Lisp_Object frame) | |
169 { | |
170 Lisp_Object list = Qnil; | |
171 LOGFONT font_match_pattern; | |
172 HDC dc; | |
173 FRAME_PTR f = XFRAME (frame); | |
174 | |
175 bzero (&font_match_pattern, sizeof (font_match_pattern)); | |
176 | |
177 dc = get_frame_dc (f); | |
178 | |
179 EnumFontFamiliesEx (dc, &font_match_pattern, | |
180 (FONTENUMPROC) add_font_name_to_list, | |
181 (LPARAM) &list, 0); | |
182 release_frame_dc (f, dc); | |
183 | |
184 return list; | |
185 } | |
186 | |
187 /* w32 implementation of open for font backend. | |
188 Open a font specified by FONT_ENTITY on frame F. | |
189 If the font is scalable, open it with PIXEL_SIZE. */ | |
190 static struct font* w32font_open (FRAME_PTR f, Lisp_Object font_entity, | |
191 int pixel_size) | |
192 { | |
193 int len; | |
194 LOGFONT logfont; | |
195 HDC dc; | |
196 HFONT hfont, old_font; | |
197 Lisp_Object val; | |
198 /* For backwards compatibility. */ | |
199 W32FontStruct *compat_w32_font; | |
200 | |
201 struct w32font_info *w32_font = xmalloc (sizeof (struct w32font_info)); | |
202 | |
203 struct font * font = (struct font *) w32_font; | |
204 if (!font) | |
205 return NULL; | |
206 | |
207 bzero (&logfont, sizeof (logfont)); | |
208 fill_in_logfont (f, &logfont, font_entity); | |
209 | |
210 hfont = CreateFontIndirect (&logfont); | |
211 | |
212 if (hfont == NULL) | |
213 { | |
214 xfree (w32_font); | |
215 return NULL; | |
216 } | |
217 | |
218 /* Get the metrics for this font. */ | |
219 dc = get_frame_dc (f); | |
220 old_font = SelectObject (dc, hfont); | |
221 | |
222 GetTextMetrics (dc, &w32_font->metrics); | |
223 | |
224 SelectObject (dc, old_font); | |
225 release_frame_dc (f, dc); | |
226 /* W32FontStruct - we should get rid of this, and use the w32font_info | |
227 struct for any W32 specific fields. font->font.font can then be hfont. */ | |
228 font->font.font = xmalloc (sizeof (W32FontStruct)); | |
229 compat_w32_font = (W32FontStruct *) font->font.font; | |
230 bzero (compat_w32_font, sizeof (W32FontStruct)); | |
231 compat_w32_font->font_type = UNICODE_FONT; | |
232 /* Duplicate the text metrics. */ | |
233 bcopy (&w32_font->metrics, &compat_w32_font->tm, sizeof (TEXTMETRIC)); | |
234 compat_w32_font->hfont = hfont; | |
235 | |
236 font->font.font_idx = 0; | |
237 len = strlen (logfont.lfFaceName); | |
238 font->font.name = (char *) xmalloc (len + 1); | |
239 bcopy (logfont.lfFaceName, font->font.name, len); | |
240 font->font.name[len] = '\0'; | |
241 font->font.full_name = font->font.name; | |
242 font->font.charset = 0; | |
243 font->font.codepage = 0; | |
244 font->font.size = logfont.lfWidth; | |
245 font->font.height = w32_font->metrics.tmHeight; | |
246 font->font.space_width = font->font.average_width | |
247 = w32_font->metrics.tmAveCharWidth; | |
248 | |
249 font->font.vertical_centering = 0; | |
250 font->font.encoding_type = 0; | |
251 font->font.baseline_offset = 0; | |
252 font->font.relative_compose = 0; | |
253 font->font.default_ascent = w32_font->metrics.tmAscent; | |
254 font->font.font_encoder = NULL; | |
255 font->entity = font_entity; | |
256 font->pixel_size = pixel_size; | |
257 font->driver = &w32font_driver; | |
258 font->format = Qw32; | |
259 font->file_name = NULL; | |
260 font->encoding_charset = -1; | |
261 font->repertory_charset = -1; | |
262 font->min_width = 0; | |
263 font->ascent = w32_font->metrics.tmAscent; | |
264 font->descent = w32_font->metrics.tmDescent; | |
265 font->scalable = w32_font->metrics.tmPitchAndFamily & TMPF_VECTOR; | |
266 | |
267 /* Truetype fonts will have extra information about the characters | |
268 covered by the font. */ | |
269 val = AREF (font_entity, FONT_EXTRA_INDEX); | |
270 if (XTYPE (val) == Lisp_Misc && XMISCTYPE (val) == Lisp_Misc_Save_Value) | |
271 ((struct w32font_info *)(font))->subranges = XSAVE_VALUE (val)->pointer; | |
272 else | |
273 ((struct w32font_info *)(font))->subranges = NULL; | |
274 | |
275 return font; | |
276 } | |
277 | |
278 /* w32 implementation of close for font_backend. | |
279 Close FONT on frame F. */ | |
280 static void w32font_close (FRAME_PTR f, struct font *font) | |
281 { | |
282 if (font->font.font) | |
283 { | |
284 W32FontStruct *old_w32_font = (W32FontStruct *)font->font.font; | |
285 DeleteObject (font->font.font); | |
286 xfree (old_w32_font); | |
287 font->font.font = 0; | |
288 } | |
289 | |
290 if (font->font.name) | |
291 xfree (font->font.name); | |
292 xfree (font); | |
293 } | |
294 | |
295 /* w32 implementation of has_char for font backend. | |
296 Optional. | |
297 If FONT_ENTITY has a glyph for character C (Unicode code point), | |
298 return 1. If not, return 0. If a font must be opened to check | |
299 it, return -1. */ | |
300 static int w32font_has_char (Lisp_Object entity, int c) | |
301 { | |
302 Lisp_Object val; | |
303 DWORD *ranges; | |
304 int index; | |
305 DWORD mask; | |
306 | |
307 val = AREF (entity, FONT_EXTRA_INDEX); | |
308 if (XTYPE (val) != Lisp_Misc || XMISCTYPE (val) != Lisp_Misc_Save_Value) | |
309 return -1; | |
310 | |
311 ranges = XSAVE_VALUE (val)->pointer; | |
312 | |
313 index = unicode_range_for_char (c); | |
314 mask = 1 << (index % 32); | |
315 index = index / 32; | |
316 | |
317 if (ranges[index] & mask) | |
318 return 1; | |
319 else | |
320 return 0; | |
321 } | |
322 | |
323 /* w32 implementation of encode_char for font backend. | |
324 Return a glyph code of FONT for characer C (Unicode code point). | |
325 If FONT doesn't have such a glyph, return FONT_INVALID_CODE. */ | |
326 static unsigned w32font_encode_char (struct font *font, int c) | |
327 { | |
328 if (get_glyph_indices_fn) | |
329 { | |
330 HFONT old_font; | |
331 WORD glyph[2]; | |
332 int converted; | |
333 /* FIXME: Be nice if we had a frame here, rather than getting | |
334 the desktop's device context to measure against... */ | |
335 HDC dc = GetDC (NULL); | |
336 wchar_t string[2]; | |
337 string[0] = c; | |
338 string[1] = 0x0000; | |
339 | |
340 if (get_glyph_indices_fn) | |
341 converted = (*get_glyph_indices_fn) (dc, string, 1, glyph, | |
342 GGI_MARK_NONEXISTING_GLYPHS); | |
343 | |
344 /* Restore state and release DC. */ | |
345 SelectObject (dc, old_font); | |
346 ReleaseDC (NULL, dc); | |
347 if (converted > 0 && glyph[0] != 0xFFFF) | |
348 return glyph[0]; | |
349 else if (converted != GDI_ERROR) | |
350 return FONT_INVALID_CODE; | |
351 } | |
352 /* On older platforms, or if the above fails, return the unicode | |
353 code point. */ | |
354 return c; | |
355 } | |
356 | |
357 /* w32 implementation of text_extents for font backend. | |
358 Perform the size computation of glyphs of FONT and fillin members | |
359 of METRICS. The glyphs are specified by their glyph codes in | |
360 CODE (length NGLYPHS). Apparently medtrics can be NULL, in this | |
361 case just return the overall width. */ | |
362 static int w32font_text_extents (struct font *font, | |
363 unsigned *code, int nglyphs, | |
364 struct font_metrics *metrics) | |
365 { | |
366 int i; | |
367 HFONT old_font; | |
368 /* FIXME: Be nice if we had a frame here, rather than getting the desktop's | |
369 device context to measure against... */ | |
370 HDC dc = GetDC (NULL); | |
371 int total_width = 0; | |
372 | |
373 /* TODO: Allow some extra room for surrogates. */ | |
374 WORD *wcode = alloca(nglyphs * sizeof (WORD)); | |
375 | |
376 old_font = SelectObject (dc, ((W32FontStruct *)(font->font.font))->hfont); | |
377 | |
378 if (metrics) | |
379 { | |
380 GLYPHMETRICS gm; | |
381 int i; | |
382 UINT format = GGO_METRICS; | |
383 if (get_text_extent_pointi_fn) | |
384 format |= GGO_GLYPH_INDEX; | |
385 | |
386 for (i = 0; i < nglyphs; i++) | |
387 { | |
388 if (GetGlyphOutline (dc, *(code + i), format, &gm, 0, NULL, NULL) | |
389 != GDI_ERROR) | |
390 { | |
391 metrics[i].lbearing = gm.gmptGlyphOrigin.x; | |
392 metrics[i].rbearing = gm.gmptGlyphOrigin.x + gm.gmBlackBoxX; | |
393 metrics[i].width = gm.gmCellIncX; | |
394 metrics[i].ascent = -gm.gmptGlyphOrigin.y; | |
395 metrics[i].descent = gm.gmBlackBoxY + gm.gmptGlyphOrigin.y; | |
396 } | |
397 else | |
398 { | |
399 metrics[i].lbearing = 0; | |
400 metrics[i].rbearing = font->font.size | |
401 + ((struct w32font_info *) font)->metrics.tmOverhang; | |
402 metrics[i].width = font->font.size; | |
403 metrics[i].ascent = font->ascent; | |
404 metrics[i].descent = font->descent; | |
405 } | |
406 } | |
407 } | |
408 | |
409 for (i = 0; i < nglyphs; i++) | |
410 { | |
411 if (code[i] < 0x10000) | |
412 wcode[i] = code[i]; | |
413 else | |
414 { | |
415 /* TODO: Convert to surrogate, reallocating array if needed */ | |
416 wcode[i] = 0xffff; | |
417 } | |
418 } | |
419 | |
420 if (get_text_extent_pointi_fn) | |
421 { | |
422 SIZE size; | |
423 if ((*get_text_extent_pointi_fn) (dc, wcode, nglyphs, &size)) | |
424 { | |
425 total_width = size.cx; | |
426 } | |
427 } | |
428 | |
429 if (total_width == 0) | |
430 { | |
431 RECT rect; | |
432 rect.top = 0; rect.bottom = font->font.height; rect.left = 0; rect.right = 1; | |
433 DrawTextW (dc, wcode, nglyphs, &rect, | |
434 DT_CALCRECT | DT_NOPREFIX | DT_SINGLELINE); | |
435 total_width = rect.right; | |
436 } | |
437 /* Restore state and release DC. */ | |
438 SelectObject (dc, old_font); | |
439 ReleaseDC (NULL, dc); | |
440 | |
441 return total_width; | |
442 } | |
443 | |
444 /* w32 implementation of draw for font backend. | |
445 Optional. | |
446 Draw glyphs between FROM and TO of S->char2b at (X Y) pixel | |
447 position of frame F with S->FACE and S->GC. If WITH_BACKGROUND | |
448 is nonzero, fill the background in advance. It is assured that | |
449 WITH_BACKGROUND is zero when (FROM > 0 || TO < S->nchars). */ | |
450 static int w32font_draw (struct glyph_string *s, int from, int to, | |
451 int x, int y, int with_background) | |
452 { | |
453 UINT options = 0; | |
454 | |
455 if (with_background) | |
456 { | |
457 options = ETO_OPAQUE; | |
458 SetBkColor (s->hdc, s->gc->background); | |
459 } | |
460 else | |
461 SetBkMode (s->hdc, TRANSPARENT); | |
462 ExtTextOutW (s->hdc, x, y, 0, NULL, s->char2b + from, to - from + 1, NULL); | |
463 } | |
464 | |
465 /* w32 implementation of free_entity for font backend. | |
466 Optional (if FONT_EXTRA_INDEX is not Lisp_Save_Value). | |
467 Free FONT_EXTRA_INDEX field of FONT_ENTITY. | |
468 static void w32font_free_entity (Lisp_Object entity); | |
469 */ | |
470 | |
471 /* w32 implementation of prepare_face for font backend. | |
472 Optional (if FACE->extra is not used). | |
473 Prepare FACE for displaying characters by FONT on frame F by | |
474 storing some data in FACE->extra. If successful, return 0. | |
475 Otherwise, return -1. | |
476 static int w32font_prepare_face (FRAME_PTR f, struct face *face); | |
477 */ | |
478 /* w32 implementation of done_face for font backend. | |
479 Optional. | |
480 Done FACE for displaying characters by FACE->font on frame F. | |
481 static void w32font_done_face (FRAME_PTR f, struct face *face); */ | |
482 | |
483 /* w32 implementation of get_bitmap for font backend. | |
484 Optional. | |
485 Store bitmap data for glyph-code CODE of FONT in BITMAP. It is | |
486 intended that this method is callled from the other font-driver | |
487 for actual drawing. | |
488 static int w32font_get_bitmap (struct font *font, unsigned code, | |
489 struct font_bitmap *bitmap, | |
490 int bits_per_pixel); | |
491 */ | |
492 /* w32 implementation of free_bitmap for font backend. | |
493 Optional. | |
494 Free bitmap data in BITMAP. | |
495 static void w32font_free_bitmap (struct font *font, struct font_bitmap *bitmap); | |
496 */ | |
497 /* w32 implementation of get_outline for font backend. | |
498 Optional. | |
499 Return an outline data for glyph-code CODE of FONT. The format | |
500 of the outline data depends on the font-driver. | |
501 static void* w32font_get_outline (struct font *font, unsigned code); | |
502 */ | |
503 /* w32 implementation of free_outline for font backend. | |
504 Optional. | |
505 Free OUTLINE (that is obtained by the above method). | |
506 static void w32font_free_outline (struct font *font, void *outline); | |
507 */ | |
508 /* w32 implementation of anchor_point for font backend. | |
509 Optional. | |
510 Get coordinates of the INDEXth anchor point of the glyph whose | |
511 code is CODE. Store the coordinates in *X and *Y. Return 0 if | |
512 the operations was successfull. Otherwise return -1. | |
513 static int w32font_anchor_point (struct font *font, unsigned code, | |
514 int index, int *x, int *y); | |
515 */ | |
516 /* w32 implementation of otf_capability for font backend. | |
517 Optional. | |
518 Return a list describing which scripts/languages FONT | |
519 supports by which GSUB/GPOS features of OpenType tables. | |
520 static Lisp_Object w32font_otf_capability (struct font *font); | |
521 */ | |
522 /* w32 implementation of otf_drive for font backend. | |
523 Optional. | |
524 Apply FONT's OTF-FEATURES to the glyph string. | |
525 | |
526 FEATURES specifies which OTF features to apply in this format: | |
527 (SCRIPT LANGSYS GSUB-FEATURE GPOS-FEATURE) | |
528 See the documentation of `font-drive-otf' for the detail. | |
529 | |
530 This method applies the specified features to the codes in the | |
531 elements of GSTRING-IN (between FROMth and TOth). The output | |
532 codes are stored in GSTRING-OUT at the IDXth element and the | |
533 following elements. | |
534 | |
535 Return the number of output codes. If none of the features are | |
536 applicable to the input data, return 0. If GSTRING-OUT is too | |
537 short, return -1. | |
538 static int w32font_otf_drive (struct font *font, Lisp_Object features, | |
539 Lisp_Object gstring_in, int from, int to, | |
540 Lisp_Object gstring_out, int idx, | |
541 int alternate_subst); | |
542 */ | |
543 | |
544 /* Callback function for EnumFontFamiliesEx. | |
545 * Adds the name of a font to a Lisp list (passed in as the lParam arg). */ | |
546 static int CALLBACK add_font_name_to_list (ENUMLOGFONTEX *logical_font, | |
547 NEWTEXTMETRICEX *physical_font, | |
548 DWORD font_type, | |
549 LPARAM list_object) | |
550 { | |
551 Lisp_Object* list = (Lisp_Object *) list_object; | |
552 Lisp_Object family = intern_downcase (logical_font->elfLogFont.lfFaceName, | |
553 strlen (logical_font->elfLogFont.lfFaceName)); | |
554 if (! memq_no_quit (family, *list)) | |
555 *list = Fcons (family, *list); | |
556 | |
557 return 1; | |
558 } | |
559 | |
560 /* Convert an enumerated Windows font to an Emacs font entity. */ | |
561 Lisp_Object w32_enumfont_pattern_entity (ENUMLOGFONTEX *logical_font, | |
562 NEWTEXTMETRICEX *physical_font, | |
563 DWORD font_type) | |
564 { | |
565 Lisp_Object entity, tem; | |
566 LOGFONT *lf = (LOGFONT*) logical_font; | |
567 BYTE generic_type; | |
568 | |
569 entity = Fmake_vector (make_number (FONT_ENTITY_MAX), null_string); | |
570 | |
571 ASET (entity, FONT_TYPE_INDEX, Qw32); | |
572 ASET (entity, FONT_REGISTRY_INDEX, w32_registry (lf->lfCharSet)); | |
573 ASET (entity, FONT_OBJLIST_INDEX, Qnil); | |
574 | |
575 /* Foundry is difficult to get in readable form on Windows. | |
576 But Emacs crashes if it is not set, so set it to the generic type. */ | |
577 generic_type = physical_font->ntmTm.tmPitchAndFamily & 0xF0; | |
578 if (generic_type == FF_DECORATIVE) | |
579 tem = Qdecorative; | |
580 else if (generic_type == FF_MODERN) | |
581 tem = Qmodern; | |
582 else if (generic_type == FF_ROMAN) | |
583 tem = Qroman; | |
584 else if (generic_type == FF_SCRIPT) | |
585 tem = Qscript; | |
586 else if (generic_type == FF_SWISS) | |
587 tem = Qswiss; | |
588 else | |
589 tem = Qunknown; | |
590 | |
591 ASET (entity, FONT_FOUNDRY_INDEX, tem); | |
592 | |
593 ASET (entity, FONT_FAMILY_INDEX, | |
594 intern_downcase (lf->lfFaceName, strlen (lf->lfFaceName))); | |
595 | |
596 ASET (entity, FONT_WEIGHT_INDEX, make_number (lf->lfWeight)); | |
597 ASET (entity, FONT_SLANT_INDEX, make_number (lf->lfItalic ? 200 : 100)); | |
598 ASET (entity, FONT_WIDTH_INDEX, | |
599 make_number (physical_font->ntmTm.tmAveCharWidth)); | |
600 | |
601 ASET (entity, FONT_SIZE_INDEX, make_number (abs (lf->lfHeight))); | |
602 | |
603 /* Cache unicode codepoints covered by this font, as there is no other way | |
604 of getting this information easily. */ | |
605 if (font_type == TRUETYPE_FONTTYPE) | |
606 { | |
607 DWORD *subranges = xmalloc(16); | |
608 memcpy (subranges, physical_font->ntmFontSig.fsUsb, 16); | |
609 ASET (entity, FONT_EXTRA_INDEX, make_save_value (subranges, 0)); | |
610 } | |
611 return entity; | |
612 } | |
613 | |
614 /* Callback function for EnumFontFamiliesEx. | |
615 * Adds the name of a font to a Lisp list (passed in as the lParam arg). */ | |
616 static int CALLBACK add_font_entity_to_list (ENUMLOGFONTEX *logical_font, | |
617 NEWTEXTMETRICEX *physical_font, | |
618 DWORD font_type, | |
619 LPARAM list_object) | |
620 { | |
621 Lisp_Object *list = (Lisp_Object *) list_object; | |
622 Lisp_Object entity = w32_enumfont_pattern_entity (logical_font, | |
623 physical_font, font_type); | |
624 if (!NILP (entity)) | |
625 *list = Fcons (entity, *list); | |
626 | |
627 return 1; | |
628 } | |
629 | |
630 /* Callback function for EnumFontFamiliesEx. | |
631 * Adds the name of a font to a Lisp list (passed in as the lParam arg), | |
632 * then terminate the search. */ | |
633 static int CALLBACK add_one_font_entity_to_list (ENUMLOGFONTEX *logical_font, | |
634 NEWTEXTMETRICEX *physical_font, | |
635 DWORD font_type, | |
636 LPARAM list_object) | |
637 { | |
638 add_font_entity_to_list (logical_font, physical_font, font_type, list_object); | |
639 return 0; | |
640 } | |
641 | |
642 /* Convert a Lisp font registry (symbol) to a windows charset. */ | |
643 static LONG registry_to_w32_charset (Lisp_Object charset) | |
644 { | |
645 if (EQ (charset, Qiso10646_1) || EQ (charset, Qunicode_bmp) | |
646 || EQ (charset, Qunicode_sip)) | |
647 return DEFAULT_CHARSET; /* UNICODE_CHARSET not defined in MingW32 */ | |
648 else if (EQ (charset, Qiso8859_1)) | |
649 return ANSI_CHARSET; | |
650 else if (STRINGP (charset)) | |
651 return x_to_w32_charset (SDATA (charset)); | |
652 else | |
653 return DEFAULT_CHARSET; | |
654 } | |
655 | |
656 static Lisp_Object w32_registry (LONG w32_charset) | |
657 { | |
658 if (w32_charset == ANSI_CHARSET) | |
659 return Qiso8859_1; | |
660 else | |
661 return build_string (w32_to_x_charset (w32_charset, NULL)); | |
662 } | |
663 | |
664 static void set_fonts_frame (Lisp_Object fontlist, Lisp_Object frame) | |
665 { | |
666 if (VECTORP (fontlist)) | |
667 ASET (fontlist, FONT_FRAME_INDEX, frame); | |
668 else | |
669 { | |
670 for ( ; CONSP (fontlist); fontlist = XCDR (fontlist)) | |
671 { | |
672 Lisp_Object entity = XCAR (fontlist); | |
673 if (VECTORP (entity)) | |
674 ASET (entity, FONT_FRAME_INDEX, frame); | |
675 } | |
676 } | |
677 } | |
678 | |
679 /* Fill in all the available details of LOGFONT from FONT_SPEC. */ | |
680 static void fill_in_logfont (FRAME_PTR f, LOGFONT *logfont, Lisp_Object font_spec) | |
681 { | |
682 Lisp_Object val, tmp, extra; | |
683 int dpi = FRAME_W32_DISPLAY_INFO (f)->resy; | |
684 | |
685 /* TODO: Allow user to override dpi settings. */ | |
686 | |
687 /* Height */ | |
688 tmp = AREF (font_spec, FONT_SIZE_INDEX); | |
689 if (INTEGERP (tmp)) | |
690 logfont->lfHeight = -1 * dpi / 720 * XINT (tmp); | |
691 else if (FLOATP (tmp)) | |
692 logfont->lfHeight = -1 * (int) XFLOAT(tmp); | |
693 | |
694 /* Width */ | |
695 tmp = AREF (font_spec, FONT_WIDTH_INDEX); | |
696 if (INTEGERP (tmp)) | |
697 logfont->lfWidth = XINT (tmp); | |
698 | |
699 /* Escapement */ | |
700 | |
701 /* Orientation */ | |
702 | |
703 /* Weight */ | |
704 tmp = AREF (font_spec, FONT_WEIGHT_INDEX); | |
705 if (INTEGERP (tmp)) | |
706 logfont->lfWeight = XINT (tmp); | |
707 | |
708 /* Italic */ | |
709 tmp = AREF (font_spec, FONT_SLANT_INDEX); | |
710 if (INTEGERP (tmp)) | |
711 { | |
712 int slant = XINT (tmp); | |
713 logfont->lfItalic = slant > 150 ? 1 : 0; | |
714 } | |
715 | |
716 /* Underline */ | |
717 | |
718 /* Strikeout */ | |
719 | |
720 /* Charset */ | |
721 tmp = AREF (font_spec, FONT_REGISTRY_INDEX); | |
722 if (! NILP (tmp)) | |
723 { | |
724 if (STRINGP (tmp)) | |
725 logfont->lfCharSet = x_to_w32_charset (SDATA (tmp)); | |
726 else | |
727 logfont->lfCharSet = registry_to_w32_charset (tmp); | |
728 } | |
729 | |
730 /* Out Precision */ | |
731 /* Clip Precision */ | |
732 /* Quality */ | |
733 /* Pitch and Family */ | |
734 /* Facename TODO: handle generic names */ | |
735 tmp = AREF (font_spec, FONT_FAMILY_INDEX); | |
736 /* Font families are interned */ | |
737 if (SYMBOLP (tmp)) | |
738 strncpy (logfont->lfFaceName, SDATA (SYMBOL_NAME (tmp)), LF_FACESIZE); | |
739 else if (STRINGP (tmp)) | |
740 strncpy (logfont->lfFaceName, SDATA (tmp), LF_FACESIZE); | |
741 | |
742 } | |
743 | |
744 static void list_all_matching_fonts (Lisp_Object frame, | |
745 LOGFONT *font_match_pattern, | |
746 Lisp_Object* list) | |
747 { | |
748 HDC dc; | |
749 Lisp_Object families = w32font_list_family (frame); | |
750 struct frame *f = XFRAME (frame); | |
751 | |
752 dc = get_frame_dc (f); | |
753 | |
754 while (!NILP (families)) | |
755 { | |
756 Lisp_Object family = CAR (families); | |
757 families = CDR (families); | |
758 if (STRINGP (family)) | |
759 { | |
760 /* TODO: Use the Unicode versions of the W32 APIs, so we can | |
761 handle non-ASCII font names. */ | |
762 char * name = SDATA (family); | |
763 strncpy (font_match_pattern->lfFaceName, name, LF_FACESIZE); | |
764 font_match_pattern->lfFaceName[LF_FACESIZE - 1] = '\0'; | |
765 | |
766 EnumFontFamiliesEx (dc, font_match_pattern, | |
767 (FONTENUMPROC) add_font_entity_to_list, | |
768 (LPARAM)&list, 0); | |
769 } | |
770 } | |
771 | |
772 release_frame_dc (f, dc); | |
773 } | |
774 | |
775 static int unicode_range_for_char (unsigned c) | |
776 { | |
777 /* Is there really no Windows API function for this?!!! */ | |
778 if (c < 0x80) | |
779 return 0; // Basic Latin | |
780 else if (c < 0x100) | |
781 return 1; // Latin-1 supplement | |
782 else if (c < 0x180) | |
783 return 2; // Latin Extended-A | |
784 else if (c < 0x250) | |
785 return 3; // Latin Extended-B | |
786 else if (c < 0x2B0) | |
787 return 4; // IPA Extensions | |
788 else if (c < 0x300) | |
789 return 5; // Spacing modifiers | |
790 else if (c < 0x370) | |
791 return 6; // Combining diacritical marks | |
792 else if (c < 0x400) | |
793 return 7; // Greek and Coptic | |
794 else if (c < 0x530) | |
795 return 9; // Cyrillic, Cyrillic supplementary | |
796 else if (c < 0x590) | |
797 return 10; // Armenian | |
798 else if (c < 0x600) | |
799 return 11; // Hebrew | |
800 else if (c < 0x700) | |
801 return 13; // Arabic | |
802 else if (c < 0x750) | |
803 return 71; // Syriac | |
804 else if (c < 0x780) | |
805 return 13; // Arabic supplement | |
806 else if (c < 0x7c0) | |
807 return 72; // Thaana | |
808 else if (c < 0x800) | |
809 return 14; // N'Ko | |
810 else if (c < 0x900) | |
811 return -1; // Unsupported range | |
812 else if (c < 0x980) | |
813 return 15; // Devanagari | |
814 else if (c < 0xA00) | |
815 return 16; // Bengali | |
816 else if (c < 0xA80) | |
817 return 17; // Gurmukhi | |
818 else if (c < 0xB00) | |
819 return 18; // Gujarati | |
820 else if (c < 0xB80) | |
821 return 19; // Oriya | |
822 else if (c < 0xC00) | |
823 return 20; // Tamil | |
824 else if (c < 0xC80) | |
825 return 21; // Telugu | |
826 else if (c < 0xD00) | |
827 return 22; // Kannada | |
828 else if (c < 0xD80) | |
829 return 23; // Malayalam | |
830 else if (c < 0xE00) | |
831 return 73; // Sinhala | |
832 else if (c < 0xE80) | |
833 return 24; // Thai | |
834 else if (c < 0xF00) | |
835 return 25; // Lao | |
836 else if (c < 0x1000) | |
837 return 70; // Tibetan | |
838 else if (c < 0x10A0) | |
839 return 74; // Myanmar | |
840 else if (c < 0x1100) | |
841 return 26; // Georgian | |
842 else if (c < 0x1200) | |
843 return 28; // Hangul Jamo | |
844 else if (c < 0x13A0) | |
845 return 75; // Ethiopic, Ethiopic Supplement | |
846 else if (c < 0x1400) | |
847 return 76; // Cherokee | |
848 else if (c < 0x1680) | |
849 return 77; // Unified Canadian Aboriginal Syllabics | |
850 else if (c < 0x16A0) | |
851 return 78; // Ogham | |
852 else if (c < 0x1700) | |
853 return 79; // Runic | |
854 else if (c < 0x1780) | |
855 return 84; // Tagalog, Hanunoo, Buhid, Tagbanwa | |
856 else if (c < 0x1800) | |
857 return 80; // Khmer | |
858 else if (c < 0x18B0) | |
859 return 81; // Mongolian | |
860 else if (c < 0x1900) | |
861 return -1; // Unsupported range | |
862 else if (c < 0x1950) | |
863 return 93; // Limbu | |
864 else if (c < 0x1980) | |
865 return 94; // Tai Le | |
866 else if (c < 0x19E0) | |
867 return 95; // New Tai Le | |
868 else if (c < 0x1A00) | |
869 return 80; // Khmer Symbols | |
870 else if (c < 0x1A20) | |
871 return 96; // Buginese | |
872 else if (c < 0x1B00) | |
873 return -1; // Unsupported range | |
874 else if (c < 0x1B80) | |
875 return 27; // Balinese | |
876 else if (c < 0x1D00) | |
877 return -1; // Unsupported range | |
878 else if (c < 0x1DC0) | |
879 return 4; // Phonetic extensions + supplement | |
880 else if (c < 0x1E00) | |
881 return 6; // Combining diacritical marks supplement | |
882 else if (c < 0x1F00) | |
883 return 29; // Latin Extended additional | |
884 else if (c < 0x2000) | |
885 return 30; // Greek Extended | |
886 else if (c < 0x2070) | |
887 return 31; // General Punctuation | |
888 else if (c < 0x20A0) | |
889 return 32; // Subscripts and Superscripts | |
890 else if (c < 0x20D0) | |
891 return 33; // Currency symbols | |
892 else if (c < 0x2100) | |
893 return 34; // Combining marks for diacriticals | |
894 else if (c < 0x2150) | |
895 return 35; // Letterlike symbols | |
896 else if (c < 0x2190) | |
897 return 36; // Number forms | |
898 else if (c < 0x2200) | |
899 return 37; // Arrows | |
900 else if (c < 0x2300) | |
901 return 38; // Mathematical operators | |
902 else if (c < 0x2400) | |
903 return 39; // Miscellaneous technical | |
904 else if (c < 0x2440) | |
905 return 40; // Control pictures | |
906 else if (c < 0x2460) | |
907 return 41; // Optical character recognition | |
908 else if (c < 0x2500) | |
909 return 42; // Enclosed alphanumerics | |
910 else if (c < 0x2580) | |
911 return 43; // Box drawing | |
912 else if (c < 0x25A0) | |
913 return 44; // Block elements | |
914 else if (c < 0x2600) | |
915 return 45; // Geometric shapes | |
916 else if (c < 0x2700) | |
917 return 46; // Miscellaneous symbols | |
918 else if (c < 0x27C0) | |
919 return 47; // Dingbats | |
920 else if (c < 0x27F0) | |
921 return 38; // Misc Math symbols-A | |
922 else if (c < 0x2800) | |
923 return 37; // Supplemental arrows-A | |
924 else if (c < 0x2900) | |
925 return 82; // Braille patterns | |
926 else if (c < 0x2980) | |
927 return 37; // Supplemental arrows-B | |
928 else if (c < 0x2B00) | |
929 return 38; // Misc Math symbols-B, Supplemental Math operators | |
930 else if (c < 0x2C00) | |
931 return 37; // Misc Symbols and Arrows | |
932 else if (c < 0x2C60) | |
933 return 97; // Galgolitic | |
934 else if (c < 0x2C80) | |
935 return 29; // Latin Extended-C | |
936 else if (c < 0x2D00) | |
937 return 8; // Coptic | |
938 else if (c < 0x2D30) | |
939 return 26; // Georgian supplement | |
940 else if (c < 0x2D80) | |
941 return 98; // Tifinagh | |
942 else if (c < 0x2DE0) | |
943 return 75; // Ethiopic extended | |
944 else if (c < 0x2E00) | |
945 return -1; // Unsupported range | |
946 else if (c < 0x2E80) | |
947 return 31; // Supplemental punctuation | |
948 else if (c < 0x2FE0) | |
949 return 59; // CJK radicals supplement, Kangxi radicals | |
950 else if (c < 0x2FF0) | |
951 return -1; // Unsupported range | |
952 else if (c < 0x3000) | |
953 return 59; // Ideographic description characters | |
954 else if (c < 0x3040) | |
955 return 48; // CJK symbols and punctuation | |
956 else if (c < 0x30A0) | |
957 return 49; // Hiragana | |
958 else if (c < 0x3100) | |
959 return 50; // Katakana | |
960 else if (c < 0x3130) | |
961 return 51; // Bopomofo | |
962 else if (c < 0x3190) | |
963 return 52; // Hangul compatibility Jamo | |
964 else if (c < 0x31A0) | |
965 return 59; // Kanbun | |
966 else if (c < 0x31C0) | |
967 return 51; // Bopomofo extended | |
968 else if (c < 0x31F0) | |
969 return 61; // CJK strokes | |
970 else if (c < 0x3200) | |
971 return 50; // Katakana phonetic extensions | |
972 else if (c < 0x3300) | |
973 return 54; // CJK enclosed letters and months | |
974 else if (c < 0x3400) | |
975 return 55; // CJK compatibility | |
976 else if (c < 0x4DC0) | |
977 return 59; // CJK unified ideographs extension-A | |
978 else if (c < 0x4E00) | |
979 return 99; // Yijing Hexagram Symbols | |
980 else if (c < 0xA000) | |
981 return 59; // CJK unified ideographs | |
982 else if (c < 0xA4D0) | |
983 return 83; // Yi syllables, Yi radicals | |
984 else if (c < 0xA700) | |
985 return -1; // Unsupported range | |
986 else if (c < 0xA720) | |
987 return 5; // Modifier tone letters | |
988 else if (c < 0xA800) | |
989 return 29; // Latin Extended-D | |
990 else if (c < 0xA830) | |
991 return 100; // Syloti Nagri | |
992 else if (c < 0xA840) | |
993 return -1; // Unsupported range | |
994 else if (c < 0xA880) | |
995 return 53; // Phags-pa | |
996 else if (c < 0xAC00) | |
997 return -1; // Unsupported range | |
998 else if (c < 0xD7A4) | |
999 return 56; // Hangul syllables | |
1000 else if (c < 0xD800) | |
1001 return -1; // Unsupported range | |
1002 else if (c < 0xE000) | |
1003 return 57; // Surrogates | |
1004 else if (c < 0xF900) | |
1005 return 60; // Private use (plane 0) | |
1006 else if (c < 0xFB00) | |
1007 return 61; // CJK Compatibility ideographs | |
1008 else if (c < 0xFB50) | |
1009 return 62; // Alphabetic Presentation Forms | |
1010 else if (c < 0xFE00) | |
1011 return 63; // Arabic Presentation Forms-A | |
1012 else if (c < 0xFE10) | |
1013 return 91; // Variation selectors | |
1014 else if (c < 0xFE20) | |
1015 return 65; // Vertical forms | |
1016 else if (c < 0xFE30) | |
1017 return 64; // Combining half marks | |
1018 else if (c < 0xFE50) | |
1019 return 65; // CJK compatibility forms | |
1020 else if (c < 0xFE70) | |
1021 return 66; // Small form variants | |
1022 else if (c < 0xFEFF) | |
1023 return 67; // Arabic Presentation Forms-B | |
1024 else if (c == 0xFEFF) | |
1025 return -1; // Unsupported range | |
1026 else if (c < 0xFFF0) | |
1027 return 68; // Halfwidth and fullwidth forms | |
1028 else if (c <= 0xFFFF) | |
1029 return 69; // Specials | |
1030 | |
1031 // If int is 64 bit, it could represent characters from 10000 up, but | |
1032 // any font that handles them should have the surrogate bit set (57). | |
1033 return 57; | |
1034 } | |
1035 | |
1036 | |
1037 struct font_driver w32font_driver = | |
1038 { | |
1039 0, /* Qw32 */ | |
1040 w32font_get_cache, | |
1041 w32font_list, | |
1042 w32font_match, | |
1043 w32font_list_family, | |
1044 NULL, /* free_entity */ | |
1045 w32font_open, | |
1046 w32font_close, | |
1047 NULL, /* prepare_face */ | |
1048 NULL, /* done_face */ | |
1049 w32font_has_char, | |
1050 w32font_encode_char, | |
1051 w32font_text_extents, | |
1052 w32font_draw, | |
1053 NULL, /* get_bitmap */ | |
1054 NULL, /* free_bitmap */ | |
1055 NULL, /* get_outline */ | |
1056 NULL, /* free_outline */ | |
1057 NULL, /* anchor_point */ | |
1058 NULL, /* otf_capability */ | |
1059 NULL /* otf_drive */ | |
1060 }; | |
1061 | |
1062 /* Initialize the font subsystem for the environment on which | |
1063 Emacs is running. */ | |
1064 void w32font_initialize () | |
1065 { | |
1066 /* Load functions that might not exist on older versions of Windows. */ | |
1067 HANDLE gdi = LoadLibrary ("gdi32.dll"); | |
1068 | |
1069 get_glyph_indices_fn | |
1070 = (GETGLYPHINDICES) GetProcAddress (gdi, "GetGlyphIndicesW"); | |
1071 get_text_extent_pointi_fn | |
1072 = (GETTEXTEXTENTPTI) GetProcAddress (gdi, "GetTextExtentPoint32W"); | |
1073 } | |
1074 | |
1075 /* Initialize state that does not change between invocations. This is only | |
1076 called when Emacs is dumped. */ | |
1077 void syms_of_w32font () | |
1078 { | |
1079 DEFSYM (Qw32, "w32"); | |
1080 DEFSYM (Qdecorative, "decorative"); | |
1081 DEFSYM (Qmodern, "modern"); | |
1082 DEFSYM (Qroman, "roman"); | |
1083 DEFSYM (Qscript, "script"); | |
1084 DEFSYM (Qswiss, "swiss"); | |
1085 DEFSYM (Qunknown, "unknown"); | |
1086 | |
1087 w32font_driver.type = Qw32; | |
1088 register_font_driver (&w32font_driver, NULL); | |
1089 } |