annotate src/w32font.c @ 97622:ef4c06e3494f

* xdisp.c (try_scrolling): Check INT_MAX instead of MOST_POSITIVE_FIXNUM for maximum integer value. Include limits.h to obtain INT_MAX.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 23 Aug 2008 02:10:28 +0000
parents 3c62347bccdb
children 528e53849f51
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1 /* Font backend for the Microsoft W32 API.
91447
15ea95e2d57b Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 91264
diff changeset
2 Copyright (C) 2007, 2008 Free Software Foundation, Inc.
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
3
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
4 This file is part of GNU Emacs.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
5
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94914
diff changeset
6 GNU Emacs is free software: you can redistribute it and/or modify
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94914
diff changeset
8 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94914
diff changeset
9 (at your option) any later version.
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
10
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
14 GNU General Public License for more details.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
15
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94914
diff changeset
17 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
18
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
19 #include <config.h>
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
20 #include <windows.h>
92413
dc438f2fa078 Include math.h.
Juanma Barranquero <lekktu@gmail.com>
parents: 92411
diff changeset
21 #include <math.h>
95846
cb4bf2ae5ac2 Include ctype.h.
Juanma Barranquero <lekktu@gmail.com>
parents: 95828
diff changeset
22 #include <ctype.h>
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
23 #include <commdlg.h>
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
24
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
25 #include "lisp.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
26 #include "w32term.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
27 #include "frame.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
28 #include "dispextern.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
29 #include "character.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
30 #include "charset.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
31 #include "fontset.h"
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
32 #include "font.h"
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
33 #include "w32font.h"
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
34
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
35 /* Cleartype available on Windows XP, cleartype_natural from XP SP1.
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
36 The latter does not try to fit cleartype smoothed fonts into the
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
37 same bounding box as the non-antialiased version of the font.
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
38 */
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
39 #ifndef CLEARTYPE_QUALITY
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
40 #define CLEARTYPE_QUALITY 5
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
41 #endif
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
42 #ifndef CLEARTYPE_NATURAL_QUALITY
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
43 #define CLEARTYPE_NATURAL_QUALITY 6
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
44 #endif
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
45
96385
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
46 /* VIETNAMESE_CHARSET and JOHAB_CHARSET are not defined in some versions
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
47 of MSVC headers. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
48 #ifndef VIETNAMESE_CHARSET
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
49 #define VIETNAMESE_CHARSET 163
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
50 #endif
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
51 #ifndef JOHAB_CHARSET
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
52 #define JOHAB_CHARSET 130
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
53 #endif
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
54
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
55 extern struct font_driver w32font_driver;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
56
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
57 Lisp_Object Qgdi;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
58 Lisp_Object Quniscribe;
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
59 static Lisp_Object QCformat;
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
60 static Lisp_Object Qmonospace, Qsansserif, Qmono, Qsans, Qsans_serif;
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
61 static Lisp_Object Qserif, Qscript, Qdecorative;
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
62 static Lisp_Object Qraster, Qoutline, Qunknown;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
63
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
64 /* antialiasing */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
65 extern Lisp_Object QCantialias, QCotf, QClang; /* defined in font.c */
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
66 extern Lisp_Object Qnone; /* reuse from w32fns.c */
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
67 static Lisp_Object Qstandard, Qsubpixel, Qnatural;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
68
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
69 /* languages */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
70 static Lisp_Object Qja, Qko, Qzh;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
71
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
72 /* scripts */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
73 static Lisp_Object Qlatin, Qgreek, Qcoptic, Qcyrillic, Qarmenian, Qhebrew;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
74 static Lisp_Object Qarabic, Qsyriac, Qnko, Qthaana, Qdevanagari, Qbengali;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
75 static Lisp_Object Qgurmukhi, Qgujarati, Qoriya, Qtamil, Qtelugu;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
76 static Lisp_Object Qkannada, Qmalayalam, Qsinhala, Qthai, Qlao;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
77 static Lisp_Object Qtibetan, Qmyanmar, Qgeorgian, Qhangul, Qethiopic;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
78 static Lisp_Object Qcherokee, Qcanadian_aboriginal, Qogham, Qrunic;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
79 static Lisp_Object Qkhmer, Qmongolian, Qsymbol, Qbraille, Qhan;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
80 static Lisp_Object Qideographic_description, Qcjk_misc, Qkana, Qbopomofo;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
81 static Lisp_Object Qkanbun, Qyi, Qbyzantine_musical_symbol;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
82 static Lisp_Object Qmusical_symbol, Qmathematical;
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
83 /* Not defined in characters.el, but referenced in fontset.el. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
84 static Lisp_Object Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
85 static Lisp_Object Qdeseret, Qglagolitic, Qgothic, Qhanunoo, Qkharoshthi;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
86 static Lisp_Object Qlimbu, Qlinear_b, Qold_italic, Qold_persian, Qosmanya;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
87 static Lisp_Object Qphags_pa, Qphoenician, Qshavian, Qsyloti_nagri;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
88 static Lisp_Object Qtagalog, Qtagbanwa, Qtai_le, Qtifinagh, Qugaritic;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
89 /* Only defined here, but useful for distinguishing IPA capable fonts. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
90 static Lisp_Object Qphonetic;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
91
96385
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
92 /* W32 charsets: for use in Vw32_charset_info_alist. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
93 static Lisp_Object Qw32_charset_ansi, Qw32_charset_default;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
94 static Lisp_Object Qw32_charset_symbol, Qw32_charset_shiftjis;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
95 static Lisp_Object Qw32_charset_hangeul, Qw32_charset_gb2312;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
96 static Lisp_Object Qw32_charset_chinesebig5, Qw32_charset_oem;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
97 static Lisp_Object Qw32_charset_easteurope, Qw32_charset_turkish;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
98 static Lisp_Object Qw32_charset_baltic, Qw32_charset_russian;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
99 static Lisp_Object Qw32_charset_arabic, Qw32_charset_greek;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
100 static Lisp_Object Qw32_charset_hebrew, Qw32_charset_vietnamese;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
101 static Lisp_Object Qw32_charset_thai, Qw32_charset_johab, Qw32_charset_mac;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
102
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
103 /* Associative list linking character set strings to Windows codepages. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
104 static Lisp_Object Vw32_charset_info_alist;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
105
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
106 /* Font spacing symbols - defined in font.c. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
107 extern Lisp_Object Qc, Qp, Qm;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
108
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
109 static void fill_in_logfont P_ ((FRAME_PTR, LOGFONT *, Lisp_Object));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
110
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
111 static BYTE w32_antialias_type P_ ((Lisp_Object));
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
112 static Lisp_Object lispy_antialias_type P_ ((BYTE));
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
113
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
114 static Lisp_Object font_supported_scripts P_ ((FONTSIGNATURE *));
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
115 static int w32font_full_name P_ ((LOGFONT *, Lisp_Object, int, char *, int));
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
116 static void compute_metrics P_ ((HDC, struct w32font_info *, unsigned int,
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
117 struct w32_metric_cache *));
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
118 static void clear_cached_metrics P_ ((struct w32font_info *));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
119
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
120 static Lisp_Object w32_registry P_ ((LONG, DWORD));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
121
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
122 /* EnumFontFamiliesEx callbacks. */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
123 static int CALLBACK add_font_entity_to_list P_ ((ENUMLOGFONTEX *,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
124 NEWTEXTMETRICEX *,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
125 DWORD, LPARAM));
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
126 static int CALLBACK add_one_font_entity_to_list P_ ((ENUMLOGFONTEX *,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
127 NEWTEXTMETRICEX *,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
128 DWORD, LPARAM));
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
129 static int CALLBACK add_font_name_to_list P_ ((ENUMLOGFONTEX *,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
130 NEWTEXTMETRICEX *,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
131 DWORD, LPARAM));
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
132
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
133 /* struct passed in as LPARAM arg to EnumFontFamiliesEx, for keeping track
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
134 of what we really want. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
135 struct font_callback_data
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
136 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
137 /* The logfont we are matching against. EnumFontFamiliesEx only matches
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
138 face name and charset, so we need to manually match everything else
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
139 in the callback function. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
140 LOGFONT pattern;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
141 /* The original font spec or entity. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
142 Lisp_Object orig_font_spec;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
143 /* The frame the font is being loaded on. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
144 Lisp_Object frame;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
145 /* The list to add matches to. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
146 Lisp_Object list;
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
147 /* Whether to match only opentype fonts. */
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
148 int opentype_only;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
149 };
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
150
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
151 /* Handles the problem that EnumFontFamiliesEx will not return all
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
152 style variations if the font name is not specified. */
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
153 static void list_all_matching_fonts P_ ((struct font_callback_data *));
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
154
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
155
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
156 static int
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
157 memq_no_quit (elt, list)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
158 Lisp_Object elt, list;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
159 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
160 while (CONSP (list) && ! EQ (XCAR (list), elt))
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
161 list = XCDR (list);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
162 return (CONSP (list));
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
163 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
164
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
165 /* w32 implementation of get_cache for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
166 Return a cache of font-entities on FRAME. The cache must be a
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
167 cons whose cdr part is the actual cache area. */
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
168 Lisp_Object
91246
3a1805edf0b5 (w32font_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91211
diff changeset
169 w32font_get_cache (f)
3a1805edf0b5 (w32font_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91211
diff changeset
170 FRAME_PTR f;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
171 {
91246
3a1805edf0b5 (w32font_get_cache): Adjust the argument type.
Kenichi Handa <handa@m17n.org>
parents: 91211
diff changeset
172 struct w32_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
173
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
174 return (dpyinfo->name_list_element);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
175 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
176
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
177 /* w32 implementation of list for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
178 List fonts exactly matching with FONT_SPEC on FRAME. The value
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
179 is a vector of font-entities. This is the sole API that
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
180 allocates font-entities. */
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
181 static Lisp_Object
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
182 w32font_list (frame, font_spec)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
183 Lisp_Object frame, font_spec;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
184 {
96071
0f831953ffb8 Add font logging to list and match functions.
Jason Rumney <jasonr@gnu.org>
parents: 96005
diff changeset
185 Lisp_Object fonts = w32font_list_internal (frame, font_spec, 0);
0f831953ffb8 Add font logging to list and match functions.
Jason Rumney <jasonr@gnu.org>
parents: 96005
diff changeset
186 font_add_log ("w32font-list", font_spec, fonts);
0f831953ffb8 Add font logging to list and match functions.
Jason Rumney <jasonr@gnu.org>
parents: 96005
diff changeset
187 return fonts;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
188 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
189
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
190 /* w32 implementation of match for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
191 Return a font entity most closely matching with FONT_SPEC on
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
192 FRAME. The closeness is detemined by the font backend, thus
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
193 `face-font-selection-order' is ignored here. */
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
194 static Lisp_Object
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
195 w32font_match (frame, font_spec)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
196 Lisp_Object frame, font_spec;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
197 {
96071
0f831953ffb8 Add font logging to list and match functions.
Jason Rumney <jasonr@gnu.org>
parents: 96005
diff changeset
198 Lisp_Object entity = w32font_match_internal (frame, font_spec, 0);
0f831953ffb8 Add font logging to list and match functions.
Jason Rumney <jasonr@gnu.org>
parents: 96005
diff changeset
199 font_add_log ("w32font-match", font_spec, entity);
0f831953ffb8 Add font logging to list and match functions.
Jason Rumney <jasonr@gnu.org>
parents: 96005
diff changeset
200 return entity;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
201 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
202
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
203 /* w32 implementation of list_family for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
204 List available families. The value is a list of family names
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
205 (symbols). */
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
206 static Lisp_Object
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
207 w32font_list_family (frame)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
208 Lisp_Object frame;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
209 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
210 Lisp_Object list = Qnil;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
211 LOGFONT font_match_pattern;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
212 HDC dc;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
213 FRAME_PTR f = XFRAME (frame);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
214
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
215 bzero (&font_match_pattern, sizeof (font_match_pattern));
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
216 font_match_pattern.lfCharSet = DEFAULT_CHARSET;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
217
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
218 dc = get_frame_dc (f);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
219
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
220 EnumFontFamiliesEx (dc, &font_match_pattern,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
221 (FONTENUMPROC) add_font_name_to_list,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
222 (LPARAM) &list, 0);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
223 release_frame_dc (f, dc);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
224
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
225 return list;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
226 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
227
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
228 /* w32 implementation of open for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
229 Open a font specified by FONT_ENTITY on frame F.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
230 If the font is scalable, open it with PIXEL_SIZE. */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
231 static Lisp_Object
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
232 w32font_open (f, font_entity, pixel_size)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
233 FRAME_PTR f;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
234 Lisp_Object font_entity;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
235 int pixel_size;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
236 {
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
237 Lisp_Object font_object
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
238 = font_make_object (VECSIZE (struct w32font_info),
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
239 font_entity, pixel_size);
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
240 struct w32font_info *w32_font
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
241 = (struct w32font_info *) XFONT_OBJECT (font_object);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
242
96937
7f7286fdbf06 * w32font.c (w32font_open): Set font type to gdi.
Jason Rumney <jasonr@gnu.org>
parents: 96934
diff changeset
243 ASET (font_object, FONT_TYPE_INDEX, Qgdi);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
244
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
245 if (!w32font_open_internal (f, font_entity, pixel_size, font_object))
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
246 {
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
247 return Qnil;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
248 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
249
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
250 /* GDI backend does not use glyph indices. */
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
251 w32_font->glyph_idx = 0;
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
252
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
253 return font_object;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
254 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
255
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
256 /* w32 implementation of close for font_backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
257 Close FONT on frame F. */
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
258 void
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
259 w32font_close (f, font)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
260 FRAME_PTR f;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
261 struct font *font;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
262 {
96343
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
263 int i;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
264 struct w32font_info *w32_font = (struct w32font_info *) font;
96343
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
265
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
266 /* Delete the GDI font object. */
96327
2fc5aff56d81 * w32bdf.c, w32bdf.h: Remove obsolete files.
Jason Rumney <jasonr@gnu.org>
parents: 96111
diff changeset
267 DeleteObject (w32_font->hfont);
96343
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
268
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
269 /* Free all the cached metrics. */
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
270 if (w32_font->cached_metrics)
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
271 {
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
272 for (i = 0; i < w32_font->n_cache_blocks; i++)
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
273 {
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
274 if (w32_font->cached_metrics[i])
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
275 xfree (w32_font->cached_metrics[i]);
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
276 }
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
277 xfree (w32_font->cached_metrics);
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
278 w32_font->cached_metrics = NULL;
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
279 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
280 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
281
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
282 /* w32 implementation of has_char for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
283 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
284 If FONT_ENTITY has a glyph for character C (Unicode code point),
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
285 return 1. If not, return 0. If a font must be opened to check
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
286 it, return -1. */
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
287 int
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
288 w32font_has_char (entity, c)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
289 Lisp_Object entity;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
290 int c;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
291 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
292 Lisp_Object supported_scripts, extra, script;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
293 DWORD mask;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
294
90887
aa7f1d212e78 (font_put_extra): Expose externally.
Jason Rumney <jasonr@gnu.org>
parents: 90879
diff changeset
295 extra = AREF (entity, FONT_EXTRA_INDEX);
aa7f1d212e78 (font_put_extra): Expose externally.
Jason Rumney <jasonr@gnu.org>
parents: 90879
diff changeset
296 if (!CONSP (extra))
aa7f1d212e78 (font_put_extra): Expose externally.
Jason Rumney <jasonr@gnu.org>
parents: 90879
diff changeset
297 return -1;
aa7f1d212e78 (font_put_extra): Expose externally.
Jason Rumney <jasonr@gnu.org>
parents: 90879
diff changeset
298
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
299 supported_scripts = assq_no_quit (QCscript, extra);
97024
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
300 /* If font doesn't claim to support any scripts, then we can't be certain
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
301 until we open it. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
302 if (!CONSP (supported_scripts))
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
303 return -1;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
304
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
305 supported_scripts = XCDR (supported_scripts);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
306
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
307 script = CHAR_TABLE_REF (Vchar_script_table, c);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
308
97024
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
309 /* If we don't know what script the character is from, then we can't be
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
310 certain until we open it. Also if the font claims support for the script
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
311 the character is from, it may only have partial coverage, so we still
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
312 can't be certain until we open the font. */
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
313 if (NILP (script) || memq_no_quit (script, supported_scripts))
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
314 return -1;
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
315
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
316 /* Font reports what scripts it supports, and none of them are the script
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
317 the character is from, so it is a definite no. */
c46e4c1d8339 (w32font_has_char): Handle the case where we can't
Jason Rumney <jasonr@gnu.org>
parents: 97004
diff changeset
318 return 0;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
319 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
320
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
321 /* w32 implementation of encode_char for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
322 Return a glyph code of FONT for characer C (Unicode code point).
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
323 If FONT doesn't have such a glyph, return FONT_INVALID_CODE.
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
324
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
325 For speed, the gdi backend uses unicode (Emacs calls encode_char
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
326 far too often for it to be efficient). But we still need to detect
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
327 which characters are not supported by the font.
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
328 */
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
329 static unsigned
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
330 w32font_encode_char (font, c)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
331 struct font *font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
332 int c;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
333 {
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
334 struct w32font_info * w32_font = (struct w32font_info *)font;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
335
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
336 if (c < w32_font->metrics.tmFirstChar
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
337 || c > w32_font->metrics.tmLastChar)
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
338 return FONT_INVALID_CODE;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
339 else
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
340 return c;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
341 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
342
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
343 /* w32 implementation of text_extents for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
344 Perform the size computation of glyphs of FONT and fillin members
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
345 of METRICS. The glyphs are specified by their glyph codes in
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
346 CODE (length NGLYPHS). Apparently metrics can be NULL, in this
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
347 case just return the overall width. */
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
348 int
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
349 w32font_text_extents (font, code, nglyphs, metrics)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
350 struct font *font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
351 unsigned *code;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
352 int nglyphs;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
353 struct font_metrics *metrics;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
354 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
355 int i;
92151
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
356 HFONT old_font = NULL;
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
357 HDC dc = NULL;
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
358 struct frame * f;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
359 int total_width = 0;
97004
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
360 WORD *wcode;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
361 SIZE size;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
362
96327
2fc5aff56d81 * w32bdf.c, w32bdf.h: Remove obsolete files.
Jason Rumney <jasonr@gnu.org>
parents: 96111
diff changeset
363 struct w32font_info *w32_font = (struct w32font_info *) font;
2fc5aff56d81 * w32bdf.c, w32bdf.h: Remove obsolete files.
Jason Rumney <jasonr@gnu.org>
parents: 96111
diff changeset
364
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
365 if (metrics)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
366 {
95307
7d02dd821410 (w32font_text_extents): Zero whole metrics struct first.
Jason Rumney <jasonr@gnu.org>
parents: 95190
diff changeset
367 bzero (metrics, sizeof (struct font_metrics));
93675
7fb9a5b86fa8 (w32font_text_extents): Use font's ascent and descent.
Jason Rumney <jasonr@gnu.org>
parents: 93598
diff changeset
368 metrics->ascent = font->ascent;
7fb9a5b86fa8 (w32font_text_extents): Use font's ascent and descent.
Jason Rumney <jasonr@gnu.org>
parents: 93598
diff changeset
369 metrics->descent = font->descent;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
370
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
371 for (i = 0; i < nglyphs; i++)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
372 {
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
373 struct w32_metric_cache *char_metric;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
374 int block = *(code + i) / CACHE_BLOCKSIZE;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
375 int pos_in_block = *(code + i) % CACHE_BLOCKSIZE;
91593
3081b8f848bc * w32font.c (w32font_text_extents): Fill in lbearing metric.
Jason Rumney <jasonr@gnu.org>
parents: 91545
diff changeset
376
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
377 if (block >= w32_font->n_cache_blocks)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
378 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
379 if (!w32_font->cached_metrics)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
380 w32_font->cached_metrics
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
381 = xmalloc ((block + 1)
97070
32466fc89674 (w32font_text_extents): Use w32_metric_cache consistently.
Jason Rumney <jasonr@gnu.org>
parents: 97024
diff changeset
382 * sizeof (struct w32_metric_cache *));
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
383 else
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
384 w32_font->cached_metrics
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
385 = xrealloc (w32_font->cached_metrics,
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
386 (block + 1)
97070
32466fc89674 (w32font_text_extents): Use w32_metric_cache consistently.
Jason Rumney <jasonr@gnu.org>
parents: 97024
diff changeset
387 * sizeof (struct w32_metric_cache *));
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
388 bzero (w32_font->cached_metrics + w32_font->n_cache_blocks,
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
389 ((block + 1 - w32_font->n_cache_blocks)
97070
32466fc89674 (w32font_text_extents): Use w32_metric_cache consistently.
Jason Rumney <jasonr@gnu.org>
parents: 97024
diff changeset
390 * sizeof (struct w32_metric_cache *)));
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
391 w32_font->n_cache_blocks = block + 1;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
392 }
91593
3081b8f848bc * w32font.c (w32font_text_extents): Fill in lbearing metric.
Jason Rumney <jasonr@gnu.org>
parents: 91545
diff changeset
393
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
394 if (!w32_font->cached_metrics[block])
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
395 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
396 w32_font->cached_metrics[block]
97070
32466fc89674 (w32font_text_extents): Use w32_metric_cache consistently.
Jason Rumney <jasonr@gnu.org>
parents: 97024
diff changeset
397 = xmalloc (CACHE_BLOCKSIZE * sizeof (struct w32_metric_cache));
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
398 bzero (w32_font->cached_metrics[block],
97070
32466fc89674 (w32font_text_extents): Use w32_metric_cache consistently.
Jason Rumney <jasonr@gnu.org>
parents: 97024
diff changeset
399 CACHE_BLOCKSIZE * sizeof (struct w32_metric_cache));
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
400 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
401
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
402 char_metric = w32_font->cached_metrics[block] + pos_in_block;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
403
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
404 if (char_metric->status == W32METRIC_NO_ATTEMPT)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
405 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
406 if (dc == NULL)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
407 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
408 /* TODO: Frames can come and go, and their fonts
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
409 outlive them. So we can't cache the frame in the
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
410 font structure. Use selected_frame until the API
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
411 is updated to pass in a frame. */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
412 f = XFRAME (selected_frame);
95341
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
413
92151
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
414 dc = get_frame_dc (f);
96327
2fc5aff56d81 * w32bdf.c, w32bdf.h: Remove obsolete files.
Jason Rumney <jasonr@gnu.org>
parents: 96111
diff changeset
415 old_font = SelectObject (dc, w32_font->hfont);
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
416 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
417 compute_metrics (dc, w32_font, *(code + i), char_metric);
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
418 }
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
419
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
420 if (char_metric->status == W32METRIC_SUCCESS)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
421 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
422 metrics->lbearing = min (metrics->lbearing,
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
423 metrics->width + char_metric->lbearing);
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
424 metrics->rbearing = max (metrics->rbearing,
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
425 metrics->width + char_metric->rbearing);
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
426 metrics->width += char_metric->width;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
427 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
428 else
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
429 /* If we couldn't get metrics for a char,
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
430 use alternative method. */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
431 break;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
432 }
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
433 /* If we got through everything, return. */
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
434 if (i == nglyphs)
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
435 {
92151
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
436 if (dc != NULL)
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
437 {
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
438 /* Restore state and release DC. */
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
439 SelectObject (dc, old_font);
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
440 release_frame_dc (f, dc);
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
441 }
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
442
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
443 return metrics->width;
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
444 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
445 }
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
446
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
447 /* For non-truetype fonts, GetGlyphOutlineW is not supported, so
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
448 fallback on other methods that will at least give some of the metric
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
449 information. */
97004
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
450
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
451 /* Make array big enough to hold surrogates. */
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
452 wcode = alloca (nglyphs * sizeof (WORD) * 2);
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
453 for (i = 0; i < nglyphs; i++)
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
454 {
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
455 if (code[i] < 0x10000)
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
456 wcode[i] = code[i];
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
457 else
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
458 {
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
459 DWORD surrogate = code[i] - 0x10000;
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
460
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
461 /* High surrogate: U+D800 - U+DBFF. */
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
462 wcode[i++] = 0xD800 + ((surrogate >> 10) & 0x03FF);
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
463 /* Low surrogate: U+DC00 - U+DFFF. */
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
464 wcode[i] = 0xDC00 + (surrogate & 0x03FF);
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
465 /* An extra glyph. wcode is already double the size of code to
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
466 cope with this. */
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
467 nglyphs++;
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
468 }
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
469 }
1b8d15c8653f * w32font.c (w32font_encode_char): Encode characters outside BMP as
Jason Rumney <jasonr@gnu.org>
parents: 96997
diff changeset
470
92151
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
471 if (dc == NULL)
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
472 {
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
473 /* TODO: Frames can come and go, and their fonts outlive
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
474 them. So we can't cache the frame in the font structure. Use
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
475 selected_frame until the API is updated to pass in a
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
476 frame. */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
477 f = XFRAME (selected_frame);
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
478
92151
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
479 dc = get_frame_dc (f);
96327
2fc5aff56d81 * w32bdf.c, w32bdf.h: Remove obsolete files.
Jason Rumney <jasonr@gnu.org>
parents: 96111
diff changeset
480 old_font = SelectObject (dc, w32_font->hfont);
92151
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
481 }
664a09af03dc (w32font_text_extents): Avoid getting HDC and selecting
Jason Rumney <jasonr@gnu.org>
parents: 91593
diff changeset
482
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
483 if (GetTextExtentPoint32W (dc, wcode, nglyphs, &size))
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
484 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
485 total_width = size.cx;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
486 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
487
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
488 /* On 95/98/ME, only some unicode functions are available, so fallback
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
489 on doing a dummy draw to find the total width. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
490 if (!total_width)
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
491 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
492 RECT rect;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
493 rect.top = 0; rect.bottom = font->height; rect.left = 0; rect.right = 1;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
494 DrawTextW (dc, wcode, nglyphs, &rect,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
495 DT_CALCRECT | DT_NOPREFIX | DT_SINGLELINE);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
496 total_width = rect.right;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
497 }
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
498
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
499 /* Give our best estimate of the metrics, based on what we know. */
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
500 if (metrics)
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
501 {
96472
04655c344174 (w32font_text_extents): Don't count overhang as part of width.
Jason Rumney <jasonr@gnu.org>
parents: 96385
diff changeset
502 metrics->width = total_width - w32_font->metrics.tmOverhang;
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
503 metrics->lbearing = 0;
96472
04655c344174 (w32font_text_extents): Don't count overhang as part of width.
Jason Rumney <jasonr@gnu.org>
parents: 96385
diff changeset
504 metrics->rbearing = total_width;
91034
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
505 }
fe9053c62d68 (w32font_text_extents): Calculate metrics for the whole string.
Jason Rumney <jasonr@gnu.org>
parents: 91030
diff changeset
506
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
507 /* Restore state and release DC. */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
508 SelectObject (dc, old_font);
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
509 release_frame_dc (f, dc);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
510
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
511 return total_width;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
512 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
513
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
514 /* w32 implementation of draw for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
515 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
516 Draw glyphs between FROM and TO of S->char2b at (X Y) pixel
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
517 position of frame F with S->FACE and S->GC. If WITH_BACKGROUND
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
518 is nonzero, fill the background in advance. It is assured that
91182
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
519 WITH_BACKGROUND is zero when (FROM > 0 || TO < S->nchars).
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
520
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
521 TODO: Currently this assumes that the colors and fonts are already
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
522 set in the DC. This seems to be true now, but maybe only due to
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
523 the old font code setting it up. It may be safer to resolve faces
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
524 and fonts in here and set them explicitly
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
525 */
bbdb7226d848 (add_font_entity_to_list): Compare only the beginning of full name.
Jason Rumney <jasonr@gnu.org>
parents: 91158
diff changeset
526
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
527 int
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
528 w32font_draw (s, from, to, x, y, with_background)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
529 struct glyph_string *s;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
530 int from, to, x, y, with_background;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
531 {
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
532 UINT options;
91030
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
533 HRGN orig_clip;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
534 struct w32font_info *w32font = (struct w32font_info *) s->font;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
535
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
536 options = w32font->glyph_idx;
91030
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
537
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
538 /* Save clip region for later restoration. */
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
539 GetClipRgn(s->hdc, orig_clip);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
540
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
541 if (s->num_clips > 0)
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
542 {
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
543 HRGN new_clip = CreateRectRgnIndirect (s->clip);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
544
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
545 if (s->num_clips > 1)
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
546 {
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
547 HRGN clip2 = CreateRectRgnIndirect (s->clip + 1);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
548
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
549 CombineRgn (new_clip, new_clip, clip2, RGN_OR);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
550 DeleteObject (clip2);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
551 }
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
552
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
553 SelectClipRgn (s->hdc, new_clip);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
554 DeleteObject (new_clip);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
555 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
556
91128
8eb56b57e4a0 (w32font_draw): Fill background manually.
Jason Rumney <jasonr@gnu.org>
parents: 91124
diff changeset
557 /* Using OPAQUE background mode can clear more background than expected
8eb56b57e4a0 (w32font_draw): Fill background manually.
Jason Rumney <jasonr@gnu.org>
parents: 91124
diff changeset
558 when Cleartype is used. Draw the background manually to avoid this. */
8eb56b57e4a0 (w32font_draw): Fill background manually.
Jason Rumney <jasonr@gnu.org>
parents: 91124
diff changeset
559 SetBkMode (s->hdc, TRANSPARENT);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
560 if (with_background)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
561 {
90908
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
562 HBRUSH brush;
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
563 RECT rect;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
564 struct font *font = s->font;
90908
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
565
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
566 brush = CreateSolidBrush (s->gc->background);
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
567 rect.left = x;
91128
8eb56b57e4a0 (w32font_draw): Fill background manually.
Jason Rumney <jasonr@gnu.org>
parents: 91124
diff changeset
568 rect.top = y - font->ascent;
90908
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
569 rect.right = x + s->width;
91128
8eb56b57e4a0 (w32font_draw): Fill background manually.
Jason Rumney <jasonr@gnu.org>
parents: 91124
diff changeset
570 rect.bottom = y + font->descent;
90908
523a5c7f67ea (w32font_open): Don't set font_idx.
Jason Rumney <jasonr@gnu.org>
parents: 90906
diff changeset
571 FillRect (s->hdc, &rect, brush);
90915
9aac5aff0dda (w32font_draw): Delete brush after using it.
Jason Rumney <jasonr@gnu.org>
parents: 90908
diff changeset
572 DeleteObject (brush);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
573 }
90879
82b86c925f88 * w32font.c (w32font_open): Handle size, height and pixel_size better.
Jason Rumney <jasonr@gnu.org>
parents: 90869
diff changeset
574
92187
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
575 if (s->padding_p)
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
576 {
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
577 int len = to - from, i;
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
578
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
579 for (i = 0; i < len; i++)
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
580 ExtTextOutW (s->hdc, x + i, y, options, NULL,
92199
8324a41d50a9 (w32font_draw): Draw one character at a time when padding.
Jason Rumney <jasonr@gnu.org>
parents: 92187
diff changeset
581 s->char2b + from + i, 1, NULL);
92187
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
582 }
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
583 else
b7277e09e943 (w32font_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 92151
diff changeset
584 ExtTextOutW (s->hdc, x, y, options, NULL, s->char2b + from, to - from, NULL);
91030
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
585
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
586 /* Restore clip region. */
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
587 if (s->num_clips > 0)
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
588 {
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
589 SelectClipRgn (s->hdc, orig_clip);
8be09e8e2c97 (w32font_draw): Do clipping here.
Jason Rumney <jasonr@gnu.org>
parents: 90964
diff changeset
590 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
591 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
592
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
593 /* w32 implementation of free_entity for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
594 Optional (if FONT_EXTRA_INDEX is not Lisp_Save_Value).
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
595 Free FONT_EXTRA_INDEX field of FONT_ENTITY.
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
596 static void
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
597 w32font_free_entity (Lisp_Object entity);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
598 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
599
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
600 /* w32 implementation of prepare_face for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
601 Optional (if FACE->extra is not used).
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
602 Prepare FACE for displaying characters by FONT on frame F by
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
603 storing some data in FACE->extra. If successful, return 0.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
604 Otherwise, return -1.
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
605 static int
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
606 w32font_prepare_face (FRAME_PTR f, struct face *face);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
607 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
608 /* w32 implementation of done_face for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
609 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
610 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
611 static void
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
612 w32font_done_face (FRAME_PTR f, struct face *face); */
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
613
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
614 /* w32 implementation of get_bitmap for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
615 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
616 Store bitmap data for glyph-code CODE of FONT in BITMAP. It is
90915
9aac5aff0dda (w32font_draw): Delete brush after using it.
Jason Rumney <jasonr@gnu.org>
parents: 90908
diff changeset
617 intended that this method is called from the other font-driver
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
618 for actual drawing.
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
619 static int
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
620 w32font_get_bitmap (struct font *font, unsigned code,
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
621 struct font_bitmap *bitmap, int bits_per_pixel);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
622 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
623 /* w32 implementation of free_bitmap for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
624 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
625 Free bitmap data in BITMAP.
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
626 static void
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
627 w32font_free_bitmap (struct font *font, struct font_bitmap *bitmap);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
628 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
629 /* w32 implementation of get_outline for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
630 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
631 Return an outline data for glyph-code CODE of FONT. The format
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
632 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
633 static void *
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
634 w32font_get_outline (struct font *font, unsigned code);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
635 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
636 /* w32 implementation of free_outline for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
637 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
638 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
639 static void
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
640 w32font_free_outline (struct font *font, void *outline);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
641 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
642 /* w32 implementation of anchor_point for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
643 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
644 Get coordinates of the INDEXth anchor point of the glyph whose
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
645 code is CODE. Store the coordinates in *X and *Y. Return 0 if
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
646 the operations was successfull. Otherwise return -1.
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
647 static int
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
648 w32font_anchor_point (struct font *font, unsigned code,
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
649 int index, int *x, int *y);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
650 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
651 /* w32 implementation of otf_capability for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
652 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
653 Return a list describing which scripts/languages FONT
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
654 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
655 static Lisp_Object
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
656 w32font_otf_capability (struct font *font);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
657 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
658 /* w32 implementation of otf_drive for font backend.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
659 Optional.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
660 Apply FONT's OTF-FEATURES to the glyph string.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
661
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
662 FEATURES specifies which OTF features to apply in this format:
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
663 (SCRIPT LANGSYS GSUB-FEATURE GPOS-FEATURE)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
664 See the documentation of `font-drive-otf' for the detail.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
665
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
666 This method applies the specified features to the codes in the
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
667 elements of GSTRING-IN (between FROMth and TOth). The output
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
668 codes are stored in GSTRING-OUT at the IDXth element and the
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
669 following elements.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
670
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
671 Return the number of output codes. If none of the features are
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
672 applicable to the input data, return 0. If GSTRING-OUT is too
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
673 short, return -1.
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
674 static int
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
675 w32font_otf_drive (struct font *font, Lisp_Object features,
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
676 Lisp_Object gstring_in, int from, int to,
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
677 Lisp_Object gstring_out, int idx,
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
678 int alternate_subst);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
679 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
680
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
681 /* Internal implementation of w32font_list.
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
682 Additional parameter opentype_only restricts the returned fonts to
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
683 opentype fonts, which can be used with the Uniscribe backend. */
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
684 Lisp_Object
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
685 w32font_list_internal (frame, font_spec, opentype_only)
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
686 Lisp_Object frame, font_spec;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
687 int opentype_only;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
688 {
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
689 struct font_callback_data match_data;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
690 HDC dc;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
691 FRAME_PTR f = XFRAME (frame);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
692
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
693 match_data.orig_font_spec = font_spec;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
694 match_data.list = Qnil;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
695 match_data.frame = frame;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
696
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
697 bzero (&match_data.pattern, sizeof (LOGFONT));
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
698 fill_in_logfont (f, &match_data.pattern, font_spec);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
699
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
700 match_data.opentype_only = opentype_only;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
701 if (opentype_only)
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
702 match_data.pattern.lfOutPrecision = OUT_OUTLINE_PRECIS;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
703
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
704 if (match_data.pattern.lfFaceName[0] == '\0')
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
705 {
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
706 /* EnumFontFamiliesEx does not take other fields into account if
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
707 font name is blank, so need to use two passes. */
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
708 list_all_matching_fonts (&match_data);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
709 }
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
710 else
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
711 {
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
712 dc = get_frame_dc (f);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
713
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
714 EnumFontFamiliesEx (dc, &match_data.pattern,
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
715 (FONTENUMPROC) add_font_entity_to_list,
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
716 (LPARAM) &match_data, 0);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
717 release_frame_dc (f, dc);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
718 }
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
719
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
720 return NILP (match_data.list) ? Qnil : match_data.list;
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
721 }
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
722
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
723 /* Internal implementation of w32font_match.
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
724 Additional parameter opentype_only restricts the returned fonts to
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
725 opentype fonts, which can be used with the Uniscribe backend. */
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
726 Lisp_Object
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
727 w32font_match_internal (frame, font_spec, opentype_only)
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
728 Lisp_Object frame, font_spec;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
729 int opentype_only;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
730 {
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
731 struct font_callback_data match_data;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
732 HDC dc;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
733 FRAME_PTR f = XFRAME (frame);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
734
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
735 match_data.orig_font_spec = font_spec;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
736 match_data.frame = frame;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
737 match_data.list = Qnil;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
738
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
739 bzero (&match_data.pattern, sizeof (LOGFONT));
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
740 fill_in_logfont (f, &match_data.pattern, font_spec);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
741
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
742 match_data.opentype_only = opentype_only;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
743 if (opentype_only)
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
744 match_data.pattern.lfOutPrecision = OUT_OUTLINE_PRECIS;
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
745
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
746 dc = get_frame_dc (f);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
747
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
748 EnumFontFamiliesEx (dc, &match_data.pattern,
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
749 (FONTENUMPROC) add_one_font_entity_to_list,
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
750 (LPARAM) &match_data, 0);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
751 release_frame_dc (f, dc);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
752
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
753 return NILP (match_data.list) ? Qnil : XCAR (match_data.list);
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
754 }
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
755
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
756 int
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
757 w32font_open_internal (f, font_entity, pixel_size, font_object)
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
758 FRAME_PTR f;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
759 Lisp_Object font_entity;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
760 int pixel_size;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
761 Lisp_Object font_object;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
762 {
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
763 int len, size, i;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
764 LOGFONT logfont;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
765 HDC dc;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
766 HFONT hfont, old_font;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
767 Lisp_Object val, extra;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
768 struct w32font_info *w32_font;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
769 struct font * font;
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
770 OUTLINETEXTMETRICW* metrics = NULL;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
771
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
772 w32_font = (struct w32font_info *) XFONT_OBJECT (font_object);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
773 font = (struct font *) w32_font;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
774
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
775 if (!font)
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
776 return 0;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
777
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
778 bzero (&logfont, sizeof (logfont));
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
779 fill_in_logfont (f, &logfont, font_entity);
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
780
95384
c510339c1817 (w32font_open_internal): Prefer truetype fonts unless
Jason Rumney <jasonr@gnu.org>
parents: 95341
diff changeset
781 /* Prefer truetype fonts, to avoid known problems with type1 fonts, and
c510339c1817 (w32font_open_internal): Prefer truetype fonts unless
Jason Rumney <jasonr@gnu.org>
parents: 95341
diff changeset
782 limitations in bitmap fonts. */
c510339c1817 (w32font_open_internal): Prefer truetype fonts unless
Jason Rumney <jasonr@gnu.org>
parents: 95341
diff changeset
783 val = AREF (font_entity, FONT_FOUNDRY_INDEX);
c510339c1817 (w32font_open_internal): Prefer truetype fonts unless
Jason Rumney <jasonr@gnu.org>
parents: 95341
diff changeset
784 if (!EQ (val, Qraster))
c510339c1817 (w32font_open_internal): Prefer truetype fonts unless
Jason Rumney <jasonr@gnu.org>
parents: 95341
diff changeset
785 logfont.lfOutPrecision = OUT_TT_PRECIS;
c510339c1817 (w32font_open_internal): Prefer truetype fonts unless
Jason Rumney <jasonr@gnu.org>
parents: 95341
diff changeset
786
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
787 size = XINT (AREF (font_entity, FONT_SIZE_INDEX));
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
788 if (!size)
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
789 size = pixel_size;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
790
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
791 logfont.lfHeight = -size;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
792 hfont = CreateFontIndirect (&logfont);
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
793
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
794 if (hfont == NULL)
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
795 return 0;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
796
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
797 /* Get the metrics for this font. */
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
798 dc = get_frame_dc (f);
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
799 old_font = SelectObject (dc, hfont);
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
800
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
801 /* Try getting the outline metrics (only works for truetype fonts). */
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
802 len = GetOutlineTextMetricsW (dc, 0, NULL);
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
803 if (len)
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
804 {
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
805 metrics = (OUTLINETEXTMETRICW *) alloca (len);
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
806 if (GetOutlineTextMetricsW (dc, len, metrics))
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
807 bcopy (&metrics->otmTextMetrics, &w32_font->metrics,
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
808 sizeof (TEXTMETRICW));
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
809 else
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
810 metrics = NULL;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
811 }
95339
48f990d65758 (w32font_open_internal): Determine if glyph indices are likely to work here.
Jason Rumney <jasonr@gnu.org>
parents: 95315
diff changeset
812
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
813 if (!metrics)
95339
48f990d65758 (w32font_open_internal): Determine if glyph indices are likely to work here.
Jason Rumney <jasonr@gnu.org>
parents: 95315
diff changeset
814 {
97135
09abb4487286 * w32font.h (struct w32font_info): Use unicode version of textmetrics.
Jason Rumney <jasonr@gnu.org>
parents: 97070
diff changeset
815 GetTextMetricsW (dc, &w32_font->metrics);
95339
48f990d65758 (w32font_open_internal): Determine if glyph indices are likely to work here.
Jason Rumney <jasonr@gnu.org>
parents: 95315
diff changeset
816 }
92712
fb1da73bc0c4 (w32font_full_name): Use floor to round.
Jason Rumney <jasonr@gnu.org>
parents: 92539
diff changeset
817
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
818 w32_font->cached_metrics = NULL;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
819 w32_font->n_cache_blocks = 0;
92411
133560a77a09 (recompute_cached_metrics): Change font arg to w32font_info.
Jason Rumney <jasonr@gnu.org>
parents: 92409
diff changeset
820
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
821 SelectObject (dc, old_font);
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
822 release_frame_dc (f, dc);
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
823
96327
2fc5aff56d81 * w32bdf.c, w32bdf.h: Remove obsolete files.
Jason Rumney <jasonr@gnu.org>
parents: 96111
diff changeset
824 w32_font->hfont = hfont;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
825
91496
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
826 {
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
827 char *name;
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
828
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
829 /* We don't know how much space we need for the full name, so start with
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
830 96 bytes and go up in steps of 32. */
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
831 len = 96;
96343
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
832 name = alloca (len);
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
833 while (name && w32font_full_name (&logfont, font_entity, pixel_size,
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
834 name, len) < 0)
91496
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
835 {
96343
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
836 len += 32;
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
837 name = alloca (len);
91496
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
838 }
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
839 if (name)
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
840 font->props[FONT_FULLNAME_INDEX]
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
841 = make_unibyte_string (name, strlen (name));
91496
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
842 else
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
843 font->props[FONT_FULLNAME_INDEX] =
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
844 make_unibyte_string (logfont.lfFaceName, len);
91496
d3d1ab7e6e35 (w32font_open_internal): Use font_unparse_fcname to set full_name.
Jason Rumney <jasonr@gnu.org>
parents: 91447
diff changeset
845 }
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
846
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
847 font->max_width = w32_font->metrics.tmMaxCharWidth;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
848 font->height = w32_font->metrics.tmHeight
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
849 + w32_font->metrics.tmExternalLeading;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
850 font->space_width = font->average_width = w32_font->metrics.tmAveCharWidth;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
851
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
852 font->vertical_centering = 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
853 font->encoding_type = 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
854 font->baseline_offset = 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
855 font->relative_compose = 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
856 font->default_ascent = w32_font->metrics.tmAscent;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
857 font->font_encoder = NULL;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
858 font->pixel_size = size;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
859 font->driver = &w32font_driver;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
860 /* Use format cached during list, as the information we have access to
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
861 here is incomplete. */
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
862 extra = AREF (font_entity, FONT_EXTRA_INDEX);
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
863 if (CONSP (extra))
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
864 {
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
865 val = assq_no_quit (QCformat, extra);
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
866 if (CONSP (val))
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
867 font->props[FONT_FORMAT_INDEX] = XCDR (val);
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
868 else
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
869 font->props[FONT_FORMAT_INDEX] = Qunknown;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
870 }
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
871 else
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
872 font->props[FONT_FORMAT_INDEX] = Qunknown;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
873
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
874 font->props[FONT_FILE_INDEX] = Qnil;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
875 font->encoding_charset = -1;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
876 font->repertory_charset = -1;
91545
572ea0c7c071 (w32font_open_internal): Fill min_width with tmAveCharWidth.
Jason Rumney <jasonr@gnu.org>
parents: 91521
diff changeset
877 /* TODO: do we really want the minimum width here, which could be negative? */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
878 font->min_width = font->space_width;
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
879 font->ascent = w32_font->metrics.tmAscent;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
880 font->descent = w32_font->metrics.tmDescent;
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
881
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
882 if (metrics)
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
883 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
884 font->underline_thickness = metrics->otmsUnderscoreSize;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
885 font->underline_position = -metrics->otmsUnderscorePosition;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
886 }
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
887 else
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
888 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
889 font->underline_thickness = 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
890 font->underline_position = -1;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
891 }
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
892
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
893 /* For temporary compatibility with legacy code that expects the
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
894 name to be usable in x-list-fonts. Eventually we expect to change
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
895 x-list-fonts and other places that use fonts so that this can be
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
896 an fcname or similar. */
95190
e2197409b952 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 95146
diff changeset
897 font->props[FONT_NAME_INDEX] = Ffont_xlfd_name (font_object, Qnil);
91545
572ea0c7c071 (w32font_open_internal): Fill min_width with tmAveCharWidth.
Jason Rumney <jasonr@gnu.org>
parents: 91521
diff changeset
898
91211
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
899 return 1;
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
900 }
abd06276f55a (w32font_open_internal): New function.
Jason Rumney <jasonr@gnu.org>
parents: 91208
diff changeset
901
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
902 /* Callback function for EnumFontFamiliesEx.
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
903 * 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
904 static int CALLBACK
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
905 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
906 ENUMLOGFONTEX *logical_font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
907 NEWTEXTMETRICEX *physical_font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
908 DWORD font_type;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
909 LPARAM list_object;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
910 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
911 Lisp_Object* list = (Lisp_Object *) list_object;
91070
2060802cc53f (add_font_name_to_list): Avoid vertical fonts.
Jason Rumney <jasonr@gnu.org>
parents: 91034
diff changeset
912 Lisp_Object family;
2060802cc53f (add_font_name_to_list): Avoid vertical fonts.
Jason Rumney <jasonr@gnu.org>
parents: 91034
diff changeset
913
2060802cc53f (add_font_name_to_list): Avoid vertical fonts.
Jason Rumney <jasonr@gnu.org>
parents: 91034
diff changeset
914 /* Skip vertical fonts (intended only for printing) */
2060802cc53f (add_font_name_to_list): Avoid vertical fonts.
Jason Rumney <jasonr@gnu.org>
parents: 91034
diff changeset
915 if (logical_font->elfLogFont.lfFaceName[0] == '@')
2060802cc53f (add_font_name_to_list): Avoid vertical fonts.
Jason Rumney <jasonr@gnu.org>
parents: 91034
diff changeset
916 return 1;
2060802cc53f (add_font_name_to_list): Avoid vertical fonts.
Jason Rumney <jasonr@gnu.org>
parents: 91034
diff changeset
917
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
918 family = font_intern_prop (logical_font->elfLogFont.lfFaceName,
95744
abc12b93e2dd (add_font_name_to_list): Adjusted for
Kenichi Handa <handa@m17n.org>
parents: 95468
diff changeset
919 strlen (logical_font->elfLogFont.lfFaceName), 1);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
920 if (! memq_no_quit (family, *list))
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
921 *list = Fcons (family, *list);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
922
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
923 return 1;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
924 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
925
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
926 static int w32_decode_weight P_ ((int));
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
927 static int w32_encode_weight P_ ((int));
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
928
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
929 /* 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
930 static Lisp_Object
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
931 w32_enumfont_pattern_entity (frame, logical_font, physical_font,
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
932 font_type, requested_font, backend)
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
933 Lisp_Object frame;
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
934 ENUMLOGFONTEX *logical_font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
935 NEWTEXTMETRICEX *physical_font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
936 DWORD font_type;
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
937 LOGFONT *requested_font;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
938 Lisp_Object backend;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
939 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
940 Lisp_Object entity, tem;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
941 LOGFONT *lf = (LOGFONT*) logical_font;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
942 BYTE generic_type;
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
943 DWORD full_type = physical_font->ntmTm.ntmFlags;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
944
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
945 entity = font_make_entity ();
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
946
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
947 ASET (entity, FONT_TYPE_INDEX, backend);
92539
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
948 ASET (entity, FONT_REGISTRY_INDEX, w32_registry (lf->lfCharSet, font_type));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
949 ASET (entity, FONT_OBJLIST_INDEX, Qnil);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
950
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
951 /* Foundry is difficult to get in readable form on Windows.
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
952 But Emacs crashes if it is not set, so set it to something more
95341
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
953 generic. These values make xlfds compatible with Emacs 22. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
954 if (lf->lfOutPrecision == OUT_STRING_PRECIS)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
955 tem = Qraster;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
956 else if (lf->lfOutPrecision == OUT_STROKE_PRECIS)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
957 tem = Qoutline;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
958 else
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
959 tem = Qunknown;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
960
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
961 ASET (entity, FONT_FOUNDRY_INDEX, tem);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
962
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
963 /* Save the generic family in the extra info, as it is likely to be
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
964 useful to users looking for a close match. */
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
965 generic_type = physical_font->ntmTm.tmPitchAndFamily & 0xF0;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
966 if (generic_type == FF_DECORATIVE)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
967 tem = Qdecorative;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
968 else if (generic_type == FF_MODERN)
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
969 tem = Qmono;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
970 else if (generic_type == FF_ROMAN)
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
971 tem = Qserif;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
972 else if (generic_type == FF_SCRIPT)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
973 tem = Qscript;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
974 else if (generic_type == FF_SWISS)
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
975 tem = Qsans;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
976 else
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
977 tem = Qnil;
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
978
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
979 ASET (entity, FONT_ADSTYLE_INDEX, tem);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
980
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
981 if (physical_font->ntmTm.tmPitchAndFamily & 0x01)
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
982 ASET (entity, FONT_SPACING_INDEX, make_number (FONT_SPACING_PROPORTIONAL));
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
983 else
95315
3d4da4481f75 (w32_weight_table): Remove unused variable.
Jason Rumney <jasonr@gnu.org>
parents: 95310
diff changeset
984 ASET (entity, FONT_SPACING_INDEX, make_number (FONT_SPACING_CHARCELL));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
985
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
986 if (requested_font->lfQuality != DEFAULT_QUALITY)
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
987 {
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
988 font_put_extra (entity, QCantialias,
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
989 lispy_antialias_type (requested_font->lfQuality));
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
990 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
991 ASET (entity, FONT_FAMILY_INDEX,
95744
abc12b93e2dd (add_font_name_to_list): Adjusted for
Kenichi Handa <handa@m17n.org>
parents: 95468
diff changeset
992 font_intern_prop (lf->lfFaceName, strlen (lf->lfFaceName), 1));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
993
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
994 FONT_SET_STYLE (entity, FONT_WEIGHT_INDEX,
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
995 make_number (w32_decode_weight (lf->lfWeight)));
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
996 FONT_SET_STYLE (entity, FONT_SLANT_INDEX,
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
997 make_number (lf->lfItalic ? 200 : 100));
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
998 /* TODO: PANOSE struct has this info, but need to call GetOutlineTextMetrics
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
999 to get it. */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1000 FONT_SET_STYLE (entity, FONT_WIDTH_INDEX, make_number (100));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1001
90879
82b86c925f88 * w32font.c (w32font_open): Handle size, height and pixel_size better.
Jason Rumney <jasonr@gnu.org>
parents: 90869
diff changeset
1002 if (font_type & RASTER_FONTTYPE)
96934
59f723e2168b (w32_enumfont_pattern_entity): Return height consistent with opened font.
Jason Rumney <jasonr@gnu.org>
parents: 96563
diff changeset
1003 ASET (entity, FONT_SIZE_INDEX,
59f723e2168b (w32_enumfont_pattern_entity): Return height consistent with opened font.
Jason Rumney <jasonr@gnu.org>
parents: 96563
diff changeset
1004 make_number (physical_font->ntmTm.tmHeight
59f723e2168b (w32_enumfont_pattern_entity): Return height consistent with opened font.
Jason Rumney <jasonr@gnu.org>
parents: 96563
diff changeset
1005 + physical_font->ntmTm.tmExternalLeading));
90879
82b86c925f88 * w32font.c (w32font_open): Handle size, height and pixel_size better.
Jason Rumney <jasonr@gnu.org>
parents: 90869
diff changeset
1006 else
82b86c925f88 * w32font.c (w32font_open): Handle size, height and pixel_size better.
Jason Rumney <jasonr@gnu.org>
parents: 90869
diff changeset
1007 ASET (entity, FONT_SIZE_INDEX, make_number (0));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1008
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1009 /* Cache unicode codepoints covered by this font, as there is no other way
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1010 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
1011 if (font_type & TRUETYPE_FONTTYPE)
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1012 {
95468
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1013 tem = font_supported_scripts (&physical_font->ntmFontSig);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1014 if (!NILP (tem))
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1015 font_put_extra (entity, QCscript, tem);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1016 }
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1017
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1018 /* This information is not fully available when opening fonts, so
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1019 save it here. Only Windows 2000 and later return information
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1020 about opentype and type1 fonts, so need a fallback for detecting
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1021 truetype so that this information is not any worse than we could
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1022 have obtained later. */
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1023 if (EQ (backend, Quniscribe) && (full_type & NTMFLAGS_OPENTYPE))
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1024 tem = intern ("opentype");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1025 else if (font_type & TRUETYPE_FONTTYPE)
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1026 tem = intern ("truetype");
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1027 else if (full_type & NTM_PS_OPENTYPE)
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1028 tem = intern ("postscript");
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1029 else if (full_type & NTM_TYPE1)
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1030 tem = intern ("type1");
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1031 else if (font_type & RASTER_FONTTYPE)
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1032 tem = intern ("w32bitmap");
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1033 else
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1034 tem = intern ("w32vector");
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1035
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1036 font_put_extra (entity, QCformat, tem);
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1037
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1038 return entity;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1039 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1040
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1041
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1042 /* Convert generic families to the family portion of lfPitchAndFamily. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1043 BYTE
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1044 w32_generic_family (Lisp_Object name)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1045 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1046 /* Generic families. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1047 if (EQ (name, Qmonospace) || EQ (name, Qmono))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1048 return FF_MODERN;
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1049 else if (EQ (name, Qsans) || EQ (name, Qsans_serif) || EQ (name, Qsansserif))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1050 return FF_SWISS;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1051 else if (EQ (name, Qserif))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1052 return FF_ROMAN;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1053 else if (EQ (name, Qdecorative))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1054 return FF_DECORATIVE;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1055 else if (EQ (name, Qscript))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1056 return FF_SCRIPT;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1057 else
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1058 return FF_DONTCARE;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1059 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1060
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1061 static int
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1062 logfonts_match (font, pattern)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1063 LOGFONT *font, *pattern;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1064 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1065 /* Only check height for raster fonts. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1066 if (pattern->lfHeight && font->lfOutPrecision == OUT_STRING_PRECIS
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1067 && font->lfHeight != pattern->lfHeight)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1068 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1069
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1070 /* Have some flexibility with weights. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1071 if (pattern->lfWeight
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1072 && ((font->lfWeight < (pattern->lfWeight - 150))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1073 || font->lfWeight > (pattern->lfWeight + 150)))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1074 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1075
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1076 /* Charset and face should be OK. Italic has to be checked
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1077 against the original spec, in case we don't have any preference. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1078 return 1;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1079 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1080
96111
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1081 /* Codepage Bitfields in FONTSIGNATURE struct. */
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1082 #define CSB_JAPANESE (1 << 17)
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1083 #define CSB_KOREAN ((1 << 19) | (1 << 21))
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1084 #define CSB_CHINESE ((1 << 18) | (1 << 20))
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1085
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1086 static int
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1087 font_matches_spec (type, font, spec, backend, logfont)
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1088 DWORD type;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1089 NEWTEXTMETRICEX *font;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1090 Lisp_Object spec;
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1091 Lisp_Object backend;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1092 LOGFONT *logfont;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1093 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1094 Lisp_Object extra, val;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1095
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1096 /* Check italic. Can't check logfonts, since it is a boolean field,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1097 so there is no difference between "non-italic" and "don't care". */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1098 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1099 int slant = FONT_SLANT_NUMERIC (spec);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1100
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1101 if (slant >= 0
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1102 && ((slant > 150 && !font->ntmTm.tmItalic)
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1103 || (slant <= 150 && font->ntmTm.tmItalic)))
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1104 return 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1105 }
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1106
91264
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1107 /* Check adstyle against generic family. */
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1108 val = AREF (spec, FONT_ADSTYLE_INDEX);
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1109 if (!NILP (val))
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1110 {
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1111 BYTE family = w32_generic_family (val);
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1112 if (family != FF_DONTCARE
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1113 && family != (font->ntmTm.tmPitchAndFamily & 0xF0))
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1114 return 0;
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1115 }
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1116
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1117 /* Check spacing */
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1118 val = AREF (spec, FONT_SPACING_INDEX);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1119 if (INTEGERP (val))
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1120 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1121 int spacing = XINT (val);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1122 int proportional = (spacing < FONT_SPACING_MONO);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1123
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1124 if ((proportional && !(font->ntmTm.tmPitchAndFamily & 0x01))
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1125 || (!proportional && (font->ntmTm.tmPitchAndFamily & 0x01)))
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1126 return 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1127 }
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1128
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1129 /* Check extra parameters. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1130 for (extra = AREF (spec, FONT_EXTRA_INDEX);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1131 CONSP (extra); extra = XCDR (extra))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1132 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1133 Lisp_Object extra_entry;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1134 extra_entry = XCAR (extra);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1135 if (CONSP (extra_entry))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1136 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1137 Lisp_Object key = XCAR (extra_entry);
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1138
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1139 val = XCDR (extra_entry);
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1140 if (EQ (key, QCscript) && SYMBOLP (val))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1141 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1142 /* Only truetype fonts will have information about what
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1143 scripts they support. This probably means the user
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1144 will have to force Emacs to use raster, postscript
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1145 or atm fonts for non-ASCII text. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1146 if (type & TRUETYPE_FONTTYPE)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1147 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1148 Lisp_Object support
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1149 = font_supported_scripts (&font->ntmFontSig);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1150 if (! memq_no_quit (val, support))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1151 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1152 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1153 else
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1154 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1155 /* Return specific matches, but play it safe. Fonts
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1156 that cover more than their charset would suggest
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1157 are likely to be truetype or opentype fonts,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1158 covered above. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1159 if (EQ (val, Qlatin))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1160 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1161 /* Although every charset but symbol, thai and
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1162 arabic contains the basic ASCII set of latin
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1163 characters, Emacs expects much more. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1164 if (font->ntmTm.tmCharSet != ANSI_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1165 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1166 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1167 else if (EQ (val, Qsymbol))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1168 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1169 if (font->ntmTm.tmCharSet != SYMBOL_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1170 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1171 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1172 else if (EQ (val, Qcyrillic))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1173 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1174 if (font->ntmTm.tmCharSet != RUSSIAN_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1175 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1176 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1177 else if (EQ (val, Qgreek))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1178 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1179 if (font->ntmTm.tmCharSet != GREEK_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1180 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1181 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1182 else if (EQ (val, Qarabic))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1183 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1184 if (font->ntmTm.tmCharSet != ARABIC_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1185 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1186 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1187 else if (EQ (val, Qhebrew))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1188 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1189 if (font->ntmTm.tmCharSet != HEBREW_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1190 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1191 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1192 else if (EQ (val, Qthai))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1193 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1194 if (font->ntmTm.tmCharSet != THAI_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1195 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1196 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1197 else if (EQ (val, Qkana))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1198 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1199 if (font->ntmTm.tmCharSet != SHIFTJIS_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1200 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1201 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1202 else if (EQ (val, Qbopomofo))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1203 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1204 if (font->ntmTm.tmCharSet != CHINESEBIG5_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1205 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1206 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1207 else if (EQ (val, Qhangul))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1208 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1209 if (font->ntmTm.tmCharSet != HANGUL_CHARSET
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1210 && font->ntmTm.tmCharSet != JOHAB_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1211 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1212 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1213 else if (EQ (val, Qhan))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1214 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1215 if (font->ntmTm.tmCharSet != CHINESEBIG5_CHARSET
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1216 && font->ntmTm.tmCharSet != GB2312_CHARSET
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1217 && font->ntmTm.tmCharSet != HANGUL_CHARSET
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1218 && font->ntmTm.tmCharSet != JOHAB_CHARSET
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1219 && font->ntmTm.tmCharSet != SHIFTJIS_CHARSET)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1220 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1221 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1222 else
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1223 /* Other scripts unlikely to be handled by non-truetype
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1224 fonts. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1225 return 0;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1226 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1227 }
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1228 else if (EQ (key, QClang) && SYMBOLP (val))
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1229 {
96111
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1230 /* Just handle the CJK languages here, as the lang
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1231 parameter is used to select a font with appropriate
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1232 glyphs in the cjk unified ideographs block. Other fonts
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1233 support for a language can be solely determined by
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1234 its character coverage. */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1235 if (EQ (val, Qja))
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1236 {
96111
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1237 if (!(font->ntmFontSig.fsCsb[0] & CSB_JAPANESE))
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1238 return 0;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1239 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1240 else if (EQ (val, Qko))
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1241 {
96111
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1242 if (!(font->ntmFontSig.fsCsb[0] & CSB_KOREAN))
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1243 return 0;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1244 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1245 else if (EQ (val, Qzh))
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1246 {
96111
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1247 if (!(font->ntmFontSig.fsCsb[0] & CSB_CHINESE))
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1248 return 0;
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1249 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1250 else
96111
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1251 /* Any other language, we don't recognize it. Only the above
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1252 currently appear in fontset.el, so it isn't worth
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1253 creating a mapping table of codepages/scripts to languages
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1254 or opening the font to see if there are any language tags
365321a44102 (font_matches_spec): Use csb bitfield from font signature to determine
Jason Rumney <jasonr@gnu.org>
parents: 96071
diff changeset
1255 in it that the W32 API does not expose. Fontset
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1256 spec should have a fallback, as some backends do
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1257 not recognize language at all. */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1258 return 0;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1259 }
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1260 else if (EQ (key, QCotf) && CONSP (val))
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1261 {
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1262 /* OTF features only supported by the uniscribe backend. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1263 if (EQ (backend, Quniscribe))
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1264 {
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1265 if (!uniscribe_check_otf (logfont, val))
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1266 return 0;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1267 }
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1268 else
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1269 return 0;
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1270 }
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1271 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1272 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1273 return 1;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1274 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1275
92539
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1276 static int
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1277 w32font_coverage_ok (coverage, charset)
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1278 FONTSIGNATURE * coverage;
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1279 BYTE charset;
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1280 {
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1281 DWORD subrange1 = coverage->fsUsb[1];
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1282
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1283 #define SUBRANGE1_HAN_MASK 0x08000000
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1284 #define SUBRANGE1_HANGEUL_MASK 0x01000000
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1285 #define SUBRANGE1_JAPANESE_MASK (0x00060000 | SUBRANGE1_HAN_MASK)
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1286
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1287 if (charset == GB2312_CHARSET || charset == CHINESEBIG5_CHARSET)
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1288 {
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1289 return (subrange1 & SUBRANGE1_HAN_MASK) == SUBRANGE1_HAN_MASK;
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1290 }
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1291 else if (charset == SHIFTJIS_CHARSET)
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1292 {
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1293 return (subrange1 & SUBRANGE1_JAPANESE_MASK) == SUBRANGE1_JAPANESE_MASK;
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1294 }
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1295 else if (charset == HANGEUL_CHARSET)
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1296 {
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1297 return (subrange1 & SUBRANGE1_HANGEUL_MASK) == SUBRANGE1_HANGEUL_MASK;
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1298 }
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1299
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1300 return 1;
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1301 }
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1302
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1303 /* Callback function for EnumFontFamiliesEx.
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1304 * Checks if a font matches everything we are trying to check agaist,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1305 * and if so, adds it to a list. Both the data we are checking against
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1306 * and the list to which the fonts are added are passed in via the
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1307 * lparam argument, in the form of a font_callback_data struct. */
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1308 static int CALLBACK
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1309 add_font_entity_to_list (logical_font, physical_font, font_type, lParam)
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1310 ENUMLOGFONTEX *logical_font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1311 NEWTEXTMETRICEX *physical_font;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1312 DWORD font_type;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1313 LPARAM lParam;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1314 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1315 struct font_callback_data *match_data
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1316 = (struct font_callback_data *) lParam;
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1317 Lisp_Object backend = match_data->opentype_only ? Quniscribe : Qgdi;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1318
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
1319 if ((!match_data->opentype_only
95388
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1320 || (((physical_font->ntmTm.ntmFlags & NTMFLAGS_OPENTYPE)
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1321 || (font_type & TRUETYPE_FONTTYPE))
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1322 /* For the uniscribe backend, only consider fonts that claim
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1323 to cover at least some part of Unicode. */
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1324 && (physical_font->ntmFontSig.fsUsb[3]
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1325 || physical_font->ntmFontSig.fsUsb[2]
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1326 || physical_font->ntmFontSig.fsUsb[1]
68cbfe0d72fc (add_font_entity_to_list): Allow non-opentype truetype fonts back
Jason Rumney <jasonr@gnu.org>
parents: 95384
diff changeset
1327 || (physical_font->ntmFontSig.fsUsb[0] & 0x3fffffff))))
91208
98329725c530 Include w32font.h.
Jason Rumney <jasonr@gnu.org>
parents: 91182
diff changeset
1328 && logfonts_match (&logical_font->elfLogFont, &match_data->pattern)
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1329 && font_matches_spec (font_type, physical_font,
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1330 match_data->orig_font_spec, backend,
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1331 &logical_font->elfLogFont)
92539
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1332 && w32font_coverage_ok (&physical_font->ntmFontSig,
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1333 match_data->pattern.lfCharSet)
91264
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1334 /* Avoid substitutions involving raster fonts (eg Helv -> MS Sans Serif)
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1335 We limit this to raster fonts, because the test can catch some
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1336 genuine fonts (eg the full name of DejaVu Sans Mono Light is actually
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1337 DejaVu Sans Mono ExtraLight). Helvetica -> Arial substitution will
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1338 therefore get through this test. Since full names can be prefixed
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1339 by a foundry, we accept raster fonts if the font name is found
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1340 anywhere within the full name. */
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1341 && (logical_font->elfLogFont.lfOutPrecision != OUT_STRING_PRECIS
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1342 || strstr (logical_font->elfFullName,
9112e263c11f (logfonts_match): Don't check adstyle here.
Jason Rumney <jasonr@gnu.org>
parents: 91260
diff changeset
1343 logical_font->elfLogFont.lfFaceName)))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1344 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1345 Lisp_Object entity
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1346 = w32_enumfont_pattern_entity (match_data->frame, logical_font,
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1347 physical_font, font_type,
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
1348 &match_data->pattern,
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1349 backend);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1350 if (!NILP (entity))
95468
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1351 {
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1352 Lisp_Object spec_charset = AREF (match_data->orig_font_spec,
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1353 FONT_REGISTRY_INDEX);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1354
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1355 /* If registry was specified as iso10646-1, only report
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1356 ANSI and DEFAULT charsets, as most unicode fonts will
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1357 contain one of those plus others. */
95828
b5bea3387b5e (w32font_encode_char): Detect missing glyphs that are misreported as space.
Jason Rumney <jasonr@gnu.org>
parents: 95744
diff changeset
1358 if ((EQ (spec_charset, Qiso10646_1)
b5bea3387b5e (w32font_encode_char): Detect missing glyphs that are misreported as space.
Jason Rumney <jasonr@gnu.org>
parents: 95744
diff changeset
1359 || EQ (spec_charset, Qunicode_bmp)
b5bea3387b5e (w32font_encode_char): Detect missing glyphs that are misreported as space.
Jason Rumney <jasonr@gnu.org>
parents: 95744
diff changeset
1360 || EQ (spec_charset, Qunicode_sip))
95468
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1361 && logical_font->elfLogFont.lfCharSet != DEFAULT_CHARSET
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1362 && logical_font->elfLogFont.lfCharSet != ANSI_CHARSET)
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1363 return 1;
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1364 /* If registry was specified, but did not map to a windows
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1365 charset, only report fonts that have unknown charsets.
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1366 This will still report fonts that don't match, but at
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1367 least it eliminates known definite mismatches. */
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1368 else if (!NILP (spec_charset)
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1369 && !EQ (spec_charset, Qiso10646_1)
95828
b5bea3387b5e (w32font_encode_char): Detect missing glyphs that are misreported as space.
Jason Rumney <jasonr@gnu.org>
parents: 95744
diff changeset
1370 && !EQ (spec_charset, Qunicode_bmp)
b5bea3387b5e (w32font_encode_char): Detect missing glyphs that are misreported as space.
Jason Rumney <jasonr@gnu.org>
parents: 95744
diff changeset
1371 && !EQ (spec_charset, Qunicode_sip)
95468
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1372 && match_data->pattern.lfCharSet == DEFAULT_CHARSET
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1373 && logical_font->elfLogFont.lfCharSet != DEFAULT_CHARSET)
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1374 return 1;
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1375
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1376 /* If registry was specified, ensure it is reported as the same. */
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1377 if (!NILP (spec_charset))
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1378 ASET (entity, FONT_REGISTRY_INDEX, spec_charset);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1379
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1380 match_data->list = Fcons (entity, match_data->list);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1381
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1382 /* If no registry specified, duplicate iso8859-1 truetype fonts
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1383 as iso10646-1. */
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1384 if (NILP (spec_charset)
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1385 && font_type == TRUETYPE_FONTTYPE
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1386 && logical_font->elfLogFont.lfCharSet == ANSI_CHARSET)
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1387 {
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1388 Lisp_Object tem = Fcopy_font_spec (entity);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1389 ASET (tem, FONT_REGISTRY_INDEX, Qiso10646_1);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1390 match_data->list = Fcons (tem, match_data->list);
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1391 }
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1392 }
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1393 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1394 return 1;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1395 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1396
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1397 /* Callback function for EnumFontFamiliesEx.
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1398 * Terminates the search once we have a match. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1399 static int CALLBACK
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1400 add_one_font_entity_to_list (logical_font, physical_font, font_type, lParam)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1401 ENUMLOGFONTEX *logical_font;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1402 NEWTEXTMETRICEX *physical_font;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1403 DWORD font_type;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1404 LPARAM lParam;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1405 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1406 struct font_callback_data *match_data
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1407 = (struct font_callback_data *) lParam;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1408 add_font_entity_to_list (logical_font, physical_font, font_type, lParam);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1409
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1410 /* If we have a font in the list, terminate the search. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1411 return !NILP (match_data->list);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1412 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1413
96385
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1414 /* Old function to convert from x to w32 charset, from w32fns.c. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1415 static LONG
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1416 x_to_w32_charset (lpcs)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1417 char * lpcs;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1418 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1419 Lisp_Object this_entry, w32_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1420 char *charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1421 int len = strlen (lpcs);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1422
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1423 /* Support "*-#nnn" format for unknown charsets. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1424 if (strncmp (lpcs, "*-#", 3) == 0)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1425 return atoi (lpcs + 3);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1426
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1427 /* All Windows fonts qualify as unicode. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1428 if (!strncmp (lpcs, "iso10646", 8))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1429 return DEFAULT_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1430
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1431 /* Handle wildcards by ignoring them; eg. treat "big5*-*" as "big5". */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1432 charset = alloca (len + 1);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1433 strcpy (charset, lpcs);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1434 lpcs = strchr (charset, '*');
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1435 if (lpcs)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1436 *lpcs = '\0';
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1437
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1438 /* Look through w32-charset-info-alist for the character set.
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1439 Format of each entry is
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1440 (CHARSET_NAME . (WINDOWS_CHARSET . CODEPAGE)).
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1441 */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1442 this_entry = Fassoc (build_string (charset), Vw32_charset_info_alist);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1443
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1444 if (NILP (this_entry))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1445 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1446 /* At startup, we want iso8859-1 fonts to come up properly. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1447 if (xstrcasecmp (charset, "iso8859-1") == 0)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1448 return ANSI_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1449 else
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1450 return DEFAULT_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1451 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1452
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1453 w32_charset = Fcar (Fcdr (this_entry));
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1454
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1455 /* Translate Lisp symbol to number. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1456 if (EQ (w32_charset, Qw32_charset_ansi))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1457 return ANSI_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1458 if (EQ (w32_charset, Qw32_charset_symbol))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1459 return SYMBOL_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1460 if (EQ (w32_charset, Qw32_charset_shiftjis))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1461 return SHIFTJIS_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1462 if (EQ (w32_charset, Qw32_charset_hangeul))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1463 return HANGEUL_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1464 if (EQ (w32_charset, Qw32_charset_chinesebig5))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1465 return CHINESEBIG5_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1466 if (EQ (w32_charset, Qw32_charset_gb2312))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1467 return GB2312_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1468 if (EQ (w32_charset, Qw32_charset_oem))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1469 return OEM_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1470 if (EQ (w32_charset, Qw32_charset_johab))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1471 return JOHAB_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1472 if (EQ (w32_charset, Qw32_charset_easteurope))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1473 return EASTEUROPE_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1474 if (EQ (w32_charset, Qw32_charset_turkish))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1475 return TURKISH_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1476 if (EQ (w32_charset, Qw32_charset_baltic))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1477 return BALTIC_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1478 if (EQ (w32_charset, Qw32_charset_russian))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1479 return RUSSIAN_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1480 if (EQ (w32_charset, Qw32_charset_arabic))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1481 return ARABIC_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1482 if (EQ (w32_charset, Qw32_charset_greek))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1483 return GREEK_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1484 if (EQ (w32_charset, Qw32_charset_hebrew))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1485 return HEBREW_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1486 if (EQ (w32_charset, Qw32_charset_vietnamese))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1487 return VIETNAMESE_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1488 if (EQ (w32_charset, Qw32_charset_thai))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1489 return THAI_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1490 if (EQ (w32_charset, Qw32_charset_mac))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1491 return MAC_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1492
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1493 return DEFAULT_CHARSET;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1494 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1495
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1496
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1497 /* 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
1498 static LONG
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1499 registry_to_w32_charset (charset)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1500 Lisp_Object charset;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1501 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1502 if (EQ (charset, Qiso10646_1) || EQ (charset, Qunicode_bmp)
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1503 || EQ (charset, Qunicode_sip))
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1504 return DEFAULT_CHARSET; /* UNICODE_CHARSET not defined in MingW32 */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1505 else if (EQ (charset, Qiso8859_1))
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1506 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
1507 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
1508 return x_to_w32_charset (SDATA (SYMBOL_NAME (charset)));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1509 else
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1510 return DEFAULT_CHARSET;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1511 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1512
96385
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1513 /* Old function to convert from w32 to x charset, from w32fns.c. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1514 static char *
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1515 w32_to_x_charset (fncharset, matching)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1516 int fncharset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1517 char *matching;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1518 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1519 static char buf[32];
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1520 Lisp_Object charset_type;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1521 int match_len = 0;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1522
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1523 if (matching)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1524 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1525 /* If fully specified, accept it as it is. Otherwise use a
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1526 substring match. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1527 char *wildcard = strchr (matching, '*');
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1528 if (wildcard)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1529 *wildcard = '\0';
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1530 else if (strchr (matching, '-'))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1531 return matching;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1532
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1533 match_len = strlen (matching);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1534 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1535
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1536 switch (fncharset)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1537 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1538 case ANSI_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1539 /* Handle startup case of w32-charset-info-alist not
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1540 being set up yet. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1541 if (NILP (Vw32_charset_info_alist))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1542 return "iso8859-1";
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1543 charset_type = Qw32_charset_ansi;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1544 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1545 case DEFAULT_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1546 charset_type = Qw32_charset_default;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1547 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1548 case SYMBOL_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1549 charset_type = Qw32_charset_symbol;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1550 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1551 case SHIFTJIS_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1552 charset_type = Qw32_charset_shiftjis;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1553 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1554 case HANGEUL_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1555 charset_type = Qw32_charset_hangeul;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1556 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1557 case GB2312_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1558 charset_type = Qw32_charset_gb2312;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1559 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1560 case CHINESEBIG5_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1561 charset_type = Qw32_charset_chinesebig5;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1562 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1563 case OEM_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1564 charset_type = Qw32_charset_oem;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1565 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1566 case EASTEUROPE_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1567 charset_type = Qw32_charset_easteurope;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1568 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1569 case TURKISH_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1570 charset_type = Qw32_charset_turkish;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1571 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1572 case BALTIC_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1573 charset_type = Qw32_charset_baltic;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1574 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1575 case RUSSIAN_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1576 charset_type = Qw32_charset_russian;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1577 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1578 case ARABIC_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1579 charset_type = Qw32_charset_arabic;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1580 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1581 case GREEK_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1582 charset_type = Qw32_charset_greek;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1583 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1584 case HEBREW_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1585 charset_type = Qw32_charset_hebrew;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1586 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1587 case VIETNAMESE_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1588 charset_type = Qw32_charset_vietnamese;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1589 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1590 case THAI_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1591 charset_type = Qw32_charset_thai;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1592 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1593 case MAC_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1594 charset_type = Qw32_charset_mac;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1595 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1596 case JOHAB_CHARSET:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1597 charset_type = Qw32_charset_johab;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1598 break;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1599
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1600 default:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1601 /* Encode numerical value of unknown charset. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1602 sprintf (buf, "*-#%u", fncharset);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1603 return buf;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1604 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1605
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1606 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1607 Lisp_Object rest;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1608 char * best_match = NULL;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1609 int matching_found = 0;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1610
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1611 /* Look through w32-charset-info-alist for the character set.
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1612 Prefer ISO codepages, and prefer lower numbers in the ISO
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1613 range. Only return charsets for codepages which are installed.
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1614
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1615 Format of each entry is
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1616 (CHARSET_NAME . (WINDOWS_CHARSET . CODEPAGE)).
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1617 */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1618 for (rest = Vw32_charset_info_alist; CONSP (rest); rest = XCDR (rest))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1619 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1620 char * x_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1621 Lisp_Object w32_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1622 Lisp_Object codepage;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1623
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1624 Lisp_Object this_entry = XCAR (rest);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1625
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1626 /* Skip invalid entries in alist. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1627 if (!CONSP (this_entry) || !STRINGP (XCAR (this_entry))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1628 || !CONSP (XCDR (this_entry))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1629 || !SYMBOLP (XCAR (XCDR (this_entry))))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1630 continue;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1631
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1632 x_charset = SDATA (XCAR (this_entry));
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1633 w32_charset = XCAR (XCDR (this_entry));
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1634 codepage = XCDR (XCDR (this_entry));
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1635
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1636 /* Look for Same charset and a valid codepage (or non-int
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1637 which means ignore). */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1638 if (EQ (w32_charset, charset_type)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1639 && (!INTEGERP (codepage) || XINT (codepage) == CP_DEFAULT
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1640 || IsValidCodePage (XINT (codepage))))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1641 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1642 /* If we don't have a match already, then this is the
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1643 best. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1644 if (!best_match)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1645 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1646 best_match = x_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1647 if (matching && !strnicmp (x_charset, matching, match_len))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1648 matching_found = 1;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1649 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1650 /* If we already found a match for MATCHING, then
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1651 only consider other matches. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1652 else if (matching_found
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1653 && strnicmp (x_charset, matching, match_len))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1654 continue;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1655 /* If this matches what we want, and the best so far doesn't,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1656 then this is better. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1657 else if (!matching_found && matching
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1658 && !strnicmp (x_charset, matching, match_len))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1659 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1660 best_match = x_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1661 matching_found = 1;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1662 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1663 /* If this is fully specified, and the best so far isn't,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1664 then this is better. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1665 else if ((!strchr (best_match, '-') && strchr (x_charset, '-'))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1666 /* If this is an ISO codepage, and the best so far isn't,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1667 then this is better, but only if it fully specifies the
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1668 encoding. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1669 || (strnicmp (best_match, "iso", 3) != 0
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1670 && strnicmp (x_charset, "iso", 3) == 0
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1671 && strchr (x_charset, '-')))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1672 best_match = x_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1673 /* If both are ISO8859 codepages, choose the one with the
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1674 lowest number in the encoding field. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1675 else if (strnicmp (best_match, "iso8859-", 8) == 0
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1676 && strnicmp (x_charset, "iso8859-", 8) == 0)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1677 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1678 int best_enc = atoi (best_match + 8);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1679 int this_enc = atoi (x_charset + 8);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1680 if (this_enc > 0 && this_enc < best_enc)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1681 best_match = x_charset;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1682 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1683 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1684 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1685
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1686 /* If no match, encode the numeric value. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1687 if (!best_match)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1688 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1689 sprintf (buf, "*-#%u", fncharset);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1690 return buf;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1691 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1692
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1693 strncpy (buf, best_match, 31);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1694 /* If the charset is not fully specified, put -0 on the end. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1695 if (!strchr (best_match, '-'))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1696 {
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1697 int pos = strlen (best_match);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1698 /* Charset specifiers shouldn't be very long. If it is a made
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1699 up one, truncating it should not do any harm since it isn't
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1700 recognized anyway. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1701 if (pos > 29)
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1702 pos = 29;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1703 strcpy (buf + pos, "-0");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1704 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1705 buf[31] = '\0';
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1706 return buf;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1707 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1708 }
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
1709
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1710 static Lisp_Object
92539
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1711 w32_registry (w32_charset, font_type)
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1712 LONG w32_charset;
92539
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1713 DWORD font_type;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1714 {
95468
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1715 char *charset;
92539
d4cf72c99c2f (w32_registry): Take font_type argument. Use ANSI
Jason Rumney <jasonr@gnu.org>
parents: 92472
diff changeset
1716
95468
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1717 /* If charset is defaulted, charset is unicode or unknown, depending on
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1718 font type. */
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1719 if (w32_charset == DEFAULT_CHARSET)
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1720 return font_type == TRUETYPE_FONTTYPE ? Qiso10646_1 : Qunknown;
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1721
19ee88719d52 (w32_enumfont_pattern_entity): Use requested registry.
Jason Rumney <jasonr@gnu.org>
parents: 95388
diff changeset
1722 charset = w32_to_x_charset (w32_charset, NULL);
95744
abc12b93e2dd (add_font_name_to_list): Adjusted for
Kenichi Handa <handa@m17n.org>
parents: 95468
diff changeset
1723 return font_intern_prop (charset, strlen(charset), 1);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1724 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1725
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1726 static int
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1727 w32_decode_weight (fnweight)
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1728 int fnweight;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1729 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1730 if (fnweight >= FW_HEAVY) return 210;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1731 if (fnweight >= FW_EXTRABOLD) return 205;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1732 if (fnweight >= FW_BOLD) return 200;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1733 if (fnweight >= FW_SEMIBOLD) return 180;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1734 if (fnweight >= FW_NORMAL) return 100;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1735 if (fnweight >= FW_LIGHT) return 50;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1736 if (fnweight >= FW_EXTRALIGHT) return 40;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1737 if (fnweight > FW_THIN) return 20;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1738 return 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1739 }
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1740
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1741 static int
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1742 w32_encode_weight (n)
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1743 int n;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1744 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1745 if (n >= 210) return FW_HEAVY;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1746 if (n >= 205) return FW_EXTRABOLD;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1747 if (n >= 200) return FW_BOLD;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1748 if (n >= 180) return FW_SEMIBOLD;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1749 if (n >= 100) return FW_NORMAL;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1750 if (n >= 50) return FW_LIGHT;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1751 if (n >= 40) return FW_EXTRALIGHT;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1752 if (n >= 20) return FW_THIN;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1753 return 0;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1754 }
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1755
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1756 /* Convert a Windows font weight into one of the weights supported
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1757 by fontconfig (see font.c:font_parse_fcname). */
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1758 static Lisp_Object
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1759 w32_to_fc_weight (n)
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1760 int n;
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1761 {
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1762 if (n >= FW_EXTRABOLD) return intern ("black");
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1763 if (n >= FW_BOLD) return intern ("bold");
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1764 if (n >= FW_SEMIBOLD) return intern ("demibold");
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1765 if (n >= FW_NORMAL) return intern ("medium");
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1766 return intern ("light");
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1767 }
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
1768
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1769 /* 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
1770 static void
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1771 fill_in_logfont (f, logfont, font_spec)
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1772 FRAME_PTR f;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1773 LOGFONT *logfont;
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1774 Lisp_Object font_spec;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1775 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1776 Lisp_Object tmp, extra;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1777 int dpi = FRAME_W32_DISPLAY_INFO (f)->resy;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1778
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1779 tmp = AREF (font_spec, FONT_DPI_INDEX);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1780 if (INTEGERP (tmp))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1781 {
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1782 dpi = XINT (tmp);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1783 }
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1784 else if (FLOATP (tmp))
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1785 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1786 dpi = (int) (XFLOAT_DATA (tmp) + 0.5);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1787 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1788
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1789 /* Height */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1790 tmp = AREF (font_spec, FONT_SIZE_INDEX);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1791 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
1792 logfont->lfHeight = -1 * XINT (tmp);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1793 else if (FLOATP (tmp))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1794 logfont->lfHeight = (int) (-1.0 * dpi * XFLOAT_DATA (tmp) / 72.27 + 0.5);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1795
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1796 /* Escapement */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1797
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1798 /* Orientation */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1799
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1800 /* Weight */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1801 tmp = AREF (font_spec, FONT_WEIGHT_INDEX);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1802 if (INTEGERP (tmp))
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1803 logfont->lfWeight = w32_encode_weight (FONT_WEIGHT_NUMERIC (font_spec));
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1804
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1805 /* Italic */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1806 tmp = AREF (font_spec, FONT_SLANT_INDEX);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1807 if (INTEGERP (tmp))
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1808 {
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1809 int slant = FONT_SLANT_NUMERIC (font_spec);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1810 logfont->lfItalic = slant > 150 ? 1 : 0;
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1811 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1812
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1813 /* Underline */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1814
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1815 /* Strikeout */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1816
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1817 /* Charset */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1818 tmp = AREF (font_spec, FONT_REGISTRY_INDEX);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1819 if (! NILP (tmp))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1820 logfont->lfCharSet = registry_to_w32_charset (tmp);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1821 else
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
1822 logfont->lfCharSet = DEFAULT_CHARSET;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1823
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1824 /* Out Precision */
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1825
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1826 /* Clip Precision */
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1827
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1828 /* Quality */
90879
82b86c925f88 * w32font.c (w32font_open): Handle size, height and pixel_size better.
Jason Rumney <jasonr@gnu.org>
parents: 90869
diff changeset
1829 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
1830
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1831 /* Generic Family and Face Name */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1832 logfont->lfPitchAndFamily = FF_DONTCARE | DEFAULT_PITCH;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1833
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1834 tmp = AREF (font_spec, FONT_FAMILY_INDEX);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1835 if (! NILP (tmp))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1836 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1837 logfont->lfPitchAndFamily = w32_generic_family (tmp) | DEFAULT_PITCH;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1838 if ((logfont->lfPitchAndFamily & 0xF0) != FF_DONTCARE)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1839 ; /* Font name was generic, don't fill in font name. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1840 /* Font families are interned, but allow for strings also in case of
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1841 user input. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1842 else if (SYMBOLP (tmp))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1843 strncpy (logfont->lfFaceName, SDATA (SYMBOL_NAME (tmp)), LF_FACESIZE);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1844 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1845
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1846 tmp = AREF (font_spec, FONT_ADSTYLE_INDEX);
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1847 if (!NILP (tmp))
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1848 {
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1849 /* Override generic family. */
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1850 BYTE family = w32_generic_family (tmp);
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1851 if (family != FF_DONTCARE)
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1852 logfont->lfPitchAndFamily = family | DEFAULT_PITCH;
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1853 }
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
1854
95341
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
1855
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1856 /* Set pitch based on the spacing property. */
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1857 tmp = AREF (font_spec, FONT_SPACING_INDEX);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1858 if (INTEGERP (tmp))
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1859 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1860 int spacing = XINT (tmp);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1861 if (spacing < FONT_SPACING_MONO)
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1862 logfont->lfPitchAndFamily
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1863 = logfont->lfPitchAndFamily & 0xF0 | VARIABLE_PITCH;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1864 else
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1865 logfont->lfPitchAndFamily
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1866 = logfont->lfPitchAndFamily & 0xF0 | FIXED_PITCH;
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1867 }
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1868
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1869 /* Process EXTRA info. */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1870 for (extra = AREF (font_spec, FONT_EXTRA_INDEX);
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1871 CONSP (extra); extra = XCDR (extra))
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1872 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1873 tmp = XCAR (extra);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1874 if (CONSP (tmp))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1875 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1876 Lisp_Object key, val;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1877 key = XCAR (tmp), val = XCDR (tmp);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1878 /* Only use QCscript if charset is not provided, or is unicode
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1879 and a single script is specified. This is rather crude,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1880 and is only used to narrow down the fonts returned where
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1881 there is a definite match. Some scripts, such as latin, han,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1882 cjk-misc match multiple lfCharSet values, so we can't pre-filter
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1883 them. */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
1884 if (EQ (key, QCscript)
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1885 && logfont->lfCharSet == DEFAULT_CHARSET
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1886 && SYMBOLP (val))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1887 {
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1888 if (EQ (val, Qgreek))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1889 logfont->lfCharSet = GREEK_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1890 else if (EQ (val, Qhangul))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1891 logfont->lfCharSet = HANGUL_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1892 else if (EQ (val, Qkana) || EQ (val, Qkanbun))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1893 logfont->lfCharSet = SHIFTJIS_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1894 else if (EQ (val, Qbopomofo))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1895 logfont->lfCharSet = CHINESEBIG5_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1896 /* GB 18030 supports tibetan, yi, mongolian,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1897 fonts that support it should show up if we ask for
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1898 GB2312 fonts. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1899 else if (EQ (val, Qtibetan) || EQ (val, Qyi)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1900 || EQ (val, Qmongolian))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1901 logfont->lfCharSet = GB2312_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1902 else if (EQ (val, Qhebrew))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1903 logfont->lfCharSet = HEBREW_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1904 else if (EQ (val, Qarabic))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1905 logfont->lfCharSet = ARABIC_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1906 else if (EQ (val, Qthai))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1907 logfont->lfCharSet = THAI_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1908 else if (EQ (val, Qsymbol))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1909 logfont->lfCharSet = SYMBOL_CHARSET;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1910 }
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1911 else if (EQ (key, QCantialias) && SYMBOLP (val))
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1912 {
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1913 logfont->lfQuality = w32_antialias_type (val);
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1914 }
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1915 }
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1916 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1917 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1918
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
1919 static void
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1920 list_all_matching_fonts (match_data)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1921 struct font_callback_data *match_data;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1922 {
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1923 HDC dc;
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1924 Lisp_Object families = w32font_list_family (match_data->frame);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1925 struct frame *f = XFRAME (match_data->frame);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1926
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1927 dc = get_frame_dc (f);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1928
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1929 while (!NILP (families))
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1930 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1931 /* TODO: Use the Unicode versions of the W32 APIs, so we can
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1932 handle non-ASCII font names. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1933 char *name;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1934 Lisp_Object family = CAR (families);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1935 families = CDR (families);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1936 if (NILP (family))
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1937 continue;
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1938 else if (SYMBOLP (family))
95341
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
1939 name = SDATA (SYMBOL_NAME (family));
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1940 else
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
1941 continue;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1942
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1943 strncpy (match_data->pattern.lfFaceName, name, LF_FACESIZE);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1944 match_data->pattern.lfFaceName[LF_FACESIZE - 1] = '\0';
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1945
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1946 EnumFontFamiliesEx (dc, &match_data->pattern,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1947 (FONTENUMPROC) add_font_entity_to_list,
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1948 (LPARAM) match_data, 0);
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1949 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1950
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1951 release_frame_dc (f, dc);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1952 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
1953
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1954 static Lisp_Object
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1955 lispy_antialias_type (type)
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1956 BYTE type;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1957 {
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1958 Lisp_Object lispy;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1959
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1960 switch (type)
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1961 {
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1962 case NONANTIALIASED_QUALITY:
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1963 lispy = Qnone;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1964 break;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1965 case ANTIALIASED_QUALITY:
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1966 lispy = Qstandard;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1967 break;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1968 case CLEARTYPE_QUALITY:
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1969 lispy = Qsubpixel;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1970 break;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1971 case CLEARTYPE_NATURAL_QUALITY:
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1972 lispy = Qnatural;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1973 break;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1974 default:
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1975 lispy = Qnil;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1976 break;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1977 }
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1978 return lispy;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1979 }
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1980
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1981 /* Convert antialiasing symbols to lfQuality */
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1982 static BYTE
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1983 w32_antialias_type (type)
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1984 Lisp_Object type;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1985 {
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1986 if (EQ (type, Qnone))
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1987 return NONANTIALIASED_QUALITY;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1988 else if (EQ (type, Qstandard))
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1989 return ANTIALIASED_QUALITY;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1990 else if (EQ (type, Qsubpixel))
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1991 return CLEARTYPE_QUALITY;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1992 else if (EQ (type, Qnatural))
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1993 return CLEARTYPE_NATURAL_QUALITY;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1994 else
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1995 return DEFAULT_QUALITY;
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1996 }
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
1997
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1998 /* Return a list of all the scripts that the font supports. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
1999 static Lisp_Object
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2000 font_supported_scripts (FONTSIGNATURE * sig)
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2001 {
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2002 DWORD * subranges = sig->fsUsb;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2003 Lisp_Object supported = Qnil;
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2004
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2005 /* Match a single subrange. SYM is set if bit N is set in subranges. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2006 #define SUBRANGE(n,sym) \
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2007 if (subranges[(n) / 32] & (1 << ((n) % 32))) \
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2008 supported = Fcons ((sym), supported)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2009
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2010 /* Match multiple subranges. SYM is set if any MASK bit is set in
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2011 subranges[0 - 3]. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2012 #define MASK_ANY(mask0,mask1,mask2,mask3,sym) \
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2013 if ((subranges[0] & (mask0)) || (subranges[1] & (mask1)) \
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2014 || (subranges[2] & (mask2)) || (subranges[3] & (mask3))) \
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2015 supported = Fcons ((sym), supported)
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2016
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2017 SUBRANGE (0, Qlatin);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2018 /* The following count as latin too, ASCII should be present in these fonts,
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2019 so don't need to mark them separately. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2020 /* 1: Latin-1 supplement, 2: Latin Extended A, 3: Latin Extended B. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2021 SUBRANGE (4, Qphonetic);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2022 /* 5: Spacing and tone modifiers, 6: Combining Diacriticals. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2023 SUBRANGE (7, Qgreek);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2024 SUBRANGE (8, Qcoptic);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2025 SUBRANGE (9, Qcyrillic);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2026 SUBRANGE (10, Qarmenian);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2027 SUBRANGE (11, Qhebrew);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2028 SUBRANGE (13, Qarabic);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2029 SUBRANGE (14, Qnko);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2030 SUBRANGE (15, Qdevanagari);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2031 SUBRANGE (16, Qbengali);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2032 SUBRANGE (17, Qgurmukhi);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2033 SUBRANGE (18, Qgujarati);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2034 SUBRANGE (19, Qoriya);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2035 SUBRANGE (20, Qtamil);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2036 SUBRANGE (21, Qtelugu);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2037 SUBRANGE (22, Qkannada);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2038 SUBRANGE (23, Qmalayalam);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2039 SUBRANGE (24, Qthai);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2040 SUBRANGE (25, Qlao);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2041 SUBRANGE (26, Qgeorgian);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2042 SUBRANGE (27, Qbalinese);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2043 /* 28: Hangul Jamo. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2044 /* 29: Latin Extended, 30: Greek Extended, 31: Punctuation. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2045 /* 32-47: Symbols (defined below). */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2046 SUBRANGE (48, Qcjk_misc);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2047 /* Match either 49: katakana or 50: hiragana for kana. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2048 MASK_ANY (0, 0x00060000, 0, 0, Qkana);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2049 SUBRANGE (51, Qbopomofo);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2050 /* 52: Compatibility Jamo */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2051 SUBRANGE (53, Qphags_pa);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2052 /* 54: Enclosed CJK letters and months, 55: CJK Compatibility. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2053 SUBRANGE (56, Qhangul);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2054 /* 57: Surrogates. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2055 SUBRANGE (58, Qphoenician);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2056 SUBRANGE (59, Qhan); /* There are others, but this is the main one. */
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2057 SUBRANGE (59, Qideographic_description); /* Windows lumps this in. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2058 SUBRANGE (59, Qkanbun); /* And this. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2059 /* 60: Private use, 61: CJK strokes and compatibility. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2060 /* 62: Alphabetic Presentation, 63: Arabic Presentation A. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2061 /* 64: Combining half marks, 65: Vertical and CJK compatibility. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2062 /* 66: Small forms, 67: Arabic Presentation B, 68: Half and Full width. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2063 /* 69: Specials. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2064 SUBRANGE (70, Qtibetan);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2065 SUBRANGE (71, Qsyriac);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2066 SUBRANGE (72, Qthaana);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2067 SUBRANGE (73, Qsinhala);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2068 SUBRANGE (74, Qmyanmar);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2069 SUBRANGE (75, Qethiopic);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2070 SUBRANGE (76, Qcherokee);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2071 SUBRANGE (77, Qcanadian_aboriginal);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2072 SUBRANGE (78, Qogham);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2073 SUBRANGE (79, Qrunic);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2074 SUBRANGE (80, Qkhmer);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2075 SUBRANGE (81, Qmongolian);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2076 SUBRANGE (82, Qbraille);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2077 SUBRANGE (83, Qyi);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2078 SUBRANGE (84, Qbuhid);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2079 SUBRANGE (84, Qhanunoo);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2080 SUBRANGE (84, Qtagalog);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2081 SUBRANGE (84, Qtagbanwa);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2082 SUBRANGE (85, Qold_italic);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2083 SUBRANGE (86, Qgothic);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2084 SUBRANGE (87, Qdeseret);
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2085 SUBRANGE (88, Qbyzantine_musical_symbol);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2086 SUBRANGE (88, Qmusical_symbol); /* Windows doesn't distinguish these. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2087 SUBRANGE (89, Qmathematical);
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2088 /* 90: Private use, 91: Variation selectors, 92: Tags. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2089 SUBRANGE (93, Qlimbu);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2090 SUBRANGE (94, Qtai_le);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2091 /* 95: New Tai Le */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2092 SUBRANGE (90, Qbuginese);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2093 SUBRANGE (97, Qglagolitic);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2094 SUBRANGE (98, Qtifinagh);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2095 /* 99: Yijing Hexagrams. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2096 SUBRANGE (100, Qsyloti_nagri);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2097 SUBRANGE (101, Qlinear_b);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2098 /* 102: Ancient Greek Numbers. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2099 SUBRANGE (103, Qugaritic);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2100 SUBRANGE (104, Qold_persian);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2101 SUBRANGE (105, Qshavian);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2102 SUBRANGE (106, Qosmanya);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2103 SUBRANGE (107, Qcypriot);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2104 SUBRANGE (108, Qkharoshthi);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2105 /* 109: Tai Xuan Jing. */
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2106 SUBRANGE (110, Qcuneiform);
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2107 /* 111: Counting Rods. */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2108
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2109 /* There isn't really a main symbol range, so include symbol if any
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2110 relevant range is set. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2111 MASK_ANY (0x8000000, 0x0000FFFF, 0, 0, Qsymbol);
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2112
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2113 /* Missing: Tai Viet (U+AA80) and Cham (U+AA00) . */
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2114 #undef SUBRANGE
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2115 #undef MASK_ANY
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2116
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2117 return supported;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2118 }
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2119
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2120 /* Generate a full name for a Windows font.
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2121 The full name is in fcname format, with weight, slant and antialiasing
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2122 specified if they are not "normal". */
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2123 static int
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2124 w32font_full_name (font, font_obj, pixel_size, name, nbytes)
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2125 LOGFONT * font;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2126 Lisp_Object font_obj;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2127 int pixel_size;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2128 char *name;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2129 int nbytes;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2130 {
92394
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2131 int len, height, outline;
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2132 char *p;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2133 Lisp_Object antialiasing, weight = Qnil;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2134
92394
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2135 len = strlen (font->lfFaceName);
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2136
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2137 outline = EQ (AREF (font_obj, FONT_FOUNDRY_INDEX), Qoutline);
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2138
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2139 /* Represent size of scalable fonts by point size. But use pixelsize for
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2140 raster fonts to indicate that they are exactly that size. */
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2141 if (outline)
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2142 len += 11; /* -SIZE */
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2143 else
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2144 len += 21;
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2145
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2146 if (font->lfItalic)
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2147 len += 7; /* :italic */
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2148
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2149 if (font->lfWeight && font->lfWeight != FW_NORMAL)
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2150 {
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2151 weight = w32_to_fc_weight (font->lfWeight);
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2152 len += 1 + SBYTES (SYMBOL_NAME (weight)); /* :WEIGHT */
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2153 }
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2154
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2155 antialiasing = lispy_antialias_type (font->lfQuality);
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2156 if (! NILP (antialiasing))
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2157 len += 11 + SBYTES (SYMBOL_NAME (antialiasing)); /* :antialias=NAME */
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2158
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2159 /* Check that the buffer is big enough */
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2160 if (len > nbytes)
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2161 return -1;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2162
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2163 p = name;
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2164 p += sprintf (p, "%s", font->lfFaceName);
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2165
92394
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2166 height = font->lfHeight ? eabs (font->lfHeight) : pixel_size;
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2167
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2168 if (height > 0)
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2169 {
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2170 if (outline)
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2171 {
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2172 float pointsize = height * 72.0 / one_w32_display_info.resy;
92712
fb1da73bc0c4 (w32font_full_name): Use floor to round.
Jason Rumney <jasonr@gnu.org>
parents: 92539
diff changeset
2173 /* Round to nearest half point. floor is used, since round is not
fb1da73bc0c4 (w32font_full_name): Use floor to round.
Jason Rumney <jasonr@gnu.org>
parents: 92539
diff changeset
2174 supported in MS library. */
fb1da73bc0c4 (w32font_full_name): Use floor to round.
Jason Rumney <jasonr@gnu.org>
parents: 92539
diff changeset
2175 pointsize = floor (pointsize * 2 + 0.5) / 2;
92394
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2176 p += sprintf (p, "-%1.1f", pointsize);
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2177 }
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2178 else
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2179 p += sprintf (p, ":pixelsize=%d", height);
7701acfc2ec5 (w32font_full_name): Report point size for scalable fonts.
Jason Rumney <jasonr@gnu.org>
parents: 92390
diff changeset
2180 }
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2181
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2182 if (SYMBOLP (weight) && ! NILP (weight))
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2183 p += sprintf (p, ":%s", SDATA (SYMBOL_NAME (weight)));
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2184
92390
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2185 if (font->lfItalic)
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2186 p += sprintf (p, ":italic");
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2187
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2188 if (SYMBOLP (antialiasing) && ! NILP (antialiasing))
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2189 p += sprintf (p, ":antialias=%s", SDATA (SYMBOL_NAME (antialiasing)));
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2190
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2191 return (p - name);
9b14fb0bae09 (w32font_full_name): New function.
Jason Rumney <jasonr@gnu.org>
parents: 92199
diff changeset
2192 }
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2193
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2194 /* Convert a logfont and point size into a fontconfig style font name.
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2195 POINTSIZE is in tenths of points.
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2196 If SIZE indicates the size of buffer FCNAME, into which the font name
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2197 is written. If the buffer is not large enough to contain the name,
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2198 the function returns -1, otherwise it returns the number of bytes
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2199 written to FCNAME. */
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2200 static int logfont_to_fcname(font, pointsize, fcname, size)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2201 LOGFONT* font;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2202 int pointsize;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2203 char *fcname;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2204 int size;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2205 {
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2206 int len, height;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2207 char *p = fcname;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2208 Lisp_Object weight = Qnil;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2209
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2210 len = strlen (font->lfFaceName) + 2;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2211 height = pointsize / 10;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2212 while (height /= 10)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2213 len++;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2214
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2215 if (pointsize % 10)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2216 len += 2;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2217
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2218 if (font->lfItalic)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2219 len += 7; /* :italic */
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2220 if (font->lfWeight && font->lfWeight != FW_NORMAL)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2221 {
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2222 weight = w32_to_fc_weight (font->lfWeight);
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2223 len += SBYTES (SYMBOL_NAME (weight)) + 1;
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2224 }
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2225
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2226 if (len > size)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2227 return -1;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2228
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2229 p += sprintf (p, "%s-%d", font->lfFaceName, pointsize / 10);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2230 if (pointsize % 10)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2231 p += sprintf (p, ".%d", pointsize % 10);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2232
96005
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2233 if (SYMBOLP (weight) && !NILP (weight))
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2234 p += sprintf (p, ":%s", SDATA (SYMBOL_NAME (weight)));
66f0213be62a Fix crashing bug in use of bold fonts from x-select-font on W32.
Jason Rumney <jasonr@gnu.org>
parents: 95894
diff changeset
2235
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2236 if (font->lfItalic)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2237 p += sprintf (p, ":italic");
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2238
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2239 return (p - fcname);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2240 }
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2241
95341
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
2242 static void
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
2243 compute_metrics (dc, w32_font, code, metrics)
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2244 HDC dc;
92411
133560a77a09 (recompute_cached_metrics): Change font arg to w32font_info.
Jason Rumney <jasonr@gnu.org>
parents: 92409
diff changeset
2245 struct w32font_info *w32_font;
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2246 unsigned int code;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2247 struct w32_metric_cache *metrics;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2248 {
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2249 GLYPHMETRICS gm;
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2250 MAT2 transform;
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2251 unsigned int options = GGO_METRICS;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2252
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2253 if (w32_font->glyph_idx)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2254 options |= GGO_GLYPH_INDEX;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2255
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2256 bzero (&transform, sizeof (transform));
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2257 transform.eM11.value = 1;
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2258 transform.eM22.value = 1;
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2259
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2260 if (GetGlyphOutlineW (dc, code, options, &gm, 0, NULL, &transform)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2261 != GDI_ERROR)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2262 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2263 metrics->lbearing = gm.gmptGlyphOrigin.x;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2264 metrics->rbearing = gm.gmptGlyphOrigin.x + gm.gmBlackBoxX;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2265 metrics->width = gm.gmCellIncX;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2266 metrics->status = W32METRIC_SUCCESS;
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2267 }
95341
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
2268 else
5602389abb69 (compute_metrics): Rewrite an "else { if () ... else ... }"
Juanma Barranquero <lekktu@gmail.com>
parents: 95339
diff changeset
2269 metrics->status = W32METRIC_FAIL;
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2270 }
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2271
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2272 static void
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2273 clear_cached_metrics (w32_font)
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2274 struct w32font_info *w32_font;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2275 {
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2276 int i;
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2277 for (i = 0; i < w32_font->n_cache_blocks; i++)
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
2278 {
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
2279 if (w32_font->cached_metrics[i])
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
2280 bzero (w32_font->cached_metrics[i],
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
2281 CACHE_BLOCKSIZE * sizeof (struct font_metrics));
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
2282 }
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2283 }
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2284
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2285 DEFUN ("x-select-font", Fx_select_font, Sx_select_font, 0, 2, 0,
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2286 doc: /* Read a font name using a W32 font selection dialog.
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2287 Return fontconfig style font string corresponding to the selection.
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2288
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2289 If FRAME is omitted or nil, it defaults to the selected frame.
96997
8e0048b7af16 (Fx_select_font): Reverse sense of second arg.
Jason Rumney <jasonr@gnu.org>
parents: 96937
diff changeset
2290 If EXCLUDE-PROPORTIONAL is non-nil, exclude proportional fonts
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2291 in the font selection dialog. */)
96997
8e0048b7af16 (Fx_select_font): Reverse sense of second arg.
Jason Rumney <jasonr@gnu.org>
parents: 96937
diff changeset
2292 (frame, exclude_proportional)
8e0048b7af16 (Fx_select_font): Reverse sense of second arg.
Jason Rumney <jasonr@gnu.org>
parents: 96937
diff changeset
2293 Lisp_Object frame, exclude_proportional;
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2294 {
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2295 FRAME_PTR f = check_x_frame (frame);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2296 CHOOSEFONT cf;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2297 LOGFONT lf;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2298 TEXTMETRIC tm;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2299 HDC hdc;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2300 HANDLE oldobj;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2301 char buf[100];
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2302
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2303 bzero (&cf, sizeof (cf));
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2304 bzero (&lf, sizeof (lf));
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2305
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2306 cf.lStructSize = sizeof (cf);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2307 cf.hwndOwner = FRAME_W32_WINDOW (f);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2308 cf.Flags = CF_FORCEFONTEXIST | CF_SCREENFONTS | CF_NOVERTFONTS;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2309
96997
8e0048b7af16 (Fx_select_font): Reverse sense of second arg.
Jason Rumney <jasonr@gnu.org>
parents: 96937
diff changeset
2310 /* If exclude_proportional is non-nil, limit the selection to
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2311 monospaced fonts. */
96997
8e0048b7af16 (Fx_select_font): Reverse sense of second arg.
Jason Rumney <jasonr@gnu.org>
parents: 96937
diff changeset
2312 if (!NILP (exclude_proportional))
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2313 cf.Flags |= CF_FIXEDPITCHONLY;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2314
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2315 cf.lpLogFont = &lf;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2316
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2317 /* Initialize as much of the font details as we can from the current
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2318 default font. */
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2319 hdc = GetDC (FRAME_W32_WINDOW (f));
96343
5c8f2b7d28ae * w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents: 96327
diff changeset
2320 oldobj = SelectObject (hdc, FONT_HANDLE (FRAME_FONT (f)));
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2321 GetTextFace (hdc, LF_FACESIZE, lf.lfFaceName);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2322 if (GetTextMetrics (hdc, &tm))
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2323 {
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2324 lf.lfHeight = tm.tmInternalLeading - tm.tmHeight;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2325 lf.lfWeight = tm.tmWeight;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2326 lf.lfItalic = tm.tmItalic;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2327 lf.lfUnderline = tm.tmUnderlined;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2328 lf.lfStrikeOut = tm.tmStruckOut;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2329 lf.lfCharSet = tm.tmCharSet;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2330 cf.Flags |= CF_INITTOLOGFONTSTRUCT;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2331 }
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2332 SelectObject (hdc, oldobj);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2333 ReleaseDC (FRAME_W32_WINDOW (f), hdc);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2334
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2335 if (!ChooseFont (&cf)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2336 || logfont_to_fcname (&lf, cf.iPointSize, buf, 100) < 0)
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2337 return Qnil;
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2338
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2339 return build_string (buf);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2340 }
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2341
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2342 struct font_driver w32font_driver =
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2343 {
90964
269d87dc10d9 (Qgdi): Rename from Qw32.
Jason Rumney <jasonr@gnu.org>
parents: 90933
diff changeset
2344 0, /* Qgdi */
94914
73c093f08fa0 Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 94082
diff changeset
2345 0, /* case insensitive */
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2346 w32font_get_cache,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2347 w32font_list,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2348 w32font_match,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2349 w32font_list_family,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2350 NULL, /* free_entity */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2351 w32font_open,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2352 w32font_close,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2353 NULL, /* prepare_face */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2354 NULL, /* done_face */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2355 w32font_has_char,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2356 w32font_encode_char,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2357 w32font_text_extents,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2358 w32font_draw,
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2359 NULL, /* get_bitmap */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2360 NULL, /* free_bitmap */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2361 NULL, /* get_outline */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2362 NULL, /* free_outline */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2363 NULL, /* anchor_point */
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2364 NULL, /* otf_capability */
91158
5e7347695108 (w32font_driver): Add new fields.
Jason Rumney <jasonr@gnu.org>
parents: 91128
diff changeset
2365 NULL, /* otf_drive */
5e7347695108 (w32font_driver): Add new fields.
Jason Rumney <jasonr@gnu.org>
parents: 91128
diff changeset
2366 NULL, /* start_for_frame */
5e7347695108 (w32font_driver): Add new fields.
Jason Rumney <jasonr@gnu.org>
parents: 91128
diff changeset
2367 NULL, /* end_for_frame */
5e7347695108 (w32font_driver): Add new fields.
Jason Rumney <jasonr@gnu.org>
parents: 91128
diff changeset
2368 NULL /* shape */
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2369 };
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2370
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2371
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2372 /* Initialize state that does not change between invocations. This is only
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2373 called when Emacs is dumped. */
90889
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
2374 void
0df73c71020b * w32font.c (QCsubranges): New symbol.
Jason Rumney <jasonr@gnu.org>
parents: 90887
diff changeset
2375 syms_of_w32font ()
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2376 {
90964
269d87dc10d9 (Qgdi): Rename from Qw32.
Jason Rumney <jasonr@gnu.org>
parents: 90933
diff changeset
2377 DEFSYM (Qgdi, "gdi");
92409
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2378 DEFSYM (Quniscribe, "uniscribe");
8171649adf8a (Quniscribe, QCformat): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 92394
diff changeset
2379 DEFSYM (QCformat, ":format");
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2380
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2381 /* Generic font families. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2382 DEFSYM (Qmonospace, "monospace");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2383 DEFSYM (Qserif, "serif");
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
2384 DEFSYM (Qsansserif, "sansserif");
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2385 DEFSYM (Qscript, "script");
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2386 DEFSYM (Qdecorative, "decorative");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2387 /* Aliases. */
91260
75f89f349f70 (w32font_text_extents): Dereference selected_frame.
Jason Rumney <jasonr@gnu.org>
parents: 91259
diff changeset
2388 DEFSYM (Qsans_serif, "sans_serif");
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2389 DEFSYM (Qsans, "sans");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2390 DEFSYM (Qmono, "mono");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2391
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2392 /* Fake foundries. */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2393 DEFSYM (Qraster, "raster");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2394 DEFSYM (Qoutline, "outline");
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2395 DEFSYM (Qunknown, "unknown");
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2396
91124
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
2397 /* Antialiasing. */
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
2398 DEFSYM (Qstandard, "standard");
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
2399 DEFSYM (Qsubpixel, "subpixel");
b656aee8436b (CLEARTYPE_QUALITY, CLEARTYPE_NATURAL_QUALITY): Define
Jason Rumney <jasonr@gnu.org>
parents: 91070
diff changeset
2400 DEFSYM (Qnatural, "natural");
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2401
93856
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2402 /* Languages */
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2403 DEFSYM (Qja, "ja");
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2404 DEFSYM (Qko, "ko");
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2405 DEFSYM (Qzh, "zh");
833bbf13f09d (Qja, Qko, Qzh): New symbols.
Jason Rumney <jasonr@gnu.org>
parents: 93675
diff changeset
2406
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2407 /* Scripts */
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2408 DEFSYM (Qlatin, "latin");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2409 DEFSYM (Qgreek, "greek");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2410 DEFSYM (Qcoptic, "coptic");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2411 DEFSYM (Qcyrillic, "cyrillic");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2412 DEFSYM (Qarmenian, "armenian");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2413 DEFSYM (Qhebrew, "hebrew");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2414 DEFSYM (Qarabic, "arabic");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2415 DEFSYM (Qsyriac, "syriac");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2416 DEFSYM (Qnko, "nko");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2417 DEFSYM (Qthaana, "thaana");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2418 DEFSYM (Qdevanagari, "devanagari");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2419 DEFSYM (Qbengali, "bengali");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2420 DEFSYM (Qgurmukhi, "gurmukhi");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2421 DEFSYM (Qgujarati, "gujarati");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2422 DEFSYM (Qoriya, "oriya");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2423 DEFSYM (Qtamil, "tamil");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2424 DEFSYM (Qtelugu, "telugu");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2425 DEFSYM (Qkannada, "kannada");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2426 DEFSYM (Qmalayalam, "malayalam");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2427 DEFSYM (Qsinhala, "sinhala");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2428 DEFSYM (Qthai, "thai");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2429 DEFSYM (Qlao, "lao");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2430 DEFSYM (Qtibetan, "tibetan");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2431 DEFSYM (Qmyanmar, "myanmar");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2432 DEFSYM (Qgeorgian, "georgian");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2433 DEFSYM (Qhangul, "hangul");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2434 DEFSYM (Qethiopic, "ethiopic");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2435 DEFSYM (Qcherokee, "cherokee");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2436 DEFSYM (Qcanadian_aboriginal, "canadian-aboriginal");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2437 DEFSYM (Qogham, "ogham");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2438 DEFSYM (Qrunic, "runic");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2439 DEFSYM (Qkhmer, "khmer");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2440 DEFSYM (Qmongolian, "mongolian");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2441 DEFSYM (Qsymbol, "symbol");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2442 DEFSYM (Qbraille, "braille");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2443 DEFSYM (Qhan, "han");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2444 DEFSYM (Qideographic_description, "ideographic-description");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2445 DEFSYM (Qcjk_misc, "cjk-misc");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2446 DEFSYM (Qkana, "kana");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2447 DEFSYM (Qbopomofo, "bopomofo");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2448 DEFSYM (Qkanbun, "kanbun");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2449 DEFSYM (Qyi, "yi");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2450 DEFSYM (Qbyzantine_musical_symbol, "byzantine-musical-symbol");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2451 DEFSYM (Qmusical_symbol, "musical-symbol");
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2452 DEFSYM (Qmathematical, "mathematical");
93598
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2453 DEFSYM (Qphonetic, "phonetic");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2454 DEFSYM (Qbalinese, "balinese");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2455 DEFSYM (Qbuginese, "buginese");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2456 DEFSYM (Qbuhid, "buhid");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2457 DEFSYM (Qcuneiform, "cuneiform");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2458 DEFSYM (Qcypriot, "cypriot");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2459 DEFSYM (Qdeseret, "deseret");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2460 DEFSYM (Qglagolitic, "glagolitic");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2461 DEFSYM (Qgothic, "gothic");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2462 DEFSYM (Qhanunoo, "hanunoo");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2463 DEFSYM (Qkharoshthi, "kharoshthi");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2464 DEFSYM (Qlimbu, "limbu");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2465 DEFSYM (Qlinear_b, "linear_b");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2466 DEFSYM (Qold_italic, "old_italic");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2467 DEFSYM (Qold_persian, "old_persian");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2468 DEFSYM (Qosmanya, "osmanya");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2469 DEFSYM (Qphags_pa, "phags-pa");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2470 DEFSYM (Qphoenician, "phoenician");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2471 DEFSYM (Qshavian, "shavian");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2472 DEFSYM (Qsyloti_nagri, "syloti_nagri");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2473 DEFSYM (Qtagalog, "tagalog");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2474 DEFSYM (Qtagbanwa, "tagbanwa");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2475 DEFSYM (Qtai_le, "tai_le");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2476 DEFSYM (Qtifinagh, "tifinagh");
6b92cdd67bfb (Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot)
Jason Rumney <jasonr@gnu.org>
parents: 92712
diff changeset
2477 DEFSYM (Qugaritic, "ugaritic");
90906
f8694254fa1d (w32font_info): Remove subranges.
Jason Rumney <jasonr@gnu.org>
parents: 90898
diff changeset
2478
96385
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2479 /* W32 font encodings. */
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2480 DEFVAR_LISP ("w32-charset-info-alist",
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2481 &Vw32_charset_info_alist,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2482 doc: /* Alist linking Emacs character sets to Windows fonts and codepages.
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2483 Each entry should be of the form:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2484
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2485 (CHARSET_NAME . (WINDOWS_CHARSET . CODEPAGE))
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2486
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2487 where CHARSET_NAME is a string used in font names to identify the charset,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2488 WINDOWS_CHARSET is a symbol that can be one of:
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2489
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2490 w32-charset-ansi, w32-charset-default, w32-charset-symbol,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2491 w32-charset-shiftjis, w32-charset-hangeul, w32-charset-gb2312,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2492 w32-charset-chinesebig5, w32-charset-johab, w32-charset-hebrew,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2493 w32-charset-arabic, w32-charset-greek, w32-charset-turkish,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2494 w32-charset-vietnamese, w32-charset-thai, w32-charset-easteurope,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2495 w32-charset-russian, w32-charset-mac, w32-charset-baltic,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2496 or w32-charset-oem.
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2497
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2498 CODEPAGE should be an integer specifying the codepage that should be used
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2499 to display the character set, t to do no translation and output as Unicode,
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2500 or nil to do no translation and output as 8 bit (or multibyte on far-east
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2501 versions of Windows) characters. */);
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2502 Vw32_charset_info_alist = Qnil;
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2503
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2504 DEFSYM (Qw32_charset_ansi, "w32-charset-ansi");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2505 DEFSYM (Qw32_charset_symbol, "w32-charset-symbol");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2506 DEFSYM (Qw32_charset_default, "w32-charset-default");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2507 DEFSYM (Qw32_charset_shiftjis, "w32-charset-shiftjis");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2508 DEFSYM (Qw32_charset_hangeul, "w32-charset-hangeul");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2509 DEFSYM (Qw32_charset_chinesebig5, "w32-charset-chinesebig5");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2510 DEFSYM (Qw32_charset_gb2312, "w32-charset-gb2312");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2511 DEFSYM (Qw32_charset_oem, "w32-charset-oem");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2512 DEFSYM (Qw32_charset_johab, "w32-charset-johab");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2513 DEFSYM (Qw32_charset_easteurope, "w32-charset-easteurope");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2514 DEFSYM (Qw32_charset_turkish, "w32-charset-turkish");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2515 DEFSYM (Qw32_charset_baltic, "w32-charset-baltic");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2516 DEFSYM (Qw32_charset_russian, "w32-charset-russian");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2517 DEFSYM (Qw32_charset_arabic, "w32-charset-arabic");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2518 DEFSYM (Qw32_charset_greek, "w32-charset-greek");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2519 DEFSYM (Qw32_charset_hebrew, "w32-charset-hebrew");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2520 DEFSYM (Qw32_charset_vietnamese, "w32-charset-vietnamese");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2521 DEFSYM (Qw32_charset_thai, "w32-charset-thai");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2522 DEFSYM (Qw32_charset_mac, "w32-charset-mac");
01647003e227 * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
Jason Rumney <jasonr@gnu.org>
parents: 96343
diff changeset
2523
95894
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2524 defsubr (&Sx_select_font);
76261fd18708 * w32fns.c (Fw32_select_font): Removed old font API function.
Jason Rumney <jasonr@gnu.org>
parents: 95846
diff changeset
2525
90964
269d87dc10d9 (Qgdi): Rename from Qw32.
Jason Rumney <jasonr@gnu.org>
parents: 90933
diff changeset
2526 w32font_driver.type = Qgdi;
90869
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2527 register_font_driver (&w32font_driver, NULL);
9a1ccf2dfd96 New file for w32 font backend.
Jason Rumney <jasonr@gnu.org>
parents:
diff changeset
2528 }
90898
4d94a4dbcf99 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90894
diff changeset
2529
4d94a4dbcf99 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90894
diff changeset
2530 /* arch-tag: 65b8a3cd-46aa-4c0d-a1f3-99e75b9c07ee
4d94a4dbcf99 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90894
diff changeset
2531 (do not change this comment) */