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